29 replies to this topic

[PerPeskY]

atradu shitadu skriptu

set %logs ZLK

set %safe RLFAKMD; Sominjas id kuraa liks logus

set %axe KPH; id/type pushki

set %shield NIK; id/type shilda



start:



GOSUB LJING ..........





goto start





sub ljing

gosub checkHP

gosub backpack

move %1 %2 1

finditem FSF C

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





sub backpack

if #weight > 600

gosub razgr

return



sub scan; skanirovanije zurnala

scan:

gosub checkHP

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

gosub checkHP

if #scnt >= %overtime

return

goto scan





sub razgr

_move:

move ......; KASTES ATRASHANAAS VIETA

finditem %safe G_3

if #findcnt = 0

goto _move

repeat

{

finditem %logs c_ , #backpackid

if #findcnt <> 0

{

exevent Drag #Findid #findstack; Hvatajem vse logi

exevent Dropc %safe; Sgruzajem v Sunduk

wait 20

}

}

until #findcnt = 0

return





sub follow&kill

event macro 27 0

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

return



sub checkHP

if #hits < #maxhits

{

gosub arm

gosub follow&kill

}

return



sub arm

repeat

{

finditem %axe C_ , #backpackid

set #lobjectid #findid

event macro 17 0

}

until #findcnt = 0

repeat

{

finditem %shield C_ , #backpackid

set #lobjectid #findid

event macro 17 0

}

until #findcnt = 0

return

Kur es varu atrast kordinatas shai rindai (man ir maja ar kasti araa ) ?

move ......; KASTES ATRASHANAAS VIETA

[Inquis]

gaidi enflame...

P.s GOSUB LJING .........., punktu vieta kordinates, un tadus ap 50 vismaz vajag..
Kr4 visur kur punkti, tur koordinates jaliek, Tieshi uz to vietu, nevis blakus un ja nemaldos janosaka ID caur easyuo labaja malaa Last action LTARGETID:..

[PerPeskY]

gaidi enflame...

P.s GOSUB LJING .........., punktu vieta kordinates, un tadus ap 50 vismaz vajag..
Kr4 visur kur punkti, tur koordinates jaliek, Tieshi uz to vietu, nevis blakus un ja nemaldos janosaka ID caur easyuo labaja malaa Last action LTARGETID:..

tas koordinates jasaliek kokiem?

[krans]

tas koordinates jasaliek kokiem?

da ne uz dzivniekiem Protams ka uz kokiem

move ......; KASTES ATRASHANAAS VIETA

.... vieta jaieraksta kordinates kur vins atrados ko var uzinat ar .where (uzkap uz vina sakuma)

set %safe RLFAKMD; Sominjas id kuraa liks logus

set %axe KPH; id/type pushki

set %shield NIK; id/type shilda

