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

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - Mirc Botar İçin Greet/Takım Sistemi (https://www.ircforumlari.net/mirc-parca-kodlar/701540-mirc-botar-icin-greet-takim-sistemi.html)

Cevap: Mirc Botar İçin Greet/Takım Sistemi

Alıntı:

SuLh Nickli Üyeden Alıntı (Mesaj 1041682658)

Aynen @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] rawmode eventinde ki kodu aldığımdan kopyala yapıştır yapmıştım. ikinci koşulda fazladan parantez kalınca öyle olmuş. Bir de başlık Botar olmuş :)

Olsun, önemli olan bilgiyi paylaşmak. Şuan piyasadaki çok bilmişler bile şuraya 2 satır bilgi/fikir yazmaktan acizken senin yardım vermen çok güzel. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] online olunca düzeltir başlığı :)

Cevap: Mirc Botar İçin Greet/Takım Sistemi

Elinize saglık sorun çözüldü yardımlarınız için tşkler . @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] özelden cvb veremedim 25 mesajım yokmuş : )

Hocam bu svsjoin $2 #staff komutunu sadece chanserv listesinde olanları çekse kanala olmaz mı kanalda birini op yabınca staff kanalına giriyor : )

Cevap: Mirc Botar İçin Greet/Takım Sistemi

rawmode eventi içindeki

Kod:

sajoin $2 #staff

satırlarını;

Kod:

set %cekilcek $2

who $2

şeklinde değişip;

Kod:

raw 352:*: {

  if $6 == %kayitli { 

    haltdef

    if r isin $7 { .write greet.txt %kayitli $+ $chr(11) $+ %greetmesaj   }

    else { msg %kayitli Nickiniz kayitsiz. }

    unset %kayitli

    unset %greetmesaj

  }

  if $6 == %takimnick {

    haltdef

    if r isin $7 { .write takim.txt %takimnick $+ $chr(11) $+ %takim }

    else { msg %takimnick Nickiniz kayitsiz. }

    unset %takimnick

    unset %takim

  }

}

bu kısımı da;

Kod:

raw 352:*: {

  if $6 == %kayitli { 

    haltdef

    if r isin $7 { .write greet.txt %kayitli $+ $chr(11) $+ %greetmesaj   }

    else { msg %kayitli Nickiniz kayitsiz. }

    unset %kayitli

    unset %greetmesaj

  }

  if $6 == %takimnick {

    haltdef

    if r isin $7 { .write takim.txt %takimnick $+ $chr(11) $+ %takim }

    else { msg %takimnick Nickiniz kayitsiz. }

    unset %takimnick

    unset %takim

  }

   if $6 == %cekilcek {

     haltdef

     if r isin $7 { sajoin %cekilcek #staff }

     unset %cekilcek

   }

}

şeklinde yapmalısın.

Bu kayıtlı nickler içindi. Bir de kanalda accessi olanlar için şunu yapabilirsin direk.

-----------------------------------------------

sajoinlerin yerine yine; if kosuluyla kanalda accessi var mı diye sorgulatabilirsin.

Kod:

if ($2 isreg $chan) { sajoin $2 #staff }

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Mirc Botar İçin Greet/Takım Sistemi

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam bu alttaki kodu görmemişim bunu tam olarak nereye eklicem

Kod:

if ($2 isreg $chan) { sajoin $2 #staff }

Cevap: Mirc Botar İçin Greet/Takım Sistemi

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , birinci yazdığım opa çıkan kayıtlı nickleri çeker. İkincisi, örneğin sohbet kanalında opa çıktıysa bu kanalda accessi var mı yok mu ona bakar. ----------- çizgilerle ayırdım. ikisinden birini yaparsın. ikinci kodu sajoin $2 #staff yerine yazabilirsin.

Cevap: Mirc Botar İçin Greet/Takım Sistemi

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Anladım hocam saol.

Bide bu temizlik kodu vardı ya üst kısımda halfop oldugum zaman !temizle calısmıyor. Op a çıkınca çalısıyor. Halfopta çalısması için ne yapmak lazım.

Cevap: Mirc Botar İçin Greet/Takım Sistemi

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kendim için kodladığım sunucu da bizim adminler halfop ta duruyordu, bunun için şöyle bir şey yapabilirsin. Adminler için bir admin.txt oluşturup; temizle kodunda;

Kod:

if ($nick isop $chan) {

bu kısımı;

Kod:

if ($nick isop $chan) || $read(adminler.txt,w,$nick) {

olarak değişebilirsin.

Cevap: Mirc Botar İçin Greet/Takım Sistemi

Kod:

if ($nick isop $chan) {

bu kısımı;

Kod:

if ($nick isop $chan) || $read(adminler.txt,w,$nick) {

olarak değişebilirsin.

Cevap: Mirc Botar İçin Greet/Takım Sistemi

Kullanmış olduğum socks botuma bu remote nasıl uygulayabilirim ?

Alıntı:

SuLh Nickli Üyeden Alıntı (Mesaj 1041682218)

Daha önce kendi mirc botumda kullandığım bi sistem.

Kod:

on *:text:*:?: {

 if $regex($1,^(!|.)greet$) {

    if ($2 == $null) { msg $nick Kullanimi !greet ekle MESAJ seklindedir. }

    if ($3 == $null) { msg $nick Lutfen bir greet mesaji giriniz. }

    if ($2 == ekle) { 

      if $read(greet.txt,w,$nick $+ *) { 

        .msg $nick $+(",$nick,") greet mesajiniz degistirildi: $3-

        .write -dl $+ $readn greet.txt

      } 

      else { msg $nick Greet mesajiniz degistirildi: $3- }

      set %greetmesaj $3-

      who $nick 

      set %kayitli $nick
 

    }

    if ($2 == sil) {

      if $read(greet.txt,w,$nick $+ *) { 

        .write -dl $+ $readn greet.txt

        msg $nick Greet mesajiniz silindi. 

      }

    }
 

  }

  if $regex($1,^(!|.)takim$) {

    if ($2 == BJK) { set %takim 3[1,0 Beşik0,1taş 3] }

    if ($2 == FB) { set %takim 3[8,2 Fener2,8bahce 3] }

    if ($2 == GS) { set %takim 3[4,8 Galata8,4saray 3] }

    if ($2 == TS) { set %takim 3[5,10 Trab10,5zon 3] }

    if $read(takim.txt,w,$nick $+ *) { 

      .msg $nick $+(",$nick,") takiminiz degistirildi. : %takim 

      .write -dl $+ $readn takim.txt

    } 

    else { msg $nick Takiminiz degistirildi: %takim }

    who $nick

    set %takimnick $nick

  }
 

}
 

raw 352:*: {

  if $6 == %kayitli { 

    haltdef

    if r isin $7 { .write greet.txt %kayitli $+ $chr(11) $+ %greetmesaj   }

    else { msg %kayitli Nickiniz kayitsiz. }

    unset %kayitli

    unset %greetmesaj

  }

  if $6 == %takimnick {

    haltdef

    if r isin $7 { .write takim.txt %takimnick $+ $chr(11) $+ %takim }

    else { msg %takimnick Nickiniz kayitsiz. }

    unset %takimnick

    unset %takim

  }

}
 

on *:rawmode:#: {

  if ($2 == $me) { return }

  if ($istok(%yetkili,$chan,32)) { return }

  if (*+*h* iswm $1) { 

    msg $chan $2 yardimci operator konumuna gectiniz. (1,7 4. Seviye ) 

    if $read(takim.txt,w,$+($2,$chr(11),*)) { 

      .msg $chan $+([,Takim,]) ~ $gettok($read(takim.txt,w,$2 $+ *),2,11) 

      }

      if $read(greet.txt,w,$+($2,$chr(11),*)) {   

        .msg $chan $+([,$2,]) ~ 5[ $gettok($read(greet.txt,w,$2 $+ *),2,11) 5] 

      } 

      return 

    }

  }   

  if (*+*q* iswm $1) { 

    sajoin $2 #staff 

    os raw svsmode $2 +wq 

    chghost $2 $+($gettok($chan,1,$asc(#)),.,Founder.Domain.Net) 

    msg $chan $2 kanal sahibi konumuna gectiniz. (1,7 1. Seviye ) 

    if $read(takim.txt,w,$+($2,$chr(11),*)) {  

      .msg $chan $+([,Takim,]) ~ $gettok($read(takim.txt,w,$2 $+ *),2,11) ~ 

    } 

    if $read(greet.txt,w,$+($2,$chr(11),*)) {   

      .msg $chan $+([,$2,]) ~ 5[ $gettok($read(greet.txt,w,$2 $+ *),2,11) 5] ~

    } 

    return 

  }

  if (*+*a* iswm $1) { 

    sajoin $2 #staff 

    chghost $2 $+($gettok($chan,1,$asc(#)),.,Sop.Domain.Net) 

    msg $chan $2 super operator konumuna gectiniz. (1,7 2. Seviye ) 

    if $read(takim.txt,w,$+($2,$chr(11),*)) {   .msg $chan $+([,Takim,]) ~ $gettok($read(takim.txt,w,$2 $+ *),2,11) ~ } 

    if $read(greet.txt,w,$+($2,$chr(11),*)) {   .msg $chan $+([,$2,]) ~ 5[ $gettok($read(greet.txt,w,$2 $+ *),2,11) 5] } 

    return

  }

  if (*+*o* iswm $1) { 

    sajoin $2 #staff 

    chghost $2 $+($gettok($chan,1,$asc(#)),.,Operator.Domain.Net) 

    msg $chan $2 operator konumuna gectiniz. (1,7 3. Seviye ) 

    if $read(takim.txt,w,$+($2,$chr(11),*)) {   .msg $chan $+([,Takim,]) ~ $gettok($read(takim.txt,w,$2 $+ *),2,11) }

      if $read(greet.txt,w,$+($2,$chr(11),*)) {   .msg $chan $+([,$2,]) ~ 5[ $gettok($read(greet.txt,w,$2 $+ *),2,11) 5] } 

      return

    }
 

  }
 

}

Not: %yetkili değişkeninde #opers gibi kanallara yansımaması için kullanabilirsiniz. //set %yetkili #opers #adwords gibi.

Cevap: Mirc Botar İçin Greet/Takım Sistemi

Bu haliyle socket botunuzda kullanamazsınız.