Page 1 of 1

request bot with auto walk+auto atk+auto pot

Posted: Wed Nov 25, 2009 1:09 am
by gamegoodc
as title

if hv pls send me or post our can?T_T

Re: request bot with auto walk+auto atk+auto pot

Posted: Wed Nov 25, 2009 3:01 pm
by iSean
http://xemectrum.net/viewtopic.php?f=8&t=50
Use iMaxMacro

Code: Select all

// Auto Walk + Attack
// Nagamerah Tutorial

Dim Attack_Key
Dim Direction
Dim begin_move_Time
Dim While_move_Time

Sub Main
    debug.print "main"
    Call botSetting

    while True
        call attack
        call moveRightLeft
        delay 200
    wend
END sub

Sub botSetting
    debug.print "botSetting"
     
     begin_move_Time = now()

     Attack_Key = "CTRL"
     Direction = "right"

     While_move_Time = 10
End Sub

Sub attack
    sendkey "MapleStory", Attack_Key
End Sub

Sub move
    if direction = "right" then
       debug.print "move right now"
        keydown "right"
        sleep 200
        keyup "right"
        direction = "left"
    else
       debug.print "move left now"
        keydown "left"
        sleep 200
        keyup "left"
        direction = "right"
    end if
End Sub

Sub moveRightLeft
    if DateDiff("s",begin_move_Time,now()) >= While_move_Time then
        begin_move_Time = now ()
        call move
    end if
End Sub


Re: request bot with auto walk+auto atk+auto pot

Posted: Wed Nov 25, 2009 8:59 pm
by gamegoodc
iSean wrote:http://xemectrum.net/viewtopic.php?f=8&t=50
Use iMaxMacro

Code: Select all

// Auto Walk + Attack
// Nagamerah Tutorial

Dim Attack_Key
Dim Direction
Dim begin_move_Time
Dim While_move_Time

Sub Main
    debug.print "main"
    Call botSetting

    while True
        call attack
        call moveRightLeft
        delay 200
    wend
END sub

Sub botSetting
    debug.print "botSetting"
     
     begin_move_Time = now()

     Attack_Key = "CTRL"
     Direction = "right"

     While_move_Time = 10
End Sub

Sub attack
    sendkey "MapleStory", Attack_Key
End Sub

Sub move
    if direction = "right" then
       debug.print "move right now"
        keydown "right"
        sleep 200
        keyup "right"
        direction = "left"
    else
       debug.print "move left now"
        keydown "left"
        sleep 200
        keyup "left"
        direction = "right"
    end if
End Sub

Sub moveRightLeft
    if DateDiff("s",begin_move_Time,now()) >= While_move_Time then
        begin_move_Time = now ()
        call move
    end if
End Sub

tried b4,but auto walk dint work~T_T
izit usb keyboard nt work?me using usb keyboard n im a vista user
plsplspls help~T_T

Re: request bot with auto walk+auto atk+auto pot

Posted: Thu Nov 26, 2009 8:21 am
by iSean
Try finding or buy a USB to P/S 2 Keyboard Converter
Image

Re: request bot with auto walk+auto atk+auto pot

Posted: Thu Nov 26, 2009 1:53 pm
by gamegoodc
iSean wrote:Try finding or buy a USB to P/S 2 Keyboard Converter
Image
mean imax macro must use P/S 2 Keyboard to work tat auto walk?

Re: request bot with auto walk+auto atk+auto pot

Posted: Thu Nov 26, 2009 7:04 pm
by Boredness
You do know requesting is not allowed.
If you're here to discuss, den go to the discussion section.
Infraction given.
Thread Locked.