IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   Hazır Kodlar (https://www.ircforumu.net/hazir-kodlar/)
-   -   /* Hash Reklam Koruması */ (https://www.ircforumu.net/hazir-kodlar/5118-hash-reklam-korumasi.html)

immortaL 23 Kasım 2016 18:03

/* Hash Reklam Koruması */
 
Kod:

alias r_start {
  hmake $1 $2
  hload $1 $+(remote\save\,$1,.save)
}
alias rstart {
  r_start reklam 10000
}
on *:start: { rstart }

on *:text:*:#: {
  if (%reklam == 1) && ($me isop $chan) && ($nick isreg $chan) && ($nick !isop #) {
    if $hfind(reklam,$1-,1,W).data {
      ban -u900 # $nick 2 | .kick # $nick %reklam.yazi  [ Koruma : $rand(0,999) ]
      echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Reklam 1Sebebinden Atılmıştır.[I-DNCR]
    }
  }
}
alias rekle {
  hadd -m reklam $calc($hget(reklam,0).item + 1) $1-
  hsave reklam remote\save\reklam.save
}

alias rkl { dialog -m reklam reklam }
dialog reklam {
  title "Reklam Kelimeleri..."
  size -1 -1 205 210
  option pixels
  edit "", 2, 121 19 68 23, multi return
  button "Ekle", 3, 121 60 60 17, flat
  button "Sil", 4, 121 86 60 17, flat
  button "Tamam", 5, 122 115 60 17, flat ok
  list 1, 11 18 103 183, size
  icon 6, 136 153 32 32
  box "", 7, 5 6 188 202
}

on *:dialog:reklam:sclick:*:{
  if ($did = 4) {
    hdel -s reklam $hfind(reklam,$did($dname,1).seltext,1,W).data
    hsave reklam remote\save\reklam.save
    rk $dname
  }
  if ($did = 3) { rekle $did($dname,2) | rk $dname  }
}
alias rk dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:reklam:init:0: {
  var %x = 1
  while (%x <= $hget(reklam,0).item) {
    did -ac reklam 1 $hget(reklam,%x).data
    inc %x
  }
}


TeSTeRe 11 Ocak 2017 00:47

Cevap: /* Hash Reklam Koruması */
 
eline emeginee yüregine saglık @Che :D

TeSTeRe 11 Ocak 2017 00:48

Cevap: /* Hash Reklam Koruması */
 
eline emeginee yüregine saglık @Che :D


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:28.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.