Saturday, August 1, 2009

Macro Soul Linker

===============================================================

automacro soulinker {

console /\[dist=(.*)\] (.*) \((\d+)\): (.*)(spirit|Flag|)(.*)$/
call spirit
priority 1
}

macro spirit {
$n = $.lastMatch2
$b = $.lastMatch3
$skill = $.lastMatch5
$playerID = @player($.lastguild)
$playerguild = @eval (exists $:layers{$:layersID[$playerID]}->{guild} ? $:layers{$:layersID[$playerID]}->{guild}{name} : 'null')

$guild = TechnoGeek


if ($playerguild == $guild) goto skill
if ($playerguild != $guild) goto laen
goto laen
stop

:skill
if ($skill == spirit) goto spirit
if ($skill == Flag) goto ka
if ($skill == ) goto ka
stop

:ka
do sp kaite "$n"
do sp kaupe "$n"
do sp kaizel "$n"
do c sabar lg maketin $n
do e ok
stop

:spirit
if ($job = 12) goto sin
if ($job = 4013) goto sin
if ($job = 16) goto sage
if ($job = 4017) goto sage
if ($job = 8) goto pris
if ($job = 4009) goto pris
if ($job = 15) goto monk
if ($job = 4016) goto monk
if ($job = 9) goto wiz
if ($job = 4010) goto wiz
if ($job = 17) goto rogue
if ($job = 4018) goto rogue
if ($job = 18) goto alche
if ($job = 4019) goto alche
if ($job = 4020) goto bdc
if ($job = 4021) goto bdc
if ($job = 19) goto bdc
if ($job = 20) goto bdc
if ($job = 14) goto crs
if ($job = 4015) goto crs
if ($job = 21) goto crs
if ($job = 4022) goto crs
if ($job = 23) goto sn
if ($job = 10) goto bs
if ($job = 4011) goto bs
if ($job = 4047) goto tm
if ($job = 4048) goto tm
if ($job = 4049) goto sl
if ($job = 7) goto knit
if ($job = 13) goto knit
if ($job = 174) goto knit
if ($job = 4014) goto knit

:sin
do sp 457 "$n"
goto finish
:sage
do sp 449 "$n"
goto finish
ris
do sp 454 "$n"
goto finish
:monk
do sp 447 "$n"
goto finish
:wiz
do sp 453 "$n"
goto finish
:rogue
do sp 456 "$n"
goto finish
:alche
do sp 445 "$n"
goto finish
:bdc
do sp 455 "$n"
goto finish
:crs
do sp 450 "$n"
goto finish
:sn
do sp 451 "$n"
goto finish
:bs
do sp 458 "$n"
goto finish
:tm
do sp 448 "$n"
goto finish
:sl
do sp 461 "$n"
goto finish
:knit
do sp 452 "$n"
goto finish

:finish
release all
do c abis mati ya $n ? Kasihan...
do e pif
stop

:laen
do c cuma buat Geek Guild only
stop

:end
stop

}

===========================================================

itu yg huruf merah , tlg d rubah sndiri ya..

btw g jamin 100% worked, soal na wa juga lom pernah coba tuh.. gr" gk bikin SL =P

1 comment: