34 replies to this topic

[krisa]

Vai kads ludzu varetu pateikt , kas skriptaa ir nepareizi.
Problema ir tada.... Lidzko izkapajas reapers... Chars uzvelk ieroci un pieiet pie reapera, neiesit un aiziet prom....... kapat talak...

set %corpse YFM

set %logs ZLK_pof_cud_IJG_UJG_HJG_FWL_FZH_DCI_RVH_FZH

set %safe CPOELMD

set %ljtool FSF

set %axe VOH

set %shild OIK

set %shovel XTNOKMD

set %milk zbm

set %bekons GND

set %loot pof_cud_IJG_UJG_HJG_FWL_FZH_DCI_RVH_FZH



start:

xxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxx





goto start



sub ljing

if #hits < 1

{

stop

}

move %1 %2 2

finditem %ljtool

set #lobjectid #findid

event macro 17 0

target 10s

						  ; Vremja rubki kazdogo dereva

set #ltargetx %1

set #ltargety %2

set #ltargetkind 3

set #ltargettile %3

event macro 22 0

wait 15

set %overtime #scnt + 25

gosub Scan

return



gosub Scan

sub scan

scan:

scanjournal %cnt



if #hits < 50

msg .drink heal $



if #weight > 600

gosub razgr





if #hits < #str

{

goto kill

}



if #hits < 1

stop

if you_fail in #sysmsg

   {

   goto food

   }

if THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg

   return

if It_appears_immune_to_your_blow in #sysmsg

   return

if you_can't_reach_this in #sysmsg

   return

if you_can't_use_this_in_houses in #sysmsg

   return

if you_fail in #sysmsg

   goto food

if #scnt >= %overtime

   return

goto scan







sub razgr

move xxxxxxxx

finditem %safe

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 2s

if #findkind = -1

goto razgr

set %kuda #findid

drop:

wait 5

finditem %logs c_ , #backpackid

if #findkind = -1

return

exevent Drag #Findid #findstack

wait 5

msg $

wait 5

exevent Dropc %kuda

goto drop



return





kill:

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

Finditem %Axe c_ , #backpackid

set #lobjectID #findid

event macro 17 0

Finditem %shild c_ , #backpackid

set #lobjectID #findid

event macro 17 0

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2





finditem %Corpse G_4

set #LOBJECTID #FINDID

event Macro 17

set %x   #CONTPOSX

set %y   #CONTPOSy

goto loot



loot:



wait 2

finditem %Loot C_ , #LOBJECTID

if #findkind = -1

{

wait 2

set #LOBJECTID 0

set %x   n/a

set %y   n/a

goto nojauna

}

exevent drag #findid #findstack

Exevent Dropc #backpackID

event macro 8 7

wait 7

click  %x %y d dmc

goto loot



exevent drag #findid #findstack

Exevent Dropc #backpackID

wait 7

goto loot



food:

event macro 8 7

Finditem %milk

set #lobjectid #findid

event macro 17 0

wait 2

Finditem %bekons

set #lobjectid #findid

event macro 17 0

wait 2

Finditem %bekons

set #lobjectid #findid

event macro 17 0

return



}

sub follow&kill

repeat

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1

}



nojauna:

return

[EnFlame]

njaa es kluudu redzu..
shitaadi topiki neskaitaamas reizes bijushi
psc.. kkas iliek ljevo skriptu, tad visi suudzaas, taisa topikus, kur katru reizi jaalabo..
--> use search

[krisa]

Shitas skripts nav bijis foruma ....
Vins ir njemts no noteikta cilveka....
JA zhel palidzet neposto....

[EnFlame]

esmu redzeejis, kaa shis noteiktais cilveeks (krans) ir licis vinju forumaa.
kljuuda sheit:

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 10

}

until #findcnt = 0

edit: oj, nee, shito scp kkas veel vairaak sakrpljojis

[krisa]

Tur jau laikam es pacentos
Paldies ka pateici kur ir kljuda, vai tur ir vel?

[EnFlame]

daudz daudz neprecizitaashu, bet es jau neieshu tpt vien te paarrakstiit

[krisa]

nunu..

[krisa]

Nja tava ``palidziba`` neka nedeva vins dara pilnigi to pashu ))) tikai iesit aizskrien pie koka skrien atpakalj u neisit

[EnFlame]

