- Old Paradise Forums
- → Viewing Profile: Posts: PKI
Toggle shoutbox Chat
Прямая связь с администрацией по скайпу: gods.dragon
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Community Stats
- Group Members
- Active Posts 8
- Profile Views 5643
- Member Title Newbie
- Age Age Unknown
- Birthday Birthday Unknown
-
Gender
Not Telling
0
Neutral
User Tools
Friends
PKI hasn't added any friends yet.
Latest Visitors
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
ai da es neko nevaru izdaritstav paldies nonjemsu
tad vajadzetu iet ?
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
man raxta you dont have a spellbook handly un skrien kkur jocigi skrien uz vienu pusi udeni nevis uz kkadu mezhuLū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
In Topic: Vai Kads ?
16 February 2011 - 18:29
paldies, bet kaa lai liek kordinates ?
- Old Paradise Forums
- → Viewing Profile: Posts: PKI
- Privacy Policy