iMaxMacro4.8 script for Subway PQ 25~30
Posted: Tue Sep 28, 2010 4:28 pm
This iMaxMacro script for who are lazy to join kpq... this script designed for my magician.. its abit slow for magician to gain exp in subway pq since i only have single target attack..but i can leveling my magician when i sleep LOL... edit urself for other job.
what this will do?
-auto enter the dungeon solo mode
-auto buff
-auto move
-auto attack
-auto pot (i setting it for magician using 2mp pot and 1hp pot, then 2mp pot skip 1hp pot, and so on)
-auto quit dungeon
-auto re-enter dungeon
Hotkey
-npc chat key - d
-attack key - x
-buff key - y
-HP pot key - END
-MP pot key - SHIFT
*Or Edit urself*
Note: Turn off numlok to use this bot...or the bot will not auto auto move...and FOCUS ur maplestory after run the macro.
what this will do?
-auto enter the dungeon solo mode
-auto buff
-auto move
-auto attack
-auto pot (i setting it for magician using 2mp pot and 1hp pot, then 2mp pot skip 1hp pot, and so on)
-auto quit dungeon
-auto re-enter dungeon
Hotkey
-npc chat key - d
-attack key - x
-buff key - y
-HP pot key - END
-MP pot key - SHIFT
*Or Edit urself*
Note: Turn off numlok to use this bot...or the bot will not auto auto move...and FOCUS ur maplestory after run the macro.
Code: Select all
// Made by Chotz.
//Based on Nagamerah Tutorial
Dim Attack_Key
Dim Buff_Key
Dim Direction
Dim begin_move_Time
Dim While_move_Time
Dim Hp
Dim Hpot
Dim Mp
Dim Star
Dim Finish
Dim Hpstart
Dim Hpend
Sub Main
debug.print "Start"
debug.print "Entering Dungeon"
sleep 2000
sendkey "MapleStory", "d"
sleep 1000
sendkey "MapleStory", "down"
sleep 1000
sendkey "MapleStory", "d"
sleep 1000
sendkey "MapleStory", "d"
Sleep 2500
Call botSetting
sendkey "MapleStory", Buff_key
sleep 11000
while True
call attack
call moveRightLeft
call counter
delay 200
wend
End sub
Sub Counter
if DateDiff("s",Star,now()) >= Finish then
call quit
end if
End sub
Sub restart
sleep 2000
sendkey "MapleStory", "d"
sleep 1000
sendkey "MapleStory", "down"
sleep 1000
sendkey "MapleStory", "d"
sleep 1000
sendkey "MapleStory", "d"
Sleep 1000
Call botSetting
sendkey "MapleStory", Buff_key
sleep 1000
sendkey "MapleStory", Mp
sleep 1000
sendkey "MapleStory", Mp
sleep 9000
End sub
Sub quit
debug.print "Quiting Dungeon"
sleep 5000
keydown "right"
sleep 3000
keyup "right"
sleep 2000
sendkey "MapleStory", "d"
sleep 2000
sendkey "MapleStory", "d"
sleep 5000
keydown "right"
sleep 4000
keyup "right"
sendkey "MapleStory", "d"
sleep 2000
sendkey "MapleStory", "down"
sleep 2000
sendkey "MapleStory", "d"
sleep 2000
sendkey "MapleStory", "d"
sleep 3000
debug.print "Entering Dungeon"
call restart
End Sub
Sub botSetting
begin_move_Time = now()
Star = now()
Hpstart = now()
Attack_Key = "x"
Buff_key = "y"
Hp = "END"
Mp = "SHIFT"
Direction = "right"
Hpot = "on"
Hpend = 30
While_move_Time = 12
Finish = 540
End Sub
Sub attack
sendkey "MapleStory", Attack_Key
End Sub
Sub buff
sendkey "MapleStory", Buff_key
End Sub
Sub Hppot
if Hpot = "on" then
sendkey "MapleStory", Hp
Hpot = "off"
else
Hpot = "on"
end if
End Sub
Sub move
if direction = "right" then
keydown "right"
sleep 1500
keyup "right"
keypress "left" //this will make ur char facing left after moving right.
call Pot
direction = "left"
else
keydown "left"
sleep 1500
keyup "left"
direction = "right"
end if
End Sub
Sub Pot
sleep 200
sendkey "MapleStory", Mp
sleep 1000
sendkey "MapleStory", Mp
sleep 1000
call Hppot
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