Openkore BOT BG BOT | Battle Ground BOT



Remember:
The macro will not function if there is no macro plugins,
Download macro plugins here.

Paste this code to your config.txt

Battle_Map tierra1 ~BG Map
Battle_AI 1
Battle_PK 0
Battle_Random 0


Paste this code to your macros.txt located at BOTfolder/control/macros.txt

## http://ragnarokwikiquest.blogspot.com ##

macro CustomIdleAI {
# $useCustomIdleAI = Yes if you want to create pub while waiting "No" if not
   $useCustomIdleAI = No
# Location (x) (y)
   $customX = 365

   $customY = 120
#Pub name
   $customPub = @random ("Kaya nyu yan", "lagggggg", "cge lng", "bahala kayo", "kakatamad")
   if ($useCustomIdleAI == Yes) goto CustomTrigger
   if ($useCustomIdleAI == No) goto DefaultTrigger


   :CustomTrigger
   do move $customX $customY
   do chat create "$customPub"
   stop

   :DefaultTrigger
   call DefaultIdleAI
   stop
   }

        automacro Maroll {
           location aldebaran
           exclusive 1
           run-once 1
           call {
              do move 151 110
              do talknpc 146 109 c c r0 n
         release Maroll
           }
        }


        automacro GoHome {
           location not aldebaran
           location not bat_room
           location not bat_a01
           location not bat_a02
      location not bat_b01
      location not bat_b02
           exclusive 1
           run-once 1
           call {
          do move aldebaran
          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
          if ($randomMap == F) goto RandomMapFlavius


          :RandomMapTierra
          $RandomMapChoice = @random ("tierra1","tierra2","tierra3","tierra4")
          do conf Battle_Map $RandomMapChoice
          goto ContBGRoom

          :RandomMapFlavius
          $RandomMapChoice = @random ("flavius1","flavius2","flavius3","flavius4")
          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 tierraAtkStone1 {

           location bat_a01 170 349 175 343

           exclusive 1

           run-once 0

           call {

      do a 0

      stop

      }

           }





       automacro tierraAtkStone2 {

           location bat_a01 161 55 166 44

           exclusive 1

           run-once 0

           call {

      do a 0

      stop

      }

           }





       automacro tierraAtkStone3 {

           location bat_a02 170 349 175 343

           exclusive 1

           run-once 0

           call {

      do a 0

      stop

      }

           }





       automacro tierraAtkStone4 {

           location bat_a02 161 55 166 44

           exclusive 1

           run-once 0

           call {

      do a 0

      stop

      }

           }





       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

       }

#speednash080@yahoo.com

    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 chat leave

          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

 do chat create "Tao Ako, eh Ikaw?"

          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 CustomIdleAI

       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

          goto EndAI2





          :AI22

          do move 171 345

          goto EndAI2





          :EndAI2

          stop

          }





       macro DefaultIdleAI {





          $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

        }

#speednash080@yahoo.com

       macro EnterPub {

          do chat join 0

          pause 1

          stop

          }





       macro GetBadge {

          do talk 2

               stop

          }





{

automacro quit1 {

inventory "Unknown #7828" = 500

exclusive 1

call {

   do quit

}

}





automacro quit2 {

inventory "Bravery Badge" = 500

exclusive 1

call {

   do quit

}

}







automacro chan0 {

location bat_a01 178 134

exclusive 1

run-once 0

call {

do move 190 265

do a 4

}

}

## http://ragnarokwikiquest.blogspot.com/ ##

~End

Openkore BOT BG BOT | Battle Ground BOT

0 Comments »

Leave a comment


Join Us
Looking for
Facebook Admin
with
Ultimate Botting Skills

Followers

Powered by Blogger.