home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SERVADRE.DXR / 00003.ls < prev    next >
Encoding:
Text File  |  1998-03-18  |  2.6 KB  |  105 lines
  1. global mycity
  2.  
  3. on idle
  4.   set mycity to rollOver()
  5. end
  6.  
  7. on exitFrame
  8.   if not ("Nord;2,Sued;-2,Ruhr" contains the frameLabel) then
  9.     if rollOver(27) then
  10.       set the visible of sprite 32 to 1
  11.     end if
  12.     if (mycity > 33) and (mycity < 46) then
  13.       hibutton()
  14.     else
  15.       unhibutton()
  16.     end if
  17.     if the frameLabel = "Karte" then
  18.       repeat with i = 10 to 20
  19.         set the visible of sprite i to 1
  20.       end repeat
  21.     end if
  22.     go(the frame)
  23.     if (mycity = 47) and (the frameLabel = "KARTE") then
  24.       go("Sued;-2")
  25.     end if
  26.     if (mycity = 47) and (the frameLabel = "FRAGEN") then
  27.       go(the frame + 1)
  28.     end if
  29.     exit
  30.   end if
  31.   set NordSued to the text of member item 1 of the frameLabel
  32.   set Eintrag to mycity - 4
  33.   set x to line Eintrag of NordSued
  34.   if mycity = 2 then
  35.     ClearAnzeige(x)
  36.   end if
  37.   if the frameLabel contains ";" then
  38.     repeat with i = 28 to 33
  39.       set the visible of sprite i to 1
  40.     end repeat
  41.     set the visible of sprite 40 to 1
  42.     case 1 of
  43.       (mycity = 48):
  44.         puppetSprite(46, 0)
  45.         set the visible of sprite 40 to 0
  46.         go("Karte")
  47.         exit
  48.       (mycity = 47):
  49.         go(the frame + value(item 2 of the frameLabel))
  50.         set NordSued to the text of member item 1 of the frameLabel
  51.         puppetSprite(46, 0)
  52.       ((mycity > 4) and (mycity < 40)):
  53.         puppetSprite(46, 1)
  54.         set the locH of sprite 46 to the mouseH + 10
  55.         set the locV of sprite 46 to the mouseV + 6
  56.         set Eintrag to mycity - 4
  57.         if not (the text of field "Ort" = item 1 of x) then
  58.           set the text of field "Ort" to item 1 of x
  59.           doAnzeige(x)
  60.         end if
  61.         updateStage()
  62.       otherwise:
  63.         puppetSprite(46, 0)
  64.     end case
  65.   else
  66.     if mycity = 5 then
  67.       ClearAnzeige(x)
  68.     end if
  69.     if mycity = 6 then
  70.       ClearAnzeige(x)
  71.     end if
  72.     set the visible of sprite 28 to 1
  73.     case 1 of
  74.       ((mycity > 6) and (mycity < 26)):
  75.         puppetSprite(46, 1)
  76.         set the locH of sprite 46 to the mouseH + 10
  77.         set the locV of sprite 46 to the mouseV + 6
  78.         set Eintrag to mycity - 6
  79.         if not (the text of field "Ort" = item 1 of x) then
  80.           set the text of field "Ort" to item 1 of x
  81.           doAnzeige(x)
  82.         end if
  83.         updateStage()
  84.       otherwise:
  85.         puppetSprite(46, 0)
  86.     end case
  87.     if (mycity > 33) and (mycity < 46) then
  88.       hibutton()
  89.     else
  90.       unhibutton()
  91.     end if
  92.   end if
  93.   go(the frame)
  94. end
  95.  
  96. on mouseUp
  97.   global mysprite
  98.   puppetSprite(4, 0)
  99.   if mysprite > 39 then
  100.     puppetSprite(mysprite, 0)
  101.     go(label(the name of member the memberNum of sprite mysprite) - 1)
  102.   end if
  103.   set mysprite to 0
  104. end
  105.