Oxygen Basic

Programming => Example Code => Topic started by: Peter on December 13, 2015, 06:09:10 AM

Title: Xmas
Post by: Peter on December 13, 2015, 06:09:10 AM

Hello,
before I die:

Code: [Select]

include "asm.inc"
include "bass.inc"

Window 320,240,1
setframes 10
InitBass

color 255,255,255
Text 10,10,10,"Loading...."
Redraw
Wait 200

p1 = LoadSprite "bmp/xmasx3.bmp",3
s1 = LoadSound "bmp/jinglebe.mp3"
PlaySound s1
Cls 255,255,255
int z

while Key(27)=0
  Sprite p1,0,0,320,240,z
  z +=1
  iF z=3 then z=0
  Sync
wend

FreeBass
WinEnd

.

Title: Re: Xmas
Post by: Mike Lobanovsky on December 19, 2015, 06:49:00 PM

Thanks a lot, Peter! Greetings to you too! :D