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

Пропали Вещи На Мининг+10


  • This topic is locked This topic is locked
25 replies to this topic

#21 Artemy Shan

Artemy Shan

    Founder

  • Administrators
  • 21257 posts
  • Gender:Male

Posted 20 September 2017 - 19:41

Спасибо! А на mining есть у кого?


Наш канал в discord

In God We Trust!

#22 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 20 September 2017 - 19:44

; Set Up The Following Variables:
set %maxWeight 800       ; Max svars
set %box IXOUJMD         ; id korobki
set %foodCont IXOUJMD    ; kur staav rezerves piens un bekons
set %xCoord 1923         ; X koordinaata rjadom boxa
set %yCoord 376         ; Y koordinaata rjadom boxa
set %dropMarganece #true ; #true - sbrasiveat Marganece ruudu , #false - ne sbrasiveat
set %skillItemChange #false ; #true - menjajet skill itemi, #false - net
set %tracking #false     ; #true - izpolzujet tracking, #false - net
set %runebookID RSWHKMD ; Runebook ID
set %runeNumberToGZ 7     ; NR runi na GZ
set %runeNumberToCave 8  ; Nr runi na mesto kapalki
set %trackingWait 200s ; skoka zhdatj gz, kogda uvidit playera
; Do Not Set These Items If %skillItemChange #false
set %skillRobe PBJKKMD  ; Skill Roba (ID)
set %skillCloak HQIKKMD ; Skill Cloack (ID)
set %skillMask EYIKKMD  ; Skill Mask (ID)
set %simpleRobe JVBQLMD ; Parasta Roba (ID)
set %simpleCloak HMMWJMD ; Parastais cloack (ID)
set %simpleMask OSH ; Platemail helms (ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runeNumberToHome 6  ; Runas Nr uz maaju
set %recall #false    ; #true - lidos ar runebook, #false - skries taapat
set %amountRecalls 10 ; skoljko vzjat recall esli ih net
set %password  ; password
 
 
 
set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_RMK
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG
 
 
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
gosub Instalyze runeNumberToGZ 3
event sysmessage Setting Paperdoll in right position..
event macro 8 1
wait 30
event macro 8 1
wait 30
contpos 780 -26
finditem QRM_FJM_GKM C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 30
}
 
