Hilfe bei Arrays gesucht

Nathax

Wieso kommt da ein error?????
Im anhang ist alles mit bildern und so

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
#include <Array.au3>

[/autoit][autoit][/autoit][autoit]

Hotkeyset ("{ESC}", "ende")
Hotkeyset ("{Up}", "up")
Hotkeyset ("{Down}", "down")
Hotkeyset ("{Left}", "left")
Hotkeyset ("{Right}", "right")
Hotkeyset ("{Space}", "shoot")
Hotkeyset ("w", "b1up")
Hotkeyset ("s", "b1down")
Hotkeyset ("a", "b1left")
Hotkeyset ("d", "b1right")
Hotkeyset ("q", "b1shoot")

[/autoit][autoit][/autoit][autoit]

start()

[/autoit][autoit][/autoit][autoit]

Func start()
Global $dam = "Bilder\main1rechts.jpg"
Global $bam = "Bilder\bot1links.jpg"
Global $pam = "Bilder\panzervorne.jpg"
Global $m = 1
Global $b = 1
Global $xmain = 100
Global $ymain = 100
Global $xb1 = 100
Global $yb1 = 100
Global $ak = 0

[/autoit][autoit][/autoit][autoit]

Global $gui1 = GUICreate("Autoitshooter", 810, 600, 100, 75)
Global $hintergrund = GUICtrlCreatelabel("", 16, 50, 777, 417)
GUICtrlSetBkColor($hintergrund, 0x0)
Global $main1 = GUICtrlCreatePic($dam, 100, 200, 40, 40)
Global $bot1 = GUICtrlCreatePic($bam, 500, 200, 40, 40)
Global $panzer = GUICtrlCreatePic($pam, 520, 300, 110, 110)
Global $leben = GUICtrlCreateProgress(16, 496, 393, 25)
Global $mana = GUICtrlCreateProgress(16, 536, 393, 25)
Global $waffe1 = GUICtrlCreateButton("Waffe1", 424, 496, 73, 67, 0)
Global $waffe2 = GUICtrlCreateButton("Waffe2", 504, 496, 73, 67, 0)
Global $waffe3 = GUICtrlCreateButton("Waffe3", 584, 496, 73, 67, 0)
Global $spezial = GUICtrlCreateButton("Spezial", 664, 496, 129, 67, 0)
Global $datei = GUICtrlCreateMenu("&Datei")
Global $start = GUICtrlCreateMenuItem("Start", $datei)
Global $pause = GUICtrlCreateMenuItem("Pause", $datei)
Global $ende = GUICtrlCreateMenuItem("Ende", $datei)
Global $optionen = GUICtrlCreateMenu("&Optionen")
Global $hotkeys = GUICtrlCreateMenu("&Hotkeys")
Global $about = GUICtrlCreateMenu("&About")
Global $copyright = GUICtrlCreateMenuItem("Copyright", $about)
GUISetState(@SW_SHOW)
GuiCtrlSetData($leben, 100)
GuiCtrlSetData($mana, 100)
Endfunc

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$msg = GUIGetMsg()
Global $mainpos = ControlGetPos("Autoitshooter","",$main1)
Global $bot1pos = ControlGetPos("Autoitshooter","",$bot1)
Global $panzerpos = ControlGetPos("Autoitshooter","",$panzer)
Global $xmain = $mainpos[0]
Global $ymain = $mainpos[1]
Global $xb1 = $bot1pos[0]
Global $yb1 = $bot1pos[1]
Select
Case $msg = $start
GUIDelete($gui1)
start()
Case $msg = $pause and $ak = 0
$ak = 1
GUICtrlSetData($pause,"Weiter")
Case $msg = $pause and $ak = 1
$ak = 0
GUICtrlSetData($pause,"Pause")
Case $msg = $copyright
MsgBox(64,"Copyright","(C)2009, Retrokid")
Case $msg = $ende
exit
Case $msg = $spezial
$bam = "Bilder\bot1blut.jpg"
GUICtrlDelete($bot1)
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUIctrlSetState($bot1, $Gui_Disable)
GuiCtrlSetData($mana, 0)
GUIctrlSetState($spezial, $Gui_Disable)
$man = 0
For $ma = 1 to 100 Step 1
Sleep(500)
$man += 1
GuiCtrlSetData($mana, $man)
If $mainpos[1] = $bot1pos[1] and $mainpos[0] < $bot1pos[0] and ($bot1pos[0] - $mainpos[0]) < 270 then
$bam = ""
b1left()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] and $mainpos[0] > $bot1pos[0] and ($mainpos[0] - $bot1pos[0]) < 270 then
$bam = ""
b1right()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] and $mainpos[1] < $bot1pos[1] and ($bot1pos[1] - $mainpos[1]) < 270 then
$bam = ""
b1up()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] and $mainpos[1] > $bot1pos[1] and ($mainpos[1] - $bot1pos[1]) < 270 then
$bam = ""
b1down()
Sleep(600)
b1shoot()
Sleep(700)
Endif
If $mainpos[1] = $bot1pos[1] and $mainpos[0] < $bot1pos[0] then
b1left()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] and $mainpos[0] > $bot1pos[0] then
b1right()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] and $mainpos[1] < $bot1pos[1] then
b1up()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] and $mainpos[1] > $bot1pos[1] then
b1down()
Sleep(700)
Endif
Next
GUIctrlSetState($spezial, $Gui_Enable)
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
If $mainpos[1] = $bot1pos[1] and $mainpos[0] < $bot1pos[0] and ($bot1pos[0] - $mainpos[0]) < 270 then
$bam = ""
b1left()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] and $mainpos[0] > $bot1pos[0] and ($mainpos[0] - $bot1pos[0]) < 270 then
$bam = ""
b1right()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] and $mainpos[1] < $bot1pos[1] and ($bot1pos[1] - $mainpos[1]) < 270 then
$bam = ""
b1up()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] and $mainpos[1] > $bot1pos[1] and ($mainpos[1] - $bot1pos[1]) < 270 then
$bam = ""
b1down()
Sleep(600)
b1shoot()
Sleep(700)
Endif
If $mainpos[1] = $bot1pos[1] and $mainpos[0] < $bot1pos[0] then
b1left()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] and $mainpos[0] > $bot1pos[0] then
b1right()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] and $mainpos[1] < $bot1pos[1] then
b1up()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] and $mainpos[1] > $bot1pos[1] then
b1down()
Sleep(700)
Endif

