/ScriptServ

; Control Panel v1.0 by HaNtU[uU]
; easy to use and easy to rip, but dont rip it.. =P
; well, what the code do, i written above it, read it and you will know more =))
; good for someone who is learning script, and someone who lazy to script.
; credit give to my own clone who tested this for me.
; email: tell you later.
;
; *********************************************************************************************************
;
;; aliases
; voice and d'voice
alias vo {
  ; getting the number of selected nick
  set -u %r.vonick $numtok($replace($snicks,$chr(44),$chr(32)),32)
  ; set the number of 'v's with $str and voice 'em
  mode # + $+ $str(v,%r.vonick) $replace($snicks,$chr(44),$chr(32))
}
alias dvo {
  ; well, the same, getting the number of selected nick
  set -u %r.dvonick $numtok($replace($snicks,$chr(44),$chr(32)),32)
  ; ackie, the same again, set the number of 'v's with $str and then d'voice 'em
  mode # - $+ $str(v,%r.dvonick) $replace($snicks,$chr(44),$chr(32))
}

; op and d'op
alias op {
  ; doodie, same here...set the number of selected nick
  set -u %r.opnick $numtok($replace($snicks,$chr(44),$chr(32)),32)
  ; and set the 'o's with $str and op 'em
  mode # + $+ $str(o,%r.opnick) $replace($snicks,$chr(44),$chr(32))
}
alias dop {
  ; watever the code is, this is still setting the number of selected nick!
  set -u %r.dopnick $numtok($replace($snicks,$chr(44),$chr(32)),32)
  ; uhu, set the number of 'o's and d'op 'em!
  mode # - $+ $str(o,%r.dopnick) $replace($snicks,$chr(44),$chr(32))
}

; kick!!!!!
alias kck {
  set -u %r.kickmsg $?="Kick Message (Default If None):"
  if (%r.kickmsg == $null) { set -u %r.kickmsg Kickk! (Control Panel v1.0) }
  set -u %r.kick $numtok($replace($snicks,$chr(44),$chr(32)),32)
  :start
  if (%r.kick <= 0) { goto end }
  kick # $snick(#,%r.kick) %r.kickmsg
  dec %r.kick
  goto start
  :end
}

