Valkyrie Bot - BG BOT part 2

macro CharPos {

$Map = @eval($::config{Battle_Map})

if ($Map == tierra1) goto Pos1
if ($Map == tierra2) goto Pos2
if ($Map == tierra3) goto Pos3
if ($Map == tierra4) goto Pos4
if ($Map == flavius1) goto Pos1
if ($Map == flavius2) goto Pos2
if ($Map == flavius3) goto Pos3
if ($Map == flavius4) goto Pos4

:Pos1
$randomX1 = @random ("132","133")
$randomY1 = @random ("171","172","173","174")
do move $randomX1 $randomY1
goto endCharPos

:Pos2
$randomX2 = @random ("148","149")
$randomY2 = @random ("171","172","173","174")
do move $randomX2 $randomY2
goto endCharPos

:Pos3
$randomX3 = @random ("132","133")
$randomY3 = @random ("125","126","127","128")
do move $randomX3 $randomY3
goto endCharPos

:Pos4
$randomX4 = @random ("148","149")
$randomY4 = @random ("125","126","127","128")
do move $randomX4 $randomY4
goto endCharPos

:endCharPos
stop
}

macro TalkBGnpc {

$Map = @eval($::config{Battle_Map})

if ($Map == tierra1) goto NPC1
if ($Map == tierra2) goto NPC2
if ($Map == tierra3) goto NPC3
if ($Map == tierra4) goto NPC4
if ($Map == flavius1) goto NPC5
if ($Map == flavius2) goto NPC6
if ($Map == flavius3) goto NPC7
if ($Map == flavius4) goto NPC8

:NPC1
do talknpc 124 178 c r0 n
stop

:NPC2
do talknpc 140 178 c r0 n
stop

:NPC3
do talknpc 125 121 c r0 n
stop

:NPC4
do talknpc 140 121 c r0 n
stop

:NPC5
do talknpc 133 178 c r0 n
stop

:NPC6
do talknpc 148 178 c r0 n
stop

:NPC7
do talknpc 133 121 c r0 n
stop

:NPC8
do talknpc 148 121 c r0 n
stop
}

macro TierraAI {

$AI = @eval($::config{Battle_AI})

if ($AI == 0) goto AI1
if ($AI == 1) goto AI2

:AI1
call IdleAI
stop

:AI2
$Map = @eval($::config{Battle_Map})

if ($Map == tierra1) goto AI11
if ($Map == tierra2) goto AI11
if ($Map == tierra3) goto AI22
if ($Map == tierra4) goto AI22

:AI11
do move 162 49
do a 0
goto EndAI2

:AI22
do move 171 345
do a 0
goto EndAI2

:EndAI2
stop
}

macro IdleAI {

$Map = @eval($::config{Battle_Map})

if ($Map == tierra1) goto Pub1
if ($Map == tierra2) goto Pub1
if ($Map == tierra3) goto Pub2
if ($Map == tierra4) goto Pub2

:Pub1
$PubX1 = @random ("351","352","353","354","355")
$PubY1 = @random ("350","351")
do move $PubX1 $PubY1
goto EndPub

:Pub2
$PubX2 = @random ("352","353","354","355","356")
$PubY2 = @random ("47","48")
do move $PubX2 $PubY2
goto EndPub

:EndPub
$randomPub = @random ("Be Right Back","Away From Keyboard","Eating","Taking a Bath","Sleeping")
do chat create "$randomPub"
stop
}

macro RespondPK {

$PKPlayer = $.lastmatch2
$PK = @eval($::config{Battle_PK})

if ($PK == 0) goto PK1
if ($PK == 1) goto PK2

:PK1
do e wah
goto EndRespondPK

:PK2
do e gg
do kill $PKPlayer
goto EndRespondPK

:EndRespondPK
call TierraAI
stop
release PKAtk
release PKSkill
}

macro EnterPub {
do chat join 0
pause 1
stop
}

macro GetBadge {
do talk 2
stop
}