https://www.aoz.studio/
Example Code:
Code: Select all
#manifest:"pc" 'pc or amiga'
#fullScreen:true
#splashScreen:false
#displayWidth:800
#displayHeight:600
#googleFont:"acme"
#fps:false
#speed:"fast"
X=rnd(650)
Y=380
Screen Open 0,800,600,32,lowres
curs off
Volume 50
show
'blob definitions'
Remdesivir =1
coronavirus=2
Bob Remdesivir ,X,Y,1
bob scale Remdesivir ,0.1,0.1
Bob coronavirus,100,25,2
delta = 20
time=0
while 1
score=0
locate 5,0
print "When ready, press Left Mouse button"
while 1
if mouse key = 1 then exit
Wait Vbl
wend
hide
sam play 3
Bob coronavirus,rnd(700),rnd(500),2
bob scale coronavirus,0.3,0.3
time=timer
Sam Stop 1
Sam Play 1
while 1
if mouse key = 2 then exit
if bob col (Remdesivir,coronavirus)
Sam Play 2
X=rnd(650)
Y=380
Bob coronavirus,rnd(700),rnd(500),2
inc score
end if
Bob Remdesivir,x mouse-20, y mouse-20,1
if timer-time > 60 then exit
cls
locate 0,0
print "Virus Killed:";score
locate 20,0
print "Seconds Remaining:";60-int(timer-time)
Wait Vbl
wend
show
cls
locate 10,19
if score > 0
Sam Play 4
print "Great,";score;" Coronavirus Killed!"
else
Sam Play 5
print "Bad,";score;" Coronavirus Killed!"
end if
wend