Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Thu Apr 09, 2020 6:07 pm

All times are UTC




Post a reply
Username:
Subject:
Message body:
Enter your message here, it may contain no more than 60000 characters. 

Smilies
:D :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :| :mrgreen: :geek: :ugeek:
Font size:
Font colour
Options:
BBCode is ON
[img] is OFF
[flash] is OFF
[url] is ON
Smilies are ON
Disable BBCode
Disable smilies
Do not automatically parse URLs
Please click and drag the 2 correct statements to the right hand side.
Please click and drag the 2 correct statements to the right hand side.
Please select the options below to the correct list to avoid automated registrations.
Statements
2 correct statements
Chickens can talk
Elephants can fly
Dogs have 4 legs
Fish can swim
   

Topic review - Ragnarok auto fram
Author Message
  Post subject:  Re: Ragnarok auto fram  Reply with quote
ถามมาได้นะครับ
Post Posted: Wed Apr 08, 2020 4:59 pm
  Post subject:  Re: Ragnarok auto fram  Reply with quote
showmeup wrote:
ผมมีของ BS อยู่ แต่เครื่องผมใช้ windows 10 x64 2020 เลยใช้ keyboard ไม่ได้ เพราะลง input virtual keyboard ไม่ได้

แต่ set ไว้สมบูรณ์พอสมควร แบ่งปัน code กันได้นะครับ คนไทยด้วยกัน
Code:
 
begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     Function.Execute("Buff1")
     Function.Execute("Buff2")
     Function.Execute("Buff3")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("Attack")
     Function.Execute("Loot")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("Rwalk")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("TeleFind")
     Function.Execute("hpsplow")
end


พอจะแน่ะนำผมได้ไหม๊ครับ ผมสงสัยหลายอย่างภาษาอังกฤษก็ไม่ดี วันนี้งมทั้งวัน รบกวนหน่อยครับ
Post Posted: Wed Apr 08, 2020 10:44 am
  Post subject:  Re: Ragnarok auto fram  Reply with quote
gotcafe2 wrote:
showmeup wrote:
ผมมีของ BS อยู่ แต่เครื่องผมใช้ windows 10 x64 2020 เลยใช้ keyboard ไม่ได้ เพราะลง input virtual keyboard ไม่ได้

แต่ set ไว้สมบูรณ์พอสมควร แบ่งปัน code กันได้นะครับ คนไทยด้วยกัน
Code:
 
begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     Function.Execute("Buff1")
     Function.Execute("Buff2")
     Function.Execute("Buff3")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("Attack")
     Function.Execute("Loot")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("Rwalk")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("TeleFind")
     Function.Execute("hpsplow")
end
Post Posted: Wed Apr 08, 2020 10:31 am
  Post subject:  Re: Ragnarok auto fram  Reply with quote
showmeup wrote:
ผมมีของ BS อยู่ แต่เครื่องผมใช้ windows 10 x64 2020 เลยใช้ keyboard ไม่ได้ เพราะลง input virtual keyboard ไม่ได้

แต่ set ไว้สมบูรณ์พอสมควร แบ่งปัน code กันได้นะครับ คนไทยด้วยกัน
Code:
 
begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     Function.Execute("Buff1")
     Function.Execute("Buff2")
     Function.Execute("Buff3")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("Attack")
     Function.Execute("Loot")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("Rwalk")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("TeleFind")
     Function.Execute("hpsplow")
end
Post Posted: Mon Feb 17, 2020 2:49 am
  Post subject:  Re: Ragnarok auto fram  Reply with quote
ผมมีของ BS อยู่ แต่เครื่องผมใช้ windows 10 x64 2020 เลยใช้ keyboard ไม่ได้ เพราะลง input virtual keyboard ไม่ได้

แต่ set ไว้สมบูรณ์พอสมควร แบ่งปัน code กันได้นะครับ คนไทยด้วยกัน
Code:
 
begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     Function.Execute("Buff1")
     Function.Execute("Buff2")
     Function.Execute("Buff3")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("Attack")
     Function.Execute("Loot")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("Rwalk")
     Function.Execute("RunWarp") กันหลุดเมพที่ปล่อย
     Function.Execute("RunMon") หนีพวกบอส
     Function.Execute("TeleFind")
     Function.Execute("hpsplow")
end
Post Posted: Wed Feb 05, 2020 6:14 am
  Post subject:  Re: Ragnarok auto fram  Reply with quote
ใครใช้แล้วได้ผลกด Thank you ให้ด้วย

Image



