##########加在 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
          }


 

arrow
arrow
    全站熱搜

    aaa1314 發表在 痞客邦 留言(0) 人氣()