Ich hab hier mal Doodle Jump für PC gefunden!
Es ist mit AutoIt gecodet.
Hier ein paar "InGame Screens":
Source:
Das ist doch mal ein Source Code, oder?
Vollständiges Spiel könnt ihr [Only registered and activated users can see links. Click Here To Register...] downloaden!
MFG
iPod
Es ist mit AutoIt gecodet.
Hier ein paar "InGame Screens":
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
Source:
PHP Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Doodle.ico
#AutoIt3Wrapper_Res_Fileversion=8.1.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#Obfuscator_Parameters=/striponly
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; #INCLUDES# ==================================================================================================================== 617
#include <GDIPlus.au3>
#include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <timers.au3>
#include <sound.au3>
#include <inet.au3>
#include <array.au3>
#include <string.au3>
#include <math.au3>
#include <Crypt.au3>
; ===============================================================================================================================
; #OPTIONS# =====================================================================================================================
Opt("GuiOnEventMode", 1)
Opt("MouseCoordMode", 0)
OnAutoItExitRegister("CleanOnExit")
_Crypt_Startup()
; ===============================================================================================================================
; #VARIABLES# ===================================================================================================================
Global Const $Width = 300
Global Const $Height = 460
Global Const $JumpSpeed = 0.17
Global Const $JumpHeight = 80 ;Pixel
Global $Zeitschrit = 0.20;Slider Werte
Global Const $gsImagePath = @ScriptDir & "\Bilder\"
Global $GDIP_STATUS = 0
Global $Federz_Height, $Federo_Height, $Doodle_Height, $rotermob, $Protect, $Protect_Width, $Protect_Height, $monsterscore, $yboden1, $Doodle_Sf_Schuss, $createlabel = 1, $Platform_dunkelblau, $Optionscreen1, $Optionscreen2, $mouseout, $activepressed = -1, $setnoplat, $Plat_Width, $Flug21, $Flug22, $Doodle_sf_gesch_Height, $Doodle_sf_Height
Global $Rakete, $Newhighscore, $Monster_Gruen, $Monster_Lila, $setufo, $Yeti, $Flug2, $Flug3, $MoveMobr, $MoveMobl, _
$Gameover, $Scorebackground, $Hut, $Pausebild, $Optionscreen, $Federzu, $Federoffen, $ufo, $sf_schuhe, _
$Trampolin, $Trampolin1, $pause_up, $pause_down, $menu, $play_again, $Pause_eraenzung, $Platform_weis, $Background, $Start, _
$DoodleHutl, $DoodleHutr, $DoodleHutl1, $DoodleHutr1, $Punkteleiste, $Platform_gruen, $Platform_hellblau, $Doodle_Rechts, _
$Doodle_Links, $DoodleRakl, $DoodleRakr, $Doodle_sf_r, $Doodle_sf_l, $Doodle_sf_gesch_l, $Doodle_sf_gesch_r, _
$Platform_grau, $Platform_braun1, $Platform_braun2, $Platform_rot, $Platform_gelb, $Explusion, $imgBeenden, $Platform_braun
Global $gfWeAreActive = False
Global Enum $ST_main_menu = 0, $ST_playing, $ST_paused, $ST_game_over, $ST_enter_score, $ST_scores, $ST_options, $ST_pause_menu
Global $iStatus = $ST_main_menu
Global $braunf[17], $bAngle[17], $weisweg[13], $aPoints[5][2], $gro60[13], $MoveSpeed, $changestate = 0, $mobset, $Strich, $drag, $optionspage = 1, $Striche[5]=[-10,-10,-10,-10,-10], $letzeplatte, $sprungtr, $protected, $protectiontimer, $ptimer, $protection, $setloch, $letdie, $yalt, $dAngle, $loch, $ufoset, $bosmon, $Mobexist, $mBewegX, $mobdead, $coordcheck, $geschossen, $aAktuellerDoodle, $mobwidth, $mobheight, $Doodle_Schuss, $aktuellerMob, $coordold, $Kugel, $coord1, $Flug1, $coord2, $coord3, $Bild, $moveup, _
$schuss[1][4], $moveright, $mobdiff, $mobtimer, $mobtimeron, $change, $MoveMobl, $MoveMobr, $bei90grad[17], $explodiert[13], $soundplaye[13], $gelbweg[13], _
$rotweg[13], $wtrans[13], $gtrans[13], $image1, $bewegh[20], $Platform_braun1, $Platform_braun2, $federpos[20], $ReadN[5], $gruen_n[13][4], $optioncoloron = 0xff7CB639, _
$untereplatte = 1, $optioncoloroff = 0xffABA69F, $hutt = 3, $tnorm, $grav = 9.81, $untersprung = 0, $nAktuellerDoodle, $fSprung = 0, $Angle = 0, $sprung = 0, $sprungkraft = 50, _
$Sprungf = 0, $Sprungnu = 0
Global $Background, $Start, $DoodleHutl, $DoodleHutr, $DoodleHutl1, $DoodleHutr1, $Punkteleiste, $Platform_gruen, $Platform_hellblau, $AktuellerDoodle, $Doodle_sf_gesch_Height, _
$zuletztresetet = 12, $Doodle_Rechts, $Doodle_Links, $Doodle_Height, $Doodle_Width, $Plat_Width, $DoodleRakl, $DoodleRakr, $Doodle_sf_l, $Platform_weis, $Platform_rot, $Platform_gelb, _
$Doodle_sf_r, $Platform_grau, $Doodle_sf_gesch_r, $Doodle_sf_gesch_l, $Doodle_sf_Height
Global $punktelimit = 1000, $abstand = -40, $paused = 0, $die = False, $i = 0, $t = 0, $y = $Height - $Doodle_Height, _
$onplatform = 0, $t1 = 0, $normpos, $huttimer, $ybodenalt, $hutbild = 0, $x25 = $Width / 2 - 64, $y25 = $Height / 2 - 37.5, $NoobyMod = False
Global $plat = 0, $raketeon = 0, $timerrakon = 0, $raketentimer = 0, $move = 0, $score = 0, $scoreplus = 0, $yboden = $Height, _
$Platmovespeed = 0, $platten = 0, $huton = 0, $nAngle = 0, $timeron = 0, $dll = DllOpen("user32.dll"), $Sprungnu = 0, $strichscore = $Height
Global Const $Pi_Div_180 = 4 * ATan(1) / 180
Global Const $PI = 4 * ATan(1)
Global Const $DOODLE_BORDER = 14
Global $bewegrichtung[17] = [Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), _
Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), _
Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1)]
Global $vbewegrichtung[17] = [Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), _
Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), _
Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1)]
For $n = 0 To 19
$bewegh[$n] = 0
Next
$gruen_n[0][0] = 200
$gruen_n[1][0] = 150
Global Const $hScoreKey = _Crypt_DeriveKey("!#43534$%§2t6gb", $CALG_RC4)
; ===============================================================================================================================
; #INI VALUES#========================================================================================================================
Const $MIXERLINE_COMPONENTTYPE_DST_FIRST = 0
Global Const $MIXERLINE_COMPONENTTYPE_DST_SPEAKERS= ($MIXERLINE_COMPONENTTYPE_DST_FIRST + 4)
$datapath = @ScriptDir & "\Scores.ini"
$wintermod = Number(IniRead($datapath, "Optionen", "Wintermode", "0"))
$movement = Number(IniRead($datapath, "Optionen", "movement", "0"))
$soundoff = Number(IniRead($datapath, "Optionen", "soundoff", "0"))
$DirectionalShooting = Number(IniRead($datapath, "Optionen", "directionalShooting", "0"))
$mousesensible = Number(IniRead($datapath, "Optionen", "sensible", "2"))
If $mousesensible > 4 or $mousesensible < 1 Then $mousesensible = 2
$speed = Number(IniRead($datapath, "Optionen", "speed", "6"))
If $speed > 12 or $speed < 0 Then $speed = 6
$Zeitschrit = $speed/100 +0.2
$ScoreHash = Binary(IniRead($datapath, "Optionen", "ScoreHash", ''))
Global $aScores = IniReadSection($datapath, "Scores")
$aScores=_DecryptScores($aScores, $ScoreHash)
For $n = 0 to 4
If $aScores[$n+1][0] < $Height Then
$Striche[$n] = $Height - $aScores[$n][0]
EndIf
Next
; ===============================================================================================================================
; #SOUND#========================================================================================================================
Global $sPropeller = _SoundOpen(@ScriptDir & "\Sounds\propeller.wav")
Global $sFall = _SoundOpen(@ScriptDir & "\Sounds\falldown.wav")
Global $sJump = _SoundOpen(@ScriptDir & "\Sounds\Jump.wav")
Global $sRakete = _SoundOpen(@ScriptDir & "\Sounds\Jetpack.wav")
Global $sSprung = _SoundOpen(@ScriptDir & "\Sounds\Feder.wav")
Global $sSf = _SoundOpen(@ScriptDir & "\Sounds\springshoes.wav")
Global $sTrampolin = _SoundOpen(@ScriptDir & "\Sounds\trampoline.wav")
Global $sExpl = _SoundOpen(@ScriptDir & "\Sounds\explodingplatform2.wav")
Global $sBreak = _SoundOpen(@ScriptDir & "\Sounds\lomise.wav")
Global $sJumpOnMon = _SoundOpen(@ScriptDir & "\Sounds\jumponmonster.wav")
; ===============================================================================================================================
; #GUI, Events#==================================================================================================================
$GUI1 = GUICreate("Doodle Jump", $Width, $Height, -1, -1, BitOR($WS_POPUP, $WS_SYSMENU, $WS_MINIMIZEBOX, $WS_BORDER))
GUISetOnEvent($GUI_EVENT_CLOSE, "ende")
GUIRegisterMsg($WM_ACTIVATEAPP, "MY_WM_ACTIVATEAPP")
GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
Global $PAUSEDUMMY = GUICtrlCreateDummy()
GUICtrlSetOnEvent($PAUSEDUMMY, "_pause")
Global $aHotkeys[3][2] = [["{ESC}", $PAUSEDUMMY],["{PAUSE}", $PAUSEDUMMY], ["^p", $PAUSEDUMMY]]
GUISetAccelerators($aHotkeys)
$label = GUICtrlCreateLabel("", 0, 0, 276, 34, Default, $GUI_WS_EX_PARENTDRAG )
GUICtrlSetBkColor($label, $GUI_BKCOLOR_TRANSPARENT )
; ===============================================================================================================================
; #GDI+#=========================================================================================================================
_GDIPlus_Startup()
$Graphic = _GDIPlus_GraphicsCreateFromHWND($GUI1)
$Bitmap = _GDIPlus_BitmapCreateFromGraphics($Width, $Height, $Graphic)
$Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
$PauseBitmap = _GDIPlus_BitmapCreateFromGraphics($Width, $Height, $Graphic)
$PauseBuffer = _GDIPlus_ImageGetGraphicsContext($PauseBitmap)
DllCall($ghGDIPdll, "int", "GdipBitmapSetResolution", "handle", $Bitmap, "float", 96, "float", 96)
DllCall($ghGDIPdll, "int", "GdipBitmapSetResolution", "handle", $PauseBitmap, "float", 96, "float", 96)
$speedslider = _GDIPlus_CreateSlider($Buffer, 50, 143, 100, $speed, 0xff7CB639, 0xffF3EAE3, 10)
$sensible = _GDIPlus_CreateSlider($Buffer, 50, 200, 100, $mousesensible, 0xff7CB639, 0xffF3EAE3, 4)
;============================= für Optionstext
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Comic Sans MS")
$hFont = _GDIPlus_FontCreate($hFamily, 11, 1)
$tLayout1 = _GDIPlus_RectFCreate(44, 124, 0, 0)
$tLayout2 = _GDIPlus_RectFCreate(115, 124, 0, 0)
$tLayout3 = _GDIPlus_RectFCreate(49, 242, 0, 0)
$tLayout4 = _GDIPlus_RectFCreate(120, 242, 0, 0)
$tLayout5 = _GDIPlus_RectFCreate(73, 310, 0, 0)
$tLayout6 = _GDIPlus_RectFCreate(160, 310, 0, 0)
$aInfo1 = _GDIPlus_GraphicsMeasureString($Buffer, "mouse", $hFont, $tLayout1, $hFormat)
$aInfo2 = _GDIPlus_GraphicsMeasureString($Buffer, "arrow keys", $hFont, $tLayout2, $hFormat)
$aInfo3 = _GDIPlus_GraphicsMeasureString($Buffer, "on", $hFont, $tLayout3, $hFormat)
$aInfo4 = _GDIPlus_GraphicsMeasureString($Buffer, "off", $hFont, $tLayout4, $hFormat)
$aInfo5 = _GDIPlus_GraphicsMeasureString($Buffer, "on", $hFont, $tLayout5, $hFormat)
$aInfo6 = _GDIPlus_GraphicsMeasureString($Buffer, "off", $hFont, $tLayout6, $hFormat)
;============================= für Optionstextfarbe
$hBrushOptOn = _GDIPlus_BrushCreateSolid($optioncoloron)
$hBrushOptOff = _GDIPlus_BrushCreateSolid($optioncoloroff)
$hBrushDark = _GDIPlus_BrushCreateSolid(0xBB000000)
$hBrushSchein = _GDIPlus_BrushCreateSolid(0x99e9dbc6)
$hBrushSchein1 = _GDIPlus_BrushCreateSolid(0x55eec17d)
If $wintermod = 1 Then
_LoadSkin("winter")
Else
_LoadSkin('')
EndIf
$AktuellerDoodle = $Doodle_Rechts
; ===============================================================================================================================
If $gruen_n[0][0] < 60 + $Doodle_Width And $gruen_n[0][0] + $Plat_Width > 60 + $Doodle_Width Then
$x = $Width - 60
Else
$x = 60
EndIf
GUISetState(@SW_SHOW)
While 1
Sleep(20)
If Not $gfWeAreActive Then ContinueLoop
If $iStatus <> $ST_options Then $changestate = 1
Switch $iStatus
Case $ST_playing
$y25 = $Height / 2 - 37.5
$y26 = $y25 + 36
$iStatus = _DrawGame_CheckInput()
Case $ST_paused
$iStatus = _DrawPause_CheckInput()
Case $ST_pause_menu
$iStatus = _DrawPauseMenu_CheckInput()
Case $ST_game_over
$iStatus = _DrawGameOver_CheckInput()
Case $ST_enter_score
$iStatus = _DrawEnterScore_CheckInput()
Case $ST_scores
$iStatus = _DrawScores_CheckInput()
Case $ST_main_menu
$iStatus = _DrawMain_CheckInput()
Case $ST_options
If $changestate Then $optionspage = 1
$iStatus = _DrawOptions_CheckInput()
EndSwitch
WEnd
Func _DrawMain_CheckInput()
$y1 = 400 - $Doodle_Height - Round(Abs(Sin($i)) * $JumpHeight)
$x1 = 50 + $Plat_Width / 2 - $Doodle_Width / 2
$i += $JumpSpeed
If $i > $PI Then $i = 0
;~ _WinAPI_RedrawWindow($GUI1, "", "", $RDW_UPDATENOW + $RDW_FRAME)
_GDIPlus_GraphicsDrawImage($Buffer, $Start, 0, 0)
_GDIPlus_GraphicsDrawImage($Buffer, $Doodle_Rechts, $x1, $y1)
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_gruen, 50, 400)
_GDIPlus_GraphicsDrawImage($Buffer, $imgBeenden, $Width - 20, 4)
;~ _GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $Width, $Height)
_WinAPI_RedrawWindow($GUI1, 0, 0, $RDW_INTERNALPAINT)
Local $aMouseInfo = GUIGetCursorInfo($GUI1)
If @error Then
_MouseDownEvent(0)
Return $ST_main_menu
ElseIf _MouseDownEvent($aMouseInfo[2]) Then
;~ MsgBox(0,$aMouseInfo[0],$aMouseInfo[1])
Select
Case $aMouseInfo[0] > 153 And $aMouseInfo[0] < 266 And $aMouseInfo[1] > 295 And $aMouseInfo[1] < 335
Return $ST_options
Case $aMouseInfo[0] > 48 And $aMouseInfo[0] < 151 And $aMouseInfo[1] > 122 And $aMouseInfo[1] < 159
;~ MsgBox(0, '', "Spielen")
_NewGame()
Return $ST_playing
Case $aMouseInfo[0] > 77 And $aMouseInfo[0] < 183 And $aMouseInfo[1] > 179 And $aMouseInfo[1] < 217
Return $ST_scores
Case $aMouseInfo[0] > 186 And $aMouseInfo[0] < 214 And $aMouseInfo[1] > 423 And $aMouseInfo[1] < 444 And $wintermod
$wintermod = 0
_LoadSkin()
Return $ST_main_menu
Case $aMouseInfo[0] > 151 And $aMouseInfo[0] < 182 And $aMouseInfo[1] > 423 And $aMouseInfo[1] < 443 And Not $wintermod
$wintermod = 1
_LoadSkin('winter')
Return $ST_main_menu
Case $aMouseInfo[0] > 280 And $aMouseInfo[0] < 296 And $aMouseInfo[1] > 4 And $aMouseInfo[1] < 20
ende()
Case $aMouseInfo[0] > 1 And $aMouseInfo[1] > 431 and $aMouseInfo[0] < 36 and $aMouseInfo[1] < 451 and not $NoobyMod
_LoadSkin("nooby")
Case $aMouseInfo[0] > 1 And $aMouseInfo[1] > 431 and $aMouseInfo[0] < 36 and $aMouseInfo[1] < 451 and $NoobyMod
$NoobyMod = False
_LoadSkin('')
Case Else
EndSelect
EndIf
Return $ST_main_menu
EndFunc ;==>_DrawMain_CheckInput
Func _DrawOptions_CheckInput()
$changestate = 0
$y = 413 - $Doodle_Height - Round(Abs(Sin($i)) * $JumpHeight)
$x1 = 80
$i += $JumpSpeed
If $i > $PI Then $i = 0
If $optionspage = 1 Then
_GDIPlus_GraphicsDrawImageRect($Buffer, $Optionscreen1, 0, 0, $Width, $Height)
If $movement Then
_GDIPlus_GraphicsDrawStringEx($Buffer, "mouse", $hFont, $aInfo1[0], $hFormat, $hBrushOptOff)
_GDIPlus_GraphicsDrawStringEx($Buffer, "arrow keys", $hFont, $aInfo2[0], $hFormat, $hBrushOptOn)
Else
_GDIPlus_GraphicsDrawStringEx($Buffer, "mouse", $hFont, $aInfo1[0], $hFormat, $hBrushOptOn)
_GDIPlus_GraphicsDrawStringEx($Buffer, "arrow keys", $hFont, $aInfo2[0], $hFormat, $hBrushOptOff)
EndIf
If $soundoff Then
_GDIPlus_GraphicsDrawStringEx($Buffer, "on", $hFont, $aInfo3[0], $hFormat, $hBrushOptOff)
_GDIPlus_GraphicsDrawStringEx($Buffer, "off", $hFont, $aInfo4[0], $hFormat, $hBrushOptOn)
Else
_GDIPlus_GraphicsDrawStringEx($Buffer, "on", $hFont, $aInfo3[0], $hFormat, $hBrushOptOn)
_GDIPlus_GraphicsDrawStringEx($Buffer, "off", $hFont, $aInfo4[0], $hFormat, $hBrushOptOff)
EndIf
If $DirectionalShooting Then
_GDIPlus_GraphicsDrawStringEx($Buffer, "on", $hFont, $aInfo5[0], $hFormat, $hBrushOptOn)
_GDIPlus_GraphicsDrawStringEx($Buffer, "off", $hFont, $aInfo6[0], $hFormat, $hBrushOptOff)
Else
_GDIPlus_GraphicsDrawStringEx($Buffer, "on", $hFont, $aInfo5[0], $hFormat, $hBrushOptOff)
_GDIPlus_GraphicsDrawStringEx($Buffer, "off", $hFont, $aInfo6[0], $hFormat, $hBrushOptOn)
EndIf
Else
_GDIPlus_GraphicsDrawImageRect($Buffer, $Optionscreen2, 0, 0, $Width, $Height)
_GDIPlus_CheckSlider($sensible)
_GDIPlus_CheckSlider($speedslider)
_GDIPlus_GraphicsDrawString($Buffer, "Credits an Ubuntu, yxyx, Sprenger120, "&@CRLF&"name22 und progandy von AutoIt.de", 40, 250)
EndIf
$speed = _GDIPlus_ReadSlider($speedslider)
$Zeitschrit = $speed/100 +0.2
$mousesensible = _GDIPlus_ReadSlider($sensible)
_GDIPlus_GraphicsDrawImage($Buffer, $Doodle_Rechts, $x1, $y)
;~ _GDIPlus_GraphicsDrawImage($Buffer, $Platform_gruen, 50, 400)
_GDIPlus_GraphicsDrawImage($Buffer, $imgBeenden, $Width - 20, 4)
;~ _GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $Width, $Height)
_WinAPI_RedrawWindow($GUI1, 0, 0, $RDW_INTERNALPAINT)
Local $aMouseInfo = GUIGetCursorInfo($GUI1)
If @error Then
_MouseDownEvent(0)
Return $ST_options
ElseIf _MouseDownEvent($aMouseInfo[2]) Then
Select
Case $aMouseInfo[0] > 169 And $aMouseInfo[0] < 273 And $aMouseInfo[1] > 350 And $aMouseInfo[1] < 389
IniWrite($datapath, "Optionen", "movement", $movement)
IniWrite($datapath, "Optionen", "soundoff", $soundoff)
IniWrite($datapath, "Optionen", "directionalShooting", $DirectionalShooting)
IniWrite($datapath, "Optionen", "sensible", $mousesensible)
IniWrite($datapath, "Optionen", "speed", $speed)
Return $ST_main_menu
Case $aMouseInfo[0] > 45 And $aMouseInfo[0] < 90 And $aMouseInfo[1] > 133 And $aMouseInfo[1] < 141 and $optionspage = 1
$movement = 0
Case $aMouseInfo[0] > 116 And $aMouseInfo[0] < 196 And $aMouseInfo[1] > 133 And $aMouseInfo[1] < 141 and $optionspage = 1
$movement = 1
Case $aMouseInfo[0] > 51 And $aMouseInfo[0] < 69 And $aMouseInfo[1] > 251 And $aMouseInfo[1] < 260 and $optionspage = 1
$soundoff = 0
Case $aMouseInfo[0] > 123 And $aMouseInfo[0] < 147 And $aMouseInfo[1] > 251 And $aMouseInfo[1] < 260 and $optionspage = 1
$soundoff = 1
Case $aMouseInfo[0] > 76 And $aMouseInfo[0] < 93 And $aMouseInfo[1] > 319 And $aMouseInfo[1] < 329 and $optionspage = 1
$DirectionalShooting = 1
Case $aMouseInfo[0] > 163 And $aMouseInfo[0] < 186 And $aMouseInfo[1] > 315 And $aMouseInfo[1] < 329 and $optionspage = 1
$DirectionalShooting = 0
Case $aMouseInfo[0] > 280 And $aMouseInfo[0] < 296 And $aMouseInfo[1] > 4 And $aMouseInfo[1] < 20
ende()
Case $aMouseInfo[0] > 145 And $aMouseInfo[0] < 217 And $aMouseInfo[1] > 414 And $aMouseInfo[1] < 447 and $optionspage = 1
$optionspage = 2
Case $aMouseInfo[0] > 85 And $aMouseInfo[0] < 144 And $aMouseInfo[1] > 414 And $aMouseInfo[1] < 447 and $optionspage = 2
$optionspage = 1
EndSelect
EndIf
Return $ST_options
EndFunc ;==>_DrawOptions_CheckInput
Func _DrawScores_CheckInput()
$y = 400 - $Doodle_Height - Round(Abs(Sin($i)) * $JumpHeight)
$x1 = 50 + $Plat_Width / 2 - $Doodle_Width / 2
$i += $JumpSpeed
If $i > $PI Then $i = 0
_GDIPlus_GraphicsDrawImage($Buffer, $Scorebackground, 0, 0)
For $n = 1 To 5
If $aScores[$n][0] > 0 Then
_GDIPlus_GraphicsDrawString($Buffer, $aScores[$n][0], $Width - 90, 188 + ($n - 1) * 23, "Comic Sans MS", 12)
_GDIPlus_GraphicsDrawString($Buffer, " "&$aScores[$n][1], $Width - 250, 188 + ($n - 1) * 23, "Comic Sans MS", 12)
EndIf
Next
_GDIPlus_GraphicsDrawImage($Buffer, $Doodle_Rechts, $x1, $y)
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_gruen, 50, 400)
_GDIPlus_GraphicsDrawImage($Buffer, $imgBeenden, $Width - 20, 4)
;~ _GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $Width, $Height)
_WinAPI_RedrawWindow($GUI1, 0, 0, $RDW_INTERNALPAINT)
Local $aMouseInfo = GUIGetCursorInfo($GUI1)
If @error Then
_MouseDownEvent(0)
Return $ST_scores
ElseIf _MouseDownEvent($aMouseInfo[2]) Then
If $aMouseInfo[0] > 161 And $aMouseInfo[0] < 267 And $aMouseInfo[1] > 380 And $aMouseInfo[1] < 421 Then
Return $ST_main_menu
ElseIf $aMouseInfo[0] > 280 And $aMouseInfo[0] < 296 And $aMouseInfo[1] > 4 And $aMouseInfo[1] < 20 Then
ende()
EndIf
EndIf
Return $ST_scores
EndFunc ;==>_DrawScores_CheckInput
Func _DrawPause_CheckInput()
_GDIPlus_GraphicsDrawImage($PauseBuffer, $Bitmap, 0, 0)
_GDIPlus_GraphicsFillRect($PauseBuffer, 0, 0, $Width, $Height, $hBrushDark)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $Pausebild, $x25, $Height / 2 - 37.5)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $imgBeenden, $Width - 20, 4)
_GDIPlus_GraphicsDrawImageRect($Graphic, $PauseBitmap, 0, 0, $Width, $Height)
Local $aMouseInfo = GUIGetCursorInfo($GUI1)
If @error Then
_MouseDownEvent(0)
Return $ST_paused
ElseIf _MouseDownEvent($aMouseInfo[2]) Then
If $aMouseInfo[0] > 280 And $aMouseInfo[0] < 296 And $aMouseInfo[1] > 4 And $aMouseInfo[1] < 20 Then
ende()
Else
For $i = 0 To 84 Step 2
_GDIPlus_GraphicsDrawImageRect($PauseBuffer, $Bitmap, 0, 0, $Width, $Height)
_GDIPlus_GraphicsFillRect($PauseBuffer, 0, 0, $Width, $Height, $hBrushDark)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $pause_up, $x25, $y25 - $i)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $pause_down, $x25, $y26 + $i)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $imgBeenden, $Width - 20, 4)
_GDIPlus_GraphicsDrawImageRect($Graphic, $PauseBitmap, 0, 0, $Width, $Height)
Sleep(0)
Next
_GDIPlus_GraphicsDrawImage($PauseBuffer, $Pause_eraenzung, $x25, $y25 - $i + 22)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $play_again, $x25 + 10, 170)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $menu, $x25 + 10, 250)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $imgBeenden, $Width - 20, 4)
_GDIPlus_GraphicsDrawImageRect($Graphic, $PauseBitmap, 0, 0, $Width, $Height)
Return $ST_pause_menu
EndIf
EndIf
If Not $paused Then Return $ST_playing
Return $ST_paused
EndFunc ;==>_DrawPause_CheckInput
Func _DrawPauseMenu_CheckInput()
Local $i = 84
_GDIPlus_GraphicsDrawImageRect($PauseBuffer, $Bitmap, 0, 0, $Width, $Height)
_GDIPlus_GraphicsFillRect($PauseBuffer, 0, 0, $Width, $Height, $hBrushDark)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $pause_up, $x25, $y25 - $i)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $pause_down, $x25, $y26 + $i)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $Pause_eraenzung, $x25, $y25 - $i + 22)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $play_again, $x25 + 10, 170)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $menu, $x25 + 10, 250)
_GDIPlus_GraphicsDrawImage($PauseBuffer, $imgBeenden, $Width - 20, 4)
_GDIPlus_GraphicsDrawImageRect($Graphic, $PauseBitmap, 0, 0, $Width, $Height)
If Not $paused Then Return $ST_playing
Local $aMouseInfo = GUIGetCursorInfo($GUI1)
If @error Then
_MouseDownEvent(0)
Return $ST_pause_menu
ElseIf _MouseDownEvent($aMouseInfo[2]) Then
Select
Case $aMouseInfo[0] > 99 And $aMouseInfo[0] < 203 And $aMouseInfo[1] > 172 And $aMouseInfo[1] < 208
$paused = 0
_NewGame()
Return $ST_playing
Case $aMouseInfo[0] > 97 And $aMouseInfo[0] < 202 And $aMouseInfo[1] > 252 And $aMouseInfo[1] < 288
$paused = 0
Return $ST_main_menu
Case $aMouseInfo[0] > 280 And $aMouseInfo[0] < 296 And $aMouseInfo[1] > 4 And $aMouseInfo[1] < 20
ende()
;~ Case $aMouseInfo[0] > 0 And $aMouseInfo[0] < 276 And $aMouseInfo[1] > 0 And $aMouseInfo[1] < 34
;~ Opt("Mousecoordmode", 1)
;~ Do
;~ $aMouseInfo = GUIGetCursorInfo($GUI1)
;~ WinMove($GUI1, "", $aMouseInfo[0]-($Width/2), $aMouseInfo[1]-17, $Width, $Height, 1)
;~ Until not _IsPressed(01, $dll)
;~ Opt("Mousecoordmode", 0)
EndSelect
EndIf
;~ If (_IsPressed(01, $dll) and ) Then
;~ $mpos = MouseGetPos()
;~ $drag = 1
;~ EndIf
Return $ST_pause_menu
EndFunc ;==>_DrawPauseMenu_CheckInput
Func _DrawGameOver_CheckInput()
If $scoreplus > $aScores[5][0] Then Return $ST_enter_score
_GDIPlus_GraphicsDrawImage($Buffer, $Gameover, 0, 0)
_GDIPlus_GraphicsDrawString($Buffer, "Dein Score: " & $scoreplus, 24, 185, "Comic Sans MS", 12)
_GDIPlus_GraphicsDrawImage($Buffer, $imgBeenden, $Width - 20, 4)
;~ _GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $Width, $Height)
_WinAPI_RedrawWindow($GUI1, 0, 0, $RDW_INTERNALPAINT)
Local $aMouseInfo = GUIGetCursorInfo($GUI1)
If @error Then
_MouseDownEvent(0)
Return $ST_game_over
ElseIf _MouseDownEvent($aMouseInfo[2]) Then
Select
Case $aMouseInfo[0] > 91 And $aMouseInfo[0] < 195 And $aMouseInfo[1] > 230 And $aMouseInfo[1] < 257
_NewGame()
Return $ST_playing
Case $aMouseInfo[0] > 152 And $aMouseInfo[0] < 258 And $aMouseInfo[1] > 293 And $aMouseInfo[1] < 329
Return $ST_main_menu
Case $aMouseInfo[0] > 280 And $aMouseInfo[0] < 296 And $aMouseInfo[1] > 4 And $aMouseInfo[1] < 20
ende()
EndSelect
EndIf
Return $ST_game_over
EndFunc ;==>_DrawGameOver_CheckInput
Func _DrawEnterScore_CheckInput()
Local Static $fInitDone = False, $Input, $ReadName
If Not $fInitDone Then
$ReadName = StringLeft(IniRead($datapath, "Optionen", "LastPlayer", "Spieler"), 9)
$Input = GUICtrlCreateInput($ReadName, 79, 227)
GUICtrlSetLimit($Input, 9)
$fInitDone = True
EndIf
_GDIPlus_GraphicsClear($Buffer, 0x00000000)
_GDIPlus_GraphicsDrawImage($Buffer, $Newhighscore, 0, 0)
_GDIPlus_GraphicsDrawString($Buffer, "Dein Score: " & $scoreplus, 24, 205, "Comic Sans MS", 12)
_GDIPlus_GraphicsDrawString($Buffer, "Name: ", 24, 225, "Comic Sans MS", 12)
;~ _GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $Width, $Height)
_WinAPI_RedrawWindow($GUI1, 0, 0, $RDW_INTERNALPAINT)
Local $aMouseInfo = GUIGetCursorInfo($GUI1)
If @error Then
_MouseDownEvent(0)
Return $ST_game_over
ElseIf _MouseDownEvent($aMouseInfo[2]) Then
If $aMouseInfo[0] > 96 And $aMouseInfo[0] < 205 And $aMouseInfo[1] > 261 And $aMouseInfo[1] < 301 Then
$Name = StringLeft(StringStripWS(GUICtrlRead($Input), 7), 9)
If $Name = "" Then $Name = "Spieler"
$aScores[5][0] = $scoreplus
$aScores[5][1] = $Name
_ArraySort($aScores, 1, 1, 0, 0)
_WriteScores($aScores)
IniWrite($datapath, "Optionen", "LastPlayer", $Name)
$fInitDone = False
GUICtrlDelete($Input)
_NewGame()
Return $ST_playing
ElseIf $aMouseInfo[0] > 149 And $aMouseInfo[0] < 259 And $aMouseInfo[1] > 323 And $aMouseInfo[1] < 358 Then
$Name = StringLeft(StringStripWS(GUICtrlRead($Input), 7), 9)
If $Name = "" Then $Name = "Spieler"
$aScores[5][0] = $scoreplus
$aScores[5][1] = $Name
_ArraySort($aScores, 1, 1, 0, 0)
_WriteScores($aScores)
IniWrite($datapath, "Optionen", "LastPlayer", $Name)
$fInitDone = False
GUICtrlDelete($Input)
Return $ST_main_menu
EndIf
EndIf
Return $ST_enter_score
EndFunc ;==>_DrawEnterScore_CheckInput
Func _WriteScores($bScores)
Local $hash = Binary('')
For $i = 1 To UBound($aScores) - 1
$bScores[$i][0] = _Crypt_EncryptData(StringToBinary($aScores[$i][0], 4), $hScoreKey, $CALG_USERKEY)
$bScores[$i][1] = _Crypt_EncryptData(StringToBinary(StringLeft($aScores[$i][1], 9), 4), $hScoreKey, $CALG_USERKEY)
$hash &= $bScores[$i][0] & $bScores[$i][1]
Next
IniWriteSection($datapath, "Scores", $bScores)
IniWrite($datapath, "Optionen", "ScoreHash", _Crypt_HashData($hash, $CALG_SHA1))
EndFunc ;==>_WriteScores
Func _DecryptScores(ByRef $bScores, Const ByRef $ScoreHash)
; Author: ProgAndy
If Not IsArray($bScores) Then Dim $bScores[6][2] = [[0]]
If UBound($bScores) <> 6 Then ReDim $bScores[6][2]
Local $hash = Binary('')
For $i = 1 To $bScores[0][0]
$bScores[$i][0] = Binary($bScores[$i][0])
$bScores[$i][1] = Binary($bScores[$i][1])
$hash &= $bScores[$i][0] & $bScores[$i][1]
;~ $aScores[$i][0] = Number($aScores[$i][0])
$bScores[$i][0] = Number(BinaryToString(_Crypt_DecryptData($bScores[$i][0], $hScoreKey, $CALG_USERKEY), 4))
$bScores[$i][1] = StringLeft(BinaryToString(_Crypt_DecryptData($bScores[$i][1], $hScoreKey, $CALG_USERKEY), 4), 9)
Next
_ArraySort($bScores, 1, 1, 0, 0)
Return $bScores
EndFunc
Func _DrawGame_CheckInput()
If $paused Then Return $ST_paused
Local $AlterDoodle = $AktuellerDoodle
If $movement = 0 Then
$aktualpos = MouseGetPos()
If $aktualpos[0] < $Width / 2 Then
$MoveSpeed = ($aktualpos[0] - $Width / 2) / (1+Abs(4-$mousesensible))
Select
Case $huton = 0 And $raketeon = 0 And $Sprungf = 0
$AktuellerDoodle = $Doodle_Links
Case $raketeon = 1
$AktuellerDoodle = $DoodleRakl
Case $huton = 1
$AktuellerDoodle = $DoodleHutl
Case $Sprungf = 1
$AktuellerDoodle = $Doodle_sf_l
EndSelect
EndIf
If $aktualpos[0] > 0 and $aktualpos[0] < $Width And $aktualpos[1] > 0 And $aktualpos[1] < $Height Then
If $aktualpos[0] > $Width / 2 Then
$MoveSpeed = ($aktualpos[0] - $Width / 2) / (1+Abs(4-$mousesensible))
Select
Case $huton = 0 And $raketeon = 0 And $Sprungf = 0
$AktuellerDoodle = $Doodle_Rechts
Case $raketeon = 1
$AktuellerDoodle = $DoodleRakr
Case $huton = 1
$AktuellerDoodle = $DoodleHutr
Case $Sprungf = 1
$AktuellerDoodle = $Doodle_sf_r
EndSelect
EndIf
EndIf
If _IsPressed("02", $dll) Then
$MoveSpeed = 0
EndIf
Else
If _IsPressed("25", $dll) Then
$MoveSpeed -= (1+$mousesensible)
Select
Case $huton = 0 And $raketeon = 0 And $Sprungf = 0
$AktuellerDoodle = $Doodle_Links
Case $raketeon = 1
$AktuellerDoodle = $DoodleRakl
Case $huton = 1
$AktuellerDoodle = $DoodleHutl
Case $Sprungf = 1
$AktuellerDoodle = $Doodle_sf_l
EndSelect
ElseIf _IsPressed("27", $dll) Then
$MoveSpeed += (1+$mousesensible)
Select
Case $huton = 0 And $raketeon = 0 And $Sprungf = 0
$AktuellerDoodle = $Doodle_Rechts
Case $raketeon = 1
$AktuellerDoodle = $DoodleRakr
Case $huton = 1
$AktuellerDoodle = $DoodleHutr
Case $Sprungf = 1
$AktuellerDoodle = $Doodle_sf_r
EndSelect
EndIf
EndIf
Select
Case $x + $Doodle_Width - $DOODLE_BORDER < 0
$x = $Width - $DOODLE_BORDER
Case $x + $DOODLE_BORDER > $Width
$x = -$Doodle_Width + $DOODLE_BORDER
Case $MoveSpeed > 30
$MoveSpeed = 30
Case $MoveSpeed < -30
$MoveSpeed = -30
EndSelect
$i += $JumpSpeed
If Not ($AlterDoodle = $AktuellerDoodle) Then
Local $AlteDoodle_Height = $Doodle_Height
$Doodle_Height = _GDIPlus_ImageGetHeight($AktuellerDoodle)
$y -= ($Doodle_Height - $AlteDoodle_Height)
EndIf
$platnotactive = 0
$platactive = 0
$yalt = $y
$platold = $plat
If $huton = 0 And $raketeon = 0 and not $letdie Then
$t += $Zeitschrit
;~ MsgBox(0, "", $wintermod)
;~ If $wintermod = 1 Then
;~ If $yboden = $y + 10 Then
;~ $y = $yboden - $Doodle_Height - Round(Abs($sprungkraft * $t - ($grav / 2) * $t ^ 2))
;~ Else
;~ $y = $yboden - $Doodle_Height - Round($sprungkraft * $t - ($grav / 2) * $t ^ 2)
;~ EndIf
;~ Else
If $yboden = $y + 30 Then
$y = $yboden - $Doodle_Height - 10 - Round(Abs($sprungkraft * $t - ($grav / 2) * $t ^ 2))
Else
$y = $yboden - $Doodle_Height - 10 - Round($sprungkraft * $t - ($grav / 2) * $t ^ 2)
EndIf
;~ EndIf
If $sprungkraft = 50 Then
$yboden1 = $y + $Doodle_Height + 10 + Round(50 * $t - ($grav / 2) * $t ^ 2)
Else
$yboden1 = $y + $Doodle_Height + 10 + Round($sprungkraft*0.8 * $t - ($grav / 2) * $t ^ 2)
EndIf
;~ If --($Height-$yboden) >= 0 Then
;~ $Platmovespeed = ((0.5*$sprungkraft/$grav)+$Height/2)/100
$Platmovespeed = ($Height -50 - $yboden1)/20
If $Platmovespeed <= 0 Then $Platmovespeed = 0
If $yboden <> $Height Then $move = 1
;~ If $Sprungf And $sprung Then
;~ $Platmovespeed = 7
;~ ElseIf $Sprungf Then
;~ $Platmovespeed += 3
;~ ElseIf $sprung = 1 Then
;~ $Platmovespeed += 5
;~ Elseif $yboden > $Height -50 Then
;~ $Platmovespeed = 0
;~ EndIf
If $untersprung = 1 Then
$Platmovespeed += 10
EndIf
If $y < 0 Then
$Platmovespeed = 15
EndIf
$ybodenalt = $yboden
;~ Select
;~ Case $y < 0
;~ $Platmovespeed = 14
;~ Case $y < 220 And $y > 180
;~ $move = 1
;~ $Platmovespeed = 1
;~ Case $y < 180
;~ $Platmovespeed = 4
;~ Case $y > 180
;~ $Platmovespeed = 0
;~ Case $y >= 220
;~ $move = 0
;~ $Platmovespeed = 0
;~ EndSelect
;~ EndIf
EndIf
;---------------------------------------------------------------------Monster--------------------------------------------------------
If $score > $monsterscore Then
Switch $Mobexist
Case 1
If $coordcheck = False Then
$coordold = $coord1
$coordcheck = True
EndIf
If $coord1 = $coordold or $coord1 = $coordold + 6 Then
$moveright *= -1
EndIf
$coord1 += $moveright
Mobcheck()
Case 2
If $coordcheck = False Then
$coordold = $coord1
$coordcheck = True
EndIf
If $coord1 = $coordold or $coord1 = $coordold + 6 Then
$moveright = $moveright * -1
EndIf
$coord1 += $moveright
Mobcheck()
Case 3
If $mobset = 0 Then
If $coordcheck = False Then
$coord3 = $coord2+33
$coordcheck = True
EndIf
Mobcheck()
EndIf
Case 4
If $coordcheck = False Then
$coordold = $coord2
$coordcheck = True
EndIf
If $coord2 = $coordold or $coord2 = $coordold - 6 Then
$moveright = $moveright *-1
EndIf
$coord2 -= 2
If $mobtimeron = False Then
$mobtimeron = True
$mobtimer = TimerInit()
EndIf
$mobdiff = TimerDiff($mobtimer)
If $mobdiff >= $change Then
$change += 150
$aktuellerMob = Eval("Flug" & $Bild)
;MsgBox(0,"",$aktuellerMob)
$Bild += 1
If $Bild > 2 Then
$Bild = 1
EndIf
EndIf
If $coord2 < -100 Then
$Mobexist = 0
EndIf
Mobcheck()
Case 5
;~ If $coord1 > 230 or $coord1 < 39 Then
;~ If $coord1 < 39 Then
;~ $coord1 = 40
;~ EndIf
;~ $moveright = $moveright *-1
;~ EndIf
If $coord1 > 261-39 Then $moveright = -3
If $coord1 < 39 Then $moveright = 3
$coord1 += $moveright
If $moveright < 0 Then
$aktuellerMob = $MoveMobl
Else
$aktuellerMob = $MoveMobr
EndIf
If $coordcheck = False Then
$coordold = $coord2
$choordcheck = True
EndIf
$coordold += $Platmovespeed
If $coord2 > $coordold +5 or $coord2 < $coordold Then
$moveup = $moveup *-1
EndIf
$coord2 += $moveup
Mobcheck()
Case 6
If $ufoset = 0 Then
If $coordcheck = False Then
$coordold = $coord1
$coordcheck = True
EndIf
If $coord1 <= $coordold or $coord1 >= $coordold + 5 Then
$moveright *= -1
EndIf
$coord1 += $moveright
Mobcheck(96)
EndIf
Case 7
If $coordcheck = False Then
$coordold = $coord1
$coordcheck = True
EndIf
If $coord1 = $coordold or $coord1 > $coordold + $Width/3 Then
$moveright *= -1
EndIf
$coord1 += $moveright
Mobcheck()
Case -1
If $setloch = 0 Then
If not $protected And(($coord1 <= $x + $Doodle_Width - $DOODLE_BORDER And $coord1 + $mobwidth >= $x + $Doodle_Width) or ($coord1 <= $x And $coord1 + $mobwidth >= $x) or ($coord1 >= $x And $coord1 + $mobwidth <= $x + $Doodle_Width)) And (($y <= $coord2 + $mobheight And $y + $Doodle_Height >= $coord2 + $mobheight) or ($y <= $coord2 And $y + $Doodle_Height >= $coord2 + $mobheight)) Then
$letdie = 1
EndIf
EndIf
Case 8
If $coordcheck = False Then
$coordold = $coord2
$coordcheck = True
EndIf
If $coord1 <= 10 or $coord1 >= $Width-10-$mobwidth Then
$moveright = $moveright *-1
EndIf
$coord2 -= 2
$coord1 += $moveright
If $mobtimeron = False Then
$mobtimeron = True
$mobtimer = TimerInit()
EndIf
$mobdiff = TimerDiff($mobtimer)
If $mobdiff >= $change Then
$change += 150
$aktuellerMob = Eval("Flug2" & $Bild)
;MsgBox(0,"",$aktuellerMob)
$Bild += 1
If $Bild > 2 Then
$Bild = 1
EndIf
EndIf
If $coord2 < -150 Then
$Mobexist = 0
EndIf
Mobcheck()
Case 0 and $raketeon = 0 and $huton = 0
CreateMob()
EndSwitch
$coord2 += $Platmovespeed
$coord3 += $Platmovespeed
If $coord2 > 460 Then
$Mobexist = 0
EndIf
EndIf
;-----------------------------------------------------------------Schuss--------------------------------------------------------------------------
If $huton = 0 and $raketeon = 0 Then
Local $aMouseInfo = GUIGetCursorInfo($GUI1)
If @error Then
_MouseDownEvent(0)
ElseIf _MouseDownEvent($aMouseInfo[2]) Then
If $AktuellerDoodle <> $Doodle_Schuss Then $aAktuellerDoodle = $AktuellerDoodle
$geschossen = 1
If $DirectionalShooting Then
If $aMouseInfo[1] < $y Then
$mouseX = $aMouseInfo[0] - $x - 27
$mouseY = $y - $aMouseInfo[1]
$verhX = $mouseX / $mouseY
$mBewegY = Sqrt( (10^2) / (1+ ($verhX^2) ) )
$mBewegX = $mBewegY*$verhX
If UBound($schuss) = 1 Then
_Array2DAdd($schuss, $x+27.5&"|"&$y-11&"|"&$mBewegX&"|"&$mBewegY)
EndIf
_Array2DAdd($schuss, $x+27.5&"|"&$y-11&"|"&$mBewegX&"|"&$mBewegY)
EndIf
Else
$mBewegX = 0
$mBewegY = 10
If UBound($schuss) = 1 Then
_Array2DAdd($schuss, $x+27.5&"|"&$y-11&"|"&$mBewegX&"|"&$mBewegY)
EndIf
_Array2DAdd($schuss, $x+27.5&"|"&$y-11&"|"&$mBewegX&"|"&$mBewegY)
EndIf
EndIf
If $geschossen > 0 Then
$geschossen += 1
EndIf
If $geschossen >= 15 Then
$geschossen = 0
$AktuellerDoodle = $aAktuellerDoodle
EndIf
If $geschossen < 15 And $geschossen > 0 Then
If (($DirectionalShooting And $aMouseInfo[1] < $y) or not $DirectionalShooting) Then
If $Sprungf = 0 Then
$AktuellerDoodle = $Doodle_Schuss
Else
$AktuellerDoodle = $Doodle_Sf_Schuss
EndIf
EndIf
EndIf
EndIf
;~ If not $DirectionalShooting Then $AktuellerDoodle = $Doodle_Schuss
;~ EndIf
For $n = 2 to UBound($schuss) - 1
$schuss[$n][1] += $Platmovespeed
$schuss[$n][1] -= $schuss[$n][3]
$schuss[$n][0] += $schuss[$n][2]
If $schuss[$n][1] < -100 Then
_ArrayDelete($schuss, $n)
ExitLoop
Else
EndIf
If $Mobexist > 0 Then
If ($coord1 <= $schuss[$n][0] And $coord1 +$mobwidth>= $schuss[$n][0]) And ($schuss[$n][1] >= $coord2 And $schuss[$n][1] - 15 <= $coord2 + $mobheight) Then
$mobdead -= 1
If $mobdead = 0 Then $Mobexist = 0
_ArrayDelete($schuss, $n)
ExitLoop
EndIf
EndIf
Next
If $huton = 0 And $raketeon = 0 and not $letdie Then
For $n = 0 To UBound($gruen_n, 1) - 1 Step 1
If $gruen_n[$n][3] = 7 Then $gruen_n[$n][3] = 6
If $untersprung = 0 Then
Local $range = 20, $change = $sprungkraft * $t - ($grav / 2) * $t ^ 2
If $change < -10 Then $range = _Min(-$change, 40)
If $gruen_n[$n][2] = 6 Then
$multip = 2
Else
$multip = 1
EndIf
Select
Case ($gruen_n[$n][0] <= $x + $Doodle_Width - $DOODLE_BORDER And $gruen_n[$n][0] + $Plat_Width*$multip >= $x + $DOODLE_BORDER) And ($y + $Doodle_Height - $range <= $gruen_n[$n][1] And $y + $Doodle_Height >= $gruen_n[$n][1] and $gruen_n[$n][2] > -1)
If $yalt + 1 < $y Then
If $gruen_n[$n][2] = 3 Then
$braunf[$n] = 1
If not $soundoff Then _SoundPlay($sBreak)
Else
If $gruen_n[$n][2] = 4 Then
If $weisweg[$n] = 0 Then
$onplatform = 1
$plat = $n
$t = 0
$yboden = $gruen_n[$n][1]
$platten += 1
EndIf
ElseIf $gruen_n[$n][2] = 5 Then
If $rotweg[$n] = 0 Then
$onplatform = 1
$plat = $n
$t = 0
$t = $Zeitschrit
$yboden = $gruen_n[$n][1]
$platten += 1
EndIf
Else
$onplatform = 1
$plat = $n
$t = 0
$t = $Zeitschrit
$yboden = $gruen_n[$n][1]
$platten += 1
EndIf
If $gruen_n[$n][3] = 1 Then
If $AktuellerDoodle = $Doodle_Links Then
$AktuellerDoodle = $DoodleHutl
Else
$AktuellerDoodle = $DoodleHutr
EndIf
$gruen_n[$n][3] = 0
$huton = 1
EndIf
If $gruen_n[$n][3] = 2 Then
If $AktuellerDoodle = $Doodle_Rechts Then
$AktuellerDoodle = $DoodleRakr
Else
$AktuellerDoodle = $DoodleRakl
EndIf
$gruen_n[$n][3] = 0
$raketeon = 1
EndIf
If $sprung = 1 Then
$sprung = 0
$sprungkraft /= 1.5
EndIf
If $sprungtr = 1 Then
$fSprung = 0
$sprungtr = 0
$sprungkraft /= 2
EndIf
If $gruen_n[$n][3] = 8 and not $protected Then
$protected = 1
$gruen_n[$n][3] = 0
EndIf
If $gruen_n[$n][3] = 3 Then
If ($gruen_n[$n][0] + $federpos[$n] - $Doodle_Width + $DOODLE_BORDER <= $x And $gruen_n[$n][0] + $federpos[$n] + 17 >= $x + $DOODLE_BORDER) Then
If $soundoff = 0 Then _SoundPlay($sSprung)
$gruen_n[$n][3] = 4
$sprung = 1
$sprungkraft *= 1.5
EndIf
EndIf
If $gruen_n[$n][3] = 6 Then
$gruen_n[$n][3] = 7
$sprungtr = 1
$sprungkraft *= 2
EndIf
If $gruen_n[$n][2] = 7 Then $gruen_n[$n][2] = 0
If $Sprungf = 1 Then
If $AktuellerDoodle = $Doodle_sf_r Then
$AktuellerDoodle = $Doodle_sf_gesch_r
Else
$AktuellerDoodle = $Doodle_sf_gesch_l
EndIf
If $Sprungnu = 6 Then
$Sprungf = 0
$Sprungnu = 0
$sprungkraft /= 1.4
If $AktuellerDoodle = $Doodle_sf_gesch_r Then
$AktuellerDoodle = $Doodle_Rechts
Else
$AktuellerDoodle = $Doodle_Links
EndIf
Else
If not ($letzeplatte = $n) Then
$letzeplatte = $n
$Sprungnu += 1
EndIf
EndIf
EndIf
If $Sprungf = 0 Then
If $gruen_n[$n][3] = 5 Then
If $AktuellerDoodle = $Doodle_Rechts Then
$AktuellerDoodle = $Doodle_sf_gesch_r
Else
$AktuellerDoodle = $Doodle_sf_gesch_l
EndIf
$gruen_n[$n][3] = 0
$sprungkraft *= 1.4
$Sprungf = 1
EndIf
EndIf
If $soundoff = 0 And $rotweg[$n] = 0 And $weisweg[$n] = 0 Then
If $sprung = 0 And $Sprungf = 0 Then _SoundPlay($sJump)
If $Sprungf = 1 Then _SoundPlay($sSf)
If $sprungtr = 1 Then _SoundPlay($sTrampolin)
If $sprung = 1 Then _SoundPlay($sSprung)
EndIf
If $gruen_n[$n][2] = 4 Then
$weisweg[$n] = 1
EndIf
EndIf
EndIf
EndSelect
EndIf
Next
EndIf
If $untereplatte = 1 Then
If $y + $Doodle_Height > $Height - 20 And $y + $Doodle_Height < $Height Then
If $soundoff = 0 Then _SoundPlay($sJump)
$yboden = $Height
$t = 0
$t = $Zeitschrit
$untereplatte = 1
EndIf
EndIf
;~ For $n = 0 to Ubound(
$x += $MoveSpeed * $t / 10
;~ If $raketeon = 0 And $huton = 0 Then
;~ If $ybodenalt > $yboden Then $scoreplus += Abs(($yboden - $ybodenalt))
;~ EndIf
$scoreplus += Round($Platmovespeed)
$strichscore = $scoreplus + $y
;~
If $y - 5 > $Height Then $die = True
If $huton = 1 Then
$plus = 15
ElseIf $raketeon = 1 Then
$plus = 30
Else
$plus = 10
EndIf
If $scoreplus > $score Then
$score += $plus
EndIf
;======================HUT
If $huton = 1 Then
If $timeron = 0 Then
If $soundoff = 0 Then _SoundPlay($sPropeller, 0)
$huttimer = _Timer_Init()
$timeron = 1
$tnorm = $t
$t = $hutt
EndIf
$Platmovespeed = 15
$time = _Timer_Diff($huttimer)
If $hutbild = 0 Then
If $AktuellerDoodle = $DoodleHutl Then
$AktuellerDoodle = $DoodleHutl1
ElseIf $AktuellerDoodle = $DoodleHutr Then
$AktuellerDoodle = $DoodleHutr1
EndIf
$hutbild = 1
Else
If $AktuellerDoodle = $DoodleHutl1 Then
$AktuellerDoodle = $DoodleHutl
ElseIf $AktuellerDoodle = $DoodleHutr1 Then
$AktuellerDoodle = $DoodleHutr
EndIf
$hutbild = 0
EndIf
If $time >= 3000 Then
$t = $tnorm
$huton = 0
$timeron = 0
If $AktuellerDoodle = $DoodleHutr Then
$AktuellerDoodle = $Doodle_Rechts
Else
$AktuellerDoodle = $Doodle_Links
EndIf
EndIf
EndIf
;~ MsgBox(0, "", $scoreplus&"|"&$strichscore)
;=========================Protection
If $protected Then
If not $protectiontimer Then
$ptimer = _Timer_Init()
$protectiontimer = 1
EndIf
If _Timer_Diff($ptimer) > 10000 Then
$protected = 0
$protectiontimer = 0
EndIf
EndIf
;=========================Rakete
If $raketeon = 1 Then
If $timerrakon = 0 Then
If $soundoff = 0 Then _SoundPlay($sRakete, 0)
$raketentimer = _Timer_Init()
$timerrakon = 1
$tnorm = $t
$t = $hutt
If $AktuellerDoodle = $Doodle_Rechts Then
$AktuellerDoodle = $DoodleRakr
Else
$AktuellerDoodle = $DoodleRakl
EndIf
EndIf
$Platmovespeed = 30
$time = _Timer_Diff($raketentimer)
If $time >= 3000 Then
$raketeon = 0
$timerrakon = 0
$t = $tnorm
If $AktuellerDoodle = $DoodleRakr Then
$AktuellerDoodle = $Doodle_Rechts
Else
$AktuellerDoodle = $Doodle_Links
EndIf
EndIf
EndIf
;~ $Doodle_Height = _GDIPlus_ImageGetHeight($AktuellerDoodle)
;~ $Doodle_Width = _GDIPlus_ImageGetWidth($AktuellerDoodle)
If $fSprung = 0 Then
If $sprungtr = 1 Then
If $Angle = 360 Then
$Angle = 0
$untersprung = 0
$fSprung = 1
Else
$untersprung = 1
$Angle += 15
EndIf
EndIf
EndIf
If $letdie Then
If $dAngle = 360 Then
$dAngle = 0
$letdie = 0
$die = True
Else
$dAngle += 30
EndIf
EndIf
;~ MsgBox(0, "", $aScores[1][0])
If $move = 1 Then
$untereplatte = 0
If $huton = 0 And $raketeon = 0 and not $letdie Then
$yboden += $Platmovespeed
EndIf
For $n = 0 to UBound($Striche)-1
If $strichscore-5 <= $aScores[$n+1][0] and $strichscore+5 >= $aScores[$n+1][0] and $Striche[$n] = -10 Then
$Striche[$n]= -5
EndIf
If $Striche[$n] <> -10 Then $Striche[$n] += $Platmovespeed
Next
If $activepressed > -1 Then
If $gruen_n[$activepressed][2] = 0 Then $activepressed = -1
EndIf
If not _IsPressed(01) Then
$activepressed = -1
EndIf
For $n = 0 To UBound($gruen_n) - 1
If _IsPressed(01) Then
$nMsg = MouseGetPos()
If (_PointIsInEllipse($nMsg[0], $nMsg[1], $gruen_n[$n][0] + ($Plat_Width+20) / 2, $gruen_n[$n][1] +22.5, $Plat_Width+20, 45)=0 and $gruen_n[$n][2] = 7) or $activepressed > -1 Then
If $activepressed = -1 Then
$activepressed = $n
Else
$gruen_n[$activepressed][0] = $nMsg[0] - $Plat_Width / 2
$gruen_n[$activepressed][1] = $nMsg[1] - 7.5
EndIf
EndIf
EndIf
$gruen_n[$n][1] += $Platmovespeed
If $gruen_n[$n][2] = 1 Then
Select
Case $gruen_n[$n][0] <= 30
$bewegrichtung[$n] = 1
Case $gruen_n[$n][0] + $Plat_Width >= $Width - 30
$bewegrichtung[$n] = 0
EndSelect
If $bewegrichtung[$n] = 1 Then
$gruen_n[$n][0] += 3
Else
$gruen_n[$n][0] -= 3
EndIf
EndIf
;~ MsgBox(0, "", $braunf[$n])
If $gruen_n[$n][2] = 2 Then
If Abs($bewegh[$n]) >= 32 Then
If $vbewegrichtung[$n] = 1 Then
$vbewegrichtung[$n] = 0
Else
$vbewegrichtung[$n] = 1
EndIf
EndIf
If $vbewegrichtung[$n] = 1 Then
$gruen_n[$n][1] += 2
$bewegh[$n] += 2
Else
$gruen_n[$n][1] -= 2
$bewegh[$n] -= 2
EndIf
EndIf
If $gruen_n[$n][2] = 2 Then
If $gruen_n[$n][1] - $bewegh[$n] > $Height + 50 Then
reset($n)
EndIf
Else
If $gruen_n[$n][1] - $bewegh[$n] > $Height Then
reset($n)
EndIf
EndIf
Next
EndIf
;~ MsgBox(0, "", $MoveSpeed)
;~ _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
;~ _WinAPI_RedrawWindow($GUI1, "", "", $RDW_UPDATENOW + $RDW_FRAME)
_GDIPlus_GraphicsDrawImage($Buffer, $Background, 0, 0)
If $Angle = 0 Then
$nAktuellerDoodle = $AktuellerDoodle
EndIf
For $n = 0 To UBound($gruen_n, 1) - 1
Switch $gruen_n[$n][3]
Case 1
_GDIPlus_GraphicsDrawImage($Buffer, $Hut, $gruen_n[$n][0], $gruen_n[$n][1] - 23)
Case 2
_GDIPlus_GraphicsDrawImage($Buffer, $Rakete, $gruen_n[$n][0], $gruen_n[$n][1] - 37)
Case 3
_GDIPlus_GraphicsDrawImage($Buffer, $Federzu, $gruen_n[$n][0] + $federpos[$n], $gruen_n[$n][1] - $Federz_Height)
Case 4
_GDIPlus_GraphicsDrawImage($Buffer, $Federoffen, $gruen_n[$n][0] + $federpos[$n], $gruen_n[$n][1] - $Federo_Height)
Case 5
_GDIPlus_GraphicsDrawImage($Buffer, $sf_schuhe, $gruen_n[$n][0], $gruen_n[$n][1] - 21)
Case 6
_GDIPlus_GraphicsDrawImage($Buffer, $Trampolin, $gruen_n[$n][0] + 15, $gruen_n[$n][1] - 14)
Case 7
_GDIPlus_GraphicsDrawImage($Buffer, $Trampolin1, $gruen_n[$n][0] + 15, $gruen_n[$n][1] - 14)
Case 8
_GDIPlus_GraphicsDrawImageRect($Buffer, $protection ,$gruen_n[$n][0], $gruen_n[$n][1] - 30, 30, 30)
EndSwitch
Switch $gruen_n[$n][2]
Case 0
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_gruen, $gruen_n[$n][0], $gruen_n[$n][1])
Case 6
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_gruen, $gruen_n[$n][0], $gruen_n[$n][1])
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_gruen, $gruen_n[$n][0]+$Plat_Width, $gruen_n[$n][1])
Case 7
_GDIPlus_GraphicsFillEllipse($Buffer, $gruen_n[$n][0]-10, $gruen_n[$n][1]-15, $Plat_Width+20, 15+30, $hBrushSchein1)
_GDIPlus_GraphicsDrawImageRect($Buffer, $Platform_dunkelblau, $gruen_n[$n][0], $gruen_n[$n][1], 57, 15)
Case 1
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_hellblau, $gruen_n[$n][0], $gruen_n[$n][1])
Case 2
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_grau, $gruen_n[$n][0], $gruen_n[$n][1])
Case 3
If $braunf[$n] = 1 Or $bei90grad[$n] Then
If $bAngle[$n] = 90 Then
$bAngle[$n] = 0
$braunf[$n] = 0
$bei90grad[$n] = 1
Else
$bAngle[$n] += 10
EndIf
If $bei90grad[$n] = 1 Then
$gruen_n[$n][1] += 7.5
$brAngle = 90
Else
$brAngle = $bAngle[$n]
If $brAngle > 0 Then
$gruen_n[$n][1] += 7.5
EndIf
EndIf
_GDIPlus_GraphicsTranslateTransform($Buffer, $gruen_n[$n][0], $gruen_n[$n][1] + 7.5)
_GDIPlus_GraphicsRotateTransform($Buffer, $brAngle)
;~ MsgBox(0,"1", $bAngle[$n]&$n)
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_braun1, 0, -7.5)
_GDIPlus_GraphicsResetTransform($Buffer)
_GDIPlus_GraphicsTranslateTransform($Buffer, $gruen_n[$n][0] + 57, $gruen_n[$n][1] + 7.5)
_GDIPlus_GraphicsRotateTransform($Buffer, $brAngle * - 1)
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_braun2, -31, -7.5)
_GDIPlus_GraphicsResetTransform($Buffer)
Else
_GDIPlus_GraphicsDrawImage($Buffer, $Platform_braun, $gruen_n[$n][0], $gruen_n[$n][1])
EndIf
Case 4
If $weisweg[$n] = 1 Then
If $wtrans[$n] < 250 Then
$wtrans[$n] += 25
EndIf
EndIf
_GDIPlus_GraphicsDrawImageRectRectTrans($Buffer, $Platform_weis, 0, 0, "", "", $gruen_n[$n][0], $gruen_n[$n][1], "", "", 2, $wtrans[$n])
Case 5
If $gruen_n[$n][2] = 5 Then
If $gruen_n[$n][1] > 60 And $gro60[$n] = 0 Then
$gelbweg[$n] = 1
$gro60[$n] = 1
EndIf
EndIf
If $gelbweg[$n] = 1 Then
$gtrans[$n] += 6
EndIf
If $gtrans[$n] > 254 Then
$gtrans[$n] = 0
$gelbweg[$n] = 0
$rotweg[$n] = 1
EndIf
If $rotweg[$n] = 1 Then
$rotweg[$n] = -5
EndIf
If $rotweg[$n] < -2 Then
_GDIPlus_GraphicsDrawImage($Buffer, $Explusion, $gruen_n[$n][0] - 4, $gruen_n[$n][1] - 4)
If $soundoff = 0 And $soundplaye[$n] = 0 Then
_SoundPlay($sExpl)
$soundplaye[$n] = 1
EndIf
$rotweg[$n] += 1
EndIf
If $rotweg[$n] = 0 Then
_GDIPlus_GraphicsDrawImageRect($Buffer, $Platform_rot, $gruen_n[$n][0], $gruen_n[$n][1], 57, 16)
_GDIPlus_GraphicsDrawImageRectRectTrans($Buffer, $Platform_gelb, 0, 0, "", "", $gruen_n[$n][0], $gruen_n[$n][1], "", "", 2, $gtrans[$n])
EndIf
EndSwitch
Next
;-----------------------------------------------------------------------------------------Mobs 2----------------------------------------------------------------------
Switch $Mobexist
Case 1
_GdiPlus_GraphicsDrawImage($Buffer,$Monster_Gruen,$coord1,$coord2)
Case 2
_GdiPlus_GraphicsDrawImage($Buffer,$Monster_Lila,$coord1,$coord2)
Case 3
If $mobset = 0 Then _GdiPlus_GraphicsDrawImage($Buffer,$Yeti,$coord1,$coord2+5)
Case 4
_GdiPlus_GraphicsDrawImage($Buffer,$aktuellerMob,$coord1,$coord2)
Case 5
_GdiPlus_GraphicsDrawImage($Buffer,$aktuellerMob,$coord1,$coord2)
Case 6
If $ufoset = 0 or $bosmon = 1 Then
_GdiPlus_GraphicsDrawImage($Buffer,$ufo,$coord1,$coord2)
$aPoints[0][0] = 4
$aPoints[1][0] = $coord1+20
$aPoints[1][1] = $coord2+30
$aPoints[2][0] = $coord1+60
$aPoints[2][1] = $coord2+30
$aPoints[3][0] = $coord1+80
$aPoints[3][1] = $coord2+132
$aPoints[4][0] = $coord1
$aPoints[4][1] = $coord2+132
_GDIPlus_GraphicsFillPolygon($Buffer, $aPoints, $hBrushSchein)
EndIf
If $bosmon = 1 Then
_GdiPlus_GraphicsDrawImage($Buffer,$ufo,$coord1+80,$coord2)
$aPoints[0][0] = 4
$aPoints[1][0] = $coord1+100
$aPoints[1][1] = $coord2+30
$aPoints[2][0] = $coord1+140
$aPoints[2][1] = $coord2+30
$aPoints[3][0] = $coord1+160
$aPoints[3][1] = $coord2+132
$aPoints[4][0] = $coord1+80
$aPoints[4][1] = $coord2+132
_GDIPlus_GraphicsFillPolygon($Buffer, $aPoints, $hBrushSchein)
_GdiPlus_GraphicsDrawImage($Buffer,$ufo,$coord1+160,$coord2)
$aPoints[0][0] = 4
$aPoints[1][0] = $coord1+180
$aPoints[1][1] = $coord2+30
$aPoints[2][0] = $coord1+220
$aPoints[2][1] = $coord2+30
$aPoints[3][0] = $coord1+240
$aPoints[3][1] = $coord2+132
$aPoints[4][0] = $coord1+160
$aPoints[4][1] = $coord2+132
_GDIPlus_GraphicsFillPolygon($Buffer, $aPoints, $hBrushSchein)
EndIf
Case 7
_GdiPlus_GraphicsDrawImage($Buffer, $rotermob, $coord1,$coord2)
Case -1
If $setloch = 0 Then _GdiPlus_GraphicsDrawImage($Buffer, $loch, $coord1,$coord2)
Case 8
_GdiPlus_GraphicsDrawImage($Buffer,$aktuellerMob,$coord1,$coord2)
EndSwitch
;~ MsgBox(0, "", $Mobexist)
;----------------------------------------------------------------------------------------Schuss----------------------------------------------------------------------
If UBound($schuss) >= 3 Then
For $n = 2 To UBound($schuss)-1
_GdiPlus_GraphicsDrawImage($Buffer,$Kugel,$schuss[$n][0],$schuss[$n][1])
Next
Endif
If $protected Then _GDIPlus_GraphicsDrawImageRect($Buffer, $protect, $x+$Doodle_Width/2 - $Protect_Width/2, $y+$Doodle_Height/2 - $Protect_Height/2, 100, 100)
For $n = 0 to UBound($Striche)-1
If $Striche[$n] <> -10 Then
_GdiPlus_GraphicsDrawImage($Buffer,$Strich,$Width - 49,$Striche[$n])
_GDIPlus_GraphicsDrawString ($Buffer, $aScores[$n+1][1], $Width, $Striche[$n]-12, "Comic Sans MS", 7, 0x0001)
;~ MsgBox(0, $n, $aScores[$n+1][1]&"|"&$aScores[$n+1][0])
EndIf
Next
If $sprungtr = 1 And $fSprung = 0 Then
_GDIPlus_GraphicsTranslateTransform($Buffer, $x + $Doodle_Width / 2, $y + $Doodle_Height / 2)
If $nAktuellerDoodle = $Doodle_Links Then
_GDIPlus_GraphicsRotateTransform($Buffer, $Angle)
_GDIPlus_GraphicsDrawImage($Buffer, $AktuellerDoodle, $Doodle_Width / 2 * - 1, $Doodle_Height / 2 * - 1)
Else
_GDIPlus_GraphicsRotateTransform($Buffer, $Angle * - 1)
_GDIPlus_GraphicsDrawImage($Buffer, $AktuellerDoodle, $Doodle_Width / 2 * - 1, $Doodle_Height / 2 * - 1)
EndIf
_GDIPlus_GraphicsResetTransform($Buffer)
Elseif $letdie Then
_GDIPlus_GraphicsTranslateTransform($Buffer, $x + $Doodle_Width / 2, $y + $Doodle_Height / 2)
If $nAktuellerDoodle = $Doodle_Links Then
_GDIPlus_GraphicsRotateTransform($Buffer, $dAngle)
_GDIPlus_GraphicsDrawImageRect($Buffer, $AktuellerDoodle, $Doodle_Width / 2 * - 1, $Doodle_Height / 2 * - 1, $Doodle_Width*($dAngle/360 - 1)*-1, $Doodle_Height*($dAngle/360 - 1)*-1)
Else
_GDIPlus_GraphicsRotateTransform($Buffer, $dAngle * - 1)
_GDIPlus_GraphicsDrawImageRect($Buffer, $AktuellerDoodle, $Doodle_Width / 2 * - 1, $Doodle_Height / 2 * - 1, $Doodle_Width*($dAngle/360 - 1)*-1, $Doodle_Height*($dAngle/360 - 1)*-1)
EndIf
_GDIPlus_GraphicsResetTransform($Buffer)
Else
_GDIPlus_GraphicsDrawImage($Buffer, $AktuellerDoodle, $x, $y)
EndIf
If $die Then
If Not $soundoff Then _SoundPlay($sFall)
Return $ST_game_over
EndIf
_GDIPlus_GraphicsDrawImage($Buffer, $Punkteleiste, 0, 0)
;_GDIPlus_GraphicsDrawImageRectRectTrans($Buffer, $Punkteleiste, 0, 0, "", "", "", "", "", "", 2, 50)
_GDIPlus_GraphicsDrawString($Buffer, $scoreplus, 5, 5, "Comic Sans MS", 15)
;~ _GDIPlus_GraphicsDrawString($Buffer, ((($Height-$yboden)+(0.5*50/$grav))-70), 100, 5, "Comic Sans MS", 15)
;~ _GDIPlus_GraphicsDrawLine($Buffer, 0, $yboden1, 400, $yboden1)
;~ _GDIPlus_GraphicsDrawString($Buffer, $mousesensible, 50, 5, "Comic Sans MS", 15)
_WinAPI_RedrawWindow($GUI1, 0, 0, $RDW_INTERNALPAINT)
;~ _GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $Width, $Height)
If $die Then
If Not $soundoff Then _SoundPlay($sFall)
Return $ST_game_over
EndIf
Return $ST_playing
EndFunc ;==>_DrawGame_CheckInput
Func Mobcheck($scheinheight = 0)
If (($coord1 <= $x + $Doodle_Width - $DOODLE_BORDER And $coord1 + $mobwidth >= $x + $Doodle_Width- $DOODLE_BORDER) or ($coord1 <= $x And $coord1 + $mobwidth >= $x) or ($coord1 >= $x And $coord1 + $mobwidth <= $x + $Doodle_Width)) And (($y <= $coord2 + $mobheight + $scheinheight And $y + $Doodle_Height >= $coord2 + $mobheight + $scheinheight) or ($y <= $coord2 And $y + $Doodle_Height >= $coord2 + $mobheight)) and not $protected Then
If $huton = 1 or $raketeon = 1 Then
$Mobexist = 0
Else
$die = True
EndIf
EndIf
If (($coord1 <= $x + $Doodle_Width - $DOODLE_BORDER And $coord1 + $mobwidth >= $x + $Doodle_Width- $DOODLE_BORDER) or ($coord1 <= $x And $coord1 + $mobwidth >= $x) or ($coord1 >= $x And $coord1 + $mobwidth <= $x + $Doodle_Width)) And ($y + $Doodle_Height <= $coord2 And $y + $Doodle_Height + 15 >= $coord2) Then
If $yalt + 1 < $y Then
If not $soundoff Then _SoundPlay($sJumpOnMon)
$t = $Zeitschrit
$yboden = $coord2
$Mobexist = 0
If $sprung = 1 Then
$sprung = 0
$sprungkraft /= 1.5
EndIf
If $sprungtr = 1 Then
$fSprung = 0
$sprungtr = 0
$sprungkraft /= 2
EndIf
If $Sprungf = 1 Then
If $AktuellerDoodle = $Doodle_sf_r Then
$AktuellerDoodle = $Doodle_sf_gesch_r
Else
$AktuellerDoodle = $Doodle_sf_gesch_l
EndIf
If $Sprungnu = 6 Then
$Sprungf = 0
$Sprungnu = 0
$sprungkraft = 50
If $AktuellerDoodle = $Doodle_sf_gesch_r Then
$AktuellerDoodle = $Doodle_Rechts
Else
$AktuellerDoodle = $Doodle_Links
EndIf
Else
$Sprungnu += 1
EndIf
EndIf
$sprung = 1
$sprungkraft *= 1.5
EndIf
EndIf
EndFunc ;===Mobcheck
Func reset($n)
;~ If $gruen_n[$n][2] = 6 Then
;~ _ArrayDelete($gruen_n, $n)
;~ Return
;~ EndIf
$bei90grad[$n] = 0
$braunf[$n] = 0
$wtrans[$n] = 1
$gtrans[$n] = 1
$soundplaye[$n] = 0
$gro60[$n] = 0
$rotweg[$n] = 0
$gelbweg[$n] = 0
$weisweg[$n] = 0
$bewegh[$n] = 0
$gruen_n[$n][0] = Random(0, $Width - $Plat_Width, 1)
$gruen_n[$n][1] = $gruen_n[$zuletztresetet][1] - $bewegh[$zuletztresetet] + $abstand
Switch $scoreplus
Case 0 To 10000
Local $perc[6] = [60, 20, 10, 10, 0, 0]
;~ $r = Random(0, 10, 1)
Case 10000 To 20000
;~ $r = Random(0, 8, 1)
Local $perc[7] = [50, 20, 10, 10, 10, 0, 0]
Case 20000 To 30000
;~ $r = Random(0, 6, 1)
Local $perc[7] = [35, 15, 15, 15, 10, 10, 0]
Case 30000 To 40000
;~ $r = Random(0, 4, 1)
Local $perc[7] = [20, 20, 20, 15, 10, 10, 5]
Case Else
Local $perc[7] = [10, 20, 20, 20, 10, 10, 10]
;~ $r = Random(0, 3, 1)
EndSwitch
$gruen_n[$n][2] = 0
Switch Random(1, 100, 1)
Case 0 To $perc[0]
$gruen_n[$n][2] = 0
Case $perc[0] To $perc[0] + $perc[1]
$gruen_n[$n][2] = 1
Case $perc[0] + $perc[1] To $perc[0] + $perc[1] + $perc[2]
$gruen_n[$n][2] = 2
Case $perc[0] + $perc[1] + $perc[2] To $perc[0] + $perc[1] + $perc[2] + $perc[3]
If (Not $gruen_n[$zuletztresetet][2] = 3) and (Not $gruen_n[$zuletztresetet][2] = 5) Then
$gruen_n[$n][2] = 3
Else
$gruen_n[$n][2] = 0
EndIf
Case $perc[0] + $perc[1] + $perc[2] + $perc[3] To $perc[0] + $perc[1] + $perc[2] + $perc[3] + $perc[4]
$gruen_n[$n][2] = 4
Case $perc[0] + $perc[1] + $perc[2] + $perc[3] + $perc[4] To $perc[0] + $perc[1] + $perc[2] + $perc[3] + $perc[4] + $perc[5]
If (Not $gruen_n[$zuletztresetet][2] = 5) and (Not $gruen_n[$zuletztresetet][2] = 3) Then
$gruen_n[$n][2] = 5
Else
$gruen_n[$n][2] = 0
EndIf
Case Else
$gruen_n[$n][2] = 7
EndSwitch
;~ If $r = 1 Then
;~ $gruen_n[$n][2] = 1
;~ ElseIf $r = 2 Then
;~ $gruen_n[$n][2] = 2
;~ Else
;~ $gruen_n[$n][2] = 0
;~ EndIf
;~ $r = Random(0, 5, 1)
;~ If $r = 2 and (Not $gruen_n[$zuletztresetet][2] = 3) Then
;~ $gruen_n[$n][2] = 3
;~ ElseIf $r = 3 Then
;~ $gruen_n[$n][2] = 4
;~ ElseIf $r = 4 and (Not $gruen_n[$zuletztresetet][2] = 5) Then
;~ $gruen_n[$n][2] = 5
;~ EndIf
If $setnoplat Then
$setnoplat = 0
$gruen_n[$n][2] = -1
EndIf
If $gruen_n[$zuletztresetet][2] = 7 Then
$gruen_n[$n][2] = -1
$setnoplat = 1
EndIf
If $scoreplus >= $punktelimit Then
$abstand -= 3
$punktelimit = $punktelimit + ($punktelimit + 1000)
EndIf
If $mobset = 1 Then
$mobset = 0
$gruen_n[$n][2]=6
$gruen_n[$n][0] = Random(0, $Width - $Plat_Width*2, 1)
$choordcheck = False
$coord1 = $gruen_n[$n][0]
$coord2 = $gruen_n[$n][1]-37
$coord3 = 0
$mobdead = 3
EndIf
If $ufoset = 1 Then
$gruen_n[$n][2] = 0
$coord1 = $gruen_n[$n][0] + $Plat_Width/2 - 40
$coord2 = $gruen_n[$n][1]-132
$mobdead = 1
$ufoset = 0
EndIf
If $setloch = 1 Then
$gruen_n[$n][2]=0
$r = Random(0,1,1)
If $r = 1 Then
If $gruen_n[$zuletztresetet][0] > $Width/2 Then
$gruen_n[$n][0] = Random(0, $Width/2 - $Plat_Width, 1)
$choordcheck = False
$coord1 = Random($Width/2 , $Width - $mobwidth,1)
$coord2 = $gruen_n[$n][1]-$mobheight/2
$setloch = 0
EndIf
ElseIf $gruen_n[$zuletztresetet][0]-$Plat_Width < $Width/2 Then
$gruen_n[$n][0] = Random($Width/2, $Width - $Plat_Width, 1)
$choordcheck = False
$coord1 = Random(0 , $Width/2 - $mobwidth,1)
$coord2 = $gruen_n[$n][1]-$mobheight/2
$setloch = 0
EndIf
EndIf
$gruen_n[$n][3] = 0
If $Sprungf = 0 Then
If (Not $gruen_n[$n][2] = 3) or (Not $gruen_n[$n][2] = 4) Then
$r = Random(0, 100, 1)
If $r = 3 Then $gruen_n[$n][3] = 1
If $r = 6 Then $gruen_n[$n][3] = 2
$r = Random(0, 50, 1)
If $r = 3 Then
$gruen_n[$n][3] = 3
$federpos[$n] = Random(7, $Plat_Width - 17, 1)
EndIf
;============== $gruen_n[$n][3] = 4 <== wird gebraucht Nicht benutzen!
If $r = 4 Then $gruen_n[$n][3] = 5
If $r = 5 Then $gruen_n[$n][3] = 6
;============== $gruen_n[$n][3] = 7 <== wird gebraucht Nicht benutzen!
If $r = 6 Then $gruen_n[$n][3] = 8
EndIf
EndIf
;~ $r = Random(0, 5,1)
;~ If $r = 1 Then
;~ $gruen_n[$n][3] = 5
$zuletztresetet = $n
EndFunc ;==>reset
Func MY_WM_PAINT($hWnd, $uMsg, $wParam, $lParam)
If $hWnd = $GUI1 Then _GDIPlus_GraphicsDrawImageRect($Graphic, $Bitmap, 0, 0, $Width, $Height)
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_PAINT
Func MY_WM_ACTIVATEAPP($hWnd, $uMsg, $wParam, $lParam)
$gfWeAreActive = ($wParam = 1)
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_ACTIVATEAPP
Func _pause()
$paused = Not $paused
EndFunc ;==>_pause
Func _NewGame()
Global $braunf[17], $bAngle[17], $weisweg[13], $gro60[13], $bei90grad[17], $AktuellerDoodle = $Doodle_Rechts, $monsterscore, $ufoset = 0, $setloch = 0, $mobset = 0, $protected = 0, $letdie = 0, $activepressed = -1, $Mobexist = 0, $schuss[1][4], $explodiert[13], $soundplaye[13], $gelbweg[13], $rotweg[13], $wtrans[13], $gtrans[13], $image1, $bewegh[20]
Global $federpos[20], $ReadN[5], $gruen_n[13][4], $untereplatte = 1, $hutt = 3, $tnorm, $grav = 9.81, $untersprung = 0, $sprungtr = 0, $nAktuellerDoodle = 0, $fSprung = 0, $Angle = 0, $sprung = 0, $sprungkraft = 50, $Sprungf = 0, $Sprungnu = 0
Global $zuletztresetet = 12
Global $punktelimit = 1000, $abstand = -40, $paused = 0, $die = False, $i = 0, $t = 0, $y = $Height - $Doodle_Height, $strichscore = $Height, $Striche[5]=[-10,-10,-10,-10,-10], _
$onplatform = 0, $t1 = 0, $normpos, $huttimer, $ybodenalt, $hutbild = 0, $x25 = $Width / 2 - 64, $y25 = $Height / 2 - 37.5
Global $plat = 0, $raketeon = 0, $timerrakon = 0, $raketentimer = 0, $move = 0, $score = 0, $scoreplus = 0, $strichscore = 0, $yboden = $Height, $Platmovespeed = 0, $platten = 0, $huton = 0, $nAngle = 0, $timeron = 0, $Sprungnu = 0
Global $bewegrichtung[17] = [Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), _
Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), _
Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1)]
Global $vbewegrichtung[17] = [Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), _
Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1), _
Random(0, 1, 1), Random(0, 1, 1), Random(0, 1, 1)]
For $n = 0 To 19
$bewegh[$n] = 0
Next
$monsterscore = Random(9000, 14000, 1)
$gruen_n[0][0] = 200
$gruen_n[1][0] = 150
For $n = 0 To UBound($gruen_n) - 1
If (Not $n = 0 Or $n = 1) Then
$gruen_n[$n][0] = Random(0, $Width - $Plat_Width, 1)
EndIf
$bAngle[$n] = 0
$braunf[$n] = 0
$explodiert[$n] = 0
$gelbweg[$n] = 0
$gro60[$n] = 0
$rotweg[$n] = 0
$gtrans[$n] = 1
$wtrans[$n] = 1
$gruen_n[$n][1] = 400 + ($n * $abstand) ;$abstand ist Negativ!!!!!!
$gruen_n[$n][2] = 0
$gruen_n[$n][3] = 0
Next
For $n = 0 to 4
If $aScores[$n+1][0] < $Height Then
$Striche[$n] = $Height - $aScores[$n+1][0]
EndIf
Next
$x = $gruen_n[0][0]
$y = $Height - $Doodle_Height
$die = False
$t = 0
$plat = 0
$MoveSpeed = 0
$move = 0
$Platmovespeed = 0
$platten = 0
$score = 0
$scoreplus = 0
If $gruen_n[0][0] < 60 + $Doodle_Width And $gruen_n[0][0] + $Plat_Width > 60 + $Doodle_Width Then
$x = $Width - 60
Else
$x = 60
EndIf
EndFunc ;==>_NewGame
Func ende()
Exit
EndFunc ;==>ende
Func CleanOnExit()
; Author: ProgAndy
_GDIPlus_ImageDispose($MoveMobl)
_GDIPlus_ImageDispose($MoveMobr)
_GDIPlus_ImageDispose($Flug3)
_GDIPlus_ImageDispose($Flug2)
_GDIPlus_ImageDispose($Flug1)
_GDIPlus_ImageDispose($Yeti)
_GDIPlus_ImageDispose($Monster_Lila)
_GDIPlus_ImageDispose($Monster_Gruen)
_GDIPlus_ImageDispose($Kugel)
_GDIPlus_ImageDispose($Rakete)
_GDIPlus_ImageDispose($Newhighscore)
_GDIPlus_ImageDispose($Gameover)
_GDIPlus_ImageDispose($Scorebackground)
_GDIPlus_ImageDispose($Hut)
_GDIPlus_ImageDispose($Pausebild)
_GDIPlus_ImageDispose($Optionscreen)
_GDIPlus_ImageDispose($Federzu)
_GDIPlus_ImageDispose($Federoffen)
_GDIPlus_ImageDispose($sf_schuhe)
_GDIPlus_ImageDispose($Trampolin)
_GDIPlus_ImageDispose($Trampolin1)
_GDIPlus_ImageDispose($pause_up)
_GDIPlus_ImageDispose($pause_down)
_GDIPlus_ImageDispose($menu)
_GDIPlus_ImageDispose($play_again)
_GDIPlus_ImageDispose($Pause_eraenzung)
_GDIPlus_ImageDispose($Platform_weis)
_GDIPlus_ImageDispose($Background)
_GDIPlus_ImageDispose($Start)
_GDIPlus_ImageDispose($DoodleHutl)
_GDIPlus_ImageDispose($DoodleHutr)
_GDIPlus_ImageDispose($DoodleHutl1)
_GDIPlus_ImageDispose($DoodleHutr1)
_GDIPlus_ImageDispose($Punkteleiste)
_GDIPlus_ImageDispose($Platform_gruen)
_GDIPlus_ImageDispose($Platform_hellblau)
_GDIPlus_ImageDispose($Doodle_Rechts)
_GDIPlus_ImageDispose($Doodle_Links)
_GDIPlus_ImageDispose($DoodleRakl)
_GDIPlus_ImageDispose($DoodleRakr)
_GDIPlus_ImageDispose($Doodle_sf_r)
_GDIPlus_ImageDispose($Doodle_sf_l)
_GDIPlus_ImageDispose($Doodle_sf_gesch_l)
_GDIPlus_ImageDispose($Doodle_sf_gesch_r)
_GDIPlus_ImageDispose($Platform_grau)
_GDIPlus_ImageDispose($Platform_braun1)
_GDIPlus_ImageDispose($Platform_braun2)
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_GraphicsDispose($PauseBuffer)
_GDIPlus_BitmapDispose($PauseBitmap)
_GDIPlus_GraphicsDispose($Graphic)
_GDIPlus_GraphicsDispose($Buffer)
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_BrushDispose($hBrushDark)
_GDIPlus_BrushDispose($hBrushOptOff)
_GDIPlus_BrushDispose($hBrushOptOn)
_GDIPlus_Shutdown()
_SoundClose($sPropeller)
_SoundClose($sFall)
_SoundClose($sJump)
_SoundClose($sRakete)
_SoundClose($sSprung)
_SoundClose($sSf)
_SoundClose($sTrampolin)
_SoundClose($sExpl)
_SoundClose($sJumpOnMon)
_SoundClose($sBreak)
_Crypt_Shutdown()
IniWrite($datapath, "Optionen", "Wintermode", $wintermod)
EndFunc ;==>CleanOnExit
Func _LoadSkin($sName = "")
; Author: ProgAndy
If $sName = "nooby" Then
;~ MsgBox(0,"Nooby", "Nooby Mode")
$NoobyMod = True
EndIf
If ($sName = "" Or $sName = "default") Then
$sName = ''
Else
$sName &= "\"
EndIf
_LoadImage($Start, $sName, "Start")
_LoadImage($Optionscreen1, $sName, "Optionen_1")
_LoadImage($Optionscreen2, $sName, "Optionen_2")
_LoadImage($Scorebackground, $sName, "Bestenliste")
_LoadImage($Gameover, $sName, "Gameover")
_LoadImage($Newhighscore, $sName, "Neuer_Highscore")
_LoadImage($Background, $sName, "Hintergrund")
_LoadImage($Punkteleiste, $sName, "Punkteleiste")
_LoadImage($Kugel, $sName, "Kugel")
_LoadImage($Monster_Gruen, $sName, "Grünes wackelmonster")
_LoadImage($Monster_Lila, $sName, "Lila Monster")
_LoadImage($Yeti, $sName, "Yeti Monster")
_LoadImage($Flug1, $sName, "Flug Monster 1")
_LoadImage($Flug2, $sName, "Flug Monster 2")
_LoadImage($Flug3, $sName, "Flug Monster 3")
_LoadImage($Flug21, $sName, "Flug21")
_LoadImage($Flug22, $sName, "Flug22")
_LoadImage($MoveMobr, $sName, "MoveMob")
_LoadImage($MoveMobl, $sName, "MoveMobl")
_LoadImage($ufo, $sName, "Ufo")
_LoadImage($rotermob, $sName, "monsterrot")
_LoadImage($loch, $sName, "Loch")
_LoadImage($imgBeenden, $sName, "Beenden")
_LoadImage($menu, $sName, "menu")
_LoadImage($play_again, $sName, "play_again")
_LoadImage($Pausebild, $sName, "Pause")
_LoadImage($pause_up, $sName, "Pause oben")
_LoadImage($pause_down, $sName, "Pause unten")
_LoadImage($Pause_eraenzung, $sName, "Pause Menu")
_LoadImage($Strich, $sName, "Strich")
_LoadImage($Hut, $sName, "Hut")
_LoadImage($Rakete, $sName, "Rakete")
_LoadImage($sf_schuhe, $sName, "Federschuhe")
_LoadImage($protection, $sName, "Protection")
_LoadImage($protect, $sName, "Protect")
_LoadImage($Trampolin, $sName, "Trampolin")
_LoadImage($Trampolin1, $sName, "Trampolin benutzt")
_LoadImage($Federzu, $sName, "Feder zu")
_LoadImage($Federoffen, $sName, "Feder offen")
$Federz_Height = _GDIPlus_ImageGetHeight($Federzu)
$Federo_Height = _GDIPlus_ImageGetHeight($Federoffen)
$Protect_Height = _GDIPlus_ImageGetHeight($protect)
$Protect_Width = _GDIPlus_ImageGetWidth($protect)
_LoadImage($Doodle_Rechts, $sName, "Doodle Rechts")
_LoadImage($Doodle_Links, $sName, "Doodle Links")
Global $Doodle_Height = _GDIPlus_ImageGetHeight($Doodle_Rechts)
Global $Doodle_Width = _GDIPlus_ImageGetWidth($Doodle_Rechts)
_LoadImage($DoodleHutl, $sName, "Doodle Hut Links 1")
_LoadImage($DoodleHutr, $sName, "Doodle Hut Rechts 1")
_LoadImage($DoodleHutl1, $sName, "Doodle Hut Links 2")
_LoadImage($DoodleHutr1, $sName, "Doodle Hut Rechts 2")
_LoadImage($DoodleRakl, $sName, "Doodle Rakete Links")
_LoadImage($DoodleRakr, $sName, "Doodle Rakete Rechts")
_LoadImage($Doodle_sf_r, $sName, "Doodle Feder Rechts")
_LoadImage($Doodle_sf_l, $sName, "Doodle Feder Links")
_LoadImage($Doodle_sf_gesch_l, $sName, "Doodle Feder Gespannt Links")
_LoadImage($Doodle_sf_gesch_r, $sName, "Doodle Feder Gespannt Rechts")
_LoadImage($Doodle_Schuss, $sName, "Doodle Schuss")
_LoadImage($Doodle_Sf_Schuss, $sName, "Doodle sprungfeder Schuss")
$Doodle_sf_Height = _GDIPlus_ImageGetHeight($Doodle_sf_r)
$Doodle_sf_gesch_Height = _GDIPlus_ImageGetHeight($Doodle_sf_gesch_l)
_LoadImage($Platform_weis, $sName, "Plattform weis")
_LoadImage($Platform_gruen, $sName, "Plattform grün")
_LoadImage($Platform_hellblau, $sName, "Plattform hellblau")
_LoadImage($Platform_grau, $sName, "Plattform grau")
_LoadImage($Platform_braun1, $sName, "Plattform Braun Links")
_LoadImage($Platform_braun, $sName, "Plattform Braun")
_LoadImage($Platform_braun2, $sName, "Plattform Braun Rechts")
_LoadImage($Platform_rot, $sName, "Plattform Rot")
_LoadImage($Platform_gelb, $sName, "Plattform Gelb")
_LoadImage($Platform_dunkelblau, $sName, "Plattform Dunkelblau")
_LoadImage($Explusion, $sName, "Explosion")
$Plat_Width = _GDIPlus_ImageGetWidth($Platform_gruen)
EndFunc ;==>_LoadSkin
Func _LoadImage(ByRef $hImage, $sMod, $sImage)
; Author: ProgAndy
If $hImage Then _GDIPlus_ImageDispose($hImage)
Local $aFiles[4] = [$sMod & $sImage & '.png', $sMod & $sImage & '.gif', $sImage & '.png', $sImage & '.gif']
For $i = 0 To 3
If FileExists($gsImagePath & $aFiles[$i]) Then
$hImage = _GDIPlus_ImageLoadFromFile($gsImagePath & $aFiles[$i])
If $hImage Then Return
EndIf
Next
EndFunc ;==>_LoadImage
Func _GDIPlus_ImageAttributesSetWrapMode($hImageAttributes, $iWrapMode, $iARGB = 0xFF000000)
Local $aResult = DllCall($ghGDIPdll, "uint", "GdipSetImageAttributesWrapMode", "hwnd", $hImageAttributes, "int", $iWrapMode, "uint", $iARGB, "int", 0)
If @error Then Return SetError(@error, @extended, False)
$GDIP_STATUS = $aResult[0]
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_ImageAttributesSetWrapMode
Func _GDIPlus_GraphicsDrawImageRectRectTrans($hGraphics, $hImage, $iSrcX, $iSrcY, $iSrcWidth = "", $iSrcHeight = "", _
$iDstX = "", $iDstY = "", $iDstWidth = "", $iDstHeight = "", $iUnit = 2, $nTrans = 1)
Local $tColorMatrix, $x, $hImgAttrib, $iW = _GDIPlus_ImageGetWidth($hImage), $iH = _GDIPlus_ImageGetHeight($hImage)
If $iSrcWidth = 0 Or $iSrcWidth = "" Then $iSrcWidth = $iW
If $iSrcHeight = 0 Or $iSrcHeight = "" Then $iSrcHeight = $iH
If $iDstX = "" Then $iDstX = $iSrcX
If $iDstY = "" Then $iDstY = $iSrcY
If $iDstWidth = "" Then $iDstWidth = $iSrcWidth
If $iDstHeight = "" Then $iDstHeight = $iSrcHeight
If $iUnit = "" Then $iUnit = 2
;;create color matrix data
$tColorMatrix = DllStructCreate("float[5];float[5];float[5];float[5];float[5]")
;blending values:
$x = DllStructSetData($tColorMatrix, 1, 1, 1) * DllStructSetData($tColorMatrix, 2, 1, 2) * DllStructSetData($tColorMatrix, 3, 1, 3) * _
DllStructSetData($tColorMatrix, 4, $nTrans, 4) * DllStructSetData($tColorMatrix, 5, 1, 5)
;;create an image attributes object and update its color matrix
$hImgAttrib = DllCall($ghGDIPdll, "int", "GdipCreateImageAttributes", "ptr*", 0)
$hImgAttrib = $hImgAttrib[1]
DllCall($ghGDIPdll, "int", "GdipSetImageAttributesColorMatrix", "ptr", $hImgAttrib, "int", 1, _
"int", 1, "ptr", DllStructGetPtr($tColorMatrix), "ptr", 0, "int", 0)
;;draw image into graphic object with alpha blend
DllCall($ghGDIPdll, "int", "GdipDrawImageRectRectI", "hwnd", $hGraphics, "hwnd", $hImage, "int", $iDstX, "int", _
$iDstY, "int", $iDstWidth, "int", $iDstHeight, "int", $iSrcX, "int", $iSrcY, "int", $iSrcWidth, "int", _
$iSrcHeight, "int", $iUnit, "ptr", $hImgAttrib, "int", 0, "int", 0)
;;clean up
DllCall($ghGDIPdll, "int", "GdipDisposeImageAttributes", "ptr", $hImgAttrib)
Return
EndFunc ;==>_GDIPlus_GraphicsDrawImageRectRectTrans
; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_GraphicsRotateTransform
; Description ...: Updates the world transformation matrix of a Graphics object with the product of itself and a rotation matrix
; Syntax.........: _GDIPlus_GraphicsRotateTransform($hGraphics, $nAngle[, $iOrder = 0])
; Parameters ....: $hGraphics - Pointer to a Graphics object
; $nAngle - The angle, in degrees, of rotation
; $iOrder - Order of matrices multiplication:
; |0 - The rotation matrix is on the left
; |1 - The rotation matrix is on the right
; Return values .: Success - True
; Failure - False and either:
; |@error and @extended are set if DllCall failed
; |$GDIP_STATUS contains a non zero value specifying the error code
; Remarks .......: None
; Related .......: _GDIPlus_GraphicsMultiplyTransform
; Link ..........; @@MsdnLink@@ GdipRotateWorldTransform
; Example .......; No
; ===============================================================================================================================
Func _GDIPlus_GraphicsRotateTransform($hGraphics, $nAngle, $iOrder = 0)
Local $aResult = DllCall($ghGDIPdll, "uint", "GdipRotateWorldTransform", "hwnd", $hGraphics, "float", $nAngle, "int", $iOrder)
If @error Then Return SetError(@error, @extended, False)
$GDIP_STATUS = $aResult[0]
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsRotateTransform
; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_GraphicsResetTransform
; Description ...: Sets the world transformation matrix of a Graphics object to the identity matrix
; Syntax.........: _GDIPlus_GraphicsResetTransform($hGraphics)
; Parameters ....: $hGraphics - Pointer to a Graphics object
; Return values .: Success - True
; Failure - False and either:
; |@error and @extended are set if DllCall failed
; |$GDIP_STATUS contains a non zero value specifying the error code
; Remarks .......: None
; Related .......: None
; Link ..........; @@MsdnLink@@ GdipResetWorldTransform
; Example .......; No
; ===============================================================================================================================
Func _GDIPlus_GraphicsResetTransform($hGraphics)
Local $aResult = DllCall($ghGDIPdll, "uint", "GdipResetWorldTransform", "hwnd", $hGraphics)
If @error Then Return SetError(@error, @extended, False)
$GDIP_STATUS = $aResult[0]
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsResetTransform
; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_GraphicsTranslateTransform
; Description ...: Updates a Graphics object's world transformation matrix with the product of itself and a translation matrix
; Syntax.........: _GDIPlus_GraphicsTranslateTransform($hGraphics, $nDX, $nDY[, $iOrder = 0])
; Parameters ....: $hGraphics - Pointer to a Graphics object
; $nDX - Horizontal component of the translation
; $nDY - Vertical component of the translation
; $iOrder - Order of matrices multiplication:
; |0 - The translation matrix is on the left
; |1 - The translation matrix is on the right
; Return values .: Success - True
; Failure - False and either:
; |@error and @extended are set if DllCall failed
; |$GDIP_STATUS contains a non zero value specifying the error code
; Remarks .......: None
; Related .......: None
; Link ..........; @@MsdnLink@@ GdipTranslateWorldTransform
; Example .......; No
; ===============================================================================================================================
Func _GDIPlus_GraphicsTranslateTransform($hGraphics, $nDX, $nDY, $iOrder = 0)
Local $aResult = DllCall($ghGDIPdll, "uint", "GdipTranslateWorldTransform", "hwnd", $hGraphics, "float", $nDX, "float", $nDY, "int", $iOrder)
If @error Then Return SetError(@error, @extended, False)
$GDIP_STATUS = $aResult[0]
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsTranslateTransform
Func _MouseDownEvent($fDown = 0)
; Author: ProgAndy
Local Static $fSaved = 0
Local $fState = $fSaved
$fSaved = $fDown
Return $fDown And ($fState <> $fDown)
EndFunc ;==>_MouseDownEvent
Func CreateMob()
Local $rand
$bosmon = 0
If Floor($scoreplus/100) > 1 Then
$randmax = 500 - Floor($scoreplus/100)
Else
$randmax = 1
EndIf
$rand = Random(0,$randmax,1)
;~ $rand = 1
If $rand = 1 Then
$Mobexist = Random(-1,8,1)
;~ $Mobexist = 3
Switch $Mobexist
Case 1
$mobwidth = _GDIPlus_ImageGetWidth($Monster_Gruen)
$mobheight = _GDIPlus_ImageGetHeight($Monster_Gruen)
$coordcheck = False
$coord1 = Random(0,$Width - $mobwidth,1)
$coord2 = -53
$moveright = -2
$mobdead = Random(1,2,1)
Case 2
$mobwidth = _GDIPlus_ImageGetWidth($Monster_Lila)
$mobheight = _GDIPlus_ImageGetHeight($Monster_Lila)
$coordcheck = False
$coord1 = Random(0,$Width - $mobwidth,1)
$coord2 = -49
$moveright = -2
$mobdead = Random(1,2,1)
Case 3
$mobset = 1
$mobwidth = _GDIPlus_ImageGetWidth($Yeti)
$mobheight = _GDIPlus_ImageGetHeight($Yeti)
Case 4
$mobwidth = _GDIPlus_ImageGetWidth($Flug1)
$mobheight = _GDIPlus_ImageGetHeight($Flug1)
$coordcheck = False
$coord1 = Random(0,$Width - $mobwidth,1)
$coord2 = -44
$aktuellerMob = $Flug1
$moveright = -2
$change = 300
$Bild = 1
$mobtimeron = False
$mobdead = Random(1,2,1)
Case 5
$mobwidth = _GDIPlus_ImageGetWidth($MoveMobl)
$mobheight = _GDIPlus_ImageGetHeight($MoveMobl)
$coordcheck = False
$coord1 = Random(0,$Width - $mobwidth,1)
$coord2 = -50
$mobdead = Random(1,2,1)
If $coord1 <= 130 Then
$aktuellerMob = $MoveMobr
$moveright = -3
Else
$aktuellerMob = $MoveMobl
$moveright = 3
EndIf
$moveup = 3
Case 6
$rand = Random(0, 500, 1)
If $rand = 469 Then
$bosmon = 1
$coord1 = 27.5
$coord2 = -140
$mobdead = 5
$mobwidth = _GDIPlus_ImageGetWidth($ufo)*3
$mobheight = _GDIPlus_ImageGetHeight($ufo)*3
Else
$ufoset = 1
$mobwidth = _GDIPlus_ImageGetWidth($ufo)
$mobheight = _GDIPlus_ImageGetHeight($ufo)
EndIf
$coordcheck = False
$moveright = -0.1
Case 7
$mobwidth = _GDIPlus_ImageGetWidth($rotermob)
$mobheight = _GDIPlus_ImageGetHeight($rotermob)
$coordcheck = False
$coord1 = Random(0,($Width - $Width/3 -$mobwidth),1)
$coord2 = -53
$moveright = -3
$mobdead = Random(1,2,1)
Case -1
$setloch = 1
$mobwidth = _GDIPlus_ImageGetWidth($rotermob)
$mobheight = _GDIPlus_ImageGetHeight($rotermob)
$coordcheck = False
Case 8
$mobwidth = _GDIPlus_ImageGetWidth($Flug21)
$mobheight = _GDIPlus_ImageGetHeight($Flug21)
$coordcheck = False
$coord1 = 10
$coord2 = -100
$aktuellerMob = $Flug21
$moveright = -2
$change = 300
$Bild = 1
$mobtimeron = False
$mobdead = Random(1,2,1)
EndSwitch
EndIf
EndFunc ;===MobCreate
Func _Array2DAdd(ByRef $avArray, $sValue='')
If ( Not IsArray($avArray) ) Then
SetError(1)
Return 0
EndIf
Local $UBound2nd = UBound($avArray,2)
If @error = 2 Then
ReDim $avArray[UBound($avArray)+1]
$avArray[UBound($avArray)-1] = $sValue
Else
Local $arValue
ReDim $avArray[UBound($avArray)+1][$UBound2nd]
If $sValue = '' Then
For $i = 0 To $UBound2nd-2
$sValue &= '|'
Next
EndIf
$arValue = StringSplit($sValue, '|')
If $arValue[0] <> $UBound2nd Then
SetError(2)
Return 0
EndIf
For $i = 0 To $UBound2nd-1
$avArray[UBound($avArray)-1][$i] = $arValue[$i+1]
Next
EndIf
Return -1
EndFunc ;==>_Array2DAdd
Func _PointIsInEllipse($iX_Point, $iY_Point, $iXM_Ellipse, $iYM_Ellipse, $iWidth_Ellipse, $iHeight_Ellipse)
Return Floor(($iX_Point - $iXM_Ellipse) ^ 2 / ($iWidth_Ellipse / 2) ^ 2 + ($iY_Point - $iYM_Ellipse) ^ 2 / ($iHeight_Ellipse / 2) ^ 2)
EndFunc
Func _GDIPlus_CreateSlider($hGraphics, $x, $y, $width, $wert, $color1, $color2, $maxwert = 100)
;~ Author: yxyx
Opt("MouseCoordMode", 0)
Local $dll
$dll = DllStructCreate("int;int;int;int;int;int;int;int;int")
DllStructSetData($dll, 1, $x)
DllStructSetData($dll, 2, $y)
DllStructSetData($dll, 3, $wert)
DllStructSetData($dll, 4, $color1)
DllStructSetData($dll, 5, $color2)
DllStructSetData($dll, 6, $hGraphics)
DllStructSetData($dll, 8, $maxwert)
DllStructSetData($dll, 9, $width)
Return $dll
EndFunc
Func _GDIPlus_CheckSlider($dll)
;~ Author: yxyx
Local $pos = MouseGetPos(), $userdll = DllOpen("user32.dll"), $dllread[9] = [DllStructGetData($dll, 1), DllStructGetData($dll, 2), DllStructGetData($dll, 3), DllStructGetData($dll, 4), DllStructGetData($dll, 5), DllStructGetData($dll, 6), DllStructGetData($dll, 7), DllStructGetData($dll, 8), DllStructGetData($dll, 9)]
Local $dllwrite, $step = $dllread[8]/$dllread[7], $penlines = _GDIPlus_PenCreate($dllread[3], 2), $penfill = _GDIPlus_BrushCreateSolid($dllread[4])
_GDIPlus_GraphicsDrawLine($dllread[5], $dllread[0], $dllread[1]+10, $dllread[0]+$dllread[8], $dllread[1]+10, $penlines)
If _IsPressed("01", $userdll) Then
If ($pos[0] > $dllread[0]+$step*$dllread[2]-5 and $pos[0] < $dllread[0]+$step*$dllread[2]+5 and $pos[1] > $dllread[1] and $pos[1] < $dllread[1]+20) or $dllread[6] Then
DllStructSetData($dll, 7, "1")
$dllwrite = Round(($pos[0]-$dllread[0])/$step)
If $pos[0] <= $dllread[0] Then $dllwrite = 0
If $pos[0] >= $dllread[0]+$dllread[8] Then $dllwrite = $dllread[7]
DllStructSetData($dll, 3, $dllwrite)
Else
DllStructSetData($dll, 7, "0")
EndIf
Else
DllStructSetData($dll, 7, "0")
EndIf
Local $points[6][2] = [[5,0], [$dllread[0]+$step*$dllread[2] -5, $dllread[1]],[$dllread[0]+$step*$dllread[2] -5, $dllread[1]+17],[$dllread[0]+$step*$dllread[2], $dllread[1]+20],[$dllread[0]+$step*$dllread[2] +5, $dllread[1]+17],[$dllread[0]+$step*$dllread[2] +5, $dllread[1]]]
_GDIPlus_GraphicsFillPolygon($dllread[5], $points, $penfill)
_GDIPlus_GraphicsDrawPolygon($dllread[5], $points, $penlines)
EndFunc
Func _GDIPlus_ReadSlider($dll)
;~ Author: yxyx
Return DllStructGetData($dll, 3)
EndFunc
Func _GDIPlus_SetSliderColor($dll, $color, $number)
;~ Author: yxyx
If $number < 1 and $number > 2 Then Return
Return DllStructSetData($dll, 3+$number, $color)
EndFunc
Vollständiges Spiel könnt ihr [Only registered and activated users can see links. Click Here To Register...] downloaden!
MFG
iPod
