##########加在 Config.txt#########
Battle_Map tierra1
Battle_AI 1
Battle_PK 1
Battle_Random 0
##########加在 Config.txt#########
##########加在 Macros.txt#########
##########加在 Macros.txt#########
automacro Maroll {
location prontera
exclusive 1
run-once 1
call {
do move 119 87
do talknpc 123 83 c c r0 n
release Maroll
}
}
automacro GoHome {
location not prontera
location not bat_room
location not bat_a01
location not bat_a02
exclusive 1
run-once 1
call {
do move prontera
release GoHome
}
}
automacro BGroomEntry {
location bat_room
exclusive 1
priority 1
run-once 0
call {
$randomMap = @eval($::config{Battle_Random})
if ($randomMap == 0) goto ContBGRoom
if ($randomMap == 1) goto RandomMapTierra
:RandomMapTierra
$RandomMapChoice = @random ("tierra1","tierra2","tierra3","tierra4")
do conf Battle_Map $RandomMapChoice
goto ContBGRoom
:ContBGRoom
call CharPos
}
}
automacro TalkNPC1 {
location bat_room 132 175 135 169
exclusive 1
run-once 0
call TalkBGnpc
}
automacro TalkNPC2 {
location bat_room 148 175 151 170
exclusive 1
run-once 0
call TalkBGnpc
}
automacro TalkNPC3 {
location bat_room 132 131 135 125
exclusive 1
run-once 0
call TalkBGnpc
}
automacro TalkNPC4 {
location bat_room 148 132 151 125
exclusive 1
run-once 0
call TalkBGnpc
}
automacro SpawnPubT1 {
location bat_room 57 223
exclusive 1
run-once 0
call EnterPub
}
automacro SpawnPubT2 {
location bat_room 114 223
exclusive 1
run-once 0
call EnterPub
}
automacro SpawnPubT3 {
location bat_room 57 207
exclusive 1
run-once 0
call EnterPub
}
automacro SpawnPubT4 {
location bat_room 114 207
exclusive 1
run-once 0
call EnterPub
}
automacro SpawnPubF1 {
location bat_room 85 223
exclusive 1
run-once 0
call EnterPub
}
automacro SpawnPubF2 {
location bat_room 141 224
exclusive 1
run-once 0
call EnterPub
}
automacro SpawnPubF3 {
location bat_room 85 207
exclusive 1
run-once 0
call EnterPub
}
automacro SpawnPubF4 {
location bat_room 141 207
exclusive 1
run-once 0
call EnterPub
}
automacro tierraEntry1 {
location bat_a01
exclusive 1
run-once 0
priority 1
call TierraAI
}
automacro tierraEntry2 {
location bat_a02
exclusive 1
run-once 0
priority 1
call TierraAI
}
automacro PKAtk {
console /Player (.*) \((\d+)\) attacks You.*/i
exclusive 1
run-once 1
call RespondPK
}
automacro PKSkill {
console /Player (.*) \((\d+)\) uses (.*) on you.*/i
exclusive 1
run-once 1
call RespondPK
}
automacro TierraExit1 {
location bat_a01 50 374
exclusive 1
run-once 0
call GetBadge
}
automacro TierraExit2 {
location bat_a01 43 17
exclusive 1
run-once 0
call GetBadge
}
automacro TierraExit3 {
location bat_a02 50 374
exclusive 1
run-once 0
call GetBadge
}
automacro TierraExit4 {
location bat_a02 43 17
exclusive 1
run-once 0
call GetBadge
}
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
do chat create "九九女神官臭三八" 10 0 1989
goto endCharPos
:Pos2
$randomX2 = @random ("148","149")
$randomY2 = @random ("171","172","173","174")
do move $randomX2 $randomY2
do chat create "我打很快" 10 0 1989
goto endCharPos
:Pos3
$randomX3 = @random ("132","133")
$randomY3 = @random ("125","126","127","128")
do move $randomX3 $randomY3
do chat create "我打很快" 10 0 1989
goto endCharPos
:Pos4
$randomX4 = @random ("148","149")
$randomY4 = @random ("125","126","127","128")
do move $randomX4 $randomY4
do chat create "別休息繼續按" 10 0 1989
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 270 250
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
}
留言列表