home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SERVKNOT.DXR / 00002_NEU!!!.ls < prev    next >
Encoding:
Text File  |  1998-09-05  |  1.7 KB  |  75 lines
  1. global aktuell, rl, rl_no, ol, aktAnzeige, JobToDo
  2.  
  3. on idle
  4.   global myRo
  5.   set myRo to rollOver()
  6. end
  7.  
  8. on exitFrame
  9.   if not (aktuell = the frameLabel) then
  10.     getthelists(the frameLabel)
  11.   end if
  12.   checkRects()
  13.   MenueButtons()
  14.   go(the frame)
  15. end
  16.  
  17. on mouseDown
  18.   continue()
  19.   pass()
  20. end
  21.  
  22. on getthelists which
  23.   set aktuell to the frameLabel
  24.   set aktAnzeige to 0
  25.   set mmember to the number of member which
  26.   set rl to value(the text of member mmember of castLib 1)
  27.   set rl_no to count(rl)
  28.   set ol to the text of member (mmember + 10) of castLib 1
  29. end
  30.  
  31. on checkRects
  32.   set mouseloc to point(the mouseH, the mouseV)
  33.   repeat with i = 1 to rl_no
  34.     if inside(mouseloc, getAt(rl, i)) then
  35.       Anzeige(i)
  36.       exit
  37.     end if
  38.   end repeat
  39.   ClearAnzeige()
  40. end
  41.  
  42. on Anzeige which
  43.   if not (aktAnzeige = which) then
  44.     if not ((the frameLabel = "D") and (which < 4)) then
  45.       puppetSound("Einrasten")
  46.       updateStage()
  47.     end if
  48.     set x to line which of ol
  49.     set the itemDelimiter to ";"
  50.     set y to item 1 of x
  51.     if not ((the frameLabel = "D") and (which < 4)) then
  52.       set the text of field "Ort" to y
  53.       puppetSprite(47, 1)
  54.       set the locH of sprite 47 to the mouseH + 10
  55.       set the locV of sprite 47 to the mouseV + 6
  56.       updateStage()
  57.     end if
  58.     if (y contains "- ") or (y contains ". ") then
  59.       set y to item 6 of x
  60.     end if
  61.     set the text of field "Stadt" to y
  62.     set the text of field "tel" to item 2 of x
  63.     set aktAnzeige to which
  64.     set the itemDelimiter to ","
  65.   end if
  66. end
  67.  
  68. on ClearAnzeige x
  69.   puppetSprite(47, 0)
  70.   set the text of field "Stadt" to " "
  71.   set the text of field "tel" to " "
  72.   set the text of field "Ort" to " "
  73.   set aktAnzeige to 0
  74. end
  75.