[/autoit][autoit][/autoit][autoit]

If $panzerpos[0] - $mainpos[0] < 200 then
GUICtrlDelete($main1)
ElseIf $mainpos[0] - $panzerpos[0] < 200 then
GUICtrlDelete($main1)
ElseIf $panzerpos[1] - $mainpos[1] < 200 then
GUICtrlDelete($main1)
ElseIf $mainpos[1] - $panzerpos[1] < 200 then
GUICtrlDelete($main1)
EndIf
WEnd

[/autoit][autoit][/autoit][autoit]

Func ende()
Exit
EndFunc

[/autoit][autoit][/autoit][autoit]

Func up()
If $dam = "Bilder\main1vorne.jpg" Then
$ymain -= 20
$m = 1
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 1
$dam = "Bilder\main1vorne.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUIctrlSetState($main1, $Gui_Disable)
Endif
EndFunc

[/autoit][autoit][/autoit][autoit]

Func down()
If $dam = "Bilder\main1unten.jpg" Then
$ymain += 20
$m = 2
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 2
$dam = "Bilder\main1unten.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUIctrlSetState($main1, $Gui_Disable)
Endif
EndFunc

[/autoit][autoit][/autoit][autoit]

Func left()
If $dam = "Bilder\main1links.jpg" Then
$xmain -= 20
$m = 3
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 3
$dam = "Bilder\main1links.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUIctrlSetState($main1, $Gui_Disable)
Endif
EndFunc

[/autoit][autoit][/autoit][autoit]

Func right()
If $dam = "Bilder\main1rechts.jpg" Then
$xmain += 20
$m = 4
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 4
$dam = "Bilder\main1rechts.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUIctrlSetState($main1, $Gui_Disable)
Endif
EndFunc

[/autoit][autoit][/autoit][autoit]

Func shoot()
If $ak = 1 Then
Sleep(1)
$m = 0
Endif
If $m = 1 Then
$muni = GUICtrlCreateLabel("",$xmain,$ymain,2,2)
GUICtrlSetPos($muni, $xmain+29, $ymain-20)
Sleep(150)
GUICtrlSetPos($muni, $xmain+29, $ymain-60)
Sleep(150)
GUICtrlSetPos($muni, $xmain+29, $ymain-100)
Sleep(150)
GUICtrlSetPos($muni, $xmain+29, $ymain-140)
Sleep(150)
GUICtrlSetPos($muni, $xmain+29, $ymain-180)
Sleep(150)
GUICtrlSetPos($muni, $xmain+29, $ymain-220)
Sleep(150)
GUICtrlSetPos($muni, $xmain+29, $ymain-260)
Sleep(150)
GUICtrlDelete($muni)
ElseIf $m = 2 then
$muni = GUICtrlCreateLabel("",$xmain,$ymain,2,2)
GUICtrlSetPos($muni, $xmain+10, $ymain+50)
Sleep(150)
GUICtrlSetPos($muni, $xmain+10, $ymain+90)
Sleep(150)
GUICtrlSetPos($muni, $xmain+10, $ymain+130)
Sleep(150)
GUICtrlSetPos($muni, $xmain+10, $ymain+170)
Sleep(150)
GUICtrlSetPos($muni, $xmain+10, $ymain+210)
Sleep(150)
GUICtrlSetPos($muni, $xmain+10, $ymain+250)
Sleep(150)
GUICtrlSetPos($muni, $xmain+10, $ymain+290)
Sleep(150)
GUICtrlDelete($muni)
ElseIf $m = 3 Then
$muni = GUICtrlCreateLabel("",$xmain,$ymain,2,2)
GUICtrlSetPos($muni, $xmain-10, $ymain+10)
Sleep(150)
GUICtrlSetPos($muni, $xmain-50, $ymain+10)
Sleep(150)
GUICtrlSetPos($muni, $xmain-90, $ymain+10)
Sleep(150)
GUICtrlSetPos($muni, $xmain-130, $ymain+10)
Sleep(150)
GUICtrlSetPos($muni, $xmain-170, $ymain+10)
Sleep(150)
GUICtrlSetPos($muni, $xmain-210, $ymain+10)
Sleep(150)
GUICtrlSetPos($muni, $xmain-250, $ymain+10)
Sleep(150)
GUICtrlDelete($muni)
ElseIf $m = 4 Then
$muni = GUICtrlCreateLabel("",$xmain,$ymain,2,2)
GUICtrlSetPos($muni, $xmain+50, $ymain+29)
Sleep(150)
GUICtrlSetPos($muni, $xmain+90, $ymain+29)
Sleep(150)
GUICtrlSetPos($muni, $xmain+130, $ymain+29)
Sleep(150)
GUICtrlSetPos($muni, $xmain+170, $ymain+29)
Sleep(150)
GUICtrlSetPos($muni, $xmain+210, $ymain+29)
Sleep(150)
GUICtrlSetPos($muni, $xmain+250, $ymain+29)
Sleep(150)
GUICtrlSetPos($muni, $xmain+290, $ymain+29)
Sleep(150)
GUICtrlDelete($muni)
EndIf
EndFunc

Func b1up()
If $bam = "Bilder\bot1vorne.jpg" Then
$yb1 -= 20
$b = 1
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 1
$bam = "Bilder\bot1vorne.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUIctrlSetState($bot1, $Gui_Disable)
Endif
EndFunc

[/autoit][autoit][/autoit][autoit]

Func b1down()
If $bam = "Bilder\bot1unten.jpg" Then
$yb1 += 20
$b = 2
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 2
$bam = "Bilder\bot1unten.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUIctrlSetState($bot1, $Gui_Disable)
Endif
EndFunc

[/autoit][autoit][/autoit][autoit]

