Easuo minning
Sayfaya git: Önceki, 1, 2

Ultima Online Forum -> Kütüphane
 
Yazar
Mesaj
kadir1404
Deneyimli Oyuncu

Avatar

Yaş: 31
Kayıt: 18 Arl 2011
Mesajlar: 112
Cinsiyet: Erkek

Teşekkür: 1

Durumu: Çevrimdışı

Avatar
kadir1404
Deneyimli Oyuncu
Easuo minning Konu: Yanıt: Easuo minning
Alıntıyla Cevap Gönder
ucanmanda6 yazmış:
[code];*****************************************
;******** Tinkering
;*****************************************

tinkering kısmını bir de böyle dener misiin



çok teşekkürler kardeş makro normale dondu gibi biraz çalıştırayım icon_lol.gif

 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
16 Arl 2017 16:34
kadir1404
Deneyimli Oyuncu

Avatar

Yaş: 31
Kayıt: 18 Arl 2011
Mesajlar: 112
Cinsiyet: Erkek

Teşekkür: 1

Durumu: Çevrimdışı

Avatar
kadir1404
Deneyimli Oyuncu
Easuo minning Konu: Yanıt: Easuo minning
Alıntıyla Cevap Gönder
ucanmanda6 yazmış:
[code];*****************************************
;******** Tinkering
;*****************************************
; ** FindShovel **
; Tries to find a shovel, if non are found will initial
; tinkering or recall back to home base



tinkering kısmını bir de böyle dener misiin



başkan selam makro bazen makas yapıyo takılıyo anlamadım bazen normal calısıyo varmı fıkrın

 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
16 Arl 2017 21:33
Yulrinn
Uzman



Yaş: 30
Kayıt: 13 Ağu 2015
Mesajlar: 175
Cinsiyet: Erkek
Nerden: Ankara

Teşekkür: 34

Durumu: Çevrimdışı

Yulrinn
Uzman
Easuo minning Konu: Yanıt: Easuo minning
Alıntıyla Cevap Gönder
Bu script zaten mining spotlari gormuyor sizin ana setup ekranindan sonra runebookta teker teker recall olarak mining spotlari tanimlamaniz (define) lazim.

 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
16 Arl 2017 21:51
kadir1404
Deneyimli Oyuncu

Avatar

Yaş: 31
Kayıt: 18 Arl 2011
Mesajlar: 112
Cinsiyet: Erkek

Teşekkür: 1

Durumu: Çevrimdışı

Avatar
kadir1404
Deneyimli Oyuncu
Easuo minning Konu: Yanıt: Easuo minning
Alıntıyla Cevap Gönder
Yulrinn yazmış:
Bu script zaten mining spotlari gormuyor sizin ana setup ekranindan sonra runebookta teker teker recall olarak mining spotlari tanimlamaniz (define) lazim.


selam kardes makro sıkıntısız calısıyor bahsettıgın olayı yapıyorum recal yada bankaya bosaltma da hıc sıkıntı yok tek sıkıntı kurek bıtınce yenısını yapamıyor , ben razordan manuel yapıyorum ozaman sureklı devam edıyor bıraz oncekı arkadas bıselerı degıstırdık ama tam olmadı yarım yapıyor yarım baska bıse yapıyor ınsallah cozerız

 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
16 Arl 2017 21:54
ucanmanda6
Geçiyordum Uğradım

Avatar

Yaş: 36
Kayıt: 21 Eyl 2016
Mesajlar: 4

Teşekkür: 1

Durumu: Çevrimdışı

Avatar
ucanmanda6
Geçiyordum Uğradım
Easuo minning Konu: Yanıt: Easuo minning
Alıntıyla Cevap Gönder
Kod:
;*****************************************
;******** Tinkering
;*****************************************
; ** FindShovel **
; Tries to find a shovel, if non are found will initial
; tinkering or recall back to home base
Sub FindShovel
GoSub UpdateStatusWindow FindShovel
FindShovelStart:
GoSub CheckEscapeStatus
If %CheckEscapeStatus
Return

