home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00923_Script_Control < prev    next >
Text File  |  1987-04-12  |  299b  |  17 lines
  1. on CTRL
  2.   global gF, gI, gL
  3.   put 1800 into TG
  4.   if gF=4 then
  5.     repeat while soundBusy(3) = 1
  6.     end repeat
  7.     SPReset  
  8.     go next
  9.   else if the timer > TG then
  10.     SPReset
  11.     go to "TS"
  12.   else
  13.     set the locH of sprite 4 to gI + the timer*gL/TG
  14.     updatestage
  15.   end if
  16. end
  17.