-----------------------------------

slender0123

Sun Oct 06, 2013 1:01 pm


The Bouncing Game and RPSLS Updated

-----------------------------------

I decided to add some new stuff to my 2 old, simple games. check them out if you want.

The Bouncing Game

var num : int
var font1 : int
var font2 : int
var keys : array char of boolean %my variables and constants
var x, y, y2 := 50
var x2 := 200
var Y2,X2 := 200
var X, Y := 100
var y_velocity := 0
var y_velocity2 := 0
const gravity := 2
var bounce := 0
var try : string
var ch : char
font1 := Font.New("Gungsuh:20:bold")
font2 := Font.New("Comic Sans MS:20")
setscreen ("graphics:300;500, offscreenonly")
proc intro
cls
put skip
 Font.Draw("The Bouncing Game!",27, 475, font2, black)
put skip
 put "How long can you keep the balls in"
  put "the air?"
  put "Press -> and