Sorry your browser is not supported!

Rem Project: BREAKOUT
Rem Created: 12/29/2003 10:08:04 PM
Rem ***** Main Source File *****
`Game rmake by Gerrit C.
`Loading text
set cursor screen width()/2,screen height()/2
print "loading: ";loading$
`Loads Objects
gosub _load_objects
`Sets ub objects
gosub _setup_objects
`main loop
sync on:do
sync:loop
`loads objects
_load_objects:
`make boxes
for boxmake=1 to 10
make object box boxmake,2,1,1
loading$="/box/";type boxmake as string
next boxmake
loading$="/paddle"
`make paddle
make object box 11,boxsize,1,1
loading$="/skysphere"
make object sphere 12,30
return
`sets up objects
_setup_objects:
for boxnum=1 to 10
if boxnum=5 then boxposy=2
boxpos=boxpos+3
position object boxnum,boxposx,boxposy,0
r = rnd(255):g = rnd(225):b = rnd(225)
color object boxnum,RGB(r,g,b)
next boxnum
return

Rem Project: BREAKOUT
Rem Created: 12/29/2003 10:08:04 PM
Rem ***** Main Source File *****
`Game rmake by Gerrit C.
`Loading text
set cursor screen width()/2,screen height()/2
print "loading: ";loading$
`Loads Objects
gosub _load_objects
`Sets ub objects
gosub _setup_objects
`main loop
sync on:do
sync:loop
`loads objects
_load_objects:
`make boxes
for boxmake=1 to 10
make object box boxmake,2,1,1
loading$="/box/";type boxmake as string
next boxmake
loading$="/paddle"
`make paddle
make object box 11,boxsize,1,1
loading$="/skysphere"
make object sphere 12,30
return
`sets up objects
_setup_objects:
for boxnum=1 to 10
if boxnum=5 then boxposy=2
boxpos=boxpos+3
position object boxnum,boxposx,boxposy,0
r=rnd(200):g=rnd(200):b=rnd(200)
color object boxnum,r,g,b
next boxnum
position object 11,0,7,0
position camera 0,4,3
point camera 0,4,0
return

`whhhhhoooooooooooo \m/ >< \m/

Rem Project: BREAKOUT
Rem Created: 12/29/2003 10:08:04 PM
Rem ***** Main Source File *****
`Game rmake by Gerrit C.
`Loading text
set cursor screen width()/2,screen height()/2 : print "loading: ";loading$
`Loads Objects
gosub load_objects
`Sets ub objects
gosub setup_objects
`main loop
sync on:do

sync:loop

`loads objects
load_objects:
`make boxes
for boxmake=1 to 10
make object box boxmake,2,1,1
type boxmake as string : end type : loading$="/box/";boxmake
next boxmake
`make paddle
loading$="/paddle" : make object box 11,boxsize,1,1
loading$="/skysphere" :make object sphere 12,30
return

`sets up objects
setup_objects:
for boxnum=1 to 10
if boxnum=5 then boxposy=2 : boxpos=boxpos+3
position object boxnum,boxposx,boxposy,0
r=rnd(200):g=rnd(200):b=rnd(200) : color object boxnum,r,g,b
next boxnum
position object 11,0,7,0
position camera 0,4,3 : point camera 0,4,0
return
`whhhhhoooooooooooo \m/ >< \m/

Rem Project: BREAKOUT
Rem Created: 12/29/2003 10:08:04 PM
Rem ***** Main Source File *****
`Game rmake by Gerrit C.
`Loading text
set cursor screen width()/2,screen height()/2 : print "loading: ";loading$
`Loads Objects
gosub load_objects
`Sets ub objects
gosub setup_objects
`main loop
sync on:do

sync:loop

`loads objects
load_objects:
`make boxes
for boxmake=1 to 10
make object box boxmake,2,1,1

loading$="/box/"+str$(boxmake)
next boxmake

`make paddle
loading$="/paddle" : make object box 11,boxsize,1,1
loading$="/skysphere" :make object sphere 12,30
return



`sets up objects
setup_objects:
for boxnum=1 to 10
if boxnum=5 then boxposy=2 : boxpos=boxpos+3
position object boxnum,boxposx,boxposy,0
red=rnd(200):green=rnd(200):blue=rnd(200) : color object boxnum,rgb(red,green,blue)
next boxnum
position object 11,0,7,0
position camera 0,4,3 : point camera 0,4,0
return
`whhhhhoooooooooooo \m/ >< \m/

Type CharStats
Name as String
Strength as Integer
Vigor as Integer
Endtype

Dim Charstats(1) as Charstats
Charstats(1).Name = "Bob"
Charstats(1).Strength = 5
Charstats(1).Vigor = 10