Swear Protection v1 Beta
; -------------------------------------------------------------------
;
; Addons : Swear Protection
; Version : v1 Beta
; Author : br0nx
; Email : br0nx.20@inbox.com
; Address : http://www.yumirc.org
;
; ------------------------=> $Load $Unload <=------------------------
on *:load: {
echo -a Swear Protection -= Succesfully Loaded =- Addons by br0nx
}
on *:unload: {
echo -a Swear Protection -= Succesfully Unloaded =- Addons by br0nx
}
; ------------------------=> $mIRC $Events <=------------------------
on *:start: {
if ($hget(sp)) { hfree sp }
hmake sp 100
if ($isfile(sp.mrc)) hload sp sp.mrc
}
on *:close: {
hsave sp sp.mrc
}
; --------------------------=> $Aliases <=---------------------------
alias sp {
if ($dialog(sp)) {
dialog -ve sp sp
}
else { dialog -mdo sp sp }
}
alias -l sp.ref {
did -r sp 4
var %swear $hget(sp,0).item
while (%swear) {
did -a sp 4 $hget(sp,%swear).item
dec %swear
}
}
; --------------------------=> $Dialogs <=---------------------------
dialog sp {
title "Swear Protection"
size -1 -1 136 113
option dbu
box "Word", 1, 5 2 81 24
edit "", 2, 10 11 70 10, autohs
box "", 3, 5 22 81 87
list 4, 10 31 70 75
box "Options", 5, 85 2 46 107
button "Add", 6, 91 11 33 13
button "Del", 7, 91 31 33 12
button "On", 8, 91 50 33 12
button "Off", 9, 91 70 33 12
button "Ok", 10, 91 89 33 13, ok
}
; -----------------------=> $Dialog $Events <=-----------------------
on *:dialog:sp:init:*: {
sp.ref
}
on *:dialog:sp:sclick:*: {
if ($did == 4) && ($did(4).seltext != $null) {
did -ra $dname 2 $did(4).seltext
}
if ($did == 6) && ($did(2) != $null) {
hadd sp $did(2) 1
did -r $dname 2
sp.ref
hsave sp sp.mrc
}
if ($did == 7) && ($did(4).seltext != $null) {
hdel sp $did(4).seltext
did -r $dname 2
sp.ref
hsave sp sp.mrc
}
if ($did == 8) {
.enable #sp
.dialog -i sp
.timer 1 1 .dialog -e sp
echo -a Swear Protection Is -= On =- Addons By br0nx
}
if ($did == 9) {
.disable #sp
.dialog -i sp
.timer 1 1 .dialog -e sp
echo -a Swear Protection Is -= Off =- Addons By br0nx
}
if ($did == 10) {
hsave sp sp.mrc
}
}
; ---------------------------=> $Group <=----------------------------
#sp on
on @*:text:*:#: {
var %swear $hget(sp,0).item
while (%swear) {
if ($hget(sp,%swear).item isin $1-) {
ban -ku60 $chan $nick Dont Send Message -= $v1 =- Swear Protection By br0nx
}
dec %swear
}
}
on @*:notice:*:#: {
var %swear $hget(sp,0).item
while (%swear) {
if ($hget(sp,%swear).item isin $1-) {
ban -ku60 $chan $nick Dont Send Message -= $v1 =- Swear Protection By br0nx
}
dec %swear
}
}
on @*:action:*:#: {
var %swear $hget(sp,0).item
while (%swear) {
if ($hget(sp,%swear).item isin $1-) {
ban -ku60 $chan $nick Dont Send Message -= $v1 =- Swear Protection By br0nx
}
dec %swear
}
}
#sp end
; ----------------------------=> $Menus <=---------------------------
menu * {
-
Swear Protection:sp
-
}
;
; Addons : Swear Protection
; Version : v1 Beta
; Author : br0nx
; Email : br0nx.20@inbox.com
; Address : http://www.yumirc.org
;
; -------------------------------------------------------------------