request bot with auto walk+auto atk+auto pot

[gamegoodc]

as title

if hv pls send me or post our can?T_T

[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

[gamegoodc]

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

[iSean]

Try finding or buy a USB to P/S 2 Keyboard Converter

[gamegoodc]

Try finding or buy a USB to P/S 2 Keyboard Converter

mean imax macro must use P/S 2 Keyboard to work tat auto walk?

[Boredness]

You do know requesting is not allowed.
If you're here to discuss, den go to the discussion section.
Infraction given.
Thread Locked.