Script verkürzen

12/20/2008 14:00 lol.lol#1
HI

Also ich bin neu auf dem Gebiet autoit und wollte nun etwas kleines basteln.
Das ganze sieht so aus:

Quote:
;Norden
Mouseclick ("left",1130,492)
sleep (1000)
;Angriff
$attacke = PixelSearch( 0, 0, 500, 500, 0x468280 )
If Not @error Then
Mouseclick ("left",$attacke[0],$attacke[1])
sleep (500)
Mouseclick ("left",50,230)
sleep (500)
Endif

If $attack = @error Then
sleep (6500)
;Leben
$leben = PixelSearch( 1000, 130, 1140, 150, 0xFF8000 )
If Not @error Then
Mouseclick ("left",1050,310)
sleep (500)
Endif




;Osten
Mouseclick ("left",1180,538)
sleep (1000)
;Angriff
$attacke = PixelSearch( 0, 0, 500, 500, 0x468280 )
If Not @error Then
Mouseclick ("left",$attacke[0],$attacke[1])
sleep (500)
Mouseclick ("left",50,230)
sleep (500)
Endif

If $attack = @error Then
sleep (6500)
;Leben
$leben = PixelSearch( 1000, 130, 1140, 150, 0xFF8000 )
If Not @error Then
Mouseclick ("left",1050,310)
sleep (500)
Endif





;Süden
Mouseclick ("left",1130,588)
sleep (1000)
;Angriff
$attacke = PixelSearch( 0, 0, 500, 500, 0x468280 )
If Not @error Then
Mouseclick ("left",$attacke[0],$attacke[1])
sleep (500)
Mouseclick ("left",50,230)
sleep (500)
Endif

If $attack = @error Then
sleep (6500)
;Leben
$leben = PixelSearch( 1000, 130, 1140, 150, 0xFF8000 )
If Not @error Then
Mouseclick ("left",1050,310)
sleep (500)
Endif





;Westen
Mouseclick ("left",1084,538)
sleep (1000)
;Angriff
$attacke = PixelSearch( 0, 0, 500, 500, 0x468280 )
If Not @error Then
Mouseclick ("left",$attacke[0],$attacke[1])
sleep (500)
Mouseclick ("left",50,230)
sleep (500)
Endif

If $attack = @error Then
sleep (6500)
;Leben
$leben = PixelSearch( 1000, 130, 1140, 150, 0xFF8000 )
If Not @error Then
Mouseclick ("left",1050,310)
sleep (500)
Endif
Und nun wollte ich wissen, wie ich den komplette "Norden-Teil" auf ein Wort zusammen machen kann^^!

Am schluss solte es etwa so aussehen:

Quote:
;Norden
Mouseclick ("left",1130,492)
sleep (1000)
;Angriff
$attacke = PixelSearch( 0, 0, 500, 500, 0x468280 )
If Not @error Then
Mouseclick ("left",$attacke[0],$attacke[1])
sleep (500)
Mouseclick ("left",50,230)
sleep (500)
Endif

If $attack = @error Then
sleep (6500)
;Leben
$leben = PixelSearch( 1000, 130, 1140, 150, 0xFF8000 )
If Not @error Then
Mouseclick ("left",1050,310)
sleep (500)
Endif




;Osten
Mouseclick ("left",1180,538)
sleep (1000)
;Angriff
$attacke = PixelSearch( 0, 0, 500, 500, 0x468280 )
If Not @error Then
Mouseclick ("left",$attacke[0],$attacke[1])
sleep (500)
Mouseclick ("left",50,230)
sleep (500)
Endif

If $attack = @error Then
sleep (6500)
;Leben
$leben = PixelSearch( 1000, 130, 1140, 150, 0xFF8000 )
If Not @error Then
Mouseclick ("left",1050,310)
sleep (500)
Endif





;Süden
Mouseclick ("left",1130,588)
sleep (1000)
;Angriff
$attacke = PixelSearch( 0, 0, 500, 500, 0x468280 )
If Not @error Then
Mouseclick ("left",$attacke[0],$attacke[1])
sleep (500)
Mouseclick ("left",50,230)
sleep (500)
Endif

If $attack = @error Then
sleep (6500)
;Leben
$leben = PixelSearch( 1000, 130, 1140, 150, 0xFF8000 )
If Not @error Then
Mouseclick ("left",1050,310)
sleep (500)
Endif





;Westen
Mouseclick ("left",1084,538)
sleep (1000)
;Angriff
$attacke = PixelSearch( 0, 0, 500, 500, 0x468280 )
If Not @error Then
Mouseclick ("left",$attacke[0],$attacke[1])
sleep (500)
Mouseclick ("left",50,230)
sleep (500)
Endif

If $attack = @error Then
sleep (6500)
;Leben
$leben = PixelSearch( 1000, 130, 1140, 150, 0xFF8000 )
If Not @error Then
Mouseclick ("left",1050,310)
sleep (500)
Endif

;--------------------------------------------------------------------------------------------

;Mein Weg

...."Norden-Teil"....
...."westen-Teil"....
.....xxxx........
.....xxxx........
.....xxxx........
.....xxxx........
Weiss irgent einer wie dasgehen könnte?

Grüsse Alesjan