mIRC Bot takim eklentisi
Kod:
on $*:text:*:?: {
if $regex($1-,/^[!.]takim$/i) {
var %bjk 3[1,0 Beşik0,1taş 3], %fb 3[8,2 Fener2,8bahce 3], %gs 3[4,8 Galata8,4saray 3], %ts 3[5,10 Trab10,5zon 3], %takim [ [ $+(%,$2) ] ]
if !$2 { msg $nick Takim seciniz lutfen. Örnek 4[ 10BJK , FB , TS , GS 4] | return }
if !$var($+(%,$2)) { msg $nick böyle 1 takim listemde yok. }
hadd -m takim $nick %takim
who +R $nick
return
}
if $regex($1-,/^[!.]takimsil/i) {
if $read(takim.63,w,$+($nick,=*)) { msg $nick Takim: $token($v1,2,61) - takim silinmistir. | write $+(-dl,$readn) takim.63 }
else { msg $nick $nick size ait takim eklentisi bulunmuyor. }
}
}
raw 352:*: {
if $hget(takim,$6) { var %v1 $v1
if $regex($7,r) {
if $read(takim.63,w,$+($6,=*)) { msg $6 Eski takim: $token($v1,2,61) - takim degistiriliyor. | write $+(-dl,$readn) takim.63 }
msg $6 2Takiminiz secildi. %v1
hdel -m takim $6
write takim.63 $+($6,=,%v1)
}
if !$regex($7,r) {
msg $6 2Nickiniz kayitsizdir, Lutfen nick kayit işlemini yaptiktan sonra işlemi tekrar ediniz.
hdel -m takim $6
}
}
}
on *:rawmode:#: {
if $regex($1,/\+(q|a|o|h|v)/i) {
$iif($read(takim.63,w,$+($2,=*)),msg $chan $+([,Takim,]) ~ $token($v1,2,61))
}
}
!takim TAKIM
!takimsil
Alıntıdır. |
