Doodle Jump für PC

06/26/2010, 10:20	#1
~~-iPod-~~ elite*gold: 0 The Black Market: 0/0/0 Join Date: Jun 2010 Posts: 134 Received Thanks: 33	Doodle Jump für PC Ich hab hier mal Doodle Jump für PC gefunden! Es ist mit AutoIt gecodet. Hier ein paar "InGame Screens": Spoiler Source: Spoiler 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($sprungkraft0.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.550/$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_Width2, 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 Das ist doch mal ein Source Code, oder? Vollständiges Spiel könnt ihr downloaden! MFG iPod

Thanks

1 User

06/26/2010, 10:39	#2
~~LukeValentine~~ elite*gold: 1 The Black Market: 12/0/1 Join Date: Jan 2010 Posts: 530 Received Thanks: 110	das kennt bisher schon jeder^^ benutz die Sufu es gibt davon schon 3-4 treads

06/26/2010, 10:41	#3
~~-iPod-~~ elite*gold: 0 The Black Market: 0/0/0 Join Date: Jun 2010 Posts: 134 Received Thanks: 33	hmm.. ich ahb immer Nur DoodleJump für iTouch ind iPhone und so gefunden!

06/26/2010, 11:40	#4
.GlaDos elite*gold: 0 The Black Market: 13/0/1 Join Date: Jan 2010 Posts: 1,197 Received Thanks: 246	Is mir für pc auch neu

06/26/2010, 11:44	#5
paradize elite*gold: 40 The Black Market: 1/0/0 Join Date: Aug 2006 Posts: 2,070 Received Thanks: 630	hmm also bei mir schlägt antivir sofort alarm?!

06/26/2010, 11:46	#6
.GlaDos elite*gold: 0 The Black Market: 13/0/1 Join Date: Jan 2010 Posts: 1,197 Received Thanks: 246	Bin gerade am ipod ich lade den gleich ma runter Aber wie willste bitte in autoit eine spielewelt bauen eher netv^^

06/26/2010, 12:41	#7
HenryTheSir elite*gold: 103 The Black Market: 0/0/0 Join Date: Mar 2009 Posts: 1,049 Received Thanks: 229	gabs schonmal in der tutorial sektion

06/26/2010, 12:50

#8

~~-iPod-~~

elite*gold: 0

The Black Market: 0/0/0

Join Date: Jun 2010

Posts: 134

Received Thanks: 33

Quote:

hmm also bei mir schlägt antivir sofort alarm?!

AntiVir is kein AntiViren programm AntiVir is ein Virus xD
des schläg überall an...

Quote:

gabs schonmal in der tutorial sektion

gehört da abba ned hin, is ja kein HowTo oder so..

06/26/2010, 14:48

#9

Der-Eddy

elite*gold: 400

The Black Market: 28/0/0

Join Date: Nov 2008

Posts: 67,908

Received Thanks: 19,503

Quote:

Originally Posted by paradize

hmm also bei mir schlägt antivir sofort alarm?!

Liegt an Autoit

Wurde bereits zweimal vorgestellt auf Epvp

06/26/2010, 14:56

#10