IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Kısa Yol Tuşları (https://www.ircforumlari.net/mirc-scripting-sorunlari/10013-kisa-yol-tuslari.html)

AnsweR 04 Ocak 2006 15:20

Alıntı:

UOnur Nickli Üyeden Alıntı
Benimde dikkatimi cekti bu olay...
hakkaten ilginc Kodda güzel yazılmıs ha. :)
nese...

ne demek istiyorsun ben kod yazamazmıyım ;huh :(

Squnex olayın içeriği farklı.. ;)

bi daha sizlerle bişi paylaşırsam 2 olsun

cinaryigit 30 Aralık 2020 22:05

Cevap: Kısa Yol Tuşları
 
Belki Lazım Olur Birilerine Diye Buraya Atayim Dedim. İsteyen Bakarak Çoğaltır.
Kod:

on *:input:#: {
  if $strip($1) === .gel { sajoin $2 $chan | halt }
  if $strip($1) === .git { sapart $2 $chan | halt }
  if $strip($1) === .+m { mode $chan +m | halt }
  if $strip($1) === .-m { mode $chan -m | halt }
  if $strip($1) === .+M { mode $chan +M  | halt }
  if $strip($1) === .-M { mode $chan -M | halt }
  if $strip($1) === .+R { mode $chan +R | halt }
  if $strip($1) === .-R { mode $chan -R | halt }
  if $strip($1) === .okapat { mode $me +R | halt }
  if $strip($1) === .oac { mode $me -R | halt }
  if $strip($1) === .skapat { silence + | halt }
  if $strip($1) === .sac { silence - | halt }
  if $strip($1) === .v { mode $chan +v $2 | halt }
  if $strip($1) === .dv { mode $chan -v $2 | halt }
  if $strip($1) === .b { mode $chan +b $2 | halt }
  if $strip($1) === .k { kick $chan $2 | halt }
  if $strip($1) === .kb { mode $chan +b $2 | .kick # $2 | halt }
  if $strip($1) === .u { msg $chan 3Uyarı:  $2  4Lütfen Sohbet Ortamına Uygun Olmayan Davranışlar Sergilemeyin! | halt }
  if $strip($1) === .kill { kill $2 Nick Askıda Kalma Sebebi İle Killendi | halt }
  if $strip($1) === .akill { ns botkill $2 Nick Askıda Kalma Sebebi İle Killendi | halt }

}

Kod:

/bilgi {
  echo -a 0,12 .gel = Kanala Çeker
  echo -a 0,12 .git = Kanaldan Çıkarır
  echo -a 0,12 .+m = Kanalı Konuşmaya Kapatır
  echo -a 0,12 .-m = Kanalı Konuşmaya Açar
  echo -a 0,12 .+M = Kanalı Şifresiz Nicklerin Yazmasına Kapatır
  echo -a 0,12 .-M = Kanalı Şifresiz Nicklerin Yazmasına Açar
  echo -a 0,12 .+R = Kanala Şifresiz Nicklerin Girişini Yasaklar
  echo -a 0,12 .-R = Kanala Şifresiz Nicklerin Girişini Açar
  echo -a 0,12 .okapat = Şifresiz Nicklere Özeli Kapatır.
  echo -a 0,12 .oac = Şifresiz Nicklere Özeli Açar.
  echo -a 0,12 .skapat = Özele Kimse Yazamaz
  echo -a 0,12 .sac = Özele Yazmayı Açar
  echo -a 0,12 .v = Voice (+) verir
  echo -a 0,12 .dv = Voice alır (-v)
  echo -a 0,12 .b = Nicki Banlar
  echo -a 0,12 .k = Nicki Kanaldan Atar (kick)
  echo -a 0,12 .kb = Nicki Banlar Kanaldan Atar
  echo -a 0,12 .u = Nicke Uyarı verir
  echo -a 0,12 .kill = Askıda Kalan Nicki Düşürür (Normal Userlar)
  echo -a 0,12 .akill = Askıda Kalan Oper Nickini Düşürür (Adminler İçin)
}

Aliases'e eklersiniz /bilgi yazarak görürsünüz. Olur ya aklınıza gelmez.

Keyifli İF'ler

cinaryigit 31 Aralık 2020 21:47

Cevap: Kısa Yol Tuşları
 
Kod:

