My simple game
Community Forums/Showcase/My simple game
| ||
Heres a guessing game I mad in acouple of hours, it's not much but pretty good for a 13 year old. ============================================================ AppTitle "Guess Master 2000" While Not KeyHit(1) SeedRnd MilliSecs() Delay 2000 sndanswer=Rnd(0,99) Color 0,246,0 Print "The object of the game is to guess the # the comp" Print "randomly chooses." Print "Rules: Pick a number between 0 And 100." Print "The comp will tell you how close you are to" Print "finding the # by giving clues." Print "If it says warm underneath the # you typed in" Print "then you are close, if it says hot you are closer," Print "if it says steaming hot you are closest." Print "If it says dry ice or freezing you are way off." Print "You get to try 10 times" Print "Press any key to start." WaitKey() Cls For turn= 0 To 9 Color 0,246,0 guess=Input("Pick a Number between 0 and 100:") difference = sndanswer - guess difference = Abs(difference) Rnd Color Select True Case difference >0 And difference<=5 Color 255,0,0 Print "steaming hot" Case difference >5 And difference<=10 Color 255,255,0 Print "hot" Case difference>10 And difference <=20 Color 200,200,0 Print "warm" Case difference>20 And difference <=30 Color 100,100,0 Print "not so warm" Case difference >30 And difference <= 40 Color 64,192,255 Print "cool" Case difference >40 And difference <=50 Color 0,0,255 Print "cold" Case difference >50 And difference <= 60 Color 0,0,220 Print "really cold" Case difference >60 And difference <=70 Color 400,400,400 Print "freezing" Case difference >70 And difference <=80 Color 200,200,200 Print "ice cold" Case difference >80 And difference <= 90 Color 500,500,500 Print "dry ice" Case difference >90 And difference <=99 Color 255,255,255 Print "liquid nitrogen" Case difference=0 Cls cool_sound=LoadSound( "mak\insectoids\sounds\cool.wav" ) PlaySound cool_sound Print "Congrats, YOU WON!" WaitKey() Exit End Select Next Cls If difference> 0 Then Print "Haha, YOU LOSE, SUCKA!" sndboom_sound=LoadSound( "mak\insectoids\sounds\boom.wav" ) PlaySound sndboom_sound EndIf WaitKey() Cls Print "Press any key for another game, <Esc> to exit" WaitKey() Wend End ============================================================ comment me |
| ||
Not bad of r a 13 years old? Well, at that age I was already trying better, with all due respects of course... The game is pretty nice, it would be handy if the .wav file was included, since the game will crash if you loose now, since I don't have that file :) The game is nothing special, but pretty nice and your code looks pretty nicely organized... |
| ||
thanks |
| ||
LOL ... I love it. very nice job. |
| ||
Tricrokra, You should have the files as they are part of the samples included in Blitz3D -------------------- Good start po. |
| ||
I am at work, so that I didn't try your game. But I would like to say: it's very good to start to program so YOUNG !! In a few year, you will be a master !! |