Sorry your browser is not supported!

function textandimage(image,x,y,text$)
paste image image,x,y
rem The 10 depends on the image size
set cursor x+10,y
print text$
mousein=0
if mousex()>x and mousex()<x+10
  if mousey()>y and mousey()<y+10
    if mouseclick() then mousein=1
  endif
endif
endfunction mousein

Rem Project: Death Timer and Counter
Rem Created: 1/24/2007 10:05:56 AM

Rem ***** Main Source File *****
`setup
sync on:sync rate 30
cls

gosub load_screen
gosub player_count
gosub player_names
gosub death_image


`main loop
do
   set text size 10
   print "Click On Your Skull If You *DIE*"
   set text size 25
   for b = 1 to p_count
      c = b
      print p_name$(b)," has died ",p_deaths(c)," times"
   next b

`exit button
   set text size 10
   print "press <Q> to Quit"
   if keystate (16)=1 then end
sync
cls
loop
end

`setup screen
load_screen:
do
   set text size 14
   set text to bold
   center text screen width()/2,screen height()/2,"Get Your Player Count and Names Ready (press spacebar when ready)"
   sync
   if spacekey()=1 then cls:return
loop

`get player count
player_count:
do
cls:sync
   center text screen width()/2,(screen height()/2)+20,"How Many Players Do You Have?"
   sync
   input "_",p_count
   print p_count,", okay, please wait."
   sync
   dim p_name$(p_count)
   dim p_deaths(p_count)
wait 1000
return
loop

`get player names
player_names:
   for a = 1 to p_count
      input "player's name ",p_name$(a)
   next a
return

`get number of death images
death_image:
 for d = 1 to p_count
 e = d
 load image "media\death.png",e
 next d
return