home *** CD-ROM | disk | FTP | other *** search
/ Jommeke / Jommeke.iso / movies / spotdiff.dir / 00055_Script_55 < prev    next >
Text File  |  2000-02-23  |  1KB  |  57 lines
  1. on startclock
  2.   
  3.   global level,secs,sexpic,oldticks,startsecs
  4.   set oldticks=0
  5.   
  6.   set secs=float(190-(level*10))
  7.   if secs<10 then set secs=10
  8.   set startsecs=secs
  9.   
  10.   set sexpic=float(400/secs)
  11.   
  12.   starttimer  
  13. end
  14.  
  15. on updateclock
  16.   global level,secs,oldticks,sexpic,barch
  17.   
  18.   
  19.   
  20.   put the timer into ticks
  21.   put float(ticks-oldticks) into elapticks
  22.   put ticks into oldticks
  23.   
  24.   set secs=secs-float(elapticks/60)
  25.   --  put "secs"&&secs
  26.   
  27.   set barx=(secs*sexpic)-400
  28.   set the loch of sprite barch to barx
  29.   if secs<=0 then lose
  30.   
  31. end
  32.  
  33.  
  34. on timebonus
  35.   
  36.   global secs,level,startsecs
  37.   put 20 into basic
  38.   set bonus=basic-(level/2)
  39.   if bonus<2 then set bonus=2
  40.   
  41.   put "BONUSBONUSBONUSBONUSBONUSBONUSBONUS"&&BONUS
  42.   set secs=secs+bonus
  43.   if secs>startsecs then set secs=startsecs
  44.   
  45. end
  46.  
  47. on timefine
  48.   global secs,level,startsecs
  49.   put 2 into basic
  50.   set fine=basic+(level/3)
  51.   if fine>8 then set fine=8
  52.   
  53.   put "FINEFINEFINEFINEFINEFINEFINEFINEFINEFINEFINEFINEFINE"&&FINE
  54.   set secs=secs-fine
  55. end
  56.  
  57.