home *** CD-ROM | disk | FTP | other *** search
/ Champak 48 / cdrom_image.iso / Games / rollerrush / game.dcr / Internal_143_backtocalendar.ls < prev    next >
Encoding:
Text File  |  2007-10-01  |  494 b   |  34 lines
  1. property sd, spriteNum
  2.  
  3. on beginSprite me
  4.   sd = sprite(spriteNum)
  5.   sd.blend = 0
  6.   sd.visible = 1
  7. end
  8.  
  9. on mouseEnter me
  10.   playSound(9, "mouseover")
  11.   sd.blend = 100
  12. end
  13.  
  14. on mouseLeave me
  15.   sd.blend = 0
  16. end
  17.  
  18. on mouseUp me
  19.   global gCurrProfile
  20.   playSound(9, "mousedown1")
  21.   lev = 0
  22.   repeat with b = 1 to 40
  23.     if gCurrProfile.DayPassed[b] = 0 then
  24.       lev = b
  25.       exit repeat
  26.     end if
  27.   end repeat
  28.   if lev < 21 then
  29.     go("CalendarJuly")
  30.   else
  31.     go("CalendarAugust")
  32.   end if
  33. end
  34.