| paste this on macro.txt below the part 1
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
}
| |
