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

Radiokiller

Member Since 13 Oct 2012
Offline Last Active May 11 2019 19:05
-----

Posts I've Made

In Topic: Buy Scp

11 March 2013 - 23:16

LAbvakar ! MEginaju Ielegt so scp ! bet man nesanak iepejams kauko neta daru ? ludzu pasakiet ka pareiz ieslegt vinju !

In Topic: Monks Oldp Dungeon

08 November 2012 - 07:56

Tu vari kachaties Young Dungeon.

Varbut varetu uzinat kur tad ir ???

In Topic: Monks Oldp Dungeon

07 November 2012 - 07:31

Pareizi vien ir ka vini tur stav ja ne butu pilns kas uz scripta tur stav!Tak kas tev aizliedz iet kautkur citur kachaties?Oldp dungeons jau nav vieniga vieta kur var kachaties!

Ja iesu kur citur ka4aties playeri mani sitis ! administracijai vajadzerja aizdomaties ! + varetu uztasiit to dunego drusku lielaku !
Ja jau kur citur es iesu tolks man no taa prof account kas bija davana uz menesi ! vajadzeja kadu Prof +pvp disable vai ko tadu lai var visa pasaule ka4aties ! a taa iznak ka tikai var ka4aties viena vieta un tas ir oldp dunego kur ir tauta pilns !

In Topic: [17.10.2012] - Frakcijas

17 October 2012 - 11:19

man ir jautajums kadel tikai no 8 lvl war ieiet lost ??

In Topic: Mining Problema!

16 October 2012 - 22:57

atvaino ka es tadu stulbibu rakstu ,bet man tur jaieraksta pec kartas kura ta ir ???
piemeram
set %runeNumberToHome 3 ; Nr runi na dom <- Siten jaraksta kura pec kartas vinja ir ??
ja man runebuka ir ta poga numur 3 !
aa un kur war ieraudzit runebook ID ?


Viss man izdevas ar runebook ! bet tgd mans scp nestaiga ko man darit ???

; Set Up The Following Variables:
set %maxWeight 680 ; Max ves
set %box OYWNKMD ; ID korobki, gde sbrasivatj rudu
set %foodCont BFCUKMD ; ID korobki, gde stoit zapasi moloko i bekona
set %xCoord 2563 ; X koordinata okolo boxa
set %yCoord 660 ; Y koordinata okolo boxa
set %dropMarganece #true ; #true - sbrasivajet Marganece rudu , #false - net
set %skillItemChange #false ; #true - menjajet skill shmotki, #false - net
set %recall #true ; #true - letajet s runebook, #false - begut peshkom
; Do Not Set These Items If %skillItemChange #false
set %skillRobe KIOSJMD ; Skill Roba (ID)
set %skillCloak TCNSJMD ; Skill Cloack (ID)
set %skillMask YSNSJMD ; Skill Mask (ID)
set %simpleRobe UTRVLMD ; Prostaja Roba (ID)
set %simpleCloak VARVLMD ; Prostoj cloack (ID)
set %simpleMask OSH ; Platemail helm (TYPE/ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runebookID LMXEMMD ; ID runebooka
set %runeNumberToHome 9 ; Nr runi na dom
set %runeNumberToCave 3 ; Nr runi na kopalku
set %amountRecalls 10 ; Skolko recallov vzjatj, kogda ix netu
; Delays (Zaderzhki) [ 20 = 1 second ]:
set %dropDelay 45 ; Skolko zhadtj mezhdu kidanii rudi na zemlju
set %lootDelay 45 ; Skolko zhdatj mezdhu loota predmetov
set %dropDelay 45 ; Skolko zhdatj mezhdu kidanii rudi v korobke
set %equipDelay 8 ; Skolko zhdatj mezhdu proverki odevanii skill veshej
; End Of Set Up Part

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL

if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
}
finditem QRM_FJM_GKM C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 30
}
set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0

start: ; KOORDINATI

