home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / Game / KQ / swamtele.cs < prev    next >
Encoding:
Text File  |  1998-12-15  |  617 b   |  22 lines
  1. #
  2. #    This file is called if a player teleports from the Swamp World.
  3. # The $1 argument contains the name of the .KQ file to be loaded in the new
  4. # world minus the KQ extension.
  5. #
  6.  
  7. echo We made it through Alan's code!
  8. echo and he sent us $1
  9.  
  10. # Make sure only one ever exists!
  11. if test $Swamp::Teleport::Name != 0
  12.     echo Delete $Swamp::Teleport::Name
  13.     deleteObject $Swamp::Teleport::Name
  14. endif
  15.  
  16. # Load the portal at the correct location for this world.
  17. loadKQ $1 @ 88828 150638 10570
  18. set Swamp::Teleport::Name $ObjectName
  19.  
  20. # Beam me out Scotty
  21. KQMonster::setState Connor Portal $Swamp::Teleport::Name
  22.