Func b1left()
If $bam = "Bilder\bot1links.jpg" Then
$xb1 -= 20
$b = 3
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 3
$bam = "Bilder\bot1links.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUIctrlSetState($bot1, $Gui_Disable)
Endif
EndFunc

[/autoit][autoit][/autoit][autoit]

Func b1right()
If $bam = "Bilder\bot1rechts.jpg" Then
$xb1 += 20
$b = 4
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 4
$bam = "Bilder\bot1rechts.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUIctrlSetState($bot1, $Gui_Disable)
Endif
EndFunc

[/autoit][autoit][/autoit][autoit]

Func b1shoot()
If $ak = 1 Then
Sleep(1)
$b = 0
Endif
If $b = 1 Then
$munib1 = GUICtrlCreateLabel("",$xb1,$yb1,2,2)
GUICtrlSetPos($munib1, $xb1+29, $yb1-20)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+29, $yb1-60)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+29, $yb1-100)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+29, $yb1-140)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+29, $yb1-180)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+29, $yb1-220)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+29, $yb1-260)
Sleep(150)
GUICtrlDelete($munib1)
ElseIf $b = 2 then
$munib1 = GUICtrlCreateLabel("",$xb1,$yb1,2,2)
GUICtrlSetPos($munib1, $xb1+10, $yb1+50)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+10, $yb1+90)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+10, $yb1+130)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+10, $yb1+170)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+10, $yb1+210)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+10, $yb1+250)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+10, $yb1+290)
Sleep(150)
GUICtrlDelete($munib1)
ElseIf $b = 3 Then
$munib1 = GUICtrlCreateLabel("",$xb1,$yb1,2,2)
GUICtrlSetPos($munib1, $xb1-10, $yb1+10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1-50, $yb1+10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1-90, $yb1+10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1-130, $yb1+10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1-170, $yb1+10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1-210, $yb1+10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1-250, $yb1+10)
Sleep(150)
GUICtrlDelete($munib1)
ElseIf $b = 4 Then
$munib1 = GUICtrlCreateLabel("",$xb1,$yb1,2,2)
GUICtrlSetPos($munib1, $xb1+50, $yb1+29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+90, $yb1+29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+130, $yb1+29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+170, $yb1+29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+210, $yb1+29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+250, $yb1+29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1+290, $yb1+29)
Sleep(150)
GUICtrlDelete($munib1)
EndIf
EndFunc

;noch unwichtig-------------------------
Func _RectCollision($Rect1X1,$Rect1Y1,$Rect1X2,$Rect1Y2, $Rect2X1, $Rect2Y1, $Rect2X2, $Rect2Y2)
; Prog@ndy
Local Const $tagRECT = "long;long;long;long"
Local $1 = DllStructCreate($tagRECT)
Local $2 = DllStructCreate($tagRECT)
Local $3 = DllStructCreate($tagRECT)
DllStructSetData($1,1,$Rect1X1)
DllStructSetData($1,2,$Rect1Y1)
DllStructSetData($1,3,$Rect1X2)
DllStructSetData($1,4,$Rect1Y2)
DllStructSetData($2,1,$Rect2X1)
DllStructSetData($2,2,$Rect2Y1)
DllStructSetData($2,3,$Rect2X2)
DllStructSetData($2,4,$Rect2Y2)
Local $r = DllCall("User32.dll", "int", "IntersectRect", "ptr", DllStructGetPtr($3), "ptr", DllStructGetPtr($1), "ptr", DllStructGetPtr($2))
If @error Then Return SetError(1,0,0)
Return $r[0]<>0
EndFunc

[/autoit][autoit][/autoit][autoit][/autoit]

FireFlyer

Die Fehlermeldung wäre noch ganz hilfreich

Nathax

erstell ein neues skript, mach den code rein und drück F5 und dann guck

FireFlyer

sehr nett... eig. willst du doch das man dir hilft?!

Ich habe hier nur Linux und lasse AutoIt über Wine laufen, da kann es sein dass das script bei mir überhaupt nicht läuft

Also ich erhalte folgende Fehlermeldungen/Warnings:

Spoiler anzeigen

Code

