Happy Mother Day's

Selamat Hari Ibu Untuk Semua Ibu Atas Muka Bumi Ni.
Jasa Anda Semua Amat Dihargai.
Duit Tak Banyak Nak Beli Barang Untuk Mak Aku.
Jadi Tak Leh Nak Beli Hadiah Lah.
Kesian Aku.
Tahun Depan La Plak Kot

Full Chemical Protection

automacro paket {
console /\[(jarak|dist)=(.*)\] (.*) \((\d+)\): (f|fcp|FCP)$/
exclusive 1
run-once 1
call {

$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$playerguild = @eval (exists $::players{$::playersID[$playerID]}->{guild} ? $::players{$::playersID[$playerID]}->{guild}{name} : 'null')

#Nama guild yg mau  FCP
$guild1 =
$guild2 =
$guild3 =
$guild4 =
$player1 =

if ($playerguild == $guild1) goto oke
if ($playerguild == $guild2) goto oke
if ($playerguild == $guild3) goto oke
if ($playerguild == $guild4) goto oke
if ($namaPlayer == $player1) goto oke
goto lain

:oke

if ($distance > 2 ) goto jauh

do sp 479 $playerID 5

goto end

:jauh
do e com

goto end
:lain
do c Ank Bukan Geng Aku P Belah...

:end

release paket
}
}

automacro sp {
console /\[(jarak|dist)=(.*)\] (.*) \((\d+)\): (fcp|FCP)$/
sp < 10%
exclusive 1
run-once 1
call kering
}

macro kering {
do c Tunggu Sat Sp Abis Neh $.sp
pause 0.2
release sp
}

Gospel With pubm

automacro paket {
pubm "gospel"
exclusive 1
run-once 1
call pket
}

macro pket{
do ss 369 10
release paket
}


Taip "gospel" bot akan buff player anda

Kalau Nak Bot Buff Tanpa Guild ,
Ganti $guild1 menjadi $player1
cth: $player1 = nama char kamu yg akan di beri buff


setelah diganti $guild1 menjadi $player1 kita harus tukar juga  if ($playerguild == $guild1) goto oke menjadi if ($namaPlayer == $player1) goto oke.

Contoh Bot Tukar Jadi Players

automacro link {
console /\[(jarak|dist)=(.*)\] (.*) \((\d+)\): (spirit|soul|\*Flag\s\d\*)$/
sp > 10%
call linker
}

macro linker {
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$id = $.lastMatch4
$playerguild = @eval (exists $::players{$::playersID[$id]}->{guild} ? $::players{$::playersID[$id]}->{guild}{name} : 'null')

#Nama player yg mau di paket
$player1 =
$player2 =
$player3 =
$player4 =
$player5 =

if ($namaPlayer == $player1) goto oke
if ($namaPlayer == $player2) goto oke
if ($namaPlayer == $player3) goto oke
if ($namaPlayer == $player4) goto oke
if ($namaPlayer == $player5) goto oke
goto bukan

if ($id < 0) stop
if ($distance > 11) goto jauh

:oke
$jobID = @eval ($::players{$::playersID[$id]}->{jobID})
if ($jobID = 7) goto knight
if ($jobID = 13) goto knight
if ($jobID = 4008) goto knight
if ($jobID = 4014) goto knight
if ($jobID = 12) goto assassin
if ($jobID = 4013) goto assassin
if ($jobID = 10) goto smith
if ($jobID = 4011) goto smith
if ($jobID = 14) goto paladin
if ($jobID = 21) goto paladin
if ($jobID = 4015) goto paladin
if ($jobID = 4022) goto paladin
if ($jobID = 4012) goto sniper
if ($jobID = 11) goto sniper
if ($jobID = 16) goto professor
if ($jobID = 4017) goto professor
if ($jobID = 8) goto priest
if ($jobID = 4009) goto priest
if ($jobID = 15) goto champion
if ($jobID = 4016) goto champion
if ($jobID = 4010) goto wizard
if ($jobID = 4018) goto stalker
if ($jobID = 18) goto creator
if ($jobID = 4019) goto creator
if ($jobID = 4020) goto clown
if ($jobID = 4021) goto clown
if ($jobID = 19) goto clown
if ($jobID = 20) goto clown
if ($jobID = 4047) goto star
if ($jobID = 4049) goto soul
if ($jobID = 23) goto snoob
goto jauh

:jauh
do c $namaPlayer Jangan Jauh2 donk...
stop
release link
:bukan
do e ??
stop
release link

:snoob
do sp 451 $id
stop
release link
:star
do sp 448 $id
stop
release link
:soul
do sp 461 $id
stop
release link
:knight
do sp 452 $id
stop
release link
:priest
do sp 454 $id
stop
release link
:wizard
do sp 453 $id
stop
release link
:smith
do sp 458 $id
stop
release link
:sniper
do sp 460 $id
stop
release link
:assassin
do sp 457 $id
stop
release link
:paladin
do sp 450 $id
stop
release link
:champion
do sp 447 $id
stop
release link
:professor
do sp 449 $id
stop
release link
:creator
do sp 445 $id
stop
release link
:clown
do sp 455 $id
stop
release link
:stalker
do sp 456 $id
stop
release link
}

