Cache-Control: no-cache Moo Canada: Edit WWW-SlideShow (#733)

View/Edit #733:tell_slide

Name(s): tell_slide

1:  caller == this || raise(E_PERM)
2:  slide = toint($www:parse_GET("slide"))
3:  if (slide && $www:parse_GET("present"))
4:    "Inflict this slide on all the victims."
5:    this.slide = slide
6:    for victim in (this.victims)
7:      if (typeof(victim) == $OBJ)
8:        this:push_slide(victim)
9:      endif
10:   endfor
11: else
12:   slide = slide || this.slide
13: endif
14: player:tell(this:slide(slide))
15: "Last modified by Dax (#789) on Tue May  3 14:09:32 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.