Yoko
http://forum.yoko.com.ua/

bowcraft
http://forum.yoko.com.ua/viewtopic.php?f=20&t=275		 Page 1 of 1
Author:  mike [ 2004-05-06 21:04:51 ]
Post subject:  bowcraft
выложите плиз на bowcraft

чтоб факелы по одному делал...
pls
Author:  AntiKiller [ 2004-05-06 23:40:58 ]
Post subject:  Re: bowcraft
# =======>Бовкрафт (луки)
sub BowCraft()
While UO.Count('0x1BDD', '0x0000')>=7 #тут ТИП логов обычных
UO.UseType('0x0F51') # Dagger использует обычный ножик
UO.WaitTargetType('0x1BDD', '0x0000') #ловит курсор на логах по ТИПУ
UO.Waitmenu('What do you want to carve the wood into', 'Bows & Crossbows', 'Bows', 'Heavy Crossbow') # тут менюшка крафта сам измени чо те там надо
wait(5000)
Wend
UO.Print("End log")
end sub
Author:  mike [ 2004-05-11 06:47:45 ]
Post subject: 
пользуйтесь :)

sub Oak()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Oak Items'")
UO.Exec ("automenu 'Oak Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Red()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Red Tree Items'")
UO.Exec ("automenu 'Red Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Dark()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Dark Tree Items'")
UO.Exec ("automenu 'Dark Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Swamp()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Swamp Items'")
UO.Exec ("automenu 'Swamp Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Silver()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Silver Leaf Items'")
UO.Exec ("automenu 'Silver Leaf Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Keranit()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Keranit Items'")
UO.Exec ("automenu 'Keranit Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Perit()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Perit Items'")
UO.Exec ("automenu 'Perit Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub


sub Petrified()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Petrified Items'")
UO.Exec ("automenu 'Petrified Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub


sub Dragon()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Dragon Tree Items'")
UO.Exec ("automenu 'Dragon Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Vampire()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Vampire Tree Items'")
UO.Exec ("automenu 'Vampire Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Eridan()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Eridan Items'")
UO.Exec ("automenu 'Eridan Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Hellios()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Hellios Items'")
UO.Exec ("automenu 'Hellios Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Illusions()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Illusions Tree Items'")
UO.Exec ("automenu 'Illusions Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub


sub Crystal()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Crystal Items'")
UO.Exec ("automenu 'Crystal Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

sub Dead()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Dead Tree Items'")
UO.Exec ("automenu 'Dead Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
Author:  iUk [ 2005-02-17 15:28:39 ]
Post subject: 
sub Oak()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Oak Items'")
UO.Exec ("automenu 'Oak Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

Help plizz kak mne zdelatj jesle u menja prastije logi??
Author:  Askaneli [ 2005-02-17 15:58:04 ]
Post subject: 
http://yoko.netroof.net/forum/viewtopic.php?t=2811
Поиск походу отдыхает !!!
Author:  iUk [ 2005-02-17 18:02:28 ]
Post subject: 
Askaneli wrote:
http://yoko.netroof.net/forum/viewtopic.php?t=2811
Поиск походу отдыхает !!!
Jesle tebe neslozhno peredelaj etot script 6tobe on pashil pod logi mne te afigeno navaro4inije nenuzni jesle ne slozhno pomagi
sub Oak()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Oak Items'")
UO.Exec ("automenu 'Oak Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub

U menja Sunduk:ID=0x400824E7 Type=0x0E7C Dagger:ID=0x400824E7 Type=0x0E7C Colour: 0x0000 logi:ID=0x400824E7 Type=0x0E7C

Zaranie sposibo pomagitje kamu ne lenj
Author:  iUk [ 2005-02-17 18:07:07 ]
Post subject: 
iUk wrote:
Askaneli wrote:
http://yoko.netroof.net/forum/viewtopic.php?t=2811
Поиск походу отдыхает !!!
Jesle tebe neslozhno peredelaj etot script 6tobe on pashil pod logi mne te afigeno navaro4inije nenuzni jesle ne slozhno pomagi
sub Oak()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Oak Items'")
UO.Exec ("automenu 'Oak Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
I mne nuzhno 6tobe on prosto logi po odnamu v shafti kraftil katorije v backpacke.
U menja Sunduk:ID=0x400824E7 Type=0x0E7C Dagger:ID=0x400824E7 Type=0x0E7C Colour: 0x0000 logi:ID=0x400824E7 Type=0x0E7C

Zaranie sposibo pomagitje kamu ne lenj
Author:  Askaneli [ 2005-02-18 06:25:48 ]
Post subject: 
Не уверен, работа наколенная, писал прям на форуме, но должна по идее работать. Проверь и отпишись.
2ALL: На ДРВ из простых логов торчи не крафтаются.

Обьясни как это у тебя так ??? wrote:
U menja
Sunduk: ID=0x400824E7 Type=0x0E7C
Dagger: ID=0x400824E7 Type=0x0E7C Colour: 0x0000
logi: ID=0x400824E7 Type=0x0E7C


Code:
VAR Sunduk='0x404A298D' ; ИД сундука где все логи
VAR TDagger='0x0F51' ; Тип даггера
VAR TLogs='0x1BDD' ; Тип логов
VAR TTorch='0x0F64' ; Тип торчей

; В руке или паке даггер, в сундуке логи и запускаем !!!

sub BowCraft_torch() 
var teklog=0 
dim ColLog[20] 
ColLog[0]='0x0000' ; Logs 
ColLog[1]='0x047C' ; Oak Logs 
ColLog[2]='0x0279' ; Red Tree Logs 
ColLog[3]='0x096B' ; Dark Tree Logs 
ColLog[4]='0x0237' ; Swamp Logs 
ColLog[5]='0x0482' ; Silver Leaf Logs 
ColLog[6]='0x010F' ; Keranit Logs 
ColLog[7]='0x0014' ; Perit Logs 
ColLog[8]='0x03C1' ; Petrified Logs 
ColLog[9]='0x0085' ; Dragon Tree Logs 
ColLog[10]='0x04C2' ; Vampire Tree Logs 
ColLog[11]='0x0033' ; Eridan Logs 
ColLog[12]='0x002B' ; Hellios Logs 
ColLog[13]='0x0071' ; Illusions Tree Logs 
ColLog[14]='0x09A4' ; Crystal Logs 
ColLog[15]='0x0B82' ; Dead Tree Logs 
ColLog[16]='0x00BE' ; Paradise Logs 
ColLog[17]='0x0035' ; Titan Tree Logs 
ColLog[18]='0x0BB6' ; Avalon Logs 
ColLog[19]='0x0487' ; Elven Logs 
ColLog[20]='0x0498' ; Asterxylon Logs 
UO.Exec('terminate Reconnector') 
wait(100) 
UO.Exec('exec Reconnector') 
uo.useobject(Sunduk) 
wait(200) 
while 1==1 
UO.FindType(TLogs,-1,'backpack') 
While UO.GetQuantity('finditem')==0 
ff: 
UO.FindType(TLogs,ColLog[teklog],Sunduk) 
wait(50) 
if uo.FindCount()==0 then 

UO.SetReceivingContainer(Sunduk) 
wait(100) 
UO.FindType(TTorch) 
wait(50) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(200) 
end if 
UO.UnSetReceivingContainer() 

teklog=teklog+1 
if teklog>20 then 
return 
endif 
goto ff 
end if 
wait(100) 
UO.Grab('1','finditem') 
Wend 
wait(200) 
cheklag() 

uo.WaittargetType(TLogs) 
uo.Usetype(TDagger) 
uo.WaitMenu('What do you want to carve the wood into?','Items','Items','torch') 
wait (200) 
uo.DeleteJournal() 
while not (uo.InJournal("You put") or uo.InJournal("You fail")) 
wait(10) 
wend 

if uo.weight > 100 then 
UO.SetReceivingContainer(Sunduk) 
wait(100) 
UO.FindType(TTorch) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(200) 
end if 
UO.UnSetReceivingContainer() 
end if 
wend 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub 

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate BowCraft_torch') 
wait(1000) 
UO.Exec('exec BowCraft_torch') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub

Author:  iUk [ 2005-02-18 07:21:12 ]
Post subject: 
A pro ident i type nepravelno napisal logi:ID=0x40155916 Type=0x1BDD :)
Author:  Askaneli [ 2005-02-18 07:42:58 ]
Post subject: 
iUk wrote:
A pro ident i type nepravelno napisal logi:ID=0x40155916 Type=0x1BDD :)

Мозги чё пудришь ???
Там есть в оригинальном и шавты тоже.
http://yoko.netroof.net/forum/viewtopic ... 4837#14837
Author:  Sfagnum [ 2005-02-18 09:27:09 ]
Post subject: 
Askaneli wrote:
iUk wrote:
A pro ident i type nepravelno napisal logi:ID=0x40155916 Type=0x1BDD :)

Мозги чё пудришь ???
Там есть в оригинальном и шавты тоже.
http://yoko.netroof.net/forum/viewtopic ... 4837#14837
хех iUk не mike ;)
а я повёлся... хотел уже поматериться...
Author:  iUk [ 2005-02-18 09:48:33 ]
Post subject: 
Sfagnum wrote:
Askaneli wrote:
iUk wrote:
A pro ident i type nepravelno napisal logi:ID=0x40155916 Type=0x1BDD :)

Мозги чё пудришь ???
Там есть в оригинальном и шавты тоже.
http://yoko.netroof.net/forum/viewtopic ... 4837#14837
хех iUk не mike ;)
а я повёлся... хотел уже поматериться...


Da sorry pocani tak vobshe zalahaval ,infu vsjo vremja pervoju stroku smotrel dumal 6to tipa sverhu i jest ta katoraja pishit vsju infu toj 6motki katoraju ja posledneju smotrju.
Sposibo vam balshoje prosto vobshe paru dnej toka injekt izpolzuju. :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/