29 replies to this topic

[PerPeskY]

Vai tad ir atshkiriba kads shields, man ir kite un swords, tam jau nevajadzetu neko manit ja id ir pareizi

Ko Tu domaji ar type?

[krans]

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

Vispar jau klerikam izdevigak ir likt cubu, jo to vins pats var taisiit

[PerPeskY]

Par to kuri izdevigi man vienalga, ja vajag man var ar waru draugs viens uzstiasit vai vnk kautkur izraut, man svarigi vai tas ir tas kas ietekme to skriptu, jo es 100% zinu ka id ir pareizi, bet vienalga vinh nemaina ierochus kad iet cinites. Nezinu daudz par skriptoshanu, bet tiesham nedomaju, ka tas vai man ir kite vai carpentery shields kautko mana tajaa...

Kas vel varetu buut?

[krans]

Par to kuri izdevigi man vienalga, ja vajag man var ar waru draugs viens uzstiasit vai vnk kautkur izraut, man svarigi vai tas ir tas kas ietekme to skriptu, jo es 100% zinu ka id ir pareizi, bet vienalga vinh nemaina ierochus kad iet cinites. Nezinu daudz par skriptoshanu, bet tiesham nedomaju, ka tas vai man ir kite vai carpentery shields kautko mana tajaa...

Kas vel varetu buut?

Tur kur tu sarakstiiji iero4u ID, ieraksti Type. Type ir 3 burtu kombinacija, ID 6-7 (laikam)

[PerPeskY]

Mans skripts tagad

initevents

set %logs DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_FZH

set %safe TLILKMD; ID kaste kur metis visus logus

set %Axe DIIXKMD; ID ieroca ar ko cinisaties

set %Shield TVIUKMD; 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 < #maxhits

{

gosub arm

wait 5

gosub follow&kill

wait 2

}

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 TLILKMD

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

event macro 27 0

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

wait 2

msg .camp Heal $

return



sub arm

finditem %axe C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 5

finditem %shield C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 5

return

ID ir 10x parbauditi, vinh vnk neekipo, sit ar hatchetu
Kur tur ir kluuda, es nesaprotu :/

[PerPeskY]

UP!

[EnFlame]

nu pizdec kur jūs te piefloodojāt :/

set %logs DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_FZH

set %safe TLILKMD

set %Axe DIIXKMD

set %Shield TVIUKMD

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

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 < #maxhits

{

gosub arm

wait 5

gosub follow&kill

wait 2

}

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

{

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 TLILKMD

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

event macro 27 0

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

wait 2

msg .camp Heal $

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

[PerPeskY]

Paldies EnFlame!

Nu bet vienalga nestrada es visu simtam reizu esmu parbaudijis, id arii, vinh vnk nevelk virsu axe un shield, sitas ar hatchet...

Kura vietaa skripta vinh velk hatchet? es nevaru atrast... Varbt tur ir kluda. Komanda .arm nestradaa... :/

[krans]

Izlasi #24 postu!!!! ierasti type nejau ID!

[PerPeskY]

Es ari ta pameinaju vienalg dauza reaperus ar hatchetu...

Edit: Shoriit vis iet LOL