Re: [NEWBIE] Script problem

From: Matt Tolton (matt@tolton.com)
Date: 03/15/02


Here is the trigger:
It is designed to teleport you to the room that you last teleported from, or
if it has never been used before, to set that room to be the teleport room.
There will be another trigger, command probably, to set the teleport room,
as soon as I get this one working.

tstat 4599
Trigger Intended Assignment: Objects
Trigger Type: Wear , Numeric Arg: 100, Arg list: None
Commands:
   oecho %self.id%
   context %self.id%
   if (!%goldring%)
   eval goldring %actor.room%
   global goldring
   osend %actor% Your ring pulses slightly on your finger.
   halt
   else
   eval currentroom %actor.room%
   oechoaround %actor% %actor.name% disappears in a flash of light!
   oteleport %actor% %goldring%
   oechoaround %actor% %actor.name% appears in a flash of light!
   osend %actor% As you slide the ring on your finger, your surroundings
shift...
   oforce %actor% look
   eval goldring %currentroom%
   global goldring
   halt
   end

Here is the object it is attached to:
vstat obj 4589
Name: 'a small gold ring', Aliases: ring
VNum: [ 4589], RNum: [  265], Type: OTHER, SpecProc: None
L-Des: A small gold ring is lying here.
Can be worn on: TAKE FINGER
Set char bits : NOBITS
Extra flags   : NOBITS
Weight: 0, Value: 0, Cost/day: 100, Timer: 0
In room: Nowhere, In object: None, Carried by: Nobody, Worn by: Nobody
Values 0-7: [0] [0] [0] [0] [0] [0] [0] [0]
Affections: None
Script information:
Global Variables: None
Global context: 0

  Trigger: teleportation ring, VNum: [ 4599], RNum: [   15]
  Trigger Intended Assignment: Objects
  Trigger Type: Wear , Numeric Arg: 100, Arg list: None


Thanks,

Matt

--
   +---------------------------------------------------------------+
   | FAQ: http://qsilver.queensu.ca/~fletchra/Circle/list-faq.html |
   | Archives: http://post.queensu.ca/listserv/wwwarch/circle.html |
   | Newbie List:  http://groups.yahoo.com/group/circle-newbies/   |
   +---------------------------------------------------------------+



This archive was generated by hypermail 2b30 : 06/25/03 PDT