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

Пожалусто помогите со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=739		 Page 1 of 1
Author:  Stranger[BV] [ 2004-07-01 01:49:56 ]
Post subject:  Пожалусто помогите со скриптом
помогите разобраться где ошибка!!
sub BSSoul()
VAR Exit=0, LastTimer, Container='0x400AE62C', Forge='0x40035F1A'
VAR CountIng=1000 ; Skol`ko ingov podnimaet
VAR MenuIron=("Blacksmithing","Armor")
VAR MenuOther=("Armor","Plate Mail")
VAR Menuarmor="armor' 'PlateMail'"
VAR menuPlatemail("Plate Mail",'25')
VAR i=0

DIM ColorOfIng[6]
DIM NameOre[6]

NameOre[0]="'"
NameOre[1]="'Rusty "
NameOre[2]="'Old Copper "
NameOre[3]="'Dull Copper "
NameOre[4]="'Bronze "


ColorOfIng[0]='0x0000' ; Iron
ColorOfIng[1]='0x0750' ; Rusty
ColorOfIng[2]='0x0590' ; Old Copper
ColorOfIng[3]='0x060A' ; Dull Copper
ColorOfIng[4]='0x0488' ; Bronze


UO.UseObject(Container)

while NOT UO.Dead()
For i=0 to 4
UO.FindType('0x1BEF',ColorOfIng[i],Container)
If UO.GetQuantity('finditem')>10 Then
UO.Grab(STR(CountIng),'finditem')
wait(1000)

UO.Exec('automenu '+MenuPlatemail)
UO.Exec('automenu '+NameOre[i]+MenuArmor)
If i>0 Then
UO.Exec('automenu '+MenuOther)
Endif
UO.Exec('automenu '+MenuIron)

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

UO.UseType(0x1BEF) ; ings

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
EndIf
CheckLag()

UO.FindType('0x0F51',-1,'backpack')

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(Forge) ;forge
wait(3000)
Endif

UO.FindType('armor',-1,'backpack')
If UO.GetQuantity('finditem')<10 Then
UO.FindType('0x1BEF',ColorOfIng[i],Container)
If UO.GetQuantity('finditem')<10 Then
UO.FindType('0x1BEF',ColorOfIng[i],'backpack')
UO.SetReceivingContainer(Container)
UO.Grab('all','finditem')
UO.UnSetReceivingContainer()
Exit=1
Endif
Else
wait(1000)
UO.Grab(STR(CountIng-10),'finditem')
Endif
Wend
Exit=0
UO.CancelMenu()
Endif
Next
wend
end sub

я хочу чтоб он ковал только плэйту
Author:  Savage [ 2004-07-01 23:47:36 ]
Post subject: 
http://www.drw.ru/forum/viewtopic.php?t ... l&start=25
Author:  Stranger[BV] [ 2004-07-04 18:49:54 ]
Post subject: 
там написанно на прокачку бса он там делает ножи а я переделал скрипт на кование плэйты но почемуто он не хочет ползать по меню и говорит что скрипт не пашет
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/