global ban

mIRC Code

+ 1 likes

Please Register to submit score.

Average Score	6.7
Scores Submitted	3
Date Added	Oct 14, 2007
Last Updated	Oct 14, 2007
Tags	ban global unban

Introduction

this snippet bans/unbans nicks and bans/unbans chans (~c:#chan),right click anywhere on the screen and go to globan ban and the rest is simple

Hope you enjoy :)

Grab the Code

menu * { 
  Globan ban:/dialog -m ban ban 
} 
dialog ban { 
  title "Global ban door Alex" 
  size -1 -1 370 200 
  text "Global nick un/ban:", 2, 10 5 250 150 
  edit "", 3, 10 20 250 25 
  text "Reason:", 4, 10 50 250 150 
  edit "", 5, 10 65 250 25 
  button "ban", 6, 270 20 40 25 
  button "ban", 7, 270 115 40 25 
  button "unban", 8, 320 20 40 25 
  button "unban", 9, 320 115 40 25 
  text "Global channel un/ban:", 10, 10 100 250 150 
  edit "#", 11, 10 115 250 25 
  text "Reason:", 12, 10 150 250 150 
  edit "", 13, 10 165 250 25 
} 
on *:dialog:ban:sclick:6: { 
  set %ban.name $did($dname,3) 
  set %ban.reason $did($dname,5) 
  scon -a /gban $did($dname,3) 
  scon -a /amsg 2::: G8lobal banning 2:::8 %ban.name 2::: R8eason 2:::8 %ban.reason 2::: 
  unset %ban.* 
} 
on *:dialog:ban:sclick:8: { 
  set %unban.name $did($dname,3) 
  set %unban.reason $did($dname,5) 
  scon -a /ungban $did($dname,3) 
  scon -a /amsg 4::: G14lobal unbanning 4:::14 %unban.name 4::: R14eason 4:::14 %unban.reason 4::: 
  unset %unban.* 
} 
on *:dialog:ban:sclick:7: { 
  set %chanban.name $did($dname,11) 
  set %chanban.reason $did($dname,13) 
  scon -a /chanban $did($dname,11) 
  scon -a /amsg Global banning � %chanban.name � reason � %chanban.reason 
  unset %chanban.* 
} 
on *:dialog:ban:sclick:9: { 
  set %chanunban.name $did($dname,11) 
  set %chanunban.reason $did($dname,13) 
  scon -a /chanunban $did($dname,11) 
  scon -a /amsg Global unbanning � %chanunban.name � reason � %chanunban.reason 
  unset %chanunban.* 
} 
alias gban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) +b $address($1,2) 
    dec %c 
  } 
} 
alias ungban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) -b $address($1,2) 
    dec %c 
  } 
} 
alias chanban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) +b ~c: $+ $1- 
    dec %c 
  } 
} 
alias chanunban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) -b ~c: $+ $1- 
    dec %c 
  } 
}

Comments

(2) RSS

Go to Bottom

`[-Alex-]

Comments: 8

mIRC Snippet: global ban
Posted on Oct 14, 2007 7:58 pm

feel free to comment :D

Bullet_Dodger

Comments: 206

mIRC Snippet: global ban
Posted on Oct 12, 2008 5:58 am

<b>Very Good Script Mate</b>

10/10+like

global ban

Introduction

Grab the Code

Comments

`[-Alex-]

My Snippet Tags

Contact

Sponsors

		somewhere
Last seen: Jun 16, 2008 Profile Snippets (8) Comments Received (28) Comments Submitted (8)