Srecne Novogodisnje i Bozicne praznike zeli Vam BalkanIRC Forum :)


    Badwords

    Share
    avatar
    Marco
    Super Admin
    Super Admin

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

    Badwords

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

    Code:
    ;**************************
    ;Swear Dialog
    ;By VampirE
    ;2/25/02
    ;**************************

    ; VampirE's potty mouth kicker
    on *:load:{
      if ($version < 5.91) {
        echo $color(info) -ai4 *** Sorry, this script is for mIRC version 5.91 or higher. $&
          you are using mIRC's outdated version of $version $+ , You don't get to use this leet script.
        .unload -rs $script
      }
      else {
        echo $color(info) -ai4 *** Welcome to VampirE's swear kicker. Type /swear $&
          to run the script or use the popup in the channel.
      }
    }



    ;****************
    ;Dialog Swear Kicker
    ;****************

    alias swear { dialog -dmr sweard sweard }

    dialog sweard {
      title " Swear Kicker By VampirE"
      size -1 -1 342 330
      button "&Close",1, 205 305 60 20, cancel
      list 2, 15 20 140 110, sort size 
      box "Ruzne reci",3, 5 5 160 153
      button "Ubaci",4,  15 133 60 21
      button "Pomeri",5, 80 133 74 20, autohs
      box "Kanali:",6, 170 5 161 153
      list 7, 180 20 140 110, sort size 
      button "Ubaci",8, 180 133 60 21
      button "Pomeri",9, 246 133 73 20, autohs
      check "Kick poruka:",10, 13 179 84 20
      box "Ostale opcije",11, 5 156 326 142
      edit "",12, 99 179 199 20, autohs
      button "Ok",13, 270 305 60 20, ok
      check "kick-uj Op-ove u Kanalu", 14, 13 205 175 10
      check "kick-uj Voice-ove u kanalu", 15, 13 224 185 10
      edit "", 16, 112 238 50 20, autohs
      check "Ban trajanje:", 17, 13 240 99 20
      text "Sekunde", 18, 165 240 50 20
      combo 19, 112 265 151 89, edit drop autohs
      text "Selektuj kaznu", 21, 13 268 99 30 
      icon face04.ico
      link "mail: vampireks@yahoo.com", 22, 13 307 135 30
    }


    ;**********
    ;events
    ;**********
    on *:dialog:sweard:dclick:22: run mail: vampireks@yahoo.com
    on *:dialog:sweard:*:*:{
      if ($devent == init) {
        if ($readini($keke,options,ban)) { did -c $dname 17 }   
        if ($readini($keke,options,message)) { did -c $dname 10 } 
        if ($readini($keke,options,ops)) { did -c $dname 14 }
        if ($readini($keke,options,vops)) { did -c $dname 15 }
        did -a $dname 12 $readini($keke,options,message)   
        if ($readini($keke,options,secs)) { did -c $dname 17 }
        did -a $dname 16 $readini($keke,options,secs)
        did -i $dname 19 0 $readini($keke,options,punish)   
        .dlist 2 swear words
        .dlist 7 exempt chan
        did -f $dname 13
        did -a sweard 19 Kick
        did -a sweard 19 Kick and Ban
        did -a sweard 19 None

      }   
      if ($devent == sclick) {
        if ($did(14).state == 1) { op_c }
        if ($did(15).state == 1) { vo_c }
        if ($did == 4) {
          var %t = $$?="Enter swear word $crlf $+ Separate multiple entries with a comma:"
          if ($numtok(%t,32) > 1) { %t = $replace(%t,$chr(32),$chr(160)) }
          .writeini $keke swear words $iif($readini($keke,swear,words),$+($ifmatch,$chr(44),%t),%t)
          dlist 2 swear words   
        }
        if ($did == 5) {
          var %tmp = $did(2).seltext
          if (%tmp) {
            if ($remtok($readini($keke,swear,words),%tmp,44)) {
              .writeini $keke swear words $ifmatch
            }
            else .remini $keke swear words
            .dlist 2 swear words     
          }
        }
        if ($did == 8) {
          var %t = $$?="Enter Channel Name $crlf $+ Separate multiple entries with a comma:"
          if ($chr(32) !isin %t) {
            .writeini $keke exempt chan $iif($readini($keke,exempt,chan),$+($ifmatch,$chr(44),%t),%t)
            dlist 7 exempt chan     
          }
        }
        if ($did == 9) {
          var %tmp = $did(7).seltext
          if (%tmp) {
            if ($remtok($readini($keke,exempt,chan),%tmp,44)) {
              .writeini $keke exempt chan $ifmatch
            }
            else .remini $keke exempt chan
            .dlist 7 exempt chan     
          }
        }


        if ($did == 13) {
          ; OK button

          .writeini $keke options kick $iif($did(10).state == 1,$true,$false)
          .writeini $keke options message $iif($did(12),$ifmatch,$readini($keke,options,message))
          .writeini $keke options secs $iif($did(16) isnum 1-,$ifmatch,$readini($keke,options,secs))
          .writeini $keke options ops $iif($did(14).state == 1,$true,$false)
          .writeini $keke options vops $iif($did(15).state == 1,$true,$false)
          .writeini $keke options ban $iif($did(17).state == 1,$true,$false)
          .writeini $keke options punish $iif($did(19),$ifmatch,$readini($keke,options,punish))
        }
      }
    }


    ;****************
    ;on text event
    ;****************


    on @!*:TEXT:*:#: {
      %swear.punish = $readini($keke,options,punish))
      if ($ischan) { return } 
      if ($readini($keke,options,ops)) { op_c }
      if ($readini($keke,options,vops)) { vo_c }
      if ($readini($keke,swear,words)) && ($match_text($1-)) {
        if (None isin %swear.punish) { return }   
        if (kick isin %swear.punish) {
          if (ban isin %swear.punish) {
            .raw kick $chan $nick $+(:,$readini($keke,options,message)) $+ $cr $+ mode $chan +b $mask($fulladdress,2)
            .timerswearunban 1 $readini($keke,options,secs) mode $chan -b $mask($fulladdress,2)
          }
          else { .raw kick $chan $nick $+(:,$readini($keke,options,message)) }
        }
      }
    }
    ;****************
    ;alias
    ;****************


    alias -l keke return $+(",$scriptdirswear.ini,")

    alias -l ischan {
      var %i = $numtok($readini($keke,exempt,chan),44),%j
      while (%i > 0) {
        %j = $gettok($readini($keke,exempt,chan),%i,44)
        if (%j isin $chan) || ($2 == %j) { return $true }
        dec %i
      }
      return $false
    }

    alias -l match_text {
      var %i = $numtok($readini($keke,swear,words),44),%swear
      while (%i > 0) {
        %swear = $+(*,$replace($gettok($readini($keke,swear,words),%i,44),$chr(160),$chr(32)),*)
        if ($wildtok($1-,%swear,1,44)) {
          return $true
        }
        dec %i
      }
    }

    alias op_c {
      if ($nick isop $chan) { halt }
    }

    alias vo_c {
      if ($nick isvo $chan) { halt }
    }
    alias -l dlist {
      var %a = 1
      did -r $dname $1
      while ($gettok($readini($keke,$2,$3),%a,44)) {
        did -az $dname $1 $ifmatch
        inc %a
      }

    Edit by Zika023 link u code x)
    avatar
    Zika023
    Super Admin
    Super Admin

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

    Re: Badwords

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

    HOHOHOHOHO mislio sam ono za spam i ono za kurac i picka jel to to ?

    EDIT: Ja procitao badnick hahaha! Hvala Marco Very Happy
    avatar
    Marco
    Super Admin
    Super Admin

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

    Re: Badwords

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

    Zika023 wrote:HOHOHOHOHO mislio sam ono za spam i ono za kurac i picka jel to to ?

    EDIT: Ja procitao badnick hahaha! Hvala Marco Very Happy
    lol, to je to samo sad stavljaj sta oces ;]

    Sponsored content

    Re: Badwords

    Post by Sponsored content


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