Yoko

All sides of Injection
It is currently 2018-07-22 16:03:21

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
PostPosted: 2017-03-19 20:42:04 
Offline

Joined: 2010-02-16 16:10:20
Posts: 23
Помоги пожалуйста зациклить скрипт на миннинг. Останавливается после надписи ' 2 2 ' , я так понял цикл заканчивается от -2 до 2. Пробовал убрать кусок , не помогло. Вставить wend , тоже.

sub main()
var x, y,z
VAR LastTimer
var ms1="can't see"
var ms2="heavy"
var ms3="location"
var ms4="far away"
var ms5="loosen some"
var ms6="elsewhere"
var ms7="nothing"
var ms8="You cannot mine"
var ms9="Correct code."

var h1="Ancient"
var h2="Mystic"
var h3="Vavilons"
var h4="Sandrock"
var h5="Glory"
var h6="Magma"
var h7="Defense"

var ore1="Dolomite"
var ore2="Iron"
var ore3="Gypsum"
var ore4="Aluminium"
var ore5="Tin"
var ore6="Bronze"
var ore7="Zink"
var ore8="Corrundum"
var ore9="Titan"

UO.Set('finddistance','2')
z=UO.GetZ("self")
for x=-2 to 2
for y=-2 to 2
UO.Print(str(x)+" "+str(y))
Repeat
UO.DeleteJournal()
UO.Exec("warmode 0")
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
UO.UseType('0x0E85')
CheckLag()
LastTimer=UO.Timer()
Repeat
If uo.lastgump('replyed') == 0 && uo.lastgump('text') == 'Please enter code:' Then
uo.textopen()
uo.textprint('Ahtung')
While not uo.InJournal(ms9)
wait(100)
Wend
End If
wait(100)
Until UO.InJournal(ms1) or UO.InJournal(ms2) or UO.InJournal(ms3) or UO.InJournal(ms4) or UO.InJournal(ms5) or UO.InJournal(ms6) or UO.InJournal(ms7) or UO.InJournal(ms8) or UO.InJournal(ms9) or UO.InJournal(ore1) or UO.InJournal(ore2) or UO.InJournal(ore3) or UO.InJournal(ore4) or UO.InJournal(ore5) or UO.InJournal(ore6) or UO.InJournal(ore7) or UO.InJournal(ore8) or UO.InJournal(ore9) or UO.InJournal(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6) or UO.InJournal(h7) or UO.Timer()>LastTimer+1000
uo.exec("warmode 1")
wait(50)
uo.exec("warmode 0")
Until UO.InJournal(ms3) or UO.InJournal(ms4) or UO.InJournal(ms5) or UO.InJournal(ms6) or UO.InJournal(ms7) or UO.InJournal(ore1) or UO.InJournal(ore2) or UO.InJournal(ore3) or UO.InJournal(ore4) or UO.InJournal(ore5) or UO.InJournal(ore6) or UO.InJournal(ore7) or UO.InJournal(ore8) or UO.InJournal(ore9) or UO.InJournal(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6) or UO.InJournal(h7)
drop()
next
next
end sub

Sub drop()
var i
var amount=15
dim color[15]
color[0]='0x0750' ;Dolomite
color[1]='0x0000' ;Iron
color[2]='0x03E3' ;Gypsum
color[3]='0x03C0' ;Aluminium
color[4]='0x0222' ;Tin
color[5]='0x0488' ;Bronze
color[6]='0x084D' ;Lead
color[7]='0x060C' ;Corrundum
color[8]='0x0453' ;Titan
color[9]='0x0497' ;Ancient
color[10]='0x0026' ;Zink
color[11]='0x0863' ;Vavilons
color[12]='0x079E' ;Marble
color[13]='0x0090' ;Sandstone
color[14]='0x0097'
color[14]='0x0750 ' ;Plaster ;--

uo.ignorereset()
repeat
uo.deletejournal()
for i = 0 to amount-1
uo.findtype('0x19B9',color[i],'backpack')
if uo.Targeting()==1 then
uo.canceltarget()
end if

If uo.findcount() > 0 then
UO.WaitTargetObject('finditem')
UO.Drophere('finditem')
Wait(100)
End If
Next
end sub

Sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal("backpack")
end sub


Top
   
PostPosted: 2017-03-19 20:49:06 
Offline

