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/ |