Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Pablo : (15 March 2024 - 21:12) Sell regs from pandora box.
@  Pablo : (15 March 2024 - 21:11) Sell paralyze and poison necklaces 100k 1 piece.
@  fr33 : (11 March 2024 - 16:38) blee gm zb atdai bank
@  GM SOLAR : (10 March 2024 - 17:24) ОпЯТь лаГГи ! ! !
@  Pablo : (06 March 2024 - 17:48) Labākais hot ko esmu jebkad paņēmis :D
@  Senseless : (05 March 2024 - 09:42) Opatj ataki na server powli :(
@  Pablo : (03 March 2024 - 19:19) Riebiigais
@  Ganjakur : (03 March 2024 - 15:10) kāds niks mp?
@  Pablo : (02 March 2024 - 21:31) Var kāds iedot 40 kk priekš 11 lvl ?
@  Senseless : (02 March 2024 - 18:12) bratva estj u kogo script na ckerika na lamber ?
@  GM SOLAR : (02 March 2024 - 16:44) ALL GO NA CTF ! ! ! ! !
@  Ganjakur : (01 March 2024 - 17:32) labi
@  Pablo : (29 February 2024 - 12:08) Eu džeki, tie kuri vairāk nespēlē ultimu, varat droši man uzdāvināt savus itemus, vai pat savus acc. droši rakstam man privāti. Es vismaz uzturēšu šo serveri pie dzīvības :D
@  fr33 : (29 February 2024 - 09:45) yes
@  EmmaSb : (28 February 2024 - 21:00) Easyuo still working ?
@  Artemy Shan : (18 February 2024 - 20:42) Еще один фикс поставил. Смотрим, тестируем.
@  jurasiks : (18 February 2024 - 20:04) da pipec tu, zdelal on
@  Senseless : (17 February 2024 - 19:17) Lagi powli opatj
@  Artemy Shan : (17 February 2024 - 12:36) Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.
@  Artemy Shan : (13 February 2024 - 02:44) Сменился айпи для входа в игру. Теперь заходим через: loginserver=login.oldp.net,2593 или loginserver=91.121.232.151,2593

Photo

Ñêðèïò Mining


  • Please log in to reply
2 replies to this topic

#1 CarolinaVip

CarolinaVip
  • Members
  • 3 posts

Posted 06 February 2018 - 21:02

Ребят помогите со скриптом, знающие, поправьте пожалуйста. И добро вернётся добром))

Дело в том что я не особо понимаю эту механику, в основном google в помощь мне в готовых скриптах...а так, данный скрипт, он  не всегда окапывает вокруг себя и иногда в стену бежит и всё..

Поправьте пожалуйста, что бы окапывал вокруг себя все клетки...и/или если есть то копалка с движением...(только рабочая и проверенная.) помогите пожалуйста, можно если что в ЛС.

 

Сам скрипт

 

sub mine() 
   
   
   
   var x, y, i, tmp, inside, goto_x, st, first 
   
   
   
   st=0 
   
   
   
   first=UO.GetX() 
   
   
   
   start: 
   
   
   
   inside=0 
   
   
   
   for y=-2 to 2 
      
      
      
      for x=-2 to 2 
         
         
         
         try: 
         
         
         
         UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0") 
         
         
         
         UO.exec ("usetype 0x0E85") 
         
         
         
         #UO.Print (""+STR(x)) 
         
         
         
         #UO.Print (""+STR(y)) 
         
         
         
         i=0 
         
         
         
         while i< 100 
            
            
            
            if UO.InJournal("You loosen some rocks but fail to find any useable ore") then 
               
               
               
               wait (1000) 
               
               
               
               i=200 
               
               
               
               UO.DeleteJournal() 
               
               
               
               goto try 
               
               
               
            endif 
            
            
            
            if UO.InJournal("Try mining elsewhere") then 
               
               
               
               i=200 
               
               
               
               UO.DeleteJournal() 
               
               
               
            endif 
            
            
            
            if UO.InJournal("You cant mine in this Region.") then 
               
               
               
               i=200 
               
               
               
               UO.DeleteJournal() 
               
               
               
            endif 
            
            
            
            if UO.InJournal("You must wait to perform another action") then 
               
               
               
               wait (1000) 
               
               
               
               i=200 
               
               
               
               UO.DeleteJournal() 
               
               
               
               goto try 
               
               
               
            endif 
            
            
            
            if uo.InJournal("till")then 
               
               
               
               uo.playwav("???? ?? ??????") 
               
               
               
               wait(1000) 
               
               
               
               i=200 
               
               
               
               UO.DeleteJournal() 
               
               
               
               goto try 
               
               
               
            endif  
            
            
            
            if uo.InJournal("Elemental") or uo.InJournal("is attacking you")then 
               
               
               
               uo.playwav("???? ?? ??????") 
               
               
               
               killelem() 
               
               
               
               wait(1000) 
               
               ;loot() 
               
               
               
               i=200 
               
               
               
               UO.DeleteJournal() 
               
               
               
               goto try 
               
               
               
            endif  
            
            
            
            if UO.InJournal("There is nothing here to mine for")  then 
               
               
               
               wait (1000) 
               
               
               
               i=200 
               
               
               
               UO.DeleteJournal() 
               
               
               
            endif 
            
            
            
            if UO.InJournal("You have no line of sight to that location") then 
               
               
               
               wait (1000) 
               
               
               
               i=200 
               
               
               
               UO.DeleteJournal() 
               
               
               
            endif 
            
            
            
            wait (500) 
            
            
            
            i=i+1 
            
            
            
            if uo.weight > 700 then 
               
               
               
               uo.findtype(0x19B9,0x06D6,2) 
               
               
               
               UO.MoveItem('finditem', '0', 'ground') 
               
               
               
               wait (100) 
               
               
               
            endif 
            
            
            
         wend 
         
         
         
      next 
      
      
      
   next 
   
   
   
   
   
   
   
   if st == 0 then 
      
      
      
      goto_x=UO.GetX()+5 
      
      
      
      while inside < 10 
         
         
         
         while UO.GetX() < goto_x 
            
            
            
            UO.Press (39, 1, 500) 
            
            
            
            inside=0 
            
            
            
         wend 
         
         
         
         while UO.GetX() > goto_x 
            
            
            
            UO.Press (37, 1, 500) 
            
            
            
            inside=0 
            
            
            
         wend 
         
         
         
         inside=inside+1 
         
         
         
         wait (300) 
         
         
         
      wend 
      
      
      
      st=1 
      
      
      
      goto start 
      
      
      
   endif 
   
   
   
   
   
   
   
   if st == 1 then 
      
      
      
      while inside < 10 
         
         
         
         while UO.GetX() < first 
            
            
            
            UO.Press (39, 1, 500) 
            
            
            
            inside=0 
            
            
            
         wend 
         
         
         
         while UO.GetX() > first 
            
            
            
            UO.Press (37, 1, 500) 
            
            
            
            inside=0 
            
            
            
         wend 
         
         
         
         inside=inside+1 
         
         
         
         wait (300) 
         
         
         
      wend 
      
      
      
      st=0 
      
      
      
   endif 
   
   
   
end sub


#2 Skotch

Skotch

    Novice Player

  • Members
  • 113 posts
  • Gender:Male
  • Location:Riga
  • Interests:Supermoto

Posted 06 February 2018 - 22:13

Изпользуй EASYUO - На форуме куча скриптов для этой платформы.


TgpF7k.png


#3 1exa

1exa

    Master

  • Members
  • 769 posts
  • Gender:Male

Posted 07 February 2018 - 09:35

первый раз такой вижу ))






1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users