Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  fr33 : (Yesterday, 16:56) ты хочешь сесть на жопу?
@  Ultra : (13 October 2018 - 20:39) Хочу высказатся по поводу тейминга , фрося ты дурак ? Все в равных условия и если увеличить время возрастут цены
@  E-D-I : (13 October 2018 - 04:54) Грига,иди в бар лучше ) смотрю,у тебя нервы перевозбудились от недостатка алкоголя ))))
@  Gogogo : (13 October 2018 - 01:01) TOKA VIHODIT KOGDA 20+SINIH
@  Gogogo : (13 October 2018 - 01:01) VSE PADAJUT EGONIS MP KAK POSLEDNIJ LOH SIDIT :D
@  GA GA GA : (12 October 2018 - 23:52) ejiet uz chaos mes uz order paskatisimies kaa jus skriesiet moona pa gz :D
@  GA GA GA : (12 October 2018 - 23:51) po gz vini sit :DD kad 7 kasteri vs 2 kastera :DDDDDD kad chaosiem bija 5 kasteri,tu kaut vienu no tiem kasteriem redzeji ko vins met inpoylemu non stop? :D a jus baklani 3jata uz vienu magu inpoylemami sitat,klauni ept
@  GA GA GA : (12 October 2018 - 23:47) 4 cilvekus :DDD jus mazak kaa 10 cilveki nekad neesat ko tu te muld...
@  GA GA GA : (12 October 2018 - 23:46) ty razve ne v GZ sdoh v poslednij raz? :D
@  Egoons : (12 October 2018 - 23:26) mes pirmstam menesi juus pa gz sitaam, neko foruma nerakstijam utt. juus pat 4 cilvekus pa gz nevarat atnakt pasist, bet foruma maakat raudaat!
@  GA GA GA : (12 October 2018 - 22:21) idi kopaj dalshe :D
@  Djukok : (12 October 2018 - 22:02) Ник похож и темперамент тоже)))
@  GA GA GA : (12 October 2018 - 21:54) poka ne pridet 15 4elovek :D
@  GA GA GA : (12 October 2018 - 21:54) 4 4eloveka :DDDD vas 6-7 kasterov vy v GZ sidite i govorite my ne poidem u vas ar4ery :D
@  fr33 : (12 October 2018 - 21:49) 1 день и вы на жопе
@  Djukok : (12 October 2018 - 20:54) Беда )) Люди не меняются. Но нам тоже нужен хоть один клоун ) Грига ты опасен )))
@  Gogogo : (12 October 2018 - 20:49) 1 denj i vi nazhope
@  Gogogo : (12 October 2018 - 20:49) shana poprosish djukok ?
@  Gogogo : (12 October 2018 - 20:48) mozhet block postavitj
@  Gogogo : (12 October 2018 - 20:48) vse psc

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

    Journeyman

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

Posted 06 February 2018 - 22:13

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


TgpF7k.png


#3 1exa

1exa

    Advanced Player

  • Members
  • 321 posts
  • Gender:Male

Posted 07 February 2018 - 09:35

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






1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users