root_sys-iRC Nick Caller v1.0 Beta

By Aurora801 on Oct 26, 2009

Load into remotes. Very easy to use.

alias -l tsay { say $1- }
;--Teh Caller
on *:TEXT:*:#: {
  var %wrds = $gettok($strip($1-),0,32)
  var %wrd = 1
  while (%wrd <= %wrds) {
    var %word = $gettok($strip($1-),%wrd,32)
    var %cll = 1
    var %clls = $gettok($ReadCalls,0,32)
    while (%cll <= %clls) {
     if (%word = $gettok($ReadCalls,%cll,32)) { echo -a $Text.2(4N15ick 4C15aller) 15-0(14One of your defined triggers was stated in15 $chan 14By15 $nick 14On15 $server $+ 0)14-0(14Exact Wording:15 $strip($1-) $+ 0)15- | halt }
     inc %cll
    }
    inc %wrd
  }
}

;--Start event

on *:START: {
  inc %NickCaller.Ran
  echo -a 15-0(4N15ick 4C15aller 9v1.00)15-
  echo -a 15-0(9S15cripted 9B15y 14A15u0ro15r14a7//9S15uicide9S15oldier0)15-
  echo -a 15-0(9Y15ou 9H15ave 9R15an 4N15ick 4C15aller 9F15or 9T15he0 $ord(%NickCaller.Ran) 9T15ime0)15-
  var %call = 1
  var %calls = $gettok($readini(NickCaller.ini,Caller,All),0,32)
  if (%calls >= 1) {
    while (%call <= %calls) {
      echo -a 15-0(4N15ick 4C15aller0)15- 0(15 $+ %call $+ 0)15-0(15 $+ $gettok($readini(NickCaller.ini,Caller,All),%call,32) $+ 0)
      inc %call
    }
  }
}

;--Aliases
alias -l NickEcho { echo -a 15-0(4N15ick 4C15aller0)15- 15-0(14 $+ $1- $+ 0)15- }
alias lulz { //me 15-0(9.15.0.4I 9A15m 9U15sing 4Y7o8u9r 0M15o14t2h12e4r 0)15- }
alias -l ReadCalls { return $readini(NickCaller.ini,Caller,All) }
alias NickCaller {
  if ($1 = -d) {
    if ($2 isin $readini(NickCaller.ini,Caller,All)) { writeini NickCaller.ini Caller All $remtok($ReadCalls,$2,32) | NickEcho Caller $2 Removed. }
    elseif ($2 !isin $ReadCalls) { NickEcho $2 Is Not In Your Nick Caller. }
    elseif (!$2) { NickEcho Please Specify A Trigger To Remove. }
  }
  elseif ($1 = -l) {
   if ($2) { NickEcho Callers ( $+ $2 $+ ) 14:15:0:14 $+ $gettok($ReadCalls,$2,32) }
   elseif (!$2) { NickEcho Callers 14:15:0:14 $+ $ReadCalls }
  }
 elseif ($1 = -c) { remini NickCaller.ini Caller All | NickEcho Caller List Cleared. }
 elseif (!$1) { tsay 15-0(9.15.0.4I 9A15m 9U15sing 4N15ick 4C15aller 9v1.0 9B15y 14A15u0ro15r14a7//9S15uicide9S15oldier0.15.9.0)15- }
 else { writeini NickCaller.ini Caller All $addtok($ReadCalls,$1,32) | NickEcho Caller $1 Added.  }
}
alias -l IsCaller {
  if ($1 isin $readcalls) { return $true }
  elseif ($1 !isin $ReadCalls) { return $false }
  elseif (!$1) { return $null }
}
;--Menus
menu * {
  _-(Nick Caller)-_
  .List:/NickCaller -l $?"Which ones? (Optional)"
  .Add:/NickCaller $$?"Add What?"
  .Remove:/NickCaller -d $$?"Add What?"
  .Clear:/NickCaller -c
  .Advertise:/NickCaller
}
;--Unload Event
on *:UNLOAD: {
  echo -a 15-0(9T15hank 9Y15ou 9F15or 9U15sing 4N15ick 4C15aller 9v1.0 9B15y 14A15u0ro15r14a7//9S15uicide9S15oldier0)15-
  unset %NickCaller.*
}

Comments

Sign in to comment.
D2K7   -  Oct 27, 2009

I like it =D

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.