Just a little varabel problem

[kcd-clan]

How would i do this.

$n=1

$fk="{f" & $n & "}"

While 1
    Do
if $n=7 Then
    $n=1
endif

[kcd-clan]

O yea each time i do it i wanna add one to $n

[GaryFrost]

nothing like and endless loop

$n=1

$fk="{f" & $n & "}"

While 1
    if $n=7 Then $n=1
    $n = $n + 1
WEnd

Edited October 22, 2005 by gafrost

[kcd-clan]

meh didnt work ehres full serc.

expandcollapse popup

WinActivate("SwgClient")
Sleep(2000)

$e=0
$n=1

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d
$fk="{f" & $n & "}"
;;;; Body of program would go here;;;;
While 1
    Do
        
    if $n=7 Then $n=1
    $n = $n + 1

    Send($fk)   
        Sleep(1000)
        MouseClick("left",150,635,2,1);select sectmadic
        Sleep(2500)
        MouseClick("left",50,125,8,1);add resorces
        Sleep(2000)
        MouseClick("left",515,430,1,1);Click if error
        Sleep(100)
        MouseClick("left",910,750,1,1);click next
        Sleep(1000)
        MouseClick("left",910,750,1,1);click next
        Sleep(1000)
        MouseClick("left",910,750,1,1);click finish
        Sleep(2000)
Until $e= 1
WEnd

;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',510,365)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    $e= 1
    Exit 0
EndFunc

Func ShowMessage()
    MsgBox(4096,"","This is a message.")
EndFunc

[GaryFrost]

expandcollapse popup

WinActivate("SwgClient")
Sleep(2000)

$e = 0
$n = 0

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage");Shift-Alt-d
;;;; Body of program would go here;;;;
While 1
 Do
  
  $n = $n + 1
  If $n = 7 Then $n = 1
  $fk = "{f" & $n & "}"
  
  Send($fk)
  Sleep(1000)
  MouseClick("left", 150, 635, 2, 1);select sectmadic
  Sleep(2500)
  MouseClick("left", 50, 125, 8, 1);add resorces
  Sleep(2000)
  MouseClick("left", 515, 430, 1, 1);Click if error
  Sleep(100)
  MouseClick("left", 910, 750, 1, 1);click next
  Sleep(1000)
  MouseClick("left", 910, 750, 1, 1);click next
  Sleep(1000)
  MouseClick("left", 910, 750, 1, 1);click finish
  Sleep(2000)
 Until $e = 1
WEnd

;;;;;;;;

Func TogglePause()
 $Paused = Not $Paused
 While $Paused
  Sleep(100)
  ToolTip('Script is "Paused"', 510, 365)
 WEnd
 ToolTip("")
EndFunc  ;==>TogglePause

Func Terminate()
 $e = 1
 Exit 0
EndFunc  ;==>Terminate

Func ShowMessage()
 MsgBox(4096, "", "This is a message.")
EndFunc  ;==>ShowMessage