TheGameCreators - CodeBase - Clue Suspect List

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 27th Dec 2004 18:26

Modified: 1st Jan 1970 01:00

Author: Trek

Summary

A program to replicate the suspect list in CLUE.

Full Description

After running low on the suspect lists in my board game of CLUE I decided to write a program to act as the list instead of scanning and printing half a million more of the sheets. During one game I whipped up the code for a text based beta-version of this program. Afterwards, I decided to make a full blown 3D version with a suspensful intro and several new effects in the Help and About pages. To check out the text version just copy the code into your DarkBASIC or DarkBASIC Pro editor and execute it. Or if you want to try out my 3D version you can download the 2 Mb zipped folder by typing the following URL intro your browser's adress box :<br /> <br /> http://roborangers.home.comcast.net/Clue.zip<br /> <br /> To find out more info on the making of this program and to see other productions I've made, visit my website at http://roborangers.home.comcast.net/Trek.html

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

hide mouse

set text font "Courrier New"

set text size 20

green=rgb(0,255,0)

ink green,green

if s1=0 then text 10,30,"Colonel Mustard - a"

if s1=1 then text 10,30,"|||||||||||||||||||||||||||"

if s2=0 then text 10,60,"Professor Plum - b"

if s2=1 then text 10,60,"|||||||||||||||||||||||||||"

if s3=0 then text 10,90,"Mr.Green - c"

if s3=1 then text 10,90,"|||||||||||||||||||||||||||"

if s4=0 then text 10,120,"Mrs. Peacock - d"

if s4=1 then text 10,120,"|||||||||||||||||||||||||||"

if s5=0 then text 10,150,"Miss Scarlet - e"

if s5=1 then text 10,150,"|||||||||||||||||||||||||||"

if s6=0 then text 10,180,"Mrs. White - f"

if s6=1 then text 10,180,"|||||||||||||||||||||||||||"

if w1=0 then text 200,30,"Knife - g"

if w1=1 then text 200,30,"|||||||||||||||||||||||||||"

if w2=0 then text 200,60,"Candlestick - h"

if w2=1 then text 200,60,"|||||||||||||||||||||||||||"

if w3=0 then text 200,90,"Revolver - i"

if w3=1 then text 200,90,"|||||||||||||||||||||||||||"

if w4=0 then text 200,120,"Rope - j"

if w4=1 then text 200,120,"|||||||||||||||||||||||||||"

if w5=0 then text 200,150,"Lead Pipe - k"

if w5=1 then text 200,150,"|||||||||||||||||||||||||||"

if w6=0 then text 200,180,"Wrench - l"

if w6=1 then text 200,180,"|||||||||||||||||||||||||||"

if r1=0 then text 390,30,"Hall - m"

if r1=1 then text 390,30,"|||||||||||||||||||||||||||"

if r2=0 then text 390,60,"Lounge - n"

if r2=1 then text 390,60,"|||||||||||||||||||||||||||"

if r3=0 then text 390,90,"Dining Room - o"

if r3=1 then text 390,90,"|||||||||||||||||||||||||||"

if r4=0 then text 390,120,"Kitchen - p"

if r4=1 then text 390,120,"|||||||||||||||||||||||||||"

if r5=0 then text 390,150,"Ballroom - q"

if r5=1 then text 390,150,"|||||||||||||||||||||||||||"

if r6=0 then text 390,180,"Conservatory - r"

if r6=1 then text 390,180,"|||||||||||||||||||||||||||"

if r7=0 then text 390,210,"Billaird Room - s"

if r7=1 then text 390,210,"|||||||||||||||||||||||||||"

if r8=0 then text 390,240,"Library - t"

if r8=1 then text 390,240,"|||||||||||||||||||||||||||"

if r9=0 then text 390,270,"Study - u"

if r9=1 then text 390,270,"|||||||||||||||||||||||||||"

text 50,400,"Hold down a suspects' corresponding letter to cross out the item."

if inkey$()="a" then s1=1

if inkey$()="b" then s2=1

if inkey$()="c" then s3=1

if inkey$()="d" then s4=1

if inkey$()="e" then s5=1

if inkey$()="f" then s6=1

if inkey$()="g" then w1=1

if inkey$()="h" then w2=1

if inkey$()="i" then w3=1

if inkey$()="j" then w4=1

if inkey$()="k" then w5=1

if inkey$()="l" then w6=1

if inkey$()="m" then r1=1

if inkey$()="n" then r2=1

if inkey$()="o" then r3=1

if inkey$()="p" then r4=1

if inkey$()="q" then r5=1

if inkey$()="r" then r6=1

if inkey$()="s" then r7=1

if inkey$()="t" then r8=1

if inkey$()="u" then r9=1

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Trek
CodeBase Entries:	19

CodeBase - Clue Suspect List