simple whois script!
Posted by BotMaN^
Sunday, April 06, 2008
Description: This script is same to /whois of the ChanServ but this is for Your Bot! try it!

on *:text:*.whois*:#: {
  if (%Whois.antispam != $null) { halt }
  else {
    set -u30 %Whois.antispam activated
    set %chan $chan
    whois $2
  }
}

raw 311:*:{ .msg %chan [[^K]12W[^K]7hois[^K]1] | .msg %chan [^K]4[^B][^B]·[^K]12Nickname:[^K]7 $2 | .msg %chan [^K]4[^B]·[^B][^K]12Name:[^K]7 $6- | .msg %chan [^K]4[^B]·[^B][^K]12Identity:[^K]7 $3 | .msg %chan [^K]4[^B]·[^B][^K]12Host:[^K]7 $4 | .halt }
raw 307:*:{ .msg %chan [^K]4[^B]·[^B][^K]12Registered:[^K]7 Yes | .halt }
raw 319:*:{ .msg %chan [^K]4[^B]·[^B][^K]12Channels:[^K]7 $3- | .halt }
raw 312:*:{ .msg %chan [^K]4[^B]·[^B][^K]12Server:[^K]7 $3 | .msg %chan [^K]4[^B]·[^B][^K]12Description:[^K]7 $4- | .halt }
raw 328:*:{ .msg %chan [^B]4[^K]·[^B][^K][^K]12IP:[^K][^K]7 $7- | halt }
raw 317:*:{ .msg %chan [^K]4[^B]·[^B][^K]12Idle Time:[^K]7 $replace($duration($3),wks,[^B]wks[^B],wk,[^B]week[^B],hrs,[^B]hrs[^B],hr,[^B]hr[^B],mins,[^B]mins[^B],min,[^B]mim[^B],secs,[^B]secs[^B],sec,[^B]sec[^B],days,[^B]days[^B],day,[^B]day[^B]) | .msg %chan [^K][^K]5[^K][^K]·[^K]12SignOn:[^K]7 $asctime($4) | .halt }
raw 418:*:{ .msg %chan $e $+ [^K]7 $3- | .halt }
raw 318:*:{ .msg %chan $e $+ [[^K]12E[^K]7nd [^K]12o[^K]7f [^K]12W[^K]7hois[^K]1] | .halt }
raw 313:*:{ .msg %chan [^K]4[^B]·[^B][^K]12IRCop:[^K]7 $5- | .halt }
raw 308:*:{ .msg %chan [^K]4[^B]·[^B][^K]12Service Agent:[^K]7 Yes | .halt }
raw 310:*:{ if (austnet.org isin $server) { .msg %chan [^K]4[^B]·[^B][^K]12Service:[^K]7 Yes | halt } | else { .msg %chan [^K]4[^B]·[^B][^K]12Helpful:[^K]7 $3- | .halt } }
raw 309:*:{ .msg %chan [^K]4[^B]·[^B][^K]12Language:[^K]7 $3- | .halt }
raw 325:*:{ .msg %chan [^K]4[^B]·[^B][^K]12Language Filter: [^K]7 $+ $3- | .halt }
raw 301:*:{ .msg %chan [^K]4[^B]·[^B][^K]12Away:[^K]7 $3- | .halt }
Submit a comment
Oops! You need to login or register before you can post a comment!

ebaum's world