Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Imobilaizer : (Today, 10:14) @bazss ti co svoi cerep nazad prinos suda ? ��
@  bazss : (Yesterday, 20:41) pampam pam
@  regi : (Yesterday, 17:54) beatiful ti kuda svoj cerep sujosh so svim video :D
@  sonyplayer : (Yesterday, 16:40) @Imobilaizer е*анат =))))))) ты мне угрожаешь? ;DD Пикселями? :DD
@  beatiful : (Yesterday, 15:00)
@  regi : (Yesterday, 13:37) vot vi narkomani :D
@  Imobilaizer : (Yesterday, 13:12) @sonyplayer podgatovj kargo seti i doleko ot gz ne begai. Ignore
@  Imobilaizer : (Yesterday, 12:50) @sonyplayer ti palcem delanij ? Zacem duman etot chat ? Mne ego licno naiti i sprosit zacem on eto delaet ? Kakoe tvojo delo sidi na svoej zhope i ne dorgaisa.
@  sonyplayer : (Yesterday, 11:59) @Imobilaizer Вот пойди ему и выскажи че ты на форум полез плакса безграмотная? Тебе задали вопрос касательно ПРИКОЛА ,ты даже на него не можешь ответить
@  beatiful : (Yesterday, 11:41) Ti tut svoj cherep sujos kuda????? ne nado!!!!! :DDDDDDDDDD AHAHAHAH CHEREP SUJOSH blaaaaaaaa
@  Imobilaizer : (Yesterday, 09:32) @sonyplayer ti pocitaj svoju blevotinu. Ti tut svoj cherep sujos kuda ne nado. On tebja vesj wop pilkak ? Eto mojo delo esle on menja pulkaet nonstope ja viskszivsju svoi misli pro eto a ti sujos nos svoj suda tak kak esle eto ne ti i on tebja ne izbesil to s hrens ti suda zalez ?
@  sonyplayer : (Yesterday, 08:23) @Imobilaizer Подбирай выражения, или вам молчанки не выдают?
Тебя задела правда за душу и ты решил перейти на оскорбления?
@  Imobilaizer : (18 February 2019 - 21:46) @sonyplayer ti realno epanutij na golovu?
@  sonyplayer : (18 February 2019 - 18:59) @Imobilaizer У меня с этим все в порядке, просто ты суешь свой нос не в свое дело... У когото прикол дурь курить, у когото алкашка, а у когото 12947159 стрелок кинуть. Ведь твое мнение не спрашивали верно?
@  Imobilaizer : (18 February 2019 - 18:09) @sonyplayer a tebe tolko bi ljapnut cota. Nedostatok vnimanie ?
@  sonyplayer : (18 February 2019 - 11:54) @Imobilaizer тебя забыл он спросить в чем заключается прикол...
@  Imobilaizer : (17 February 2019 - 23:07) dzo-natans vesj server perestrelal? parenj 2h nonstop im por ylem :D gde prikol...
@  Grund1k_ : (17 February 2019 - 19:18) Buy Rp
@  maloypowerone : (17 February 2019 - 16:13) SELL 220K FAME
@  Grund1k_ : (16 February 2019 - 00:11) Buy 200rp

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
  • 100 posts
  • Gender:Male
  • Location:Riga
  • Interests:Supermoto

Posted 06 February 2018 - 22:13

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


TgpF7k.png


#3 1exa

1exa

    Senior Player

  • Members
  • 522 posts
  • Gender:Male

Posted 07 February 2018 - 09:35

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






1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users