1 reply to this topic

[Silekl1]

Добрый день. На форуме cremona выкладывал простой скрипт, чтоб просто копать до полного веса и останавливаться, сейчас его нет...может у кого то остался? или что то похожее есть? Мне надо самый простой, чтоб особо не разбираться, без всяких там координат, зашел в пещеру и копай) Спасибо.

[ArminVanBuuren]

sub Mining() 

   var x,y,z, n 

   VAR LastTimer 

   UO.Set('finddistance','2') 

   n=0 

   z=UO.GetZ("self") 

   for x=-2 to 2 

      for y=-2 to 2 

         UO.Print(str(x)+" "+str(y)) 

         Repeat 

            if UO.InJournal('TORMOZ') then 

               pause() 

            endif 

            UO.DeleteJournal() 

            UO.Warmode("0") 

            UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z)) 

            UO.UseType('0x0E85')

            #tohide()

            LastTimer=UO.Timer() 

            Repeat 

               wait(500)

               if uo.injournal("is attacking you") then

                  #tohide()

                  Pauza()

               endif

               wait(410)

               if uo.weight > 1000 then  ; Ìàêñèìàëüíûé âåñ ïðè êîòîðîì äîìîé ñ ðóäîé 

                  Pauza()

               endif 

            Until UO.InJournal("You put the Corrundum Mineral")  or UO.InJournal("You put the Tourmaline Mineral") or UO.InJournal("You put the Copper Ore") or UO.InJournal("You put the Tin Mineral") or UO.InJournal("You put the Iron Ore") or UO.InJournal("You put the Marganece Ore") or UO.InJournal("You cannot mine") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("stop") or UO.InJournal("You put the Lead Mineral") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200 

            if UO.InJournal("Corrundum") then 

               n=0 

            else 

               n=n+1 

            endif 

         Until UO.InJournal("nothing") or UO.InJournal("You put the Currundum Mineral") or UO.InJournal("You put the Bronze Mineral")  or UO.InJournal("You put the Tourmaline Mineral") or UO.InJournal("You put the Copper Ore") or UO.InJournal("You put the Tin Mineral") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5 

      next 

   next 

end sub

 

 

 

##############################################

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="in rock"

   var ms6="elsewhere"

   var ms7="nothing"

   var ms8="You cannot mine"

   var ms9="Correct code."

   

   var h1="Gypsum"

   var h2="Zink"

   var h3="Stone"

   var h4="Marble"

   var h5="Sandstone"

   var h6="Plaster"

   

   var ore1="Marganece"

   var ore2="Iron"

   var ore3="Copper"

   var ore4="Tourmaline"

   var ore5="Tin"

   var ore6="Bronze"

   var ore7="Lead"

   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('??????')

                  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(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6) or UO.Timer()>LastTimer+500

            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(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6)

         drop()            

      next 

   next 

end sub

 

Sub drop()

   var i

   var amount=15

   dim color[15]

   color[0]='0x06D6'   ;Marganece

   color[1]='0x0000'   ;Iron

   color[2]='0x0601'   ;Copper

   color[3]='0x04C2'   ;Tourmaline

   color[4]='0x052D'   ;Tin

   color[5]='0x0488'   ;Bronze

   color[6]='0x084D'   ;Lead      

   color[7]='0x060C'   ;Corrundum

   color[8]='0x04533'   ;Titan

   color[9]='0x03E3'   ;Gypsum

   color[10]='0x0026'  ;Zink

   color[11]='0x0909'  ;Stone

   color[12]='0x079E'  ;Marble 

   color[13]='0x0090'  ;Sandstone

   color[14]='0x0097'  ;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