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
}
}
}
Not:Voice alanlar greet ve takım eklemesin icin ayrı kod eklenmistir.İster kendiniz İster botunuzda kullanın.