Verfasst: 21.06.2007 14:44
Stark 

Falls jemand an der Grafik noch Hand anlegen möchte (oder neue Bodenkacheln erstellen will etc.), dem sende ich gerne die Dateien zu. Aber im Ganzen soll es schon bei einem schlichten Grafikdesign bleiben.CNESM hat geschrieben:Macht echt Spaß. Auf jeden Fall dran bleiben. Sofern man die Grafik noch etwas aufpeppt, kann das Ganze echt nen guter Titel werden
Code: Alles auswählen
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="Blocomotion.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="Blocomotion.exe" SIZE="55808" CHECKSUM="0xBD127711" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="02/09/2009 08:29:33" UPTO_LINK_DATE="02/09/2009 08:29:33" />
<MATCHING_FILE NAME="Leveleditor.exe" SIZE="60416" CHECKSUM="0x2823B6FF" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="02/09/2009 08:29:38" UPTO_LINK_DATE="02/09/2009 08:29:38" />
</EXE>
<EXE NAME="MSVCRT.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="msvcrt.dll" SIZE="343040" CHECKSUM="0xBA21B608" BIN_FILE_VERSION="7.0.2600.2180" BIN_PRODUCT_VERSION="6.1.8638.2180" PRODUCT_VERSION="7.0.2600.2180" FILE_DESCRIPTION="Windows NT CRT DLL" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Microsoft® Windows® Operating System" FILE_VERSION="7.0.2600.2180 (xpsp_sp2_rtm.040803-2158)" ORIGINAL_FILENAME="msvcrt.dll" INTERNAL_NAME="msvcrt.dll" LEGAL_COPYRIGHT="© Microsoft Corporation. All rights reserved." VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x40004" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x5B640" LINKER_VERSION="0x50001" UPTO_BIN_FILE_VERSION="7.0.2600.2180" UPTO_BIN_PRODUCT_VERSION="6.1.8638.2180" LINK_DATE="08/04/2004 07:58:22" UPTO_LINK_DATE="08/04/2004 07:58:22" VER_LANGUAGE="Englisch (USA) [0x409]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1058304" CHECKSUM="0xE7152EFA" BIN_FILE_VERSION="5.1.2600.3119" BIN_PRODUCT_VERSION="5.1.2600.3119" PRODUCT_VERSION="5.1.2600.3119" FILE_DESCRIPTION="Client-DLL für Windows NT-Basis-API" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Betriebssystem Microsoft® Windows®" FILE_VERSION="5.1.2600.3119 (xpsp_sp2_gdr.070416-1301)" ORIGINAL_FILENAME="kernel32" INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Alle Rechte vorbehalten." VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32" PE_CHECKSUM="0x111ABF" LINKER_VERSION="0x50001" UPTO_BIN_FILE_VERSION="5.1.2600.3119" UPTO_BIN_PRODUCT_VERSION="5.1.2600.3119" LINK_DATE="04/16/2007 15:53:05" UPTO_LINK_DATE="04/16/2007 15:53:05" VER_LANGUAGE="Deutsch (Deutschland) [0x407]" />
</EXE>
</DATABASE>
Code: Alles auswählen
ProcedureDLL TS_Sprota_Create(SourceSprite, SX, SY, Size, Winkel)
Protected DestinSprite, DX, DY
Protected SourceAdress, SourceRowLen, S1, S2
Protected DestinAdress, DestinRowLen, D1, D2
Protected ScreenFormat, ScreenPixLen, LOOP1, LOOP2
DestinSprite = CreateSprite(#PB_Any, Size, Size)
StartDrawing(ScreenOutput())
ScreenFormat = DrawingBufferPixelFormat()
StopDrawing()
StartDrawing(SpriteOutput(SourceSprite))
SourceAdress = DrawingBuffer()
SourceRowLen = DrawingBufferPitch()
StopDrawing()
StartDrawing(SpriteOutput(DestinSprite))
DestinAdress = DrawingBuffer()
DestinRowLen = DrawingBufferPitch()
StopDrawing()
Select ScreenFormat
Case #PB_PixelFormat_8Bits : ScreenPixLen = 1 ; 1 Byte pro Pixel (Palette)
Case #PB_PixelFormat_15Bits : ScreenPixLen = 2 ; 2 Byte pro Pixel
Case #PB_PixelFormat_16Bits : ScreenPixLen = 2 ; 2 Byte pro Pixel
Case #PB_PixelFormat_24Bits_RGB : ScreenPixLen = 3 ; 3 Byte pro Pixel (RRGGBB)
Case #PB_PixelFormat_24Bits_BGR : ScreenPixLen = 3 ; 3 Byte pro Pixel (BBGGRR)
Case #PB_PixelFormat_32Bits_RGB : ScreenPixLen = 4 ; 4 Byte pro Pixel (RRGGBB)
Case #PB_PixelFormat_32Bits_BGR : ScreenPixLen = 4 ; 4 Byte pro Pixel (BBGGRR)
EndSelect
S1 = ScreenPixLen: S2 = -S1 * Size + SourceRowLen
Select Winkel
Case 0: DX = 00000000: DY = 00000000: D1 = ScreenPixLen: D2 = -D1 * Size + DestinRowLen
Case 1: DX = Size - 1: DY = 00000000: D1 = DestinRowLen: D2 = -D1 * Size - ScreenPixLen
Case 2: DX = Size - 1: DY = Size - 1: D1 = -ScreenPixLen: D2 = -D1 * Size - DestinRowLen
Case 3: DX = 00000000: DY = Size - 1: D1 = -DestinRowLen: D2 = -D1 * Size + ScreenPixLen
EndSelect
SourceAdress + SY * SourceRowLen + SX * ScreenPixLen
DestinAdress + DY * DestinRowLen + DX * ScreenPixLen
For LOOP2 = 1 To Size
For LOOP1 = 1 To Size
CopyMemory(SourceAdress, DestinAdress, ScreenPixLen)
SourceAdress + S1
DestinAdress + D1
Next LOOP1
SourceAdress + S2
DestinAdress + D2
Next LOOP2
ProcedureReturn DestinSprite
EndProcedure