Jump to content

  2. → Viewing Profile: Posts: ArminVanBuuren

Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Costesti : (10 June 2025 - 22:26) Артём закрой сервер толку от него ноль так как лаги бешеные ничего не сделать
@  Costesti : (10 June 2025 - 21:03) бля это у меня сервер только логает или у всех?
@  papasha : (10 June 2025 - 15:13) @Costesti da kanesna vvodit, uze dohuja obnov vishlo za 7 let poslednix!!
@  Costesti : (09 June 2025 - 18:34) Артём ты там нововведения водишь?
@  Costesti : (09 June 2025 - 18:31) Сервер работает?
@  Costesti : (31 May 2025 - 23:46) Шан комп меняй уже игру не тянет
@  Costesti : (31 May 2025 - 20:02) мда никому не нужен этот сервер
@  fr33 : (29 May 2025 - 14:07) shenahnan gnom
@  fr33 : (29 May 2025 - 14:07) gm zb!!!1 lagi ept
@  Costesti : (28 May 2025 - 22:43) и это опять и за сейвы
@  Costesti : (28 May 2025 - 22:43) Народ да у кого там номер Шана пускай чинит сервер
@  Costesti : (27 May 2025 - 21:38) Вопрос Крафтить молоко можно?
@  fr33 : (26 May 2025 - 17:33) gm blad chini lag
@  Costesti : (23 May 2025 - 22:37) Бешеные лаги
@  Costesti : (17 May 2025 - 22:54) Опять лаги на Сервере
@  fr33 : (12 May 2025 - 15:21) ble daite mne gm i zdelaju pvp vam
@  Mokasin : (12 May 2025 - 09:04) Puišiem nav garlaicīgi xDDD
@  Egoons : (10 May 2025 - 18:48) lanc 2025 gads jau, ara silts atkal. tas taa, infai
@  beatiful : (10 May 2025 - 10:14) griga pidar
@  fr33 : (08 May 2025 - 17:53) griga eta samij zoskj dalbaeb etam server

ArminVanBuuren

Member Since 30 Sep 2008
Offline Last Active Oct 12 2016 16:30
-----

Posts I've Made

In Topic: Фпс

05 October 2016 - 21:10

e ljudi chto takoe FPs ? )) kakie to novie ubegalki s prizhkami? ))


In Topic: Опять Mining, Скрипт Давал Cremona

02 October 2016 - 13:13

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 

In Topic: Кто Пройдет Невби Исланд ?

01 October 2016 - 17:37

menjaju skroli 7-8 krug u kogo 4ego estj ?


In Topic: Newbie Island

29 September 2016 - 11:00

posmotri vozle banka v jawike , ja liwnie tuda skidavaju :)


  1. Old Paradise Forums
  2. → Viewing Profile: Posts: ArminVanBuuren
  3. Privacy Policy