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

bs pls
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2464		 Page 1 of 1
Author:  sub [ 2005-01-04 15:05:58 ]
Post subject:  bs pls
Вот мой скрипт на бс
sub Blacksmithing()
var Exit=0, LastTimer, Container='0x4015A25E', Forge='0x401F8FE1' ;
var CountIng=300 ;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)
end if
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 ; Âðåìÿ ñîçäàíèÿ äàãåðà
end if
CheckLag()

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

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

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
end if
else
wait(1000)
uo.Grab(STR(CountIng-10),'finditem')
end if
wend
Exit=0
uo.CancelMenu()
end if
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

как его доделать что бы брал инги когда они кончатся подскажите плз
Author:  Sfagnum [ 2005-01-04 15:33:44 ]
Post subject:  Re: bs pls
sub wrote:
Вот мой скрипт на бс
:D :lol:
Author:  sub [ 2005-01-04 16:11:58 ]
Post subject:  Re: bs pls
Sfagnum wrote:
sub wrote:
Вот мой скрипт на бс
:D :lol:
ну лана не МОЙ =) ну все же помогите плз
Author:  JIupus [ 2005-01-04 16:30:24 ]
Post subject: 
Весь твой скрипт не читал, но один мой таврищ делал так:
Code:
...
//Прежде, чем ковать находим инги в паке и сбрасываем их
uo.exec("findtype ironingot")
uo.exec("drop 0 -2 0 0 finditem")// в данном случае на землю
wait(1000)
uo.exec ("findtype ironingot -1 ground")//ищем кучку на земле
uo.exec("grab 500 finditem")//берем сколько нужно
wait(1000)

while uo.count("ironingot") > какого-то чилса
...
//куем
...
wend
Author:  Savage [ 2005-01-04 19:12:00 ]
Post subject: 
Знаю я, чей это скрипт, берет он инги пока не кончатся.
А ты поправил серийник контейнера с ингами?
Container='0x4015A25E'
Author:  sub [ 2005-01-04 23:32:15 ]
Post subject: 
Savage wrote:
Знаю я, чей это скрипт, берет он инги пока не кончатся.
А ты поправил серийник контейнера с ингами?
Container='0x4015A25E'
поправил но он все равно при запуске токо берет инги а когда они кончатся нет
Author:  Sfagnum [ 2005-01-05 08:59:01 ]
Post subject: 
Savage wrote:
Знаю я, чей это скрипт,
:)
Author:  sub [ 2005-01-05 13:59:07 ]
Post subject: 
хва флудить помогите лучше
Author:  AGRS [ 2005-01-05 18:29:27 ]
Post subject: 
sub wrote:
хва флудить помогите лучше


Пока ждешь помощь, перепиши скрипт с табуляцией, сделай комментарии читаемые, возьми его в code. А там глядишь и эксперты соизволят скрипт прочитать. :)
Author:  BETEPAH [ 2005-01-05 22:13:37 ]
Post subject: 
sub wrote:
хва флудить помогите лучше


А если ты не заметил ....то это скрипт МНОГОУВАЖАЕМОГО Savage...
Так что слушай старших .
Author:  Savage [ 2005-01-06 13:42:05 ]
Post subject: 
Может надо контейнер с ингами открыть перед запуском. Может вес для тебя большой, тогда поменьше ингов пусть берет.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/