All pastes #825055 Raw Edit

kwl

public text v1 · immutable
#825055 ·published 2007-12-20 09:24 UTC
rendered paste body
alias menu { 
  dialog -m Menu Menu 
} d
ialog Menu { 
  title "Channel Commander - By HT1D" 
  size -1 -1 344 406 
  option pixels 
  tab "Channel Modes", 3, 0 0 454 470 
  tab "Kick/ban", 34 
  tab "Access", 48 
  tab "Amsg", 69 
  tab "Blacklist", 12 
  button "Join", 1, 15 65 100 24, tab 3 
  edit "Enter Channel Here..", 2, 73 35 196 20, tab 3 autohs autovs center 
  button "Register", 7, 16 90 100 25, tab 3 
  button "Assign Bot", 8, 16 115 100 25, tab 3 
  button "Secure Ops Off", 4, 16 140 100 25, tab 3 
  button "Secure Ops On", 5, 16 165 100 25, tab 3 
  button "Auto Voice", 6, 16 190 100 25, tab 3 
  button "Auto Halfop", 9, 16 215 100 25, tab 3 
  button "Auto Op", 10, 16 240 100 25, tab 3 
  button "Topic", 11, 16 265 100 25, tab 3 
  button "Close", 13, 9 370 317 25, ok 
  button "Invite On", 14, 120 65 100 25, tab 3 
  button "Invite Off", 15, 121 90 100 25, tab 3 
  button "Mute On", 16, 121 115 100 25, tab 3 
  button "Mute Off", 17, 121 140 100 25, tab 3 
  button "Channel Key On", 18, 121 165 100 25, tab 3 
  button "Channel Key Off", 19, 121 191 100 25, tab 3 
  button "Private On", 20, 121 215 100 25, tab 3 
  button "Private Off", 21, 121 240 100 25, tab 3 
  button "Registed Only Off", 22, 121 290 100 25, tab 3 
  button "Registed Only On", 23, 121 265 100 25, tab 3 
  button "No Change Nick", 24, 226 65 100 25, tab 3 
  button "Max Users", 25, 226 115 100 25, tab 3 
  button "Can Change Nick", 26, 226 90 100 25, tab 3 
  button "Joins Control", 27, 226 140 100 25, tab 3 
  button "No CTCP", 28, 226 165 100 25, tab 3 
  button "Allow CTCP", 29, 226 190 100 25, tab 3 
  button "Cant Kick ", 30, 226 215 100 25, tab 3 
  button "Can Kick", 31, 226 240 100 25, tab 3 
  button "Secret On", 32, 226 265 100 25, tab 3 
  button "Secret Off", 33, 226 290 100 25, tab 3 
  edit "Name Here...", 36, 15 45 149 20, tab 34 
  button "Kick", 37, 15 90 147 25, tab 34 
  edit "Channel here...", 35, 168 45 149 20, tab 34 
  button "MassKick", 38, 168 115 147 25, tab 34 
  button "TimeBan", 39, 15 114 147 25, tab 34 
  button "KickBan", 40, 168 90 147 25, tab 34 
  button "Protect", 41, 15 140 147 25, tab 34 
  button "AKick", 42, 168 140 147 25, tab 34 
  button "Show Banlist", 44, 168 165 147 25, tab 34 
  list 43, 19 212 301 121, tab 34 hsbar vsbar size 
  button "Add To Banlist", 45, 15 335 147 25, tab 34 
  button "Delete From", 46, 168 334 147 25, tab 34 
  button "Unban", 47, 15 165 147 25, tab 34 
  edit "Name Here...", 49, 15 45 149 20, tab 48 
  edit "Channel here...", 50, 168 45 149 20, tab 48 
  button "Voice", 51, 15 90 147 25, tab 48 
  button "De voice", 52, 168 90 147 25, tab 48 
  button "Halfop", 53, 15 115 147 25, tab 48 
  button "De Halfop", 54, 168 115 147 25, tab 48 
  button "Op", 55, 15 140 147 25, tab 48 
  button "De Op", 56, 168 140 147 25, tab 48 
  button "Founder", 57, 15 165 147 25, tab 48 
  button "De Founder", 58, 168 165 147 25, tab 48 
  button "MassVoice", 59, 15 190 147 25, tab 48 
  button "De Massvoice", 60, 168 190 147 25, tab 48 
  button "MassHalfop", 61, 15 215 147 25, tab 48 
  button "De MassHalfop", 62, 168 215 147 25, tab 48 
  button "MassOp", 63, 15 240 147 25, tab 48 
  button "De Massop", 64, 168 240 147 25, tab 48 
  button "Add", 65, 15 290 147 25, tab 48 
  button "Delete", 66, 15 330 147 25, tab 48 
  edit "Access Level", 67, 205 290 77 20, tab 48 
  text "Add/Del to Access List", 68, 99 269 134 17, tab 48 
  edit "Text Here", 71, 46 102 252 118, tab 69 autohs autovs return 
  button "Amsg!", 72, 90 321 147 25, tab 69 
  edit "#chan1", 73, 20 250 100 20, tab 69 
  edit "#chan2", 74, 120 250 100 20, tab 69 
  edit "#chan3", 75, 220 250 100 20, tab 69 
  edit "#chan4", 76, 20 275 100 20, tab 69 
  edit "#chan5", 77, 120 275 100 20, tab 69 
  edit "#chan6", 78, 220 275 100 20, tab 69 
  text "Halt Channels", 79, 120 229 100 17, tab 69 
  list 70, 53 164 230 140, tab 12 hsbar vsbar size 
  button "Ban", 80, 265 44 65 25, tab 12 
  button "Unban", 81, 265 93 65 25, tab 12 
  button "Unban", 82, 133 323 65 25, tab 12 
  edit "Nick here..", 83, 15 48 100 20, tab 12 
  edit "Nick Here..", 84, 15 96 100 20, tab 12 
  edit "Reason..", 85, 137 96 100 20, tab 12 autohs autovs 
  edit "Reason..", 86, 137 48 100 20, tab 12 autohs autovs 
} 
dialog Register { 
  title "Register" 
  size -1 -1 213 127 
  option pixels 
  button "Regitser", 1, 15 85 187 25, ok 
  edit "PassWord", 2, 15 35 187 20 
  edit "Channel name", 3, 15 15 187 20 
  edit "Pass Description", 5, 15 55 187 20 
} 
dialog bot { 
  title "Bot List" 
  size -1 -1 400 360 
  option pixels 
  list 12, 136 93 244 197, hsbar vsbar size 
  button "Assign", 1, 54 320 285 25, ok 
  edit "Channel Name", 3, 110 29 173 20 
  button "Get Botlist", 4, 17 94 100 25 
} 
dialog topic { 
  title "Topic" 
  size -1 -1 389 224 
  option pixels 
  edit "Channel Here", 1, 145 21 100 20 
  edit "Text Here", 2, 69 60 263 80, autohs autovs 
  button "Set Topic", 3, 88 163 206 25, ok 
} 
dialog key { 
  title "Channel Key" 
  size -1 -1 356 129 
  option pixels 
  edit "Channel Name..", 1, 123 13 100 20 
  button "Ok", 2, 102 90 140 25, cancell 
  edit "Channel key here", 3, 15 41 100 20 
  edit "Channel key here", 4, 15 62 100 20 
  button "Turn On", 5, 243 41 65 17, ok 
  button "Turn OFf", 6, 243 61 65 17, ok 
} 
dialog users { 
  title "Users" 
  size -1 -1 140 124 
  option pixels 
  edit "Channel", 1, 15 19 100 20 
  edit "Max Users...", 2, 15 54 100 20 
  button "Ok", 3, 36 86 65 25, ok 
} 
dialog joins { 
  title "joins" 
  size -1 -1 140 165 
  option pixels 
  edit "Channel", 1, 15 19 100 20 
  edit "Joins in Secs.", 2, 14 82 100 20 
  button "Ok", 3, 33 124 65 25, ok 
  edit "amount of joins", 4, 14 54 100 20 
} 
dialog banlist { 
  title "Add to Banlist" 
  size -1 -1 512 165 
  option pixels 
  edit "Host Mask Or Nick Here", 1, 10 50 425 20 
  edit "Channel Name here to ban..", 2, 10 85 425 20 
  button "Ok", 4, 87 123 329 25, ok 
  edit "Channel here....", 5, 95 15 301 20 
  button "Ok", 3, 438 48 65 25 
  button "Ok", 6, 438 81 65 25 
} 
dialog timeban { 
  title "Time Ban" 
  size -1 -1 512 201 
  option pixels 
  edit "Channel Name here...", 1, 80 22 342 20 
  edit "Name Here", 2, 24 55 342 20 
  edit "Time in minutes", 3, 24 90 342 20 
  edit "Reason", 4, 24 125 342 20 
  button "Ok", 5, 90 159 309 25, ok 
} 
dialog akick { 
  title "AutoKick" 
  size -1 -1 512 145 
  option pixels 
  edit "Hostmask or nick here....", 2, 10 50 425 20 
  button "Ok", 4, 86 102 329 25, ok 
  edit "Channel here....", 5, 95 15 301 20 
} 
dialog masskick { 
  title "Mass Kick" 
  size -1 -1 512 105 
  option pixels 
  button "Ok", 4, 82 64 329 25, ok 
  edit "Channel here....", 5, 95 15 301 20 
  text "Kicks All Non voiced in a channel", 1, 139 39 202 17 
} 
dialog unban { 
  title "Remove From Banlist" 
  size -1 -1 512 165 
  option pixels 
  edit "Host Mask Or Nick Here", 1, 10 50 425 20 
  edit "Channel Name here to unban..", 2, 10 85 425 20 
  button "Ok", 4, 87 123 329 25, ok 
  edit "Channel here....", 5, 95 15 301 20 
  button "Ok", 3, 438 48 65 25 
  button "Ok", 6, 438 81 65 25 
} 
on *:DIALOG:menu:sclick:44:{ mode $did(35) b } 
raw 367:*:{ 
  if ($dialog(menu).tab = 34) { 
    did -a menu 43 $3 
  } 
  haltdef 
} 
raw 368:*: { haltdef } 
on *:DIALOG:menu:sclick:1:{ join $did(2) } 
on *:dialog:menu:sclick:46: { mode $did(menu,35) -b $did(menu,43).seltext | did -d menu 43 $did(menu,43).sel } 
on *:DIALOG:menu:sclick:37:{ kick $did(35) $did(36) } 
on *:DIALOG:menu:sclick:14:{ mode $did(2) +i } 
on *:DIALOG:menu:sclick:15:{ mode $did(2) -i } 
on *:DIALOG:menu:sclick:16:{ mode $did(2) +m } 
on *:DIALOG:menu:sclick:17:{ mode $did(2) -m } 
on *:DIALOG:menu:sclick:28:{ mode $did(2) +C } 
on *:DIALOG:menu:sclick:29:{ mode $did(2) -C } 
on *:DIALOG:menu:sclick:30:{ mode $did(2) +Q } 
on *:DIALOG:menu:sclick:31:{ mode $did(2) -Q } 
on *:DIALOG:menu:sclick:20:{ mode $did(2) +p-s } 
on *:DIALOG:menu:sclick:21:{ mode $did(2) -p } 
on *:DIALOG:menu:sclick:32:{ mode $did(2) +s-p } 
on *:DIALOG:menu:sclick:33:{ mode $did(2) -s } 
on *:DIALOG:menu:sclick:22:{ mode $did(2) -R } 
on *:DIALOG:menu:sclick:23:{ mode $did(2) +R } 
on *:DIALOG:menu:sclick:24:{ mode $did(2) +N } 
on *:DIALOG:menu:sclick:26:{ mode $did(2) -N } 
on *:DIALOG:users:sclick:3:{ mode $did(1) +l $did(2) } 
on *:DIALOG:key:sclick:5:{ mode $did(1) +k $did(3) } 
on *:DIALOG:key:sclick:6:{ mode $did(1) -k $did(4) } 
on *:DIALOG:joins:sclick:3:{ mode $did(1) +j $+($did(2),:,$did(4)) } 
on *:DIALOG:menu:sclick:4:{ cs set $did(2) secureops off } 
on *:DIALOG:menu:sclick:5:{ cs set $did(2) secureops on } 
on *:DIALOG:menu:sclick:6:{ cs levels $did(2) set autovoice -1 } 
on *:DIALOG:menu:sclick:9:{ cs levels $did(2) set autohalfop -1 } 
on *:DIALOG:menu:sclick:10:{ cs levels $did(2) set Autoop -1 } 
on *:DIALOG:menu:sclick:7:{ dialog -m Register Register } 
on *:DIALOG:menu:sclick:8:{ dialog -m bot bot } 
on *:DIALOG:menu:sclick:18:{ dialog -m key key } 
on *:DIALOG:menu:sclick:19:{ dialog -m key key } 
on *:DIALOG:menu:sclick:25:{ dialog -m users users } 
on *:DIALOG:menu:sclick:11:{ dialog -m topic topic } 
on *:DIALOG:menu:sclick:27:{ dialog -m joins joins } 
on *:DIALOG:menu:sclick:47:{ dialog -m unban unban } 
on *:DIALOG:menu:sclick:38:{ dialog -m masskick masskick } 
on *:DIALOG:menu:sclick:42:{ dialog -m akick akick } 
on *:DIALOG:menu:sclick:39:{ dialog -m timeban timeban } 
on *:DIALOG:menu:sclick:45:{ dialog -m banlist banlist } 
on *:DIALOG:register:sclick:1:{ cs Register $did(3) $did(2) $did(5) } 
on *:dialog:bot:sclick:1: { bs assign $did(3) $did(12).seltext } 
on *:DIALOG:topic:sclick:3:{ topic $did(1) 4»0,4»5»4,5»1»5,1»0 -=- $did(2) -=-0 5«1,5«4«5,4«0«4,0« } 
on *:DIALOG:menu:sclick:38:{ 
  var %f = 1 
  mode $did(35) +i 
  .timer.sweep 1 1.3 mode $did(35) -i 
  while (%f <= $nick($did(35),0)) { 
    if ($nick($did(35),%f) isreg $did(35)) { 
      kick $did(35) $nick($did(35),%f) 4 Mass kicked all non voiced in14 $did(35) 
      inc %f 
    } 
    else inc %f 
  } 
} 
on *:DIALOG:menu:sclick:37:{ .kick $did(35) $did(36) } 
on *:DIALOG:menu:sclick:40:{ 
  .ban $did(35) $did(36) 
  .kick $did(35) $did(36) 
} 
on *:DIALOG:timeban:sclick:5:{ .ban -ku $+ $calc( $did(3) * 60 ) $did(1) $did(2) 2 14 Banned for:4 $did(3) Minutes 1[3reason:6 $did(4) 1] 4 Specified by: 3 $nick } 
on *:DIALOG:menu:sclick:41:{ mode $did(35) +e $did(36) } 
on *:DIALOG:akick:sclick:4:{ cs akick $did(5) add $did(2) } 
on *:DIALOG:unban:sclick:3:{ mode $did(5) -b $did(1) } 
on *:DIALOG:unban:sclick:6:{ mode $did(5) -b $+(~c:,$did(2)) } 
on *:DIALOG:banlist:sclick:3:{ mode $did(5) +b $did(1) } 
on *:DIALOG:banlist:sclick:6:{ mode $did(5) +b $+(~c:,$did(2)) } } 
on *:DIALOG:menu:sclick:51:{ mode $did(50) +v $did(49) } 
on *:DIALOG:menu:sclick:52:{ mode $did(50) -v $did(49) } 
on *:DIALOG:menu:sclick:53:{ mode $did(50) +h $did(49) } 
on *:DIALOG:menu:sclick:54:{ mode $did(50) -h $did(49) } 
on *:DIALOG:menu:sclick:55:{ mode $did(50) +o $did(49) } 
on *:DIALOG:menu:sclick:56:{ mode $did(50) -o $did(49) } 
on *:DIALOG:menu:sclick:57:{ mode $did(50) +q $did(49) } 
on *:DIALOG:menu:sclick:58:{ mode $did(50) -q $did(49) } 
on *:DIALOG:menu:sclick:59:{ var %i 1 | var %n | while ($nick($did(50),%i,r) != $null) { %n = $addtok(%n, $nick($did(50),%i,r),32) | if ($len(%n) > 80) { mode $did(50) $+(+,$str(v,$numtok(%n, 32))) %n | %n = "" } | inc %i } | mode $did(50) $+(+,$str(v,$numtok(%n, 32))) %n } 
on *:DIALOG:menu:sclick:60:{ var %i 1 | var %n | while ($nick($did(50),%i,v) != $null) { %n = $addtok(%n, $nick($did(50),%i,v),32) | if ($len(%n) > 80) { mode $did(50) $+(-,$str(v,$numtok(%n, 32))) %n | %n = "" } | inc %i } | mode $did(50) $+(-,$str(v,$numtok(%n, 32))) %n } 
on *:DIALOG:menu:sclick:61:{ var %i 1 | var %n | while ($nick($did(50),%i,vr) != $null) { %n = $addtok(%n, $nick($did(50),%i,vr),32) | if ($len(%n) > 80) { mode $did(50) $+(+,$str(h,$numtok(%n, 32))) %n | %n = "" } | inc %i } | mode $did(50) $+(+,$str(h,$numtok(%n, 32))) %n } 
on *:DIALOG:menu:sclick:62:{ var %i 1 | var %n | while ($nick($did(50),%i,h) != $null) { %n = $addtok(%n, $nick($did(50),%i,h),32) | if ($len(%n) > 80) { mode $did(50) $+(-,$str(h,$numtok(%n, 32))) %n | %n = "" } | inc %i } | mode $did(50) $+(-,$str(h,$numtok(%n, 32))) %n } 
on *:DIALOG:menu:sclick:63:{ var %i 1 | var %n | while ($nick($did(50),%i,hvr) != $null) { %n = $addtok(%n, $nick($did(50),%i,hvr),32) | if ($len(%n) > 80) { mode $did(50) $+(+,$str(o,$numtok(%n, 32))) %n | %n = "" } | inc %i } | mode $did(50) $+(+,$str(o,$numtok(%n, 32))) %n } 
on *:DIALOG:menu:sclick:64:{ var %i 1 | var %n | while ($nick($did(50),%i,o) != $null) { %n = $addtok(%n, $nick($did(50),%i,o),32) | if ($len(%n) > 80) { mode $did(50) $+(-,$str(o,$numtok(%n, 32))) %n | %n = "" } | inc %i } | mode $did(50) $+(-,$str(o,$numtok(%n, 32))) %n } 
on *:DIALOG:menu:sclick:65:{ cs access $did(50) add $did(49) $did(67) } 
on *:DIALOG:menu:sclick:66:{ cs access $did(50) del $did(49) } 
on *:DIALOG:menu:sclick:72:{ 
  Var %x = 1, %y = $Chan(0) 
  Var %z = $did(73) $did(74) $did(75) $did(76) $did(77) $did(78) 
  While (%x <= %y) { 
    If ($Chan(%x) !isin %z) { 
      Msg $Chan(%x) 7»4A14msg7« $did(71) 7»4A14msg7« 
    } 
    Inc %x 
  } 
} 
on *:DIALOG:bot:sclick:4:{ bs botlist } 
on ^*:notice:*:*:{ 
  if ($nick == BotServ) { 
    haltdef 
    did -a bot 12 $1- 
  } 
} 
on *:DIALOG:menu:sclick:80: { 
  set %reason $did(86) 
  set %nick $did(83) 
  write bllist.txt %nick 
  amsg 7»4A14msg7« I just Globally banned %nick Reason: %reason in all Channels i Could 7»4A14msg7« 
  var %a 1 | while ($chan(%a)) { if ($me isop $chan(%a)) || ($me ishop $chan(%a)) { ban -k $chan(%a) %nick 2 %reason (global kickban) } | inc %a } 
} 
on *:DIALOG:menu:sclick:81: { 
  set %unbanreason $did(85) 
  set %unbannick $did(84) 
  amsg 7»4A14msg7« I just Globally unbanned %unbannick Reason: %unbanreason in all channels i could 7»4A14msg7« 
  write -ds %nick bllist.txt 
  var %a 1 | while ($chan(%a)) { if ($Me isop $chan(%a)) || ($me ishop $chan(%a)) { ban -r $chan(%a) %unbannick 2 %reason } | inc %a } 
} 
on *:DIALOG:menu:init:0:{ filter -fo bllist.txt $dname 70 } 
on *:DIALOG:menu:sclick:82: { 
  set %unnick $did(70).seltext 
  var %a 1 | while ($chan(%a)) { if ($Me isop $chan(%a)) || ($me ishop $chan(%a)) { ban -r $chan(%a) %unnick 2 } | inc %a } 
  amsg 7»4A14msg7« i just globally unbanned %unnick in all Channels i Could 7»4A14msg7« 
  write -ds %nick bllist.txt 
} 
on *:JOIN:#: { 
  if ($nick isin $read(bllist.txt,w,* $+ $nick $+ *)) { 
    if ($me isop $chan) || ($me ishop $chan) { 
      ban -k $chan $nick U are on my blacklist /query $me to get unblacklisted 
    } 
    else { 
      msg $chan I Cannot ban $nick But i suggest u do /mode $chan +b $address($nick,#) 
    }  
  }  
}