give me please )) thx..
if need any script for save teleporters in file - i write..
need systeleporters for ilshenar, tokuno, malas
Moderator: POL Developer
Re: need systeleporters for ilshenar, tokuno, malas
Hello Bell,
See this post for a decent listing :
http://forums.polserver.com/viewtopic.php?f=14&t=1742
See this post for a decent listing :
http://forums.polserver.com/viewtopic.php?f=14&t=1742
Re: need systeleporters for ilshenar, tokuno, malas
whaaaaa, thanks!!!!!!
Re: need systeleporters for ilshenar, tokuno, malas
maybe somebody needed...
/packet/teleporters.cfg
/scripts/items/dungTele.src
/packet/teleporters.cfg
/packet/textcmd/admin/makesystele.src
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
Re: need systeleporters for ilshenar, tokuno, malas
mmm... who give me signs, doors in alt realms? ))