Botscript / !nick <nick>

[Cristian]

Code: Select all

;# 
;# visit http://sp00fed.dk for updates or support.
;# script by Sumsar
;#

;# Tested and works on version 6.15

;# This script when triggered, checks if the wanted nickname is availible before trying to make a nickchange.
;# It will also check if the wanted nickname is above 15 characters, since Quakenet only support 15 characters nicknames.
;# Trigger: !nick <nick>

on *:TEXT:!nick *:# {
  if ($2) {
    if ($len($2) <= 15) { .set %ison $nick $2 | ison $2 }
    else {
      .notice $nick Warning: MAX 15 chars is allowed. $2 contains $len($2) chars.
    }
  }
  else {
    .notice $nick Syntax: !nick <nick>
  }
}

raw 303:*: {
  if (%ison) {
    if ($2 && $gettok(%ison,2,32) == $2) {
      .notice $gettok(%ison,1,32) Warning: $2 is taken.
    }
    else {
      .nick $gettok(%ison,2,32)
      .notice $gettok(%ison,1,32) Done: Changing nick to $gettok(%ison,2,32) $+ .
    }
    .unset %ison
  }
}