| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
| Kimler Çevrimiçi |
Toplam: 112 kullanıcı aktif
» 0 Kayıtlı
» 111 Ziyaretçi
Google
|
|
|
Sqline Listesini Temizleme kod |
|
Yazar: Admin - 05-26-2020, 07:42 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
 |
Sunucunuzdaki sqline listesini tek tek silmek yerine, bu kod sayesinde sqlineyi temizleyebileceksiniz. mIRC Remote kısmına ekleyin ve /_temizle yazarak sqline listesini temizleyin..
Kod: alias _temizle { .set -u3 %:sqline on | echo -a Sqline List Temizleniyor.. | os sqline list }
on *:notice:*:?:{
if %:sqline == on {
if ($nick == OperServ) && (SQLINE listesinden silindi !isin $strip($1-)) {
if (Aktüel liste: isin $1-) { return }
os sqline del $1
}
}
}
|
|
|
|
Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN |
|
Yazar: Admin - 05-26-2020, 07:40 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN
Kod: on ^*:hotlink:"*":#:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex
on *:hotlink:*:*: {
var %_word = $noqt($1),%_ip = $token($hotline,6,32),%_nick = $token($hotline,5,32)
if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } }
if ($(,%_word) = shun) shun $(,%_nick)
if ($(,%_word) = gline) gline $(,%_nick) :sebeb.
echo 4 $target IP: %_ip - NICK: %_nick - Clicked: %_word atıldı.
}
on ^&*:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 }
on ^*:join:#: {
if $nick == $me { return }
if o isin $usermode {
if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) "GLINE" - "NICKBAN" - "SHUN" | haltdef }
else {
hadd -m chan $nick $addtok($hget(chan,$nick),#,32)
if !$sock($+(nrdbul,$nick)) { who +I $nick }
haltdef
}
}
}
raw 352:*:bul $4 $6 | haltdef
alias bul {
sockopen $+(nrdbul,$2) www.ipaddresslocation.org 80
sockmark $+(nrdbul,$2) $+($1,*,$2)
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:nrdbul*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) HTTP/1.1
sockwrite -nt $sockname Host: www.ipaddresslocation.org
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:nrdbul*:{
var %x | sockread %x
if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) }
if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) }
if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) {
hadd -mu5 $sockname webisp $regml(1)
hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42)
hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42)
hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick))
$iif($hget(chan,$hget($sockname,webnick)),hdel -m chan $hget($sockname,webnick))
hadd -m giris $hget($sockname,webnick) $hget($sockname,webip)
hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41))
tokenize 32 $hget($sockname,webchan)
echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick))
}
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
Girişte IP Tek Tıkla Gline Nickban Shun
Kod: on ^&*:snotice:*client connect*:$iif(!$window(@root),window -nk0 @root) | echo -ct info @root Client: $9-10 $chr(9) "GLINE" - "NICKBAN" - "SHUN"
on ^*:hotlink:"*":@root:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex
on *:hotlink:*:*: {
var %_word = $noqt($1),%_ip = $remove($token($token($hotline,4,32),2,64),$chr(41)),%_nick = $token($hotline,3,32)
if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } }
if ($(,%_word) = shun) shun $(,%_nick)
if ($(,%_word) = gline) gline $(,%_nick) :sebeb.
;echo 4 $target IP: %_ip - NICK: %_nick - Clicked: %_word
}
|
|
|
|
| !Rezilet nick #Kanal kod |
|
Yazar: Admin - 05-26-2020, 07:37 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
#Kanal yazdigin yerde belirtigin mesajlari yazar, Mesaj diye yazdigim yerlerede kendin doldurursun.
#Opers yazan yerde komut calisir, kodu denemedim, hata verirse belirtirsen düzeltirim.
Kod: on $*:text:/[!.]rezilet/i:#opers: {
if !$2 || !$3 { .msg # $nick Lutfen duzgun nick ve kanal belirtiniz. | return }
shun $2 +0 Rezilet.
msg # $2 rezil etme olayi tamam'dir.
sendraw $3 $(::,$2) privmsg $3 Mesaj
sendraw $3 $(::,$2) privmsg $3 Mesaj
sendraw $3 $(::,$2) privmsg $3 Mesaj
sendraw $3 $(::,$2) privmsg $3 Mesaj
sendraw $3 $(::,$2) privmsg $3 Mesaj
sendraw $3 $(::,$2) privmsg $3 Mesaj
}
|
|
|
|
| Nick Kanal İnfo Takip Sistemi |
|
Yazar: Admin - 05-26-2020, 07:34 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Nick Kanal İnfo Takip Sistemi
Kod: on *:input:*: {
if $1 == !bak {
if *#* iswm $1- {
cs info $2 all
set -u3 %info $chan
}
else {
set -u3 %info $chan
ns info $2 aLL
}
}
}
on 1:notice:*:?:{
if *ChanServ* iswm $nick || *NickServ* iswm $nick {
msg %info 14[2ID (GBT)14] :14Analiz: • $1-
}
}
;--- !bak lamer veya !bak #mIRCHelp < komutu ile İnfo Sistemine bakabilirsiniz.
|
|
|
|
Clone Koruması |
|
Yazar: Admin - 05-26-2020, 07:31 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
10 saniye içerisinde aynı IP adresi üzerinden 3 giriş yapıldığı anda giriş yapan nickleri KILL ile sunucudan uzaklaştırır. bu olay 100 saniye içerisinde 2 defa tekrar edildiğinde bu IP adresi üzerine GZLINE atılmaktadır. Mevcut proxy koruması üzerinden parçalayıp, alelacele koyduğum için meydana gelebilecek olan aksaklıkları bu konunun altına ileten arkadaşlara yardımcı olabilirim. Clone korumasından etkilenmesini istemediğiniz ip veya ip maskesini !ipekle muaf IP veya !ipekle muaf IPMASK komutlarıyla muaf olarak ekleyebilirsiniz. ayrıca bu korumadan etkilenmesini istemediğiniz portları belirtilen satırda ekleyebilirsiniz. bu korumanın kontrol ve takibinin yapılacağı kanalı da belirtilen satırdan değiştirebilirsiniz.
Kod: ;FnX Clone Koruması
;alt satırdan kanalı belirleyebilirsiniz.
on *:start:{ hmake muaf 1000 | hload -o muaf clone.muaf | set %FnXchan #kanal }
on *:exit:{ hsave muaf clone.muaf }
on $*:snotice:/Client\sconnecting\son\sport/:{
;muaf portlar alt satırdan eklenecektir.
if $istok(6571 7052 7012 7003,$remove($8,:),32) { return }
var %FnXclone $regsubex($10,.+\x40(.+)\x29,\1)
if $hget(clonesay,%FnXclone) == 2 {
.gzline $+(*@,%FnXclone) 100 :Agresif giriş koruması.
msg %FnXchan $c(12,[CLONE KORUMASI]) $c(3,%FnXclone) numaralı IP adresi iki kez clone korumasına takıldığından dolayı GZLINE ile uzaklaştırılmıştır. Bir IP adresini bu korumadan $c(2,!ipekle muaf 12.12.12.12) örnek komutundaki gibi muaf tutabilirsiniz.
return
}
hadd -mu10 giriş %FnXclone $+($hget(giriş,%FnXclone),$chr(215),$9)
if $numtok($hget(giriş,%FnXclone),215) == 3 && !$hfind(muaf,%FnXclone,0,W).item {
.msg %FnXchan $c(12,[CLONE KORUMASI]) $c(3,%FnXclone) numaralı IP adresi üzerinden 10 saniye içerisinde 3 giriş yapıldığı tespit edildi ve giriş yaptığı nicklere KILL atıldı. Bir IP adresini bu korumadan $c(2,!ipekle muaf 12.12.12.12) örnek komutundaki gibi muaf tutabilirsiniz. Giriş yapılan nickler: $regsubex($regsubex($regsubex($hget(giriş,%FnXclone),/\xD7/g,$chr(44)),/^\x2C/gU,),/([^\x2C])/g,$+($chr(3),04,\1,$chr(3)))
.kill $regsubex($regsubex($hget(giriş,%FnXclone),/\xD7/g,$chr(44)),/^\x2C/gU,) IP adresinizden çok sayıda giriş tespit edildi ve bağlantılarınız yenileniyor.
hdel -m giriş %FnXclone
hinc -mu100 clonesay %FnXclone
return
}
if $regex($regsubex($10,.+\x40(.+)\x29,\1),/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/g) {
var %FnX $regsubex($10,.+\x40(.+)\x29,\1)d
if $hfind(muaf,%FnX,0,W).item {
.msg %FnXchan $c(0x6,MUAF GİRİŞ:) $c(2,[IP:]).b $c(2,%FnX) $c(2,[NICK:]).b $c(2,$9)
return
}
}
}
;MUAF IP EKLEME#
on $*:text:/^[.!][İiı]pekle/i:%FnXchan:{
if !$2 || !$3 || !$regex($2,/(muaf)$/i) { add-del-hata ipekle | return }
elseif $regex($2,/muaf$/i) {
hadd -m muaf $strip($3)
hsave -o muaf clone.muaf
.msg %FnXchan $c(4,$3).b $c(2,numaralı IP adresi) $c(4,muaf).b $c(2,listesine eklenmiştir.)
}
}
;MUAF IP SİLME#
on $*:text:/^[.!][İiı]ps[İiı]l/i:%FnXchan:{
if !$2 || !$3 || !$regex($2,/(muaf)$/i) { add-del-hata ipsil | return }
elseif $regex($2,/muaf$/i) {
hdel -m muaf $strip($3)
hsave -o muaf clone.muaf
.msg %FnXchan $c(4,$3).b $c(2,numaralı IP adresi) $c(4,muaf).b $c(2,listesinden silinmiştir.)
}
}
;MUAF IP LİSTELEME#
on $*:text:/^[.!][İiı]pl[İiı]st/i:%FnXchan:{
if !$2 || !$regex($2,/(muaf)$/i) { list-hata iplist | return }
elseif $regex($2,/muaf$/i) {
if $hget(muaf,0).item == 0 { .msg # Muaf listesi boş! | return }
.msg # $+(«,$c(5,Clone Muaf Listesi),»)
var %m-k 1 | while (%m-k <= $hget(muaf,0).item) { .msg %FnXchan $c(2,$+([,$c(4,$chr(215)).b,$c(2,]))) $hget(muaf,%m-k).item | inc %m-k }
.msg # $+(«,$c(5,Clone Muaf Listesi Sonu),»)
.msg # Herhangi bir kaydı silmek için örnek kullanım: $c(2,!ipsil muaf 185.9.159.247)
}
}
alias c {
if $regex($prop,/^b$/) { return $+($chr(3),$regsubex($1,/(x)/g,$chr(44)),$chr(2),$chr(2),$chr(2),$2-,$chr(3),$chr(2)) }
if $regex($prop,/^u$/) { return $+($chr(3),$regsubex($1,/(x)/g,$chr(44)),$chr(31),$chr(2),$chr(2),$2-,$chr(3),$chr(31)) }
if $regex($prop,/^(bu)|(ub)$/) { return $+($chr(3),$regsubex($1,/(x)/g,$chr(44)),$chr(31),$chr(2),$chr(2),$chr(2),$2-,$chr(3),$chr(31),$chr(2)) }
else { return $+($chr(3),$regsubex($1,/(x)/g,$chr(44)),$chr(2),$chr(2),$2-,$chr(3))) }
}
alias add-del-hata {
.msg %FnXchan $c(4,<YANLIŞ KULLANIM>)
.msg %FnXchan Örnek komut kullanımları:
.msg %FnXchan $c(2,$+(!,$1)) $+($c(4,muaf).b).b $iif(!$regex($1,/iplist/),$c(2,185.9.39.77)))
.msg %FnXchan $c(2,$+(!,$1)) $+($c(4,muaf).b).b $iif(!$regex($1,/iplist/),$+($c(2,185.9.39.),$c(4,*).b))
}
alias list-hata {
.msg %FnXchan $c(4,<YANLIŞ KULLANIM>)
.msg %FnXchan Örnek komut kullanımı: $c(2,$+(!,$1)) $+($c(4,muaf).b $iif(!$regex($1,/iplist/),$c(2,185.9.39.77)))
}
|
|
|
|
|
RANDOM Nick/Ident Koruması |
|
Yazar: Admin - 05-26-2020, 07:28 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
RANDOM Nick/Ident Koruması
Kod: on *:snotice:*:{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
;- Muaf port ekleme.
if $istok(7000 7005 1453,%_port,32) { return }
;- Muaf nick ekleme
elseif $istok(Nick Nick1 Nick2 Nick3,%_nick,32) { return }
;- Muaf ident ekleme
elseif $istok(Sohbet mIRC Kelebek SoyLe,%_ident,32) { return }
;- Muaf IP ekleme
elseif $istok(88.888.55.258 78.458.88.888,%_ip,32 ) { return }
elseif $len(%_nick) >= 5 && $_rand(%_nick) >= 80 {
gzline $+(*@,%_ip) - Random nick ile sunucuya girmek yasak! [ $+(%,$_rand(%_nick)) $_randyz($_rand(%_nick)) ]
msg #güvenlik $+(4,%_nick,) nick'i random nick kullandığı tespit edildi. $+(%,$_rand(%_nick)) $_randyz($_rand(%_nick))
}
elseif $len(%_ident) >= 5 && $_rand(%_ident) >= 80 {
gzline $+(*@,%_ip) - Random ident ile sunucuya girmek yasak! [ $+(%,$_rand(%_ident)) $_randyz($_rand(%_ident)) ]
msg #güvenlik $+(4,%_nick,) nick'i random ident kullandığı tespit edildi. $+(%,$_rand(%_ident)) $_randyz($_rand(%_ident))
}
}
}
alias _rand {
var %:sebsessiz $len($regsubex($1,/[aeioöuüÖÜİ0-9]/gSi,\t))
return $round($iif($round($calc((%:sebsessiz * 100) / $len($1)),1) > 100, 100, $round($calc((%:sebsessiz * 100) / $len($1)),1)),0)
}
alias _randyz {
var %:yz $iif($len($1) == 3,$+(4,$str(|,10)),$+(4,$str(|,$left($1,1))))
return $iif($right($1,1) < 5,%:yz,$+(%:yz,ı))
}
Kod: //echo -a $_rand(Toprak) - %67 (ATMAZ)
//echo -a $_rand(Tprak) - %80 (ATMAZ)
//echo -a $_rand(SoylNT) - %83 (ATAR)
//echo -a $_rand(Tprk) - %100 (ATAR)
alias olarak olarakta kullanabilirsininiz Kod Yazarı : Alper Arkadaşımız
Kırmızı ile belirttiğim yer muaf port yeri birden fazla port varsa boşluk bırakıp ekleme yapabilrsin.
Mavi ile belirttiğim yer ise random nickin yüzdesi kaç oranında random olursa işlem yapması için.
Kod: on $*:snotice:/.+Client connecting.+([0-9]{4}):\s(.+)\s\x28(.+)@.+/Si: {
if !$istok(7000,$regml(1),32) {
var %t = $remove($regml(2),1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),%t2 = $remove($regml(3),1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),$&
%n = $regml(2), %i = $regml(3), %s+ = $regex(%t,/([aeoui])/ig), %s- = $regex(%t,/([^aeoui])/ig), %s2+ = $regex(%t2,/([aeoui])/ig), %s2- $regex(%t2,/([^aeoui])/ig),$&
%% = $round($iif($round($calc((%s- * 100) / $len(%t)),1) > 100, 100, $round($calc((%s- * 100) / $len(%t)),1)),0), %%2 = $round($iif($round($calc((%s2- * 100) / $len(%t2)),1) > 100, 100, $round($calc((%s2- * 100) / $len(%t2)),1)),0),$&
%rate = 73
if ($len(%t) > 4) && (%% > %rate) {
gline $+(*@,$regsubex($10,/..+@(.+)\x29/g,\1)) +0 Random Nick Olarak Algılandınız ! | return
}
if ($len(%t2) > 4) && (%%2 > %rate) {
gline $+(*@,$regsubex($10,/..+@(.+)\x29/g,\1)) +0 Random Ident Olarak Algılandınız !
}
}
}
Kod Yazarı : CoCoRiCo
Kod: alias rand? {
var %t = $remove($1,1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),%s+ $regex(%t,/([aeoui])/ig),%s- $regex(%t,/([^aeoui])/ig)
echo Total: $len(%t) Vovel: %s+ Consonant: %s-
if $len(%t) > 4 { gr $len(%t) %s- $1 }
}
alias -l gr {
; Consonand rate here.. type %
var %rate 73
;Graphic line lenght
var %line 10
var %% $round($iif($round($calc(($2 * 100) / $1),1) > 100, 100, $round($calc(($2 * 100) / $1),1)),0),$&
%n $iif($2 > $1, $1, $2),%g %line,%go $+($chr(3),4,$chr(44),4) $chr(160),$&
%goc $+($chr(3),14,$chr(44),14) $chr(160),%t= $round($calc((%n * %line) / $1),0)
echo $str(%go,%t=) $+ $str(%goc,$ceil($calc(%g - %t=))) $chr(15) $chr(37) $+ %% $3 $iif(%% > %rate,RANDOM)
}
alias testrand {
:r | if $len(%r) <= 50 { var %r $addtok(%r,$gettok($r(a,z) $r(A,Z),$r(1,2),32),32) | goto r }
else { var %r $remove(%r,$chr(32)) | Rand? $left(%r,$r(5,$len(%r))) }
}
/rand? aBGHJsSfTyu
check random rate 
or using test commands
/Testrand
good luck
Random Nick Saldırılarına Karşı, Koruma isterseniz
;Sc5 ve benzeri programlarda kullanılan nick_randomkarakter saldırılarına karşı yazılan bir parça kod.
;Saniye ve karakterleri kendiniz belirleyebilirsiniz
-
Klavyeniz den Alt + R Tuşlarına Basarak Acılan Pencere de REMOTE Kısmına Basıyoruz
Ardından DOSYA Kısmına Basarak Yeni Bir Sayfa acarak içine atıyoruz ve kapatıyoruz
-
Kendinize göre uyarlamayı unutmayınız.
Kod: on *:join:#:{
if !$hget($+($chan,-join)) {
hmake $+($chan,-join)
hadd $+(-mu,$saniye) $+($chan,-join) $nick $left($nick,$karakter)
}
elseif $hfind($+($chan,-join),$left($nick,$karakter),1,W).data {
mode $chan +bbb $address($nick,2) $left($nick,$karakter) $+ * ~n: $+ $left($nick,$karakter) $+ *
kc $left($nick,4) $chan
}
else {
hadd $+(-mu,$saniye) $+($chan,-join) $nick $left($nick,$karakter)
}
}
alias kc { var %1 1 | while %1 <= $nick($2,0,r) { if $regex($nick($2,%1,r),$1) { kick $2 $nick($2,%1,r) Saldırı yasaktır. } | inc %1 } }
alias karakter return 4
alias saniye return 5
|
|
|
|
| Online süresi 5 gün ve fazlası olanlara oto voice |
|
Yazar: Admin - 05-26-2020, 07:24 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Online süresi 5 gün ve fazlası olanlara oto voice
Kullanım;
Belirtilen kanalla giren bütün kullanıcılara info ceker ve online süresi 5 gün ve üstü olan kulllanıcılara oto voice verir.
Sürekli saldırı/flood vb. illegal olayların bir nebze önüne gecilmesi için hazırlanmıştır.
Kırmızı ile işaretlediğim yerlere aktif olmasını istediğiniz kanalları yazmalısınız.
Kod: on *:join:#kanal: { .timer 1 1 .denetlee $nick $chan | set %:Mylife $nick }
alias denetlee {
if ($1 isreg $2) { nickserv info %:Mylife }
}
on ^*:notice:*:?:{
if ($nick == NickServ) {
if ($regex($4-,/online/Si)) { set %:Kod $1 }
elseif ($regex($1,/toplam/Si)) && ($regex($4,/[1-9]\d+|[56789]/Si)) { .voicee }
}
unset %:Mylife
}
alias voicee {
mode #kanal +v %:Kod
unset %:Kod
}
|
|
|
|
Kelime Tamamlama Addon |
|
Yazar: Admin - 05-26-2020, 07:21 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Kelime Tamamlama Addon 2020
Kod: menu status,channel,menubar {
-
Kelime Tamamlama: ktamamla
-
}
alias ktamamla { if ($dialog(ktamamla)) { dialog -c ktamamla } | dialog -ma ktamamla ktamamla }
dialog ktamamla {
title "Kelime Tamamlama"
size -1 -1 215 134
option dbu
edit "", 1, 7 9 50 10, autohs
text " yazdığında", 2, 58 10 30 8
button "Sil", 3, 51 117 74 12
edit "", 4, 89 9 80 10, autohs
text " olarak yazacak", 5, 169 10 38 8
button "Ekle", 6, 7 23 201 12, default
box "Kelime Tamamlama", 7, 3 1 209 38
list 8, 3 41 209 71, size vsbar
radio "Açık", 9, 149 118 24 10, group left
radio "Kapalı", 10, 182 118 27 10
box "", 11, 143 114 69 15
button "Tamam", 12, 4 117 28 12, ok
}
on *:dialog:ktamamla:*:*: {
if ($devent == init) {
if ($group(#ktamamla) == on) { did -c ktamamla 9 } | else { did -c ktamamla 10 }
ktamamla.init
}
if ($devent == sclick) {
if ($did == 6) {
if (($did(1) && $did(4)) != $null) {
if !$read(tamamlama.txt,w,$did(1) $+ $chr(186) $+ *) { .write tamamlama.txt $did(1) $+ $chr(186) $+ $did(4) | ktamamla.init | did -r ktamamla 1,4 }
else { echo 4 -at [ $did(1) ] Kelime tamamlama listesinde ekli }
}
else { echo 4 -at Lütfen 2 kutucuğu doldurun }
}
if ($did == 3) {
if $read(tamamlama.txt,w,$token($did(8).seltext,1,47) $+ $chr(186) $+ *) {
if ($did(8).seltext != $null) { .write $+(-dl,$readn) tamamlama.txt | ktamamla.init }
}
}
if ($did(9).state == 1) { .enable #ktamamla }
if ($did(10).state == 1) { .disable #ktamamla }
}
}
alias ktamamla.init {
did -r ktamamla 8
var %ul 1
while %ul <= $lines(tamamlama.txt) {
did -a ktamamla 8 $replace($read(tamamlama.txt,%ul),$chr(186),$chr(47))
inc %ul
}
}
#ktamamla off
on *:input:*:{
if !$regex($1,/^(\.|!|\/|[0-9])/i) || ($ctrlenter) {
var %^ = 1, %'
while %^ <= $0 {
%' = %' $iif($read(tamamlama.txt,w,$gettok($1-,%^,32) $+ $chr(186) $+ *),$token($read(tamamlama.txt,$readn),2,186),$gettok($1-,%^,32))
inc %^
}
say %'
halt
}
}
#ktamamla end
/ktamamla
|
|
|
|
|
[.!]imza ekle|sil |
|
Yazar: Admin - 05-26-2020, 07:19 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Kullanımı:
Kanalda !imza | !imza nick
Özelde !imza ekle|sil
Kod: on *:text:*:*: {
if $regex($1,/^[!.][iİı]mza$/Si) {
if $regex(#,/^#/) {
msg # 7 $iif($2,$2,$nick) 1imza mesajı:4 $iif($2,$iif($hget(imza,$2),$v1,Bulunmuyor),$iif($hget(imza,$nick),$v1,Bulunmuyor))
}
else {
if !$regex($2,/^(ekle|s[ıiİ]l)/Si) { msg $nick $qt($nick) lütfen komutu $qt(!imza ekle|sil) gibi kullanınız. }
elseif $regex($2,/^ekle$/Si) { .hadd -sm imza $nick $3- | hsave imza imza.xx | msg $nick $qt($nick) imza mesajınız $qt($3-) olarak güncellendi. }
elseif $regex($2,/^s[iİı]l$/Si) {
if !$hget(imza,$nick) { msg $nick $qt($nick) zaten imza mesajınız bulunmuyor. $qt(!imza ekle mesaj) yaparak mesajınızı ekleyebilirsiniz. }
else { .hdel imza $nick | hsave imza imza.xx | msg $nick $qt($nick) imza mesajınız silindi. }
}
}
}
}
on *:start: if $isfile(imza.xx) { .hmake imza | .hload imza imza.xx }
|
|
|
|
|
Çeviri Diyalogu (TRANSLATE DİALOG) |
|
Yazar: Admin - 05-26-2020, 07:16 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Kod: alias tmscumleceviri { dialog -m tmscumleceviri tmscumleceviri }
dialog tmscumleceviri {
title "Cümle Çevirici"
size -1 -1 177 153
icon $mircdirTMSResim\cumlecevirici.ico
option dbu
text "AŞAĞIDAKİ BU DİLDEN", 1, 14 15 73 8
text "ŞU DİLE ÇEVİR", 2, 115 15 94 8
combo 3, 6 24 72 50, size
combo 4, 98 23 72 50, size
box "Çevrilecek Metin", 5, 6 78 167 41
edit "", 6, 9 87 161 28
button "Cümle Çevirisini Yap", 7, 6 126 76 21
button "Diyalogu KAPAT", 8, 98 126 76 21, cancel
icon 9, 1 -6 175 25, TMSResim\cumlebayrak.jpg, 0
}
on *:dialog:tmscumleceviri:*:*:{
if ($devent = init) {
var %mdx dll dll\mdx.dll
%mdx MarkDialog $dname
%mdx SetDialog $dname bgcolor $rgb(99,184,255)
%mdx SetFont $dname 1,2,5,6 +b Turkish 12 600 Arial
%mdx SetFont $dname 7,8 +b Turkish 15 600 Arial
%mdx SetColor $dname 1,2,3,4,5,7,8,9 textbg $rgb(99,184,255)
%mdx SetColor $dname 1,2,3,4,5,7,8,9 background $rgb(99,184,255)
%mdx SetColor $dname 6 text $rgb(255,0,0)
did -r $dname 3,4
did -a $dname 3,4 tr_TÜRKÇE
did -a $dname 3,4 en_İNGİLİZCE
did -a $dname 3,4 de_ALMANCA
did -a $dname 3,4 fr_FRANSIZCA
did -a $dname 3,4 ru_RUSCA
did -a $dname 3,4 az_AZERİCE
did -a $dname 3,4 sl_YUNANCA
did -a $dname 3,4 ar_ARAPÇA
did -a $dname 3,4 pl_İBRANİCE
did -a $dname 3,4 ja_JAPONCA
did -a $dname 3,4 zh_ÇİNCE
did -a $dname 3,4 it_İTALYANCA
did -a $dname 3,4 pt_PORTEKİZCE
}
elseif ($devent = sclick) && ($did = 7) {
var %:cvr $r(1000000000,9999999999) | sockopen $+(ceviri,%:cvr) www.perfectdent.net 80
sockmark $+(ceviri,%:cvr) $+(ben=,$token($did(3),1,95),&sen=,$token($did(4),1,95),&metin=,$replace($did(6),$chr(32),$+($chr(37),20),ı,i,İ,i,Ö,o,ö,o,ü,u,Ü,u,ğ,g,Ğ,g,ç,c,Ç,c))
}
}
on *:sockopen:ceviri*: {
sockwrite -nt $sockname GET $+(/translate.php?,$sock($sockname).mark) HTTP/1.1 | sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf }
on *:sockread:ceviri*:{
var %i | sockread %i | if (<body> isin %i) { $iif(!$window(@ÇEVİRİ),window -n @ÇEVİRİ) | echo -t @ÇEVİRİ $token(%i,2-,32) | did -r tmscumleceviri 6 | did -a tmscumleceviri 6 Çevirisi Yapılan Cümle @ÇEVİRİ Penceresine Yansıtıldı.. } }
Kaynak : İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
|
|
|
|
|
