home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / playsk / dressup.dxr / 00117.ls < prev    next >
Encoding:
Text File  |  1996-06-30  |  664 b   |  33 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on mouseDown
  6.   pictureType()
  7. end
  8.  
  9. on pictureType
  10.   global oldClickon, gPrintTypeList
  11.   repeat with channel = 2 to 6
  12.     if the clickOn = channel then
  13.       puppetSound(getAt(gPrintTypeList, channel))
  14.       set the visible of sprite (channel + 10) to 1
  15.       updateStage()
  16.       case channel of
  17.         5:
  18.           go("CANCEL")
  19.         6:
  20.           go("OK")
  21.         otherwise:
  22.           if oldClickon = channel then
  23.             nothing()
  24.           else
  25.             set the visible of sprite (oldClickon + 10) to 0
  26.             set oldClickon to channel
  27.           end if
  28.       end case
  29.       exit repeat
  30.     end if
  31.   end repeat
  32. end
  33.