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..
Artikel 
3 Comments
wah menarik nih game lengkap dengan tutorialnya.
BalasHapuskalo 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... ^_^
seep sobat nanti gw buat artikelnya
BalasHapuskalo mau guna potion gimana
BalasHapus