Kod:
on *:start:{ hmake -s kanallist | hload kanallist kanal.ymc }
on *:text:#:*: {
if $1 == .kanal {
if $2 == ekle {
hadd -sm kanallist $3
.msg $chan $3 kanali listeye eklendi.
hsave kanallist kanal.ymc
}
if $2 == sil {
hdel -s kanallist $3
.msg $chan $3 kanali listeden silindi.
hsave kanallist kanal.ymc
}
if $2 == list {
.msg $chan -- Kanallar Listeleniyor --
var %ymc
while %ymc <= $hget(kanallist,0).item {
.msg $chan $+(%ymc,.2) $hget(kanallist,%ymc).item
inc %ymc
}
}
}
}
on *:join:#asasa: {
if $nick == $me { return }
else {
var %ymc
while %ymc <= $hget(kanallist,0).item {
sajoin $nick $hget(kanallist,%ymc).item
timer 0 1 mode $hget(kanallist,%ymc).item %prefixx
inc %ymc
}
enable #whoisss
whois $nick
set %ymcnick $nick
}
}
#whoisss off
raw 319:*: {
if $findtok($3-,+#asasas,32) { set %prefixx +v }
if $findtok($3-,%#asasas,32) { set %prefixx +h }
if $findtok($3-,@#asasas,32) { set %prefixx +o }
if $findtok($3-,&#asasas,32) { set %prefixx +a }
if $findtok($3-,~#asasas,32) { set %prefixx +q }
if $findtok($3-,.#asasas,32) { set %prefixx +q }
}
disable #whoisss
#whoisss end