un seit ir jasaliek set`us.

[PerPeskY]

Kokiem ari tas .where der, ja? A kada forma jaraksta tas kordinates, vinas ar komatiem atdalit vai kaa?

[krans]

Kokiem ari tas .where der, ja? A kada forma jaraksta tas kordinates, vinas ar komatiem atdalit vai kaa?

Izmanto ta4u layeru =/

initevents

set %tree 0

start:

event macro 13 3

wait 10

targloop:

if #targcurs = 1

   goto targloop

set #lobjectid #ltargetid

if %ltargetx = #ltargetx && %ltargety = #ltargety

{

event sysmessage error. try again

goto start

}

execute cmd.exe /c echo >>ljroute2.txt GOSUB LJING #ltargetx #ltargety #ltargetz #ltargettile

set %ltargetx #ltargetx

set %ltargety #ltargety

set %tree %tree + 1

event sysmessage Done with Tree Nr. %tree

wait 10

goto start

(tas ir scp..) piespied play, un ar targetu spaidi pa kokiem, beigas spied stop, un paradisies jauns txt fails kura bus visas kordinates 1. skaitlis x ase, 2. skaitlis y ase tad ir augstums kuru jadzes ara parasti no 0-5 apmeram taa un 4. skaitli atstaj ka ir...

[PerPeskY]

Paldies, pameiginashu!

EDIT: GOSUB LJING xxxx yyyy q wwww

Ka no .where es varu konteinera atrashanas vietai izraut tos skaitlus kas apzimeti ar w?

EDIT2: tiem kas apzimeti ar q jadzesh araa?

[krans]

Paldies, pameiginashu!

EDIT: GOSUB LJING xxxx yyyy q wwww

Ka no .where es varu konteinera atrashanas vietai izraut tos skaitlus kas apzimeti ar w?

EDIT2: tiem kas apzimeti ar q jadzesh araa?

1.Edit - tas nav vajadzigs, konteineram vajaga tikai x un y

edit2 - Jaa

[PerPeskY]

Paldies! Man tagad ir taa, ka vinh skrien pie tiem kokiem sak chopot un tad uzreiz apstajas un tageto, tadejadi visu laiku beidz chopot, kas tur varetu buut pa vainu?

[krans]

Paldies! Man tagad ir taa, ka vinh skrien pie tiem kokiem sak chopot un tad uzreiz apstajas un tageto, tadejadi visu laiku beidz chopot, kas tur varetu buut pa vainu?

ko tiesi vins targeto?

[PerPeskY]

uz ta pasha koka man leikas, vai vinh vispar netargeto bet uzrei ka sak chopot sak skriet prom (radas ka arpus range)

[krans]

uz ta pasha koka man leikas, vai vinh vispar netargeto bet uzrei ka sak chopot sak skriet prom (radas ka arpus range)

pameigini izdzes macrosu, nezinu kapec bet sen agrak man klerikam vins trauceeja... =/

[PerPeskY]

nu targetoshanu tas aptureja, tagad vinh vnk uzspiez us koka, tad paradas " You stop Lumberjacking" un vnih skrien pie nakama koka neko nesachopojis

EDIT: atradu kluudu

sub ljing

gosub checkHP

gosub backpack

move %1 %2 1

finditem FSF C

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

wait 15 ir daudz par maz ja uzliek kautkur 400 tad viss strada, leils paldies tev

[EnFlame]

nu targetoshanu tas aptureja, tagad vinh vnk uzspiez us koka, tad paradas " You stop Lumberjacking" un vnih skrien pie nakama koka neko nesachopojis

EDIT: atradu kluudu

sub ljing

gosub checkHP

gosub backpack

move %1 %2 1

finditem FSF C

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

wait 15 ir daudz par maz ja uzliek kautkur 400 tad viss strada, leils paldies tev

nu īstenībā tā nebija kļūda.. nu bet galvenais, ka tev pašam strādā

[PerPeskY]

Nu ja tagad vinh strada normali, tikai tad kad svaars sasniedz to, pie kura vajadzetu nestu uz kasti, tad vinh vnk apstajas un talak neko nedara vispar, kads var pateikt kapec?

set %logs ZLK

set %safe RLFAKMD; Sominjas id kuraa liks logus

set %axe MLTDKMD; id/type pushki

set %shield UGXSKMD; id/type shilda



start:



GOSUB LJING............

goto start





sub ljing

gosub checkHP

gosub backpack

move %1 %2 1

finditem FSF C

set #lobjectid #findid

event macro 17 0

target 1000s; Vremja rubki kazdogo dereva

set #ltargetx %1

set #ltargety %2

set #ltargetkind 3

set #ltargettile %3

event macro 22 0

wait 350

set %overtime #scnt + 25

gosub scan

return





sub backpack

if #weight > 600

gosub razgr

return



sub scan; skanirovanije zurnala

scan:

gosub checkHP

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

gosub checkHP

if #scnt >= %overtime

return

goto scan





sub razgr

_move:

move **** ****; KASTES ATRASHANAAS VIETA

finditem %safe G_3

if #findcnt = 0

goto _move

repeat

{

finditem %logs c_ , #backpackid

if #findcnt <> 0

{

exevent Drag #Findid #findstack; Hvatajem vse logi

exevent Dropc %safe; Sgruzajem v Sunduk

wait 20

}

}

until #findcnt = 0

return





sub follow&kill

event macro 27 0

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

return



sub checkHP

if #hits < #maxhits

{

gosub arm

gosub follow&kill

}

return



sub arm

repeat

{

finditem %axe C_ , #backpackid

set #lobjectid #findid

event macro 17 0

}

until #findcnt = 0

repeat

{

finditem %shield C_ , #backpackid

set #lobjectid #findid

event macro 17 0

}

until #findcnt = 0

return

Sitads vinh tagad iskatas, padzesu koordinates

Edit: ieleku

sub razgr

_move:

move **** ****; KASTES ATRASHANAAS VIETA

finditem %safe G_3

if #findcnt = 0

goto _move

repeat

{

finditem %logs c_ , #backpackid

if #findcnt <> 0

{

exevent Drag #Findid #findstack; Hvatajem vse logi

exevent Dropc %safe; Sgruzajem v Sunduk

wait 20

}

}

until #findcnt = 0

return

vietaa

sub razgr

move 1339 2823

gosub moveItems

sub moveItems

{

set !dragTimeout 4;1/10 s

set !dragTimer #scnt2

set !items ZLK

if %0 < 10

set !items ZLK_POF_CUD

set !from #BackpackID

set !to UGCCLMD

finditem !items C_ , !from

for #findindex 1 #findcnt

{

if #findkind = 0

{

set !amt 1

if #findstack > 1

set !amt #findstack

while #scnt2 < !dragTimer

wait 0

exevent drag #findid !amt

exevent dropc !to

set !dragTimer #scnt2 + !dragTimeout

}

}

namespace clear



}

return

no viena cita skripa foruma, tagad iet, bet vinh ignore shito dalju

sub scan; skanirovanije zurnala

scan:

gosub checkHP

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

gosub checkHP

if #scnt >= %overtime

return

goto scan

Cik es saprotu vinai vajadzetu likt iet talak, ja koka vairs logu nav, bet vinh vnk sez to time un tad iet pie nakama shit nemaz nenemot galvaa Paldidzesiet?

[PerPeskY]

Up...


Btw ja es rindinju

if #weight > 600

aizvietoshu ar

if #weight => #maxweight - 10

tad stradas viss?

[EnFlame]

sub scan; skanirovanije zurnala

scan:

gosub checkHP

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

gosub checkHP

if #scnt >= %overtime

return

goto scan

šo daļu viņš ignorēja tāpēc, ka semikols ";" sagāja kopā ar suba nosakumu ''scan'' , vnk izdzēs to komentāru un atmaini atpakļ to wait, par ko rakstīji iepriekšējos postos.

Up...
Btw ja es rindinju

if #weight > 600

aizvietoshu ar

if #weight => #maxweight - 10

tad stradas viss?

nē. nevajag tur neko aizvietot, šitais

if #weight => #maxweight - 10

nestrādās, jo "if" neaprēķina dažādas aritmētiskas izteiksmes, to dara komanda "set" , piem,

....

set %weight #maxweight - 10

if #weight => %weight

....

[PerPeskY]

Paldies!

EDIT:
Ka es shitajaa dalaa, kur vinh sekos lopam ieleiku lai vinh healojas arii?

sub follow&kill

event macro 27 0

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

return

Es nez ka tur strada bet kautka lai vinh uo pasaka .usebandage un targento sevi, vai ari es varu uztiasit uo pasha tadu macro(man jau ir) un ving tikai to taustinju liek nospiest...


EDIT2:
Man liekas, ka ta dala nemaz nestraada, kur jaiet reaperi sist

[PerPeskY]

Up...
Nedaudz savadaks skripts, strada labak, bet kad paradas reaperi iet sist ar hatchet...

set %logs DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_FZH

set %safe UGCCLMD; ID kaste kur metis visus logus

set %Axe AJDGMMD; ID ieroca ar ko cinisaties

set %Shield UGXSKMD; id/type shilda

set %weight #maxweight - 10



start:

GOSUB LJING ....





goto start



sub ljing

move %1 %2 2

finditem FSF C

set #lobjectid #findid

event macro 17 0

target 2s					 ; katra koka cirsanas laiks

set #ltargetx %1

set #ltargety %2

set #ltargetkind 3

set #ltargettile %3

event macro 22 0

wait 7

set %overtime #scnt + 25

gosub backpack

gosub scan

return



sub backpack

if #weight > %weight

gosub razgr

return



sub scan

scan:

scanjournal %cnt

if #hits < #str

{

Finditem %Shield c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Axe c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

gosub follow&kill

}

if THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg

   return

if You_can't_use_that_in in #sysmsg

   return

if It_appears_immune_to_your_blow in #sysmsg

   return

if you_can't_reach_this in #sysmsg

   return

if #scnt >= %overtime

   return

goto scan



sub razgr

move xxxx yyyy

gosub moveItems

sub moveItems

{

set !dragTimeout 4;1/10 s

set !dragTimer #scnt2

set !items ZLK

if %0 < 10

set !items ZLK_POF_CUD

set !from #BackpackID

set !to UGCCLMD

finditem !items C_ , !from

for #findindex 1 #findcnt

{

if #findkind = 0

{

set !amt 1

if #findstack > 1

set !amt #findstack

while #scnt2 < !dragTimer

wait 0

exevent drag #findid !amt

exevent dropc !to

set !dragTimer #scnt2 + !dragTimeout

}

}

namespace clear



}

return



sub follow&kill

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

wait 2

msg .camp Heal $

return

Var paskaidrot un palabot ludzu?

[Inquis]

set %Axe AJDGMMD; ID ieroca ar ko cinisaties
set %Shield UGXSKMD; id/type shilda

no sakuma uzliec pirmajam ierocim ID, parasti cleriem war axe, shield raksti iekshaa type, parasti tas ir shields no carpentry, tad type ir 0x1B7A