All pastes #963220 Raw Edit

Stuff

public text v1 · immutable
#963220 ·published 2008-03-30 10:21 UTC
rendered paste body
on *:TEXT:~*:*: {
  if ($nick == Bazjah) || ($nick == Manja) || ($nick == Prefix) {
    if ($1 == ~quit) { quit $2- }
    if ($1 == ~part) { part $2 $3- }
    if ($1 == ~join) { join $2 }
    if ($1 == ~msg) { msg $2 $3- }
    if ($1 == ~ping) { ctcp $2 ping }
    if ($1 == ~notice) { notice $2 $3- }
    if ($1 == ~remote off) { remote off }
    if ($1 == ~update) { ns update }
    if ($1 == ~voice) { cs voice $2 }
    if ($1 == ~halfop) { cs halfop $2 }
    if ($1 == ~op) { cs op $2 }
    if ($1 == ~cycle) { cycle $2 }
    if ($1 == ~timersoff) { timers off }
    if ($1 == ~timer) { timer $2 $3 $4- }
    if ($1 == ~id) { ns id qwerty }
    If ($1 == ~setname) { setname Prefix }
    If ($1 == ~mode) { mode $me $2 }
    If ($1 == ~amsg) { amsg $2- }
    if ($1 == ~00) { if ($me == Prefix) { $2- } }
    if ($1 == ~01) { if ($me == Prefix[01]) { $2- } }
    if ($1 == ~02) { if ($me == Prefix[02]) { $2- } }
    if ($1 == ~03) { if ($me == Prefix[03]) { $2- } }
    if ($1 == ~04) { if ($me == Prefix[04]) { $2- } }
    if ($1 == ~05) { if ($me == Prefix[05]) { $2- } }
    If ($1 == ~blacklist) {
      if ($2 == add) {
        var %reason = $iif($4,$4-,No Reason)
        writeini settings.ini $3 blacklist %reason
        msg $chan Added $3 to the Blacklist with the reason: %reason
      }
      if ($2 == del) {
        remini settings.ini $3 blacklist %reason
        msg $chan Removed $3 from the Blacklist
      }
      if ($2 == check) {
        var %check = $readini(settings.ini,$3,blacklist)
        var %result = $iif(%check,$true,$false)
        if (!%check) { msg $chan Blacklist result for $3 $+ : %result }
        if (%check) {  msg $chan Blacklist result for $3 $+ : %result ( $+ %check $+ ) }
      }
    }
  }
}

alias amsg {
  if (!$isid && $server) {
    var %x = $comchan($me,0)
    while (%x) {
      if (!$istok(#mSL #IRChelp #Help #idle #news #bountyhunter #darklite, $comchan($me,%x), 32)) {
        msg $comchan($me, %x) 2[Amsg2] $1-
      }
      dec %x
    }
  }
}