Beiträge von clezZ

clezZ

Ich meinte eher so, dass man die Schleifen, usw. besser erkennen kann:

Spoiler anzeigen

[autoit]

;___Func - patching()_____________________________________________________________
;###################################################################################
Func patching()
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt") ;download der Externen WoW Version

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

$versionlocal = FileGetVersion($wowpath & "\Wow.exe") ; locale WoW Version
$versionextern = FileRead(@TempDir & "\wowversion.txt") ; Server WoW Version

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

While 1
If $versionlocal < $versionextern Then ; Vergleich
Do ; tue ***
MsgBox(0, "Achtung", "Nach dem Download und dem entpacken der Dateien kann es zu Zeitverzögerungen kommen," & @CRLF & "bis sich der eigentliche Patchvorgang abspielt. Bitte keine Eingriffe durchführen!")
; ERSTER PATCH ***************************************************************************************************************
If $versionlocal = "2.3.3.7799" Then ; WoWVersion local = 2.3.3.7799
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, $language[4], $language[51])
logfile("RG WoW Installer: Can't connect to http://www.wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10037&mirror=1", $wowpath & "\Patch 2.4 - Deutsch.zip", 1, 1) ; Download des Patches
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10037&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then ; Progress
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, $language[4], $language[22])
ProgressOff()
MsgBox(-1, $language[4], $language[21])
logfile("Patch Download: DL NOT succesfull - Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089)") ;logeintrag
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 2.4 - Deutsch.zip", $wowpath & "Patch 2.4 - Deutsch", 0) ; Dateientpacken
$exe = _FileListToArray($wowpath & "Patch 2.4 - Deutsch\", "*.exe") ; exe aus ordner auslesen
Run($wowpath & "Patch 2.4 - Deutsch\" & $exe[1]) ; ausführen
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.");patch beenden wenn fertig
ControlClick("100% - Blizzard Updater", "&OK", "Button1") ; **
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
; ZWEITER PATCH ********************************************************************************************************
If $versionlocal = "2.4.0.8089" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10035&mirror=1", $wowpath & "\Patch 2.4.1 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10035&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 2.4.1 - Deutsch.zip", $wowpath & "Patch 2.4.1 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 2.4.1 - Deutsch\", "*.exe")
Run($wowpath & "Patch 2.4.1 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
If $versionlocal = "2.4.1.8125" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10033&mirror=1", $wowpath & "\Patch 2.4.2 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10033&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 2.4.2 - Deutsch was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "Patch 2.4.2 - Deutsch.zip", $wowpath & "Patch 2.4.2 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 2.4.2 - Deutsch\", "*.exe")
Run($wowpath & "Patch 2.4.2 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*DRITTER PATCH ***********************************************************************************************
If $versionlocal = "2.4.2.8278" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10031&mirror=1", $wowpath & "\Patch 2.4.3 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10031&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 2.4.3 - Deutsch.zip", $wowpath & "Patch 2.4.3 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 2.4.3 - Deutsch\", "*.exe")
Run($wowpath & "Patch 2.4.3 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*4ter PATCH ***********************************************************************************************
If $versionlocal = "2.4.3.8606" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10029&mirror=1", $wowpath & "\Patch 3.0.1 - EU.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10029&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.0.1 - EU.zip", $wowpath & "Patch 3.0.1 - EU", 0)
$exe = _FileListToArray($wowpath & "Patch 3.0.1 - EU\Updates\WoW-2.4.3-to-3.0.1-TBC-EU-Update\", "*.exe")
Run($wowpath & "Patch 3.0.1 - EU\Updates\WoW-2.4.3-to-3.0.1-TBC-EU-Update\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*5ter PATCH ***********************************************************************************************
If $versionlocal = "3.0.1.8874" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.0.2 - EU (3.0.1 -> 3.0.2) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10028&mirror=1", $wowpath & "\Patch 3.0.2 - EU.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10028&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.0.2 - EU (3.0.1 -> 3.0.2)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.0.2 - EU (3.0.1 -> 3.0.2)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.0.2 - EU (3.0.1 -> 3.0.2) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 3.0.2 - EU (3.0.1 -> 3.0.2) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.0.2 - EU.zip", $wowpath & "Patch 3.0.2 - EU", 0)
$exe = _FileListToArray($wowpath & "Patch 3.0.2 - EU\Updates\WoW-3.0.1-to-3.0.2-Update\", "*.exe")
Run($wowpath & "Patch 3.0.2 - EU\Updates\WoW-3.0.1-to-3.0.2-Update\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*6ter PATCH ***********************************************************************************************
If $versionlocal = "3.0.2.9056" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.0.2 - EU (3.0.1 -> 3.0.2) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10006&mirror=2", $wowpath & "\Patch 3.2 - Full.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10006&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.2 - Full", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.2 - Full")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.2 - Full was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 3.2 - Full : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.2 - Full.zip", $wowpath & "Patch 3.2 - Full", 0)
$exe = _FileListToArray($wowpath & "Patch 3.2 - Full\", "*.exe")
Run($wowpath & "Patch 3.2 - Full\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*7ter PATCH ***********************************************************************************************
If $versionlocal = "3.2.0.10192" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10026&mirror=1", $wowpath & "\Patch 3.2.0a - Deutsch.zip", 1, 1)
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10026&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.2.0a - Deutsch.zip", $wowpath & "Patch 3.2.0a - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 3.2.0a - Deutsch\", "*.exe")
Run($wowpath & "Patch 3.2.0a - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*8ter PATCH ***********************************************************************************************
If $versionlocal = "3.2.0.10314" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10024&mirror=1", $wowpath & "\Patch 3.2.2 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10024&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.2.2 - Deutsch.zip", $wowpath & "Patch 3.2.2 - Deutsch", 4)
$exe = _FileListToArray($wowpath & "Patch 3.2.2 - Deutsch\", "*.exe")
Run($wowpath & "Patch 3.2.2 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*8ter PATCH ***********************************************************************************************
If $versionlocal = "3.2.2.10482" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10022&mirror=1", $wowpath & "\Patch 3.2.2a - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10022&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) ")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.2.2a - Deutsch.zip", $wowpath & "Patch 3.2.2a - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 3.2.2a - Deutsch\", "*.exe")
Run($wowpath & "Patch 3.2.2a - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*9ter PATCH ***********************************************************************************************
If $versionlocal = "3.2.2.10505" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10020&mirror=2", $wowpath & "\Patch 3.3 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10020&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "Patch 3.3 - Deutsch.zip", $wowpath & "Patch 3.3 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 3.3 - Deutsch\wow-3.2.2-to-3.3.0-deDE-Win-patch", "*.exe")
Run($wowpath & "Patch 3.3 - Deutsch\wow-3.2.2-to-3.3.0-deDE-Win-patch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*10ter PATCH ***********************************************************************************************
If $versionlocal = "3.3.0.10958" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10018&mirror=2", $wowpath & "\Patch 3.3a - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10018&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "Patch 3.3a - Deutsch.zip", $wowpath & "Patch 3.3a - Deutsch\", 0)
$exe = _FileListToArray($wowpath & "Patch 3.3a - Deutsch\", "*.exe")
Run($wowpath & "Patch 3.3a - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*11ter PATCH ***********************************************************************************************
If $versionlocal = "3.3.0.11159" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.3.0.11159 -> 3.3.2.11403 wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10016&mirror=2", $wowpath & "\WoW Patch 3.3.2 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10016&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.3.0.11159 -> 3.3.2.11403", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.3.0.11159 -> 3.3.2.11403")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.3.0.11159 -> 3.3.2.11403 was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 3.3.0.11159 -> 3.3.2.11403 : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "WoW Patch 3.3.2 - Deutsch.zip", $wowpath & "WoW Patch 3.3.2 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "WoW Patch 3.3.2 - Deutsch\", "*.exe")
Run($wowpath & "WoW Patch 3.3.2 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*11ter PATCH ***********************************************************************************************
If $versionlocal = "3.3.2.11403" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "WoW Patch 3.3.3 wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10008&mirror=2", $wowpath & "\WoW Patch 3.3.3 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10008&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of WoW Patch 3.3.3", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull: WoW Patch 3.3.3")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "WoW Patch 3.3.3 was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("WoW Patch 3.3.3 : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "WoW Patch 3.3.3 - Deutsch.zip", $wowpath & "WoW Patch 3.3.3 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "WoW Patch 3.3.3 - Deutsch\wow-3.3.2-to-3.3.3-deDE-Win-patch\", "*.exe")
Run($wowpath & "WoW Patch 3.3.3 - Deutsch\wow-3.3.2-to-3.3.3-deDE-Win-patch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*12ter PATCH ***********************************************************************************************
If $versionlocal = "3.3.3.11685" Then
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10064&mirror=2", $wowpath & "\WoW Patch 3.3.3a - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10064&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath)
logfile("Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "WoW Patch 3.3.3a - Deutsch.zip", $wowpath & "WoW Patch 3.3.3a - Deutsch", 0)
$exe = _FileListToArray($wowpath & "WoW Patch 3.3.3a - Deutsch\", "*.exe")
Run($wowpath & "WoW Patch 3.3.3a - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
Return ; wieder zum anfang hoch bis wowversionlocal der vom Server entspricht
Until $versionlocal = $versionextern
MsgBox(0, "RG WoW Installer", "WoW erfolgreich auf den neuesten Stand gebracht")
$verw = FileGetVersion($wowpath & "\Wow.exe")
logfile("WoW erfolgreich gepatched: Patchstand:" & $verw)
EndIf
WEnd
EndFunc ;==>patching
;___EoF - Patching()_______________________________________________________
;###################################################################################
;#############################EoFUNCTIONS######################################

[/autoit]

clezZ

@abc-user: Du kannst ja hoffentlich GDI+, und wenn du noch nie ein Spiel gemacht hast, wird das sicher nicht leicht für dich.
Du kannst ja mal ein paar "Test Spiele" machen.

PS.: Skype hab ich.

GE IXI TIM: Ich denke, das es als allererstes mal ohne KI sein wird, und wenn wir dann ein funktionierendes Spiel haben sollten, kann man sich an eine KI wagen.

clezZ

Boah, räum das mal auf, damit wir uns in diesen 700 Zeilen Code zurecht finden können!

clezZ

Zitat von Jonathan

@EM: Wenn man ein Haus baut, fängt man ja auch nciht mit dem Dach an. oder?

Bist du dir da sicher???

Ne, mal ernsthaft, @EM: Pinguin94 hat schon Recht:

Zitat von Pinguin94

Du willst GDI+ lernen, dann fang mit was leichterem an.

Und das mein ich jetzt nicht so, das du gleich wieder fragen musst, ob das verboten ist!
Probier doch einfach mal, verschiedene Formen in eine Grafik zu zeichnen, oder Bilder.
Und lies immer in der Hilfe nach, ob du irgendwas "Disposen" musst!

Wenn du das dann richtig verstanden hast, kannst du mit sich bewegenden Objekten anfangen, die zum Beispiel an der Wand abprallen...
Sei kreativ, und lass dir Zeit, um das was du schreibst, auch zu verstehen.

clezZ

Zitat von DjBlume

EliteMatthias (EM) & Bakku = Die Würmer (Worms)
name22 = GDi+ ?? (Ich versuche ihm dann zu helfen)

Und was ist mit mir?

clezZ

Wie meinstn das?
Insgesamt, oder nur in diesem Thread?

clezZ

Zitat von Ubuntu

Ich stimme zu aber alles ist möglich

Nicht unbedingt mit AutoIt!

clezZ

Zitat von killsebbe

sagen wir es so das laufen kein prob

Kein Problem???
Wenn man nur auf einer waagrechten Linie läuft, ist das kein Problem(!), aber so...

clezZ

Zitat von moritz1243

Naja ich arbeite leider nicht mehr so oft mit autoit, ich hab mir mittlerweile c++ angeeignet. Ich habe die Physik-Engine auch mittlerweile in in c++ neu geschrieben und die fehler die bekannt sind bzw andere mit den array behoben(ist in c++ mit klassen eigentlich viel einfach und komfortabeler als mit autoit, wenn man es erstmal verstanden hat);

Kannst du mal dein Quelltext zeigen? Würd mich nähmlich wirklich mal interressieren, wie das in c++ aussieht.

clezZ

Juhu, du machst auch mit, jetzt können wir EM rauswerfen
*war nur ein witz*

clezZ

Zitat von Alizame

Alizame möchte helfen!!!

Wenn Alizame das schafft xD

clezZ

In SciTe auf Tools->CodeWizard, dann zusammen bauen und auf Copy drücken.

clezZ

Zitat von name22

Außerdem sehe ich in letzter Zeit viele GDI+ Scripte die meinen eigenartigerweise recht ähnlich sehen

Ist das auf mich bezogen?

clezZ

So schnell braucht ihr euch da noch keine Gedanken machen
Und bleibt lieber beim guten alten 2D Doodle Jump!

clezZ

Oder so:

[autoit]

Switch MsgBox(36,"Frage","Soll in Fullscreen gestartet werden ?")
Case 6 ;Yes
;Bei Ja passiert dies das
Case 7 ;No
;Bei Nein passiert dies das anders
EndSwitch

[/autoit]

clezZ

Kanada?

clezZ

@kilsebbe: Hast du denn schon mit einem Skript angefangen?

clezZ

Falls du verzweifelst, hier ist die Lösung:
(aber nur im Notfall schaun!)

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <GUIConstants.au3>

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

Global $Width = 353
Global $Height = 501
Global $dHeight = 1
Global $dWidth = 1
Global $GUI_Back_Color = 0xFFFFFFFF

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

_GDIPlus_Startup()

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

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Worms AutoIt", $Width, $Height, -1, -1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Global $Graphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
Global $Bitmap = _GDIPlus_BitmapCreateFromGraphics($Width, $Height, $Graphic)
Global $Backbuffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)

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

_GDIPlus_GraphicsDrawRect($Backbuffer, 1, 1, 200, 200)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_Exit()
EndSwitch
_ReDraw()
_GDIPlus_GraphicsClear($Backbuffer, $GUI_Back_Color)
WEnd

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

Func _Exit()
_GDIPlus_GraphicsDispose($Backbuffer)
_GDIPlus_GraphicsDispose($Graphic)
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_Exit

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

Func _ReDraw()
$dWidth += 1
$dHeight += 1
_GDIPlus_GraphicsDrawRect($Backbuffer, $dWidth, $dHeight, 200, 200)
_GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $Width, $Height)
EndFunc ;==>_ReDraw

[/autoit]

clezZ

Ok, ich geb dir einen Tipp: Wo wird der Backbuffer auf die Graphik gezeichnet?

clezZ

Ich finde dein Skript ziemlich unübersichtlich, außerdem räumst du nicht alle Ressourcen auf...

Hier ist ein Skript, das ich mal gemacht habe, im Grunde das, was du willst:

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <Misc.au3>

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

Global $GUIWidth = 500
Global $GUIHeight = 500
Global $iX = 50
Global $iY = 50
Global $StepX = 3
Global $StepY = 4
Global $Width = 10
Global $Height = 10
Global $Reibung = -1 ;veränder den Wert ein bischen, und schau was passiert

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

$Gui = GUICreate("Bild", $GUIWidth, $GUIHeight)
GUISetState()

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

_GDIPlus_Startup()

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

Global $GDIPlus_GUI = _GDIPlus_GraphicsCreateFromHWND($Gui)
Global $Bitmap = _GDIPlus_BitmapCreateFromGraphics($GUIWidth, $GUIHeight, $GDIPlus_GUI)
Global $Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
_GDIPlus_GraphicsSetSmoothingMode($Buffer, 2)
_GDIPlus_GraphicsClear($Buffer, 0xFF000000)
Global $Pen = _GDIPlus_PenCreate(0xFFFFFFFF, 10, 0)
_GDIPlus_GraphicsDrawArc($Buffer, $iX, $iY, $Width, $Height, 200, 400, $Pen)
_GDIPlus_GraphicsDrawImageRect($GDIPlus_GUI, $Bitmap, 0, 0, $GUIWidth, $GUIHeight)

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

AdlibRegister("_Draw", 16)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_GraphicsDispose($GDIPlus_GUI)
_GDIPlus_GraphicsDispose($Buffer)
_GDIPlus_PenDispose($Pen)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEnd

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

Func _Draw()
_GDIPlus_GraphicsClear($Buffer)
_GDIPlus_GraphicsDrawArc($Buffer, $iX, $iY, $Width, $Height, 200, 400, $Pen)
_GDIPlus_GraphicsDrawImageRect($GDIPlus_GUI, $Bitmap, 0, 0, $GUIWidth, $GUIHeight)
$iX -= $StepX
$iY += $StepY
If $iX >= $GUIWidth - $Width Then $StepX *= $Reibung
If $iX <= 0 + $Height Then $StepX *= $Reibung
If $iY >= $GUIHeight - $Height Then $StepY *= $Reibung
If $iY <= 0 + $Height Then $StepY *= $Reibung
If _IsPressed("08") Then _reset() ;mit BACKSPACE passiert etwas
EndFunc ;==>_Draw

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

Func _reset()
Global $GUIWidth = 500
Global $GUIHeight = 500
Global $iX = 50
Global $iY = 50
Global $StepX = 5
Global $StepY = 4
Global $Width = 10
Global $Height = 10
Global $Reibung = -1
EndFunc ;==>_reset

[/autoit]

Beiträge von clezZ

do while until switch hä?

Worms

do while until switch hä?

GDI+ Beginner -.-

Worms

[GAMEPROJEKT][Worms AutoIt-Geddon]

Worms

Worms

Physik Engine Version2

[GAMEPROJEKT][Worms AutoIt-Geddon]

GDI+ Beginner -.-

Msgbox

GDI+ Beginner -.-

[GAMEPROJEKT][Worms AutoIt-Geddon]

Msgbox

Worms

Worms

GDI+ Beginner -.-

GDI+ Beginner -.-

GDI+ Beginner -.-