here is my first game, i didn't set out on making a game but just kept adding code, and it turned into a game(target practice); well a basic shell of a game anyway...
-im sure there are much better ways of going about it but my skills are limited as i am new to programing
set display mode 800,600,32
sync on : sync rate 32
hide mouse
``set my x y variables to the mouse position and position the mouse in
``the middle of the screen
xpos#= mouseX() : ypos#= mouseY() : position mouse screen width()/2,screen height()/2
``my variables
lngth#=0
trythis=0
trythat=0
score=0
tryagain=0
shiz=0
lngth1=0
``load the images and sounds
load image "hs.bmp",2
load image "retic.bmp",3
load sound "gun.wav",1
do
``clear the screen
cls
``time delay to randomize the target sprite
``and regulate the score counter
if trythis=0
gosub _sprites : trythis=1
endif
if trythis=1
pssy=pssy+1
if pssy=35
trythis=0 : trythat=0
lngth=lngth+2
endif
endif
if pssy>=35 then pssy=0
``end of time delay
`` go to some subroutines
gosub _moveretic : gosub _scrwalls
``here is where the the program detects if
``you hit the target and adds a point if you did
if sprite collision(2,3) and mouseclick()=1
if trythat=0
score=score + 1 : trythat=1
endif
endif
``play gun shot sound when mouse 1 is clicked
if tryagain=0
if mouseclick()=1
play sound 1
tryagain=1
endif
endif
if tryagain=1
shiz=shiz+1
if shiz>=35
tryagain=0
endif
endif
if shiz>=35 then shiz=0
``end of gun shot
``print your score and frames per second
if lngth<=39
print "Score: ",score : print " " : print "fps: ",screen fps()
endif
if lngth>=40
print "Your Final Score: ",score : print " " : print "fps: ",screen fps()
hide sprite 2
endif
if lngth>50
show sprite 2
lngth=0
score=0
endif
sync
loop
``this subroutine will position the reticule where you move the mouse
_moveretic:
if mousemoveX() then xpos# = mouseX() : if mousemoveY() then ypos# = mouseY()
sprite 3,xpos#,ypos#,3
return
``this subroutine keeps the mouse on the screen as long as
``the resolution is at 800X600
_scrwalls:
if ypos# >=590 then ypos# = 589 : if ypos# <=10 then ypos# = 9
if xpos# >=790 then xpos# = 789 : if xpos# <=10 then xpos# = 9
return
``this code places the target in a random location
``on the screen
_sprites:
s1Xpos#=rnd(760) : s1Ypos#=rnd(560)
sprite 2,s1Xpos#,s1Ypos#,2
return
--don't forget to download the media--
-please let me know what you think, and how you would go about making this type of game
Intel P4 3.6Ghz 1G PC3200 DDR