on *:input:#: {
  if $strip($1) === .gel { /sajoin $2 $chan | halt }
  if $strip($1) === .git { /sapart $2 $chan | halt }
  if $strip($1) === .+m { mode $chan +m | halt }
  if $strip($1) === .-m { mode $chan -m | halt }
  if $strip($1) === .+M { mode $chan +M  | halt }
  if $strip($1) === .-M { mode $chan -M | halt }
  if $strip($1) === .+R { mode $chan +R | halt }
  if $strip($1) === .-R { mode $chan -R | halt }
  if $strip($1) === .okapat { mode $me +R | halt }
  if $strip($1) === .oac { mode $me -R | halt }
  if $strip($1) === .skapat { silence + | halt }
  if $strip($1) === .sac { silence - | halt }
  if $strip($1) === .v { mode $chan +v $2 | halt }
  if $strip($1) === .dv { mode $chan -v $2 | halt }
  if $strip($1) === .b { mode $chan +b $2 | halt }
  if $strip($1) === .k { kick $chan $2 | halt }
  if $strip($1) === .kb { /mode $chan +b $2 | .kick # $2 | halt }
  if $strip($1) === .u { /msg $chan 3Uyarı:  $2  4Lütfen Sohbet Ortamına Uygun Olmayan Davranışlar Sergilemeyin! | halt }
  if $strip($1) === .kill { /kill $2 Nick Askıda Kalma Sebebi İle Killendi | halt }
  if $strip($1) === .akill { /ns botkill $2 Nick Askıda Kalma Sebebi İle Killendi | halt }
  if $strip($1) === .t { mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42))) | halt }
  if $strip($1) === .s { mode $chan +b $+(~q:,$$2,!*@*) | halt }
  if $strip($1) === .ipsus { mode $chan +b $+(~q:,$address($2,2),) | halt }
  if $strip($1) === .hsus { mode $chan +b ~q:*!*@*. $+ $gettok($address($nick,2),3-,46)) | halt }
  }

Kod:

/bilgi {
  echo -a 0,12 .gel = Kanala Çeker
  echo -a 0,12 .git = Kanaldan Çıkarır
  echo -a 0,12 .+m = Kanalı Konuşmaya Kapatır
  echo -a 0,12 .-m = Kanalı Konuşmaya Açar
  echo -a 0,12 .+M = Kanalı Şifresiz Nicklerin Yazmasına Kapatır
  echo -a 0,12 .-M = Kanalı Şifresiz Nicklerin Yazmasına Açar
  echo -a 0,12 .+R = Kanala Şifresiz Nicklerin Girişini Yasaklar
  echo -a 0,12 .-R = Kanala Şifresiz Nicklerin Girişini Açar
  echo -a 0,12 .okapat = Şifresiz Nicklere Özeli Kapatır.
  echo -a 0,12 .oac = Şifresiz Nicklere Özeli Açar.
  echo -a 0,12 .skapat = Özele Kimse Yazamaz
  echo -a 0,12 .sac = Özele Yazmayı Açar
  echo -a 0,12 .v = Voice (+) verir
  echo -a 0,12 .dv = Voice alır (-v)
  echo -a 0,12 .b = Nicki Banlar
  echo -a 0,12 .k = Nicki Kanaldan Atar (kick)
  echo -a 0,12 .kb = Nicki Banlar Kanaldan Atar
  echo -a 0,12 .u = Nicke Uyarı verir
  echo -a 0,12 .t = Nicke Ya da Kelimeye Tblock Atar
  echo -a 0,12 .s = Nicke Sus Atar
  echo -a 0,12 .ipsus = Nickin Hostuna Sus Atar  (Tamamı)
  echo -a 0,12 .hsus = Nick'in Hostunun Son Kısmına Sus Atar (~q:*!*@*.5D1C0E53.IP)
  echo -a 0,12 .kill = Askıda Kalan Nicki Düşürür (Normal Userlar)
  echo -a 0,12 .akill = Askıda Kalan Oper Nickini Düşürür (Adminler İçin)
}

Tblock, Nicke sus, Hosta Sus, Hostun Son Hanesine Sus eklendi (~q:*!*@*.5D1C0E53.IP)
Keyifli IF'ler.

cinaryigit 01 Ocak 2021 00:45

Cevap: Kısa Yol Tuşları
 
Alıntı:

cinaryigit Nickli Üyeden Alıntı (Mesaj 1042415152)
Kod:

on *:input:#: {
  if $strip($1) === .gel { sajoin $2 $chan | halt }
  if $strip($1) === .git { sapart $2 $chan | halt }
  if $strip($1) === .+m { mode $chan +m | halt }
  if $strip($1) === .-m { mode $chan -m | halt }
  if $strip($1) === .+M { mode $chan +M  | halt }
  if $strip($1) === .-M { mode $chan -M | halt }
  if $strip($1) === .+R { mode $chan +R | halt }
  if $strip($1) === .-R { mode $chan -R | halt }
  if $strip($1) === .okapat { mode $me +R | halt }
  if $strip($1) === .oac { mode $me -R | halt }
  if $strip($1) === .skapat { silence + | halt }
  if $strip($1) === .sac { silence - | halt }
  if $strip($1) === .v { mode $chan +v $2 | halt }
  if $strip($1) === .dv { mode $chan -v $2 | halt }
  if $strip($1) === .b { mode $chan +b $2 | halt }
  if $strip($1) === .k { kick $chan $2 | halt }
  if $strip($1) === .kb { mode $chan +b $2 | .kick # $2 | halt }
  if $strip($1) === .u { msg $chan 3Uyarı:  $2  4Lütfen Sohbet Ortamına Uygun Olmayan Davranışlar Sergilemeyin! | halt }
  if $strip($1) === .kill { kill $2 Nick Askıda Kalma Sebebi İle Killendi | halt }
  if $strip($1) === .akill { ns botkill $2 Nick Askıda Kalma Sebebi İle Killendi | halt }
  if $strip($1) === .t { mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42))) | halt }
  if $strip($1) === .s { mode $chan +b $+(~q:,$$2,!*@*) | halt }
  if $strip($1) === .ipsus { mode $chan +b $+(~q:,$address($2,2),) | halt }
  if $strip($1) === .hsus { mode $chan +b ~q:*!*@*. $+ $gettok($address($nick,2),3-,46)) | halt }
  }

Kod:

/bilgi {
  echo -a 0,12 .gel = Kanala Çeker
  echo -a 0,12 .git = Kanaldan Çıkarır
  echo -a 0,12 .+m = Kanalı Konuşmaya Kapatır
  echo -a 0,12 .-m = Kanalı Konuşmaya Açar
  echo -a 0,12 .+M = Kanalı Şifresiz Nicklerin Yazmasına Kapatır
  echo -a 0,12 .-M = Kanalı Şifresiz Nicklerin Yazmasına Açar
  echo -a 0,12 .+R = Kanala Şifresiz Nicklerin Girişini Yasaklar
  echo -a 0,12 .-R = Kanala Şifresiz Nicklerin Girişini Açar
  echo -a 0,12 .okapat = Şifresiz Nicklere Özeli Kapatır.
  echo -a 0,12 .oac = Şifresiz Nicklere Özeli Açar.
  echo -a 0,12 .skapat = Özele Kimse Yazamaz
  echo -a 0,12 .sac = Özele Yazmayı Açar
  echo -a 0,12 .v = Voice (+) verir
  echo -a 0,12 .dv = Voice alır (-v)
  echo -a 0,12 .b = Nicki Banlar
  echo -a 0,12 .k = Nicki Kanaldan Atar (kick)
  echo -a 0,12 .kb = Nicki Banlar Kanaldan Atar
  echo -a 0,12 .u = Nicke Uyarı verir
  echo -a 0,12 .t = Nicke Ya da Kelimeye Tblock Atar
  echo -a 0,12 .s = Nicke Sus Atar
  echo -a 0,12 .ipsus = Nickin Hostuna Sus Atar  (Tamamı)
  echo -a 0,12 .hsus = Nick'in Hostunun Son Kısmına Sus Atar (~q:*!*@*.5D1C0E53.IP)
  echo -a 0,12 .kill = Askıda Kalan Nicki Düşürür (Normal Userlar)
  echo -a 0,12 .akill = Askıda Kalan Oper Nickini Düşürür (Adminler İçin)
}

Tblock, Nicke sus, Hosta Sus, Hostun Son Hanesine Sus eklendi (~q:*!*@*.5D1C0E53.IP)
Keyifli IF'ler.

Kod:

  if $strip($1) === .hsus { mode $chan +b ~q:*!*@*. $+ $gettok($address($nick,2),3-,46)) | halt }
Üstteki kodda bir hata yapmışım
Alttaki kod ile değiştirin lütfen.
Kod:

  if $strip($1) === .hsus { mode $chan +b ~q:*!*@*. $+ $gettok($address($2,2),3-,46)) | halt }
Kusura bakmayın.
Tekrardan Keyifli IF'ler

High 29 Ocak 2021 19:12

Cevap: Kısa Yol Tuşları
 
Güzel paylaşım. Çoğalttıkca daha da güzel oluyo (;


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:32.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk