Just to mention. SOUNDPLAYING() is not working, but ISMUSICPLAYING() do. In this case, not sure why..... Also if you play a sound that does not exists, all sounds stops its seen (like a HUSH).
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.
Show posts Menu
MOUSESTATE mx, my, mba, mbb
IF mba=1
PRESSED=PRESSED+1
ELSE
PRESSED=0
ENDIF
SUB GLB_ON_LOOP:
?IFDEF HTML5
LOCAL x,y
GETSCREENSIZE x,y
LOCAL changed=CheckCanvasSize()
IF changed=TRUE
OS_Default_Settings()
ENDIF
?ENDIF
IF S_Status$="load"
LOADGAME()
PaintLogo()
LOADER=LOADER+1
ENDIF
IF S_Status$="pause"
UpdateTicks=update_Delay()
Ctrl()
GamePaint()
ENDIF
IF S_Status$="show" OR S_Status$="menu"
UpdateTicks=update_Delay()
IF UpdateTicks<1
GameUpdate()
ELSE
LOCAL updat=INTEGER(UpdateTicks)
UpdateTicks=UpdateTicks/updat
FOR i=1 TO updat
GameUpdate()
NEXT
UpdateTicks=UpdateTicks*updat
ENDIF
GamePaint()
ENDIF
IF S_Status$="menu"
GameMenu()
ENDIF
SHOWSCREEN
IF S_Status$="show" OR S_Status$="menu" OR S_Status$="pause"
IF GAMEFADE=0 AND GAMEON=0 //AND Objectdata[0].dat[16]=1
RESET(1)
POWER=1
Map_LoadXML()
UpdateTicks=update_Delay()
UpdateTicks=0.1
GAMEON=1
DoRandomLevels=0
ENDIF
IF GAMEON=1
GAMEFADE=GAMEFADE+0.05*UpdateTicks
IF GAMEFADE>1 THEN GAMEFADE=1
ELSEIF GAMEON=0
GAMEFADE=GAMEFADE-0.05*UpdateTicks
IF GAMEFADE<0
GAMEFADE=0
ENDIF
ENDIF
ENDIF
ENDSUB