set %corpse YFM
set %logs ZLK_pof_cud_IJG_UJG_HJG_FWL_FZH_DCI_RVH_FZH
set %safe CPOELMD
set %ljtool FSF
set %axe VOH
set %shild OIK
set %shovel XTNOKMD
set %milk zbm
set %bekons GND
set %loot pof_cud_IJG_UJG_HJG_FWL_FZH_DCI_RVH_FZH

start:
xxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxx


goto start

sub ljing
if #hits < 1
{
stop
}
move %1 %2 2
finditem %ljtool
set #lobjectid #findid
event macro 17 0
target 10s
; Vremja rubki kazdogo dereva
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 15
set %overtime #scnt + 25
gosub Scan
return

gosub Scan
sub scan
scan:
scanjournal %cnt

if #hits < 50
msg .drink heal $

if #weight > 600
gosub razgr


if #hits < #str
{
goto kill
}

if #hits < 1
stop
if you_fail in #sysmsg
{
goto food
}
if THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg
return
if It_appears_immune_to_your_blow in #sysmsg
return
if you_can't_reach_this in #sysmsg
return
if you_can't_use_this_in_houses in #sysmsg
return
if you_fail in #sysmsg
goto food
if #scnt >= %overtime
return
goto scan



sub razgr
move xxxxxxxx
finditem %safe
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 2s
if #findkind = -1
goto razgr
set %kuda #findid
drop:
wait 5
finditem %logs c_ , #backpackid
if #findkind = -1
return
exevent Drag #Findid #findstack
wait 5
msg $
wait 5
exevent Dropc %kuda
goto drop

return


kill:
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
Finditem %Axe c_ , #backpackid
set #lobjectID #findid
event macro 17 0
Finditem %shild c_ , #backpackid
set #lobjectID #findid
event macro 17 0
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2
gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha
wait 2


finditem %Corpse G_4
set #LOBJECTID #FINDID
event Macro 17
set %x #CONTPOSX
set %y #CONTPOSy
goto loot

loot:

wait 2
finditem %Loot C_ , #LOBJECTID
if #findkind = -1
{
wait 2
set #LOBJECTID 0
set %x n/a
set %y n/a
goto nojauna
}
exevent drag #findid #findstack
Exevent Dropc #backpackID
event macro 8 7
wait 7
click %x %y d dmc
goto loot

exevent drag #findid #findstack
Exevent Dropc #backpackID
wait 7
goto loot

food:
event macro 8 7
Finditem %milk
set #lobjectid #findid
event macro 17 0
wait 2
Finditem %bekons
set #lobjectid #findid
event macro 17 0
wait 2
Finditem %bekons
set #lobjectid #findid
event macro 17 0
return


sub follow&kill
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 10
}
until #findcnt = 0
return

nojauna:
return

[assisting.suicides]

tu labaak skriptu normaalu sadabuu, neviens tak neies labot shito skreceeljumu, vinjsh ir pilniigs meesls.

[krisa]

PALDIES
Tadi cilveki ka tu Serveri dara labaku

[krisa]

vienalga vins nestaigaa pakalj

[EnFlame]

meklee citu, shits bezceriigs variants

[krisa]

un kaa ar sho?! Pilnigi tapati probleema

set %Roba FWL; Skill Roba

set %Roba2 DWL; Zhenskaja takaja roba dolzhna byt' v backpacke.

set %Cloack DCI; Skill Cloack

set %Cloack2 DCI; Prostoj cloack

set %Mask NZH; Skill Mask

set %Mask2 njl; Ljuboj drugoj helm ( TYPE )

set %axe VOH

set %shild OIK



set %logs ZLK

set %safe CPOELMD				 ; Sominjas id kuraa liks logus

set %ljtool FSF					; hachetam Id



start:



xxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxx









goto start



					   ; Process samoj rubki derev'jev



sub ljing

move %1 %2 2

finditem %ljtool

set #lobjectid #findid

event macro 17 0

target 10s						   ; Vremja rubki kazdogo dereva

set #ltargetx %1

set #ltargety %2

set #ltargetkind 3

set #ltargettile %3

event macro 22 0

wait 15

set %overtime #scnt + 25

gosub backpack

return



gosub backpack					   ; Uslovije dlja razgruzki logov

sub backpack						 ; Pri polnom vese