GoSub FindUsableMiningTool %BackpackId
If #FindId = X
{
if %UseTinkering
{
If %TinkerSkill >= 900
Set %_fsIngotsNeeded 10
Else
Set %_fsIngotsNeeded 20
FindItem %IngotType C_ , %BackpackId
If #FindKind = -1 || #FindStack < %_fsIngotsNeeded
GoSub UnloadAtBase #false
GoSub MakeShovel
Goto FindShovelStart
}
if ! %UseTinkering
{
GoSub UnloadAtBase #false
Goto FindShovelStart
}
}
Return

; ** MakeShovel **
; Will make 1-2 shovels using tinkering - Using the menus or
; UOA macros if they have been setup
Sub MakeShovel
GoSub CheckEscapeStatus
If %CheckEscapeStatus
Return

Set %_msTimeStart #sCnt2
GoSub UpdateStatusWindow MakeShovel

FindItem %TinkerType C_ , %BackpackId
Wait 5
If #FindKind <> -1 && #FindCnt = 1
{
If %UOATinkerToolKey <> N/A
{
Key %UOATinkerToolKey %UOATinkerToolMod
Wait %UOATinkerToolWait
}
If %UOATinkerToolKey = N/A
{
GoSub BringUpTinkerMenu #FindId
Wait 10
GoSub ClickTinkerButton 22 110
GoSub ClickTinkerButton 230 130

Set %LastMadeWasShovel #false
}
}
FindItem %TinkerType C_ , %BackpackId
If #FindKind <> -1
{
If %UOAShovelKey <> N/A
{
Key %UOAShovelKey %UOAShovelMod
Wait %UOAShovelWait
}
If %UOAShovelKey = N/A
{
GoSub BringUpTinkerMenu #FindId
If %LastMadeWasShovel ; If the last thing we made was a shovel, its easy!
GoSub ClickTinkerButton 276 413
If ! %LastMadeWasShovel
{
GoSub ClickTinkerButton 25 110
GoSub ClickTinkerButtonNext
GoSub ClickTinkerButton 230 70
}
Set %LastMadeWasShovel #true
If %MakeTwoShovels
GoSub ClickTinkerButton 275 415
}
Set %_msCancelX #ContPosX + 10
Set %_msCancelY #ContPosY + 10
Click %_msCancelX %_msCancelY R ; Close tinker menu
}
GoSub RecordTiming %_msTimeStart MakeShovel
Return

; ** ClickTinkerButton **
Sub ClickTinkerButton
Set %_ctbX %1 + #ContPosX
Set %_ctbY %2 + #ContPosY
Click %_ctbX %_ctbY
Wait 5
Return

; ** ClickTinkerButtonNoWait **
Sub ClickTinkerButtonNext
Set %_ctbnX 385 + #ContPosX
Set %_ctbnY 270 + #ContPosY
Click %_ctbnX %_ctbnY F
Wait 2s
Return

; ** BringUpTinkerMenu **
; Lag resistant opening of tinker menu
; Parameter 1: ID of tinker tool
Sub BringUpTinkerMenu
Set %_butmTinkerTool %1
Wait 5 ; A lot of times the tinker tool usage get 'You must wait...'
_butmTinkerMenu:
GoSub UseObject %_butmTinkerTool #false #false
Gosub waitForSysVar contSize = 530_437 30
Return



bu şekilde dene istersen, tinker buttonlarını ayarladım, ingotcum olmadığından tam deneme imkanım olmuyor scripti,

 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
17 Arl 2017 8:48
 
Yeni başlık gönder   Başlığa cevap gönder Sayfaya git: Önceki, 1, 2
2. sayfa (Toplam 2 sayfa) [ 15 mesaj ]  

 
Bu forumda yeni başlıklar açamazsınız
Bu forumdaki başlıklara cevap veremezsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız