Paste-1200321607:v:use_geshi-1:v:type-php

[Guest]

alias Akick { if ($dialog(Akick) == $null) dialog -m Akick Akick }
dialog Akick {
  title " IOP  Akick List"
  size -1 -1 225 140
  option dbu
  icon Pics\Server.ico
  button "- Exit -", 1, 183 128 37 10, cancel
  text "Add Nick or Address, Masks Supported", 349, 5 124 165 9,tab 501
  text "Followed with your Kick Message", 348, 5 132 165 9,tab 501
  box "Nick / Ip          Kick Message",2, 2 3 221 119
  edit "", 7, 5 10 33 10,autohs
  edit "", 8, 40 10 70 10,autohs
  edit "", 9, 115 10 33 10,autohs
  edit "", 10, 150 10 70 10,autohs
  edit "", 11, 5 21 33 10,autohs
  edit "", 12, 40 21 70 10,autohs
  edit "", 13, 115 21 33 10,autohs
  edit "", 14, 150 21 70 10,autohs
  edit "", 15, 5 32 33 10,autohs
  edit "", 16, 40 32 70 10,autohs
  edit "", 17, 115 32 33 10,autohs
  edit "", 18, 150 32 70 10,autohs
  edit "", 19, 5 43 33 10,autohs
  edit "", 20, 40 43 70 10,autohs
  edit "", 21, 115 43 33 10,autohs
  edit "", 22, 150 43 70 10,autohs
  edit "", 23, 5 54 33 10,autohs
  edit "", 24, 40 54 70 10,autohs
  edit "", 25, 115 54 33 10,autohs
  edit "", 26, 150 54 70 10,autohs

  edit "", 27, 5 65 33 10,autohs
  edit "", 28, 40 65 70 10,autohs
  edit "", 29, 115 65 33 10,autohs
  edit "", 30, 150 65 70 10,autohs
  edit "", 31, 5 76 33 10,autohs
  edit "", 32, 40 76 70 10,autohs
  edit "", 33, 115 76 33 10,autohs
  edit "", 34, 150 76 70 10,autohs
  edit "", 35, 5 87 33 10,autohs
  edit "", 36, 40 87 70 10,autohs
  edit "", 37, 115 87 33 10,autohs
  edit "", 38, 150 87 70 10,autohs
  edit "", 39, 5 98 33 10,autohs
  edit "", 40, 40 98 70 10,autohs
  edit "", 41, 115 98 33 10,autohs
  edit "", 42, 150 98 70 10,autohs
  edit "", 43, 5 109 33 10,autohs
  edit "", 44, 40 109 70 10,autohs
  edit "", 45, 115 109 33 10,autohs
  edit "", 46, 150 109 70 10,autohs

}

