Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
LOCAL l_tilex%,l_tiley%
aber beim aufrufplayer.m_loadsprite( "player.png",32, 32)steig mir das Programm mit der WIN8 meldung "...exe funktioniert nicht richtig" -> Programm beenden, aus.TYPE Tsprite
name$ // Spritename / Pfad
id% //
tile_x% // Tilegrösse
tile_y%
posx% // tileposition
posy%
frameid% // Frame ID
framequantitative% // Frameanzahl 0 bis ...
singelsprite% // singelsprite
rgb% // Transparenzfarbe
col_sound% // Collisonsound angabe 1,2,3.....
col_spriteangle% // Collision Sprite angabe | 1 oben | 2 Rechts | 3 Unten | 4 Links
Col_spriteid // Collision Sprite angabe von der id von anderen sprite.id
FUNCTION m_loadsprite% : lname$, ltile_x, ltile_y
LOCAL l_tilex%,l_tiley%
self.name$ = lname$
self.tile_x =ltile_x
self.tile_x = ltile_y
self.id = GENSPRITE()
LOADANIM self.name$, self.id, self.tile_x, self.tile_y
GETSPRITESIZE self.id, l_tilex%, l_tiley%
self.framequantitative% = INTEGER(l_tilex/self.tile_x)*INTEGER(l_tiley/self.tile_y)-1
// framequantitative% < 0 | sprite nicht geladen/vorhanden
// framequantitative% = 0 | singelsprite
// framequantitative% > 0 | anzahl der Frames im Tileset
RETURN self.framequantitative%
ENDFUNCTION
FUNCTION m_drawsprite%: lposx%,lposy%,lframeid% = 0
self.posx% = lposx
self.posy% = lposy
self.frameid% = lframeid
IF self.frameid% > self.framequantitative% THEN self.frameid% = 0
DRAWANIM self.id%, self.frameid%,self.posx%,self.posy%
RETURN self.frameid%
ENDFUNCTION
ENDTYPE
LOCAL player AS Tsprite
player.m_loadsprite( "player.png",32, 32)
@_MeineSprungmarke:
TYPE eins
a% // % = Integer
b%
// Funktion im Type
FUNCTION SUM% :
RETURN self.a% + self.b%
ENDFUNCTION
ENDTYPE
//-----------------------------
TYPE zwei
d AS eins
e%[1] // Array
ENDTYPE
//-----------------------------
LOCAL ich AS zwei
ich.d.a% = 2
ich.d.b% = 1
PRINT ich.d.SUM(),10,10
ich.e%[0] = ich.d.SUM() + 3
PRINT ich.e%[0],30,30
SHOWSCREEN
KEYWAIT