Sorry your browser is not supported!

Rem Project: Astervoid2
Rem Created: 02/16/05 1:18:34 AM

Rem ***** Main Source File *****
rem Written by: Jeremy Davis (C)COPYRIGHT GZMGames
set text font \"arial black\"
set text size 20
fader(250,200,\"faded sentance\",255,0,0)
fader(250,200,\"Next sentence\",0,255,0)
text 0,0,\"done\"
wait key
repeat
 key$ = inkey$()
until key$ <> \"\"
if key$ =\"\"
 rem sync on
 rem backdrop on
  for x=300 to 700
   if object exist(x)=1 then delete object x
  next x
  goto cheatinput
else
  goto begingame
endif

function fader(x,y,value$,r,g,b)
   while r > 0 or g > 0 or b > 0
      ink rgb(r,g,b),0
      text x,y,value$
      dec r:if r < 0 then r = 0
      dec g:if g < 0 then g = 0
      dec b:if b < 0 then b = 0
      sleep 10
   endwhile
   ink rgb(255,255,255),0
endfunction


Begingame:
ink rgb(0,0,255),0
print \"   Welcome to AsterVoid2:Astervoid Belt(C)\"
ink rgb(255,255,255),0
PRINT \"CONTROLS:\"
PRINT \"UP ARROW=MOVE FORWARD\"
PRINT \"LEFT AND RIGHT ARROWS=MOVE LEFT AND RIGHT\"
PRINT \"SPACEBAR=FIRE, IF HELD DOWN NOTHING WILL HAPPEN\"
PRINT \"S=SHIELDS, REMEBER TO TURN THEM OFF WHEN YOU DONT\"
PRINT \"NEED THEM THEY GO FAST\"
PRINT \"Z=BIGGER SHIELD \'ZAPPER\'\"
PRINT \"ESC=EXITS GAME\"
PRINT \"PRESS ANY KEY TO CONTINUE\"
pRINT \"JOYSTICK COMPATIBLE\"
Print \"to put in a cheat press p\"
print \"once you activate a cheat, wait a few seconds for it to load\"
repeat
 key$ = inkey$()
until key$ <> \"\"
if key$ =\"p\"
 rem sync on
 rem backdrop on
  for x=300 to 700
   if object exist(x)=1 then delete object x
  next x
  goto cheatinput
else
  goto game0
endif

REM start cheat
cheatinput:
rem the varible
var$=\"\"

do
set cursor 100,200
input \"Type in Cheat then press Enter  \",var$

if var$=\"cheatall\" then goto cheat1

if var$=\"invul\" then goto cheat2

loop




Rem game none cheats
   game0:

red=rgb(255,0,0)
blue=rgb(0,0,255)
white=rgb(255,255,255)
black=rgb(0,0,0)

rem default text color
ink rgb(255,255,255),0

menu1:
cls
rem menu background
box 20,20,620,460,black,black,black,white
rem game title
center text 320,100,\"Astervoid2\"
ink rgb(0,0,0),0
repeat
if mouseclick()=0 then MOUSEOLD=0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink red,0 :text 100,200,\"Start\"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(255,255,255),0 :text 100,200,\"Start\"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : goto gamenocheat
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink red,0 :text 100,230,\"Controls\"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(255,255,255),0 :text 100,230,\"Controls\"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : goto controls0
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink red,0 :text 100,260,\"Credits\"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(255,255,255),0 :text 100,260,\"Credits\"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : goto credits
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310))) then ink red,0 :text 100,290,\"Exit\"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 289) or (mousey() >= 309))) then ink rgb(255,255,255),0 :text 100,290,\"Exit\"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : end
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=320) and (mousey() <=340))) then ink red,0 :text 100,320,\"Cheats\"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 319) or (mousey() >= 339))) then ink rgb(255,255,255),0 :text 100,320,\"Cheats\"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=320) and (mousey() <=340) and (mouseclick()=1) AND (MOUSEOLD=0)))) then MOUSEOLD=mouseclick() : goto cheatmenuinput

until false

wait key
repeat
 key$ = inkey$()
until key$ <> ""
if key$ =""
 rem sync on
 rem backdrop on
  for x=300 to 700
   if object exist(x)=1 then delete object x
  next x
  goto cheatinput
else
  goto begingame
endif