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 / gnomtele.cs < prev    next >
Encoding:
Text File  |  1998-12-15  |  634 b   |  23 lines
  1. #
  2. #    This file is called if a player teleports from the Gnome 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 $Gnome::Teleport::Name != 0
  12.     echo Delete $Gnome::Teleport::Name
  13.     deleteObject $Gnome::Teleport::Name
  14. endif
  15.  
  16. # Load the portal at the correct location for this world.
  17. loadKQ $1 @ 127312 106123 17469
  18. set Gnome::Teleport::Name $ObjectName
  19.  
  20. allowShadows 1
  21. # Beam me out Scotty
  22. KQMonster::setState Connor Portal $Gnome::Teleport::Name
  23.