Ach so, das teste ich mal!Kaeru Gaman hat geschrieben:also, wenn du die karten in 256x256 malst, darstellen kannst du sie so rechteckig wie du lustig bist, aber die eigentliche texture muss 2^x*2^x sein...
Gruß Markus
Kaeru Gaman hat geschrieben:> Das kann es nicht sein, die sind 96 x 128 pixel groß.
das meinte ich mit zweierpotenzen und quadratisch.
mach die vorlage in 128x128 und stell sie 96x128 dar...
Kaeru Gaman hat geschrieben:XD wir tippen beide zu schnell...
Jou, den habe ich gesucht.Kaeru Gaman hat geschrieben:> [vor-ehrfurcht-niederkniender-smilie]
dein findest du unter "Weitere Smilies ansehen"
und der sieht so aus:
Code: Alles auswählen
Procedure LoadCards()
Protected SpriteNr.w
SpriteNr = 0
; Eine KartenrRückseite lesen
Result = $ffffffff & LoadSprite(SpriteNr, "Cards\0.bmp", #PB_Sprite_Texture)
Result = Result & CreateSprite3D(SpriteNr, SpriteNr)
; Die 144 normalen Karten lesen
For Count1 = 1 To 12
For Count2 = 1 To 12
SpriteNr + 1
Result = Result & LoadSprite(SpriteNr, "Cards" + Str(Count2) + ".bmp", #PB_Sprite_Texture)
Result = Result & CreateSprite3D(SpriteNr, SpriteNr)
Next Count2
Next Count1
; 18 SkipBo-Karten lesen
For Count1 = 0 To 17
SpriteNr + 1
Result = Result & LoadSprite(SpriteNr, "Cards\13.bmp", #PB_Sprite_Texture)
Result = Result & CreateSprite3D(SpriteNr, SpriteNr)
Next Count1
; HIER ##################################
Debug Result
If Result = 0
MessageRequester("Fehler", "Die Kartenbilder konnten nicht geladen werden!", 0)
ProcedureReturn = #False
EndIf
ProcedureReturn = #True
EndProcedure
Hm, ich dachte das mit dem Result wäre sicher so, aber jetzt wo Du es sagst...Kaeru Gaman hat geschrieben:öh.. das was du da mit dem result machst is aber ungewöhnlich...
*erstma genau les*
...
*grübel*
hm.. also, wenn zwei der aufgerufenen befehle unterschiedliche erfolgsmeldungen rausgeben, können die sich trotzdem gegenseitig nullen.
Code: Alles auswählen
Result = 1
Result = Result * [Befehl...]
Result = Result * [Befehl...]
Result = Result * [Befehl...]
Result = Result * [Befehl...]
If Result 0 =
Meckermeldung...
EndIf