CodeBase - Simon Says

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

0
0

Information

Uploaded: 10th May 2008 19:14

Modified: 1st Jan 1970 01:00

Author:  Mortus

Summary

Dim Simon(400) Sync On Do SimonCount = SimonCount + 1 Simon(SimonCount) = Rnd(3)+1 For Run = 1 To SimonCount Light = Simon(Run) Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Box (100*(Light-1)),0,(100*Light),100,RGB(255,255,255),RGB(255,255,255),RGB(255,255,255),RGB(255,255,255) Sync Sync Sleep 400 Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Sync Sync Sleep 100 Next Run For Run = 1 To SimonCount Choice = 0 While Mouseclick() = 0 Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Sync Sync EndWhile If MouseX() > 0 And MouseX() < 100 Then Choice = 1 If MouseX() > 100 And MouseX() < 200 Then Choice = 2 If MouseX() > 200 And MouseX() < 300 Then Choice = 3 If MouseX() > 300 And MouseX() < 400 Then Choice = 4 Box (100*(Choice-1)),0,(100*Choice),100,RGB(255,255,255),RGB(255,255,255),RGB(255,255,255),RGB(255,255,255) Sync Sync Sleep 400 Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Sync Sync Sleep 100 If Simon(Run) <> Choice Then Goto TheEnd Next Run Loop TheEnd: Print "You got "+Str$(SimonCount-1)+" rounds!" Sync Sync Sleep 1000 End

Full Description

Simon says game with four lights. The Lights light up and the computer adds to the sequence. it is a short, simple game meant to show how to use an array.

Comments

No comments yet.