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.

!greet ekle - sil !takim -takim sil

Katılım
22 Ağu 2019
Mesajlar
80
Tepkime puanı
124
Puanları
33
Konum
istanbul
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 == TS) { set %takim  5,11 T 11,5 R 5,11 A 11,5 B 5,11 Z 11,5 O 5,11 N 11,5 S 5,11 P 11,5 O 5,11 R  }
    if ($2 == DNZ) { set %takim  1,9 D 9,1 E 1,9 N 9,1 I 1,9 Z 9,1 L 1,9 I 9,1 S 1,9 P 9,1 O 1,9 R  }
    if ($2 == BJK) { set %takim  1,0 B 0,1 E 1,0 Ş 0,1 I 1,0 K 0,1 T 1,0 A 0,1 Ş  }
    if ($2 == OSM) { set %takim  0,6 O 1,8 S 0,6 M 1,8 A 0,6 N 1,8 L 0,6 ı 1,8 S 0,6 P 1,8 O 0,6 R  }
    if ($2 == BSK) { set %takim  7,2 B 2,7 A 7,2 Ş 2,7 A 7,2 K 2,7 Ş 7,2 E 2,7 H 7,2 I 2,7 R  }
    if ($2 == GOZ) { set %takim  8,4 G 4,8 Ö 8,4 Z 4,8 T 8,4 E 4,8 P 8,4 E  }
    if ($2 == KNY) { set %takim  0,3 K 3,0 O 0,3 N 3,0 Y 0,3 A 3,0 S 0,3 P 3,0 O 0,3 R  }
    if ($2 == BRC) { set %takim  5,12 B 12,5 A 5,12 R 12,5 C 5,12 E 12,5 L 5,12 O 12,5 N 5,12 A  }
    if ($2 == KRBK) { set %takim  0,4 K 0,2 A 0,4 R 0,2 A 0,4 B 0,2 Ü 0,4 K  }
    if ($2 == FB) { set %takim  2,8 F 8,2 E 2,8 N 8,2 E 2,8 R 8,2 B 2,8 A 8,2 H 2,8 Ç 8,2 E  }
    if ($2 == GENC) { set %takim  1,4 G 4,1 E 1,4 N 4,1 Ç 1,4 L 4,1 E 1,4 R 4,1 B 1,4 I 4,1 R 1,4 L 4,1 I 1,4 Ğ 4,1 I  }
    if ($2 == ERZM) { set %takim  0,12 E 12,0 R 0,12 Z 12,0 U 0,12 R 12,0 U 0,12 M 12,0 S 0,12 P 12,0 O 0,12 R  }
    if ($2 == MLTY) { set %takim  1,8 M 8,1 A 1,8 L 8,1 A 1,8 T 8,1 Y 1,8 A 8,1 S 1,8 P 8,1 O 1,8 R  }
    if ($2 == ANTLY) { set %takim  0,4 A 4,0 N 0,4 T 4,0 A 0,4 L 4,0 Y 0,4 A 4,0 S 0,4 P 4,0 O 0,4 R  }
    if ($2 == SVS) { set %takim  0,4 S 4,0 I 0,4 V 4,0 A 0,4 S 4,0 S 0,4 P 4,0 O 0,4 R  }
    if ($2 == ALNY) { set %takim  0,3 A 1,7 L 0,3 A 1,7 N 0,3 Y 1,7 A 0,3 S 1,7 P 0,3 O 1,7 R  }
    if ($2 == GS) { set %takim  4,8 G 8,4 A 4,8 L 8,4 A 4,8 T 8,4 A 4,8 S 8,4 A 4,8 R 8,4 A 4,8 Y  }
    if ($2 == TRB) { set %takim  11,5 Trabzon 5,11 Spor  }
    if ($2 == KSM) { set %takim  0,2 K 2,0 A 0,2 S 2,0 I 0,2 M 2,0 P 0,2 A 2,0 Ş 0,2 A  }
    if ($2 == KYS) { set %takim  4,8 K 8,4 A 4,8 Y 8,4 S 4,8 E 8,4 R 4,8 I  }
    if $read(takim.txt,w,$nick $+ *) {
      .msg $nick Nickinize takim eklemek icin 4!takim Seciminiz seklinde ekleme uygulayabilirsiniz.
      .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 (*+* iswm $1) {
    if $read(takim.txt,w,$+($2,$chr(11),*)) {
      .msg $chan 4 $+([,Takim,]) ~ $gettok($read(takim.txt,w,$2 $+ *),2,11 )
    }
    if $read(greet.txt,w,$+($2,$chr(11),*)) {
      .msg $chan  4 $+([,$2,]) ~ 5 [ $gettok($read(greet.txt,w,$2 $+ *),2,11)  ]
    }
    return
  }
}

if (*+q* iswm $1) {
  sajoin $2 #Founders
  os raw svsmode $2 +wq
  chghost $2 $+($gettok($chan,1,$asc(#)),.,Founder.Mevsim.Org)
  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,]) ~ [ $gettok($read(greet.txt,w,$2 $+ *),2,11) ] ~
  }
  return
}
if (*+a* iswm $1) {
  sajoin $2 #GlobalOps
  chghost $2 $+($gettok($chan,1,$asc(#)),.,Sop.Mevsim.Org)
  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,]) ~[ $gettok($read(greet.txt,w,$2 $+ *),2,11) ]  }
  return
}
if (*+v* iswm $1) {
  sajoin $2 #GlobalOps
  chghost $2 $+($gettok($chan,1,$asc(#)),.,Voice.Mevsim.Org)
  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,]) ~[ $gettok($read(greet.txt,w,$2 $+ *),2,11) ]  }
  return
}

if (*+o* iswm $1) {
  sajoin $2 #GlobalOps
  chghost $2 $+($gettok($chan,1,$asc(#)),.,Operator.Mevsim.Org)
  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,]) ~ [ $gettok($read(greet.txt,w,$2 $+ *),2,11) ] }
  return
}
if (*+*h* iswm $1) {
  sajoin $2 #GlobalOps     
  chghost $2 $+($gettok($chan,1,$asc(#)),.,HalfOp.Mevsim.Org
  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,]) ~ [ $gettok($read(greet.txt,w,$2 $+ *),2,11) ] }
  return
}
-------------------------------------------------
Kod:
on *:text:*:?: {
  if $1 == !takimsil {
    if $read(takim.txt,w,$nick $+ *) {
      .write -dl $+ $readn takim.txt
      .msg $nick 4 %nick takiminiz silinmistir.
      return
    }
    if !$read(takim.txt,w,$nick $+ *) {
      .msg $nick 4 $nick herhangi kayitli bir takiminiz bulunmuyor,Takim eklemek icin 4!takim Seciminiz yazabilirsiniz.
      return
    }
  }
}
İkisinide remote bolumune atabilirsiniz ama ayrı ayrı :)
Not:Voice alanlar greet ve takım eklemesin icin ayrı kod eklenmistir.İster kendiniz İster botunuzda kullanın.
 
Katılım
22 Ağu 2019
Mesajlar
80
Tepkime puanı
124
Puanları
33
Konum
istanbul
Cinsiyet
Erkek

İtibar Puanı:

7152
 
Tüm sayfalar yüklendi.

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

Benzer konular Forum Tarih
Sadullah mIRC Script Kodları 0 216
Sadullah mIRC Script Kodları 0 209
Sadullah mIRC Script Kodları 0 213
Sadullah mIRC Script Kodları 0 295

Benzer konular