on $*:text:/^[!.@#]droplist/Si:#: {
  if ($read(questmonsters.txt,w,$+(*,$2-,*)) !== $null) { $iif($regex($1,/^[.!]/) => 1,notice $nick,msg #) Quest monsters, such as $+(",$read(questmonsters.txt,w,$+(*,$2-,*)),") do not drop items of any significance other than the quest items they are meant to drop. (If you did not mean a quest monster, please spellcheck, and if needed provide a fuller name.)  | halt }
  var %sckid = $right($ticks,6)
  set %RSplayway. [ $+ [ %sckid ] ] $iif($regex($1,/^[.!]/) => 1,notice $nick,msg #)
  if ($left($2,2) == -r) {
    if ($right($2,-2) !isnum) { notice $nick -r should be followed by a number to indicate the nTH result. | halt }
    else { 
      set %htmlmonster. [ $+ [ %sckid ] ] $3-
      set %searchmonster. [ $+ [ %sckid ] ] $replace($3-,$chr(32),$chr(43)
    }
  }
  else {  
    set %searchmonster. [ $+ [ %sckid ] ] $replace($2-,$chr(32),$chr(43)) 
    set %htmlmonster. [ $+ [ %sckid ] ] $2-
    sockopen RSplay. [ $+ [ %sckid ] ] www.tip.it 80
  }
}