Code: Select all

use uo;
use os;
use cfgfile;

program makesystele(who)
var tox;
var toy;
var toz;
var torealm;
var fromx;
var fromy;
var fromz;
var fromrealm;

var cfg:=ReadConfigFile(":packetname:teleporters");
var keys := GetConfigIntKeys( cfg );
for i := 0 to keys.Size()
      tox := FindConfigElem(cfg,keys[i]).tox;
      toy := FindConfigElem(cfg,keys[i]).toy;
      toz := FindConfigElem(cfg,keys[i]).toz;
      torealm := FindConfigElem(cfg,keys[i]).torealm;
      fromx := FindConfigElem(cfg,keys[i]).fromx;
      fromy := FindConfigElem(cfg,keys[i]).fromy;
      fromz := FindConfigElem(cfg,keys[i]).fromz;
      fromrealm := FindConfigElem(cfg,keys[i]).fromrealm;
      var syst := CreateItemAtLocation(fromx, fromy, fromz, 0x6200, 1, fromrealm);
      if (syst)
		SetObjProperty(syst, "DestX", tox);
		SetObjProperty(syst, "DestY", toy);
		SetObjProperty(syst, "DestZ", toz);
		SetObjProperty(syst, "DestRealm", torealm);
	endif
endfor
endprogram

Code: Select all

use os;
use uo;

include "include/client";
include "include/attributes";

program walk_on_moongate(mobile, gate)
   if ( !CanTeleport(mobile))
        return 0;
   endif
  var magery := CInt(GetObjProperty(gate,"magery"));
  if((magery) && (mobile.acctname))
    if(GetEffectiveSkill(mobile, SKILLID_MAGERY) < magery)
      SendSysMessage(mobile,"your knowledge of the arcane arts is too low to traverse this gate.");
      return;
    endif
  endif
  set_critical(1);
  if(GetObjProperty(mobile, "#justgated"))
	return;
  endif
  var x, y, z, realm;
  x := GetObjProperty( gate, "DestX" );
  y := GetObjProperty( gate, "DestY" );
  z := GetObjProperty( gate, "DestZ" );
  realm := GetObjProperty( gate, "DestRealm" );
  if (!realm)
	realm := "britannia";
      SetObjProperty(gate, "DestRealm", realm);
  endif

  foreach critter in ListMobilesNearLocation( gate.x, gate.y, gate.z, 8);
    if(((critter.script == "employed") && (CInt(GetObjProperty(critter, "master")) == mobile.serial)) || ((critter.script == "escortee") && (CInt(GetObjProperty(critter, "Escortee")) == mobile.serial)) || ((critter.script == "tamed") && (CInt(GetObjProperty(critter, "master")) == mobile.serial)))
      SetObjProperty(critter, "Pause", 1);
      MoveObjectToLocation( critter, gate.x, gate.y, gate.z, gate.realm, MOVECHAR_FORCELOCATION);
      EraseObjProperty(critter, "Pause");
    endif
  endforeach
  SetObjProperty(mobile,"#justgated",1);
  MoveObjectToLocation(mobile, x, y, z, realm );
  sleep(1);
  EraseObjProperty(mobile,"#justgated");
endprogram

function CanTeleport(mobile)
   if ( mobile.acctname ) // player
        return 1;
   elseif ( mobile.npctemplate )
      if ( mobile.script == "employed" )
         return 1;
      elseif ( mobile.script == "tamed" )
         return 1;
      elseif ( mobile.script == "escortee" )
         return 1;
      else
          return 0;
      endif
   endif
endfunction