cell-dope

Zdrastvujti!

Ja postavil mining script na easyuo 1.5 v158 no moj char nelitajut - on putaetsa begat s pe6kom. Runebook ID i runenumber postavil pravilnij. Skript rabotaet kak but ta %recall bil bi viklucen.

Neponimaju po4emu on runebook prosto neizpolzivaet, 6to ja v skript postavil nepravilno?

; Set Up The Following Variables:

set %maxWeight 710		 ; Max ves

set %box DEZWJMD		   ; ID korobki, gde sbrasivatj rudu

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

set %xCoord 2172		   ; X koordinata okolo boxa

set %yCoord 596		   ; 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 MNEWJMD	 ; ID runebooka

set %runeNumberToHome 1	 ; Nr runi na dom

set %runeNumberToCave 2	; Nr runi na kopalku

set %amountRecalls 30	   ; 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 22222 333 0





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 + 25

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

spasibo za pomo4 zaradnee!

Zdrastvujti!

Ja putajusj na inject zapustit' skript katorij menajut luk (bow) na drugoj luk.

našol etot skript:

sub weapon()

var wep1=0x4010F9F3

var wep2=0x401015F7

uo.findtype(wep1,'-1','backpack')

if not uo.findcount() then

uo.findtype(wep2,'-1','backpack')

uo.useobject('finditem')

else

uo.findtype(wep1,'-1','backpack')

uo.useobject('finditem')

end if

end sub

nu kagda ja evo zapuskaju, mne UO govarit "you cant see the target" .. item ID ja našol s komandoj ",info"

ID=0x401015F7 Type=0x13B1 FWIZLMD Name=Dread Bow (Monster Slayer +19)

Quantity: 1  Colour: 0x002D  Layer: 2  Has: 1

X=65535 Y=65535 Z=0 C=0x0003606F F=0x00

6to ja delaju nepravilno?

+ e6o 1 vaprosik: kak mne etot skript zapustit tak 6tob on zapuskalsa s "hot key"? mne nada 6tob on luki menjal kazdij raz kagda ja nazimaju knopku "2"

spasibo za pomo6 zaranjie! :-)

Sveiciens visiem!

Es pirmo reizi lietoju EasyUO, līdz ar to jau laikus sorry ja jautājums ir pārlieku elementārs lai tam veltītu atsevišķi threadu. Lai vai kā, skripts strādā un sacērt logus un aizlido uz banku, taču tad čars apstājas un sacirsto nenovieto bankā, vienkārši stāv uz vietas pie atvērtas bankas lādes.

Kas man skriptā ir jāpamaina? Kā arī vai man sacirstos dread, elven, utt logus skripts arī novietos bankā vai tikai iepriekš definētos willowus?

set %gameClass Archer	  ; Cleric or Archer

set %maxWeight 450		 ; Max svars

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

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

set %xCoord 2886		   ; X koordinaata tieshi pie kastes

set %yCoord 676		   ; Y koordinaata tieshi pie kastes

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

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

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

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

set %dropcedar #true

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

set %recall #true		  ; #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 HEEULMD   ; Runebooka ID

set %runeNumberToHome 1	; Runas Nr uz maaju

set %runeNumberToWood 2   ; Runas Nr uz mezhu

set %amountRecalls 44

; 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 100	; minimaalais bultu skaits somaa

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

; 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:

 msg #dot $

 

 GOSUB LJING xxxx xxxx xxx xxxx

 GOSUB LJING xxxx xxxx xxx xxxx

 GOSUB LJING xxxx xxxx xxx xxxx

 GOSUB LJING xxxx xxxx xxx xxxx

 GOSUB LJING xxxx xxxx xxx xxxx

 

goto start



sub ljing

set %k %k + 1

gosub ghost

gosub checkHP

gosub reaper

gosub checkWeight

move %1 %2 1

finditem GVVDLMD 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

msg Bank $

if %gameClass = Cleric

event macro 13 21

finditem %box IGZRKMD

if #findcnt = 0

{

event Sysmessage Box Not Found!

pause

}

repeat

{

finditem %item c_ , #backpackid

if #findcnt <> 0

{

exevent Drag #Findid #findstack

exevent Dropc %box

wait 35

}

}

until #findcnt = 0

if %gameClass = Archer

gosub rescourses

if %recall

gosub recalls

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



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