Yoko

All sides of Injection
It is currently 2026-01-18 17:38:14

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
PostPosted: 2005-04-06 14:39:45 
Offline

Joined: 2005-04-06 14:36:57
Posts: 1
Скрипт просто супер, но тока проблема в том, что он куёт тока даггеры, а при 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


Top
   
 Post subject:
PostPosted: 2005-04-06 22:20:18 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Еще 1 мутант :) Смотри топик рядом.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 2 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 4 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited