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

pomogite so scriptom!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4048		 Page 1 of 1
Author:  Dreik [ 2005-05-22 00:36:39 ]
Post subject:  pomogite so scriptom!
vot script...BS

sub BS()
var counter,z,ingcount,gCount,p,CurCOnt,flag=0
dim container[5]
container[0]=0x4004ADBB
container[1]=0x4000697F
container[2]=0x400126E8
container[3]=0x40023F18
container[4]=0x40023F74
container[5]=0x40045F3F
start:
UO.Print("Berem 300 ingov")
UO.Findtype( 0x1BEF, 0x06D6, 0x40030E23 )
UO.Exec( "moveitem finditem 300" )
wait(1000)
while UO.Weight>200
UO.DeleteJournal()
UO.UseType("0x1BEF")
wait(1000)
UO.LClick(480,452)

counter=0
UO.DeleteJournal()
while not UO.InJournal("failed") and not UO.InJournal("You put") and counter<60
wait(500)
counter=counter+1
wend
UO.FindType("0x1414" )

UO.moveitem ('finditem' ,1, container[flag])
if flag==5 then
flag=0
endif
if flag==4 then
flag=5
endif
if flag==3 then
flag=4
endif
if flag==2 then
flag=3
endif
if flag==1 then
flag=2
endif
if flag==0 then
flag=1
endif
wend
goto start
end sub
###################################################
sub BucklerSmelting()
repeat
UO.FindType('0x1B73',-1,'backpack')
wait(275)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4001459D) ; ????
Endif

until UO.Dead()
end sub

===============================================
ktonibutj mozet peredelatj etot script tak 6tob, 1 bral ingi, delal 6mot, plavil i potom opatj bral bi ingi do nuzhnogo vesa itd.
Author:  GobliN [ 2005-05-22 01:34:24 ]
Post subject: 
Попробуи этот
Quote:
sub BS_Айрон_Helmet()
VAR Exit=0, LastTimer
while Exit<>1
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40364638') ;serial sunduka s iron
UO.Grab('500','finditem')
wait(400)
Endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Shields','Shields','buckler')
UO.UseType(0x1BEF) ; iron ings

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(550)
wend

If UO.InJournal("You have failed") then
repeat
wait(150)
until UO.Timer()>=LastTimer+100 ;time to make a helm
EndIf

UO.FindType('0x1B73',-1,'backpack') ; helm
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4032ED47) ;forge
Endif
wait(1000)
wend
end sub

Или тебе сюда
http://yoko.netroof.net/forum/search.php
Author:  Dreik [ 2005-05-22 03:03:33 ]
Post subject: 
Spasibo! vso rabotaet! :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/