About Mew O wSepakbolaTV OnlineGameOnlineAplikasiAwardDaftar isi

Kamis, 24 Januari 2013

Bot crystal saga

Kali ini saya akan share sedikit tentang Turtorial cara memakai Bot crystal saga menggunakan Blue Eye Macro...

1. Download dan install aplikasi Blue Eye Macro 2.5 disini
2.Log in Crystal saga.
3. Open Blue Eye Macro yang di download tadi.
4. Klik Create nanti akan terbuka tab baru.


4. isi data seperti di bawah ini....
(1) Masukan nama dan kategori
(2) Pilih shorcut untuk memulai dan menghentikan Bot.
(3) Masukan kode, Copy dan paste kode di bawah ini :

 // Version 0.5
 begin
     Variable.Set("Kill", "0")
     Variable.Set("Timer", "0")
     Variable.Set("Looter", "0")
     begin loop("-1")
          // Checks Crystal Saga
          Window.Bring to front("crystal saga", "No")
          // Execute Buffs
          Function.Execute("Buffs")
          // Choose Target
          Function.Execute("Target")
          // Starts Attacking
          Function.Execute("Attacks")
          // Starts Looting
          Function.Execute("Loot")
          // Kill Counter
          // Function.Execute("Counter")
     end
 end

function("CharHP")
     begin
          // Always position your + (investigator) cursor to the very middle Char HP bar VERTICALLY and around 30% Char HP bar HORIZONTALLY
          // If coordinate 125, 96 color is grey (R 87, G 82, B 55 more or less 10 points), it means your Char HP is below 30%
          if  Color.At coordinate is within (RGB range)("87", "82", "55", "10", "125", "96")
               begin
                    Keyboard.Hold keys("Q")
                    Macro.Pause("0")
                    Keyboard.Release keys("Q")
                    Macro.Pause("0")
               end
     end
function

function("CharMP")
     begin
          // Always position your + (investigator) cursor to the very middle Char MP bar VERTICALLY and around 30% Char MP bar HORIZONTALLY
          // If coordinate 125, 110 color is grey (R 87, G 82, B 55 more or less 10 points), it means your Char MP is below 30%
          if  Color.At coordinate is within (RGB range)("87", "82", "55", "10", "125", "110")
               begin
                    Keyboard.Hold keys("W")
                    Macro.Pause("0")
                    Keyboard.Release keys("W")
                    Macro.Pause("0")
               end
     end
function

function("PetHP")
     begin
          // Always position your + (investigator) cursor to the very middle Pet HP bar VERTICALLY and around 30% Pet HP bar HORIZONTALLY
          // If coordinate 120, 147 color is grey (R 87, G 82, B 55 more or less 10 points), it means your Pet HP is below 30%
          if  Color.At coordinate is within (RGB range)("87", "82", "55", "10", "120", "147")
               begin
                    Keyboard.Hold keys("E")
                    Macro.Pause("0")
                    Keyboard.Release keys("E")
                    Macro.Pause("0")
               end
     end
function

function("PetMP")
     begin
          // Always position your + (investigator) cursor to the very middle Pet MP bar VERTICALLY and around 30% Pet MP bar HORIZONTALLY
          // If coordinate 120, 159 color is grey (R 87, G 82, B 55 more or less 10 points), it means your Pet MP is below 30%
          if  Color.At coordinate is within (RGB range)("87", "82", "55", "10", "120", "159")
               begin
                    Keyboard.Hold keys("R")
                    Macro.Pause("0")
                    Keyboard.Release keys("R")
                    Macro.Pause("0")
               end
     end
function

function("Buffs")
     // This is a bit primitive, I will execute this buff every 50 targets because the buff last for 10 minutes and it is around 50 targets
     begin
          // If Timer is zero, execute buff
          if  Variable.Is equal to("Timer", "0")
               begin
                    Keyboard.Hold keys("8")
                    Macro.Pause("10")
                    Keyboard.Release keys("8")
                    Macro.Pause("10")
                    Variable.Increment (Math)("Timer")
                    Macro.Pause("10")
               end
          // If Timer is not 50, keep increasing the timer +1, if 50, reset to zero so buff will be executed again
          while  Variable.Is not equal to("Timer", "50")
               begin
                    Variable.Increment (Math)("Timer")
                    Macro.Pause("0")
               end
          // Timer is back to zero
          Variable.Set("Timer", "0")
     end
function

