ThenR^ ERROR help?

[myth146]

heres the problem i used somebodys source to make an aimbot and i get this error

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\Heat\Desktop\Improved_Clickbot\final aimbot2.au3"  
C:\Documents and Settings\Heat\Desktop\Improved_Clickbot\final aimbot2.au3 (24) : ==> Missing separator character after keyword.: 
If $aimbot < 1 ThenR 
If $aimbot < 1 ThenR^ ERROR
>Exit code: 1   Time: 0.212

heres the source.

$SearchColorRed = 0xFF0000
$SearchColorRed = 0xAB3737
$SearchColorRed = 0xFF1616
$SearchColorPink = 0xFFBDBB
$SearchColorPink = 0xFF9C9C
$aimbot = 0

HotKeySet("{f1}", "Toggleaimbot")
While 1
If $aimbot = 1 Then
    $coord1 = PixelSearch( 342, 467, 640, 400, $SearchColorRed, 1)
    $coord1 = PixelSearch( 342, 467, 640, 400, $SearchColorRed, 2)
    $coord1 = PixelSearch( 342, 467, 640, 400, $SearchColorRed, 3)
    $coord1 = PixelSearch( 342, 467, 640, 400, $SearchColorPink, 1)
    $coord1 = PixelSearch( 227, 280, 1165, 791, $SearchColorPink, 2)
    If IsArray($coord1) = 1 Then
        MouseClick('left', $coord1[0], $coord1[1], 1, 0)
        Send ("{R}")
    EndIf
EndIf
WEnd

Func Toggleaimbot()
    If $aimbot < 1 ThenR
    EndIf
EndFunc

and heres another one that does work

$SearchColorRed = 0xFF0000
$SearchColorPink = 0xFFBDBB
$aimbot = 0

HotKeySet("{f1}", "Toggleaimbot")
While 1
If $aimbot = 1 Then
    $coord1 = PixelSearch( 342, 467, 640, 400, $SearchColorRed, 2) 
    $coord1 = PixelSearch( 227, 280, 1165, 791, $SearchColorPink, 2) 
    If IsArray($coord1) = 1 Then
        MouseClick('left', $coord1[0], $coord1[1], 1, 0)
        Send ("{R}")
    EndIf
EndIf
WEnd

Func Toggleaimbot()
    If $aimbot < 1 Then
        $aimbot = $aimbot + 1
    Else
        $aimbot = 0
    EndIf
EndFunc

Edited May 10, 2009 by myth146

[Jos]

Have you check the line you get the error for what the possible problem could be ?

[Andreik]

Is Then not ThenR. And before post something, read help file.