All pastes #332250 Raw Edit

Something

public text v1 · immutable
#332250 ·published 2007-01-29 21:01 UTC
rendered paste body
;Whois & Whowas System
raw 311:*:{ echo -a 10-›14 Information For:10 $$2
echo -a 10-›14 $2 $+ 's Hostmask/Banmask is:10 *!*@ $+ $4 | halt }
raw 378:*:{ echo -a 10-›14 $2 is Connecting From:10 $6- | halt }
raw 312:*:{ echo -a 10-›14 $2 is using the Server:10 $3 14on the Network:10 $network | halt }
raw 319:*:{
  var %s = 10-›14 $2 14is on Channels:, %a = 3
  while (%a <= $0) {
    if ($len($strip(%s,c) $gettok($1-,%a,32)) > 95) {
      echo -a $replace(%s,$+($chr(32),+),$+($chr(32),10+14),$+($chr(32),%),$+($chr(32),10%14),$+($chr(32),@),$+($chr(32),10@14),$+($chr(32),&),$+($chr(32),10&14),$+($chr(32),~),$+($chr(32),10~14),$+($chr(32),$chr(35)),$+($chr(32),14#))
      var %s = 10-›14 $2 14is on Channels: $gettok($1-,%a,32)
    }
    else {
      var %s = %s $gettok($1-,%a,32)
    }
    inc %a
  }
  if (%s) echo -a $replace(%s,$+($chr(32),+),$+($chr(32),10+14),$+($chr(32),%),$+($chr(32),10%14),$+($chr(32),@),$+($chr(32),10@14),$+($chr(32),&),$+($chr(32),10&14),$+($chr(32),~),$+($chr(32),10~14),$+($chr(32),$chr(35)),$+($chr(32),14#)) | halt
}
raw 671:*:{ echo -a 10-›14 $2 is using a 10Secure Connection14. | halt }
raw 313:*:{ echo -a 10-›14 $2 is an IRC Operator:10 $5- | halt }
raw 307:*:{ echo -a 10-›14 $2 has 10Registered14 his/her Nickname on:10 $network | halt }
raw 318:*:{ echo -a 10-›14 Information for:10 $2 | halt }
raw 317:*:{ echo -a 10-›14 $2 has been idling for:10 $duration($3)
echo -a 10-›14 $2 has been logged on since:10 $time($4) | halt }
raw 310:*:{ echo -a 10-›14 $2 is 3 $3- | halt }
raw 406:*:{ echo -a 10-›14 There was/is no:10 $2 | halt }
raw 369:*:{ echo -a 10-›14 End of 10WhoWas14. | halt }
raw 431:*:{ echo -a 10-›10 Error.14 No NickName Given. | halt }
raw 301:*:{ echo -a 10-›14 $2 is Away:10 $3- | halt }

;Away System
raw 305:*:{ echo -a 10-›14 You are no longer marked as being 10Away14. | halt }
raw 306:*:{ echo -a 10-›14 You are marked as 10Away14. | halt }