Power-Programmierung/CD1.mdf/logo/labybug/mystery.bug

Text File | 1989-12-31 | 3KB | 193 lines

to "poly  :d :a
forward :d
right :a
poly :d :a
end

to "mystery
CLEARTEXT
SPACE 5
PR [The list of suspects:]
SPACE 2
PR [John]
PR [Harry]
PR [Martha]
PR [Clyde]
PR [George]
SPACE 1
PR [Press "s" if you think you have the]
PR [crime solved.]
PR [Press "q" to question the suspects.]
MAKE "COM RQ
IF :COM = "s [CRIMESOLVED]
IF :COM = "q [QUESTION]
end

to "question
CT
SPACE 3
PR [Who do you want to question?]
MAKE "COM RQ
IF :COM = "j [John]
IF :COM = "g [George]
IF :COM = "m [Martha]
IF :COM = "c [Clyde]
IF :COM = "h [Harry]
end

to "check
MAKE "T ( 1 + INTEGER RANDOM 6 )
IF :T = 0 [MAKE "T 12]
end

to "start
CLEARTEXT
SPACE 5
SPACE 5
PR [Thomas Magnum was killed at]
PR "
CHECK
PRINT SE [the following time: ] WORD :T [ o'clock.]
WAIT 10
MYSTERY
end

to "crimesolved
CLEARTEXT
SPACE 5
PR [0 = Martha]
PR [1 = George]
PR [2 = Clyde]
PR [3 = Harry]
PR [4 = John]
PR [Well, smart guy, who dunnit?]
MAKE "COM RQ
IF :COM = :T [SOLVED STOP]
STUPID
end

to "solved
CLEARTEXT
SPACE 5
PR [You solved the crime!]
PR [Congratulations. You advance to the Pros!]
SPACE 2
PR [Want to solve another crime?]
IF RQ = "Y [START] [TOPLEVEL STOP]
end

to "stupid
CLEARTEXT
SPACE 5
PR [You are a lousy Private Eye!]
IF :T = 0 [PR [Martha dunnit!] TOPLEVEL ]
IF :T = 1 [PR [George dunnit!] TOPLEVEL ]
IF :T = 2 [PR [Clyde dunnit!] TOPLEVEL ]
IF :T = 3 [PR [Harry dunnit!] TOPLEVEL ]
IF :T = 4 [PR [John dunnit!] TOPLEVEL ]
end

to "dick
CLEARTEXT
SPACE 5
PR [12:00 In bedroom sleeping..]
PR [1:00 ?]
PR [1:30 Eating in kitchen.]
PR [2:30 Helping Martha clean.]
PR [3:00 Playing games in the arcade.]
PR [6:00 Thomas was dead, everybody left.]
PR [Press any key:]
IGNORE RC
MYSTERY
end

to "clyde
CLEARTEXT
SPACE 5
PR [12:00 In the lounge.]
PR [1:00 Eating in kitchen.]
PR [2:00 ?]
PR [2:30 Playing games in the arcade.]
PR [6:00 Thomas was dead, everybody left.]
PR [Press any key:]
IGNORE RC
MYSTERY
end

to "martha
CLEARTEXT
SPACE 5
PR [12:00 ?]
PR [12:30 Preparing lunch.]
PR [1:00 in kitchen eating.]
PR [2:00 cleaning up.]
PR [3:00 resting in bedroom.]
PR [5:00 in the TV room.]
PR [6:00 Thomas was dead, everybody left.]
PR [Press any key:]
IGNORE RC
MYSTERY
end

to "harry
CLEARTEXT
SPACE 5
PR [12:00 in lounge with John.]
PR [1:00 in the kitchen eating.]
PR [2:00 watching TV.]
PR [3:00 ?]
PR [3:30 in the arcade.]
PR [6:00 Thomas was dead, everybody left.]
PR [Press any key:]
IGNORE RC
MYSTERY
end

to "john
CLEARTEXT
SPACE 5
PR [12:00 in lounge.]
PR [1:00 in kitchen eating.]
PR [2:30 playing cards in the den.]
PR [4:00 blinking mad at my losses.]
PR [5:00 ?]
PR [6:00 Thomas was dead, everybody left.]
PR [Press any key:]
IGNORE RC
MYSTERY
end

to "pr  :LIST
PRINT :LIST
end

to "space  :SIZE
REPEAT :SIZE [PR []]
end

to "wait  :TIME
IF :TIME = 0 STOP
MAKE "TIME :TIME - 1
WAIT :TIME
end

to "ignore  :KEY
end

to "george
CLEARTEXT
SPACE 5
PR [12:00 In bedroom sleeping..]
PR [1:00 ?]
PR [1:30 Eating in kitchen.]
PR [2:30 Helping Martha clean.]
PR [3:00 Playing games in the arcade.]
PR [6:00 Thomas was dead, everybody left.]
PR [Press any key:]
IGNORE RC
MYSTERY
end

make "t "'2
ames in the arcade.]
PR [6:0