; ban/unban
alias b {
  set -u %r.bannick $numtok($replace($snicks,$chr(44),$chr(32)),32)
  set -u %r.bannum %r.bannick
  .ial on
  :start
  if (%r.bannum <= 0) { goto end }
  set -u %r.banmask %r.banmask $address($snick(#,%r.bannum),3)
  dec %r.bannum
  goto start
  :end
  mode # + $+ $str(b,%r.bannick) %r.banmask
}
alias unb {
  set -u %r.ubannick $numtok($replace($snicks,$chr(44),$chr(32)),32)
  set -u %r.ubannum %r.ubannick
  .ial on
  :start
  if (%r.ubannum <= 0) { goto end }
  set -u %r.ubanmask %r.ubanmask $address($snick(#,%r.ubannum),3)
  dec %r.ubannum
  goto start
  :end
  mode # - $+ $str(b,%r.ubannick) %r.ubanmask
}

; ban with addy and timed ban! neat eh?
; usage: /b.addy [nick] [type]
alias b.addy {
  if ($2 == 0) { mode # +b $address($snick(#,1),0) | kick # $1 Banned. (Control Panel v1.0 ) }
  if ($2 == 1) { mode # +b $address($snick(#,1),1) | kick # $1 Banned. (Control Panel v1.0 ) }
  if ($2 == 2) { mode # +b $address($snick(#,1),2) | kick # $1 Banned. (Control Panel v1.0 ) }
  if ($2 == 3) { mode # +b $address($snick(#,1),3) | kick # $1 Banned. (Control Panel v1.0 ) }
  if ($2 == 4) { mode # +b $address($snick(#,1),4) | kick # $1 Banned. (Control Panel v1.0 ) }
  if ($2 == 5) { mode # +b $address($snick(#,1),5) | kick # $1 Banned. (Control Panel v1.0 ) }
  if ($2 == 6) { mode # +b $address($snick(#,1),6) | kick # $1 Banned. (Control Panel v1.0 ) }
  if ($2 == 7) { mode # +b $address($snick(#,1),7) | kick # $1 Banned. (Control Panel v1.0 ) }
  if ($2 == 8) { mode # +b $address($snick(#,1),8) | kick # $1 Banned. (Control Panel v1.0 ) }
  if ($2 == 9) { mode # +b $address($snick(#,1),9) | kick # $1 Banned. (Control Panel v1.0 ) }
}
; usage: /b.timed [nick] [type]
; [type] in here means the minutes
; 1=1min, 2=2mins, 3=5mins, 4=10mins, 5=15mins, 6=20mins, 7=25mins, 8=30mins, 9=1hr
alias b.timed {
  if ($2 == 1) { ban -u60 $address($snick(#,1),3) | kick # $1 Banned. [[ 1 Min ]] (Control Panel v1.0 ) }
  if ($2 == 2) { ban -u120 $address($snick(#,1),3) | kick # $1 Banned. [[ 2 Mins ]] (Control Panel v1.0 ) }
  if ($2 == 3) { ban -u300 $address($snick(#,1),3) | kick # $1 Banned. [[ 5 Mins ]] (Control Panel v1.0 ) }
  if ($2 == 4) { ban -u600 $address($snick(#,1),3) | kick # $1 Banned. [[ 10 Mins ]] (Control Panel v1.0 ) }
  if ($2 == 5) { ban -u900 $address($snick(#,1),3) | kick # $1 Banned. [[ 15 Mins ]] (Control Panel v1.0 ) }
  if ($2 == 6) { ban -u1200 $address($snick(#,1),3) | kick # $1 Banned. [[ 20 Mins ]] (Control Panel v1.0 ) }
  if ($2 == 7) { ban -u1500 $address($snick(#,1),3) | kick # $1 Banned. [[ 25 Mins ]] (Control Panel v1.0 ) }
  if ($2 == 8) { ban -u1800 $address($snick(#,1),3) | kick # $1 Banned. [[ 30 Mins ]] (Control Panel v1.0 ) }
  if ($2 == 9) { ban -u3600 $address($snick(#,1),3) | kick # $1 Banned. [[ 1 Hr ]] (Control Panel v1.0 ) }
}

;; menus
; available only in nicklist. how come you will op,d'op,voice,d'voice the channel?
menu nicklist {
  $iif($me isop $active,Control Panel)
  .; some little thing that let you 'act' a lil bit. addon's advertisement!
  .advertise:/me is running [mIRC $version $+ ] with (Control Panel v1.0 ) by HaNtU[uU].
  .-

  .; what does this do? heh, it will op people who isn't op, and d'op people who is op.
  .op/d'op: { if ($snick(#,1) !isop #) { op } | else { dop } }

  .; now, voice who is not voiced and d'voice who is voiced
  .vo/d'vo: { if ($snick(#,1) !isvo #) { vo } | else { dvo } }
  .-

  .; here comes the kick thingy! it will let you set the msg, or let it be default by blank
  .; uhm, kickkk! no comment, heh
  .; does un'kick available? lol
  .kick:/kck
  .kick&&ban:.ial on | mode # +b $address($snick(#,1),3) | kick # $snick(#,1) $$?="Kick Message:"
  .-

  .; i have to seperate the ban and unban, not like the op, d'op. i still dunno how
  .; to know who is in channel's banlist =\
  .ban:/b

  .; and the un'ban is here. hehe, seperated.
  .un'ban:/unb
  .-

  .; here is the kewl one. ban with addy and timed ban. i've make 'em as aliases.
  .; it would need some little skill to make it work...rofl..hehe, but you would make it work with
  .; just one click! enjoy!
  .ban (addy)
  ..$address($snick(#,1),0):.ial on | b.addy $snick(#,1) 0
  ..$address($snick(#,1),1):.ial on | b.addy $snick(#,1) 1
  ..$address($snick(#,1),2):.ial on | b.addy $snick(#,1) 2
  ..$address($snick(#,1),3):.ial on | b.addy $snick(#,1) 3
  ..$address($snick(#,1),4):.ial on | b.addy $snick(#,1) 4
  ..$address($snick(#,1),5):.ial on | b.addy $snick(#,1) 5
  ..$address($snick(#,1),6):.ial on | b.addy $snick(#,1) 6
  ..$address($snick(#,1),7):.ial on | b.addy $snick(#,1) 7
  ..$address($snick(#,1),8):.ial on | b.addy $snick(#,1) 8
  ..$address($snick(#,1),9):.ial on | b.addy $snick(#,1) 9
  .ban (timed)
  ..1 Minute:/b.timed $snick(#,1) 1
  ..2 Minutes:/b.timed $snick(#,1) 2
  ..5 Minutes:/b.timed $snick(#,1) 3
  ..10 Minutes:/b.timed $snick(#,1) 4
  ..15 Minutes:/b.timed $snick(#,1) 5
  ..20 Minutes:/b.timed $snick(#,1) 6
  ..25 Minutes:/b.timed $snick(#,1) 7
  ..30 Minutes:/b.timed $snick(#,1) 8
  ..1 Hour:/b.timed $snick(#,1) 9
}

;; Remotes
; trigger the on load event!
On *:LOAD: {
  echo 13 -a [[    Addon: cpanel.mrc    ]]
  echo 13 -a [[   Loaded Successfully   ]]
  echo 13 -a [[ Enjoy Your Chat Session ]]
}