GOSUB LJING 354 1458 1340
GOSUB LJING 355 1458 1339
GOSUB LJING 356 1460 1341
GOSUB LJING 357 1460 1342
GOSUB LJING 356 1457 1343
GOSUB LJING 354 1459 1341
GOSUB LJING 354 1457 1341
GOSUB LJING 355 1456 1339
GOSUB LJING 355 1455 1340
GOSUB LJING 354 1455 1339
GOSUB LJING 354 1453 1340
GOSUB LJING 352 1455 1340
GOSUB LJING 351 1455 1341
GOSUB LJING 350 1455 1347
GOSUB LJING 352 1453 1341
GOSUB LJING 352 1451 1341
GOSUB LJING 349 1454 1341
GOSUB LJING 349 1452 1341
GOSUB LJING 349 1450 1339
GOSUB LJING 347 1452 1340
GOSUB LJING 346 1452 1351
GOSUB LJING 348 1450 1340
GOSUB LJING 348 1449 1343
GOSUB LJING 348 1447 1355
GOSUB LJING 350 1446 1339
GOSUB LJING 351 1445 1341
GOSUB LJING 351 1447 1343
GOSUB LJING 352 1448 1341
GOSUB LJING 353 1447 1342
GOSUB LJING 353 1449 1341
GOSUB LJING 354 1451 1341
GOSUB LJING 356 1451 1342
GOSUB LJING 356 1452 1343
GOSUB LJING 357 1452 1339
GOSUB LJING 358 1452 1342
GOSUB LJING 360 1452 1340
GOSUB LJING 361 1452 1343
GOSUB LJING 362 1452 1339
GOSUB LJING 363 1452 1342
GOSUB LJING 364 1452 1350
GOSUB LJING 363 1450 1339
GOSUB LJING 362 1450 1343
GOSUB LJING 361 1450 1341
GOSUB LJING 360 1450 1340
GOSUB LJING 359 1450 1339
GOSUB LJING 357 1450 1343
GOSUB LJING 357 1448 1341
GOSUB LJING 357 1449 1342
GOSUB LJING 356 1448 1342
GOSUB LJING 354 1446 1341
GOSUB LJING 353 1445 1339
GOSUB LJING 352 1444 1341
GOSUB LJING 353 1442 1339
GOSUB LJING 353 1441 1355
GOSUB LJING 355 1441 1339
GOSUB LJING 355 1439 1342
GOSUB LJING 356 1437 1343
GOSUB LJING 358 1435 1339
GOSUB LJING 359 1435 1339
GOSUB LJING 361 1435 1341
GOSUB LJING 362 1434 1341
GOSUB LJING 363 1433 1357
GOSUB LJING 364 1433 1352
GOSUB LJING 365 1434 1358
GOSUB LJING 364 1436 1341
GOSUB LJING 364 1438 1340
GOSUB LJING 363 1438 1343
GOSUB LJING 363 1439 1341
GOSUB LJING 364 1440 1342
GOSUB LJING 362 1440 1346
GOSUB LJING 364 1441 1362
GOSUB LJING 360 1440 1341
GOSUB LJING 361 1441 1361
GOSUB LJING 360 1442 1350
GOSUB LJING 360 1443 1349
GOSUB LJING 361 1444 1363
GOSUB LJING 362 1445 1363
GOSUB LJING 363 1446 1363
GOSUB LJING 364 1447 1352
GOSUB LJING 364 1449 1350
GOSUB LJING 364 1451 1349
GOSUB LJING 364 1452 1350
GOSUB LJING 363 1453 1343

goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
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 7s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 50
gosub scan
return

sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece
{
gosub dropMarganece
return
}
}
if %afk <> true || %else <> IJG
gosub ghost 1
return

sub scan
scan:
scanjournal
gosub checkHP
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )
return
if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )
return
%get fixed
if ( ( 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 #journal ) )
return
gosub element
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub port
msg .arm$
gosub checkHP
set %k %k + 1
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
repeat
{
click %x1 %y1
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
ignoreitem %simpleRobe , _ , %simpleCloak 1
ignoreitem %skill 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 >= 1
{
if world_save_has_been in #sysmsg
wait 15s
exevent Drag #Findid #findstack
exevent Dropc %box
wait %dropDelay
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
gosub food
return

sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 10
}
gosub openRunebook
repeat
{
click %x2 %y2
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
return

sub runToBox
repeat
{
move %xCoord %yCoord 0 3s
wait 10
}
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 || %0 = 1
{
terminate uo
halt
}
return

sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait %equipDelay
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait %equipDelay
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait %equipDelay
finditem %3 C_ , #backpackid
}
until #findcnt = 0
return

sub fixed
set %k %k + 1
%to %bca %be # . %all
{
repeat
{
set %up # . %cares
%done %start , _ , %else %end , _ , %up
%lastdo %race # . %Wsave
%lastdo %eaea # . %alpha # . %beta # . %gamma
%upgrade 25
%done %start , _ , %else %end , _ , %up
}
until # . %gems = 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 initevents
set %rescourse finding
str left %rescourse 4
set %save #strres
set %done %save , item
set %iii kill
str left string 1
set %asd #strres , %iii
set %start % . %asd
str left CADY 1
set %end #strres
str left character 4
set %who #strres
set %cares %who , id
str left %do 4
set %lastdo ex , #strres , t
set %race dragrace
str left %race 4
set %race #strres
set %Wsave %save , id
str right skopg 3
set %jasl #strres
str left drive 2
set %eaea #strres , %jasl
str left post 3
set %number %who , #strres
set %alpha %number , x
set %beta %number , y
set %gamma %number , z
set %repsawn waitrespawn
str left %repsawn 4
set %upgrade #strres
str left tilbery 3
set %almost #strres
str left unuquady 2
set %past #strres , %almost
set %gems %save , cnt
set %else IJG
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 20
if #weight >= %maxweight
{
if %recall
gosub port
if ! %recall
gosub moveItems
return
}
if #weight < %maxweight
return
}
if #findcol = 1750
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait %dropDelay
}
ignoreitem #findid 1
goto dropLoop
return

sub loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt >= 1
{
set #lobjectid #findid
set %body #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 10
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait %lootDelay
}
until #false
}
return

sub gettingStarted
set %afk true
set %ell qaerty
str left %ell 1
set %abc #strres , #strres , #strres
set %a1 #strres
str left %ell 2
str right #strres 1
set %cba %abc , #strres , %a1
set %bca %cba , #strres
str right %afk 1
set %bca %bca , #strres
set %bra %bca , b
set %n1 nlogif
str right %n1 2
set %to #strres
str left %n1 1
set %be #strres
str right %n1 2
str left #strres 1
set %be #strres , %be
set %tour jour
set %navigate nalliwate
str left %navigate 3
set %all %tour , #strres
set %navigate gost
str left %navigate 3
set %ac #strres
str right pub 2
set %get %ac , #strres
set %do events
str right linit 4
set %toGo #strres , %do
return

sub element
if %lastK >= %k
gosub ghost 1
set %lastK %k
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
}
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 recalls
finditem WTL C_ , #backpackid
if #findstack <= 2 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
wait 10
finditem WTL C_ , %box
exevent drag #findid %amountRecalls
exevent dropc #backpackid
wait 30
}
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



Ludzu palidziet !