home *** CD-ROM | disk | FTP | other *** search
/ Human & Space in Asia / ARIF_ASCI.ISO / pc / arif.dir / 00519.ls < prev    next >
Encoding:
Text File  |  1996-09-25  |  544 b   |  20 lines
  1. on mouseUp
  2.   global WhichFoto, WhichGroup, Fotos, CursorSpr, ilkkare, sonkare, Volum
  3.   if WhichFoto < Fotos then
  4.     set the castNum of sprite CursorSpr to the number of cast "ΓÇ╣kona Karesi"
  5.     updateStage()
  6.     set WhichFoto to WhichFoto + 1
  7.     if WhichFoto = Fotos then
  8.       set the cursor of sprite 4 to 0
  9.     else
  10.       set the cursor of sprite 4 to 200
  11.     end if
  12.     repeat with a = ilkkare to sonkare
  13.       DuzeltCursor(a)
  14.     end repeat
  15.     set the volume of sound 2 to Volum
  16.     puppetSprite(1, 1)
  17.     go("ResetFoto")
  18.   end if
  19. end
  20.