help loops and merging

[trung]

hey guys, i have couple of problems i dunt get. This is a game bot.

Starting off it will cast 2 skills, then attk 9 monsters and loot Then start over.

After 2 hours it switch weapon cuz dura will run out.

first heres the script.

HotKeySet("{NumPad7}", "Start")

HotKeySet("{NumPad8}", "Pause")

HotKeySet("{NumPad9}", "Leave")

While 1

Sleep(1000)

WEnd

Func Start()

WinActivate("Game")

sleep(500)

send("{F10}")

sleep(1500)

While 1

WinActivate("Game")

sleep(500)

send("9")

sleep(3000)

send("8")

sleep(2000)

send("{TAB}") ;start

sleep(500)

send("3")

sleep(15000)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(500) ;stop

send("{TAB}") ;start

sleep(500)

send("3")

sleep(15000)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(500) ;stop

send("{TAB}") ;start

sleep(500)

send("3")

sleep(15000)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(500) ;stop

send("{TAB}") ;start

sleep(500)

send("3")

sleep(15000)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(500) ;stop

send("{TAB}") ;start

sleep(500)

send("3")

sleep(15000)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(500) ;stop

send("{TAB}") ;start

sleep(500)

send("3")

sleep(15000)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(500) ;stop

send("{TAB}") ;start

sleep(500)

send("3")

sleep(15000)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(500) ;stop

send("{TAB}") ;start

sleep(500)

send("3")

sleep(15000)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(500) ;stop

send("{TAB}") ;start

sleep(500)

send("3")

sleep(15000)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(1500)

send("{SPACE}")

sleep(500) ;stop

WEnd

EndFunc

Func Pause()

While 1

Sleep(1)

WEnd

EndFunc

Func Leave()

Exit

EndFunc

Well wut it does is....

f10 to switch view mode.

tab then 3 is to attack the monster.

space is to loot

in the begining 9 and 8 is to cast buff skills to help me bot.

and heres the other one that i run at the same time with it

HotKeySet("[", "Start")

HotKeySet("]", "Pause")

HotKeySet("\", "Leave")

While 1

Sleep(1000)

WEnd

Func Start()

While 1 ;6120000

sleep(6120000)

mousemove(741, 295)

mouseclick("left")

sleep(2000)

mousemove(729, 324)

mouseclick("left")

mouseclick("left")

mouseclick("left")

sleep(6120000)

mousemove(773, 324)

mouseclick("left")

mouseclick("left")

mouseclick("left")

sleep(6120000)

mousemove(834, 324)

mouseclick("left")

mouseclick("left")

mouseclick("left")

sleep(5000)

WEnd

EndFunc

Func Pause()

While 1

Sleep(1)

WEnd

EndFunc

Func Leave()

Exit

EndFunc

What this one does is......

it switches weapon for me every 2 hours bcuz the game contains dura.

the first mouse click is to click on inventory one. tahts y its diefferent

Help list

1 can u help me with merging the bots together.

2 on the first bot i need advice on looping them instead of having 9 of the same thign repeating.(looping 9 times then start over.)

3 And is this bot clean? i doubt it but if u can show me how to clean it up

thnkx guys

Edited December 18, 2006 by trung

[PaulIA]

Two suggestions:

1. Tidy

2. Codebox

Edited December 18, 2006 by PaulIA