17 lines
510 B
Plaintext
17 lines
510 B
Plaintext
|
// Script for the Aidbringer administrator-rod
|
||
|
|
// This script gives a teleport-ring to the targeted member.
|
||
|
|
// 5th of September 2005, Alangara, made by -Seeker-
|
||
|
|
|
||
|
|
void main()
|
||
|
|
{
|
||
|
|
object oPC = GetPCSpeaker();
|
||
|
|
object oTarget = GetLocalObject( oPC, "mn_target" );
|
||
|
|
DeleteLocalObject( oPC, "mn_target" );
|
||
|
|
|
||
|
|
// Give ring
|
||
|
|
TakeGoldFromCreature( 100000, oPC, TRUE );
|
||
|
|
CreateItemOnObject("mn_aidb_telring", oTarget, 1);
|
||
|
|
|
||
|
|
FloatingTextStringOnCreature( "Ring given to "+GetName( oTarget ), oPC, FALSE );
|
||
|
|
}
|