IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 3 Sayfadan 1 23
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/)
-   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)

SuLh 06 Eylül 2015 14:46
Mirc Botar İçin Greet/Takım Sistemi
 
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.

Beatle 07 Eylül 2015 01:46
Cevap: Mirc Botar İçin Greet/Takım Sistemi
 
Eline saglık.

Hocam ben buna bir özellik eklemek istiyorum takimli kanal silme

Kod:
on *:text:!clear:#: {
  if ($nick isop $chan) {
    if $read(takim.txt,w,$+($2,$chr(11),*)) {
      if be* iswm $gettok($read(takim.txt,w,$+ $2 $+ *),2,32)) { temizlebjk temizlefb temizlegs temizletrb  }
      }
    }
}
Şöyle bir kod denedim çalıştıramadım.

SuLh 07 Eylül 2015 13:02
Cevap: Mirc Botar İçin Greet/Takım Sistemi
 
dün bi arkadaşa vermiştim sanırım o kodu

Kod:
on *:text:!temizle:#: {
if ($nick isop $chan) {
 if $read(takim.txt,w,$+($2,$chr(11),*)) {
if be* iswm $gettok($read(takim.txt,w,$+ $2 $+ *),2,32)) { set %temizchan $chan | temizlebjk }
elseif *fe* iswm $gettok($read(takim.txt,w,$+ $2 $+ *),2,32)) { set %temizchan $chan | temizlefb }
elseif *ga* iswm $gettok($read(takim.txt,w,$+ $2 $+ *),2,32)) { set %temizchan $chan | temizlegs }
elseif *tra* iswm $gettok($read(takim.txt,w,$+ $2 $+ *),2,32)) { set %temizchan $chan | temizlets }
else { .timer 50 0 msg $chan $chr(3) | .timer 1 2 msg $chan Kanal temizlenmistir. }
  }
 }
}


alias temizlebjk {
buraya beşiktaş temizlemesi.
}
alias temizlefb {
buraya fenerbahçe temizlemesi.
}
alias temizlets {
buraya trabzonspor temizlemesi.
}
alias temizlegs {
buraya galatasaray temizlemesi.
}
elimde takım renklerini alan temizlemeler bulunmadığı için oraları boş bıraktım. siz bulursanız alias içine koyarsınız.

Beatle 07 Eylül 2015 19:18
Cevap: Mirc Botar İçin Greet/Takım Sistemi
 
Kod:
on *:text:!temizle:#: {
if ($nick isop $chan) {
 if $read(takim.txt,w,$+($2,$chr(11),*)) {
if be* iswm $gettok($read(takim.txt,w,$+ $2 $+ *),2,32)) { set %temizchan $chan | temizlebjk }
elseif *fe* iswm $gettok($read(takim.txt,w,$+ $2 $+ *),2,32)) { set %temizchan $chan | temizlefb }
elseif *ga* iswm $gettok($read(takim.txt,w,$+ $2 $+ *),2,32)) { set %temizchan $chan | temizlegs }
elseif *tra* iswm $gettok($read(takim.txt,w,$+ $2 $+ *),2,32)) { set %temizchan $chan | temizlets }
else { .timer 50 00 msg $chan $chr(3) | .timer 1 2 msg $chan Kanal temizlenmistir. }
  }
 }
}

 alias temizlefb {
    .timer 50 00 msg $chan fbbbbbbb
  } 
  alias temizlebjk {
    .timer 50 00 msg $chan bjkkkkkk
  }
[19:08:58] <06Beatle> shfgsdhfghdsafgdsafgdsa
[19:08:58] <07BOT> bjkkkkkk
[19:08:58] <07BOT> fbbbbbbb
[19:08:58] <07BOT> bjkkkkkk
[19:08:58] <07BOT> fbbbbbbb
[19:08:58] <07BOT> bjkkkkkk
[19:08:58] <07BOT> fbbbbbbb
[19:08:58] <07BOT> bjkkkkkk
[19:08:58] <07BOT> fbbbbbbb
[19:08:58] <07BOT> bjkkkkkk
[19:08:58] <07BOT> fbbbbbbb
[19:08:58] <07BOT> bjkkkkkk
[19:08:58] <07BOT> fbbbbbbb

Kodu denedimde ne yazsam kanalı siliyor . Takımlarin hepsini aynı anda siliyor. Kanala takım listesinden biri geldiginde otomatik kod çalışmaya başlıyor.Yoksa bende mi sorun.