if #weight > 500				 ; Tut ukazivajem ves logov

gosub razgr



sub scan							 ; skanirovanije zurnala

scan:

scanjournal %cnt



if #hits < #str

{



Finditem %Roba2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Cloack2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

Finditem %Mask2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

Finditem %Axe c_ , #backpackid

set #lobjectID #findid

event macro 17 0

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

Finditem %shild c_ , #backpackid

set #lobjectID #findid

event macro 17 0

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

wait 2



wait 5sek					 ; Ispol'zujem Oruzije

Finditem %Roba c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Cloack c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Mask c_ , #backpackid

set #lobjectID #findid

event macro 17 0





wait 4s



}

if THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg

   return

if It_appears_immune_to_your_blow in #sysmsg

   return

if you_can't_reach_this in #sysmsg

   return

if there_is_not_wood_left_to_harvest in #sysmsg

   return

if #scnt >= %overtime

   return

goto scan





sub razgr

move xxxxxxxx   ; KASTES ATRASHANAAS VIETA

finditem %safe

if #findkind = -1

goto razgr

set %kuda #findid

drop:

wait 5

finditem %logs c_ , #backpackid

if #findkind = -1

return

exevent Drag #Findid #findstack	; Hvatajem vse logi

wait 5

msg $						   ; Imitirujet nazatije ENTER

wait 5							 ; Pri vzjatih logah

exevent Dropc %kuda				; Sgruzajem v Sunduk

goto drop

}

sub follow&kill

repeat

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

return

[EnFlame]

tas pats atrisinaajums:

set %Roba FWL; Skill Roba

set %Roba2 DWL; Zhenskaja takaja roba dolzhna byt' v backpacke.

set %Cloack DCI; Skill Cloack

set %Cloack2 DCI; Prostoj cloack

set %Mask NZH; Skill Mask

set %Mask2 njl; Ljuboj drugoj helm ( TYPE )

set %axe VOH

set %shild OIK



set %logs ZLK

set %safe CPOELMD			; Sominjas id kuraa liks logus

set %ljtool FSF				  ; hachetam Id



start:



xxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxx









goto start



					 ; Process samoj rubki derev'jev



sub ljing

move %1 %2 2

finditem %ljtool

set #lobjectid #findid

event macro 17 0

target 10s						 ; Vremja rubki kazdogo dereva

set #ltargetx %1

set #ltargety %2

set #ltargetkind 3

set #ltargettile %3

event macro 22 0

wait 15

set %overtime #scnt + 25

gosub backpack

gosub scan

return



				; Uslovije dlja razgruzki logov

sub backpack					; Pri polnom vese

if #weight > 500			; Tut ukazivajem ves logov

gosub razgr

return



sub scan						; skanirovanije zurnala

scan:

scanjournal 0

if #hits < #str

{

Finditem %Roba2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Cloack2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Mask2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Axe c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %shild c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

gosub follow&kill; dodas uz subu, kurjsh seko un nogalina haha

Finditem %Roba c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Cloack c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Mask c_ , #backpackid

set #lobjectID #findid

event macro 17 0

}

if THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg

   return

if It_appears_immune_to_your_blow in #sysmsg

   return

if you_can't_reach_this in #sysmsg

   return

if there_is_not_wood_left_to_harvest in #sysmsg

   return

if #scnt >= %overtime

   return

goto scan





sub razgr

razgr:

move xxxxxxxx ; KASTES ATRASHANAAS VIETA

finditem %safe

if #findkind = -1

goto razgr

set %kuda #findid

drop:

wait 5

finditem %logs c_ , #backpackid

if #findkind = -1

return

exevent Drag #Findid #findstack

exevent Dropc %kuda

wait 15

goto drop



sub follow&kill

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

return

P.S. shito skriptu 100% biju jau taapat labojis

[krisa]

uzvelk ieroci staav uz vietas, bet neseko :S

[Inquis]

njaa es kluudu redzu..
shitaadi topiki neskaitaamas reizes bijushi
psc.. kkas iliek ljevo skriptu, tad visi suudzaas, taisa topikus, kur katru reizi jaalabo..
--> use search

Es arii kljuuudu redzu, ljoti labi saskatu to, Tev vienaa vietaa ir nepareizi salikts

Bet diemzheel tadi Topiki bijushi vairaak tapec man slinkums radiit to vietu

