FoRuM KaNaLa #chanel

FoRuM KaNaLa #chanel
 
PrijemPrijem  PortalliPortalli  Često Postavljana PitanjaČesto Postavljana Pitanja  TražiTraži  Registruj seRegistruj se  Lista članovaLista članova  Korisničke grupeKorisničke grupe  Pristupi  

Delite | 
 

 Swear Protection by br0nx

Ići dole 
AutorPoruka
n1k0la
Admin
Admin


Broj poruka : 108
Godina : 25
Location : Jagodina
Datum upisa : 15.08.2007

PočaljiNaslov: Swear Protection by br0nx   Čet Avg 16, 2007 4:21 pm

Pritisnite ALT+R pa kliknite na File pa na New i tu prekopirajte sledetji kod:
Kod:
; -------------------------------------------------------------------
;
; 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 v1 -= Succesfully Loaded =- Addons by br0nx
}
on *:unload: {
  echo -a Swear Protection v1 -= 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
;
; -------------------------------------------------------------------
Nazad na vrh Ići dole
Pogledaj profil korisnika http://chanel-4-you.forumsr.com
 
Swear Protection by br0nx
Nazad na vrh 
Strana 1 od 1

Dozvole ovog foruma:Ne možete odgovarati na teme u ovom forumu
FoRuM KaNaLa #chanel :: Scripting :: Addons-
Skoči na: