Here’s a link TO “Redbox_sounds” IN my DROPBOX:
https://www.DROPBOX.com/sh/48cw3pileq41 ... Lm5na?dl=0
Code: Select all
REM red box / blue box wip
REM just having fun... old school!
REM 1 = nickel, 2 = dime, 3 = quarter
REM st and Koop soon
REM enjoy... oh, this is for education and fun. Please
REM don't use in the real world!
init:
sw=SCREEN_WIDTH()
sh=SCREEN_HEIGHT()
ox=sw/3
oy=sh/2
d$="redbox_5_real.wav"
n$="redbox_10_real.wav"
q$="redbox_25_real.mp3"
MUSIC d$ LOAD d$
MUSIC n$ LOAD n$
MUSIC q$ LOAD q$
GRAPHICS
GOSUB drawpad
BUTTON "1" TEXT "1" AT 10,40 SIZE 100,40
BUTTON "2" TEXT "2" AT 110,40 SIZE 100,40
BUTTON "3" TEXT "3" AT 210,40 SIZE 100,40
BUTTON "4" TEXT "4" AT 10,80 SIZE 100,40
BUTTON "5" TEXT "5" AT 110,80 SIZE 100,40
BUTTON "6" TEXT "6" AT 210,80 SIZE 100,40
BUTTON "7" TEXT "7" AT 10,120 SIZE 100,40
BUTTON "8" TEXT "8" AT 110,120 SIZE 100,40
BUTTON "9" TEXT "9" AT 210,120 SIZE 100,40
BUTTON "#" TEXT "#" AT 10,160 SIZE 100,40
BUTTON "0" TEXT "0" AT 110,160 SIZE 100,40
BUTTON "*" TEXT "*" AT 210,160 SIZE 100,40
LOOP:
IF BUTTON_PRESSED("1") THEN MUSIC d$ PLAY
IF BUTTON_PRESSED("2") THEN MUSIC n$ PLAY
IF BUTTON_PRESSED("3") THEN MUSIC q$ PLAY
GOTO LOOP
drawpad:
' 1️⃣2️⃣3️⃣
' 4️⃣5️⃣6️⃣
' 7️⃣8️⃣9️⃣
' #️⃣0️⃣*️⃣
' • • •
' 5 10 25
'full pad with st and kp soon
BUTTON "up" TEXT "⬆️" AT 45+ox,15+oy
BUTTON "press" TEXT "•" AT 45+ox,50+oy
BUTTON "down" TEXT "⬇️" AT 45+ox,85+oy
BUTTON "left" TEXT "⬅️" AT 0+ox,50+oy
BUTTON "right" TEXT "➡️" AT 90+ox,50+oy
RETURN