home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / ECKESHOP.DXR / 00018.ls < prev    next >
Encoding:
Text File  |  1998-03-20  |  377 b   |  20 lines
  1. on mouseUp
  2.   set myObject to the frameLabel
  3.   puppetSound("Klick")
  4.   updateStage()
  5.   bestellen(myObject)
  6.   if myObject = "Kappe" then
  7.     go(label("bestell") + 1)
  8.   else
  9.     if myObject = "Jacke" then
  10.       go(label("bestell") + 2)
  11.     else
  12.       if myObject = "Shirt" then
  13.         go(label("bestell") + 3)
  14.       else
  15.         go("bestell")
  16.       end if
  17.     end if
  18.   end if
  19. end
  20.