Paylaşımın Ve Sohbetin Tek Adresine HoşGeldin, Ziyaretçi!

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Mirc Botar İçin Greet/Takım Sistemi

  • Konbuyu başlatan Che
  • Başlangıç tarihi
  • Okuma süresi: 1:56

Che

uye
Katılım
6 Eyl 2016
Mesajlar
21
Tepkime puanı
0
Puanları
1
Cinsiyet
Erkek

İtibar Puanı:

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.
 
Tüm sayfalar yüklendi.

Konuyu Görüntüleyen Kullanıcılar (Toplam:0)

Benzer konular