Hallo alle,
das ich gerade dabei bin die Originale Hilfe zu ergänzen und dann neu zu Compilieren,
Arbeite ich nun Seite für Seite ab.
Aber ich komme hier mit dem ASSERT() nicht ganz klar.
Folgender Code geht nicht.
SETCURRENTDIR("Media") // go to media files
// Animations Grafik erzeugen, Kästenchen aus drei farben
DRAWRECT 0,0,32,32,RGB(0xff, 0x00, 0x00)
DRAWRECT 32,0,32,32,RGB(0xff, 0xff, 0x00)
DRAWRECT 64,0,32,32,RGB(0x00, 0xff, 0x00)
// Als Sprite kopieren
GRABSPRITE 1,0,0,96,32
// Denn Backbuffer wieder leeren
BLACKSCREEN
// Sprite als bmp speichern
SAVESPRITE "animation.bmp",1
// Ab hier kommt der Relevante Code
LOADANIM "animation.bmp",1,32,32
LOADANIM "animation.bmp",2,32,32
// Variablen für die Animation
LOCAL frame1%,frame2%
frame2 = 2
// Variablen für die Maus
LOCAL b1%,b2%,mx%,my%
LOCAL OK%
OK% = 0
ASSERT(OK%) //<<<--------------
WHILE TRUE
MOUSESTATE mx%,my%,b1%,b2%
DRAWANIM 1,frame1%,mx,my
DRAWANIM 2,frame2%,50,50
// b1 = linker mauseknopf
IF b1%
frame1% = 1
ELSE
frame1% = 0
ENDIF
// Kollision nur mit bild 1 wenn bild 2 das frame 1 gezeichnet wird
IF ANIMCOLL(1,2,50,50,2,frame1%,mx,my) = TRUE AND frame1% = 1
PRINT "Collision",100,100
ELSE
PRINT "Keine Collision",100,100
ENDIF
SHOWSCREEN
WEND
Fehlermeldung:
Quote*** Configuration: WIN32 ***
precompiling:
GPC - GLBasic Precompiler V.11.005 SN:107e42d5 - 3D, NET
"ABS.gbas"(17) warning : command deprecated : Use CLEARSCREEN
"ABS.gbas"(34) error : call to undefined function : ASSERT(OK%)