home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / ECKESHOP.DXR / 00003.ls < prev    next >
Encoding:
Text File  |  1998-03-20  |  580 b   |  22 lines
  1. on puppetsl├╢schen
  2.   repeat with n = 30 down to 1
  3.     puppetSprite(n, 0)
  4.   end repeat
  5. end
  6.  
  7. on bestellen what
  8.   global gArtikelliste
  9.   puppetsl├╢schen()
  10.   set the text of member "Anzahl1" to "1"
  11.   set mylist to getProp(gArtikelliste, value("#" & what))
  12.   set the text of member "name1" to getAt(mylist, 1)
  13.   set the text of member "EPreis1" to getAt(mylist, 2)
  14.   if count(mylist) > 2 then
  15.     put "Optionen: " & getAt(mylist, 3)
  16.   end if
  17.   go("bestell")
  18.   puppetSprite(9, 1)
  19.   set the member of sprite 9 to member the number of member what of castLib "libshop"
  20.   updateStage()
  21. end
  22.