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

Помогите исправить скрипт
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3612		 Page 1 of 1
Author:  Dozer [ 2005-04-06 14:39:45 ]
Post subject:  Помогите исправить скрипт
Скрипт просто супер, но тока проблема в том, что он куёт тока даггеры, а при 87 БС уже нет смысла качаться на даггерах. Можете этот скрипт переписать скажем на катаны?





uo.addobject(Sunduk)
wait(4500)
var Forge = "Forge"
uo.print("oi??a..")
uo.addobject(Forge)
wait(4500)

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
var MenuIron="'Blacksmithing' 'Weapons'"
var MenuOther="'Colored' 'Weapons'"
var MenuSwords="Weapons' 'Swords'"
var MenuDagger="'Swords' '(3'"
var NameOre="'" ; ?aneiiiaioe?iaaou yoo no?ieo, anee eo?i ec Iron (inoaeuiua ia?aiaiiua NameOre caeiiiaioe?iaaou)
;var NameOre="'Rusty " ; ?aneiiiaioe?iaaou yoo no?ieo, anee eo?i ec Rusty (inoaeuiua ia?aiaiiua NameOre caeiiiaioe?iaaou)
;var NameOre="'Old Copper "
;var NameOre="'Dull Copper " ; ?aneiiiaioe?iaaou yoo no?ieo, anee eo?i ec Dull Copper (inoaeuiua ia?aiaiiua NameOre caeiiiaioe?iaaou)
;var NameOre="'Bronze " ; ?aneiiiaioe?iaaou yoo no?ieo, anee eo?i ec Bronze (inoaeuiua ia?aiaiiua NameOre caeiiiaioe?iaaou)



uo.UseObject(Sunduk)
while not uo.Dead()


uo.exec('automenu '+MenuDagger)
uo.exec('automenu '+NameOre +MenuSwords)
;uo.exec('automenu '+MenuOther) ; caeiiiaioe?iaaou yoo no?ieo, anee eo?i ec Iron
uo.exec('automenu '+MenuIron)

While Exit<>1
uo.DeleteJournal()
LastTimer=uo.Timer()

uo.UseType(0x1bef)

while not uo.InJournal("You put") and not uo.InJournal("You have failed")
wait(100)
wend

if uo.InJournal("You have failed") then
repeat
wait(100)
until uo.Timer()>=LastTimer+100 ; A?aiy nicaaiey aaaa?a
end if

uo.FindType('0x0f51',-1,'backpack')

if uo.GetQuantity('finditem') then
uo.WaitTargetObject('finditem')
uo.UseObject(Forge)
wait(3000)
end if

UO.FindType('0x1BEF','0x0000','backpack') ; ?aneiiiaioe?iaaou yoo no?ieo, anee eo?i ec Iron (inoaeuiua ia?aiaiiua caeiiiaioe?iaaou)
;uO.FindType('0x1BEF','0x0750','backpack') ; ?aneiiiaioe?iaaou yoo no?ieo, anee eo?i ec Rusty (inoaeuiua ia?aiaiiua caeiiiaioe?iaaou)
;UO.FindType('0x1BEF','0x0590','backpack') ; ?aneiiiaioe?iaaou yoo no?ieo, anee eo?i ec Old Copper (inoaeuiua ia?aiaiiua caeiiiaioe?iaaou)
;UO.FindType('0x1BEF','0x060A','backpack') ; ?aneiiiaioe?iaaou yoo no?ieo, anee eo?i ec Dull Copper (inoaeuiua ia?aiaiiua caeiiiaioe?iaaou)
;UO.FindType('0x1BEF','0x0488','backpack') ; ?aneiiiaioe?iaaou yoo no?ieo, anee eo?i ec Bronze (inoaeuiua ia?aiaiiua caeiiiaioe?iaaou)
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000',Sunduk) ;noiaoe n Ae?ii
;UO.FindType('0x1BEF','0x0750',Sunduk) ;noiaoe n ?anoe
;UO.FindType('0x1BEF','0x0590',Sunduk) ;noiaoe n Old Copper
;UO.FindType('0x1BEF','0x060A',Sunduk) ;noiaoe n Dull Copper
;UO.FindType('0x1BEF','0x0488',Sunduk) ;noiaoe n Bronze
wait(1000)
UO.Grab('300','finditem')
Endif
wait(1000)
wend
end sub
Author:  Savage [ 2005-04-06 22:20:18 ]
Post subject: 
Еще 1 мутант :) Смотри топик рядом.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/