--> use search

[EnFlame]

Es arii kljuuudu redzu, ljoti labi saskatu to, Tev vienaa vietaa ir nepareizi salikts

Bet diemzheel tadi Topiki bijushi vairaak tapec man slinkums radiit to vietu

--> use search

tu lkm bajgi gudraizz esi

[assisting.suicides]

set %Cirvis FSF

set %KasteLogiem CPOELMD

set %Logi ZLK_pof_cud_IJG_UJG_HJG_FWL_FZH_DCI_RVH_FZH

set %Axe VOH

set %Shield OIK



GalvenaisProcess:



xxxxxxxxxx

xxxxxxxxxx

xxxxxxxxxx



goto GalvenaisProcess



sub lumberjacking

move %1 %2

finditem %Cirvis

 if #findkind = -1

  {

   key alt F4

  }

set #lobjectid #findid

event macro 17 0

target 10s

set #ltargetx %1

set #ltargety %2

set #ltargetkind 3

set #ltargettile %3

event macro 22 0

wait 7

set %overtime #scnt + 25

set %result #False

deletejournal

gosub scan

gosub CheckforWeight

return



sub Scan

scanjournal 1

repeat

{

if #hits < #maxhits

 gosub Kill

if there_is_nothing_here in #sysmsg

 set %result #true

if YOu_CAN'T_ in #sysmsg

 set %result #true

if You_fail_to_do_that in #sysmsg

 gosub eat

if it_appears_immune in #sysmsg

 set %result #true

if You_have_no_line_of_sight_to_that_location in #sysmsg

 set %result #true

if #scnt >= %overtime

 {

 finditem %cirvis

 set #lobjectid #findid

 event macro 17 0

 wait 1

 set %result #true

 }

}

until %result = #true

return



sub unload

gosub runto XXXX XXXX;<<<< KOORDAS PIE KASTES !!!!!!!

finditem %KasteLogiem G_2

set #lobjectid #findid

repeat

{

event macro 17 0

wait 40

}

until #contname = container_gump

repeat

{

finditem %Logi C_ , #backpackid

exevent drag #findid #findstack

wait 2

exevent dropc %KasteLogiem

wait 2

}

until #findkind = -1

wait 1s

finditem PEF C_ , %KasteLogiem

exevent drag #findid 100

wait 5

exevent dropc #backpackid

wait 1s

finditem PEF C_ , #backpackid

if #findcnt = 0

 {

 exevent drag #findid 100

 wait 5

 exevent dropc #backpackid

 wait 5

 }

wait 1s

finditem RWF C_ , %KasteLogiem

exevent drag #findid 200

wait 5

exevent dropc #backpackid

wait 1s

finditem RWF C_ , #backpackid

if #findcnt = 0

 {

 exevent drag #findid 100

 wait 5

 exevent dropc #backpackid

 wait 5

 }

return



sub eat

event macro 13 21

finditem ZBM C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 1s

finditem GND C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 20s

set %result %true

return



sub kill

finditem %axe C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 10

finditem %shield C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 10

repeat

{

finditem #enemyid

event pathfind #findx #findy 

wait 1s

 if #hits = 0

  {

  key F4 alt

  }

}

until #findcnt = 0

gosub LOOTING

 repeat

 {

 wait 1

 }

 until #hits = #str

set %result #true

return



sub runTo

repeat

	  {

	   move %1 %2 0 10s

	  }

until #charPosX = %1 && #charPosY = %2

return



Sub CheckForWeight

if #weight >= #maxweight

 {

 gosub unload

 }

return



Sub LOOTING

finditem YFM G_10

ignoreItem #findid 1

 if #findkind = 1

 {

  event pathfind #findx #findy

  set #lobjectid #findid

  event macro 17 0

  wait 10

   repeat

   {

   finditem POF_CUD_IJG_UJG_HJG_FWL_FZH_DCI_RVH_FZH C_ , #contid

	if #findcnt > 0

	 {

	  exevent drag #findid #findstack

	  wait 10

	  exevent dropc #backpackid

	  wait 1s

	 }

   }

   until #findkind = -1

 }

return

[krisa]

Negribas jau piekasities, bet kad skriptu iesledz vins pat no vietas neizkustas...
Un jaa es iegaju caur easyUO, un jaa es restarteju kompi..