>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "Z:\home\fireflyer\Desktop\Shooter\Shooter.au3" /autoit3dir "C:\Program Files\AutoIt3" /UserParams    
+>21:22:35 Starting AutoIt3Wrapper v.2.0.0.1    Environment(Language:0409  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X64 OS:X86)
>Running AU3Check (1.54.14.0)  from:C:\Program Files\AutoIt3
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(61,58) : WARNING: $main1: possibly used before declaration.
Global $mainpos = ControlGetPos("Autoitshooter","",$main1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(62,57) : WARNING: $bot1: possibly used before declaration.
Global $bot1pos = ControlGetPos("Autoitshooter","",$bot1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(63,61) : WARNING: $panzer: possibly used before declaration.
Global $panzerpos = ControlGetPos("Autoitshooter","",$panzer)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(69,19) : WARNING: $start: possibly used before declaration.
Case $msg = $start
~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(70,16) : WARNING: $gui1: possibly used before declaration.
GUIDelete($gui1)
~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(72,20) : WARNING: $pause: possibly used before declaration.
Case $msg = $pause and
~~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(72,28) : WARNING: $ak: possibly used before declaration.
Case $msg = $pause and $ak =
~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(78,23) : WARNING: $copyright: possibly used before declaration.
Case $msg = $copyright
~~~~~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(80,18) : WARNING: $ende: possibly used before declaration.
Case $msg = $ende
~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(82,21) : WARNING: $spezial: possibly used before declaration.
Case $msg = $spezial
~~~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(87,21) : WARNING: $mana: possibly used before declaration.
GuiCtrlSetData($mana,
~~~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(192,10) : WARNING: $dam: possibly used before declaration.
	If $dam =
	~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3(38,60) : WARNING: $panzer: declared global in function only. Prefer top of file.
Global $panzer = GUICtrlCreatePic($pam, 520, 300, 110, 110)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3 - 0 error(s), 13 warning(s)
->21:22:35 AU3Check ended.rc:1
>Running:(3.3.0.0):C:\Program Files\AutoIt3\autoit3.exe "Z:\home\fireflyer\Desktop\Shooter\Shooter.au3"    
Z:\home\fireflyer\Desktop\Shooter\Shooter.au3 (64) : ==> Subscript used with non-Array variable.:
Global $xmain = $mainpos[0]
Global $xmain = $mainpos^ ERROR
->21:22:37 AutoIT3.exe ended.rc:1
+>21:22:38 AutoIt3Wrapper Finished

Alles anzeigen

Du musst wahrscheinlich erstma ControlGetPos auf die Rückgabe abfragen bzw. auf @error

Nathax

sorry falls ich dich beleidigt hab das wusste ich ja nicht
aber das mit dem abprüfen glaub ich nicht weil ich habs heute ein bischen verändert, aber gestern liefs noch und ich hab nichts in dem bereich geändert sondern nur die funktion mit dem spezial-button.
bei mir kommt der fehler:
>"C:\Programme\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Dokumente und Einstellungen\NATHAN_2\Desktop\Shooter\Shooter.au3"
C:\Dokumente und Einstellungen\NATHAN_2\Desktop\Shooter\Shooter.au3 (64) : ==> Subscript used with non-Array variable.:
Global $xmain = $mainpos[0]
Global $xmain = $mainpos^ ERROR
>Exit code: 1 Time: 1.344

**UEZ**

Sehr wahrscheinlich ist $mainpos kein Array. Prüfe es doch mal mit IsArray()!

Gruß,
UEZ

Nathax

hab ich es ist eins also liegt da nicht der fehler

**UEZ**

Zunächst mal würde ich die Variablendeklaration Global aus der While Schleife nach oben verschieben (Reihenfolge der Global Anweisungen beachten)!

Gruß,
UEZ

**UEZ**

So bekomme ich keine Fehlermeldung!

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{ESC}", "ende")
HotKeySet("{Up}", "up")
HotKeySet("{Down}", "down")
HotKeySet("{Left}", "left")
HotKeySet("{Right}", "right")
HotKeySet("{Space}", "shoot")
HotKeySet("w", "b1up")
HotKeySet("s", "b1down")
HotKeySet("a", "b1left")
HotKeySet("d", "b1right")
HotKeySet("q", "b1shoot")

[/autoit] [autoit][/autoit] [autoit]

start()

[/autoit] [autoit][/autoit] [autoit]

Func start()
Global $dam = "Bilder\main1rechts.jpg"
Global $bam = "Bilder\bot1links.jpg"
Global $pam = "Bilder\panzervorne.jpg"
Global $m = 1
Global $b = 1
Global $xmain = 100
Global $ymain = 100
Global $xb1 = 100
Global $yb1 = 100
Global $ak = 0

[/autoit] [autoit][/autoit] [autoit]

Global $gui1 = GUICreate("Autoitshooter", 810, 600, 100, 75)
Global $hintergrund = GUICtrlCreateLabel("", 16, 50, 777, 417)
GUICtrlSetBkColor($hintergrund, 0x0)
Global $main1 = GUICtrlCreatePic($dam, 100, 200, 40, 40)
Global $bot1 = GUICtrlCreatePic($bam, 500, 200, 40, 40)
Global $panzer = GUICtrlCreatePic($pam, 520, 300, 110, 110)
Global $leben = GUICtrlCreateProgress(16, 496, 393, 25)
Global $mana = GUICtrlCreateProgress(16, 536, 393, 25)
Global $waffe1 = GUICtrlCreateButton("Waffe1", 424, 496, 73, 67, 0)
Global $waffe2 = GUICtrlCreateButton("Waffe2", 504, 496, 73, 67, 0)
Global $waffe3 = GUICtrlCreateButton("Waffe3", 584, 496, 73, 67, 0)
Global $spezial = GUICtrlCreateButton("Spezial", 664, 496, 129, 67, 0)
Global $datei = GUICtrlCreateMenu("&Datei")
Global $start = GUICtrlCreateMenuItem("Start", $datei)
Global $pause = GUICtrlCreateMenuItem("Pause", $datei)
Global $ende = GUICtrlCreateMenuItem("Ende", $datei)
Global $optionen = GUICtrlCreateMenu("&Optionen")
Global $hotkeys = GUICtrlCreateMenu("&Hotkeys")
Global $about = GUICtrlCreateMenu("&About")
Global $copyright = GUICtrlCreateMenuItem("Copyright", $about)
Global $mainpos = ControlGetPos("Autoitshooter", "", $main1)
Global $bot1pos = ControlGetPos("Autoitshooter", "", $bot1)
Global $panzerpos = ControlGetPos("Autoitshooter", "", $panzer)
Global $xmain = $mainpos[0]
Global $ymain = $mainpos[1]
Global $xb1 = $bot1pos[0]
Global $yb1 = $bot1pos[1]
GUISetState(@SW_SHOW)
GUICtrlSetData($leben, 100)
GUICtrlSetData($mana, 100)
EndFunc ;==>start

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Select
Case $msg = $start
GUIDelete($gui1)
start()
Case $msg = $pause And $ak = 0
$ak = 1
GUICtrlSetData($pause, "Weiter")
Case $msg = $pause And $ak = 1
$ak = 0
GUICtrlSetData($pause, "Pause")
Case $msg = $copyright
MsgBox(64, "Copyright", "(C)2009, Retrokid")
Case $msg = $ende
Exit
Case $msg = $spezial
$bam = "Bilder\bot1blut.jpg"
GUICtrlDelete($bot1)
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
GUICtrlSetData($mana, 0)
GUICtrlSetState($spezial, $Gui_Disable)
$man = 0
For $ma = 1 To 100 Step 1
Sleep(500)
$man += 1
GUICtrlSetData($mana, $man)
If $mainpos[1] = $bot1pos[1] And $mainpos[0] < $bot1pos[0] And ($bot1pos[0] - $mainpos[0]) < 270 Then
$bam = ""
b1left()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] And $mainpos[0] > $bot1pos[0] And ($mainpos[0] - $bot1pos[0]) < 270 Then
$bam = ""
b1right()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] < $bot1pos[1] And ($bot1pos[1] - $mainpos[1]) < 270 Then
$bam = ""
b1up()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] > $bot1pos[1] And ($mainpos[1] - $bot1pos[1]) < 270 Then
$bam = ""
b1down()
Sleep(600)
b1shoot()
Sleep(700)
EndIf
If $mainpos[1] = $bot1pos[1] And $mainpos[0] < $bot1pos[0] Then
b1left()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] And $mainpos[0] > $bot1pos[0] Then
b1right()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] < $bot1pos[1] Then
b1up()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] > $bot1pos[1] Then
b1down()
Sleep(700)
EndIf
Next
GUICtrlSetState($spezial, $Gui_Enable)
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
If $mainpos[1] = $bot1pos[1] And $mainpos[0] < $bot1pos[0] And ($bot1pos[0] - $mainpos[0]) < 270 Then
$bam = ""
b1left()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] And $mainpos[0] > $bot1pos[0] And ($mainpos[0] - $bot1pos[0]) < 270 Then
$bam = ""
b1right()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] < $bot1pos[1] And ($bot1pos[1] - $mainpos[1]) < 270 Then
$bam = ""
b1up()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] > $bot1pos[1] And ($mainpos[1] - $bot1pos[1]) < 270 Then
$bam = ""
b1down()
Sleep(600)
b1shoot()
Sleep(700)
EndIf
If $mainpos[1] = $bot1pos[1] And $mainpos[0] < $bot1pos[0] Then
b1left()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] And $mainpos[0] > $bot1pos[0] Then
b1right()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] < $bot1pos[1] Then
b1up()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] > $bot1pos[1] Then
b1down()
Sleep(700)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $panzerpos[0] - $mainpos[0] < 200 Then
GUICtrlDelete($main1)
ElseIf $mainpos[0] - $panzerpos[0] < 200 Then
GUICtrlDelete($main1)
ElseIf $panzerpos[1] - $mainpos[1] < 200 Then
GUICtrlDelete($main1)
ElseIf $mainpos[1] - $panzerpos[1] < 200 Then
GUICtrlDelete($main1)
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func ende()
Exit
EndFunc ;==>ende

[/autoit] [autoit][/autoit] [autoit]

Func up()
If $dam = "Bilder\main1vorne.jpg" Then
$ymain -= 20
$m = 1
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 1
$dam = "Bilder\main1vorne.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUICtrlSetState($main1, $Gui_Disable)
EndIf
EndFunc ;==>up

[/autoit] [autoit][/autoit] [autoit]

Func down()
If $dam = "Bilder\main1unten.jpg" Then
$ymain += 20
$m = 2
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 2
$dam = "Bilder\main1unten.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUICtrlSetState($main1, $Gui_Disable)
EndIf
EndFunc ;==>down

[/autoit] [autoit][/autoit] [autoit]

Func left()
If $dam = "Bilder\main1links.jpg" Then
$xmain -= 20
$m = 3
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 3
$dam = "Bilder\main1links.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUICtrlSetState($main1, $Gui_Disable)
EndIf
EndFunc ;==>left

[/autoit] [autoit][/autoit] [autoit]

Func right()
If $dam = "Bilder\main1rechts.jpg" Then
$xmain += 20
$m = 4
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 4
$dam = "Bilder\main1rechts.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUICtrlSetState($main1, $Gui_Disable)
EndIf
EndFunc ;==>right

[/autoit] [autoit][/autoit] [autoit]

Func shoot()
If $ak = 1 Then
Sleep(1)
$m = 0
EndIf
If $m = 1 Then
$muni = GUICtrlCreateLabel("", $xmain, $ymain, 2, 2)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 20)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 60)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 100)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 140)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 180)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 220)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 260)
Sleep(150)
GUICtrlDelete($muni)
ElseIf $m = 2 Then
$muni = GUICtrlCreateLabel("", $xmain, $ymain, 2, 2)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 50)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 90)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 130)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 170)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 210)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 250)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 290)
Sleep(150)
GUICtrlDelete($muni)
ElseIf $m = 3 Then
$muni = GUICtrlCreateLabel("", $xmain, $ymain, 2, 2)
GUICtrlSetPos($muni, $xmain - 10, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 50, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 90, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 130, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 170, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 210, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 250, $ymain + 10)
Sleep(150)
GUICtrlDelete($muni)
ElseIf $m = 4 Then
$muni = GUICtrlCreateLabel("", $xmain, $ymain, 2, 2)
GUICtrlSetPos($muni, $xmain + 50, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 90, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 130, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 170, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 210, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 250, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 290, $ymain + 29)
Sleep(150)
GUICtrlDelete($muni)
EndIf
EndFunc ;==>shoot

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func b1up()
If $bam = "Bilder\bot1vorne.jpg" Then
$yb1 -= 20
$b = 1
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 1
$bam = "Bilder\bot1vorne.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
EndIf
EndFunc ;==>b1up

[/autoit] [autoit][/autoit] [autoit]

Func b1down()
If $bam = "Bilder\bot1unten.jpg" Then
$yb1 += 20
$b = 2
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 2
$bam = "Bilder\bot1unten.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
EndIf
EndFunc ;==>b1down

[/autoit] [autoit][/autoit] [autoit]

Func b1left()
If $bam = "Bilder\bot1links.jpg" Then
$xb1 -= 20
$b = 3
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 3
$bam = "Bilder\bot1links.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
EndIf
EndFunc ;==>b1left

[/autoit] [autoit][/autoit] [autoit]

Func b1right()
If $bam = "Bilder\bot1rechts.jpg" Then
$xb1 += 20
$b = 4
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 4
$bam = "Bilder\bot1rechts.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
EndIf
EndFunc ;==>b1right

[/autoit] [autoit][/autoit] [autoit]

