wellcome1

Document Sample
wellcome1 Powered By Docstoc
					; AKick Manager

alias akm { dialog -m autokick autokick }

on autokick:join:#: {
  if ($nick == $me) { return }
  if ($chan == %akick.exempt.1) || ($chan == %akick.exempt.2) || ($chan
== %akick.exempt.3) || ($chan == %akick.exempt.4) || ($chan ==
%akick.exempt.5) || ($chan == %akick.exempt.6) { return }
  if ($me !isop $chan) {
    if (%akick.ojnop == $null) { set %akick.ojnop donothing | return }
    if (%akick.ojnop == donothing) { return }
    if (%akick.ojnop == echome) { echo -a   14[ Warning ] 15 $nick is on
your AKick list and just joined $chan - but I cannot kick $nick because
you do not have op on $chan $+ . $nick is on your AKick list because
he/she matches the hostmask $maddress $+ . | return }
  }
  raw -q mode $chan +b $maddress | kick $chan $nick 14Auto Kick! 1 User
has been banned from the channel. 14©    1ViRuS

}
dialog autokick {
  title "Auto Kick Manager By ViRuS"
  size -1 -1 300 165
  list 1, 10 10 280 90, hsbar vsbar
  button "Add",3, 10 100 45 18
  button "Del",4, 10 120 45 18
  button "Clear",5, 10 140 45 18
  button "Channel Exemptions",6, 60 100 230 18
  button "Options",8, 60 120 230 18
  button "Close",7, 60 140 230 18,ok
}
on *:dialog:autokick:*:*: {
  if ($devent == init) {
    did -b autokick 4
    akick.update
  }
  if ($devent == sclick) {
    if ($did == 1) { did -e autokick 4,5 }
    if ($did == 3) { .auser autokick $$?="Enter a hostmask to AKick,
Example: *!*@*aol.com" | akick.update }
    if ($did == 4) { .ruser $did(autokick,1).seltext | akick.update | did
-b autokick 4 | did -z autokick 1 }
    if ($did == 5) { dialog -k autokick | dialog -m autokick2 autokick2 }
    if ($did == 6) { dialog -k autokick | dialog -m autokick3 autokick3 }
    if ($did == 8) { dialog -k autokick | dialog -m autokick4 autokick4 }
  }
}
; Take note of the use of a local variable below.
; Isn't it wonderful? *sarcasm* :o)
alias akick.update {
  did -r autokick 1
  if ($ulist(*,autokick,1) == $null) { did -b autokick 4,5 | return }
  var %akick.blah = 0
  :start
  inc %akick.blah
  if ($ulist(*,autokick,%akick.blah) == $null) { return }
  did -i autokick 1 %akick.blah $ulist(*,autokick,%akick.blah)
  did -e autokick 5
  did -z autokick 1
  goto start
}
dialog autokick2 {
  title "Clear AKicks"
  size -1 -1 200 80
  button "",5, 0 0 0 0, ok
  text "Are you sure you want to clear the entire AKick list?",2, 20 10
180 30
  button "Yes",3, 40 50 50 18,default
  button "No",4, 100 50 50 18
}
on *:dialog:autokick2:*:*: {
  if ($devent == sclick) {
    if ($did == 3) { .rlevel autokick | dialog -m autokick autokick |
dialog -k autokick2 | did -z autokick 1 }
    if ($did == 4) { dialog -m autokick autokick | dialog -k autokick2 |
did -z autokick 1 }
  }
}
dialog autokick3 {
  title "ÃßÊÈ ÇÓã ÇáÞäÇÉ Çááí ãÇÊÈí íØÑÏ ÝíåÇ"
  size -1 -1 300 165
  box "Information",10, 170 6 120 140
  text "Here you may specify up to 6 channels where AKicks will not be
enforced on.",11, 180 30 100 100,center
  edit "",2, 10 10 148 19, autohs
  edit "",3, 10 29 148 19, autohs
  edit "",4, 10 48 148 19, autohs
  edit "",5, 10 67 148 19, autohs
  edit "",6, 10 86 148 19, autohs
  edit "",7, 10 106 148 19, autohs
  button "",1, 0 0 0 0, ok
  button "Save",8, 12 130 70 18, default
  button "Cancel",9, 88 130 70 18
}
on *:dialog:autokick3:*:*: {
  if ($devent == init) {
    did -i autokick3 2 1 %akick.exempt.1
    did -i autokick3 3 1 %akick.exempt.2
    did -i autokick3 4 1 %akick.exempt.3
    did -i autokick3 5 1 %akick.exempt.4
    did -i autokick3 6 1 %akick.exempt.5
    did -i autokick3 7 1 %akick.exempt.6
  }
  if ($devent == sclick) {
    if ($did == 8) {
       set %akick.exempt.1 $did(autokick3,2).text
       set %akick.exempt.2 $did(autokick3,3).text
      set %akick.exempt.3 $did(autokick3,4).text
      set %akick.exempt.4 $did(autokick3,5).text
      set %akick.exempt.5 $did(autokick3,6).text
      set %akick.exempt.6 $did(autokick3,7).text
      dialog -k autokick3
      dialog -m autokick autokick
    }
    if ($did == 9) {
      dialog -k autokick3
      dialog -m autokick autokick
    }
  }
}
dialog autokick4 {
  title "AKick Manager Options"
  size -1 -1 300 125
  button "",1, 0 0 0 0,ok
  box "",3, 10 5 280 80
  radio "Echo you a warning",2, 30 55 115 20,group
  radio "Don't do anything",4, 160 55 105 20
  text "When an AKicked user joins a channel you do not have op in, what
shall I do?",5, 16 20 260 30,center
  button "Save",6, 10 95 55 18, default
}
on *:dialog:autokick4:*:*: {
  if ($devent == init) {
    if (%akick.ojnop == $null) { set %akick.ojnop donothing | did -c
autokick4 4 | return }
    if (%akick.ojnop == echome) { did -c autokick4 2 }
    if (%akick.ojnop == donothing) { did -c autokick4 4 }
  }
  if ($devent == sclick) {
    if ($did == 2) { set %akick.ojnop echome }
    if ($did == 4) { set %akick.ojnop donothing }
    if ($did == 6) { dialog -k autokick4 | dialog -m autokick autokick }
  }
}
#texx On
on *:text:*:#:{
  if ($me isin $strip($1-)) && (# != $active) {
    set %text.nick $nick
    set %text.chan $chan
    set %text.strip $remoev($strip($1-),$me)
    t0x
  }
}