on *:dialog:Akick:edit:*:{
  set %Akick1 $did(7)
  set %Akick2 $did(8)
  set %Akick3 $did(9)
  set %Akick4 $did(10)
  set %Akick5 $did(11)
  set %Akick6 $did(12)
  set %Akick7 $did(13)
  set %Akick8 $did(14)
  set %Akick9 $did(15)
  set %Akick10 $did(16)
  set %Akick11 $did(17)
  set %Akick12 $did(18)
  set %Akick13 $did(19)
  set %Akick14 $did(20)
  set %Akick15 $did(21)
  set %Akick16 $did(22)
  set %Akick17 $did(23)
  set %Akick18 $did(24)
  set %Akick19 $did(25)
  set %Akick20 $did(26)
  set %Akick21 $did(27)
  set %Akick22 $did(28)
  set %Akick23 $did(29)
  set %Akick24 $did(30)
  set %Akick25 $did(31)
  set %Akick26 $did(32)
  set %Akick27 $did(33)
  set %Akick28 $did(34)
  set %Akick29 $did(35)
  set %Akick30 $did(36)
  set %Akick31 $did(37)
  set %Akick32 $did(38)
  set %Akick33 $did(39)
  set %Akick34 $did(40)
  set %Akick35 $did(41)
  set %Akick36 $did(42)
  set %Akick37 $did(43)
  set %Akick38 $did(44)
  set %Akick39 $did(45)
  set %Akick40 $did(46)
}
on *:dialog:Akick:init:*:{
  if (%Akick1 != $null) { did -a Akick 7 %Akick1 }
  if (%Akick2 != $null) { did -a Akick 8 %Akick2 }
  if (%Akick3 != $null) { did -a Akick 9 %Akick3 }
  if (%Akick4 != $null) { did -a Akick 10 %Akick4 }
  if (%Akick5 != $null) { did -a Akick 11 %Akick5 }
  if (%Akick6 != $null) { did -a Akick 12 %Akick6 }
  if (%Akick7 != $null) { did -a Akick 13 %Akick7 }
  if (%Akick8 != $null) { did -a Akick 14 %Akick8 }
  if (%Akick9 != $null) { did -a Akick 15 %Akick9 }
  if (%Akick10 != $null) { did -a Akick 16 %Akick10 }
  if (%Akick11 != $null) { did -a Akick 17 %Akick11 }
  if (%Akick12 != $null) { did -a Akick 18 %Akick12 }
  if (%Akick13 != $null) { did -a Akick 19 %Akick13 }
  if (%Akick14 != $null) { did -a Akick 20 %Akick14 }
  if (%Akick15 != $null) { did -a Akick 21 %Akick15 }
  if (%Akick16 != $null) { did -a Akick 22 %Akick16 }
  if (%Akick17 != $null) { did -a Akick 23 %Akick17 }
  if (%Akick18 != $null) { did -a Akick 24 %Akick18 }
  if (%Akick19 != $null) { did -a Akick 25 %Akick19 }
  if (%Akick20 != $null) { did -a Akick 26 %Akick20 }
  if (%Akick21 != $null) { did -a Akick 27 %Akick21 }
  if (%Akick22 != $null) { did -a Akick 28 %Akick22 }
  if (%Akick23 != $null) { did -a Akick 29 %Akick23 }
  if (%Akick24 != $null) { did -a Akick 30 %Akick24 }
  if (%Akick25 != $null) { did -a Akick 31 %Akick25 }
  if (%Akick26 != $null) { did -a Akick 32 %Akick26 }
  if (%Akick27 != $null) { did -a Akick 33 %Akick27 }
  if (%Akick28 != $null) { did -a Akick 34 %Akick28 }
  if (%Akick29 != $null) { did -a Akick 35 %Akick29 }
  if (%Akick30 != $null) { did -a Akick 36 %Akick30 }
  if (%Akick31 != $null) { did -a Akick 37 %Akick31 }
  if (%Akick32 != $null) { did -a Akick 38 %Akick32 }
  if (%Akick33 != $null) { did -a Akick 39 %Akick33 }
  if (%Akick34 != $null) { did -a Akick 40 %Akick34 }
  if (%Akick35 != $null) { did -a Akick 41 %Akick35 }
  if (%Akick36 != $null) { did -a Akick 42 %Akick36 }
  if (%Akick37 != $null) { did -a Akick 43 %Akick37 }
  if (%Akick38 != $null) { did -a Akick 44 %Akick38 }
  if (%Akick39 != $null) { did -a Akick 45 %Akick39 }
  if (%Akick40 != $null) { did -a Akick 46 %Akick40 }
}
on 1:dialog:Akick:sclick:*: {
  if $did == 1 {
    if (%Akick1 == $null) { .unset %Akick1 }
    if (%Akick2 == $null) { .unset %Akick2 }
    if (%Akick3 == $null) { .unset %Akick3 }
    if (%Akick4 == $null) { .unset %Akick4 }
    if (%Akick5 == $null) { .unset %Akick5 }
    if (%Akick6 == $null) { .unset %Akick6 }
    if (%Akick7 == $null) { .unset %Akick7 }
    if (%Akick8 == $null) { .unset %Akick8 }
    if (%Akick9 == $null) { .unset %Akick9 }
    if (%Akick10 == $null) { .unset %Akick10 }
    if (%Akick11 == $null) { .unset %Akick11 }
    if (%Akick12 == $null) { .unset %Akick12 }
    if (%Akick13 == $null) { .unset %Akick13 }
    if (%Akick14 == $null) { .unset %Akick14 }
    if (%Akick15 == $null) { .unset %Akick15 }
    if (%Akick16 == $null) { .unset %Akick16 }
    if (%Akick17 == $null) { .unset %Akick17 }
    if (%Akick18 == $null) { .unset %Akick18 }
    if (%Akick19 == $null) { .unset %Akick19 }
    if (%Akick20 == $null) { .unset %Akick20 }
    if (%Akick21 == $null) { .unset %Akick21 }
    if (%Akick22 == $null) { .unset %Akick22 }
    if (%Akick23 == $null) { .unset %Akick23 }
    if (%Akick24 == $null) { .unset %Akick24 }
    if (%Akick25 == $null) { .unset %Akick25 }
    if (%Akick26 == $null) { .unset %Akick26 }
    if (%Akick27 == $null) { .unset %Akick27 }
    if (%Akick28 == $null) { .unset %Akick28 }
    if (%Akick29 == $null) { .unset %Akick29 }
    if (%Akick30 == $null) { .unset %Akick30 }
    if (%Akick31 == $null) { .unset %Akick31 }
    if (%Akick32 == $null) { .unset %Akick32 }
    if (%Akick33 == $null) { .unset %Akick33 }
    if (%Akick34 == $null) { .unset %Akick34 }
    if (%Akick35 == $null) { .unset %Akick35 }
    if (%Akick36 == $null) { .unset %Akick36 }
    if (%Akick37 == $null) { .unset %Akick37 }
    if (%Akick38 == $null) { .unset %Akick38 }
    if (%Akick39 == $null) { .unset %Akick39 }
    if (%Akick40 == $null) { .unset %Akick40 }
  }
}

