IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Selamunaleykum Arkadaşlar aşağıdaki kodu nasıl ekleyecem Nomercy'e ?

on *:text:*:#KANAL: {
if ($nick == Nick) {
if ($regex($1,/^[!]ekle$/i)) {
if (!$2) { msg # nick/chan yazmayi unuttunuz! Komut: !ekle Nick #Kanal1,#Kanal2 | halt }
if ($opbul($2)) { msg # $2 zaten op listesinde bulunuyor! | halt }
.msg # $2 kisi $3- kanallarinda listeye eklenmistir op olarak!
hadd -m ops $2 $3-
hsave -o ops ops.63
hfree -sw ops
hmake ops
hload ops ops.63
halt
}
if ($regex($1,/^[!]sil$/i)) {
if (!$2) { msg # nick/chan yazmayi unuttunuz! Komut: !sil Nick | halt }
if (!$opbul($2)) { msg # $2 zaten op listesinde bulunmuyor! | halt }
.msg # $2 kisi listeden silinmistir!
hdel -m ops $hfind(ops,$2,1,W)
hsave -o ops ops.63 | hfree -sw ops | hmake ops | hload ops ops.63
halt
}
if ($regex($1,/^[!]list$/i)) {
$iif(!$hget(ops),ophash)
if ($hget(ops,0).data == 0) { .msg # Listede kayıt bulunmamaktadir! | halt }
.msg # Ops listesi -
var %s 1
while (%s <= $hget(ops,0).data) {
.msg # $+(%s,$chr(41)) $hget(ops,%s).item = Channel => $hget(ops,%s).data
inc %s
}
.msg # Ops listesi sonu..
}
}
if ($regex($1,/^[!]opver$/i)) {
if (!$opbul($nick)) { .msg # $nick listede kayıdınz bulunmamaktadir! | halt }
var %prefix $left($nick(#,$nick).pnick,1)
.msg # $nick yetkileriniz veriliyor.. bekleyiniz..
.msg # Chans: $replace($hget(ops,$nick),$chr(44),$+($chr(32),-,$chr(32)))
.msg # Kanallarda Prefix: $left($nick(#,$nick).pnick,1) - $iif($regex(%prefix,&),+a,$iif($regex(%prefix,@),+ o,$iif($regex(%prefix,%),+h)))
opver $nick $iif($regex(%prefix,&),+a,$iif($regex(%prefix,@),+ o,$iif($regex(%prefix,%),+h)))
}
}
alias opver { $iif(!$hget(ops),ophash) | var %s 1 | while (%s <= $hget(ops,0).data) { $iif($1 == $hget(ops,%s).item,ops $1 $2 $hget(ops,%s).data) | inc %s } }
alias ops { var %s 1 | while (%s <= $numtok($3,44)) { sajoin $1 $token($3,%s,44) | os mode $token($3,%s,44) $2 $1 | inc %s } }
alias ophash { hmake ops | hload ops ops.63 }
alias opbul { $iif(!$hget(ops),ophash) | var %s 1 | while (%s <= $hget(ops,0).data) { $iif($1 == $hget(ops,%s).item,return $true) | inc %s } return $false }
on *:start:ophash