home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 June / Image.iso / aol / software / aolshow.dxr / 00017.ls < prev    next >
Encoding:
Text File  |  1996-12-03  |  625 b   |  26 lines
  1. global mycity
  2.  
  3. on idle
  4.   set mycity to rollOver()
  5. end
  6.  
  7. on exitFrame
  8.   set NordSued to the text of member the frameLabel
  9.   if mycity = 47 then
  10.     go(the frame + value(the frameLabel))
  11.     set NordSued to the text of member the frameLabel
  12.   else
  13.     if (mycity < 45) and (mycity > 2) then
  14.       puppetSprite(2, 1)
  15.       set the locH of sprite 2 to the mouseH + 10
  16.       set the locV of sprite 2 to the mouseV + 6
  17.       set Eintrag to mycity - 2
  18.       set the text of field "Ort" to line (Eintrag * 2) - 1 to Eintrag * 2 of NordSued
  19.       updateStage()
  20.     else
  21.       puppetSprite(2, 0)
  22.     end if
  23.   end if
  24.   go(the frame)
  25. end
  26.