Global Ops Botu Lazım - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ßaşkentli · 25 Ekim 2011, 13:28

Selamunaleykum, yardımcı olabilecek yada olmaya çalışan herkese şimdiden içten bir şekilde teşekkürlerimi sunuyorum..

Şimdi bana bi bot lazım #Ops kanalında olacak devamlı.

!ekle nick #Kanal1,#Kanal2,#Kanal3,#Kanal4 v.b Yazdığımda nickin hangi kanallarda opa cıkacagını belirleyecek..

%halfoplar kanalda !opver yazdığında benim belirlediğim kanallarda halfopa çıkacak

@oplar kanalda !opver yazdığında benim belirlediğim kanallarda opa çıkacak

&soplar kanalda !opver yazdığında yine benim belirlediğim kanalda sopa çıkacak

ama bu işlemi Operserv üzerinden yapmasını istiyorum

ayrıca !add nick komutunuda sadece ben kendim kullanmak istiyorum

kişi o kanallarda değilse önce /sajoin nick #Kanal yapacak sonra yukarı alacak

Not: Bunu tcl kod olarak istedim ama cevap alamadım script'de olsa olur

Narsinha · 25 Ekim 2011, 14:32

!ekle nick #Kanal1,#Kanal2,#Kanal3,#Kanal4 v.b Yazdığımda nickin hangi kanallarda opa cıkacagını belirleyecek..

olayını anlamadım

ßaşkentli · 25 Ekim 2011, 18:04

Yani hocam oplar !opver yazdığında hangi kanalda opa çıkacaklarını ben belirlemek istiyorum anladınmı

Set · 27 Ekim 2011, 15:24

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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 Kod: Kodu kopyalamak için üzerine çift tıklayın!


[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: Kodu kopyalamak için üzerine çift tıklayın!

[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

Set · 27 Ekim 2011, 15:33

Code test edildi dogru sonuc cıkarttı , sende sorun cıkartırmı bilemem.

ßaşkentli · 30 Ekim 2011, 13:21

Hocam teşekkür ederim bunu Nomercy'e nasıl ekleyecem

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Belirli aralıklarla Global Atan Çalışır Tcl lazım. Yardım Lütfen	Kawissaa	TCL Scriptler	3	16 Mayıs 2020 02:57
Global Ops Botu Lazım	ßaşkentli	Eggdrop, NeoStats, BNC	4	24 Ekim 2011 21:27
Koruma botu lazım	sohbetsevgi	Eggdrop, NeoStats, BNC	12	23 Aralık 2010 19:51
Radyo botu lazım	SpLack	Eggdrop, NeoStats, BNC	6	05 Ocak 2010 02:33
oyun botu lazım...	kanarya034	Eggdrop, NeoStats, BNC	2	30 Kasım 2008 04:26

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.