/ScriptServ

;%%%%%%%%%%%%%%%%%%%%%%%%
;script impact
;version 1.4
;author cdcd
;email  cdcd@thepentagon.com
;url  none
;%%%%%%%%%%%%%%%%%%%%%%%%
on 1:UNOTIFY:if (%impact.getnick == 1 && $nick == %impact.keep.nick) { nick %impact.keep.nick }
alias imecho echo [ %impact.echo ] $1-
alias md { mode # $$1- }
alias eav { imecho Addons: [ %aver ] }
alias esv { imecho Script: [ %ver ] }
alias iv { 
   set %impact.iv.num $rand(1,9)
   if (%impact.iv.num == 1) { say %impact.ver 10* it's the newest trend }
   if (%impact.iv.num == 2) { say %impact.ver 10* there's only one }
   if (%impact.iv.num == 3) { say %impact.ver 10* where's your copy? }
   if (%impact.iv.num == 4) { say %impact.ver 10* it's a blast }
   if (%impact.iv.num == 5) { say %impact.ver 10* do you have it? }
   if (%impact.iv.num == 6) { say %impact.ver 10* everybody's doing it... make you feel good }
   if (%impact.iv.num == 7) { say %impact.ver 10* won't your friends be jealous }
   if (%impact.iv.num == 8) { say %impact.ver 10* it does the dishes, windows, and homework }
   if (%impact.iv.num == 9) { say %impact.ver 10* anything less would be uncivilized }
  }
alias imphelp {
  if ($1 == 1) {
    imecho BEGIN %impact.ver ALIAS HELP
    imecho 3/eav -- Echo /av
    imecho 3/ecolor -- Echo all color codes (10there's 15 of 'em)
    imecho 3/esv -- Echo /sv (10see if any lame script added to it)
    imecho 3/ik -- Kick(/ban) a user (10this keeps a kick #)
    imecho 3/iv -- Announce to everyone what wonderful addon you're using
    imecho 3/md -- Set modes on a channel (10/md +nts)
    imecho 3/unimpact -- Uninstall %impact.ver
    imecho 4/imphelp -- Back to main menu
    imecho ENDOF %impact.ver ALIAS HELP
    return
  }
  if ($1 == 2) {
    imecho BEGIN %impact.ver POPUP HELP
    imecho 3impact -- Show everyone what awesome addon you're running
    imecho 3echo "bar":view -- View current echo thing
    imecho 3echo "bar":change -- Change the echo thing (10currently: [ %h ] $+ )
    imecho 3get nick:view -- See whether "get nick" is on or off
    imecho 3get nick:on/off -- Turn "get nick" on or off
    imecho 3get nick:set nick -- Set nick to keep
    imecho 3iKick:current count -- Shows how many users have been kicked by 4impac4t
    imecho 3iKick:current count msg -- Echo's the count msg
    imecho 3iKick:change count msg -- The message after a user gets kicked
    imecho 3iKick:help -- Displays the alias section of /imphelp
    imecho 10Example of Count Msg: (12it's underlined and bold so you can't miss it) 
    imecho Gollum was kicked by cdcd (test - 104 fools left this way)
    imecho 3nick completion:view -- See your nick completion settings
    imecho 3nick completion:set left/right bracket -- Change left/right bracket
    imecho 3other:addons -- View all addons loaded
    imecho 3other:version -- View irc.N verion (10see if any lame scripts added to it)
    imecho 3help -- 4Here you are!
    imecho 3uninstall -- Uninstall %impact.ver (10not a very good command, huh?)
    imecho 4/imphelp -- Back to main menu
    imecho ENDOF %impact.ver POPUP HELP
    return
  }
  imecho BEGIN %impact.ver HELP
  imecho 3#1. Aliases -- Echo alias commands
  imecho 3#2. Popups  -- Echo popup commands
  imecho 4To get help type: /help <#>
  imecho 10 Example: /help 1
  imecho ENDOF %impact.ver HELP
}
alias unimpact remaddon %impact.ver | unset %impact.* | save -rv vars.mrc | .unload -rs impact.mrc | iecho 4impac4t v1.4 uninstalled.
alias ik {
  if # = $null { imecho 4ERROR IK only works while you are on a channel! 4ERROR | halt }
  if $1 == $null { 
    imecho    4ERROR /IK [b] <nick> <reason> 4ERROR 
    imecho  4ERROR The "b" flag toggles banning 4ERROR 
    halt 
  }
  if ($1 == b) { iikb # $$2 $3- | halt } 
  iik # $1 $2-
}
alias a3 return $address($1,3)
alias iik {
  inc %impact.kick.num 1
  if ($3 == $null) { kick $$1 $$2 %impact.ver - %impact.kick.num %impact.kick.reason | return }
  kick $$1 $$2  $+ $3- $+  - %impact.kick.num %impact.kick.reason
}
alias iikb {
  inc %impact.kick.num 1
  ban $a3($$2) $$1  
  if ($3 == $null) { kick $$1 $$2 %impact.ver - %impact.kick.num %impact.kick.reason | return }
  kick $$1 $$2  $+ $3- $+  - %impact.kick.num %impact.kick.reason
}
alias ecolor echo 0#0 1#1 2#2 3#3 4#4 5#5 6#6 7#7 8#8 9#9 10#10 11#11 12#12 13#13 14#14 15#15
menu channel {
 impact v1.42
  .impac&t:iv
  .-
  .echo "ba&r"
  ..vie&w:imecho Current echo bar: [ %h ]
  ..-
  ..chang&e:{
    set %impact.h.temp $?="New echo bar"
    if ($! == $null) { return }
    set %h $!
    imecho Echo "bar" now: [ %h ]
  }
  .get nic&k
  ..vie&w: {
    if (%impact.getnick == 0) { set %impact.temp Off }
    if (%impact.getnick == 1) { set %impact.temp On }
    imecho Get nick is: 10 $+ %impact.temp $+ 
  }
  ..-
  ..o&n: {
    if (%impact.keep.nick == $null) { imecho You must first set a nick! | return }
    set %impact.getnick 1 | imecho Get nick is now: 10On
  }
  ..of&f:set %impact.getnick 0 | imecho Get nick is now: 10Off
  ..set nic&k: {
    set %impact.temp.nick $?="Your usual nick"
    if ($! == $null) { return }
    set %impact.keep.nick $!
    notify $!
    notify on
    imecho Default nick set to: 10 $+ $! $+ 
  }
  .iKi&ck
  ..current coun&t:imecho Total kicks to date:12 [ %impact.kick.num ] 
  ..current count ms&g:imecho Count msg:12 [ %impact.kick.reason ] 
  ..-
  ..change count m&sg: {
    set %impact.temp.reason $?="Count msg"
    if ($! == $null) { return }
    set %impact.kick.reason $!
    imecho Count msg now: [ %impact.kick.reason ]
    }
  ..hel&p:imphelp 1
  .nick completio&n
  ..vie&w:imecho Current nick completion: %nlb $+ $me $+ %nrb
  ..-
  ..set &left bracket: {
    set %impact.nlb.temp $?="Left bracket"
    if ($! == $null) { return }
    set %nlb $!
    imecho Left bracket now: [ %nlb ]
    }
  ..set right bracket: {
    set %impact.nrb.temp $?="Right bracket"
    if ($! == $null) { return }
    set %nrb $!
    imecho Right bracket now: [ %nrb ]
    }
  .othe&r
  ..addon&s:eav
  ..versio&n:esv
  .-
  .hel&p:imphelp 2
  .uninstal&l:unimpact
}