request bot with auto walk+auto atk+auto pot
Posted: Wed Nov 25, 2009 1:09 am
as title
if hv pls send me or post our can?T_T
if hv pls send me or post our can?T_T
The community that will never stop discussing!
https://xemectrum.guyz92.men/
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_TiSean wrote:http://xemectrum.net/viewtopic.php?f=8&t=50
Use iMaxMacroCode: 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
mean imax macro must use P/S 2 Keyboard to work tat auto walk?iSean wrote:Try finding or buy a USB to P/S 2 Keyboard Converter