start:
 
 
 
 GOSUB LJING 1917 370 1359
 GOSUB LJING 1917 371 1342
 GOSUB LJING 1917 372 1341
 GOSUB LJING 1917 373 1340
 GOSUB LJING 1917 374 1339
 GOSUB LJING 1917 375 1343
 GOSUB LJING 1917 376 1346
 GOSUB LJING 1916 376 1347
 GOSUB LJING 1916 375 1343
 GOSUB LJING 1916 374 1339
 GOSUB LJING 1916 373 1340
 GOSUB LJING 1916 372 1341
 GOSUB LJING 1916 371 1342
 GOSUB LJING 1916 370 1357
 GOSUB LJING 1915 370 1358
 GOSUB LJING 1915 371 1343
 GOSUB LJING 1915 372 1342
 GOSUB LJING 1915 373 1341
 GOSUB LJING 1915 374 1340
 GOSUB LJING 1915 375 1343
 GOSUB LJING 1915 376 1345
 GOSUB LJING 1914 376 1351
 GOSUB LJING 1914 375 1339
 GOSUB LJING 1914 374 1342
 GOSUB LJING 1914 373 1343
 GOSUB LJING 1914 372 1339
 GOSUB LJING 1914 371 1340
 GOSUB LJING 1914 370 1359
 GOSUB LJING 1913 370 1358
 GOSUB LJING 1913 371 1339
 GOSUB LJING 1913 372 1343
 GOSUB LJING 1913 373 1342
 GOSUB LJING 1913 374 1341
 GOSUB LJING 1912 374 1346
 GOSUB LJING 1912 373 1339
 GOSUB LJING 1912 372 1341
 GOSUB LJING 1912 371 1343
 GOSUB LJING 1912 370 1343
 GOSUB LJING 1912 369 1363
 GOSUB LJING 1911 369 1343
 GOSUB LJING 1911 370 1342
 GOSUB LJING 1911 371 1341
 GOSUB LJING 1911 372 1340
 GOSUB LJING 1911 373 1339
 GOSUB LJING 1911 374 1345
 GOSUB LJING 1910 374 1351
 GOSUB LJING 1910 373 1343
 GOSUB LJING 1910 372 1342
 GOSUB LJING 1910 371 1341
 GOSUB LJING 1910 370 1340
 GOSUB LJING 1910 369 1339
 GOSUB LJING 1910 368 1358
 GOSUB LJING 1909 368 1343
 GOSUB LJING 1909 369 1342
 GOSUB LJING 1909 370 1341
 GOSUB LJING 1909 371 1340
 GOSUB LJING 1909 372 1339
 GOSUB LJING 1909 373 1345
 GOSUB LJING 1908 373 1346
 GOSUB LJING 1908 372 1339
 GOSUB LJING 1908 371 1340
 GOSUB LJING 1908 370 1341
 GOSUB LJING 1908 369 1341
 GOSUB LJING 1908 368 1343
 GOSUB LJING 1908 367 1358
 GOSUB LJING 1906 371 1345
 GOSUB LJING 1906 370 1340
 GOSUB LJING 1906 369 1341
 GOSUB LJING 1906 368 1342
 GOSUB LJING 1906 367 1343
 GOSUB LJING 1906 366 1339
 GOSUB LJING 1906 365 1340
 GOSUB LJING 1905 365 1343
 GOSUB LJING 1905 366 1342
 GOSUB LJING 1905 367 1341
 GOSUB LJING 1905 368 1340
 GOSUB LJING 1905 369 1339
 GOSUB LJING 1905 370 1343
 GOSUB LJING 1905 371 1346
 GOSUB LJING 1904 371 1345
 GOSUB LJING 1904 370 1339
 GOSUB LJING 1904 369 1340
 GOSUB LJING 1904 368 1341
 GOSUB LJING 1904 367 1342
 GOSUB LJING 1904 366 1341
 GOSUB LJING 1904 365 1342
 GOSUB LJING 1903 365 1342
 GOSUB LJING 1903 366 1339
 GOSUB LJING 1903 367 1340
 GOSUB LJING 1903 368 1341
 GOSUB LJING 1903 369 1342
 GOSUB LJING 1903 370 1343
 GOSUB LJING 1903 371 1347
 GOSUB LJING 1902 371 1345
 GOSUB LJING 1902 370 1342
 GOSUB LJING 1902 369 1343
 GOSUB LJING 1902 368 1339
 GOSUB LJING 1902 367 1340
 GOSUB LJING 1902 366 1341
 GOSUB LJING 1902 365 1342
 GOSUB LJING 1902 364 1343
 GOSUB LJING 1901 364 1342
 GOSUB LJING 1901 365 1339
 GOSUB LJING 1901 366 1340
 GOSUB LJING 1901 367 1341
 GOSUB LJING 1901 368 1342
 GOSUB LJING 1901 369 1343
 GOSUB LJING 1901 370 1339
 GOSUB LJING 1901 371 1346
 GOSUB LJING 1900 371 1351
 GOSUB LJING 1900 370 1340
 GOSUB LJING 1900 369 1341
 GOSUB LJING 1900 368 1342
 GOSUB LJING 1900 367 1343
 GOSUB LJING 1900 366 1339
 GOSUB LJING 1900 365 1340
 GOSUB LJING 1900 364 1340
 GOSUB LJING 1899 364 1359
 GOSUB LJING 1899 365 1341
 GOSUB LJING 1899 366 1340
 GOSUB LJING 1899 367 1339
 GOSUB LJING 1899 368 1343
 GOSUB LJING 1899 369 1342
 GOSUB LJING 1899 370 1346
 GOSUB LJING 1898 370 1345
 GOSUB LJING 1898 369 1342
 GOSUB LJING 1898 368 1342
 GOSUB LJING 1898 367 1341
 GOSUB LJING 1898 366 1341
 GOSUB LJING 1898 365 1340
 GOSUB LJING 1898 364 1357
 GOSUB LJING 1897 364 1357
 GOSUB LJING 1897 365 1343
 GOSUB LJING 1897 366 1340
 GOSUB LJING 1897 367 1339
 GOSUB LJING 1897 368 1343
 GOSUB LJING 1897 369 1341
 GOSUB LJING 1897 370 1347
 
 
 
 
 
