Happy

[Peter]

Hi,

And at the end of the day, humbug.
Und zum Ende des Tages, Unsinn.

Code: [Select]

include "asm.inc"
Window 640,480,1

sys  x, y, z
single a v

! timeBeginPeriod Lib "winmm.dll" (long uPeriod) As Long
! timeEndPeriod   Lib "winmm.dll" (long uPeriod  As Long

LoadSprite "bmp/muhu.bmp",5
LoadSprite "bmp/grass.bmp",1
LoadSprite "bmp/himmel.bmp",1

While Key(27)=0
  Sprite 3,0,0,640,480,0
  Sprite 1,250+*50,270+x+cos(a)*80,150,118,z
  Sprite 2,0,415,640,64,0
  color 255,255,255
  Text 180,8,12,"I Am A Happier Interpreter"
  a +=.1
  iF a>=360 Then a=0
  x = Atan(sin(a),cos(a))
  v +=.2
  iF v >=1
     v=0 
     z +=1
     iF z=5 Then z=0
  End iF
  redraw
  timeBeginPeriod (1)
  wait 32
  timeEndPeriod (1)
Wend
WinEnd
.

[JRS]

Code: [Select]

Show Sad


[Peter]

Hi John,

That's a special cow, she can the alphabet and the set theory.
I like the abilities of this cow.   

[Peter]

Alphabet 

Code: [Select]

include "asm.inc"
window 764,480,1
for i=1 to 5
    loadimage "muhs/muh" & i & ".bmp"
next

sys dx,cx,zx=1
float wAmp=8,wFreq=.4,x,m,vz

while key(27)=0
cls 0,0,255
x = x -.5 : m = x

for cx=0 to <imageH(zx)
m += wfreq
for dx=0 to <imageW(zx)   
    co = ImageGetPixel zx,dx,cx
    if co >0
       color GetR(co),GetG(co),GetB(co)
       drawpoint 200+dx*2+sin(m)*wAmp+1,150+cx*2,2         
    end if
next
next

vz +=.5
if vz >=1
   vz = 0
   zx +=1
   if zx=6 then zx=1
end if

color 200,200,255
text 150,32,20,"I CAN THE ALPHABET"
redraw
wait 10
wend
winEnd


.