Post by code on Feb 13, 2019 22:55:13 GMT
Hit the right buttons , when the 'above' image is the same.
It works here on windows 7.
Free to modify/make it better /your version.
Leave your comments below.
insert code hereUpperLeftX = 20
UpperLeftY = 20
WindowWidth = 820
WindowHeight = 820
nomainwin
statictext #scr.score,"",10, 10,300,40
statictext #scr.s1,"",210, 10,300,40
graphicbox #scr.gbtop, 110, 110, 400, 200
graphicbox #scr.gb1, 10, 310, 200, 200
graphicbox #scr.gb2, 210, 310, 200, 200
graphicbox #scr.gb3, 410, 310, 200, 200
button #scr.sb, "New...", [sb], UL, 400, 610,100,60
button #scr.b1, "Click when same...", [b1], UL, 60, 510,120,60
button #scr.b2, "Click when same...", [b2], UL, 260, 510,120,60
button #scr.b3, "Click when same...", [b3], UL, 460, 510,120,60
open " " for graphics as #scr
print #scr, "trapclose [quit]"
print #scr, "fill black;flush;"
#scr.gbtop,"font haxton_logos_tt 80 "
#scr.gb1,"font haxton_logos_tt 80 "
#scr.gb2,"font haxton_logos_tt 80 "
#scr.gb3,"font haxton_logos_tt 80 "
tgb$="h"
print #scr.gbtop, "fill black;backcolor black;color yellow;"
print #scr.gbtop, "\\";tgb$;
print #scr.gbtop, "flush"
print #scr.gb1, "fill black;backcolor black;color yellow;"
print #scr.gb1, "\\ a"
print #scr.gb1, "flush"
print #scr.gb2, "fill black;backcolor black;color green;"
print #scr.gb2, "\\ e"
print #scr.gb2, "flush"
print #scr.gb3, "fill black;backcolor black;color blue;"
print #scr.gb3, "\\ g"
print #scr.gb3, "flush"
a=60
t=0
b=0
print #scr.score,"Score :";t;
print #scr.s1,"Time left: ";a;
playwave "C:\windows\media\tada.wav"
timer 1000, [tc]
wait
[sb]
t=0
b=0
a=60
print #scr.s1,"Time left: ";a;
print #scr.score,"Score :";t;
timer 1000, [tc]
wait
[tc]
if a < 61 then
a=a-1
print #scr.s1,"Time left: ";a;
b=int(rnd(1)*3) + 1
'' a yellow
'' e green
'' g blue
if b=1 and a > 0 then
print #scr.gbtop, "up ; home ; down ; north ; go 50"
print #scr.gbtop, "fill black;backcolor black;color yellow;"
print #scr.gbtop, "\\ a"
print #scr.gbtop, "flush"
end if
if b=2 and a > 0 then
print #scr.gbtop, "up ; home ; down ; north ; go 50"
print #scr.gbtop, "fill black;backcolor black;color green;"
print #scr.gbtop, "\\ e"
print #scr.gbtop, "flush"
end if
if b=3 and a > 0 then
print #scr.gbtop, "up ; home ; down ; north ; go 50"
print #scr.gbtop, "fill black;backcolor black;color blue;"
print #scr.gbtop, "\\ g"
print #scr.gbtop, "flush"
end if
end if
if a < 1 then
a=0
print #scr.s1,"End "
end if
wait
[b1]
if b=1 and a > 0 then
t=t+100
print #scr.score,"Score :";t;
end if
wait
[b2]
if b=2 and a > 0 then
t=t+100
print #scr.score,"Score :";t;
end if
wait
[b3]
if b=3 and a > 0 then
t=t+100
print #scr.score,"Score :";t;
end if
wait
[quit]
close #scr
end
