/ScriptServ

[script]
n0=; banstat
n1=alias banstat {
n2=  if ($server == $null) halt
n3=  set %_banchan $iif($left($1,1) isin &#,$1,#)
n4=  if (%_banchan == $null) { iecho Usage: /banstat [channel] | halt }
n5=  if ($__var(ibl.,%_banchan) == on) {
n6=    if ($me ison %_banchan) {
n7=      if ($show) iecho Internal banlist for %_banchan is being updated.. please wait.
n8=      halt
n9=    }
n10=    unset $_var(ibl.,%_banchan)
n11=  }
n12=  if ($me ison %_banchan) {
n13=    if ($ibl(%_banchan,0) == 0) { iecho No bans found for %_banchan | halt }
n14=    unset $_var(.unbanned.,%_banchan,.*)
n15=    if ($format(raw_ban_head,%_banchan)) echo %_banchan $ifmatch
n16=    else {
n17=      echo %_banchan  $+ $c1 $+ ÚÄÄÄÄ Banlist for $+ $c3 %_banchan  $+ $c1 $+ Ä $+ $str(Ä,$sub(62,$len(%_banchan))) $+ ¿
n18=      echo %_banchan  $+ $c1 $+ ³ $x $+  $+ $c3 $+ $align(12,Setby)  $+ $c3 $+ $align(22,When)  $+ $c3 $+ $align(42,BanMask)  $+ $c1 $+ ³
n19=      echo %_banchan  $+ $c1 $+ Ã $+ $str(Ä,70) $+  $+ $c3 $+ -- $+ $c4 -- $+ $c1 $+ ÄÄ $+ $c2 $+ Ä - $+ $c1 $+ Ä´
n20=    }
n21=    var %b = 1
n22=    while ($ibl(%_banchan,%b)) {
n23=      var %ban.m = $ifmatch
n24=      %.gay = $remove($ibl(%_banchan,%b).by,$chr(9),$chr(40),$chr(41))
n25=      var %ban.b = $iif(*!* iswm %.gay,$gettok(%.gay,1,33),%.gay)
n26=      var %ban.d = $ibl(%_banchan,%b).date
n27=
n28=      ; Set temporary variables for the /ub alias.
n29=      set $_var(.unbanned.,%_banchan,.,%b) %ban.m
n30=
n31=      if ($format(raw_ban_mid,%ban.m,%ban.b,%ban.d)) echo %_banchan $ifmatch
n32=      else {
n33=        if (%ban.b == $null) echo %_banchan  $+ $c1 $+ ³ $align(3,%b) $align(75,%ban.m)  $+ $c1 $+ ³
n34=        ;else echo %_banchan  $+ $c1 $+ $iif($r(1,100) < 50,³,$iif($r(1,10) < 5,:,|)) $+  $align(3,%b) $align(10,%ban.b) $gettok(%ban.d,1-4,32) $align(44,$mid(%ban.m,1,43))  $+ $c1 $+ $iif($r(1,100) < 50,³,$iif($r(1,10) < 5,:,|)) $+ 
n35=        else echo %_banchan  $+ $c1 $+ $iif($r(1,100) < 50,³,$iif($r(1,10) < 5,:,|)) $+  $align(3,%b) $align(10,%ban.b) $align(19,%ban.d) $align(44,$mid(%ban.m,1,43))  $+ $c1 $+ $iif($r(1,100) < 50,³,$iif($r(1,10) < 5,:,|)) $+ 
n36=      }
n37=      inc %b
n38=    }
n39=    if ($format(raw_ban_end,%_banchan)) { echo %_banchan $ifmatch | halt }
n40=    if ($me isop %_banchan) echo %_banchan  $+ $c1 $+ ³ $align(79,Type /ub <N> to remove a ban)  $+ $c1 $+ ³
n41=    echo %_banchan  $+ $c1 $+ À $+  $+ $c3 $+ -- $+ $c4 -- $+ $c1 $+ ÄÄ- $+ $c2 $+ Ä - $+ $c1 $+ $str(Ä,42) $+  $+ $c3 End of Channel Ban List  $+ $c1 $+ ÄÄÄÙ
n42=  }
n43=  else {
n44=    if ($show) iecho Retrieving bans for %_banchan ...
n45=    set $_var(_ban.count.,%_banchan) 0
n46=    unset %_unbanned. $+ %_banchan
n47=    unset %_banlist.* %unbanning
n48=    mode %_banchan b
n49=  }
n50=}
n51=alias cbans {
n52=  var %tempchan = $iif($1,$1,$active)
n53=  if ($me !isop %tempchan) { iecho You are not opped in $cs(%tempchan) $+ . | halt }
n54=  set %unbanning TRUE
n55=  if ($banlist(%tempchan,0) == 0) { iecho No bans found for %tempchan | unset %unbanning | halt }
n56=  var %b = 1, %mode = - $+ $servmod(b), %num = $servmod, %bans
n57=  while ($banlist(%tempchan,%b)) {
n58=    var %bans = $addtok(%bans,$ifmatch,32)
n59=    if (%num // %b) { mode %tempchan %mode %bans | var %bans }
n60=    inc %b
n61=  }
n62=  if (%bans) mode %tempchan %mode %bans
n63=}
n64=alias mbans {
n65=  set %tempchan $iif($1,$1,$iif($active ischan,$chan))
n66=  if ($me !isop %tempchan) { iecho You are not opped in $cs(%tempchan) $+ . | halt }
n67=  unset %b %cban %bans
n68=  set %unbanning TRUE
n69=  set %win $bind(@IBL,%tempchan)
n70=  if ($banlist(%tempchan,0) == 0) { iecho No bans found for %tempchan | halt } 
n71=  var %b = 1
n72=  while ($banlist(%tempchan,%b)) {
n73=    if ($banlist(%tempchan,%b).by == $me) set %bans %bans $banlist(%tempchan,%b)
n74=    if ($servmod // %b) { mode %tempchan - $+ $servmod(b) %bans | %bans = "" }
n75=    inc %b
n76=  }
n77=  if (%bans) mode %tempchan - $+ $str(b,$gettok(%bans,0,32)) %bans
n78=  var %w = @Ban Stats
n79=  if (($window(%w)) && ($gettok($window(%w).title,2,32) == %tempchan)) {
n80=    var %n = $line(%w,0,1)
n81=    while (%n) {
n82=      var %tmp = $replace($line(%w,%n,1),$chr(9),$chr(32))
n83=      var %mask = $gettok(%tmp,2,32)
n84=      if (($gettok(%mask,1,33) == $me) || (%mask == $address($me,5)) || ($address($me,2) iswm $gettok(%tmp,2,32))) dline %w %n
n85=      dec %n
n86=    }
n87=  }
n88=}
n89=alias ub {
n90=  %unbanning = TRUE
n91=  if ((*!*@* iswm $1) && ($me isop $active)) mode # - $+ $str(b,$numtok($1-,32)) $1-
n92=  elseif (($1 ischan) && ($me isop $1) && (*!*@* iswm $2)) mode $1 - $+ $str(b,$numtok($2-,32)) $2-
n93=  else {
n94=    if (%_banchan == $null) set %_banchan $active
n95=    if (%_banchan !ischan) { iecho That is not a channel, doofus.. | return }
n96=    if ($me !isop %_banchan) { iecho You are not opped in %_banchan $+ . | return }
n97=    if (($1 !isnum) || (*!*@* iswm $1)) { mode %_banchan -b $$1 | return }
n98=    if ($__var(.unbanned.,%_banchan,.,$1) == $null) { iecho That ban has been removed already. | return }
n99=    var %n = $banlist(%_banchan,0)
n100=    if ((%n) && ($1 isnum $bind(1-,%n))) {
n101=      mode %_banchan -b $__var(.unbanned.,%_banchan,.,$1)
n102=      unset $_var(.unbanned.,%_banchan,.,$1)
n103=    }
n104=    else iecho No such ban or banlist is empty.
n105=  }
n106=}
n107=on me:*:JOIN:#:.timer 1 2 ibl_update $chan
n108=alias ibl_update set $_var(ibl.,$1) on | mode $1 +b
n109=raw 367:*:{
n110=  if ((%unbanning == TRUE) || ($__var(ibl.,$2) == on)) halt
n111=  if (%_banchan == $2) {
n112=    inc $_var(_ban.count.,$2)
n113=    set %_banlist. $+ $2 $+ . $+ $__var(_ban.count.,$2) $3
n114=    %.ban.win = $iif(@* iswm $active,-slh,$iif($me ison $2,$2,-alh))
n115=    %.ban.win = $iif(-* !iswm %.ban.win, [ -lh %.ban.win ] ,%.ban.win)
n116=    %bnum = $__var(_ban.count.,$2)
n117=    %bnm2 = $align(3,%bnum)
n118=    if (%bnum == 1) {
n119=      if ($format(raw_ban_head,$2)) echo %.ban.win $ifmatch
n120=      else {
n121=        echo %.ban.win  $+ $c1 $+ ÚÄÄÄÄ Banlist for $+ $c3 $2  $+ $c1 $+ Ä $+ $str(Ä,$sub(62,$len($2))) $+ ¿
n122=        echo %.ban.win  $+ $c1 $+ ³ $x $+  $+ $c3 $+ $align(12,Setby)  $+ $c3 $+ $align(22,When)  $+ $c3 $+ $align(42,BanMask)  $+ $c1 $+ ³
n123=        echo %.ban.win  $+ $c1 $+ Ã $+ $str(Ä,81) $+ ´
n124=      }
n125=    } 
n126=    if ($format(raw_ban_mid,$3-)) { echo %.ban.win $ifmatch | halt }
n127=    if (($server($server).group == ircnet) || ($_network == IRCNet)) echo %.ban.win  $+ $c1 $+ ³ %bnm2 $align(75,$3)  $+ $c1 $+ ³
n128=    else echo %.ban.win  $+ $c1 $+ ³ %bnm2 $align(10,$gettok($4,1,33)) $gettok($asctime($5),1-4,32) $align(44,$mid($3,1,43))  $+ $c1 $+ ³
n129=  }
n130=  halt 
n131=}
n132=raw 368:*:{
n133=  if ((%unbanning == TRUE) || ($__var(ibl.,$2) == on)) goto end
n134=  %.ban.win = $iif(@* iswm $active,-slh,$iif($me ison $2,$2,-alh))
n135=  %.ban.win = $iif(-* !iswm %.ban.win, [ -lh %.ban.win ] ,%.ban.win)
n136=  if ($__var(_banlist.,$2,.1) == $null) { echo %.ban.win $pre No bans found for $2 | goto end }
n137=  if ($format(raw_ban_end,$2)) { echo %.ban.win $ifmatch | halt }
n138=  if ($me isop $2) echo $2  $+ $c1 $+ ³ $align(79,Type /ub <N> to remove a ban)  $+ $c1 $+ ³
n139=  echo %.ban.win  $+ $c1 $+ À $+ $str(Ä,53) $+  $+ $c3 $3-  $+ $c1 $+ ÄÄÄÙ
n140=  :end | unset $_var(ibl.,$2) %unbanning | halt
n141=}
n142=;about
n143=; $pcentertext(window,fontname,size,text)
n144=alias pcentertext return $calc(($window($1).dw - $width($4-,$2,$3,0,0)) / 2)
n145=alias pcenterbttn return $calc(($window($1).dw - $2) / 2)
n146=alias about {
n147=  var %w = @About
n148=  window -kp +ft %w $mwin(300,190) 300 190 %w
n149=  titlebar %w Basic
n150=  drawrect -rf %w $rgb(face) 0 0 0 300 190
n151=  drawborder %w 1 10 10 275 100
n152=  %.l1 = Basic for mIRC for v $+ $version
n153=  %.l2 = (the last EFNet script)
n154=  %.l3 = Written by blue-elf
n155=  %.l4 = Copyright © 1998-2000
n156=  %.l5 = All Rights Reserved
n157=  %.dc = drawtext -nr %w $rgb(text) "MS Sans Serif" 14
n158=  %.y = 20 | %.a = 1
n159=  while (%.a <= 5) { %.dc 30 %.y %.l [ $+ [ %.a ] ] | inc %.a | inc %.y 15 }
n160=  %.l6 = $abouttext(email)
n161=  %.l7 = $abouttext(url)
n162=  %.x1 = $pcentertext(%w,MS Sans Serif,14,%.l6)
n163=  %.x2 = $pcentertext(%w,MS Sans Serif,14,%.l7)
n164=  %.dc %.x1 120 %.l6
n165=  %.dc %.x2 143 %.l7
n166=  %.about.coords.email = %.x1 120
n167=  %.about.coords.url = %.x2 143
n168=  drawrect -n %w 10 10 190 20 80 80
n169=  drawtext -on %w 14 Arial 46 205 35 b:\ | %.about.letter = b
n170=  drawdot %w
n171=  if (($inmp3 == $false) && ($inwave == $false)) if ($_isfile($windir(\MEDIA\The Microsoft Sound.wav))) splay $ifmatch
n172=}
n173=; /3dp window email|url x y w h
n174=alias -l 3dp { 3d -rn $1 $rgb(shadow) $rgb(hilight) $3-6 | drawrect -rfn $1 $rgb(face) 1 $add($3,1) $add($4,1) $sub($5,2) $sub($6,2) | var %temp = %.about.coords. [ $+ [ $2 ] ] | var %x = $add($gettok(%temp,1,32),1), %y = $add($gettok(%temp,2,32),1) | drawtext -n $1 12 "MS Sans Serif" 14 %x %y $abouttext($2) | drawdot $1 }
n175=alias -l abouttext return $iif($1 == url,http://www.geocities.com/basic_mirc/,belf@usa.net)
n176=alias -l abouttext2 return $iif($1 == url,http://www.geocities.com/basic_mirc/,mailto:belf@usa.net?subject=Basic script)
n177=alias -l onMouseOver { if (%.about.prev == $1-) return | 3d -rn @About $rgb(hilight) $rgb(shadow) $2- | drawrect -rfn @About $rgb(face) 1 $add($2,1) $add($3,1) $sub($4,2) $sub($5,2) | rewrite $1 | if (%.about.prev) hideButtons | else %.about.prev = $1- | drawdot @About }
n178=alias -l rewrite { drawtext -rn @About $rgb(text) "MS Sans Serif" 14 %.about.coords. [ $+ [ $1 ] ] $abouttext($1) }
n179=alias -l hideButtons { if (%.about.prev) { tokenize 32 $ifmatch | drawrect -rfn @About $rgb(face) 2 $2- | rewrite $1 | unset %.about.prev | drawdot @About } | unset %.lastbutton }
n180=alias -l isbutton { if ($inr(10,115,275,22)) return email $ifmatch | if ($inr(10,139,275,22)) return url $ifmatch }
n181=alias -l md { if ($isbutton) onMouseOver $ifmatch | else hideButtons }
n182=menu @About {
n183=  mouse:md
n184=  sclick:if ($isbutton) { %.lastbutton = $ifmatch | 3dp @About %.lastbutton }
n185=  uclick:unset %.about.prev | if ($isbutton) { var %click = $ifmatch | onMouseOver %click | if (%click == %.lastbutton) run $abouttext2($gettok(%click,1,32)) }
n186=  leave:hideButtons
n187=}
n188=; EOF