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


ircforumu sekershell
bizimkiler sosyalchat


Like Tree1Beğeni(ler)
  • 1 Post By immortaL
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 23 Kasım 2016, 18:03   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
/* Hash Reklam Koruması */


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 bunu beğendi.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 11 Ocak 2017, 00:47   #2
Çevrimdışı
Cevap: /* Hash Reklam Koruması */



eline emeginee yüregine saglık @Che

__________________
SÖZ KONUSU VATAN İSE GERİSİ TEFERRUATTIR.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 11 Ocak 2017, 00:48   #3
Çevrimdışı
Cevap: /* Hash Reklam Koruması */



eline emeginee yüregine saglık @Che

__________________
SÖZ KONUSU VATAN İSE GERİSİ TEFERRUATTIR.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
hash, koruması, reklam
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık