Browse: SMF Script 8 :: ScriptServ

SMF Script 8 — File Browser

SMFScript8v8.13 / SMFScript8v8.13 / system / oper.mrc
oper.mrc — 13.04 KB — Download this file
alias spaces return $1 $+ $str($chr(160),$calc($2 - $len($1)))
raw 211:*: {
 if ($gettok($1-,$numtok($1-,32),32) = TS) return
  if ($2 = SendQ) || ($2 = connection) {
    window -nblk +e @Stats_L fixedsys 10
    aline -h $colour(text) @stats_L $spaces(Port,9) $spaces(SendQ,10) $spaces(SendM,10) $spaces(SendBytes,10) $spaces(RcveM,10) $spaces(RcveBytes,10) $spaces(Open_since,15) Idle
    aline -h $colour(text) @stats_L $str(-,86)
  }
  else {
    set %statsl - $+ $len($server)
    aline -h $colour(text) @stats_L $spaces($right($2,%statsl),9) $spaces($size($3),10) $spaces($size($4),10) $spaces($size($5),10) $spaces($size($6),10) $spaces($size($7),10) $spaces($asctime($calc($ctime - $8),dd/mm/yy-HH:nn),15) $replace($duration($9),$chr(32),$chr(44))
  }
  haltdef
}
raw 219:*:{
  if (%statsl) {
    aline -h $colour(text) @stats_L End of /STATS
    unset %statsl
    window -b @stats_l
    haltdef
  }
}
alias selkill if (o !isin $usermode) nooper | set %selk.nicknum $numtok($1,44) | set %selk.msg $$?="Message" | :loop | inc %selk.numinc | if (%selk.numinc > %selk.nicknum) goto end | if ($gettok($1,%selk.numinc,44) != $me) kill $gettok($1,%selk.numinc,44) %selk.msg | goto loop | :end | unset %selk.*
dialog mkill {
  title "SMF Script Mass Kill Console"
  size -1 -1 218 130
  text "Address Pattern" 1,9 6 200 12, center
  edit "nick!user@host.domain" 2,8 21 202 23, edit, drop
  button "Cancel" 3,110 95 54 26, cancel
  text "Kill Message" 4,9 50 200 12, center
  button "Kill" 5,50 95 54 26,
  edit "" 6,9 65 200 23, edit, drop
}
on *:dialog:mkill:sclick:*: if ($did = 5) && ($did(2)) && ($did(6)) { mkill %ms.kill.chan $did(2) $did(6) | dialog -x mkill } |  if ($did = 3) unset %ms.kill.*
alias mkill if (o !isin $usermode) nooper | set %ms.kill.chan $1 | set %ms.kill.st $2 | set %ms.kill.msg $3- | set %ms.kill.ttl $ial(%ms.kill.st,0) | :loop | inc %ms.kill.cnt | if ($ial(%ms.kill.st,%ms.kill.cnt).nick != $me) && ($ial(%ms.kill.st,%ms.kill.cnt).nick ison %ms.kill.chan) kill $ial(%ms.kill.st,%ms.kill.cnt).nick %ms.kill.msg | if (%ms.kill.cnt < %ms.kill.ttl) goto loop | unset %ms.kill.*
alias samode.dlg if (a !isin $usermode) nooper | if ($dialog(samode) = $null) dialog -mn samode samode
dialog samode {
  title "SMF Script Samode Console"
  size -1 -1 258 85
  text "Channel" 1, 9 5 100 12, center
  edit "" 2, 9 19 100 23,drop,edit
  text "Mode(s)" 3, 111 5 41 13
  edit "" 4, 109 19 41 23, autohs
  text "Nick (optional)" 5, 150 5 100 13, center
  edit "" 6, 150 19 100 23, autohs
  button "Set" 8, 75 50 54 26
  button "Close" 7, 135 50 54 26, cancel
}
on *:dialog:samode:sclick:8: if ($did(2)) samode $did(2) $did(4) $did(6)
alias stats.dlg if (o !isin $usermode) nooper | if ($dialog(stats) = $null) dialog -mn stats stats | did -a stats 2 d | did -a stats 2 h | did -a stats 2 i | did -a stats 2 k | did -a stats 2 n | did -a stats 2 o | did -a stats 2 Q | did -a stats 2 U | did -a stats 2 y | did -a stats 2 l | did -a stats 2 L | did -a stats 2 m | did -a stats 2 q | did -a stats 2 u | did -a stats 2 t | did -a stats 2 w | did -a stats 2 x | did -a stats 2 z
dialog stats {
  title "SMF Script Server Stats Console"
  size -1 -1 258 85
  text "Letter" 1, 9 5 30 12
  combo 2, 9 20 40 280,drop,edit
  text "Nick (optional)" 3, 50 5 100 13, center
  edit "" 4, 50 19 100 23, autohs
  text "Server (optional)" 5, 150 5 100 13, center
  edit "" 6, 150 19 100 23, autohs
  button "Stats" 8, 75 50 54 26
  button "Close" 7, 135 50 54 26, cancel
}
on *:dialog:stats:sclick:8: if ($did(2)) stats $did(2) $did(4) $did(6)
alias addynot.dlg if (o !isin $usermode) nooper | if ($dialog(addynot) = $null)  dialog -mn addynot addynot | did -a addynot 3 $gettok($address($me,3),2,64) | did -a addynot 5 [ADDRESS NOTICE] (Please do not reply) | did -a addynot 6 Change nick to $network | did -c addynot 6 | set %ADDY.nick $network | did -b addynot 8
dialog addynot {
  title "SMF Script Address Notice Console"
  size -1 -1 250 195
  button "Cancel" 1, 130 161 54 26, cancel
  text "Address(es)" 2, 9 6 232 13, center
  edit "" 3, 8 21 232 23, autohs
  text "Message" 4, 9 46 232 13, center
  edit "" 5, 8 61 232 23, autohs
  radio "" 6, 9 91 150 13
  radio "Change nick to" 7, 9 111 90 13
  edit "" 8, 103 107 75 23, autohs
  radio "Don't change your nick" 9, 9 131 140 13
  button "Send" 10, 70 161 54 26
}
on *:dialog:addynot:edit:8: set %ADDY.nick $did(8)
on *:dialog:addynot:sclick:*: if ($did = 1) unset %ADDY.nic* | if ($did = 9) { unset %ADDY.nick | did -b addynot 8 } | if ($did = 7) did -era addynot 8 %ADDY.nick | if ($did = 6) { set %ADDY.nick $network | did -b addynot 8 } | if ($did = 10) && ($did(3)) && ($did(5)) { if (%ADDY.nick) { set %ADDY.nick.old $me | nick %ADDY.nick } | .notice $chr(35) $+ $did(3) $did(5) | if (%ADDY.nick) { nick %ADDY.nick.old | unset %ADDY.nick.old } | dialog -c addynot }
alias conect.dlg if (o !isin $usermode) nooper | if ($dialog(Connect) = $null)  dialog -mn Connect Connect | did -a Connect 5 7325
dialog Connect {
  title "SMF Script Server Connection Console"
  size -1 -1 270 126
  button "Cancel" 1, 130 90 54 26, cancel
  text "Target Server" 2, 9 6 252 13, center
  edit "" 3, 8 21 252 23, autohs
  text "Port (optional)" 4, 9 46 70 13
  edit "" 5, 8 61 70 23, autohs
  text "From Server (optional)" 6, 80 46 182 13, center
  edit "" 7, 78 61 182 23, autohs
  button "Connect" 10, 70 90 54 26
}
on *:dialog:Connect:sclick:10: if ($did(3)) { connect $did(3) $did(5) $did(7) | dialog -c Connect }
alias disconect.dlg if (o !isin $usermode) nooper | if ($dialog(Disconnect) = $null) dialog -mn Disconnect Disconnect
dialog Disconnect {
  title "SMF Script Server Disconnection Console"
  size -1 -1 280 126
  button "Cancel" 1, 136 90 66 26, cancel
  text "Target Server" 2, 9 6 262 13, center
  edit "" 3, 8 21 262 23, autohs
  text "Reason (optional)" 4, 9 46 262 13
  edit "" 5, 8 61 262 23, autohs
  button "Disconnect" 10, 64 90 66 26
}
on *:dialog:Disconnect:sclick:10: if ($did(3)) { squit $did(3) $did(5) | dialog -c Disconnect }
alias reklrs.dlg if ($dialog(reklrs) = $null) dialog -mn reklrs reklrs | did -a reklrs 10 %reklrs.com
dialog reklrs {
  title "SMF Script Server Console"
  size -1 -1 210 85
  button "Cancel" 1, 105 50 54 26, cancel
  text "Password (optional)" 2, 9 6 192 13, center
  edit "" 3, 8 21 192 23, autohs
  button "" 10, 45 50 54 26
}
on *:dialog:reklrs:sclick:10: %reklrs.als $did(3,$did(3).text) | dialog -c reklrs
on *:dialog:reklrs:sclick:1: unset %reklrs.com %reklrs.als
alias servnot.dlg alias if (o !isin $usermode) nooper | if ($dialog(servnot) = $null) dialog -mn servnot servnot | did -a servnot 3 $server | did -a servnot 5 [GLOBAL NOTICE] (Please do not reply) | did -a servnot 6 Change nick to $network | did -c servnot 6 | set %glb.nick $network | did -b servnot 8
dialog servnot {
  title "SMF Script Server Notice Console"
  size -1 -1 250 195
  button "Cancel" 1, 130 161 54 26, cancel
  text "Server(s)" 2, 9 6 232 13, center
  edit "" 3, 8 21 232 23, autohs
  text "Message" 4, 9 46 232 13, center
  edit "" 5, 8 61 232 23, autohs
  radio "" 6, 9 91 150 13
  radio "Change nick to" 7, 9 111 90 13
  edit "" 8, 103 107 75 23, autohs
  radio "Don't change your nick" 9, 9 131 140 13
  button "Send" 10, 70 161 54 26
}
on *:dialog:servnot:edit:8: set %glb.nick $did(8)
on *:dialog:servnot:sclick:*: if ($did = 1) unset %glb.nick %glb.nick.old | if ($did = 9) { unset %glb.nick | did -b servnot 8 } | if ($did = 7) did -era servnot 8 %glb.nick | if ($did = 6) { set %glb.nick $network | did -b servnot 8 } | if ($did = 10) && ($did(3)) && ($did(5)) { if (%glb.nick) { set %glb.nick.old $me | nick %glb.nick } | .notice $ $+ $did(3) $did(5) | if (%glb.nick) { nick %glb.nick.old | unset %glb.nick.old } | dialog -c servnot }
alias kill.dlg if (o !isin $usermode) nooper | if ($dialog(kill) = $null) dialog -mn Kill Kill | if (%km.5) did -ac kill 3 %km.5 | if (%km.4) did -a kill 3 %km.4 | if (%km.3) did -a kill 3 %km.3 | if (%km.2) did -a kill 3 %km.2 | if (%km.1) did -a kill 3 %km.1 | set %kill.message %km.5
dialog Kill {
  title "SMF Script Kill Console"
  size -1 -1 218 130
  text "Nick" 1, 9 6 200 12, center
  edit "" 2, 8 21 202 23, edit, drop
  combo 3, 9 65 200 200, edit, drop
  text "Kill Message" 4, 9 50 200 12, center
  button "Kill" 5, 50 95 54 26,
  button "Cancel" 6, 110 95 54 26, cancel
}
on *:dialog:kill:edit:*: if ($did = 2) set %kill.nick $did(2,$did(2).text) | if ($did = 3) set %kill.message $did(3,$did(3).text)
on *:dialog:kill:sclick:*: if ($did = 6) unset %kill.* | if ($did = 3) set %kill.message $did(3,$did(3).sel) | if ($did = 5) { if (%kill.nick) && (%kill.message) { kill %kill.nick %kill.message | dialog -c kill } }
alias kill {
  if ($2) && ($2- != %km.1) && ($2- != %km.2) && ($2- != %km.3) && ($2- != %km.4) && ($2- != %km.5) { if (%km.2) set %km.1 %km.2 | if (%km.3) set %km.2 %km.3 | if (%km.4) set %km.3 %km.4 | if (%km.5) set %km.4 %km.5 | set %km.5 $2- }
  inc %klc.count
  if (%klc.active) {
    if (%klc.style = 1) kill $1- ( $+ %klc.count users served
    if (%klc.style = 2) kill $1- (Kill $chr(35) $+ %kc.count
    if (%klc.style != 1) && (%klc.style != 2) kill $1- ( $+ $chr(35) $+ %klc.count
  }
  else kill $1- 
}
alias kline.dlg if (o !isin $usermode) nooper | if ($dialog(kline) = $null) dialog -mn kline kline | did -a kline 3 %klm.5 | did -a kline 3 %klm.4 | did -a kline 3 %klm.3 | did -a kline 3 %klm.2 | did -a kline 3 %klm.1
dialog kline {
  title "SMF Script K:Line Console"
  size -1 -1 218 130
  text "Nick/Mask" 1, 9 6 200 12, center
  edit "" 2, 8 21 202 23, edit, drop
  combo 3, 9 65 200 200, edit, drop
  text "Reason" 4, 9 50 200 12, center
  button "K:line" 5, 23 95 54 26,
  button "unK:line" 6, 83 95 54 26,
  button "Cancel" 7, 143 95 54 26, cancel
}
on *:dialog:kline:edit:*: if ($did = 2) set %kline.nick $did(2) | if ($did = 3) set %kline.message $did(3)
on *:dialog:kline:sclick:*: if ($did = 7) unset %kline.* | if ($did = 3) set %kline.message $did(3,$did(3).sel) | if ($did = 5) && (%kline.nick) && (%kline.message) { dialog -c kline | kline %kline.nick %kline.message } | if ($did = 6) && (%kline.nick)  { unkline %kline.nick | dialog -c kline }
alias kline if ($2) && ($2- != %klm.1) && ($2- != %klm.2) && ($2- != %klm.3) && ($2- != %klm.4) && ($2- != %klm.5) { if (%klm.2) set %klm.1 %klm.2 | if (%klm.3) set %klm.2 %klm.3 | if (%klm.4) set %klm.3 %klm.4 | if (%klm.5) set %klm.4 %klm.5 | set %klm.5 $2- } | kline $1-
alias size {
  if ($1 > 1000000) return $calc($1 / 1000000) $+ MB
  if ($1 > 1000) && ($1 < 1000000) return $calc($1 / 1000) $+ KB
  if ($1 > 0) return $1 $+ B
  return 0B
}
raw 381:*: echo $colour(mode) -a * $2- | if (%script.omodes) mode $me + $+ $sets(opermodes) | haltdef
raw 382:*: echo $colour(info2) -a * Rehashing server... | haltdef
alias zline.dlg if (a !isin $usermode) nooper | if ($dialog(zline) = $null) dialog -mn zline zline | if (%zlm.5) did -a zline 3 %zlm.5 | if (%zlm.4) did -a zline 3 %zlm.4 | if (%zlm.3) did -a zline 3 %zlm.3 | if (%zlm.2) did -a zline 3 %zlm.2 | if (%zlm.1) did -a zline 3 %zlm.1
dialog zline {
  title "SMF Script Z:Line Console"
  size -1 -1 218 130
  text "IP Address" 1, 9 6 200 12, center
  edit "" 2, 8 21 202 23, edit, drop
  combo 3, 9 65 200 200, edit, drop
  text "Reason" 4, 9 50 200 12, center
  button "Z:line" 5, 23 95 54 26,
  button "unZ:line" 6, 83 95 54 26,
  button "Cancel" 7, 143 95 54 26, cancel
}
on *:dialog:zline:edit:*: if ($did = 2) set %zline.mask $did(2) | if ($did = 3) set %zline.message $did(3)
on *:dialog:zline:sclick:*: if ($did = 3) set %zline.message $did(3,$did(3).sel) | if ($did = 5) && (%zline.mask) && (%zline.message) { zline %zline.mask %zline.message | dialog -c zline } | if ($did = 6) && (%zline.mask) { unzline %zline.mask | dialog -c zline } | if ($did = 7) unset %zline.*
alias zline if ($2) && ($2- != %zlm.1) && ($2- != %zlm.2) && ($2- != %zlm.3) && ($2- != %zlm.4) && ($2- != %zlm.5) { if (%zlm.2) set %zlm.1 %zlm.2 | if (%zlm.3) set %zlm.2 %zlm.3 | if (%zlm.4) set %zlm.3 %zlm.4 | if (%zlm.5) set %zlm.4 %zlm.5 | set %zlm.5 $2- } | zline $1-
alias saban.con dialog -mn saban.con saban.con | did -b saban.con 8 | did -a saban.con 4 $address(%b.nick,3) | did -a saban.con 5 $address(%b.nick,8) | did -a saban.con 6 $gettok($address(%b.nick,8),1,33) $+ !*@* | did -a saban.con 8 $address(%b.nick,5)
dialog saban.con {
  title "SMF Script Ban Console"
  size -1 -1 306 125
  button "Ban" 2, 247 12 54 26,
  radio "", 4, 14 29 226 13,default
  button "Cancel" 3, 247 43 54 26, cancel
  radio "", 5, 14 49 226 13,
  radio "", 6, 14 69 226 13,
  radio "", 7, 14 89 13 13,
  edit "", 8, 30 85 200 23, autohs
  box "Ban Masks" 9, 6 6 236 110
}
on *:dialog:saban.con:sclick:*: if ($did = 2) { samode %b.chan +b %b.mask | dialog -c saban.con } | if ($did = 4) { did -b saban.con 8 | set %b.mask $did(4,$did(4).next) } | if ($did = 5) { did -b saban.con 8 | set %b.mask $did(5,$did(5).next) } | if ($did = 6) { did -b saban.con 8 | set %b.mask $did(6,$did(6).next) } | if ($did = 7) { did -e saban.con 8 | set %b.mask $did(8) } | if ($did = 3) unset %b.mask %b.chan %b.nick %b.check
on *:dialog:saban.con:edit:8: set %b.mask $did(54)