function("Target")
     begin
          // Always position your + (investigator) cursor to the very middle Monster HP bar VERTICALLY and around <5% Monster HP bar HORIZONTALLY
          // If coordinate 667, 88 color is NOT red (R 178, G 22, B 32 more or less 10 points), it means you have NOT choose any monster
          if  Color.At coordinate is not within (RGB range)("178", "22", "32", "10", "667", "88")
               Begin
                    Keyboard.Hold keys("{<oemtilde>}")
                    Macro.Pause("0")
                    Keyboard.Release keys("{<oemtilde>}")
                    Macro.Pause("0")
               end
     end
function

function("Attacks")
     begin
          // Always position your + (investigator) cursor to the very middle Monster HP bar VERTICALLY and around >95% Monster HP bar HORIZONTALLY
          // If coordinate 732, 88 color is grey (R 87, G 82, B 55 more or less 10 points), it means monster has been attacked by other players
          if  Color.At coordinate is within (RGB range)("87", "82", "55", "10", "732", "88")
               begin
                    // Choose New Target
                    Function.Execute("Target")
               end
          // Always position your + (investigator) cursor to the very middle Monster HP bar VERTICALLY and around >95% Monster HP bar HORIZONTALLY
          // If coordinate 732, 88 color is red (R 178, G 22, B 32 more or less 10 points), it means monster has NOT been attacked by other players
          if  Color.At coordinate is within (RGB range)("178", "22", "32", "10", "732", "88")
               begin
                    // Always position your + (investigator) cursor to the very middle Monster HP bar VERTICALLY and around <5% Monster HP bar HORIZONTALLY
                    // If coordinate 667, 88 color is red (R 178, G 22, B 32 more or less 10 points), it means monster is still alive, keep attacking
                    while  Color.At coordinate is within (RGB range)("178", "22", "32", "10", "667", "88")
                         begin
                              // Checks Char HP and uses Char's Healing Potion
                              Function.Execute("CharHP")
                              // Checks Char MP and uses Char's Mana Potion
                              Function.Execute("CharMP")
                              // Checks Pet HP and uses Pet's Healing Potion
                              Function.Execute("PetHP")
                              // Checks Pet MP and Uses Pet's Mana Potion
                              Function.Execute("PetMP")
                              Keyboard.Hold keys("1")
                              Macro.Pause("0")
                              Keyboard.Release keys("1")
                              Macro.Pause("0")
                              Keyboard.Hold keys("2")
                              Macro.Pause("0")
                              Keyboard.Release keys("2")
                              Macro.Pause("0")
                         end
               end
     end
function

function("Loot")
     begin
          // If Looter is Not 3, keep looting and increment the number
          while  Variable.Is not equal to("Looter", "3")
               begin
                    Keyboard.Hold keys("{<space>}")
                    Macro.Pause("125")
                    Keyboard.Release keys("{<space>}")
                    Macro.Pause("125")
                    Variable.Increment (Math)("Looter")
                    Macro.Pause("125")
               end
          // Looter back to zero
          Variable.Set("Looter", "0")
          // If Timer is not zero, check again if it is 50. If not 50, increase timer +1, if 50, reset to zero so buff will be executed again
     end
function

function("Counter")
     begin
          Window.Close("Message", "no")
          Macro.Pause("15")
          Variable.Increment (Math)("Kill")
          Macro.Pause("15")
          Variable.Evaluate (Text)("{Kill} Kills", "Num")
          Macro.Pause("15")
          Window.Display message box("{Num}", "no")
          Macro.Pause("12")
          Window.Bring to front("crystal saga", "no")
          Macro.Pause("15")
     end
function

(4) Klik Save / Close


5. kembali ke game dan Start Bot.
NB : jika menggunakan bot ini, Sobat tidak bisa menganti2 Windows.
Skill / Normal Attack di letakan pada kotak no "8" pada game crystal saga.
Lainnya di ganti aja sendiri..

Related Post:

Ditulis Oleh : Unknown ~ Great Works Of Art

Artikel Bot crystal saga ini diposting oleh Unknown pada hari Kamis, 24 Januari 2013. Terimakasih atas kunjungan Sobat serta kesediaan Sobat membaca artikel ini. Kritik dan saran dapat anda sampaikan melalui kotak komentar.

:: Get this widget ! ::

Comments
3 Comments

3 komentar:

  1. wah menarik nih game lengkap dengan tutorialnya.
    kalo boleh request, saya pesen game yang perang2 sob. hehe.. abis udah bosen saya punya game perang tapi cuma counter strike sama call of dutty aja.
    thanks kawan... ^_^

    BalasHapus
  2. seep sobat nanti gw buat artikelnya

    BalasHapus