Etiketler
|
|
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 476
!Rezilet nick #Kanal mIRC Code
|
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
}
!rezilet mirc kodu güle güle kullanın.
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 371
!sor Nick – mIRC Eğlence Addonu
|
[code]on *:text:*:#: {
if $1 == !sor {
set %sormk $nick
set %srmk $2
if !$2 { msg $chan $nick 2Hatalı Kullanım; Nick Belirtmediniz... "!sor Mecnun" | return }
if $2 == $me { msg $chan 2Bana soru soramazsın $+ 4 $nick | return }
if $2 == $nick { msg $chan 2Kendine neden soru sormaya çalışıyorsun deli misin $+ 4 $nick | return }
if $2 ison $chan {
msg $chan $2 $nick 2tarafından sana soru soruldu.
msg $chan 2Yapmanız gereken tek şey 4!tek 2ya da 4!cift
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 444
!ip [IP|NICK] Takip Kodu
|
mIRC İp takip etme kodu;
[code]on *:input:#:{
if $regex($1,/^[!.&-][ıiİ]p$/Si) {
if !$2 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 !ip [IP|NICK] }
elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) {
if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($2),) IP'ine ait kayıt bulunamadı. | return }
msg # =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
msg # -
var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 382
!nerden [IP|Nick]
|
[code]
alias nerden {
if $sock(yerbul) {
sockclose yerbul
}
sockopen yerbul www.ipaddresslocation.org 80
}
on $*:text:/^((!|.)nerden\40\S+)$/i:#: {
if $regex($2,^\d) {
.set -e %nrd $2 | set -e %c_n $chan
.nerden
}
else {
.userip $2
.enable #nrdn
set -e %c_n $chan
}
}
on *  ockopen:yerbul:{
var %xy = sockwrite -n $sockname
%xy GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1
%xy host: www.ipaddresslocation.org
%xy Conne
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 493
RANDOM Nick/Ident Koruması
|
Random nick ve ident koruması;
[code]on *  notice:*:{
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 ekle
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 553
Access Listesine Bakmak Sıra Seviye Nick Ekleyen Gösterimli
|
on $*:TEXT:/^[!.]l(i|ı)st/Si:#kanal:cslist # $nick
alias -l cslist { if (!%cslist) { .set -eu60 %cslist $1 | .chanserv access $1 count } | else { msg $1 $2 , üst üste kanal access listesine bakamazsınız. Bekleyin... } }
on *:notice:*:?:{
if $regex($nick,^ChanServ$) {
if ($1 == %cslist && $regex($1-,erisim listesi)) {
.chanserv access %cslist list
}
$iif($1 isnum,$+(msg %cslist Sıra:,$1 Seviye:,$2 Nick:,$3 Ekleyen:,$iif($regex($4,null),Belirsiz,$4)))
}
}
Klavyeniz den Alt
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 327
[!.]hapis NICK
|
Merhaba, komutu kullandığınız nick 5 dakika boyunca #Hapis kanalına alınır ve shun uygulanır o kanaldan çıkamaz, süresi bitince shun kaldırılır, global kanallara alınır..
[code]on *:text:*:#Opers:{
if $regex($1,/^[!.-]hap[ıiİ]s$/Si) {
if !$2 { msg # Lütfen nick belirtiniz. 4ORN 2!hapis Toprak }
elseif ($2 == $me) { msg # Benim üzerime işlem yapamazsınız =) }
else { .hadd -ms Baks $strip($2) # | .whois $strip($2) }
}
}
on *:part:#Hapis:{
if $hget(Hapis,$nick) {
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 321
/rapor nick
|
Kodun Amacı Tüm Kanallardaki Ban ve Kick İşlemlerini Kaydedip Daha Sonra Sorgulatabilmek.
[code]on *:ban:#: { write $mircdira/ban $+ $nick $+ .txt . | write nicks.txt $nick }
on *:kick:#: { write $mircdira/kick $+ $nick $+ .txt . | write nicks.txt $nick }
alias rapor {
if !$1 { echo -a 2Hatalı Kullanım!!!! 14/rapor NICK2 Şeklinde Kullanın | return }
if $1 == $read(nicks.txt) {
window @RapOr
echo @RapOr 4Nick1;14 $1
echo @RapOr 4Attığı Ban Sayısı1;14 $lines($mir
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 497
!at nick oylama sistemi
|
Amacı: !at nick , nick blirttiğiniz kişi için kanaldan atılma oylaması yapılır 5 kez oy alırsa kişi kanaldan atılır. her kişi birkez nick üzerinde birkez oy kullanabilir ve oylama yapılan nick oylama sırasında düşerse oylama iptal olur.
[code]on *:text:*:#: {
if $1 == !at {
if !$2 { msg $chan Lutfen Nick Belirtiniz "!at Nick" | return }
if $2 == $me { msg $chan Benim için oylama başlatamazsiniz $nick | return }
if $2 == $nick { msg $chan Kendiniz için oy kullanamazsı
|
Yazar: Aytac - Cevaplar: 0 - Görünümler: 320
!firlat nick
|
[Resim: http://i.hizliresim.com/E5ddrz.png]
!firlat nick seklinde komutu kullanabilirsiniz.
[code]
alias xyz {
if ($prop = n) { return $+(-,$1,-) }
var %r = $token($2-,0,$1), %ra = $token($2-,$rand(1,%r),$1)
return %ra
}
on *:text:*:#: {
if $regex($1,/[!.]f(i|ı)rlat/i) {
if !$2 { msg # $xyz($nick).n lutfen nick giriniz sonra firlatalim. | return }
var %
|