Func b1shoot()
If $ak = 1 Then
Sleep(1)
$b = 0
EndIf
If $b = 1 Then
$munib1 = GUICtrlCreateLabel("", $xb1, $yb1, 2, 2)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 20)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 60)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 100)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 140)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 180)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 220)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 260)
Sleep(150)
GUICtrlDelete($munib1)
ElseIf $b = 2 Then
$munib1 = GUICtrlCreateLabel("", $xb1, $yb1, 2, 2)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 50)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 90)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 130)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 170)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 210)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 250)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 290)
Sleep(150)
GUICtrlDelete($munib1)
ElseIf $b = 3 Then
$munib1 = GUICtrlCreateLabel("", $xb1, $yb1, 2, 2)
GUICtrlSetPos($munib1, $xb1 - 10, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 50, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 90, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 130, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 170, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 210, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 250, $yb1 + 10)
Sleep(150)
GUICtrlDelete($munib1)
ElseIf $b = 4 Then
$munib1 = GUICtrlCreateLabel("", $xb1, $yb1, 2, 2)
GUICtrlSetPos($munib1, $xb1 + 50, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 90, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 130, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 170, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 210, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 250, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 290, $yb1 + 29)
Sleep(150)
GUICtrlDelete($munib1)
EndIf
EndFunc ;==>b1shoot

[/autoit] [autoit][/autoit] [autoit]

;noch unwichtig-------------------------
Func _RectCollision($Rect1X1, $Rect1Y1, $Rect1X2, $Rect1Y2, $Rect2X1, $Rect2Y1, $Rect2X2, $Rect2Y2)
; Prog@ndy
Local Const $tagRECT = "long;long;long;long"
Local $1 = DllStructCreate($tagRECT)
Local $2 = DllStructCreate($tagRECT)
Local $3 = DllStructCreate($tagRECT)
DllStructSetData($1, 1, $Rect1X1)
DllStructSetData($1, 2, $Rect1Y1)
DllStructSetData($1, 3, $Rect1X2)
DllStructSetData($1, 4, $Rect1Y2)
DllStructSetData($2, 1, $Rect2X1)
DllStructSetData($2, 2, $Rect2Y1)
DllStructSetData($2, 3, $Rect2X2)
DllStructSetData($2, 4, $Rect2Y2)
Local $r = DllCall("User32.dll", "int", "IntersectRect", "ptr", DllStructGetPtr($3), "ptr", DllStructGetPtr($1), "ptr", DllStructGetPtr($2))
If @error Then Return SetError(1, 0, 0)
Return $r[0] <> 0
EndFunc ;==>_RectCollision

[/autoit]

Gruß,
UEZ

**Sprenger120**

ja jetze funktinierts aber das soiel läuft auch sehr buckig

Nathax

danke das kalppt schonmal super und auch danke fürs auskommentieren aber was bugt den da sprenger

**Sprenger120**

na ist das noch normal ich drücke 4 mal leer und dann
autoit.de/wcf/attachment/6910/
das und so und dann bleibt das so

Nathax

aber jetzt möchte ich noch das wenn der main sich im umkreis, also so ca.50-100 nah, des panzers befindet der main verschwindet

Bitte nehmt folgenden source und dann beantwortet:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{ESC}", "ende")
HotKeySet("{Up}", "up")
HotKeySet("{Down}", "down")
HotKeySet("{Left}", "left")
HotKeySet("{Right}", "right")
HotKeySet("{Space}", "shoot")
HotKeySet("w", "b1up")
HotKeySet("s", "b1down")
HotKeySet("a", "b1left")
HotKeySet("d", "b1right")
HotKeySet("q", "b1shoot")

[/autoit] [autoit][/autoit] [autoit]

start()

[/autoit] [autoit][/autoit] [autoit]

Func start()
Global $dam = "Bilder\main1rechts.jpg"
Global $bam = "Bilder\bot1links.jpg"
Global $pam = "Bilder\panzervorne.jpg"
Global $m = 1
Global $b = 1
Global $xmain = 100
Global $ymain = 100
Global $xb1 = 100
Global $yb1 = 100
Global $ak = 0

[/autoit] [autoit][/autoit] [autoit]

