Unnamed

on $*:text:/^[!@](sets)/Si:#: { 
  set %setn %changed. [ $+ [ $address($nick,2) ] ]
  set %sett %changed. [ $+ [ $address($2,2) ] ]
  var %display = $iif($left($1,1) == @, msg $Chan, notice $nick) 
  if (!$2) {
    if ($nick isreg $chan) { Halt }
    if (%changed. [ $+ [ $address($nick,2) ] ] == $null) {
      %display You haven't set any worlds yet! | Halt
    }
    if ($nick isreg $chan) { Halt }
    elseif (%changed. [ $+ [ $address($nick,2) ] ] != $null) {
      %display You have set %changed. [ $+ [ $address($nick,2) ] ] world(s) | Halt
    }
  }
  if ($2 && $nick !isreg $chan) {
    if (%sett == $null) {
      %display $2 hasnt set any worlds | Halt
      unset %sett
    }
  }
  if (%sett != $null)  {
    %display $2 has set %sett world(s)
    unset %sett
  }
}
on $*:text:/^[!@](csets|rsets)/Si:#: { 
  set %setn %changed. [ $+ [ $address($nick,2) ] ]
  set %set2 %changed. [ $+ [ $address($2,2) ] ]
  set %set3 %changed. [ $+ [ $address($3,2) ] ]
  var %display = $iif($left($1,1) == @, msg $Chan, notice $nick) 
  if ($2,$3 && $nick !isreg $chan) {
    if ($3 != $null) {
      %display $2 has set %set2 world(s) and $3 has set %set3 world(s) | Halt
      unset %set2
      unset %set3
    }
  } 
  if ($2) {
    if ($nick isreg $chan) { Halt }
    if (%setn == $null) {
      %display You haven't set any worlds yet compared to $2 $+ 's %set2 world(s). | Halt
      unset %setn
      unset %set3
    }
    if ($nick isreg $chan) { Halt }
    elseif (%setn != $null) {
      %display You have set %setn world(s) but $2 has set %set2 world(s). | Halt
      unset %setn
      unset %set3
    }
  }
}