Srecne Novogodisnje i Bozicne praznike zeli Vam BalkanIRC Forum :)


    Swear Protection

    Share
    avatar
    Marco
    Super Admin
    Super Admin

    Number of posts : 9
    Age : 27
    Локација : Republika Srpska; Gradiska
    Registration date : 2008-12-17

    Swear Protection

    Post by Marco on Wed Dec 17, 2008 11:40 pm

    Code:
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;    Swear protection          ;;
    ;;                                ;;
    ;;  Author  : Amidos              ;;
    ;;  Version : 1.03                ;;
    ;;                                ;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    on *:load:{
      .set %kiket on
      .set %oplar on
      .set %banvaxt 200
      .set %kickmsj BAD-WORD Detected. Please stop swearing-
      .set %soyush fuck,shit,bitch,idiot
      .echo -a 2Swear4 protection...
      .echo -a 4Type 2/bad4 to open !
      .echo -a 10 Good luck!! 4:12> 
    }



    on @*:text:*:#: {
      if ($nick isop #) && (%oplar == on) { return }
      if ($nick isvo #) && (%vlar == on)  { return }
      _swer_ $1-
    }

    on @*:action:*:#: {
      if ($nick isop #) && (%oplar == on) { return }
      if ($nick isvo #) && (%vlar == on) { return }
      _swer_ $1-
    }



    on @*:notice:*:#: {
      if ($nick isop #) && (%oplar == on) { return }
      if ($nick isvo #) && (%vlar == on)  { return }
      _swer_ $1-
    }



    alias _swer_ {
      var %x $strip($1-) , %i $numtok(%soyush,44)
      while (%i) {
        if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
          if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }   
          if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj ,BAD-WORD Detected. Please stop swearing- 1[4 $gettok(%soyush,%i,44) 1]) }
          if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
          return
        }
        dec %i
      }
    }


    dialog swear {
      title "Swear protection By Amidos"
      size -1 -1 185 111
      option dbu
      box "List of Bad Words", 1, 90 1 94 79
      combo 2, 94 10 87 53, size
      button "Add", 3, 98 66 31 10
      button "Del", 4, 144 65 31 10
      box "", 5, 96 60 36 18
      box "", 6, 142 60 36 18
      box "Penalty", 7, 2 2 84 45
      check "Kick ", 8, 5 13 39 10
      check "Ban ", 9, 5 31 32 10
      edit "", 10, 36 30 23 12, disable
      text "Seconds", 11, 62 32 21 8, disable
      box "Except", 12, 2 49 84 31
      check "@ps", 13, 6 57 77 10
      check "+Voices", 14, 6 68 75 10
      box "Kick Message", 15, 2 81 182 27
      edit "", 16, 6 90 174 13, autohs
    }

    alias bad { .dialog -m swear swear }

    on *:dialog:swear:init:*:{
      if (%soyush) didtok $dname 2 44 $ifmatch
      if (%kiket) { .did -c $dname 8 }
      if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
      if (%oplar) { .did -c $dname 13 }
      if (%vlar) { .did -c $dname 14 }
      did -a $dname 10 %banvaxt
      did -a $dname 16 %kickmsj
    }

    on *:dialog:swear:sclick:*:{
      if ($did == 3) {
        if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
      }
      if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
      if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
      if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
      if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
      if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
    }

    on *:dialog:swear:edit:*:{
      %kickmsj = $did(16)
      %banvaxt = $did(10)
    }
    avatar
    Zika023
    Super Admin
    Super Admin

    Number of posts : 1456
    Age : 23
    Локација : Melenci
    Registration date : 2008-09-20

    Re: Swear Protection

    Post by Zika023 on Wed Dec 17, 2008 11:43 pm

    Stavi cod u code x) na pocetku [*code] pa addon na kraj [*/code] i bez * x) ok je x)

    P.S. okaci link skripte na sajt samo ovako [*url=link]Gradiska Script v.2[*/url]

      Current date/time is Tue Dec 12, 2017 8:40 pm