Menü
Ana sayfa
Forumlar
Yeni mesajlar
Forumlarda ara
Neler yeni
Featured content
Yeni mesajlar
Yeni profil mesajları
Son aktiviteler
Kullanıcılar
Kayıtlı üyeler
Şu anki ziyaretçiler
Yeni profil mesajları
Profil mesajlarında ara
Giriş yap
Kayıt ol
Neler yeni
Ara
Ara
Sadece başlıkları ara
Kullanıcı:
Menü
Giriş yap
Kayıt ol
Ana sayfa
Forumlar
mIRC Scripting
mIRC Scripting Hazır Kodlar
Hazır Kodlar
2026 FULL KORUMA MIRC KORUMA PAKETI
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="Xenomorph" data-source="post: 8860" data-attributes="member: 5869"><p><strong>Komutlar.</strong></p><p>/xenhelp</p><p>/xenpanel</p><p>/xenkoruma on</p><p>/xenkoruma off</p><p>/xendurum </p><p></p><p>Scripte giris yaptikdan sonra ALT + R Tuslarina basin acilan sayfa remote sayfasidir. Assagidaki komutu en alttaki satirin altina oldugu gibi hepsini yapistirin sayfayi onayladikdan sonra kapatin. Sonra /remote off komutunu uygulayin veya Scriptinizi yeniden baslatin.</p><p></p><p>/*</p><p> Xenomorph Full Koruma mIRC Remote Paketi v2026</p><p> Hazırlayan: ChatGPT</p><p> Kullanım: mIRC/AdiIRC > ALT+R > Remote bölümüne yapıştır veya bu .mrc dosyasını yükle.</p><p> Not: Yetkili olmadığınız sunucu/kanallarda cezalandırma komutları kullanmayın.</p><p>*/</p><p></p><p>; ==============================</p><p>; XENOMORPH FULL KORUMA AYARLARI</p><p>; ==============================</p><p></p><p>on *:LOAD:{</p><p> echo -a 04[Xenomorph] 03Full Koruma Paketi yüklendi.</p><p> echo -a 04[Xenomorph] 03Komutlar için: /xenhelp</p><p> xen.init</p><p>}</p><p></p><p>on *:START:{</p><p> xen.init</p><p>}</p><p></p><p>alias xen.init {</p><p> if (!$hget(xenProtect)) { hmake xenProtect 200 }</p><p> if (!$hget(xenRepeat)) { hmake xenRepeat 500 }</p><p> if (!$hget(xenJoin)) { hmake xenJoin 200 }</p><p> if (!$hget(xenPart)) { hmake xenPart 200 }</p><p> if (!$hget(xenCtcp)) { hmake xenCtcp 200 }</p><p></p><p> if (!$readini(xenomorph.ini,settings,masterchan)) { writeini xenomorph.ini settings masterchan #master }</p><p> if (!$readini(xenomorph.ini,settings,protect)) { writeini xenomorph.ini settings protect off }</p><p> if (!$readini(xenomorph.ini,settings,punish)) { writeini xenomorph.ini settings punish kickban }</p><p> if (!$readini(xenomorph.ini,settings,floodlimit)) { writeini xenomorph.ini settings floodlimit 5 }</p><p> if (!$readini(xenomorph.ini,settings,floodsecs)) { writeini xenomorph.ini settings floodsecs 6 }</p><p> if (!$readini(xenomorph.ini,settings,repeats)) { writeini xenomorph.ini settings repeats 4 }</p><p> if (!$readini(xenomorph.ini,settings,capspercent)) { writeini xenomorph.ini settings capspercent 75 }</p><p> if (!$readini(xenomorph.ini,settings,capsmin)) { writeini xenomorph.ini settings capsmin 15 }</p><p> if (!$readini(xenomorph.ini,settings,joinlimit)) { writeini xenomorph.ini settings joinlimit 5 }</p><p> if (!$readini(xenomorph.ini,settings,joinsecs)) { writeini xenomorph.ini settings joinsecs 8 }</p><p> if (!$readini(xenomorph.ini,settings,partlimit)) { writeini xenomorph.ini settings partlimit 5 }</p><p> if (!$readini(xenomorph.ini,settings,partsecs)) { writeini xenomorph.ini settings partsecs 8 }</p><p> if (!$readini(xenomorph.ini,settings,ctcplimit)) { writeini xenomorph.ini settings ctcplimit 3 }</p><p> if (!$readini(xenomorph.ini,settings,ctcpsecs)) { writeini xenomorph.ini settings ctcpsecs 10 }</p><p></p><p> if (!$exists(xen_kanallar.txt)) { write xen_kanallar.txt #help }</p><p> if (!$exists(xen_muaf.txt)) { write xen_muaf.txt NickServ | write xen_muaf.txt ChanServ | write xen_muaf.txt MemoServ | write xen_muaf.txt OperServ | write xen_muaf.txt Global }</p><p> if (!$exists(xen_badwords.txt)) {</p><p> write xen_badwords.txt reklam</p><p> write xen_badwords.txt sex</p><p> write xen_badwords.txt porno</p><p> write xen_badwords.txt ücretsiz</p><p> }</p><p> if (!$exists(xen_badidents.txt)) {</p><p> write xen_badidents.txt proxy</p><p> write xen_badidents.txt vpn</p><p> write xen_badidents.txt tor</p><p> write xen_badidents.txt spam</p><p> }</p><p> if (!$exists(xen_reklam.txt)) {</p><p> write xen_reklam.txt http://</p><p> write xen_reklam.txt https://</p><p> write xen_reklam.txt www.</p><p> write xen_reklam.txt .com</p><p> write xen_reklam.txt .net</p><p> write xen_reklam.txt .org</p><p> write xen_reklam.txt discord.gg</p><p> write xen_reklam.txt t.me/</p><p> }</p><p>}</p><p></p><p>; ==============================</p><p>; ANA KOMUTLAR</p><p>; ==============================</p><p></p><p>alias xenhelp {</p><p> echo -a 04===== Xenomorph Full Koruma Komutları =====</p><p> echo -a 03/xenkoruma on 14- Korumayı açar</p><p> echo -a 03/xenkoruma off 14- Korumayı kapatır</p><p> echo -a 03/xendurum 14- Sistem durumunu gösterir</p><p> echo -a 03/xenkanal ekle #kanal 14- Koruma kanalına ekler</p><p> echo -a 03/xenkanal sil #kanal 14- Koruma kanalından siler</p><p> echo -a 03/xenkanal list 14- Kanal listesini gösterir</p><p> echo -a 03/xenmuaf ekle Nick 14- Muaf nick ekler</p><p> echo -a 03/xenmuaf sil Nick 14- Muaf nick siler</p><p> echo -a 03/xenmuaf list 14- Muaf listesini gösterir</p><p> echo -a 03/xenbad ekle kelime 14- Yasak kelime ekler</p><p> echo -a 03/xenbad sil kelime 14- Yasak kelime siler</p><p> echo -a 03/xenbad list 14- Yasak kelimeleri gösterir</p><p> echo -a 03/xenreklam ekle kelime 14- Reklam filtresi ekler</p><p> echo -a 03/xenpunish kick|ban|kickban|gline|zline 14- Ceza türünü seçer</p><p> echo -a 03/xenpanel 14- Basit kontrol panelini açar</p><p> echo -a 04==========================================</p><p>}</p><p></p><p>alias xendurum {</p><p> echo -a 04[Xenomorph] 03Koruma: $readini(xenomorph.ini,settings,protect)</p><p> echo -a 04[Xenomorph] 03Ceza: $readini(xenomorph.ini,settings,punish)</p><p> echo -a 04[Xenomorph] 03Master kanal: $readini(xenomorph.ini,settings,masterchan)</p><p> echo -a 04[Xenomorph] 03Flood: $readini(xenomorph.ini,settings,floodlimit) mesaj / $readini(xenomorph.ini,settings,floodsecs) sn</p><p> echo -a 04[Xenomorph] 03Repeat: $readini(xenomorph.ini,settings,repeats) tekrar</p><p> echo -a 04[Xenomorph] 03Caps: % $readini(xenomorph.ini,settings,capspercent) / min $readini(xenomorph.ini,settings,capsmin) karakter</p><p>}</p><p></p><p>alias xenkoruma {</p><p> if (!$1) { echo -a Kullanım: /xenkoruma on|off | return }</p><p> if ($1 == on) {</p><p> writeini xenomorph.ini settings protect on</p><p> echo -a 04[Xenomorph] 03Full koruma açıldı.</p><p> xen.noticeall Full koruma açıldı.</p><p> }</p><p> elseif ($1 == off) {</p><p> writeini xenomorph.ini settings protect off</p><p> echo -a 04[Xenomorph] 05Full koruma kapatıldı.</p><p> xen.noticeall Full koruma kapatıldı.</p><p> }</p><p>}</p><p></p><p>alias xenpunish {</p><p> if (!$istok(kick ban kickban gline zline,$1,32)) { echo -a Kullanım: /xenpunish kick|ban|kickban|gline|zline | return }</p><p> writeini xenomorph.ini settings punish $1</p><p> echo -a 04[Xenomorph] 03Ceza türü: $1</p><p>}</p><p></p><p>alias xenkanal {</p><p> if (!$istok(ekle sil list,$1,32)) { echo -a Kullanım: /xenkanal ekle|sil|list #kanal | return }</p><p> if ($1 == list) { run xen_kanallar.txt | return }</p><p> if (!$2) { echo -a Kanal belirt: #kanal | return }</p><p> if ($1 == ekle) {</p><p> if (!$read(xen_kanallar.txt,w,$2)) { write xen_kanallar.txt $2 | echo -a 03Eklendi: $2 }</p><p> else echo -a 14Zaten var: $2</p><p> }</p><p> if ($1 == sil) {</p><p> write -ds $+ $2 xen_kanallar.txt</p><p> echo -a 04Silindi: $2</p><p> }</p><p>}</p><p></p><p>alias xenmuaf {</p><p> if (!$istok(ekle sil list,$1,32)) { echo -a Kullanım: /xenmuaf ekle|sil|list Nick | return }</p><p> if ($1 == list) { run xen_muaf.txt | return }</p><p> if (!$2) { echo -a Nick belirt. | return }</p><p> if ($1 == ekle) {</p><p> if (!$read(xen_muaf.txt,w,$2)) { write xen_muaf.txt $2 | echo -a 03Muaf eklendi: $2 }</p><p> else echo -a 14Zaten muaf: $2</p><p> }</p><p> if ($1 == sil) {</p><p> write -ds $+ $2 xen_muaf.txt</p><p> echo -a 04Muaf silindi: $2</p><p> }</p><p>}</p><p></p><p>alias xenbad {</p><p> if (!$istok(ekle sil list,$1,32)) { echo -a Kullanım: /xenbad ekle|sil|list kelime | return }</p><p> if ($1 == list) { run xen_badwords.txt | return }</p><p> if (!$2) { echo -a Kelime belirt. | return }</p><p> if ($1 == ekle) {</p><p> if (!$read(xen_badwords.txt,w,$2)) { write xen_badwords.txt $2- | echo -a 03Yasak kelime eklendi: $2- }</p><p> }</p><p> if ($1 == sil) {</p><p> write -ds $+ $2 xen_badwords.txt</p><p> echo -a 04Yasak kelime silindi: $2</p><p> }</p><p>}</p><p></p><p>alias xenreklam {</p><p> if (!$istok(ekle sil list,$1,32)) { echo -a Kullanım: /xenreklam ekle|sil|list kelime | return }</p><p> if ($1 == list) { run xen_reklam.txt | return }</p><p> if (!$2) { echo -a Kelime/domain belirt. | return }</p><p> if ($1 == ekle) {</p><p> if (!$read(xen_reklam.txt,w,$2)) { write xen_reklam.txt $2- | echo -a 03Reklam filtresi eklendi: $2- }</p><p> }</p><p> if ($1 == sil) {</p><p> write -ds $+ $2 xen_reklam.txt</p><p> echo -a 04Reklam filtresi silindi: $2</p><p> }</p><p>}</p><p></p><p>; ==============================</p><p>; KONTROL PANELİ</p><p>; ==============================</p><p></p><p>menu status,channel,menubar {</p><p> Xenomorph Full Koruma</p><p> .Panel Aç:/xenpanel</p><p> .Korumayı Aç:/xenkoruma on</p><p> .Korumayı Kapat:/xenkoruma off</p><p> .Durum:/xendurum</p><p> .Komutlar:/xenhelp</p><p>}</p><p></p><p>alias xenpanel { dialog -m xenPanel xenPanel }</p><p></p><p>dialog xenPanel {</p><p> title "Xenomorph Full Koruma Paneli"</p><p> size -1 -1 230 155</p><p> option dbu</p><p></p><p> text "Koruma Durumu:", 1, 10 12 70 10</p><p> button "Aç", 2, 85 10 45 15</p><p> button "Kapat", 3, 135 10 45 15</p><p></p><p> text "Ceza Türü:", 4, 10 37 60 10</p><p> combo 5, 85 35 90 70, drop</p><p> button "Uygula", 6, 180 35 40 15</p><p></p><p> button "Kanal Listesi", 7, 10 65 80 18</p><p> button "Muaf Listesi", 8, 100 65 80 18</p><p> button "Badword", 9, 10 90 80 18</p><p> button "Reklam Filtresi", 10, 100 90 80 18</p><p></p><p> button "Durum Göster", 11, 10 120 80 18</p><p> button "Kapat", 12, 115 120 70 18, cancel</p><p>}</p><p></p><p>on *<img src="https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f600.png" class="smilie smilie--emoji" loading="lazy" width="64" height="64" alt=":D" title="Big grin :D" data-smilie="8"data-shortname=":D" />IALOG:xenPanel:init:*:{</p><p> did -a xenPanel 5 kick</p><p> did -a xenPanel 5 ban</p><p> did -a xenPanel 5 kickban</p><p> did -a xenPanel 5 gline</p><p> did -a xenPanel 5 zline</p><p> did -c xenPanel 5 3</p><p>}</p><p></p><p>on *<img src="https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f600.png" class="smilie smilie--emoji" loading="lazy" width="64" height="64" alt=":D" title="Big grin :D" data-smilie="8"data-shortname=":D" />IALOG:xenPanel:sclick:*:{</p><p> if ($did == 2) xenkoruma on</p><p> if ($did == 3) xenkoruma off</p><p> if ($did == 6) xenpunish $did(xenPanel,5)</p><p> if ($did == 7) run xen_kanallar.txt</p><p> if ($did == 8) run xen_muaf.txt</p><p> if ($did == 9) run xen_badwords.txt</p><p> if ($did == 10) run xen_reklam.txt</p><p> if ($did == 11) xendurum</p><p>}</p><p></p><p>; ==============================</p><p>; KORUMA MOTORU</p><p>; ==============================</p><p></p><p>alias xen.on { return $iif($readini(xenomorph.ini,settings,protect) == on,1,0) }</p><p>alias xen.kanal { return $iif($read(xen_kanallar.txt,w,$1),1,0) }</p><p>alias xen.muaf { return $iif($read(xen_muaf.txt,w,$1),1,0) }</p><p>alias xen.master { return $readini(xenomorph.ini,settings,masterchan) }</p><p></p><p>alias xen.noticeall {</p><p> var %i 1</p><p> while (%i <= $lines(xen_kanallar.txt)) {</p><p> var %c $read(xen_kanallar.txt,%i)</p><p> if ($me ison %c) msg %c 14[Xenomorph Script] 03$1-</p><p> inc %i</p><p> }</p><p>}</p><p></p><p>alias xen.log {</p><p> var %m $asctime(yyyy-mm-dd HH:nn:ss) $1-</p><p> write xen_koruma.log %m</p><p> echo -a 04[Xenomorph LOG] 14$1-</p><p> if ($me ison $xen.master) msg $xen.master 04[Xenomorph LOG] 14$1-</p><p>}</p><p></p><p>alias xen.punish {</p><p> ; Kullanım: /xen.punish #kanal nick sebep</p><p> var %chan $1</p><p> var %nick $2</p><p> var %reason $3-</p><p> var %punish $readini(xenomorph.ini,settings,punish)</p><p></p><p> if (!%chan || !%nick) return</p><p> if ($xen.muaf(%nick)) return</p><p> if (%nick == $me) return</p><p> if (%nick isop %chan) return</p><p></p><p> if (%punish == kick) {</p><p> kick %chan %nick Xenomorph Koruma: %reason</p><p> }</p><p> elseif (%punish == ban) {</p><p> mode %chan +b $address(%nick,2)</p><p> }</p><p> elseif (%punish == kickban) {</p><p> mode %chan +b $address(%nick,2)</p><p> kick %chan %nick Xenomorph Koruma: %reason</p><p> }</p><p> elseif (%punish == gline) {</p><p> ; IRCOP yetkisi gerektirir. İstersen sadece manuel kullan.</p><p> gline %nick 1h :Xenomorph Koruma: %reason</p><p> }</p><p> elseif (%punish == zline) {</p><p> ; IRCOP yetkisi gerektirir. Sunucunda destekleniyorsa çalışır.</p><p> zline %nick 1h :Xenomorph Koruma: %reason</p><p> }</p><p></p><p> xen.log %chan üzerinde %nick cezalandırıldı. Sebep: %reason</p><p>}</p><p></p><p>alias xen.containsfile {</p><p> ; /xen.containsfile dosya.txt metin</p><p> var %file $1</p><p> var %text $lower($2-)</p><p> var %i 1</p><p> while (%i <= $lines(%file)) {</p><p> var %w $lower($read(%file,%i))</p><p> if (%w isin %text) return 1</p><p> inc %i</p><p> }</p><p> return 0</p><p>}</p><p></p><p>alias xen.capspercent {</p><p> var %text $remove($1-,$chr(32))</p><p> var %len $len(%text)</p><p> if (%len == 0) return 0</p><p> var %upper 0</p><p> var %i 1</p><p> while (%i <= %len) {</p><p> var %c $mid(%text,%i,1)</p><p> if (%c isupper) inc %upper</p><p> inc %i</p><p> }</p><p> return $int($calc((%upper / %len) * 100))</p><p>}</p><p></p><p>; ==============================</p><p>; TEXT KORUMALARI</p><p>; ==============================</p><p></p><p>on *:TEXT:*:#:{</p><p> if (!$xen.on) return</p><p> if (!$xen.kanal(#)) return</p><p> if ($xen.muaf($nick)) return</p><p> if ($nick isop #) return</p><p></p><p> ; Flood koruması</p><p> var %flkey flood. $+ # $+ . $+ $nick</p><p> hinc -mu $+ $readini(xenomorph.ini,settings,floodsecs) xenProtect %flkey</p><p> if ($hget(xenProtect,%flkey) >= $readini(xenomorph.ini,settings,floodlimit)) {</p><p> xen.punish # $nick Flood algılandı.</p><p> hdel xenProtect %flkey</p><p> return</p><p> }</p><p></p><p> ; Tekrar mesaj koruması</p><p> var %rkey repeat. $+ # $+ . $+ $nick</p><p> var %last $hget(xenRepeat,%rkey)</p><p> if (%last == $strip($1-)) {</p><p> var %ckey repeatcount. $+ # $+ . $+ $nick</p><p> hinc -mu30 xenRepeat %ckey</p><p> if ($hget(xenRepeat,%ckey) >= $readini(xenomorph.ini,settings,repeats)) {</p><p> xen.punish # $nick Tekrar mesaj floodu.</p><p> hdel xenRepeat %ckey</p><p> return</p><p> }</p><p> }</p><p> hadd -mu30 xenRepeat %rkey $strip($1-)</p><p></p><p> ; Reklam/link koruması</p><p> if ($xen.containsfile(xen_reklam.txt,$1-)) {</p><p> xen.punish # $nick Reklam/link paylaşımı.</p><p> return</p><p> }</p><p></p><p> ; Yasak kelime koruması</p><p> if ($xen.containsfile(xen_badwords.txt,$1-)) {</p><p> xen.punish # $nick Yasak kelime kullanımı.</p><p> return</p><p> }</p><p></p><p> ; Caps koruması</p><p> if ($len($strip($1-)) >= $readini(xenomorph.ini,settings,capsmin)) {</p><p> if ($xen.capspercent($strip($1-)) >= $readini(xenomorph.ini,settings,capspercent)) {</p><p> xen.punish # $nick Aşırı büyük harf kullanımı.</p><p> return</p><p> }</p><p> }</p><p></p><p> ; Sana seslenilirse dikkat çek</p><p> if ($istok($lower($strip($1-)),$lower($me),32)) {</p><p> echo -a 09[Dikkat] 03$nick sana # kanalında seslendi: $1-</p><p> flash -b</p><p> beep 2</p><p> }</p><p>}</p><p></p><p>; ==============================</p><p>; NOTICE/ACTION/SPAM KORUMALARI</p><p>; ==============================</p><p></p><p>on *:NOTICE:*:#:{</p><p> if (!$xen.on) return</p><p> if (!$xen.kanal(#)) return</p><p> if ($xen.muaf($nick)) return</p><p> if ($xen.containsfile(xen_reklam.txt,$1-)) {</p><p> xen.punish # $nick Notice reklamı.</p><p> }</p><p>}</p><p></p><p>on *:ACTION:*:#:{</p><p> if (!$xen.on) return</p><p> if (!$xen.kanal(#)) return</p><p> if ($xen.muaf($nick)) return</p><p> if ($xen.containsfile(xen_reklam.txt,$1-)) {</p><p> xen.punish # $nick Action reklamı.</p><p> }</p><p>}</p><p></p><p>; ==============================</p><p>; JOIN / PART / NICK / IDENT KORUMA</p><p>; ==============================</p><p></p><p>on *:JOIN:#:{</p><p> if (!$xen.on) return</p><p> if (!$xen.kanal(#)) return</p><p> if ($nick == $me) return</p><p> if ($xen.muaf($nick)) return</p><p></p><p> ; Join flood kanal bazlı</p><p> var %jkey join. $+ #</p><p> hinc -mu $+ $readini(xenomorph.ini,settings,joinsecs) xenJoin %jkey</p><p> if ($hget(xenJoin,%jkey) >= $readini(xenomorph.ini,settings,joinlimit)) {</p><p> mode # +m</p><p> xen.log # üzerinde join flood algılandı. Kanal +m yapıldı.</p><p> .timerxenjoin $+ # 1 45 mode # -m</p><p> hdel xenJoin %jkey</p><p> }</p><p></p><p> ; Şüpheli nick/ident kontrolü</p><p> var %host $address($nick,5)</p><p> if ($xen.containsfile(xen_badidents.txt,$nick $+ $chr(32) $+ %host)) {</p><p> xen.punish # $nick Şüpheli nick/ident/host.</p><p> }</p><p>}</p><p></p><p>on *<img src="https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png" class="smilie smilie--emoji" loading="lazy" width="64" height="64" alt=":P" title="Stick out tongue :P" data-smilie="7"data-shortname=":P" />ART:#:{</p><p> if (!$xen.on) return</p><p> if (!$xen.kanal(#)) return</p><p> if ($nick == $me) return</p><p></p><p> var %pkey part. $+ #</p><p> hinc -mu $+ $readini(xenomorph.ini,settings,partsecs) xenPart %pkey</p><p> if ($hget(xenPart,%pkey) >= $readini(xenomorph.ini,settings,partlimit)) {</p><p> mode # +m</p><p> xen.log # üzerinde part flood algılandı. Kanal +m yapıldı.</p><p> .timerxenpart $+ # 1 45 mode # -m</p><p> hdel xenPart %pkey</p><p> }</p><p>}</p><p></p><p>on *:NICK:{</p><p> if (!$xen.on) return</p><p> var %i 1</p><p> while (%i <= $comchan($newnick,0)) {</p><p> var %c $comchan($newnick,%i)</p><p> if ($xen.kanal(%c)) {</p><p> if (!$xen.muaf($newnick)) {</p><p> if ($xen.containsfile(xen_badidents.txt,$newnick)) {</p><p> xen.punish %c $newnick Şüpheli nick değişimi.</p><p> }</p><p> }</p><p> }</p><p> inc %i</p><p> }</p><p>}</p><p></p><p>; ==============================</p><p>; CTCP KORUMASI</p><p>; ==============================</p><p></p><p>ctcp *:*:*:{</p><p> if (!$xen.on) return</p><p> if ($xen.muaf($nick)) return</p><p></p><p> var %ckey ctcp. $+ $nick</p><p> hinc -mu $+ $readini(xenomorph.ini,settings,ctcpsecs) xenCtcp %ckey</p><p></p><p> if ($hget(xenCtcp,%ckey) >= $readini(xenomorph.ini,settings,ctcplimit)) {</p><p> ignore -u300 $nick 1</p><p> xen.log $nick CTCP flood sebebiyle 5 dakika ignore edildi.</p><p> hdel xenCtcp %ckey</p><p> }</p><p>}</p><p></p><p>; ==============================</p><p>; MANUEL OPER/KANAL KISAYOLLARI</p><p>; ==============================</p><p></p><p>alias xb {</p><p> if (!$active || !$1) { echo -a Kullanım: /xb nick sebep | return }</p><p> mode $active +b $address($1,2)</p><p> kick $active $1 Xenomorph: $iif($2-,$2-,Ban)</p><p>}</p><p></p><p>alias xk {</p><p> if (!$active || !$1) { echo -a Kullanım: /xk nick sebep | return }</p><p> kick $active $1 Xenomorph: $iif($2-,$2-,Kick)</p><p>}</p><p></p><p>alias xgline {</p><p> if (!$1) { echo -a Kullanım: /xgline nick süre sebep | return }</p><p> gline $1 $iif($2,$2,1h) :Xenomorph: $iif($3-,$3-,Güvenlik)</p><p>}</p><p></p><p>alias xzline {</p><p> if (!$1) { echo -a Kullanım: /xzline nick süre sebep | return }</p><p> zline $1 $iif($2,$2,1h) :Xenomorph: $iif($3-,$3-,Güvenlik)</p><p>}</p><p></p><p>alias xlock {</p><p> if (!$active) return</p><p> mode $active +mi</p><p> msg $active 04[Xenomorph Script] 14Kanal güvenlik sebebiyle geçici olarak kilitlendi.</p><p>}</p><p></p><p>alias xunlock {</p><p> if (!$active) return</p><p> mode $active -mi</p><p> msg $active 03[Xenomorph Script] 14Kanal kilidi kaldırıldı.</p><p>}</p><p></p><p>; ==============================</p><p>; POPUP MENÜLER</p><p>; ==============================</p><p></p><p>menu nicklist {</p><p> Xenomorph İşlemleri</p><p> .Kick:/xk $$1</p><p> .Ban + Kick:/xb $$1</p><p> .Muaf Ekle:/xenmuaf ekle $$1</p><p> .G-Line 1 Saat:/xgline $$1 1h Güvenlik</p><p> .Z-Line 1 Saat:/xzline $$1 1h Güvenlik</p><p>}</p><p></p><p>menu channel {</p><p> Xenomorph Kanal Koruma</p><p> .Korumayı Aç:/xenkoruma on</p><p> .Korumayı Kapat:/xenkoruma off</p><p> .Kanalı Kilitle +mi:/xlock</p><p> .Kanal Kilidini Aç -mi:/xunlock</p><p> .Bu Kanalı Koruma Listesine Ekle:/xenkanal ekle $active</p><p> .Durum:/xendurum</p><p>}</p></blockquote><p></p>
[QUOTE="Xenomorph, post: 8860, member: 5869"] [B]Komutlar.[/B] /xenhelp /xenpanel /xenkoruma on /xenkoruma off /xendurum Scripte giris yaptikdan sonra ALT + R Tuslarina basin acilan sayfa remote sayfasidir. Assagidaki komutu en alttaki satirin altina oldugu gibi hepsini yapistirin sayfayi onayladikdan sonra kapatin. Sonra /remote off komutunu uygulayin veya Scriptinizi yeniden baslatin. /* Xenomorph Full Koruma mIRC Remote Paketi v2026 Hazırlayan: ChatGPT Kullanım: mIRC/AdiIRC > ALT+R > Remote bölümüne yapıştır veya bu .mrc dosyasını yükle. Not: Yetkili olmadığınız sunucu/kanallarda cezalandırma komutları kullanmayın. */ ; ============================== ; XENOMORPH FULL KORUMA AYARLARI ; ============================== on *:LOAD:{ echo -a 04[Xenomorph] 03Full Koruma Paketi yüklendi. echo -a 04[Xenomorph] 03Komutlar için: /xenhelp xen.init } on *:START:{ xen.init } alias xen.init { if (!$hget(xenProtect)) { hmake xenProtect 200 } if (!$hget(xenRepeat)) { hmake xenRepeat 500 } if (!$hget(xenJoin)) { hmake xenJoin 200 } if (!$hget(xenPart)) { hmake xenPart 200 } if (!$hget(xenCtcp)) { hmake xenCtcp 200 } if (!$readini(xenomorph.ini,settings,masterchan)) { writeini xenomorph.ini settings masterchan #master } if (!$readini(xenomorph.ini,settings,protect)) { writeini xenomorph.ini settings protect off } if (!$readini(xenomorph.ini,settings,punish)) { writeini xenomorph.ini settings punish kickban } if (!$readini(xenomorph.ini,settings,floodlimit)) { writeini xenomorph.ini settings floodlimit 5 } if (!$readini(xenomorph.ini,settings,floodsecs)) { writeini xenomorph.ini settings floodsecs 6 } if (!$readini(xenomorph.ini,settings,repeats)) { writeini xenomorph.ini settings repeats 4 } if (!$readini(xenomorph.ini,settings,capspercent)) { writeini xenomorph.ini settings capspercent 75 } if (!$readini(xenomorph.ini,settings,capsmin)) { writeini xenomorph.ini settings capsmin 15 } if (!$readini(xenomorph.ini,settings,joinlimit)) { writeini xenomorph.ini settings joinlimit 5 } if (!$readini(xenomorph.ini,settings,joinsecs)) { writeini xenomorph.ini settings joinsecs 8 } if (!$readini(xenomorph.ini,settings,partlimit)) { writeini xenomorph.ini settings partlimit 5 } if (!$readini(xenomorph.ini,settings,partsecs)) { writeini xenomorph.ini settings partsecs 8 } if (!$readini(xenomorph.ini,settings,ctcplimit)) { writeini xenomorph.ini settings ctcplimit 3 } if (!$readini(xenomorph.ini,settings,ctcpsecs)) { writeini xenomorph.ini settings ctcpsecs 10 } if (!$exists(xen_kanallar.txt)) { write xen_kanallar.txt #help } if (!$exists(xen_muaf.txt)) { write xen_muaf.txt NickServ | write xen_muaf.txt ChanServ | write xen_muaf.txt MemoServ | write xen_muaf.txt OperServ | write xen_muaf.txt Global } if (!$exists(xen_badwords.txt)) { write xen_badwords.txt reklam write xen_badwords.txt sex write xen_badwords.txt porno write xen_badwords.txt ücretsiz } if (!$exists(xen_badidents.txt)) { write xen_badidents.txt proxy write xen_badidents.txt vpn write xen_badidents.txt tor write xen_badidents.txt spam } if (!$exists(xen_reklam.txt)) { write xen_reklam.txt http:// write xen_reklam.txt https:// write xen_reklam.txt www. write xen_reklam.txt .com write xen_reklam.txt .net write xen_reklam.txt .org write xen_reklam.txt discord.gg write xen_reklam.txt t.me/ } } ; ============================== ; ANA KOMUTLAR ; ============================== alias xenhelp { echo -a 04===== Xenomorph Full Koruma Komutları ===== echo -a 03/xenkoruma on 14- Korumayı açar echo -a 03/xenkoruma off 14- Korumayı kapatır echo -a 03/xendurum 14- Sistem durumunu gösterir echo -a 03/xenkanal ekle #kanal 14- Koruma kanalına ekler echo -a 03/xenkanal sil #kanal 14- Koruma kanalından siler echo -a 03/xenkanal list 14- Kanal listesini gösterir echo -a 03/xenmuaf ekle Nick 14- Muaf nick ekler echo -a 03/xenmuaf sil Nick 14- Muaf nick siler echo -a 03/xenmuaf list 14- Muaf listesini gösterir echo -a 03/xenbad ekle kelime 14- Yasak kelime ekler echo -a 03/xenbad sil kelime 14- Yasak kelime siler echo -a 03/xenbad list 14- Yasak kelimeleri gösterir echo -a 03/xenreklam ekle kelime 14- Reklam filtresi ekler echo -a 03/xenpunish kick|ban|kickban|gline|zline 14- Ceza türünü seçer echo -a 03/xenpanel 14- Basit kontrol panelini açar echo -a 04========================================== } alias xendurum { echo -a 04[Xenomorph] 03Koruma: $readini(xenomorph.ini,settings,protect) echo -a 04[Xenomorph] 03Ceza: $readini(xenomorph.ini,settings,punish) echo -a 04[Xenomorph] 03Master kanal: $readini(xenomorph.ini,settings,masterchan) echo -a 04[Xenomorph] 03Flood: $readini(xenomorph.ini,settings,floodlimit) mesaj / $readini(xenomorph.ini,settings,floodsecs) sn echo -a 04[Xenomorph] 03Repeat: $readini(xenomorph.ini,settings,repeats) tekrar echo -a 04[Xenomorph] 03Caps: % $readini(xenomorph.ini,settings,capspercent) / min $readini(xenomorph.ini,settings,capsmin) karakter } alias xenkoruma { if (!$1) { echo -a Kullanım: /xenkoruma on|off | return } if ($1 == on) { writeini xenomorph.ini settings protect on echo -a 04[Xenomorph] 03Full koruma açıldı. xen.noticeall Full koruma açıldı. } elseif ($1 == off) { writeini xenomorph.ini settings protect off echo -a 04[Xenomorph] 05Full koruma kapatıldı. xen.noticeall Full koruma kapatıldı. } } alias xenpunish { if (!$istok(kick ban kickban gline zline,$1,32)) { echo -a Kullanım: /xenpunish kick|ban|kickban|gline|zline | return } writeini xenomorph.ini settings punish $1 echo -a 04[Xenomorph] 03Ceza türü: $1 } alias xenkanal { if (!$istok(ekle sil list,$1,32)) { echo -a Kullanım: /xenkanal ekle|sil|list #kanal | return } if ($1 == list) { run xen_kanallar.txt | return } if (!$2) { echo -a Kanal belirt: #kanal | return } if ($1 == ekle) { if (!$read(xen_kanallar.txt,w,$2)) { write xen_kanallar.txt $2 | echo -a 03Eklendi: $2 } else echo -a 14Zaten var: $2 } if ($1 == sil) { write -ds $+ $2 xen_kanallar.txt echo -a 04Silindi: $2 } } alias xenmuaf { if (!$istok(ekle sil list,$1,32)) { echo -a Kullanım: /xenmuaf ekle|sil|list Nick | return } if ($1 == list) { run xen_muaf.txt | return } if (!$2) { echo -a Nick belirt. | return } if ($1 == ekle) { if (!$read(xen_muaf.txt,w,$2)) { write xen_muaf.txt $2 | echo -a 03Muaf eklendi: $2 } else echo -a 14Zaten muaf: $2 } if ($1 == sil) { write -ds $+ $2 xen_muaf.txt echo -a 04Muaf silindi: $2 } } alias xenbad { if (!$istok(ekle sil list,$1,32)) { echo -a Kullanım: /xenbad ekle|sil|list kelime | return } if ($1 == list) { run xen_badwords.txt | return } if (!$2) { echo -a Kelime belirt. | return } if ($1 == ekle) { if (!$read(xen_badwords.txt,w,$2)) { write xen_badwords.txt $2- | echo -a 03Yasak kelime eklendi: $2- } } if ($1 == sil) { write -ds $+ $2 xen_badwords.txt echo -a 04Yasak kelime silindi: $2 } } alias xenreklam { if (!$istok(ekle sil list,$1,32)) { echo -a Kullanım: /xenreklam ekle|sil|list kelime | return } if ($1 == list) { run xen_reklam.txt | return } if (!$2) { echo -a Kelime/domain belirt. | return } if ($1 == ekle) { if (!$read(xen_reklam.txt,w,$2)) { write xen_reklam.txt $2- | echo -a 03Reklam filtresi eklendi: $2- } } if ($1 == sil) { write -ds $+ $2 xen_reklam.txt echo -a 04Reklam filtresi silindi: $2 } } ; ============================== ; KONTROL PANELİ ; ============================== menu status,channel,menubar { Xenomorph Full Koruma .Panel Aç:/xenpanel .Korumayı Aç:/xenkoruma on .Korumayı Kapat:/xenkoruma off .Durum:/xendurum .Komutlar:/xenhelp } alias xenpanel { dialog -m xenPanel xenPanel } dialog xenPanel { title "Xenomorph Full Koruma Paneli" size -1 -1 230 155 option dbu text "Koruma Durumu:", 1, 10 12 70 10 button "Aç", 2, 85 10 45 15 button "Kapat", 3, 135 10 45 15 text "Ceza Türü:", 4, 10 37 60 10 combo 5, 85 35 90 70, drop button "Uygula", 6, 180 35 40 15 button "Kanal Listesi", 7, 10 65 80 18 button "Muaf Listesi", 8, 100 65 80 18 button "Badword", 9, 10 90 80 18 button "Reklam Filtresi", 10, 100 90 80 18 button "Durum Göster", 11, 10 120 80 18 button "Kapat", 12, 115 120 70 18, cancel } on *:DIALOG:xenPanel:init:*:{ did -a xenPanel 5 kick did -a xenPanel 5 ban did -a xenPanel 5 kickban did -a xenPanel 5 gline did -a xenPanel 5 zline did -c xenPanel 5 3 } on *:DIALOG:xenPanel:sclick:*:{ if ($did == 2) xenkoruma on if ($did == 3) xenkoruma off if ($did == 6) xenpunish $did(xenPanel,5) if ($did == 7) run xen_kanallar.txt if ($did == 8) run xen_muaf.txt if ($did == 9) run xen_badwords.txt if ($did == 10) run xen_reklam.txt if ($did == 11) xendurum } ; ============================== ; KORUMA MOTORU ; ============================== alias xen.on { return $iif($readini(xenomorph.ini,settings,protect) == on,1,0) } alias xen.kanal { return $iif($read(xen_kanallar.txt,w,$1),1,0) } alias xen.muaf { return $iif($read(xen_muaf.txt,w,$1),1,0) } alias xen.master { return $readini(xenomorph.ini,settings,masterchan) } alias xen.noticeall { var %i 1 while (%i <= $lines(xen_kanallar.txt)) { var %c $read(xen_kanallar.txt,%i) if ($me ison %c) msg %c 14[Xenomorph Script] 03$1- inc %i } } alias xen.log { var %m $asctime(yyyy-mm-dd HH:nn:ss) $1- write xen_koruma.log %m echo -a 04[Xenomorph LOG] 14$1- if ($me ison $xen.master) msg $xen.master 04[Xenomorph LOG] 14$1- } alias xen.punish { ; Kullanım: /xen.punish #kanal nick sebep var %chan $1 var %nick $2 var %reason $3- var %punish $readini(xenomorph.ini,settings,punish) if (!%chan || !%nick) return if ($xen.muaf(%nick)) return if (%nick == $me) return if (%nick isop %chan) return if (%punish == kick) { kick %chan %nick Xenomorph Koruma: %reason } elseif (%punish == ban) { mode %chan +b $address(%nick,2) } elseif (%punish == kickban) { mode %chan +b $address(%nick,2) kick %chan %nick Xenomorph Koruma: %reason } elseif (%punish == gline) { ; IRCOP yetkisi gerektirir. İstersen sadece manuel kullan. gline %nick 1h :Xenomorph Koruma: %reason } elseif (%punish == zline) { ; IRCOP yetkisi gerektirir. Sunucunda destekleniyorsa çalışır. zline %nick 1h :Xenomorph Koruma: %reason } xen.log %chan üzerinde %nick cezalandırıldı. Sebep: %reason } alias xen.containsfile { ; /xen.containsfile dosya.txt metin var %file $1 var %text $lower($2-) var %i 1 while (%i <= $lines(%file)) { var %w $lower($read(%file,%i)) if (%w isin %text) return 1 inc %i } return 0 } alias xen.capspercent { var %text $remove($1-,$chr(32)) var %len $len(%text) if (%len == 0) return 0 var %upper 0 var %i 1 while (%i <= %len) { var %c $mid(%text,%i,1) if (%c isupper) inc %upper inc %i } return $int($calc((%upper / %len) * 100)) } ; ============================== ; TEXT KORUMALARI ; ============================== on *:TEXT:*:#:{ if (!$xen.on) return if (!$xen.kanal(#)) return if ($xen.muaf($nick)) return if ($nick isop #) return ; Flood koruması var %flkey flood. $+ # $+ . $+ $nick hinc -mu $+ $readini(xenomorph.ini,settings,floodsecs) xenProtect %flkey if ($hget(xenProtect,%flkey) >= $readini(xenomorph.ini,settings,floodlimit)) { xen.punish # $nick Flood algılandı. hdel xenProtect %flkey return } ; Tekrar mesaj koruması var %rkey repeat. $+ # $+ . $+ $nick var %last $hget(xenRepeat,%rkey) if (%last == $strip($1-)) { var %ckey repeatcount. $+ # $+ . $+ $nick hinc -mu30 xenRepeat %ckey if ($hget(xenRepeat,%ckey) >= $readini(xenomorph.ini,settings,repeats)) { xen.punish # $nick Tekrar mesaj floodu. hdel xenRepeat %ckey return } } hadd -mu30 xenRepeat %rkey $strip($1-) ; Reklam/link koruması if ($xen.containsfile(xen_reklam.txt,$1-)) { xen.punish # $nick Reklam/link paylaşımı. return } ; Yasak kelime koruması if ($xen.containsfile(xen_badwords.txt,$1-)) { xen.punish # $nick Yasak kelime kullanımı. return } ; Caps koruması if ($len($strip($1-)) >= $readini(xenomorph.ini,settings,capsmin)) { if ($xen.capspercent($strip($1-)) >= $readini(xenomorph.ini,settings,capspercent)) { xen.punish # $nick Aşırı büyük harf kullanımı. return } } ; Sana seslenilirse dikkat çek if ($istok($lower($strip($1-)),$lower($me),32)) { echo -a 09[Dikkat] 03$nick sana # kanalında seslendi: $1- flash -b beep 2 } } ; ============================== ; NOTICE/ACTION/SPAM KORUMALARI ; ============================== on *:NOTICE:*:#:{ if (!$xen.on) return if (!$xen.kanal(#)) return if ($xen.muaf($nick)) return if ($xen.containsfile(xen_reklam.txt,$1-)) { xen.punish # $nick Notice reklamı. } } on *:ACTION:*:#:{ if (!$xen.on) return if (!$xen.kanal(#)) return if ($xen.muaf($nick)) return if ($xen.containsfile(xen_reklam.txt,$1-)) { xen.punish # $nick Action reklamı. } } ; ============================== ; JOIN / PART / NICK / IDENT KORUMA ; ============================== on *:JOIN:#:{ if (!$xen.on) return if (!$xen.kanal(#)) return if ($nick == $me) return if ($xen.muaf($nick)) return ; Join flood kanal bazlı var %jkey join. $+ # hinc -mu $+ $readini(xenomorph.ini,settings,joinsecs) xenJoin %jkey if ($hget(xenJoin,%jkey) >= $readini(xenomorph.ini,settings,joinlimit)) { mode # +m xen.log # üzerinde join flood algılandı. Kanal +m yapıldı. .timerxenjoin $+ # 1 45 mode # -m hdel xenJoin %jkey } ; Şüpheli nick/ident kontrolü var %host $address($nick,5) if ($xen.containsfile(xen_badidents.txt,$nick $+ $chr(32) $+ %host)) { xen.punish # $nick Şüpheli nick/ident/host. } } on *:PART:#:{ if (!$xen.on) return if (!$xen.kanal(#)) return if ($nick == $me) return var %pkey part. $+ # hinc -mu $+ $readini(xenomorph.ini,settings,partsecs) xenPart %pkey if ($hget(xenPart,%pkey) >= $readini(xenomorph.ini,settings,partlimit)) { mode # +m xen.log # üzerinde part flood algılandı. Kanal +m yapıldı. .timerxenpart $+ # 1 45 mode # -m hdel xenPart %pkey } } on *:NICK:{ if (!$xen.on) return var %i 1 while (%i <= $comchan($newnick,0)) { var %c $comchan($newnick,%i) if ($xen.kanal(%c)) { if (!$xen.muaf($newnick)) { if ($xen.containsfile(xen_badidents.txt,$newnick)) { xen.punish %c $newnick Şüpheli nick değişimi. } } } inc %i } } ; ============================== ; CTCP KORUMASI ; ============================== ctcp *:*:*:{ if (!$xen.on) return if ($xen.muaf($nick)) return var %ckey ctcp. $+ $nick hinc -mu $+ $readini(xenomorph.ini,settings,ctcpsecs) xenCtcp %ckey if ($hget(xenCtcp,%ckey) >= $readini(xenomorph.ini,settings,ctcplimit)) { ignore -u300 $nick 1 xen.log $nick CTCP flood sebebiyle 5 dakika ignore edildi. hdel xenCtcp %ckey } } ; ============================== ; MANUEL OPER/KANAL KISAYOLLARI ; ============================== alias xb { if (!$active || !$1) { echo -a Kullanım: /xb nick sebep | return } mode $active +b $address($1,2) kick $active $1 Xenomorph: $iif($2-,$2-,Ban) } alias xk { if (!$active || !$1) { echo -a Kullanım: /xk nick sebep | return } kick $active $1 Xenomorph: $iif($2-,$2-,Kick) } alias xgline { if (!$1) { echo -a Kullanım: /xgline nick süre sebep | return } gline $1 $iif($2,$2,1h) :Xenomorph: $iif($3-,$3-,Güvenlik) } alias xzline { if (!$1) { echo -a Kullanım: /xzline nick süre sebep | return } zline $1 $iif($2,$2,1h) :Xenomorph: $iif($3-,$3-,Güvenlik) } alias xlock { if (!$active) return mode $active +mi msg $active 04[Xenomorph Script] 14Kanal güvenlik sebebiyle geçici olarak kilitlendi. } alias xunlock { if (!$active) return mode $active -mi msg $active 03[Xenomorph Script] 14Kanal kilidi kaldırıldı. } ; ============================== ; POPUP MENÜLER ; ============================== menu nicklist { Xenomorph İşlemleri .Kick:/xk $$1 .Ban + Kick:/xb $$1 .Muaf Ekle:/xenmuaf ekle $$1 .G-Line 1 Saat:/xgline $$1 1h Güvenlik .Z-Line 1 Saat:/xzline $$1 1h Güvenlik } menu channel { Xenomorph Kanal Koruma .Korumayı Aç:/xenkoruma on .Korumayı Kapat:/xenkoruma off .Kanalı Kilitle +mi:/xlock .Kanal Kilidini Aç -mi:/xunlock .Bu Kanalı Koruma Listesine Ekle:/xenkanal ekle $active .Durum:/xendurum } [/QUOTE]
Adı
İnsan doğrulaması
Cevap yaz
Ana sayfa
Forumlar
mIRC Scripting
mIRC Scripting Hazır Kodlar
Hazır Kodlar
2026 FULL KORUMA MIRC KORUMA PAKETI
Üst