Code:
 begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     Function.Execute("Attack")
     Function.Execute("hp")
     Function.Execute("buff")
     Function.Execute("skillTele")
     Function.Execute("buff2")
 end

function("Attack")
     if  Color.Can be located on screen (RGB)("66", "0", "132", "0")
          // monters
          begin
               Mouse.Click at color closest to coordinate (RGB)("66", "0", "132", "0", "640", "375", "left")
               Macro.Pause("1000")
          end
function

function("hp")
     if  Color.At coordinate is not (RGB)("0", "0", "0", "14", "68")
          begin loop()
               Keyboard.Press key("{<f2>}")
               Macro.Pause("10")
               if  Color.At coordinate is (RGB)("0", "0", "0", "14", "68")
                    begin
                         Macro.Break from loop("yes")
                    end
          end
function

function("buff")
     if  Color.At coordinate is not within (RGB range)("85", "187", "254", "2", "1261", "221")
          begin
               Macro.Pause("1500")
               Keyboard.Press key("{<f3>}")
          end
function

function("buff2")
     if  Color.Can not be located on screen (RGB)("204", "255", "51", "2")
          begin
               Macro.Pause("1500")
               Keyboard.Press key("{<f9>}")
          end
function

function("skillTele")
     begin
          if  Color.Can not be located on screen (RGB)("66", "0", "132", "0")
               begin
                    Keyboard.Press key("{<f4>}")
                    Humanly.Pause("500", "1000")
                    Keyboard.Press keys("{<return>}")
                    Macro.Pause("800")
               end
     end
function
 



5.มกราคม พ.ศ.2563

ฟามที่ ดัน กิฟเฟ่น ชั้น2

กดบัพ , สกิล ปั้มHP ต่อเมื่อ เลือด หลอดแดง
ไม่มี มอน กด สกิล เทเลพอร์ต
**กำลังหาวิธี ทำให้ เดินหามอน อยู่

พวกดาต้า ผมไม่แจกน่ะครับ[/b]
Post Posted: Sun Jan 05, 2020 10:31 am
  Post subject:  Re: Ragnarok auto fram  Reply with quote
Do you know how to auto storage?
Post Posted: Fri Nov 15, 2019 8:09 am
  Post subject:  Re: Ragnarok auto fram  Reply with quote
11.14.19

Code:
 begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     Function.Execute("Attack")
     Function.Execute("skillTele")
 end

function("Attack")
     if  Color.Can be located on screen (RGB)("0", "255", "0", "0")
          // monters
          begin
               Mouse.Click at color closest to coordinate (RGB)("0", "255", "0", "0", "640", "375", "left")
               Humanly.Pause("1500", "2000")
               if  Color.Can be located on screen (RGB)("0", "181", "255", "0")
                    // item
                    begin
                         Mouse.Click at color closest to coordinate (RGB)("0", "181", "255", "0", "640", "377", "left")
                         Macro.Pause("1500")
                         if  Color.Can be located on screen (RGB)("0", "181", "255", "0")
                              // item
                              begin
                                   Mouse.Click at color closest to coordinate (RGB)("0", "181", "255", "0", "640", "377", "left")
                                   Humanly.Pause("500", "1000")
                              end
                    end
          end
function

function("skillTele")
     begin
          if  Color.Can not be located on screen (RGB)("0", "255", "0", "0")
               begin
                    Mouse.Double click at coordinate("326", "41", "left")
                    Humanly.Pause("500", "1000")
                    Macro.Pause("2000")
               end
     end
function
 
Post Posted: Thu Nov 14, 2019 3:13 am
  Post subject:  Re: Ragnarok auto fram  Reply with quote
gotcafe2 wrote:
Features
Support any resolution 1280x720 (32 bit color )

Auto Heal- HP
Auto Skill
Auto Attack - Attack nearest enemy.
Auto Move - randomly move if no target is found
Auto teleport & Wing


You need an Identifier that the mob is still alive before changing target. example HP bars or something that you can see while the monster is still alive and disappear when it dies.. so you can add auto pots and while attacking..
your code is fine as long as you are not attack by multiple aggressive monster..
Post Posted: Tue Nov 12, 2019 1:53 pm
  Post subject:  Re: Ragnarok auto fram  Reply with quote
Features
Support any resolution 1280x720 (32 bit color )

Auto Heal- HP
Auto Skill
Auto Attack - Attack nearest enemy.
Auto Move - randomly move if no target is found
Auto teleport & Wing
Post Posted: Thu Nov 07, 2019 1:22 pm

All times are UTC


Jump to:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group