home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00970_Script_MusColl < prev    next >
Text File  |  1987-04-12  |  795b  |  31 lines
  1. on mouseUp
  2.   CambioCast
  3.   put chars(the frameLabel, 1, 1) into Tem
  4.   put chars(the frameLabel, 2, 2) into Alt
  5.   put chars(the frameLabel, 4, 4) into Sec
  6.   put chars(the frameLabel, 5, 5) into Cap
  7.   repeat with n = 10 to 20
  8.     PupMov n
  9.   end repeat
  10.   if Tem="e" then PupMov 21
  11.   else if tem="f" then PupMov 22
  12.   else if tem="c" then PupMov 23
  13.   else if tem="d" then PupMov 24
  14.   else if tem="b" then PupMov 25
  15.   else if tem="a" then PupMov 26
  16.   else
  17.     nothing
  18.   end if
  19.   if Alt="e" then PupMov 21
  20.   else if Alt="f" then PupMov 22
  21.   else if Alt="c" then PupMov 23
  22.   else if Alt="d" then PupMov 24
  23.   else if Alt="b" then PupMov 25
  24.   else if Alt="a" then PupMov 26
  25.   else
  26.     nothing
  27.   end if
  28.   if Cap="5" then PupMov 27
  29.   if Sec<>"x" then PupMov 28
  30.   updatestage
  31. end