Loop

[Flamethrower]

I just want the commands to loop -31- times then say something

heres the script:

ToolTip("Woodbot Version 1.0 Created By Flamethrower: WAIT 5 SECONDS, Nexus will load automatically PAUSE Button pauses, INSERT Terminates", 0, 0)

Sleep (5000)

WinActivate("Nexus")

Sleep (2000)

AutoItSetOption("SendKeyDelay", "05")

Global $Paused

HotKeySet("{PAUSE}", "TogglePause")

HotKeySet("{INSERT}", "Terminate")

Func TogglePause()

$Paused = NOT $Paused

While $Paused

sleep(100)

ToolTip("Flamethrower's Woodbot PAUSED - Do not distribute! BITCH",0,0)

WEnd

ToolTip("")

EndFunc

ToolTip("I will fix figure out how to make it withdraw more wood give me a while - Remember Pause Pauses, Insert Terminates",0,0)

While 1

$a = 1

Do

ToolTip("Process: Saying wood", 0, 0)

Send("{ESC}")

Send("{ENTER}Wood{ENTER}")

Sleep (1240)

ToolTip("Process: Choosing type (Weaving tools)", 0, 0)

Send("{Up}")

Send("{Up}")

Send("{ENTER}")

Sleep (1250)

Send("{UP}")

Send("{UP}")

Sleep (20)

Send("{UP}")

Sleep (30)

Tooltip("Waiting upon arrival of Weaving tools", 0, 0)

Send("{ENTER}")

Sleep (1200)

Send("{ESC}")

Until $a = 0

WEnd

Func Terminate()

$a = 1

Exit 0

EndFunc

I want

Send("{ESC}")

Send("{ENTER}Wood{ENTER}")

Sleep (1240)

ToolTip("Process: Choosing type (Weaving tools)", 0, 0)

Send("{Up}")

Send("{Up}")

Send("{ENTER}")

Sleep (1250)

Send("{UP}")

Send("{UP}")

Sleep (20)

Send("{UP}")

Sleep (30)

Tooltip("Waiting upon arrival of Weaving tools", 0, 0)

Send("{ENTER}")

Sleep (1200)

Send("{ESC}")

to loop 31 times then after it I need it to say

Send("d")

Sleep(350)

Send("z"

Send("{Enter}Give my all Ginko wood back{Enter}")

Help?

[cppman]

expandcollapse popup

For $i = 1 to 31 
ToolTip("Woodbot Version 1.0 Created By Flamethrower: WAIT 5 SECONDS, Nexus will load automatically PAUSE Button pauses, INSERT Terminates", 0, 0)
Sleep (5000)
WinActivate("Nexus") 
Sleep (2000)
AutoItSetOption("SendKeyDelay", "05") 
Global $Paused 
HotKeySet("{PAUSE}", "TogglePause") 
HotKeySet("{INSERT}", "Terminate") 
Func TogglePause() 
$Paused = NOT $Paused 
While $Paused 
sleep(100) 
ToolTip("Flamethrower's Woodbot PAUSED - Do not distribute! BITCH",0,0) 
WEnd 
ToolTip("") 
EndFunc 
ToolTip("I will fix figure out how to make it withdraw more wood give me a while - Remember Pause Pauses, Insert Terminates",0,0)
While 1 
$a = 1 
Do 
ToolTip("Process: Saying wood", 0, 0)
Send("{ESC}")
Send("{ENTER}Wood{ENTER}") 
Sleep (1240)
ToolTip("Process: Choosing type (Weaving tools)", 0, 0)
Send("{Up}")
Send("{Up}")
Send("{ENTER}")
Sleep (1250)
Send("{UP}")
Send("{UP}")
Sleep (20)
Send("{UP}")
Sleep (30)
Tooltip("Waiting upon arrival of Weaving tools", 0, 0)
Send("{ENTER}")
Sleep (1200)
Send("{ESC}")
Until $a = 0
WEnd 
Func Terminate() 
$a = 1 
Exit 0 
EndFunc

I want
Send("{ESC}")
Send("{ENTER}Wood{ENTER}") 
Sleep (1240)
ToolTip("Process: Choosing type (Weaving tools)", 0, 0)
Send("{Up}")
Send("{Up}")
Send("{ENTER}")
Sleep (1250)
Send("{UP}")
Send("{UP}")
Sleep (20)
Send("{UP}")
Sleep (30)
Tooltip("Waiting upon arrival of Weaving tools", 0, 0)
Send("{ENTER}")
Sleep (1200)
Send("{ESC}")
next
;to loop 31 times then after it I need it to say
Send("d")
Sleep(350)
Send("z")
Send("{Enter}Give my all Ginko wood back{Enter}")

Edited February 25, 2006 by CHRIS95219

[greenmachine]

For $SomeUnusedVariable = 1 to 31
Send("{ESC}")
Send("{ENTER}Wood{ENTER}")
Sleep (1240)
ToolTip("Process: Choosing type (Weaving tools)", 0, 0)
Send("{Up}")
Send("{Up}")
Send("{ENTER}")
Sleep (1250)
Send("{UP}")
Send("{UP}")
Sleep (20)
Send("{UP}")
Sleep (30)
Tooltip("Waiting upon arrival of Weaving tools", 0, 0)
Send("{ENTER}")
Sleep (1200)
Send("{ESC}")
Next