Author Topic: Xmas  (Read 2010 times)

0 Members and 1 Guest are viewing this topic.

Peter

  • Guest
Xmas
« 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

.

Mike Lobanovsky

  • Guest
Re: Xmas
« Reply #1 on: December 19, 2015, 06:49:00 PM »
Thanks a lot, Peter! Greetings to you too! :D