. lol
Code : Tout sélectionner
; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1957&highlight=
; Author: bourbon
; Date: 09. August 2003
; PB export function for Tile Studio, doesn't run directly - main program, variables etc.
; PB Export Funktion für Tile Studio, läuft nicht direkt - siehe Hinweis
; --------------------------------------------------------
; Tile Studio Definition file für Pure Basic
; (http://www.purebasic.de/)
;
; erwarten sie kein fertiges Programm, es gibt noch vieles
; für sie zu tun, Variablen angleichen, Hauptprogramm, es
; soll für sie auch nur einen Denkanstoß darstellen, letzt-
; endlich gewinnt die eigene Kreativität :-)
;
; Version 1.0 - Februar 2003 - Kurzfassung(nur das wichtigste)
; (c)by Bourbon
;
; diese Kurzfassung funktioniert nicht mit den beigefügten
; Beispielen von Tile Studio, da diese mehr Infos erwarten!
; es sollte weiters beachtet werden eindeutige Namen für Level
; und Teilebilder zu vergeben (normale Vorgehensweise wären ein
; oder mehrer Teilebilder und aufsteigende Level, bei Problemen
; kann dieser Code angepasst werden (siehe Tutorial!)
;
; Syntax wegen der Kompatibilität von BB übernommen
; --------------------------------------------------------
; --- bitmap file ----------------------------------------
#tileset
#tilebitmap Data\\TS_<TileSetIdentifier>.bmp
#end tilebitmap
#end tileset
; --------------------------------------------------------
#file TS_<ProjectName>.pb
#; ---------- Generated by Tile Studio ----------
#;
#; ACHTUNG, ein paar Werte müssen manuell angepaßt, bzw. ergänzt oder zugewiesen werden!
#;
#; --- Version 1.0 ---
#; *************************************************************************************************
#;
#; Aktuelles Projekt : <ProjectName>
#; Programmierer : <Author>
#; Copyright : <Copyright>
#; Datum der Erstellung : <CurrentDate>
#; Uhrzeit : <CurrentTime>
#; Anmerkungen : Keine
#;
#; *************************************************************************************************
#;
#tileset
##<TileSetIdentifier>BMP = <TileSetNumber> * 8 + 10
#map
##<MapIdentifier> = <TileSetNumber> * 16 + 10 + <MapNumber>
##<MapIdentifier>_Overlap = <Overlap>
#end map
#end tileset
#;
#; --- hier die richtigen Werte für unser Windows Fenster eintragen (fürs erste Level z.B.) ---
#;
map.l = ??? ; hier muss zum Beispiel das erste Level eingetragen werden (ist oben als Konstante definiert)
#; get map width (tiles)
Procedure MapWidth(map)
Select map
#tileset
#map
Case #<MapIdentifier>
ret = <MapWidth>
#end map
#end tileset
EndSelect
ProcedureReturn ret
EndProcedure
#; get map height (tiles)
Procedure MapHeight(map)
Select map
#tileset
#map
Case #<MapIdentifier>
ret = <MapHeight>
#end map
#end tileset
EndSelect
ProcedureReturn ret
EndProcedure
#; get tile width (pixels)
Procedure TileWidth(map)
Select map
#tileset
#map
Case #<MapIdentifier>
ret = <TileWidth>
#end map
#end tileset
EndSelect
ProcedureReturn ret
EndProcedure
#; get tile height (pixels)
Procedure TileHeight(map)
Select map
#tileset
#map
Case #<MapIdentifier>
ret = <TileHeight>
#end map
#end tileset
EndSelect
ProcedureReturn ret
EndProcedure
#;
; -----------------------------------------------------------------------------
; *** check auf DirectX und Initialisierung von Sprites und Keyboard ***
If InitSprite() = 0 Or InitKeyboard() = 0
MessageRequester("Error","Minimun DirectX Version 7 erforderlich!",#MB_ICONERROR)
End : EndIf
; -----------------------------------------------------------------------------
SetFrameRate(30) ; zeige 30 Frames pro Sekunde an
ScrBreit = MapWidth(map) * TileWidth(map) ; bei scrolling "ScrollSicht" ansonst "MapWidth(map)" angeben
ScrHoch = MapHeight(map) * (TileHeight(map) - mapOverlap) ; einen eventuellen Overlap&Scrollwert hier berücksichtigen
hWnd=OpenWindow(0,(GetSystemMetrics_(#SM_CXSCREEN)-ScrBreit)/2,(GetSystemMetrics_(#SM_CYSCREEN)-ScrHoch)/2,ScrBreit,ScrHoch,#PB_Window_TitleBar,"<ProjectName>")
If OpenWindowedScreen(hWnd,0,0,ScrBreit,ScrHoch,0,0,0) = 0
MessageRequester("Error","Es konnte kein Arbeitsfenster geöffnet werden!",#MB_ICONERROR)
End : EndIf
TransparentSpriteColor(-1, <TransparentColorR>, <TransparentColorG>, <TransparentColorB>)
#tileset
#end tileset
#tileset
LoadSprite(#<TileSetIdentifier>BMP, "Data\\TS_<TileSetIdentifier>.bmp", 0)
#end tileset
#tileset
#map
Dim <MapIdentifier>(<MapWidth>, <MapHeight>)
Restore <MapIdentifier>_Data
For y = 1 To <MapHeight>
For x = 1 To <MapWidth>
Read <MapIdentifier>(x, y)
Next
Next
#end map
#end tileset
Procedure DrawTile(map, x, y, tile)
Select map
#tileset
#map
Case #<MapIdentifier>
ClipSprite(#<TileSetIdentifier>BMP, 0, tile * TileHeight(map), TileWidth(map), TileHeight(map))
DisplayTransparentSprite(#<TileSetIdentifier>BMP, x, y)
#end map
#end tileset
EndSelect
EndProcedure
#; ************************************************************************************************
#; * HAUPTSCHLEIFE ...
#; *
Repeat
ExamineKeyboard()
Delay(1)
Until KeyboardPushed(#PB_Key_Escape)
End
#; ************************************************************************************************
; --------------------------------------------------------
#; Mapdaten
#;
DataSection
#tileset
#map
<MapIdentifier>_Data:
#mapdata "\nData.l " "," "\nData.l " "\nData.l " ""
<TileNumber:"%3d">
#end mapdata
#end map
#end tileset
EndDataSection
#; ---------- end of generated file ----------
#end file Code : Tout sélectionner
; ************************************************************************************************
; * HAUPTSCHLEIFE ...
; *
Repeat
ExamineKeyboard()
Delay(1)
Until KeyboardPushed(#PB_Key_Escape)
End 
:'(