goto start
 
sub LJING
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
if %tracking
gosub tracking
move %1 %2 1
finditem NPF_QPF C
if #findcnt = 0
{
  display ok Pickaxe wasn't found!
  pause
}
set #lobjectid #findid
event macro 17 0
target 2s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 15
set %overtime #scnt + 8
gosub scan
return
 
sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece
{
gosub dropMarganece
return
}
}
return
 
sub scan
scan:
gosub element
scanjournal
gosub checkdisconnect
gosub checkHP
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal )
+ || ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg )
+ || ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )
+ || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #sysmsg ) )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return
 
sub port
msg .arm$
gosub checkHP
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
if %trackingAlarm
click %x3 %y3
else
click %x1 %y1
event macro 13 21
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10s
if %trackingAlarm
{
str ins #time : 3
str ins #strres : 6
set %Time #strres
str ins #date #dot 3
str ins #strres #dot 6
execute cmd.exe /c echo >>TRACK.txt #charname saw someone #strres @ %Time
wait %trackingWait
click 170 67 r
wait 10
gosub back
gosub tracking
return
}
gosub moveItems
gosub back
return
 
sub moveItems
ignoreitem reset 1
gosub runToBox
event macro 13 21
finditem %box G_3
wait 10
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  halt
}
repeat
{
finditem %item c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %box
wait 15
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
gosub food
return
 
 
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return
 
sub back
set %trackingAlarm #false
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 20
}
gosub openRunebook
click %x2 %y2
event macro 13 21
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 5s
return
 
sub runToBox
repeat
{
move %xCoord %yCoord 0 3s
wait 5s
}
until #charposx = %xCoord && #charposy = %yCoord
return
 
sub follow&kill
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
return
 
sub checkHP
if #hits < #maxhits
{
msg .arm$
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
gosub follow&kill
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
return
 
sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
  event sysmessage Runebook not found!
  halt
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return
 
sub ghost
if #charghost = YES
{
terminate uo
halt
}
return
 
sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %3 C_ , #backpackid
}
until #findcnt = 0
return
 
sub eat
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 10
event macro 17 0
wait 2s
return
 
 
sub Instalyze
if % . %1 <= 8
set %x . %2 260
else
set %x . %2 420
if % . %1 = 1 || % . %1 = 9
set %y . %2 260
if % . %1 = 2 || % . %1 = 10
set %y . %2 275
if % . %1 = 3 || % . %1 = 11
set %y . %2 290
if % . %1 = 4 || % . %1 = 12
set %y . %2 305
if % . %1 = 5 || % . %1 = 13
set %y . %2 320
if % . %1 = 6 || % . %1 = 14
set %y . %2 335
if % . %1 = 7 || % . %1 = 15
set %y . %2 350
if % . %1 = 8 || % . %1 = 16
set %y . %2 365
return
 
sub dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
{
  wait 10
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
}
if #findcol = 1750 || #findcol = 1218 || #findcol = 1325 || #findcol = 1095 ||  #findcol = 21 ||  #findcol = 553 ||  #findcol = 0 || #findcol = 1936 ||  #findcol = 1537 ||  #findcol = 1089 ||  #findcol = 1950 || #findcol = 144 || #findcol = 2313 ||  #findcol = 151 || #findcol = 1156 || #findcol = 306 || #findcol = 2197 ||
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 40
}
ignoreitem #findid 1
goto dropLoop
return
 
sub loot
finditem YFM G_4
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212
wait 1
wait 20
if #conttype = YFM
set %corpse #contid
set %lootOverTime #scnt + 30
repeat
{
finditem %loot C_ , %corpse
if #findcnt = 0 || #scnt > %lootOverTime
{
ignoreitem %corpse 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 45
}
until #false
}
return
 
