Guyz! Guyz! Help me! Can anyone help me tweek this game for me?
I need:
1. 'Bullets' icons appear randomly at random times in the playing area.
2. Both players can pick up these bullets & started shooting!
3. err.. networking?
Thankz a bunch!
rem Loading sounds
gosub _load_sounds
_start_over:
sync rate 0 : sync on : hide mouse : dim grid(639,479) : ink rgb(255,255,255),0
rem Opening screen : Game Introduction
set text size 100
set text font "OCR A Extended"
ink rgb(255,0,0),rgb(0,0,0)
do
center text 325,150,"Tron"
set cursor 247,330
print "Press 1 for One Player"
set cursor 245,350
print "Press 2 for Two Players"
set cursor 270,370
print "Press H for Help"
if inkey$()="1" then play sound 2 : exit
if inkey$()="2" then play sound 2 : gosub _2players
if inkey$()="h" then play sound 2 : gosub _help
sync
loop
cls
for a=0 to 639 : grid(a,0)=1 : grid(a,479)=1 : dot a,0 : dot a,479 : next a
for a=0 to 479 : grid(0,a)=1 : grid(639,a)=1 : dot 0,a : dot 639,a : next a
x=50 : y=100 : d=2 : keycheck=timer() : ex=600 : ey=100 : ed=4 : c=0
wait 1000
do
if d=1 : dec y : endif : if d=2 : inc x : endif : if d=3 : inc y : endif : if d=4 : dec x : endif
if ed=1 : dec ey : endif : if ed=2 : inc ex : endif : if ed=3 : inc ey : endif : if ed=4 : dec ex : endif
if grid(x,y)=1 then play sound 1 : ink rgb(255,255,255),rgb(0,0,0) : center text 325,150,"YOU LOSE" : set cursor 245,350 : print "Please Wait Two Seconds" : wait 2000 : cls : goto _start_over
if grid(ex,ey)=1 then play sound 1 : ink rgb(255,255,255),rgb(0,0,0) : center text 325,150,"YOU WIN" : set cursor 245,350 : print "Please Wait Two Seconds" : wait 2000 : cls : goto _start_over
ink rgb(255,0,0),0 : dot x,y : ink rgb(0,255,0),0 : dot ex,ey : grid(x,y)=1 : grid(ex,ey)=1
if timer()>keycheck+125 : if leftkey()=1 : dec d : keycheck=timer() : if d=0 : d=4 : endif: endif : if rightkey()=1 : inc d : keycheck=timer() : if d=5 then d=1 : endif : endif
if ed=1 : if grid(ex,ey-1)=1 then c=1 : endif
if ed=2 : if grid(ex+1,ey)=1 then c=1 : endif
if ed=3 : if grid(ex,ey+1)=1 then c=1 : endif
if ed=4 : if grid(ex-1,ey)=1 then c=1 : endif
if c=1 : inc ed : c=0 : if ed=5 then ed=1 : if ed=0 then ed=4 : endif
sync
loop
_help:
cls
do
set text size 50
center text 325,10,"Help"
center text 325,120,"Controls"
set cursor 235,175
print "Right Arrow = Player 1 Right"
set cursor 245,190
print "Left Arrow = Player 1 Left"
set cursor 265,205
print "D = Player 2 Right"
set cursor 269,220
print "A = Player 2 Left"
center text 325,300,"Objective"
set cursor 200,360
print "The object of the game is to make your"
set cursor 223,375
print "opponent crash before you do."
set cursor 245,450
print "Press Enter to Continue"
if returnkey()=1 then play sound 3 : cls : goto _start_over
sync
loop
return
_2players:
cls
for a=0 to 639 : grid(a,0)=1 : grid(a,479)=1 : dot a,0 : dot a,479 : next a
for a=0 to 479 : grid(0,a)=1 : grid(639,a)=1 : dot 0,a : dot 639,a : next a
x=50 : y=100 : d=2 : keycheck=timer() : ex=600 : ey=100 : ed=4 : c=0
wait 1000
do
if d=1 : dec y : endif : if d=2 : inc x : endif : if d=3 : inc y : endif : if d=4 : dec x : endif
if ed=1 : dec ey : endif : if ed=2 : inc ex : endif : if ed=3 : inc ey : endif : if ed=4 : dec ex : endif
if grid(x,y)=1 and grid(ex,ey)=1 then play sound 1 : ink rgb(255,255,255),rgb(0,0,0) : center text 325,150,"DRAW" : set cursor 245,350 : print "Please Wait Two Seconds" : wait 2000 : cls : goto _start_over
if grid(x,y)=1 then play sound 1 : ink rgb(255,255,255),rgb(0,0,0) : set text size 72 : center text 325,150,"PLAYER 2 WINS" : set cursor 245,350 : print "Please Wait Two Seconds" : wait 2000 : cls : goto _start_over
if grid(ex,ey)=1 then play sound 1 : ink rgb(255,255,255),rgb(0,0,0) : set text size 72 : center text 325,150,"PLAYER 1 WINS" : set cursor 245,350 : print "Please Wait Two Seconds" : wait 2000 : cls : goto _start_over
ink rgb(255,0,0),0 : dot x,y : ink rgb(0,255,0),0 : dot ex,ey : grid(x,y)=1 : grid(ex,ey)=1
if timer()>keycheck+125 : if leftkey()=1 : dec d : keycheck=timer() : if d=0 : d=4 : endif: endif : if rightkey()=1 : inc d : keycheck=timer() : if d=5 then d=1 : endif : endif
if timer()>keycheck+125 : if inkey$()="a" : dec ed : keycheck=timer() : if ed=0 : ed=4 : endif: endif : if inkey$()="d" : inc ed : keycheck=timer() : if ed=5 then ed=1 : endif : endif
sync
loop
return
_load_sounds:
load music "general8.mid",1 : loop music 1
load sound "explode3.wav",1
load sound "steam.wav",2
load sound "brakes.wav",3
return
Snake? What happened?
Snake?
Snaaaaaaaaaaaaaaaake!!! - Colonel Roy Campbell
