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

Помоги пожалуйста зациклить скрипт на миннинг.
http://forum.yoko.com.ua/viewtopic.php?f=3&t=17969
Page 1 of 1

Author:  opex [ 2017-03-19 20:42:04 ]
Post subject:  Помоги пожалуйста зациклить скрипт на миннинг.

Помоги пожалуйста зациклить скрипт на миннинг. Останавливается после надписи ' 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

Author:  opex [ 2017-03-19 20:49:06 ]
Post subject:  Re: Помоги пожалуйста зациклить скрипт на миннинг.

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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/