Joined: 2010-02-16 16:10:20
Posts: 23
opex wrote:
Помоги пожалуйста зациклить скрипт на миннинг. Останавливается после надписи ' 2 2 ' , я так понял цикл заканчивается от -2 до 2. Пробовал убрать кусок , не помогло. Вставить wend , тоже.

sub main()
var x, y,z
VAR LastTimer
var ms1="can't see"
var ms2="heavy"
var ms3="location"
var ms4="far away"
var ms5="loosen some"
var ms6="elsewhere"
var ms7="nothing"
var ms8="You cannot mine"
var ms9="Correct code."

var h1="Ancient"
var h2="Mystic"
var h3="Vavilons"
var h4="Sandrock"
var h5="Glory"
var h6="Magma"
var h7="Defense"

var ore1="Dolomite"
var ore2="Iron"
var ore3="Gypsum"
var ore4="Aluminium"
var ore5="Tin"
var ore6="Bronze"
var ore7="Zink"
var ore8="Corrundum"
var ore9="Titan"

UO.Set('finddistance','2')
z=UO.GetZ("self")
for x=-2 to 2
for y=-2 to 2
UO.Print(str(x)+" "+str(y))
Repeat
UO.DeleteJournal()
UO.Exec("warmode 0")
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
UO.UseType('0x0E85')
CheckLag()
LastTimer=UO.Timer()
Repeat
If uo.lastgump('replyed') == 0 && uo.lastgump('text') == 'Please enter code:' Then
uo.textopen()
uo.textprint('Ahtung')
While not uo.InJournal(ms9)
wait(100)
Wend
End If
wait(100)
Until UO.InJournal(ms1) or UO.InJournal(ms2) or UO.InJournal(ms3) or UO.InJournal(ms4) or UO.InJournal(ms5) or UO.InJournal(ms6) or UO.InJournal(ms7) or UO.InJournal(ms8) or UO.InJournal(ms9) or UO.InJournal(ore1) or UO.InJournal(ore2) or UO.InJournal(ore3) or UO.InJournal(ore4) or UO.InJournal(ore5) or UO.InJournal(ore6) or UO.InJournal(ore7) or UO.InJournal(ore8) or UO.InJournal(ore9) or UO.InJournal(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6) or UO.InJournal(h7) or UO.Timer()>LastTimer+1000
uo.exec("warmode 1")
wait(50)
uo.exec("warmode 0")
Until UO.InJournal(ms3) or UO.InJournal(ms4) or UO.InJournal(ms5) or UO.InJournal(ms6) or UO.InJournal(ms7) or UO.InJournal(ore1) or UO.InJournal(ore2) or UO.InJournal(ore3) or UO.InJournal(ore4) or UO.InJournal(ore5) or UO.InJournal(ore6) or UO.InJournal(ore7) or UO.InJournal(ore8) or UO.InJournal(ore9) or UO.InJournal(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6) or UO.InJournal(h7)
drop()
next
next
end sub

Sub drop()
var i
var amount=15
dim color[15]
color[0]='0x0750' ;Dolomite
color[1]='0x0000' ;Iron
color[2]='0x03E3' ;Gypsum
color[3]='0x03C0' ;Aluminium
color[4]='0x0222' ;Tin
color[5]='0x0488' ;Bronze
color[6]='0x084D' ;Lead
color[7]='0x060C' ;Corrundum
color[8]='0x0453' ;Titan
color[9]='0x0497' ;Ancient
color[10]='0x0026' ;Zink
color[11]='0x0863' ;Vavilons
color[12]='0x079E' ;Marble
color[13]='0x0090' ;Sandstone
color[14]='0x0097'
color[14]='0x0750 ' ;Plaster ;--

uo.ignorereset()
repeat
uo.deletejournal()
for i = 0 to amount-1
uo.findtype('0x19B9',color[i],'backpack')
if uo.Targeting()==1 then
uo.canceltarget()
end if

If uo.findcount() > 0 then
UO.WaitTargetObject('finditem')
UO.Drophere('finditem')
Wait(100)
End If
Next
end sub

Sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal("backpack")
end sub


Не знаю поможет или нет, друг дал кусок скрипта, сказал " вставляй все что хочешь"

sub tail()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()

wend


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 2 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited