IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 33 Toplam 38 Sayfadan « İlkSayfa 2326272829303132 33 3435363738
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Soru - Cevap (https://www.ircforumlari.net/soru-cevap/)
-   -   Client Soru-Cevap Oyunu (https://www.ircforumlari.net/soru-cevap/51644-client-soru-cevap-oyunu.html)

eLaa 13 Eylül 2014 14:15
Cevap: Client Soru-Cevap Oyunu
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041349889)
Daha farklı yolları da olabilir. Kullanımı: /carp
Kod:
alias carp {
var %c = 1
  while %c <= 10 {
    inc -u1 %a
    var %b = 1
    while %b <= 10 { echo -s %a x %b = $calc(%a * %b) | inc %b }
    inc %c
  }
}
Soru: Kanala giren kullanıcının Nickinin ilk harfi Küçük veya Büyük a harfi ile başlıyorsa +v versin.
Cevap:
on *:join:#kanal: { if ($regex($nick,/(^a)/i)) { mode $chan +v $nick } }

Ican 22 Mart 2015 13:34
Cevap: Client Soru-Cevap Oyunu
 
IRC Client in server dan farkı nedir

YouMyCure 22 Mart 2015 16:46
Cevap: Client Soru-Cevap Oyunu
 
Alıntı:
Ican Nickli Üyeden Alıntı (Mesaj 1041636665)
IRC Client in server dan farkı nedir
client komut dur server sunuccu dur

#a kanalına girenlerin #b kanalınada girmelerini istiyorum

Toprak 25 Mart 2015 10:33
Cevap: Client Soru-Cevap Oyunu
 
Alıntı:
KraL Nickli Üyeden Alıntı (Mesaj 1041636724)
client komut dur server sunuccu dur

#a kanalına girenlerin #b kanalınada girmelerini istiyorum
Sunucuda sajoin yetkiniz var ise;
Kod:
on !*:join:#a:sajoin $nick #b
Kullanıcı davet edilen kanala oto giriyor ise;
Kod:
on !*:join:#a:invite $nick #b
Kanal'a limit koyarak yönlendirme; (Buradaki amaç kanal limiti dolunca #B kanal'ına yönlendirmek)
Kod:
/cs set #a mlock +lL 1 #b
Soru : #X kanal'ındaki yetkili(%,@,&,~) kişilerin nick'lerini yan yana bir ince(ctrl+b), bir kalın olarak aktif kanalın editbox'una yazdırmak istiyorum.
(/editbox -a Tprk, srjn, Feragat vs.)

Feragat 25 Mart 2015 18:03
Cevap: Client Soru-Cevap Oyunu
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041637672)
Soru : #X kanal'ındaki yetkili(%,@,&,~) kişilerin nick'lerini yan yana bir ince(ctrl+b), bir kalın olarak aktif kanalın editbox'una yazdırmak istiyorum.
(/editbox -a Tprk, srjn, Feragat vs.)
Kod:
//editbox -a $left($regsubex($str(.,$nick(#x,0)),/./g,$iif($nick(#x,\n) !isreg #x, $+($v1,$chr(2),$chr(44)) $chr(32))), -1)
Soru: /server -m ile tek mIRC üzerinden 3 sunucuya bağlıyım ve 3. sunucuda awayım. Tek bir komutla 3. sunucunun Server adresini, 3. sunucudaki nickimi, away mesajımı ve 3. sunucunun IP adresini nasıl görebilirim ?

Toprak 25 Mart 2015 18:07
Cevap: Client Soru-Cevap Oyunu
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041637959)
Kod:
//editbox -a $left($regsubex($str(.,$nick(#x,0)),/./g,$iif($nick(#x,\n) !isreg #x, $+($v1,$chr(2),$chr(44)) $chr(32))), -1)
Soru: /server -m ile tek mIRC üzerinden 3 sunucuya bağlıyım ve 3. sunucuda awayım. Tek bir komutla 3. sunucunun Server adresini, 3. sunucudaki nickimi, away mesajımı ve 3. sunucunun IP adresini nasıl görebilirim ?
Cevap :
Kod:
//echo -a Server: $scon(3).server - Ip: $scon(3).serverip - Nick: $scon(3).me - Away: $scon(3).awaymsg
Soru : Tek bir write komut'u kullanarak sayı.txt'e 10 dan 1'e kadar alt alt'a nasıl yazdırırız.
Kod:
10
9
8
7
6
5
4
3
2
1
gibi.

Toprak 27 Mart 2015 12:26
Cevap: Client Soru-Cevap Oyunu
 
Cevap(lar) :

Basit:
Kod:
//write sayı.txt 10 $crlf 9 $crlf 8 $crlf 7 $crlf 6 $crlf 5 $crlf 4 $crlf 3 $crlf 2 $crlf 1
While kullanarak;
Kod:
//var %s = 10 | while %s { var %w $addtok(%w,%s,32) | dec %s } | .write sayı.txt $replace(%w,$chr(32),$crlf)
Regsubex kullanarak;
Kod:
//write sayı.txt $regsubex($sorttok($regsubex($str(*,10),/./g,\n $chr(32)),32,nr),/\s/g,$crlf)
-

Soru : #Y kanal'ına giren "Tprk" nick'inin ident'i "Paradox" değil ise kanal'dan 2 dakika'lık ban uygulasın ve kick'lesin.

YouMyCure 26 Ocak 2016 20:49
Cevap: Client Soru-Cevap Oyunu
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041638700)
Cevap(lar) :

Basit:
Kod:
//write sayı.txt 10 $crlf 9 $crlf 8 $crlf 7 $crlf 6 $crlf 5 $crlf 4 $crlf 3 $crlf 2 $crlf 1
While kullanarak;
Kod:
//var %s = 10 | while %s { var %w $addtok(%w,%s,32) | dec %s } | .write sayı.txt $replace(%w,$chr(32),$crlf)
Regsubex kullanarak;
Kod:
//write sayı.txt $regsubex($sorttok($regsubex($str(*,10),/./g,\n $chr(32)),32,nr),/\s/g,$crlf)
-

Soru : #Y kanal'ına giren "Tprk" nick'inin ident'i "Paradox" değil ise kanal'dan 2 dakika'lık ban uygulasın ve kick'lesin.
Kod:
on *:join:#y: {
  .enable #rr
  .userip $nick
  .timerRR 1 1 .disable #rr
  if ($nick == Tprk) {
    $iif(%&& == Paradox,return,_aa $chan $nick)
  }
}
alias _aa {
  .ban -u120 $1-
  .kick $1- Atıldınız.
  .unset %&&
}
#rr off
raw 340:*: {
  if ($left($4,1) == +) {
    .set %&& $remove($token($gettok($4,2,$asc(=)),1,$asc(@)),+)
  }
  elseif ($left($4,1) == -) {
    .set %&& $remove($token($gettok($4,2,$asc(=)),1,$asc(@)),-)
  }
}
#rr end
Soru; #A kanalıma giren 10 nickten 5'inin içerisinde *my* geçiyorsa kanaldaki herkezi tek tek banlayım.

Toprak 17 Şubat 2016 20:40
Cevap: Client Soru-Cevap Oyunu
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041731793)
Kod:
on *:join:#y: {
  .enable #rr
  .userip $nick
  .timerRR 1 1 .disable #rr
  if ($nick == Tprk) {
    $iif(%&& == Paradox,return,_aa $chan $nick)
  }
}
alias _aa {
  .ban -u120 $1-
  .kick $1- Atıldınız.
  .unset %&&
}
#rr off
raw 340:*: {
  if ($left($4,1) == +) {
    .set %&& $remove($token($gettok($4,2,$asc(=)),1,$asc(@)),+)
  }
  elseif ($left($4,1) == -) {
    .set %&& $remove($token($gettok($4,2,$asc(=)),1,$asc(@)),-)
  }
}
#rr end
Soru; #A kanalıma giren 10 nickten 5'inin içerisinde *my* geçiyorsa kanaldaki herkezi tek tek banlayım.
Cevap çok uzun.
Stabil olarak yapalım;

Kod:
on !*:join:#Y:{
  if $regex($nick,/^Tprk$/) && $token($token($address($nick,5),2,33),1,64) != Paradox {
    ban -ku120 # $nick Yasak..
  }
}
Soruna gelecek olursak cevap'ı;
Kod:
on !*:join:#A:{
  if $regex($nick,/my/) {
    inc %my
    if %my == 5 {
      tokenize 32 $regsubex($str(*,$nick(#Sohbet,0)),/./g,$nick(#Sohbet,\n) $chr(32))
      mode # +b $*
      unset %my
    }
  }
}
Yada sadece nick içerisinde "my" geçiyorsa atılsın diyorsan;

Kod:
on !*:join:#A:{
  if $regex($nick,/my/) {
    inc %my
    if %my == 5 {
      tokenize 32 $regsubex($str(*,$nick(#Sohbet,0)),/./g,$nick(#Sohbet,\n) $chr(32))
      if $regex($*,/my/) {
        mode # +b $*
      }
      unset %my
    }
  }
}

xwerswoodx 25 Temmuz 2016 17:38
Cevap: Client Soru-Cevap Oyunu
 
Soru soran yok, soralımda devam etsin bari, basit bir soru sorayım;

Hamit.txt içerisinde alt alta 100 satır yazı bulunmaktadır.

Bana öyle bir komut söyleyin ki, bu komutu uyguladığımda $lines(Hamit.txt) 90, $read(Hamit.txt,91) komutu eksik parametre olarak dönsün. Ancak Hamit.txt içindeki 100 satırın hiç birisi silinmemeli, yada dosya 90 satırdan fazla satır sayısına sahip olmalı. Yani normalde Hamit.txt içinde 500 satır olsa bile $lines(Hamit.txt) cevabı 90 olarak dönmeli.

Bu arada lines veya read aliasları hiç bir şekilde tekrardan kodlanmamalı. Yani aynı komutu 90 değilde 50. satır için uygulasamda aynı, 30. satır için uygulsamda aynı sonuçlara ulaşabilmeliyim.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:24.
Sayfa 33 Toplam 38 Sayfadan « İlkSayfa 2326272829303132 33 3435363738
Konuya ait 40 Mesajı başka Sayfada göster

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