Asteroid-2, Casio Strikes Back (100.1 gama) Hidetake Jo 1997 all rights reserved ----------------------------------------------------------------------------- Finally spring break, but it's snowing outside... Participate in the Asteroid Contest... those of you that programmed in version of this game prior to 100.1 gama please update your program, or else you will not be eligible to participate in this contest. When you get a high score send me the score and the code that appears at the upper left hand corner of your screen to me, I will verify your score and put your name up in the COOOOL rebels list :-) IMPORTANT: When you finish programming this program, go verify that your program is generating the correct code for your score, since you I believe that you would be dissapointed if I rejected your highscore because you programmed the encryption program wrong... go to http://www-personal.umich.edu/~hjo/verify.html and test out your code and score... Ok Here is what the game is about: ______________________________ | | | ASTEROID2 | |_____________________________| | | | .. | .| . . | . | | = .. |. .. .|. .| . .. | | |. |. .| .. .| .| + | |_|_________|___|___|___|_____| | | | | ------------------------------- This is a rough ascii representation of the game... the numerous tiny dots that appears on the screen are the asteroids..(weee use your imaginations) There are also line segments which split each galaxy, and there is only one area in each line where you can pass. You must go from your base the + sign to the = sign. The only way to accomplish this mission is to avoid all the asteroids, succesfully go through the galaxy lines, and by avoid going across the same path you took before. (you'll see what I mean when you play) (OK I had a little too much to drink last nite... hey but it was my birthday man 3/23 :-P so what the heck...get some booze down your throat and you'll see what I'm talking about) The more you navigate through the asteroids the more points you get, so simply reaching the goal will not earn you that many points. Surprisingly... I think this is the first time I found my game rather tolerable. So check it out :-) ------------------------------------------------------------------------------ Da Rulez, the commndments. (1)Thou must stay in this galaxy, hence inbetween the two horizontal lines.. or the galaxy boundries (no I'm not high...) (2)Thou shalt avoid the asteroids (those dots) (3)Thou shalt not crash into the galaxy segments (the vertical lines) (4)Thou shalt not go over his own tracks (you leave behind radioactive waste, so you can't go over the same path you took before) (5)Thou shalt navigate wisely (yeah yeah...) Controls: arrow keys... (self explanetory) (6)Thou shalt reach the = sign (ok?) ------------------------------------------------------------------------------ The Keys Are Below: ViewWindow [shift] [F3] [F1] Cls [shift] [F4] [F1] Horizontal [shift] [F4] [F6] [F5] =/= [shift] [VARS] [F6] [F3] [F2] Int [OPTN] [F6] [F4] [F2] Ran# [OPTN] [F6] [F3] [F4] For [shift] [VARS] [F1] [F6] [F1] To [shift] [VARS] [F1] [F6] [F2] Next [shift] [VARS] [F1] [F6] [F4] Step [shift] [VARS] [F1] [F6] [F3] While [shift] [VARS] [F1] [F6] [F6] [F1] Do [shift] [VARS] [F1] [F6] [F6] [F3] LpWhile [shift] [VARS] [F1] [F6] [F6] [F4] WhileEnd [shift] [VARS] [F1] [F6] [F6] [F2] PxlTest [shift] [F4] [F6] [F6] [F4] PxlOn [shift] [F4] [F6] [F6] [F3] [F1] If [shift] [VARS] [F1] [F1] Then [shift] [VARS] [F2] IfEnd [shift] [VARS] [F1] [F4] F-Line [shift] [F4] [F6] [F2] [F2] Text [shift] [F4] [F6] [F6] [F2] : [shift] [VARS] [F6] [F5] Frac [OPTN] [F6] [F4] [F3] ---------------------------------------------------------------- NOTE: anything after // are comments and should not be typed into your calculator ------------------SOURCE CODE BELOW----------------------------- AxesOff ViewWindow 1,100,1,1,100,1 Cls Text 10,50,"ASTEROIDS" Horizontal 20 Horinzontal 70 For 5->A To 100 PxlOn Int 30Ran#+20,A Next For 4->A To 80 Step 10 F-Line A,20,A,70 A =/= 4 =>Text Int (20Ran#+25),Int (1.25A)," " // =/= is not equal to, there is 1 space between quotes A = 4 => Text Int (20Ran#+25), Int (1.25A-1),"=" Next 40->A: 110->B: -1->C: 0->D 1->Z:0->S:0->T Text 40,109,"+" S=0=>5->T //pay good attention here While Z=1 Do A+C->A B+D->B B>125=>0->Z B<3=>2->Z PxlTest A,B Ans=1=>0->Z PxlOn A,B Getkey->G 1 =/= Z=>1->G // =/= means not equal to sign Isz S LpWhile 0=G If G=28 Then 0->D:-1->C IfEnd If G=37 Then 0->D:1->C IfEnd If G=38 Then 0->C:-1->D IfEnd If G=27 Then 0->C:1->D IfEnd WhileEnd If 2=Z Then Text 55,20,"GOAL 200 EXTRA POINTS" S+200->S IfEnd S*2->N //pay very good attention here Z=0=>Text 55,44,"YOU CRASHED" N+T->N //pay very good attention here F-Line 25,49,71,49 F-Line 25,49,25,60 F-Line 25,60,71,60 F-Line 71,60,71,49 N*50->M //pay very good attention here For 35->A To 85 Text 27,A," " // 1 space inbetween quotations Next M-365->W //pay very good attention here Text 27,35,"SCORE:" //pay very good attention to the codes down here Text 27,65,S W+Int (98Ran#)+1->W //versions prior to 100.1 gama should fix this line W / 100 ->W Frac W ->U W-U->W 100U->U WU*100+U->W Text 3,1,"CODE:" Text 3,26,W --------------------------------------------------------------------------- Bug report, flame, or if I forgot to do something for you like, post your program, update your program, or give back money, just drop me a e-mail ;-) --hidetake