alias t0x {
  .timerold 1 2 0p3n
  .timeroldz 1 4 /unset %text.*
  .timerolds 1 6 cl0s3
}
alias 0p3n { dialog -m texto texto }
alias cl0s3 { dialog -c texto texto }
dialog texto {
  title " Contact US #HelpDesk"
  size -1 -1 110 67
  option dbu
  edit " ", 1, 30 16 75 12
  edit " ", 2, 30 27 75 12
  edit " ", 3, 30 4 75 12
  text "ÇáäÜÜß", 4, 7 5 17 8
  text "ÇáãÓÌ", 5, 6 17 19 8
  text "ÇáÌäá", 6, 7 28 18 8
  edit " ÊäÈíå ãä ÇáÓßÑÈÊ", 7, 4 41 102 11, disable
  button "ok ...!", 8, 43 54 24 10, flat ok cancel
}
on *:dialog:texto:init:0:{ did -ra $dname 1 %text.strip | did -ra $dname
2 %text.chan | did -ra $dname 3 %text.nick }

#texx end
#kicker on
on *:Kick:#:{
   if ( $nick == $me ) { window -eknl12 @Kicker 0 0 718 504 @Kicker
Fixedsys 14 | aline -l 4 @kicker $knick | echo @Kicker 14* 4* 7* 1This
Nick 15,1 $knick      15,1 $chan    1Reason: 7( $+ $1- $+     7)
  15# 14K 4i 7c 15k 1: %kcount | inc %kcount }
   if ( $knick == $me ) { window -eknl12 @Kicker 0 0 718 504 @Kicker
Fixedsys 14 | aline -l 10 @kicker You | echo @Kicker 14* 4* 7* 1You
Kicked By 14 $nick 1From 4 $chan Reason: 7( $+ $1- $+       7) | .raw
join %kchan }
}
menu @Kicker {
   dclick nicklist,channel
   † &Clear †:.clear
   -
   † &Exit †:/window -c @KicKer
}

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:9
posted:10/31/2012
language:
pages:4