@create TeleRune=10
&NUMTEL TeleRune=0
&WAITTIME TeleRune=0
&NUMLOCS TeleRune=0
&ADDHERE TeleRune=$Addhere:&place.[words(lattr(me/place.*))] me=here; @pemit %#=[name(here)] added to list of locations.
&ADDWARNING TeleRune=$addwarning *:&msg.[words(lattr(me/msg.*))] me=%0; @pemit %#=%0 added to list of warning messages.
&WIPELOCS TeleRune=$wipelocs:@wipe me/place.*; @pemit %#=Location list reset!
&ADDLOC TeleRune=$addloc *:&place.[words(lattr(me/place.*))] me=%0; @pemit %#=[name(%0)] added to list of locations.
&PARAMS TeleRune=$setparams * * *:&NUMTEL me=%0; &WAITTIME me=%1; &NUMLOCS me=%2; @pemit %#=The affected character will be @tel'd %0 times, waiting %1 secs. in between each @tel, and be @teled to %2 locations.
&CURSE TeleRune=$telplayer *:@switch [words(lattr(me/place.*))]=0,{@pemit %#=You must add locations to the internal list before using this command.},{@dolist lnum(get(me/numlocs))=@wait [get(me/waittime)]={@pemit %0=[get(me/[first(shuffle(lattr(me/msg.*)))])];@va me=[get(me/[first(shuffle(lattr(me/place.*)))])]; @force owner(me)=@tel %0=%va;@pemit %#=[name(%0)] has been @tel'ed to [name(%va)].}}
@Use TeleRune=TeleRune commands:%raddloc <location number> - Adds a location to the location list.%raddhere - Adds the place where you are standing to the location list.%rwipelocs - Resets the location list.%rsetparams <number> <wait> <locations> - Sets up the parameters.%raddwarning <message> - Adds a warning message to the list.%rtelplayer <player name> - Curses the character!!