Code

[icones]

New Code:

# ce ------------------------------------------------ ----------------------------
HotKeySet("f", "_a") ;start func _a()
HotKeySet("x", "_b") ;start func _b()
HotKeySet("k", "_c") ;close func _a()
HotKeySet("o", "_d") ;close func _b()
While 1
sleep(100)
WEnd
Func _a()
while 1
$coord = PixelSearch( 0, 0,1024, 768, 0xD0AC8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xD0B69B )
$coord = PixelSearch( 0, 0,1024, 768, 0xD2AD8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xC6A88F )
If Not @error Then
MouseMove($coord[0], $coord[1])

EndIf
wend
EndFunc

$coord = PixelSearch( 0, 0,1024, 768, 0xD0AC8F ) ;0xD0AC8F
MouseMove($coord[0], $coord[1])
Func _a()
while 1
$coord = PixelSearch( 0, 0,1024, 768, 0xD0AC8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xD0B69B )
$coord = PixelSearch( 0, 0,1024, 768, 0xD2AD8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xC6A88F )
If Not @error Then
MouseMove($coord[0], $coord[1])

EndIf
wend
EndFunc

$coord = PixelSearch( 0, 0,1024, 768, 0x1E2826 )
$coord = PixelSearch( 0, 0,1024, 768, 0x282C30 )
$coord = PixelSearch( 0, 0,1024, 768, 0x000101 )
$coord = PixelSearch( 0, 0,1024, 768, 0x212826 )
If Not @error Then
MouseMove($coord[0], $coord[1])
WinActive("crossfire.exe")

HotKeySet("x", "_b")
HotKeySet("f", "_a")
while 1
sleep(200)
WEnd

Func _a()
while 1
$coord = PixelSearch( 0, 0,1024, 768, 0xD0AC8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xD0B69B )
$coord = PixelSearch( 0, 0,1024, 768, 0xD2AD8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xC6A88F )
If Not @error Then
MouseMove($coord[0], $coord[1])

EndIf
wend
EndFunc
Func _b()
while 1
$coord = PixelSearch( 0, 0,1024, 768, 0x1E2826 )
$coord = PixelSearch( 0, 0,1024, 768, 0x282C30 )
$coord = PixelSearch( 0, 0,1024, 768, 0x000101 )
$coord = PixelSearch( 0, 0,1024, 768, 0x212826 )
If Not @error Then
MouseMove($coord[0], $coord[1])

EndIf
WEnd
EndFunc
HotKeySet("k", "_c") ;close func _a()
HotKeySet("o", "_d") ;close func _b()
Func _c()
$var = 0
EndFunc

Func _d()
$1var = 0
Endfunc

and so

Code:

Func _a()
$var = 1 ;look here
while $var = 1 ;look here
$coord = PixelSearch( 0, 0,1024, 768, 0xD0AC8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xD0B69B )
$coord = PixelSearch( 0, 0,1024, 768, 0xD2AD8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xC6A88F )
If Not @error Then
MouseMove($coord[0], $coord[1])

EndIf
wend
EndFunc

Func _b()
$1var = 1 ;look here
while $1var = 1 ;look here
$coord = PixelSearch( 0, 0,1024, 768, 0x1E2826 )
$coord = PixelSearch( 0, 0,1024, 768, 0x282C30 )
$coord = PixelSearch( 0, 0,1024, 768, 0x000101 )
$coord = PixelSearch( 0, 0,1024, 768, 0x212826 )
If Not @error Then
MouseMove($coord[0], $coord[1])

EndIf
WEnd
EndFunc

WinActive("crossfire.exe")
HotKeySet("k", "_c") ;close func _a()
HotKeySet("o", "_d") ;close func _b()
HotKeySet("x", "_b")
HotKeySet("f", "_a")
while 1
sleep(200)
WEnd

Func _a()
$var = 1
while $var = 1
$coord = PixelSearch( 0, 0,1024, 768, 0xD0AC8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xD0B69B )
$coord = PixelSearch( 0, 0,1024, 768, 0xD2AD8F )
$coord = PixelSearch( 0, 0,1024, 768, 0xC6A88F )
If Not @error Tave hen
MouseMove($coord[0], $coord[1])

EndIf
wend
EndFunc

Func _b()
$1var = 1
while $1var = 1
$coord = PixelSearch( 0, 0,1024, 768, 0x1E2826 )
$coord = PixelSearch( 0, 0,1024, 768, 0x282C30 )
$coord = PixelSearch( 0, 0,1024, 768, 0x000101 )
$coord = PixelSearch( 0, 0,1024, 768, 0x212826 )
If Not @error Then
MouseMove($coord[0], $coord[1])

EndIf
WEnd
EndFunc


Func _c()
$var = 0
Endfunc

Func _d()

$1var = 0
Endfunc

[michi665]

Its a bad code many errors
/Fail

[rompemente]

can someone help doing the code via team viewer ill give you freee zp to your account please.

[buraks]

FAILZZ

/request close

my dog cud code it better