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

Помогите подправить скрипт на БС
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1815		 Page 1 of 1
Author:  ZloY [ 2004-11-02 15:15:19 ]
Post subject:  Помогите подправить скрипт на БС
sub BSl()
VAR Exit=0, LastTimer, Container='0x400BB8C7', Forge='0x402B89C6' ;0x4012B38B 0x4013C8D2
VAR CountIng=800 ; Skol`ko ingov podnimaet
VAR MenuIron="'Blacksmithing' 'Weapons'"
VAR MenuOther="'Colored' 'Weapons'"
VAR MenuSwords="Weapons' 'Swords'"
VAR MenuDagger="'Swords' '(3'"
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 '+MenuDagger)
UO.Exec('automenu '+NameOre[i]+MenuSwords)
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 ;time to make a dagger
EndIf
CheckLag()

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

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

UO.FindType('0x1BEF',-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

sub CheckLag()
IF UO.Waiting() > 0 THEN
UO.Exec("canceltarget")
END IF
UO.DeleteJournal()
UO.Click('backpack')
REPEAT
WAIT(50)
UNTIL UO.InJournal('backpack')
end sub

Как сделать чтоб он инги брал не один раз а постоянно как тока кончаться, а то макр начинаеться - сумка открываеться, беруться инги а когда они кончаються у чара в паке он из сумки их уже не берет хотя там еще 5к?
Author:  Bloodmoon [ 2004-11-02 15:18:25 ]
Post subject: 
Мне этот скрипт вобще не нравиться.Лудше поищи на сайте.
Author:  ZloY [ 2004-11-02 15:23:39 ]
Post subject: 
Bloodmoon wrote:
Мне этот скрипт вобще не нравиться.Лудше поищи на сайте.


Это под ДРВ нормальный скрипт он этиже даггеры расплавляет сразу и заного делает но с условием физлов инги всеравно кончаються, а так почти безотходный скрипт вопрос тока во времени и чтоб он окаянные инги заного брал.
Author:  Bloodmoon [ 2004-11-02 15:26:11 ]
Post subject: 
Не знаю,у меня огромный запасы руды.И как он у меня качает:берет ирги(600 шт.),мешочек.И начинает делать!А когда все сделал,он кладет в другой ящик!
Author:  ZloY [ 2004-11-02 15:53:49 ]
Post subject: 
Bloodmoon wrote:
Не знаю,у меня огромный запасы руды.И как он у меня качает:берет ирги(600 шт.),мешочек.И начинает делать!А когда все сделал,он кладет в другой ящик!


Лин вот люди прошу подправить а ты умничаеш вместо того чтоб помочь =) я мож бедный
Author:  ZloY [ 2004-11-03 07:38:43 ]
Post subject: 
up
Author:  drcrazy [ 2004-11-03 10:44:38 ]
Post subject: 
Yo!
Вроде на сайте дофига скриптов на БС, в т.ч. под ДРВ. Меня, лично, просто ломает ползать по таким большим кускам кода..
Author:  Bloodmoon [ 2004-11-03 11:59:35 ]
Post subject: 
Злой,зайди в другой раздел Скриптов.Там под ДРВ валялся!
Author:  Sfagnum [ 2004-11-03 12:39:00 ]
Post subject: 
ZloY wrote:
up
а мне стукнуть не судьба?
Author:  AGRS [ 2004-11-03 12:43:18 ]
Post subject: 
Bloodmoon wrote:
Мне этот скрипт вобще не нравиться.Лудше поищи на сайте.


Какой привередливый. А я на пилоте качал и ничего...
Author:  Bloodmoon [ 2004-11-04 00:52:43 ]
Post subject: 
Не,я качал БС до 59% на AutoPilotе.Было круто!Мышка бегало по всему экрану.Просто смех раздирал :)
А щас на инже.88,2% на данный момент(когда писал этот пост).:)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/