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

Kod:

on *:text:*:#KANAL: {

 if ($nick == Nick) {

#KANAL yerine op kanalini yazarsın.

Nick <= yerine

Örnek:

if ($nick == Aeg) {

gibi. Nickini yazarsın.

Komutlar;

!ekle Nick #kanal1,#kanal2
!sil Nick
!list
!opver <= Yetki eklenilen nick kullanabilir bunu tek digerleri belirtigin nick tek kullanir.

Kod:

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

PHP- Kodu:

   [15:19] <@Set> !sil Set
[15:19] <Aeg> Set kisi listeden silinmistir!
[15:19] <@Set> !list
[15:19] <Aeg> Listede kayıt bulunmamaktadir!
[15:19] <@Set> !ekle Set #deneme,#deneme2
[15:19] <Aeg> Set kisi #deneme,#deneme2 kanallarinda listeye eklenmistir op olarak!
[15:19] <@Set> !list
[15:19] <Aeg> Ops listesi -
[15:19] <Aeg> 1) Set = Channel => #deneme,#deneme2
[15:19] <Aeg> Ops listesi sonu..
[15:19] <@Set> !opver
[15:19] <Aeg> Set yetkileriniz veriliyor.. bekleyiniz..
[15:19] <Aeg> Chans: #deneme - #deneme2
[15:19] <Aeg> Kanallarda Prefix: @ - +o
[15:20] <@Set> !sil Set
[15:20] <Aeg> Set kisi listeden silinmistir!
[15:20] <@Set> !list
[15:20] <Aeg> Listede kayıt bulunmamaktadir!
[15:20] <@Set> !opver
[15:20] <Aeg> Set listede kayıdınz bulunmamaktadir!

Kod:

[15:17] *** Şu an #deneme kanalında bulunuyorsunuz

[15:17] *** OperServ mod değiştirdi:+o Set

[15:17] *** Şu an #deneme2 kanalında bulunuyorsunuz

[15:17] *** OperServ mod değiştirdi:+o Set