Beiträge von Nathax

Hi ich habe ne frage zum folgenden thread <<Hier>>
wie macht man das, wie es dort bei dem x und dem haken ist, dass alles um die körper mit sonem schachmuster umzogen ist und somit transparent ist. bei meinen bildern ist der rest um die figuren dann immer weiß oder halt so wie ich den hintergrund färbe
bitte helft mir schnell!!!

ok ihr braucht es ja nicht machen nur ansätze aber auch egla ich hab gerade eh was anderes vor

und wenn ich die wieder reinbau funkt der rest nicht
bitte schreib mir eine funktion die klappt

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

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

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

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:

und wie findet ihr das skript überhaupt so??

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

hab ich es ist eins also liegt da nicht der fehler

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

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

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

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

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")

start()

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

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

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

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

Func ende()
Exit
EndFunc

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

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

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

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

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

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

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

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

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

also ehrlichgesagt kapier ich das selber noch nicht so richtig( könnte ma einer ein gutes tut machen!!) aber bei text kannste einfach nix reischreiben also "" und die id musste im chat fragen

und zu deinem problem gib mal bei der hilfe Controlclick ein da findest du was

achso weil du weißt: BOTS SIND VERBOTEN

dumme frage von mir aber wozu brauchst du denn sowas

also es klappt eigentlich

nur es bugt oft wenn man zwischen den tabs wechselt

wie heißt der befehl die inteadresse zu ermitteln vom aktuellen tab und wie aktualisiert man die seite also der befehl dafür

ich muss off bb

ja hab meinen ein bisschen umgeschrieben der hat jetzt auch ne dynamische anzahl und die funktionen funken auch immer nur in dem tab der gerade benutzt wird
also die frage wäre geklärt

ich brauche jetzt hilfe bei der funktion tabs zu löschen

ihr sollt es doch gar nicht umschreiben ihr sollt nur eine lösung finden