Auto Skill

Ini macro apabila ada player yang meminta paket maka secara otomatis si bot akan memberikan paket agi dan bless kepada si player tersebut...
automacro agibless{
pubm /ab/
call paket1
}
macro paket1{
do sp 34 $.lastpub
pause 2
do sp 29 $.lastpub
}

Buff untuk guild

automacro buffAndWarp {
pubm /(ald|alde|sq|pron|prt|HL|pay|asum|heal|santuary|sant|ab|buff|agi|bless)/i
sp >= 70
priority 0
class high priest
exclusive 1
call checkMsg
}
macro checkMsg {
$i = @player ($.lastpub)
$g = @eval (exists $::players{$::playersID[$i]}->{guild} ? $::players{$::playersID[$i]}->{guild}{name} : 'null')
if ($g == Cap Ayam) goto accessGranted
if ($g == Samseng) goto accessGranted
goto end
:accessGranted
$msg = $.lastpubMsg
$posx = @rand (4, 5, 6, 7)
$posy = @rand (4, 5, 6, 7)
$cellIsFull = 0
do eval $::Macro::Data::varStack{cellIsFull} = 0;foreach (@{$::playersList->getItems()}) { next if (($_->{pos_to}{x} != $posx) || ($_->{pos_to}{y} != $posy));$::Macro::Data::varStack{cellIsFull} = 1; last;}
if ($cellIsFull == 1) goto accessGranted
$x = @arg ("$.pos", 1)
$y = @arg ("$.pos", 2)
$evalx = @eval ($x + $posx)
$evaly = @eval ($y + $posy)
if ($msg == ALD) goto warpAld
if ($msg == ald) goto warpAld
if ($msg == alde) goto warpAld
if ($msg == ALDE) goto warpAld
if ($msg == SQ) goto warpSq
if ($msg == sq) goto warpSq
if ($msg == GEF) goto warpGef
if ($msg == gef) goto warpGef
if ($msg == HL) goto warpHl
if ($msg == hl) goto warpHl
if ($msg == pay) goto warpHl
if ($msg == asum) goto asum
if ($msg == ASUM) goto asum
if ($msg == agi) goto agi
if ($msg == AGI) goto agi
if ($msg == bless) goto bless
if ($msg == BLESS) goto bless
if ($msg == ab) goto agiBless
if ($msg == AB) goto agiBless
if ($msg == buff) goto agiBless
if ($msg == heal) goto heal
if ($msg == HEAL) goto heal
if ($msg == sant) goto santuary
if ($msg == santuary) goto santuary
if ($msg == SANT) goto santuary
if ($msg == SANTUARY) goto santuary
goto end
:warpAld
do sl 27 $evalx $evaley
pause 1
do warp alde_gld
stop
:warpSq
do sl 27 $evalx $evaly
pause 1
do warp prt_gld
stop
:warpGef
do sl 27 $evalx $evaly
pause 1
do warp gef_fild13
stop
:warpHl
do sl 27 $evalx $evaly
pause 1
do warp pay_gld
stop
:asum
do sp 361 $i 5
stop
:agi
do sp 29 $i 10
stop
:bless
do sp 34 $i 10
stop
:agiBless
do sp 34 $i 10
pause 1
do sp 29 $i 10
stop
:heal
do sp 28 $i 10
pause 0.5
do sp 28 $i 10
pause 0.5
do sp 28 $i 10
pause 0.5
do sp 28 $i 10
stop
:santuary
do sp 70 $i 7
stop
:end
log $msg
stop
}

Tukar Cap Ayam Dengan Samseng

Auto Heal

Ini macro untuk priest, jadi apabila ada org yang minta heal , automatic bot akan heal player tersebut automacro mintaheal{ pubm /heal/ call giveheal} macro giveheal { pause 1 do sp 28 $.lastpub pause 1 do sp 28 $.lastpub } sp 28 [ heal ] bot akan heal 2 kali