Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Toggle shoutbox Chat

Прямая связь с администрацией по скайпу: gods.dragon

@ fr33	:	(Yesterday, 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
@ 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
@ 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% и вроде как я поправил это.

Palidzat...

Started by krisa, Jul 24 2008 14:49

Please log in to reply

34 replies to this topic

#1 krisa

Novice Player

Members
124 posts

Posted 24 July 2008 - 14:49

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

#2 EnFlame

Thief of Horses

Members
2041 posts

Gender:Male
Location:Беломорканал
Interests:A bit of this & a bit of that.

Posted 24 July 2008 - 14:56

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

#3 krisa

Novice Player

Members
124 posts

Posted 24 July 2008 - 14:58

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

#4 EnFlame

Thief of Horses

Members
2041 posts

Gender:Male
Location:Беломорканал
Interests:A bit of this & a bit of that.

Posted 24 July 2008 - 15:10

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

#5 krisa

Novice Player

Members
124 posts

Posted 24 July 2008 - 15:16

Tur jau laikam es pacentos

Paldies ka pateici kur ir kljuda, vai tur ir vel?

#6 EnFlame

Thief of Horses

Members
2041 posts

Gender:Male
Location:Беломорканал
Interests:A bit of this & a bit of that.

Posted 24 July 2008 - 15:20

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

#7 krisa

Novice Player

Members
124 posts

Posted 24 July 2008 - 15:21

nunu..

#8 krisa

Novice Player

Members
124 posts

Posted 24 July 2008 - 15:25

Nja tava ``palidziba`` neka nedeva vins dara pilnigi to pashu

))) tikai iesit aizskrien pie koka skrien atpakalj u neisit

#9 EnFlame

Thief of Horses

Members
2041 posts

Gender:Male
Location:Беломорканал
Interests:A bit of this & a bit of that.

Posted 24 July 2008 - 15:32

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

#10 assisting.suicides

Newbie

Members
16 posts

Posted 24 July 2008 - 15:32

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

#11 krisa

Novice Player

Members
124 posts

Posted 24 July 2008 - 15:56

PALDIES
Tadi cilveki ka tu Serveri dara labaku

#12 krisa

Novice Player

Members
124 posts

Posted 24 July 2008 - 21:11

vienalga vins nestaigaa pakalj

#13 EnFlame

Thief of Horses

Members
2041 posts

Gender:Male
Location:Беломорканал
Interests:A bit of this & a bit of that.

Posted 24 July 2008 - 21:21

meklee citu, shits bezceriigs variants

#14 krisa

Novice Player

Members
124 posts

Posted 24 July 2008 - 21:29

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

#15 EnFlame

Thief of Horses

Members
2041 posts

Gender:Male
Location:Беломорканал
Interests:A bit of this & a bit of that.

Posted 24 July 2008 - 21:40

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

#16 krisa

Novice Player

Members
124 posts

Posted 24 July 2008 - 21:54

uzvelk ieroci staav uz vietas, bet neseko :S

#17 Inquis

Advanced Player

Members
361 posts

Posted 24 July 2008 - 23:50

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

Vendor-Oldp 2, Nick Inquis(Full Inferno platemail)

Nav naudas? Spied sheit ! << ! LOL

#18 EnFlame

Thief of Horses

Members
2041 posts

Gender:Male
Location:Беломорканал
Interests:A bit of this & a bit of that.

Posted 24 July 2008 - 23:59

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

#19 assisting.suicides

Newbie

Members
16 posts

Posted 25 July 2008 - 01:22

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

#20 krisa

Novice Player

Members
124 posts

Posted 25 July 2008 - 10:09

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

Back to Skripti

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Palidzat...

0 user(s) are reading this topic

Sign In