Go to most recent revision | Blame | Last modification | View Log | RSS feed
# # k¹â6×0ù SplMain <r WindowsXP.res Pn3rSplMain.DFMe¹â6pSplMain.pasj¹â6 dSystem fTObject|ê®ìfInteger fÂfWordNùf
AnsiString¶+{fBooleanúefstring¶+{gTObject.Dispatchµ
ÄgTObject.NewInstance·
ÄgTObject.FreeInstance¸
ÄfDouble¬´ÖgTObject.SafeCallException²
ÄgTObject.AfterConstruction³
ÄgTObject.BeforeDestruction´
ÄgTObject.DefaultHandler¶
ÄfExtendedEøgTruevÉøg@ClassCreateçVÃg@AfterConstructionKgExit gDec gFalsesÉøg@IsClass¡gInc g @LStrCat3é`pÅg@HandleAnyExceptioné`pÅg@DoneExcepté`pÅg@LStrClr\ª«>g@HandleFinallyé`pÅg@BeforeDestructionºS«g @ClassDestroyüÅàg Randomizeé`pÅgRandomR}s fTextFiles¾gParamStrrÅögLength g@LStrLenrÅX[û gCopy g @LStrCopyé`pÅg
ParamCount-¹{Zg
AssignFile g@AssignA#°ÀgReset g
@ResetTextðË gReadln g@ReadLString¹g@ReadLnÈg CloseFile g@CloseðË g @ReadLongðË fPLongintËÉg@LStrAsgÔg@LStrCmpé`pÅg@LStrCaté`pÅg@_IOTesté`pÅg @LStrArrayClrüfChar#»fCardinalIÐáKfPCharu½RgPosÅj®f PAnsiCharu½RgAssigned gSizeOf gBreak g@LStrAddRef`Eg@LStrToPChar$ÉÇg@LStrFromPChar7Þog @LStrCatNé`pÅg@LStrFromArrayC¡t2gTObject.Free¢
ÄgAbs gTrunc fByteµág@TRUNCé`pÅg@SetSubé`pÅgSeekEof g@SeekEof¥n³gLow gHigh cdSysInit cdWindows fDWORDIÐáKfTRGBQuadóOOZg VK_RETURNÓ}ç1gMB_OK¬}ç1gMB_ICONERRORÜ}ç1gMB_YESNO¸}ç1gMB_ICONASTERISKl~ç1gID_YES¾}ç1g SW_NORMAL¯}ç1gGetTickCountñöãf
tagRGBQUADóOOZgRGB-")@ý" cdMessages cdSysUtils gSleeprFßjgExtractFilePathÓ¢}Gg
FileExists'h'&g LowerCaseµã×CgIntToStrñF¬gStrToIntrÅögFloatToStrF¸ÿ¡8fTFloatFormatQçJgffNumberÓHcdClasses fTShiftState cìgTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!Fqf.1l@ÙXgssAltèéÖëfTCollection\.ÈgTCollection.Clear NÝ fTStringsecdGraphics gclBlackÂa9gTBrush.SetStyleVAºXfTBrushStyle¼wúgbsClear8!øg TFont.SetSize5ÜgTFont.SetColor/ÜgclMaroonBa9fTCanvas°68gTCanvas.TextOut3KÐgclRed¿a9gclOliveB c9gclYellow¿d9gclGreenÂc9gclLimeÂd9gclPurpleBá:g clFuchsia¿^<cdControls gTWinControl.AssignTo<¾ßgTWinControl.CanAutoSize<¾ßgTWinControl.CanResize<¾ßgTWinControl.ConstrainedResize<¾ßgTWinControl.CreateHandle<¾ßg#TWinControl.CustomAlignInsertBefore<¾ßgTWinControl.CustomAlignPosition <¾ßgTWinControl.DestroyWnd$<¾ßg!TWinControl.DockReplaceDockClient'<¾ßgTWinControl.GetClientOrigin5<¾ßgTWinControl.GetControlExtents7<¾ßgTWinControl.GetDeviceContext8<¾ßgTWinControl.SetParentBackgroundW<¾
ßgTWinControl.ShowControlY<¾ßg+TWinControl.UpdateControlOriginalParentSize[<¾ßgTWinControl.Invalidate<¾ßgTWinControl.Repaint<¾ßgTWinControl.SetBounds<¾ßgTWinControl.Update<¾ßgTControl.GetActionÄ×ïYgTControl.GetDragImagesÊ×ïYgTControl.GetEnabledË×ïYg!TControl.GetFloatingDockSiteClassÍ×ïYgTControl.SetAutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTControl.SetTopr×ïYgTControl.SetLeftj×ïYgTControl.SetWidtht×ïYgTControl.SetHeightf×ïYgTControl.SetAlign]×ïYfTAlignûP`galClient9NógTControl.SetColorb×ïYgTWinControl.SetTabOrder²;¾ßgTControl.SetVisibles×ïYgTControl.SetCursorc×ïYgcrNone\BS°g crDefault_BS°gTControl.SetTextq×ïYcdForms fTCloseAction¿¬þgTCustomForm.AlignControls~C)gTCustomForm.CreateWindowHandle~C)gTCustomForm.CreateWnd~C)gTCustomForm.DefineProperties~C)gTCustomForm.DestroyHandle~C)gTCustomForm.DestroyWindowHandle~C)gTCustomForm.DoCreate~C)gTCustomForm.DoDestroy ~C)gTC
ustomForm.GetClientRect%~C)gTCustomForm.GetFloating'~C)gTCustomForm.Loaded*~C)gTCustomForm.Notification+~C)gTCustomForm.PaintWindow-~C)gTCustomForm.QueryInterface/~C)gTCustomForm.ReadState0~C)gTCustomForm.RequestAlign1~C)gTCustomForm.SetParentBiDiMode3~C)gTCustomForm.SetParent5~C)gTCustomForm.UpdateActions6~C)gTCustomForm.ValidateRename8~C)gTCustomForm.WndProc:~C)gTCustomForm.Resizing;~C)gTCustomForm.CreateNewu~C)gTCustomForm.AfterConstructionw~C)gTCustomForm.BeforeDestructionx~C)gTCustomForm.CloseQueryz~C)gTCustomForm.DefaultHandler{~C)gTCustomForm.SetFocus~C)gTCustomForm.SetFocusedControl~C)gTCustomForm.ShowModal~C)gTCustomForm.WantChildKey~C)g%TScrollingWinControl.AdjustClientRectµ<Åg&TScrollingWinControl.AutoScrollEnabled·<Åg%TScrollingWinControl.AutoScrollInView¸<ÅgApplicationç_gTApplication.SetTitleZÓZ2fTApplicationÙ²EgTApplication.ProcessMessagesÓZ2gTApplication.MessageBoxÓZ2gTCustomForm.Closey~C)gTCustomForm.SetBorderStyleÅ}C)fTFormBorderStyleóºgbsNone¼ðM
gbsSingle¼ðMgTApplication.GetTitleLÓZ2gTCustomForm.SetVisibleÓ}C)gTApplication.TerminateÓZ2fTCustomFormI].gTCustomForm.Hide~C)cdMMSystem gwaveOutGetNumDevsñöãg mciSendStringJu3cdDialogs gShowMessageÞg
MessageDlgãn~fTMsgDlgType²ÇnÇg mtWarning+qlZf
TMsgDlgBtn>aKPgmbOK½
IãcdStdCtrls cdExtCtrls cdMenus f TMainMenu të¢f TMenuItem1g
.TMainMenuHÉôg
.TMenuItemópëgTMenuItem.SetEnabled«?¨1gTMenuItem.SetChecked¨?¨1cdSplInfo gInfoFormañ)cdDIB gRGBQuad/i¢cdDXClass fTDXFormÿýífTDXTimer°î®âg.TDXFormâÑËagTDXForm.CreateParams'¨gTDXForm.Create(¨gTDXForm.Destroy)¨gTDXForm.StoreWindow+¨gTDXForm.RestoreWindow*¨gCos256ýF6
fTCustomDXTimerY óg .TDXTimerÂ4gTCustomDXTimer.CreateÀ#gTCustomDXTimer.SetIntervalÀ#gTCustomDXTimer.SetActiveOnlyÀ#gTCustomDXTimer.SetEnabledÀ#cdDXSprite fTDXSpriteEngineÏäñpfTBackgroundSprite|-ZfTSprite=d]ßg.TBackgroundSprite_ã
¬gTBackgroundSprite.DoDraw/BògTBackgroundSprite.GetBoundsRect®/BògTBackgroundSprite.TestCollision¯/BògTBackgroundSprite.Create°/BògTBackgroundSprite.Destroy±/BògTSprite.DoCollisionzrwfTImageSpriteßÂ5÷g .TImageSpriteÂIgTImageSprite.DoDrawãJgTImageSprite.GetBoundsRectãJgTImageSprite.TestCollisionãJgTSprite.DestroyrwgTImageSprite.DoMoveãJgTImageSprite.CreateãJgTSprite.SetZyrwgTSprite.CollisionrwgTSprite.DeadrwgTSprite.DoMove|rwgTBackgroundSprite.SetMapSize²/BòfTCustomDXSpriteEnginedg.TDXSpriteEngine²¸ÏÂgTCustomDXSpriteEngine.Create>± gTCustomDXSpriteEngine.SetDXDraw>± g TSprite.ClearrwgTCustomDXSpriteEngine.Move>± gTCustomDXSpriteEngine.Dead>± gTCustomDXSpriteEngine.Draw>± cdDXDraws fTDXDraw#+fTDXImageListãâ$fTPictureCollectionÝ4ýçgTPictureCollection.Find UgTPictureCollectionItem.GetWidth$tcg TPictureCollectionItem.GetHeighttcgTCustomDXDraw.GetSurfaceHeight¤~ø{g&TPictureCollectionItem.GetPatternCount#tcgTCustomDXDraw.GetSurfaceWidth¥~ø{g
TPictureCollection.LoadFromFileUg!TPictureCollection.MakeColorTableUf TCustomDXDrawK^ããgTCustomDXDraw.UpdatePaletteÇ~ø{gTCustomDXDraw.FinalizeÀ~ø{f TDXDrawOption«ü¿9gdoFullScreen$¦½ÌgTCustomDXDraw.SetOptions¬~ø{gTCustomDXDraw.SetAutoSize§~ø{gTCustomDXDraw.SetSurfaceWidth®~ø{gTCustomDXDraw.SetSurfaceHeight~ø{gTCustomDXDraw.InitializeÂ~ø{g.TDXDraw_}gTCustomDXDraw.Create½~ø{gTDXDrawDisplay.SetBitCountÇSûgTDXDrawDisplay.SetHeightÈSûgTDXDrawDisplay.SetWidthÉSûg doAllowReboot*¦½ÌgdoWaitVBlank-¦½ÌgdoAllowPalette2560¦½ÌgdoCenter9¦½ÌgdoRetainedModeE¦½Ìg
doHardwareH¦½ÌgdoSelectDriverK¦½ÌfTCustomDXImageList°CØ×g .TDXImageListú¶ÀvgTCustomDXImageList.CreateÛcíogTCustomDXImageList.SetDXDrawØcíogTCustomDXDraw.GetCanDraw¢~ø{gTCustomDXDraw.FlipÁ~ø{fTDirectDrawSurface.X[£gTDirectDrawSurface.ColorMatchyxp;g$TCustomDXDraw.GetCanPaletteAnimation£~ø{gTDirectDrawSurface.Fillxp;fTPictureCollectionItemìæ^Ëg TPictureCollectionItem.DrawWaveX3tcgTDirectDrawSurface.GetCanvas`xp;fTDirectDrawSurfaceCanvasjXg TDirectDrawSurfaceCanvas.Release?mcdDXInput fTDXInput8m:kf TDXInputStateØ 7g isButton1]?Êg isButton2`?Êg isButton3c?Êg isButton4f?Êg isButton5i?Êg isButton6l?Êg isButton7o?Êg isButton8r?Êg isButton9u?Êg
isButton10x?Êg
isButton11{?Êg
isButton12~?Êg
isButton13?Êg
isButton14?Êg
isButton15?Êg
isButton16?Êg
isButton17?Êg
isButton18?Êg
isButton19?Êg
isButton20?Êg
isButton21?Êg
isButton22?Êg
isButton23?Êg
isButton24¢?Êg
isButton25¥?Êg
isButton26¨?Êg
isButton27«?Êg
isButton28®?Êg
isButton29±?Êg
isButton30´?Êg
isButton31·?Êg
isButton32º?ÊgisUpQ?ÊgisDownT?ÊgisLeftW?ÊgisRightZ?ÊfTCustomDXInput0
5g .TDXInputA½gTCustomDXInput.Createj¨ÍgTCustomInput.SetForceFeedbackågTCustomDXInput.Updatel¨ÍcdDXSounds fTDXSound§êfTDXWaveList¬Ð8`fTCustomDXSoundùág .TDXSound¾igTCustomDXSound.Create9&'yfTCustomDXWaveListòJäg.TDXWaveList¤²gTCustomDXWaveList.Create7`|gTCustomDXWaveList.SetDXSound4`|gTCustomDXSound.Initialize=&'yfTWaveCollectionÙWÁægTWaveCollection.LoadFromFilexÖ~gTCustomDXSound.Finalize<&'ygTWaveCollection.FindxÖ~fTWaveCollectionItem¨Ù.gTWaveCollectionItem.PlayäùC±cd PJVersionInfo fTPJVersionInfo»áåg.TPJVersionInfoµÃ]gTPJVersionInfo.Create÷û£gTPJVersionInfo.SetFileNameåû£g%TPJVersionInfo.GetStringFileInfoByIdxïû£cdIniFiles fTIniFile9ÏfTCustomIniFileƱg .TIniFiley ØgTCustomIniFile.CreateBæ¬IcdShellAPI gShellExecuteÙcdWinInet f HINTERNETïgInternetOpenød#gINTERNET_OPEN_TYPE_PRECONFIG¬}ç1gInternetOpenUrlÒþ¢îgINTERNET_FLAG_RELOADÔrbg HttpQueryInfoaÃ}gHTTP_QUERY_STATUS_CODEå}ç1gInternetReadFile[Ìv³gInternetCloseHandledGVce SplSpla
sh g
SplashForm̺4ceSplSpeicherung gSpeicherungFormØOþceSplText gTextForm>#¦ceSplCheat g CheatFormÅc5SplMain _¸Ïc5System c5SysInit ¢c5Windows ¤c5Messages ¾c5SysUtils Àc5Classes Ôc5Graphics êc5Controls c5Forms Éc5MMSystem c5Dialogs ¡c5StdCtrls ½c5ExtCtrls Ác5Menus Åc5SplInfo ác5DIB éc5DXClass ñc5DXSprite 1c5DXDraws ±c5DXInput uc5DXSounds %c5 PJVersionInfo ic5INIFiles c5shellapi c5wininet c%gsNone úKw %gsTitle ýKw %gsMain Lw %
gsGameOver Lw %
gsNewLevel Lw %gsWin Lw
*
TGameScene ¢ä%giMittel ¼² %giLeicht ¿² %giSchwer ² * TGameInterval C ï%mtNone ¡Táó %mtGame ¤Táó %mtBoss §Táó %mtScene ªTáó %mtTitle Táó *TMusicTrack («ã`&
.TMainForm Zü * TMainForm ¨¯ª MainFormæ ¶ìȪ½% conleicht Ê}ç1 % conmittel Ü}ç1 % conschwer î}ç1 ,%lives ¾}ç1 %FCompVersion Üy2ÿÿÿÿ 1.0 7.2F 5 SplSplash Åc5SplSpeicherung Íc5SplText Õc5SplCheat Ýc% FileError