home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SHOWEINF.DXR / 00016.ls < prev    next >
Encoding:
Text File  |  1998-09-05  |  1013 b   |  43 lines
  1. on doAnzeige x
  2.   puppetSound("Einrasten")
  3.   updateStage()
  4.   if the frameLabel = "Ruhr" then
  5.     set first to 28
  6.   else
  7.     set first to 40
  8.   end if
  9.   set y to item 1 of x
  10.   if y contains "- " then
  11.     set y to item 6 of x
  12.   end if
  13.   set the text of field "Stadt" to y
  14.   set the text of field "tel" to item 2 of x
  15.   repeat with i = 0 to 3
  16.     set the visible of sprite (first + i) to 1
  17.   end repeat
  18.   if item 3 of x contains "ja" then
  19.     set the visible of sprite (first + 4) to 1
  20.   else
  21.     set the visible of sprite (first + 4) to 0
  22.   end if
  23.   if item 4 of x contains "ja" then
  24.     set the visible of sprite (first + 5) to 1
  25.   else
  26.     set the visible of sprite (first + 5) to 0
  27.   end if
  28. end
  29.  
  30. on ClearAnzeige x
  31.   if the frameLabel = "Ruhr" then
  32.     set first to 28
  33.   else
  34.     set first to 40
  35.   end if
  36.   repeat with i = 3 to 5
  37.     set the visible of sprite (i + first) to 0
  38.   end repeat
  39.   set the text of field "Stadt" to "- - -"
  40.   set the text of field "tel" to "- - -"
  41.   set the text of field "Ort" to " "
  42. end
  43.