Beatle 07 Eylül 2015 19:39
Cevap: Mirc Botar İçin Greet/Takım Sistemi
 
Yorumu düzeltemedim. Sadece su sorun var !temizle yaptıgımda bütün takımlarin aliaslari kanalı temizliyor. Yukarda logdaki gibi fbi bjk filan kanalı temizliyor.

SuLh 07 Eylül 2015 22:51
Cevap: Mirc Botar İçin Greet/Takım Sistemi
 
Dostum, düzeltmeyi unutmuşum koddaki $2 leri $nick yapmayı.

Kod:
on *:text:!temizle:#: {
if ($nick isop $chan) {
 if $read(takim.txt,w,$+($nick,$chr(11),*)) {
if be* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32) { set %temizchan $chan | temizlebjk }
elseif *fe* iswm $gettok($read(takim.txt,w,$nick $+ *),2,32) { set %temizchan $chan | temizlefb }
elseif *ga* iswm $gettok($read(takim.txt,w,$nick $+ *),2,32) { set %temizchan $chan | temizlegs }
elseif *tra* iswm $gettok($read(takim.txt,w,$nick $+ *),2,32) { set %temizchan $chan | temizlets }
  }
else { .timer 50 0 msg $chan $chr(3) | .timer 1 2 msg $chan Kanal temizlenmistir. }
 }
}


alias temizlebjk {
buraya beşiktaş temizlemesi.
}
alias temizlefb {
buraya fenerbahçe temizlemesi.
}
alias temizlets {
buraya trabzonspor temizlemesi.
}
alias temizlegs {
buraya galatasaray temizlemesi.
}
bu şekilde daha sağlıklı çalışacaktır. ayrica aliaslarda $chan yerine %temizchan kullanmalisin.

Beatle 07 Eylül 2015 23:52
Cevap: Mirc Botar İçin Greet/Takım Sistemi
 
Kod:
on *:text:!temizle:#: {
if ($nick isop $chan) {
 if $read(takim.txt,w,$+($nick,$chr(11),*)) {
 if be* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlebjk }
 elseif *fe* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlefb }
 elseif *ga* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlegs }
 elseif *tra* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlets }
  }
 else { .timer 50 0 msg $chan $chr(3) | .timer 1 2 msg $chan Kanal temizlenmistir. }
 }
}

alias temizlefb {
  .timer 50 00 msg $chan 2,2takimlartakimlartakim takimlartakimlartakim 8,8takimlartakimlartakim takimlartakimlartakim
} 
alias temizlebjk {
  .timer 50 00 msg $chan 1,1takimlartakimlartakim takimlartakimlartakim 0,0takimlartakimlartakim takimlartakimlartakim
} 
alias temizlegs {
  .timer 50 00 msg $chan 4,4takimlartakimlartakim takimlartakimlartakim 8,8takimlartakimlartakim takimlartakimlartakim
}
alias temizlets {
  .timer 50 00 msg $chan 5,5takimlartakimlartakim takimlartakimlartakim 11,11takimlartakimlartakim takimlartakimlartakim
}
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam son görüntü böyle bu seferde hep beşikaş temizliyor : )

if be* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlebjk }
su satırı

if be* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlefb }

olarak degiştirince fenerbahçe olarak siliyor bu seferde .

Feragat 08 Eylül 2015 08:55
Cevap: Mirc Botar İçin Greet/Takım Sistemi
 
Parantezlere ve tanımlara dikkat edin

$gettok($read(takim.txt,w,$+ $nick $+ *),2,32))

2 parantez açılmış 3 parantez kapanmış

ayrıca $read(takim.txt, w, $nick $+ *) bu şekilde kullanabilirsin. w (wildcard) operatöründen hemen sonra $tanım geliyorsa ve çoklu birleştirme yapılmayacaksa $+ ile öndeki $tanımı bağlamaya gerek yok.

Z-Lined 08 Eylül 2015 11:26
Cevap: Mirc Botar İçin Greet/Takım Sistemi
 
Hrikasınız birgün bende öğrencem :)

SuLh 08 Eylül 2015 13:40
Cevap: Mirc Botar İçin Greet/Takım Sistemi
 
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ş :)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:12.
Sayfa 1 Toplam 3 Sayfadan 1 23
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net