home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / acacia / results.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1996-11-13  |  370 b   |  20 lines
  1. on exitFrame
  2.   global gMyPerc
  3.   puppetSprite(8, 1)
  4.   puppetSprite(9, 1)
  5.   if gMyPerc < 25 then
  6.     set result to "Res1"
  7.   else
  8.     if gMyPerc < 50 then
  9.       set result to "Res2"
  10.     else
  11.       if gMyPerc < 75 then
  12.         set result to "Res3"
  13.       else
  14.         set result to "Res4"
  15.       end if
  16.     end if
  17.   end if
  18.   set the memberNum of sprite 9 to member result
  19. end
  20.