All pastes #959361 Raw Edit

Someone

public text v1 · immutable
#959361 ·published 2008-03-27 11:54 UTC
rendered paste body
menu * {
  The IRC Dialog { /dialog -m irc_dialog irc_dialog }
}
dialog irc_dialog {
  title "The IRC Dialog"
  size -1 -1 166 89
  option dbu
  box "The IRC Dialog", 1, 14 6 140 68
  button "Mp3 Player", 2, 21 21 52 12
  button "AMSG", 3, 89 21 51 12
  button "Away Script", 4, 21 44 52 12
  button "Channel Commands", 5, 88 44 51 12
  text "The IRC Dialog - By Freeze http://thefreeze.freeforums.org", 6, 10 76 153 8
  menu "File", 7
  item "Credits", 8, 7
  item "Close", 9, 7, cancel
}
on *:DIALOG:irc_dialog:SCLICK:2: { /dialog -m player player }
on *:DIALOG:irc_dialog:SCLICK:3: { /dialog -m amsg amsg }
on *:DIALOG:irc_dialog:SCLICK:4: { /dialog -m away away }
on *:DIALOG:irc_dialog:SCLICK:5: { /dialog -m ccommand ccommand }
on *:DIALOG:irc_dialog:SCLICK:8: {
  /echo -a The IRC Dialog was coded by Freeze.
  /echo -a The Channel Command was by HT1D
  /echo -a Need help?
  /echo -a Join #Freeze or visit http://thefreeze.freeforums.org
}
dialog Player {
  title "Freeze mp3!"
  size -1 -1 160 63
  option dbu
  button "Stop", 2, 89 9 47 20, flat multi
  box "Song", 3, 3 4 152 47
  text "By Freeze", 4, 50 50 38 8, nowrap
  button "Browse", 5, 8 30 37 12, flat multi
  edit "", 6, 9 11 74 15
  button "Play", 7, 66 31 32 11, flat multi
  button "Pause/Resume", 8, 105 31 40 11, flat multi
}
on *:DIALOG:player:sclick:5: {
  //set %file $sfile(%musicdir $+ *.mp3;*.wma*.wav,Select music file)
  did -r $dname 6
  did -a $dname 6 $regsubex($nopath(%file),/.[^.]+$/,)
}
on *:DIALOG:player:sclick:7: {
  splay %file
  amsg 0,1(4Freeze mp30,1) I am currently listening to:4,1 $regsubex($nopath(%file),/.[^.]+$/,) 0,1(4,1Freeze mp30,1)
}
on *:DIALOG:player:sclick:2: {
  splay stop
}
on *:DIALOG:player:sclick:8: {
  if (%pause == $null) {
    splay pause
    set %pause f
    halt
  }
  elseif (%pause == f) {
    splay resume
    unset %pause
  }
}
dialog amsg {
  title "AMSG - By Freeze"
  size -1 -1 268 210
  option pixels
  icon C:UsersAlexPicturesfreezenetwork.png, 0
  box "AMSG Options", 1, 10 12 250 166
  text "By Freeze", 2, 98 186 102 16
  text "AMSG Text", 3, 20 44 56 16
  edit "", 4, 16 68 204 26
  button "AMSG!", 5, 86 120 74 24
  menu "File", 6
  item "Close", 7, 6, cancel
}
on *:DIALOG:amsg:SCLICK:5: {
  if ($did(4) == $null) { /echo -a Please provide text to AMSG! }
  else { /amsg 12/aMSG $did(4) }
}
dialog away {
  title "Away Script - By Freeze"
  size -1 -1 299 245
  option pixels
  box "Away Options", 1, 13 13 259 197
  text "Away Reason", 2, 20 40 78 16
  edit "", 3, 19 62 228 26
  text "Away Nick", 4, 20 101 77 16
  edit "", 5, 20 130 232 28
  button "Go Away!", 6, 32 165 75 25
  text "By Freeze", 7, 113 221 70 16
  button "Come Back!", 10, 135 165 75 25
  menu "File", 8
  item "Close", 9, 8
}
on *:DIALOG:away:SCLICK:6: {
  if (%away == yes) { //echo -a You're already away! | halt }
  if ($did(3) == $null) { amsg 12/aWAY I'm now away! Reason: None Set | set %reason No Reason | set %away yes }
  else { amsg 12/aWAY I'm now away! Reason: $did(3) | set %reason $did(3) | set %away yes }
  set %nick $nick
  nick $did(5)
}
on *:DIALOG:away:SCLICK:10: {
  if (%away == yes) { amsg 12/bACK I'm now back from: %reason | nick %nick | unset %away }
  else { /echo -a You're not away! | halt }
}
alias menu {
  dialog -m Menu Menu
}
dialog ccommand {
  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
  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
}
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:bot:sclick:4:{ bs botlist }
on ^*:notice:*:*:{
  if ($nick == BotServ) {
    haltdef
    did -a bot 12 $1-
  }