Mirc Botar İçin Greet/Takım Sistemi - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

SuLh · 06 Eylül 2015, 14:46

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Eline saglık.

Hocam ben buna bir özellik eklemek istiyorum takimli kanal silme

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

dün bi arkadaşa vermiştim sanırım o kodu

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

Dostum, düzeltmeyi unutmuşum koddaki $2 leri $nick yapmayı.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

Hrikasınız birgün bende öğrencem
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

SuLh · 08 Eylül 2015, 13:40

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ş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
4/B'li Sağlıkçılar İçin Bir Takım Değişiklikler Yapıldı	System	Sağlık Köşesi	0	25 Eylül 2011 22:19
C&A Erkek Çocukları İçin Takım Elbise & Gömlek Modelleri	pyracantha	Ah Erkekler	0	29 Kasım 2010 18:40
mIRC Otomatik Sınav Sistemi [ OTS ]	angry1	mIRC Scripting Hazır Kodlar	1	03 Temmuz 2010 12:02
Mirc pUanLama Sistemi Yardim	SiberShell	mIRC Scripting Sorunları	3	25 Mayıs 2010 10:41

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.