def cmd_trigger(args)
case args
when nil, ""
sendto("What??")
when /del\s+#(\d+)\s+(\w+)/
o = get_object($1.to_i)
case o
when GameObject, Room, Character
if o.get_trigger($2)
o.delete_trigger($2)
sendto("Object ##$1 trigger deleted.")
else
sendto("Trigger ##$2 not found on object.")
end
else
sendto("No object.")
end
when /add\s+#(\d+)\s+#(\d+)\s+(\w+)/i
o = get_object($1.to_i)
case o
when GameObject, Room, Character
s = get_object($2.to_i)
case s
when Script
o.add_trigger($3, s.id)
sendto("Object ##$1 trigger added.")
else
sendto("No script.")
end
else
sendto("No object.")
end
when /show\s+#(\d+)/
o = get_object($1.to_i)
case o
when GameObject, Room, Character
sendto("===========TRIGGERS============")
sendto(sprintf("%-15s %-15s", "Event", "Program"))
o.triggers.each do |e, t|
sendto(sprintf("%-15s #%d", e.id2name, t))
end
else
sendto("No object.")
end
else
sendto("What??")
end
end