sub element
finditem ED G
if #findcnt <> 0
{
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
finditem ED G
set %element #findid
msg .arm$
set #ltargetid %element
event macro 27 0
repeat
{
finditem %element
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
gosub place
gosub checkpvp
}
until #findcnt = 0
wait 20
gosub loot
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
}
return
 
sub food
finditem ZBM C_ , #backpackid
if #findcnt = 0
{
set #lobjectid %foodCont
event macro 17 0
while #contid <> %foodCont
wait 1
finditem ZBM C_ , %foodCont; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
finditem GND C_ , #backpackid
if #findcnt = 0
{
finditem GND C_ , %foodCont
exevent drag #findid 4; 4 baocn slices
exevent dropc #backpackid
wait 30
finditem ZBM C_ , %foodCont; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
return
 
sub tracking
if #charstatus = G
event macro 6 0
event macro 6 0
msg ,exec tracking$
wait 10
set %lagg #scnt + 20
repeat
{
if #contname = objpicker_gump
{
  set %trackingAlarm #true
  gosub port
  return
}
if You_see_no_signs_of_players_to_track in #sysmsg
return
}
until #scnt > %lagg
return
 
Sub CheckPvP
scanjournal 1
If You_cannot_do_this_now in #journal : notin #journal
{
ignoreitem #findid 1
}
return
 
sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 6 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
wait 10
finditem WTL C_ , %box
exevent drag #findid %amountRecalls 6
exevent dropc #backpackid
wait 30
}
return
sub checkdisconnect
    if #contname = waiting_gump
    {
        click 402 336
        wait 120s
        click 370 400
        wait 25
        msg %password
        msg $
        gosub waitforgump CONTNAME MainMenu_gump
        click 617 456
        gosub waitforgump CONTNAME normal_gump
        click 617 456
        gosub waitforgump CONTNAME Login_gump
        click 617 456
    }
return
 
sub WaitForGump
   set %gumptimeout #scnt
   _WaitForGump:
   if # . %1 <> %2
   {
      wait 1
      if %gumptimeout + 5 < #scnt
         return #false
      goto _WaitForGump
   }
return #true
 
sub place
if #charposx > 1920
ignoreitem #findid 1
return
 
Sub CheckPvP
scanjournal 1
If You_cannot_do_this_now in #journal : notin #journal
{
ignoreitem #findid 1
}
return


#23 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 20 September 2017 - 19:47

Спасибо! А на mining есть у кого?

Скрипт с реконнэктом. Вводим пароль в строке set %password и в случае ЦЛ автоматом перезайдет в игру (работает на 50%) 
И также в низу есть такой sub place Меняем координат (чтобы не выходил за приделы шахты, защита от любителей снять со скрипта или отвести хер пойми куда)

А также у вас не смогут стоять в шахте в элименте, если персонаж не сможет ударить (кого либо) он его игнорит и дальше капает =)
Пользуйтесь ;)



#24 hAXTUNG

hAXTUNG

    Newbie

  • Members
  • 9 posts

Posted 20 September 2017 - 19:52

Скрипт с реконнэктом. Вводим пароль в строке set %password и в случае ЦЛ автоматом перезайдет в игру (работает на 50%) 
И также в низу есть такой sub place Меняем координат (чтобы не выходил за приделы шахты, защита от любителей снять со скрипта или отвести хер пойми куда)
Пользуйтесь ;)

напиши свой скайп,  хоть отблагодарю)



#25 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 20 September 2017 - 19:55

напиши свой скайп,  хоть отблагодарю)

Аммм...напищи мне свой в ЛС, а то у меня рег с телефона был я хз как меня найти :D



#26 Artemy Shan

Artemy Shan

    Founder

  • Administrators
  • 21257 posts
  • Gender:Male

Posted 20 September 2017 - 21:39

Вопрос исчерпан, закрыто.


Наш канал в discord

In God We Trust!




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users