Recent post
Archive for Juni 2013
Lumayan Lama Admin tidak Post, karena sibuk nyari sekolah. hehe. oke, kali ini admin akan share tentang Cara Membuat Script BEM ( Blue Eye Macro ) yang biasa digunakan untuk BOT di Digimon Masters Online (DMO). Beda dengan Ps*bots software dari blue Eye Macro ini gratis untuk trial 30 Days. setelah itu harus beli Licensed key .. biasa cari penghasilan :D buat yang frustasi ingin licensed untuk selamanya bisa PM FB Admin DISINI. Hanya dengan Rp. 20.000,00 saja :) daripada perbulan harus bayar Rp. 50.000,00.. halah malah menjauhi topik ini. daripada semakin jauh, langsung saja kita masuk ke tutor nya.
1. Buka Program BEM
2. Klik Developer dan Pilih Create
3. Isi Nomer 3 dengan apapun sebagai Judul Scriptnya, Nomer 4 sebagai category dan nomer 5 isi dengan script bot dibawah ini
4. Copy Kode Berikut !
begin loop()
Keyboard.Hold keys("{<tab>}4")
Function.Execute("Human Pause")
Keyboard.Release keys("{<tab>}4")
Function.Execute("Human Pause")
Function.Execute("Heal")
Function.Execute("Party Check")
// RGB of the digi you want to attack
if Color.At coordinate is (RGB)("46", "123", "22", "763", "69")
begin loop()
Keyboard.Hold keys("1")
Function.Execute("Human Pause")
Keyboard.Release keys("1")
Keyboard.Hold keys("4")
Function.Execute("Human Pause")
Keyboard.Release keys("4")
Function.Execute("Heal")
Function.Execute("Party Check")
// Same co ordinates of the previous check
if Color.At coordinate is not (RGB)("46", "123", "22", "763", "69")
begin
Macro.Restart("no")
end
end
// RGB of the red square of aggro monsters around the fist
if Color.At coordinate is (RGB)("0", "141", "91", "571", "91")
begin loop()
Keyboard.Hold keys("4")
Function.Execute("Human Pause")
Keyboard.Release keys("4")
Keyboard.Hold keys("1")
Function.Execute("Human Pause")
Keyboard.Release keys("1")
Function.Execute("Heal")
Function.Execute("Party Check")
// Same RGB from above
if Color.At coordinate is not (RGB)(")("0", "141", "91", "571", "91")
begin
Macro.Restart("no")
end
end
// Same RGB from above
if Color.At coordinate is not (RGB)("0", "141", "91", "571", "91")
begin
Macro.Restart("no")
end
end
function("Human Pause")
begin
Variable.Set random number("HumanTime", "300", "600")
Macro.Pause("{HumanTime}")
end
function
function("Heal")
// RGB of a part of digimon hp , preferable about 25% of your digimon HP , this uses Hp DISK in slot F7
if Color.At coordinate is not (RGB)("216", "65", "54", "139", "151")
begin
Keyboard.Hold keys("{<f7>}")
Function.Execute("Human Pause")
Keyboard.Release keys("{<f7>}")
end
// RGB of a part of digimon hp to use FOOD in slot 7 , preferably specify about 50% of digimon HP
if Color.At coordinate is not (RGB)("216", "65", "54", "167", "151")
begin
Keyboard.Hold keys("7")
Function.Execute("Human Pause")
Keyboard.Release keys("7")
end
// RGB for Digimon DS to use DS DISK in slot F8
if Color.At coordinate is not (RGB)("24", "205", "196", "123", "93")
begin
Keyboard.Hold keys("{<f8>}")
Macro.Pause("50")
Keyboard.Release keys("{<f8>}")
end
// RGB for TAMER DS , slot 8
if Color.At coordinate is not (RGB)("24", "205", "196", "141", "93")
begin
Keyboard.Hold keys("8")
Macro.Pause("50")
Keyboard.Release keys("8")
end
function
Keyboard.Hold keys("{<tab>}4")
Function.Execute("Human Pause")
Keyboard.Release keys("{<tab>}4")
Function.Execute("Human Pause")
Function.Execute("Heal")
Function.Execute("Party Check")
// RGB of the digi you want to attack
if Color.At coordinate is (RGB)("46", "123", "22", "763", "69")
begin loop()
Keyboard.Hold keys("1")
Function.Execute("Human Pause")
Keyboard.Release keys("1")
Keyboard.Hold keys("4")
Function.Execute("Human Pause")
Keyboard.Release keys("4")
Function.Execute("Heal")
Function.Execute("Party Check")
// Same co ordinates of the previous check
if Color.At coordinate is not (RGB)("46", "123", "22", "763", "69")
begin
Macro.Restart("no")
end
end
// RGB of the red square of aggro monsters around the fist
if Color.At coordinate is (RGB)("0", "141", "91", "571", "91")
begin loop()
Keyboard.Hold keys("4")
Function.Execute("Human Pause")
Keyboard.Release keys("4")
Keyboard.Hold keys("1")
Function.Execute("Human Pause")
Keyboard.Release keys("1")
Function.Execute("Heal")
Function.Execute("Party Check")
// Same RGB from above
if Color.At coordinate is not (RGB)(")("0", "141", "91", "571", "91")
begin
Macro.Restart("no")
end
end
// Same RGB from above
if Color.At coordinate is not (RGB)("0", "141", "91", "571", "91")
begin
Macro.Restart("no")
end
end
function("Human Pause")
begin
Variable.Set random number("HumanTime", "300", "600")
Macro.Pause("{HumanTime}")
end
function
function("Heal")
// RGB of a part of digimon hp , preferable about 25% of your digimon HP , this uses Hp DISK in slot F7
if Color.At coordinate is not (RGB)("216", "65", "54", "139", "151")
begin
Keyboard.Hold keys("{<f7>}")
Function.Execute("Human Pause")
Keyboard.Release keys("{<f7>}")
end
// RGB of a part of digimon hp to use FOOD in slot 7 , preferably specify about 50% of digimon HP
if Color.At coordinate is not (RGB)("216", "65", "54", "167", "151")
begin
Keyboard.Hold keys("7")
Function.Execute("Human Pause")
Keyboard.Release keys("7")
end
// RGB for Digimon DS to use DS DISK in slot F8
if Color.At coordinate is not (RGB)("24", "205", "196", "123", "93")
begin
Keyboard.Hold keys("{<f8>}")
Macro.Pause("50")
Keyboard.Release keys("{<f8>}")
end
// RGB for TAMER DS , slot 8
if Color.At coordinate is not (RGB)("24", "205", "196", "141", "93")
begin
Keyboard.Hold keys("8")
Macro.Pause("50")
Keyboard.Release keys("8")
end
function
5. Lalu Hasilnya akan menjadi seperti ini
6. Sekarang waktunya edit scriptnya (Detect Monsternya). Hapus angka yang sudah saya tandai hingga menjadi seperti ini
7. Lalu klik pada gambar kaca pembesar yang ada disampingnya. Lalu akan keluar window seperti dibawah ini
8. Sekarang buka DMO nya. lalu klik pada monster yang tidak aggresive. lalu pencet Printscreen atau CTRL+S
9. Lalu akan menjadi seperti dibawah ini
10. Lalu klik dimana saya klik (liat pada gambar [1]) Lalu akan muncul "coordinates" Klik Import
11. Setelah itu akan ada Angka-angka pada Kolom kosong tadi. Seperti pada gambar dibawah ini
12. Lalu Copy "Coordinates" pada Koordinat dibawahnya seperti pada gambar
13. Sekarang kita lanjutkan untuk Leader Monster. Hapus Angka seperti pada langkah nomor (6)
14. Lalu Klik lagi kaca pembesarnya. Akan muncul lagi window Investigator.
15. Kembali Ke Game DMO dan Klik pada Monster Leader lalu klik "PrintScreen" atau CTRL+S. Lalu akan menjadi seperti ini
16. Klik pada Pojok Kotak aggresive indicator seperti dibawah ini. lalu klik import
17. Lalu Copy lagi seperti langkah nomor (12). Pada nomor 2 dan 3 pada gambar dibawah ini.
18. Lalu akan menjadi seperti dibawah ini
19. Selanjutnya jika sudah selesai akan jadi seperti dibawah ini. Nomor 1 adalah langkah yang sudah selesai kita lewati. Nomor 2 adalah jeda untuk kill monster (tidak penting). Nomor 3 adalah hal yang akan kita selesaikan setelah ini (Heal/HP dan DS).
20. Setelah kita scroll turun akan terlihat seperti gambar berikut
21. Sekarang hapus lagi coordinates seperti diatas. Klik Lup
Akan Muncul seperti dibawah ini. Lalu, klik seperti pada nomor 1 lalu klik pada nomor 2 dan Klik import
22. Hasilnya akan menjadi seperti ini
23. Turun, dan hapus coordinate lagi seperti diatas..
(1) Klik pada area saat HP kita berkurang akan Mengisi sendiri
(2) Coordinates setelah kita klik nomor 1
(3) Klik Import
Akan Menjadi seperti dibawah ini
24. Sekarang waktunya edit untuk DS Digimon Hapus lagi coordinatenya lalu klik Lup. Klik seperti gambar dibawah. klik Import. Akan menjadi seperti ini
25. Sekarang untuk edit DS Tamer. hapus Coordinate lagi. Klik Import/lup dan tandai lagi seperti gambar. Klik Import lagi
26. Script telah Selesai ^^
27. Tunggu, sekarang waktunya test. Klik Save/Close
28. Lalu klik Tab Macro. lalu klik Category dan judul yang telah kita isi pada langkah nomor (3) Klik Start.. SELAMAT, Bot Kita berjalan dengan lancar ^^
NB : Letakkan CC/Burger/Pizza pada F8 dan F7. Roti pada nomor 7 dan Vitamin pada nomor 8
Okay, Saya rasa cukup untuk tutor Membuat Script BEM kali ini. Jangan Lupa Tinggalkan Komentar dan Follow blog ini. :) Sertakan Credit jika ingin dibagikan ^^
After Earth adalah film terbaru 2013. Film yang dibintangi Jaden Smith,
Will Smith,dan Sophie Okonedo ini merombak tangga Box Office.Film yang
di rilis pada Tanggal 31 Mei 2013 di USA ini cukup membuat penasaran
para pecinta film action. Langsung saja Download After Earth Subtitle
Indonesia..
About Film
Jenis Film : Action
Produser : Caleeb Pinkett, Will Smith, James Lassiter, Jada Pinkett Smith, M. Night Shyamalan
Produksi : COLUMBIA PICTURES
Sutradara : M. Night Shyamalan
Homepage : www.afterearth.com/site/
Sinopsis
1000 tahun setelah manusia dipaksa untuk meninggalkan bumi karena bencana alam dahsyat, seorang remaja bernama Kitai
Raige (Jaden Smith) dan ayahnya, Cypher (Will Smith) mengalami kecelakaan di permukaan Bumi
Cypher terluka parah, Kitai melakukan perjalanan berbahaya untuk mencari bantuan. Sepanjang jalan ia menghadapi medan
yang belum terpetakan, revolusi spesies hewan yang menguasai planet Bumi
Trailer
Link Download
Download After Earth 2013 Part-Part : Download disini
Download After Earth 2013 via EzzFile : Download disini
Download After Earth 2013 Via Netload : Download Here
Liat trailernya aja udah keliatan serunya kan. jadi langsung saja download dari link diatas FREE for ALL !! :D
Thanks to : Ahmad Hakim
About Film
Jenis Film : Action
Produser : Caleeb Pinkett, Will Smith, James Lassiter, Jada Pinkett Smith, M. Night Shyamalan
Produksi : COLUMBIA PICTURES
Sutradara : M. Night Shyamalan
Homepage : www.afterearth.com/site/
Sinopsis
1000 tahun setelah manusia dipaksa untuk meninggalkan bumi karena bencana alam dahsyat, seorang remaja bernama Kitai
Raige (Jaden Smith) dan ayahnya, Cypher (Will Smith) mengalami kecelakaan di permukaan Bumi
Cypher terluka parah, Kitai melakukan perjalanan berbahaya untuk mencari bantuan. Sepanjang jalan ia menghadapi medan
yang belum terpetakan, revolusi spesies hewan yang menguasai planet Bumi
Trailer
Link Download
Download After Earth 2013 Part-Part : Download disini
Download After Earth 2013 via EzzFile : Download disini
Download After Earth 2013 Via Netload : Download Here
Liat trailernya aja udah keliatan serunya kan. jadi langsung saja download dari link diatas FREE for ALL !! :D
Thanks to : Ahmad Hakim