alias BList if $dialog(BList) == $null { dialog -ma BList BList }

dialog BList {
  title " IOP Black List Editor  [ Global ] "
  size -1 -1 181 122
  option dbu
  icon Pics\Server.ico
  combo 762,2 4 177 50, vsbar
  button "Close",2, 142 110 35 10,ok,
  button "Add",3, 54 110 35 10
  button "Remove",4, 92 110 35 10
  button "Clear All",11, 4 110 35 10
  edit "Help: To add a user to this list following are a few examples:",5, 2 50 177 10,disable
  edit "Nick , Nick!user@isp.com  , *!*@isp.com  , *!*user@* , *!*user@isp.com ,",6, 2 60 177 10,disable
  edit "Nick*!*@230.192.0.* , *!*user@230.192.0.* etc, etc.",7, 2 70 177 10,disable
  edit "Your User Entries Will Be Black Listed On All Commanding Channels",8, 2 80 177 10,disable
  text "Kick Message",10, 3 91 50 8
  edit "",9, 2 98 177 10,autohs
}

on *:DIALOG:BList:init:0: {
  if (%USmode.blklist != $null) { did -a BList 9 %USmode.blklist }
  if (%USmode.blklist = $null) { set  %USmode.blklist User Has Been Banned From The Channel | did -a BList 9 %USmode.blklist }
  update.setupsl
}
alias -l update.setupsl {
  did -r BList 762
  set %tempsl.total $count(%setupsl.list,$chr(44))
  set %tempsl.count 0
  :start
  inc %tempsl.count 1
  did -a BList 762 $gettok(%setupsl.list,%tempsl.count,44)
  if (%tempsl.count < %tempsl.total) { goto start }
}
on *:DIALOG:BList:edit:*: {
  set %USmode.blklist $did(9)
  if ($did == 762) {
    set %setupsl.temp.user $did(762).text
  }
}
on *:DIALOG:BList:sclick:*: {
  if ($did == 3) {
    set %setupsl.list %setupsl.list $+ %setupsl.temp.user $+ ,
    update.setupsl
    auser BList %setupsl.temp.user | unset %setupsl.temp.user
  }
  if ($did == 4) {
    set -u1 %setupsl.tc %setupsl.user.selected $+ ,
    set %setupsl.list $remove(%setupsl.list,%setupsl.tc)
    update.setupsl
    ruser BList %setupsl.user.selected
  }
  if ($did == 762) {
    set %setupsl.user.selected $did($dname,762,$did(762).sel)
  }
  if ($did == 11 ) { .rlevel -r BList | unset %setupsl.temp.user | unset %setupsl.list* | echo -at 10All 4BlackList10 Entries Erased. | did -a BList 762 }
}
alias slentry {
  set %setupsl.list %setupsl.list $+ %setupsl.temp.user $+ ,
  update.setupsl
  auser BList %setupsl.temp.user | unset %setupsl.temp.user
}

alias slentry1 {
  set %setupsl.list %setupsl.list $+ %setupsl.temp.user $+ ,
  update.setupsl
  guser BList %setupsl.temp.user | unset %setupsl.temp.user
}