a few more attributes

a few more attributes; with bad names....
Topic Started: Feb 21 2008, 07:07 PM (499 Views)
Kyros the Hedgehog	Feb 21 2008, 07:07 PM Post #1
(still) a dude with a funky headband Posts: 29 Group: Members Member #3 Joined: 1-01-08 Favorite Desktop Environment one that's off the computer. it's easier to doodle on.	G'day peoples! a month and a few days later, I have two new real attributes games. (and a dud, which i made in a state of uncreative boredom ) new stuff: Perception Detection ...and the dud (unofficially named "Boredom") posting source soon... These things are uncommonly large for Attributes... anyhow, this will probably be the last of Attributes for a while (cringes at all the celebrating people). A few better and more interesting things are coming down the pipes eventually.
	The companion cube will not threaten to stab you. The cake is a lie. Spoiler: click to toggle that is a real spoier for a real thing that you may not want to know of (that is, if you own or will own yet haven't beaten Valve's game Portal). it's not like, to make you lose... uh... I'll stop now.


Kyros the Hedgehog	Feb 21 2008, 07:23 PM Post #2
(still) a dude with a funky headband Posts: 29 Group: Members Member #3 Joined: 1-01-08 Favorite Desktop Environment one that's off the computer. it's easier to doodle on.	the useful subroutine: converts a keycode for θ (y'know, a theta) from the key number to 0-9 and returns it again as θ. I used this in the two good ones, and probably will use it again if i ever make more of this series. Kyros the Hedgehog is open to tips on optimization. notes on notation- != not equal => greater than/equal <= less than/equal -> store variable _ is a not-overly-obvious blank space {L1} represents a list variable Spoiler: click to toggle Code: `PROGRAM:KNC :if θ=72:7->θ :if θ=73:8->θ :if θ=74:9->θ :if θ=82:4->θ :if θ=83:5->θ :if θ=84:6->θ :if θ=92:1->θ :if θ=93:2->θ :if θ=94:3->θ :if θ=102:0->θ` while you're here, I'll give you "boredom." my best score so far was 25558. it's really not involved or interesting. Spoiler: click to toggle Code: `PROGRAM:BOREDOM :disp "BEGIN-PRESS 2nd" :0->X :repeat ans=21 :getkey :end :0 :Repeat ans !=0 :X+1->X :output(8,1,X :getkey :end :disp "DONE!",X` how to play Kyros sez this press 2nd. don't press anything else, or you lose! kinda lame... Edited by Kyros the Hedgehog, Feb 21 2008, 07:28 PM.
	The companion cube will not threaten to stab you. The cake is a lie. Spoiler: click to toggle that is a real spoier for a real thing that you may not want to know of (that is, if you own or will own yet haven't beaten Valve's game Portal). it's not like, to make you lose... uh... I'll stop now.


Kyros the Hedgehog	Feb 21 2008, 07:38 PM Post #3
(still) a dude with a funky headband Posts: 29 Group: Members Member #3 Joined: 1-01-08 Favorite Desktop Environment one that's off the computer. it's easier to doodle on.	Perception I'm still open to better names and optimization tips on this. anyhow, same notation notes. Spoiler: click to toggle Code: `PROGRAM:PERCEPT :Disp "BEGIN- PUSH 2nd" :400-> P :0->X :Lbl 1 :clrhome :randint(0,9)->Y :output(randint(1,8),randint(1,16),Y :for (θ,1,P :end :clrhome :disp "PRESS NUMBER :0->θ :Repeat θ!=0 :getkey->θ :end :prgmKNC :if Y!=θ :goto S :X+5->X :P-5->P :if P<=0 :5->P :goto 1 :Lbl S :disp "done! score:",X` how to play Kyros sez this it generates a random number on the screen somewhere for a short time. then, you push the key corresponding to that number and move on. or lose. my best was 375.



Kyros the Hedgehog	Feb 21 2008, 09:19 PM Post #4
(still) a dude with a funky headband Posts: 29 Group: Members Member #3 Joined: 1-01-08 Favorite Desktop Environment one that's off the computer. it's easier to doodle on.	Detection finally, Detection, probably my best and favorite work since Persistence. still open to optimization and better names, yadda yadda. same notation notes. be sure you have program KNC, posted above. be warned that this is the biggest Attributes game so far... Spoiler: click to toggle Code: `PROGRAM:DETECT :">≥≤<"->str1 :randint(1,9)->Y :4->P :0->X :Lbl 1 :Disp "push guess :0->θ :repeat θ!=0 :getkey->θ :end :prgmKNC :if θ<Y:randint(1,2)->Z :if θ=Y:randint(2,3)->Z :if θ>Y:randint(3,4)->Z :disp θ :if randint(1,P)=1 and X=0 :then :disp sub(str1,randint(1,4),1) :1->X :else :disp sub(str1,Z,1 :end P-1->P :if P!=0 :goto1 :input "guess:", θ :disp Y :if θ=Y :then :disp "yes! you win!" :else :disp"no! fail!" :end` how to play note to self: REALLY don't push X instead of Z the computer follows 5 rules: 1. the number is between 1 and 9 2. you get 4 clues of your choice 3. the clues are either answered with "<", "<=", "=>", or ">" 4. a (pseudo)random three of these are true (if it's less than, one of the first two, equal to, one of the second or third, greater than, last two.) 5. one of them is randomly answered (a "lie"), and has a 50% chance of being not true. so, really, you press a button 1-9 to get a clue. it will tell you what it is, or "lie" about it. then you guess the number and either win or lose. I likes this game.



1 user reading this topic (1 Guest and 0 Anonymous)

<a href='http://delivery.zetabbs.com/adserver/www/delivery/ck.php?n=a731ce40&cb=4138269' target='_blank'><img src='http://delivery.zetabbs.com/adserver/www/delivery/avw.php?zoneid=29&cb=4138269&n=a731ce40&ct0=INSERT_CLICKURL_HERE' border='0' alt='' /></a>
« Previous Topic · Finished Projects · Next Topic »