Ana sayfa
Forumlar
Yeni mesajlar
Forumlarda ara
Blog
Neler yeni
Yeni mesajlar
Son aktiviteler
Giriş yap
Kayıt ol
Neler yeni
Ara
Ara
Sadece başlıkları ara
Kullanıcı:
Yeni mesajlar
Forumlarda ara
Menü
Giriş yap
Kayıt ol
Install the app
Yükle
Forumlar
Download
Program Merkezi
mirc Scriptler için bazı addonlar eklentiler yapalım
JavaScript devre dışı. Daha iyi bir deneyim için, önce lütfen tarayıcınızda JavaScript'i etkinleştirin.
Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya
alternatif bir tarayıcı
kullanmalısınız.
Konuya cevap cer
Mesaj
<blockquote data-quote="yunus44" data-source="post: 36580" data-attributes="member: 1569"><p>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</p><p>;; Swear protection ;;</p><p>;; ;; </p><p>;; Author : Amidos ;;</p><p>;; Version : 1.03 ;;</p><p>;; ;;</p><p>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</p><p></p><p>on *:load:{</p><p> .set %kiket on </p><p> .set %oplar on</p><p> .set %banvaxt 200</p><p> .set %kickmsj Küfür yasak!</p><p> .set %soyush buraya,yasklı*,kelimeleri,yazabilirsiniz</p><p> .echo -a 2Swear4 protection...</p><p> .echo -a 4Type 2/bad4 to open !</p><p> .echo -a 7 Good luck!! 4:12> </p><p>}</p><p></p><p></p><p></p><p>on @*:text:*:#: {</p><p> if (Şnick isop #) && (%oplar == on) { return }</p><p> if (Şnick isvo #) && (%vlar == on) { return }</p><p> _swer_ Ş1-</p><p>}</p><p></p><p>on @*:action:*:#: {</p><p> if (Şnick isop #) && (%oplar == on) { return }</p><p> if (Şnick isvo #) && (%vlar == on) { return }</p><p> _swer_ Ş1-</p><p>}</p><p></p><p>on @*:notice:*:#: {</p><p> if (Şnick isop #) && (%oplar == on) { return }</p><p> if (Şnick isvo #) && (%vlar == on) { return }</p><p> _swer_ Ş1-</p><p>}</p><p></p><p>alias _swer_ {</p><p> var %x Şstrip(Ş1-) , %i Şnumtok(%soyush,44)</p><p> while (%i) {</p><p> if (Şgettok(%soyush,%i,44) iswm %x) || (Şgettok(%soyush,%i,44) isin %x) { splay Şmircdirsounds/uyari.wav</p><p> if (%kiket == on) { .kick # Şnick Şiif(%kickmsj != Şnull,%kickmsj 1[4 Şgettok(%soyush,%i,44) 1],Yasak_kelime Detected. Please stop swearing- 1[4 Şgettok(%soyush,%i,44) 1]) }</p><p> if (%banet == on) { .ban Şiif(%banvaxt isnum,-u Ş+ %banvaxt) # Şnick 2 }</p><p> return</p><p> }</p><p> dec %i</p><p> }</p><p>}</p><p></p><p></p><p>dialog swear {</p><p> title "Swear protection By Amidos"</p><p> size -1 -1 185 111</p><p> option dbu</p><p> box "List of Bad Words", 1, 90 1 94 79</p><p> combo 2, 94 10 87 53, size</p><p> button "Add", 3, 98 66 31 10</p><p> button "Del", 4, 144 65 31 10</p><p> box "", 5, 96 60 36 18</p><p> box "", 6, 142 60 36 18</p><p> box "Penalty", 7, 2 2 84 45</p><p> check "Kick ", 8, 5 13 39 10</p><p> check "Ban ", 9, 5 31 32 10</p><p> edit "", 10, 36 30 23 12, disable</p><p> text "Seconds", 11, 62 32 21 8, disable</p><p> box "Except", 12, 2 49 84 31</p><p> check "@ps", 13, 6 57 77 10</p><p> check "+Voices", 14, 6 68 75 10</p><p> box "Kick Message", 15, 2 81 182 27</p><p> edit "", 16, 6 90 174 13, autohs</p><p>}</p><p></p><p>alias bad { .dialog -m swear swear }</p><p></p><p>on *:dialog:swear:init:*:{</p><p> if (%soyush) didtok Şdname 2 44 Şifmatch</p><p> if (%kiket) { .did -c Şdname 8 }</p><p> if (%banet) { .did -c Şdname 9 | did -e Şdname 10,11 }</p><p> if (%oplar) { .did -c Şdname 13 }</p><p> if (%vlar) { .did -c Şdname 14 }</p><p> did -a Şdname 10 %banvaxt</p><p> did -a Şdname 16 %kickmsj</p><p>}</p><p></p><p>on *:dialog:swear:sclick:*:{</p><p> if (Şdid == 3) {</p><p> 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 } } </p><p> }</p><p> 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 } }</p><p> if (Şdid == 8) { if (Şdid(8).state == 1) { .set %kiket on } | else { .unset %kiket } }</p><p> if (Şdid == 9) { if (Şdid(9).state == 1) { .set %banet on | did -e Şdname 10,11 } | else { .unset %banet | did -b Şdname 10,11 } }</p><p> if (Şdid == 13) { if (Şdid(13).state == 1) { .set %oplar on } | else { .unset %oplar } }</p><p> if (Şdid == 14) { if (Şdid(14).state == 1) { .set %vlar on } | else { .unset %vlar } }</p><p>}</p><p></p><p>on *:dialog:swear:edit:*:{</p><p> %kickmsj = Şdid(16)</p><p> %banvaxt = Şdid(10)</p><p>}</p><p></p><p>menu status,menubar { </p><p> Yasak_kelime:.bad</p><p>}</p><p></p><p>not:birde size sesvermesi için scriptin içine sounds diye bir klasör ve içinde uyari.wav olması lazım.</p><p>not: buyazılanları remote bölümüne yüklerseniz. sizin ekleyeceğiniz kelime geçince atar,veya işareti. Oplar ve voiceleri istisna edebilirsiniz.</p><p>deneyin. güzel bir eklenti.</p></blockquote><p></p>
[QUOTE="yunus44, post: 36580, member: 1569"] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Swear protection ;; ;; ;; ;; Author : Amidos ;; ;; Version : 1.03 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; on *:load:{ .set %kiket on .set %oplar on .set %banvaxt 200 .set %kickmsj Küfür yasak! .set %soyush buraya,yasklı*,kelimeleri,yazabilirsiniz .echo -a 2Swear4 protection... .echo -a 4Type 2/bad4 to open ! .echo -a 7 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) { splay Şmircdirsounds/uyari.wav if (%kiket == on) { .kick # Şnick Şiif(%kickmsj != Şnull,%kickmsj 1[4 Şgettok(%soyush,%i,44) 1],Yasak_kelime 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) } menu status,menubar { Yasak_kelime:.bad } not:birde size sesvermesi için scriptin içine sounds diye bir klasör ve içinde uyari.wav olması lazım. not: buyazılanları remote bölümüne yüklerseniz. sizin ekleyeceğiniz kelime geçince atar,veya işareti. Oplar ve voiceleri istisna edebilirsiniz. deneyin. güzel bir eklenti. [/QUOTE]
Adı
İnsan doğrulaması
Peygamber Efendimiz a.s.v.'ın kabri nerededir? (Sadece şehir adını küçük harfler ile giriniz)
Cevap yaz
Forumlar
Download
Program Merkezi
mirc Scriptler için bazı addonlar eklentiler yapalım
Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz.
Accept
Daha fazla bilgi edin.…
Üst