Global $gui1 = GUICreate("Autoitshooter", 810, 600, 100, 75)
Global $hintergrund = GUICtrlCreateLabel("", 16, 50, 777, 417)
GUICtrlSetBkColor($hintergrund, 0x0)
Global $main1 = GUICtrlCreatePic($dam, 100, 200, 40, 40)
Global $bot1 = GUICtrlCreatePic($bam, 500, 200, 40, 40)
Global $panzer = GUICtrlCreatePic($pam, 520, 300, 110, 110)
Global $leben = GUICtrlCreateProgress(16, 496, 393, 25)
Global $mana = GUICtrlCreateProgress(16, 536, 393, 25)
Global $waffe1 = GUICtrlCreateButton("Waffe1", 424, 496, 73, 67, 0)
Global $waffe2 = GUICtrlCreateButton("Waffe2", 504, 496, 73, 67, 0)
Global $waffe3 = GUICtrlCreateButton("Waffe3", 584, 496, 73, 67, 0)
Global $spezial = GUICtrlCreateButton("Spezial", 664, 496, 129, 67, 0)
Global $datei = GUICtrlCreateMenu("&Datei")
Global $start = GUICtrlCreateMenuItem("Start", $datei)
Global $pause = GUICtrlCreateMenuItem("Pause", $datei)
Global $ende = GUICtrlCreateMenuItem("Ende", $datei)
Global $optionen = GUICtrlCreateMenu("&Optionen")
Global $hotkeys = GUICtrlCreateMenu("&Hotkeys")
Global $about = GUICtrlCreateMenu("&About")
Global $copyright = GUICtrlCreateMenuItem("Copyright", $about)
Global $mainpos = ControlGetPos("Autoitshooter", "", $main1)
Global $bot1pos = ControlGetPos("Autoitshooter", "", $bot1)
Global $panzerpos = ControlGetPos("Autoitshooter", "", $panzer)
Global $xmain = $mainpos[0]
Global $ymain = $mainpos[1]
Global $xb1 = $bot1pos[0]
Global $yb1 = $bot1pos[1]
GUISetState(@SW_SHOW)
GUICtrlSetData($leben, 100)
GUICtrlSetData($mana, 100)
EndFunc ;==>start

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Global $mainpos = ControlGetPos("Autoitshooter", "", $main1)
Global $bot1pos = ControlGetPos("Autoitshooter", "", $bot1)
Global $panzerpos = ControlGetPos("Autoitshooter", "", $panzer)
Select
Case $msg = $start
GUIDelete($gui1)
start()
Case $msg = $pause And $ak = 0
$ak = 1
GUICtrlSetData($pause, "Weiter")
Case $msg = $pause And $ak = 1
$ak = 0
GUICtrlSetData($pause, "Pause")
Case $msg = $copyright
MsgBox(64, "Copyright", "(C)2009, Retrokid")
Case $msg = $ende
Exit
Case $msg = $spezial
$bam = "Bilder\bot1blut.jpg"
GUICtrlDelete($bot1)
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
GUICtrlSetData($mana, 0)
GUICtrlSetState($spezial, $Gui_Disable)
$man = 0
For $ma = 1 To 100 Step 1
Sleep(500)
$man += 1
GUICtrlSetData($mana, $man)
If $mainpos[1] = $bot1pos[1] And $mainpos[0] < $bot1pos[0] And ($bot1pos[0] - $mainpos[0]) < 270 Then
$bam = ""
b1left()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] And $mainpos[0] > $bot1pos[0] And ($mainpos[0] - $bot1pos[0]) < 270 Then
$bam = ""
b1right()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] < $bot1pos[1] And ($bot1pos[1] - $mainpos[1]) < 270 Then
$bam = ""
b1up()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] > $bot1pos[1] And ($mainpos[1] - $bot1pos[1]) < 270 Then
$bam = ""
b1down()
Sleep(600)
b1shoot()
Sleep(700)
EndIf
If $mainpos[1] = $bot1pos[1] And $mainpos[0] < $bot1pos[0] Then
b1left()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] And $mainpos[0] > $bot1pos[0] Then
b1right()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] < $bot1pos[1] Then
b1up()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] > $bot1pos[1] Then
b1down()
Sleep(700)
EndIf
Next
GUICtrlSetState($spezial, $Gui_Enable)
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
If $mainpos[1] = $bot1pos[1] And $mainpos[0] < $bot1pos[0] And ($bot1pos[0] - $mainpos[0]) < 270 Then
$bam = ""
b1left()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] And $mainpos[0] > $bot1pos[0] And ($mainpos[0] - $bot1pos[0]) < 270 Then
$bam = ""
b1right()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] < $bot1pos[1] And ($bot1pos[1] - $mainpos[1]) < 270 Then
$bam = ""
b1up()
Sleep(600)
b1shoot()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] > $bot1pos[1] And ($mainpos[1] - $bot1pos[1]) < 270 Then
$bam = ""
b1down()
Sleep(600)
b1shoot()
Sleep(700)
EndIf
If $mainpos[1] = $bot1pos[1] And $mainpos[0] < $bot1pos[0] Then
b1left()
Sleep(700)
ElseIf $mainpos[1] = $bot1pos[1] And $mainpos[0] > $bot1pos[0] Then
b1right()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] < $bot1pos[1] Then
b1up()
Sleep(700)
ElseIf $mainpos[0] = $bot1pos[0] And $mainpos[1] > $bot1pos[1] Then
b1down()
Sleep(700)
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func ende()
Exit
EndFunc ;==>ende

[/autoit] [autoit][/autoit] [autoit]

Func up()
If $dam = "Bilder\main1vorne.jpg" Then
$ymain -= 20
$m = 1
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 1
$dam = "Bilder\main1vorne.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUICtrlSetState($main1, $Gui_Disable)
EndIf
EndFunc ;==>up

[/autoit] [autoit][/autoit] [autoit]

Func down()
If $dam = "Bilder\main1unten.jpg" Then
$ymain += 20
$m = 2
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 2
$dam = "Bilder\main1unten.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUICtrlSetState($main1, $Gui_Disable)
EndIf
EndFunc ;==>down

[/autoit] [autoit][/autoit] [autoit]

Func left()
If $dam = "Bilder\main1links.jpg" Then
$xmain -= 20
$m = 3
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 3
$dam = "Bilder\main1links.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUICtrlSetState($main1, $Gui_Disable)
EndIf
EndFunc ;==>left

[/autoit] [autoit][/autoit] [autoit]

Func right()
If $dam = "Bilder\main1rechts.jpg" Then
$xmain += 20
$m = 4
GUICtrlSetPos($main1, $xmain, $ymain)
ElseIf $ak = 1 Then
Sleep(1)
$dam = ""
Else
GUICtrlDelete($main1)
$m = 4
$dam = "Bilder\main1rechts.jpg"
$main1 = GUICtrlCreatePic($dam, $xmain, $ymain, 40, 40)
GUICtrlSetState($main1, $Gui_Disable)
EndIf
EndFunc ;==>right

[/autoit] [autoit][/autoit] [autoit]

Func shoot()
If $ak = 1 Then
Sleep(1)
$m = 0
EndIf
If $m = 1 Then
$muni = GUICtrlCreateLabel("", $xmain, $ymain, 2, 2)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 20)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 60)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 100)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 140)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 180)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 220)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 29, $ymain - 260)
Sleep(150)
GUICtrlDelete($muni)
ElseIf $m = 2 Then
$muni = GUICtrlCreateLabel("", $xmain, $ymain, 2, 2)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 50)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 90)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 130)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 170)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 210)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 250)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 10, $ymain + 290)
Sleep(150)
GUICtrlDelete($muni)
ElseIf $m = 3 Then
$muni = GUICtrlCreateLabel("", $xmain, $ymain, 2, 2)
GUICtrlSetPos($muni, $xmain - 10, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 50, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 90, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 130, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 170, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 210, $ymain + 10)
Sleep(150)
GUICtrlSetPos($muni, $xmain - 250, $ymain + 10)
Sleep(150)
GUICtrlDelete($muni)
ElseIf $m = 4 Then
$muni = GUICtrlCreateLabel("", $xmain, $ymain, 2, 2)
GUICtrlSetPos($muni, $xmain + 50, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 90, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 130, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 170, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 210, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 250, $ymain + 29)
Sleep(150)
GUICtrlSetPos($muni, $xmain + 290, $ymain + 29)
Sleep(150)
GUICtrlDelete($muni)
EndIf
EndFunc ;==>shoot

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func b1up()
If $bam = "Bilder\bot1vorne.jpg" Then
$yb1 -= 20
$b = 1
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 1
$bam = "Bilder\bot1vorne.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
EndIf
EndFunc ;==>b1up

[/autoit] [autoit][/autoit] [autoit]

Func b1down()
If $bam = "Bilder\bot1unten.jpg" Then
$yb1 += 20
$b = 2
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 2
$bam = "Bilder\bot1unten.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
EndIf
EndFunc ;==>b1down

[/autoit] [autoit][/autoit] [autoit]

Func b1left()
If $bam = "Bilder\bot1links.jpg" Then
$xb1 -= 20
$b = 3
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 3
$bam = "Bilder\bot1links.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
EndIf
EndFunc ;==>b1left

[/autoit] [autoit][/autoit] [autoit]

Func b1right()
If $bam = "Bilder\bot1rechts.jpg" Then
$xb1 += 20
$b = 4
GUICtrlSetPos($bot1, $xb1, $yb1)
ElseIf $ak = 1 Then
Sleep(1)
$bam = ""
Else
GUICtrlDelete($bot1)
$b = 4
$bam = "Bilder\bot1rechts.jpg"
$bot1 = GUICtrlCreatePic($bam, $xb1, $yb1, 40, 40)
GUICtrlSetState($bot1, $Gui_Disable)
EndIf
EndFunc ;==>b1right

[/autoit] [autoit][/autoit] [autoit]

Func b1shoot()
If $ak = 1 Then
Sleep(1)
$b = 0
EndIf
If $b = 1 Then
$munib1 = GUICtrlCreateLabel("", $xb1, $yb1, 2, 2)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 20)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 60)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 100)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 140)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 180)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 220)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 29, $yb1 - 260)
Sleep(150)
GUICtrlDelete($munib1)
ElseIf $b = 2 Then
$munib1 = GUICtrlCreateLabel("", $xb1, $yb1, 2, 2)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 50)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 90)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 130)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 170)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 210)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 250)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 10, $yb1 + 290)
Sleep(150)
GUICtrlDelete($munib1)
ElseIf $b = 3 Then
$munib1 = GUICtrlCreateLabel("", $xb1, $yb1, 2, 2)
GUICtrlSetPos($munib1, $xb1 - 10, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 50, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 90, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 130, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 170, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 210, $yb1 + 10)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 - 250, $yb1 + 10)
Sleep(150)
GUICtrlDelete($munib1)
ElseIf $b = 4 Then
$munib1 = GUICtrlCreateLabel("", $xb1, $yb1, 2, 2)
GUICtrlSetPos($munib1, $xb1 + 50, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 90, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 130, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 170, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 210, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 250, $yb1 + 29)
Sleep(150)
GUICtrlSetPos($munib1, $xb1 + 290, $yb1 + 29)
Sleep(150)
GUICtrlDelete($munib1)
EndIf
EndFunc ;==>b1shoot

[/autoit] [autoit][/autoit] [autoit]

;noch unwichtig-------------------------
Func _RectCollision($Rect1X1, $Rect1Y1, $Rect1X2, $Rect1Y2, $Rect2X1, $Rect2Y1, $Rect2X2, $Rect2Y2)
; Prog@ndy
Local Const $tagRECT = "long;long;long;long"
Local $1 = DllStructCreate($tagRECT)
Local $2 = DllStructCreate($tagRECT)
Local $3 = DllStructCreate($tagRECT)
DllStructSetData($1, 1, $Rect1X1)
DllStructSetData($1, 2, $Rect1Y1)
DllStructSetData($1, 3, $Rect1X2)
DllStructSetData($1, 4, $Rect1Y2)
DllStructSetData($2, 1, $Rect2X1)
DllStructSetData($2, 2, $Rect2Y1)
DllStructSetData($2, 3, $Rect2X2)
DllStructSetData($2, 4, $Rect2Y2)
Local $r = DllCall("User32.dll", "int", "IntersectRect", "ptr", DllStructGetPtr($3), "ptr", DllStructGetPtr($1), "ptr", DllStructGetPtr($2))
If @error Then Return SetError(1, 0, 0)
Return $r[0] <> 0
EndFunc ;==>_RectCollision

[/autoit]

und wie findet ihr das skript überhaupt so??

SEuBo

Kannst du nicht einfach mal sowas benutzen?

Spoiler anzeigen

Genau sowas! Dann muss man nicht immer 2 jahre lang scrollen

Nathax

Spoiler anzeigen

ok, ich wusste nur nicht wie man das macht aber jetzt schon, wie man sieht

Nathax

also bei mir bugt das zwar bei vier mal leer aber mein char ist nicht weg und kommt pls mal zu meiner frage

**Sprenger120**

ich find der skript is ganz ok aber nen bissel holprig
besser wäre wenne sonne art 3d engen hättest wie bei dem Jump´n´Run spiel was vor einiger zeit geuploadet wurde

//Edit: Das hier meine ich Mein Jump n' Run Spiel mit der Irrlich Engine

Nathax

das mit dem 3D ist nicht so eimfach 8un ehrlich gesagt so super finde ich es auch nicht
aber jetzt hilft mir bitte das man im umkreis vom panzer also wenn man ihn fast berührt
verschwindet also ehergesagt $main1

**Schnitzel**

Zitat von retrokid

das mit dem 3D ist nicht so eimfach 8un ehrlich gesagt so super finde ich es auch nicht
aber jetzt hilft mir bitte das man im umkreis vom panzer also wenn man ihn fast berührt
verschwindet also ehergesagt $main1

kurz gesagt du willst überprüfen ob deine figur am panzer steht?

dazu brauchste wieder ne funktion die die positionen der figur und des panzers vergleicht

Nathax

ja genau richtig ich hab schon eine geschrieben aber nachdem ich den code von oben genommen hab hat sich nicht mehr gefunkt und ich hab sie gelöscht, da sonst gar nix mehr geklappt hat