выложите плиз на bowcraft
чтоб факелы по одному делал...
pls
bowcraft
Moderators: Murderator+, Murderator
-
AntiKiller
- Posts: 51
- Joined: 2004-04-12 13:16:17
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
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
пользуйтесь 
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
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
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??
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??
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 pomagiAskaneli wrote:http://yoko.netroof.net/forum/viewtopic.php?t=2811
Поиск походу отдыхает !!!
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
iUk wrote:Jesle tebe neslozhno peredelaj etot script 6tobe on pashil pod logi mne te afigeno navaro4inije nenuzni jesle ne slozhno pomagiAskaneli wrote:http://yoko.netroof.net/forum/viewtopic.php?t=2811
Поиск походу отдыхает !!!
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
Не уверен, работа наколенная, писал прям на форуме, но должна по идее работать. Проверь и отпишись.
2ALL: На ДРВ из простых логов торчи не крафтаются.
2ALL: На ДРВ из простых логов торчи не крафтаются.
Обьясни как это у тебя так ??? wrote:U menja
Sunduk: ID=0x400824E7 Type=0x0E7C
Dagger: ID=0x400824E7 Type=0x0E7C Colour: 0x0000
logi: ID=0x400824E7 Type=0x0E7C
Code: Select all
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
Сделал дело - флуди смело !!!
iUk wrote:A pro ident i type nepravelno napisal logi:ID=0x40155916 Type=0x1BDD
Мозги чё пудришь ???
Там есть в оригинальном и шавты тоже.
http://yoko.netroof.net/forum/viewtopic ... 4837#14837
Сделал дело - флуди смело !!!
хех iUk не mikeAskaneli wrote:iUk wrote:A pro ident i type nepravelno napisal logi:ID=0x40155916 Type=0x1BDD
Мозги чё пудришь ???
Там есть в оригинальном и шавты тоже.
http://yoko.netroof.net/forum/viewtopic ... 4837#14837
а я повёлся... хотел уже поматериться...
Sfagnum wrote:хех iUk не mikeAskaneli wrote:iUk wrote:A pro ident i type nepravelno napisal logi:ID=0x40155916 Type=0x1BDD
Мозги чё пудришь ???
Там есть в оригинальном и шавты тоже.
http://yoko.netroof.net/forum/viewtopic ... 4837#14837
а я повёлся... хотел уже поматериться...
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.