All pastes #808029 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-12-07 05:46 UTC
rendered paste body
;The Bot Must Have IRCop Access 
;Your Network Must Support /chghost in order for this to work.

on *:TEXT:*:?:{
  if ($1 == set) && ($2 == $nick) && ($3) { 
    writeini -n vHosts.ini vHosts $nick $3 
    writeini -n oHosts.ini oHosts $nick $remove($address($nick,2),*!*@)
    echo -ts * $+ $nick $+ * $1-
    halt
  }
  if ($1 == set) && ($2 != $nick) { 
    msg $nick please sign onto that nickname before you set a vHost to it!
    echo -ts * $+ $nick $+ * $1-
    halt 
  }
  if ($1 == on) { 
    chghost $nick $readini(vHosts.ini, vHosts, $nick)
    echo -ts * $+ $nick $+ * $1-
    halt 
  }
  if ($1 == off) { 
    chghost $nick $readini(oHosts.ini, oHosts, $nick)
    echo -ts * $+ $nick $+ * $1-
    halt 
  }
  if ($1 == help) && (!$2) {
    notice $nick ON Activates your assigned vHost.
    notice $nick OFF Deactivates your assigned vHost.
    notice $nick SET assign vHost to your current nickname. example: /msg hostserv set HostServ I.Am.HostServ
  }
  if ($1 == help) && ($2 == on) {
    notice $nick Syntax: ON
    notice $nick Activates the vhost currently assigned to the nick in use.
    notice $nick When you use this command any user who performs a /whois
    notice $nick on you will see the vhost instead of your real IP address.
  }
  if ($1 == help) && ($2 == off) {
    notice $nick Syntax: OFF
    notice $nick Deactivates the vhost currently assigned to the nick in use.
    notice $nick When you use this command any user who performs a /whois
    notice $nick on you will see your real IP address.
  }
  if ($1 == help) && ($2 == set) {
    notice $nick Syntax: SET
    notice $nick Assigns a vhost of your choice to the nick in use.
    notice $nick When you use this command any user who performs a /whois
    notice $nick on you will see the vhost instead of your real IP address.
  }
}

on *:SNOTICE:*Client Connecting*:{
  if ($readini(vHosts.ini, vHosts, $nick)) {
    writeini -n oHosts.ini oHosts $nick $remove($address($nick,2),*!*@)
    chghost $nick $readini(vHosts.ini, vHosts, $nick)
    halt
  }
}

on *:open:?:{ .timer 1 3 closemsg $nick }