Xemectrum

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