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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - op sop ekleme özelde yaptırma (https://www.ircforumlari.net/tcl-scriptler/821360-op-sop-ekleme-ozelde-yaptirma.html)

op sop ekleme özelde yaptırma

Merhaba

#ops #admin #xline odasinda komutun calismaini istiyorum.

ve sadece admin founderler ve access 999 olanlar ekliyebilsin. 998 olanlar ekilyemesin gibi bisi
sunda ola bilir erisim.txt icinde ekli olan nickler ekliye bilir sile bilir izni munüknmü acaba?

birde ekleme islamini söyle yapmak istiyorum .opekle #kanal nick kanal adini belirtmeden eklemesin.
ama ops odasi adi sabit olsun.

bu konuda yardimci olurmusunuz.

PHP- Kodu:

   set ops_chan "#ops"

bind pub - .sop sopekle

bind pub - .op opekle

bind pub - .halfop halfopekle

bind pub - .voice voiceekle

bind pub - .sil silme

proc sopekle {nick uhost handle chan hings } {

global ops_chan

if {$nick != "Z-bot"} {return 0} 

if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {

putserv "cs access #kanal add $hings 100"

putserv "cs access #ops add $hings 100"

putserv "PRIVMSG $chan :$hings ' #ops odasında .bilgi yazarak kuralaları görebilirsiniz. Özelime .komutlar yazarak komutları görebilirsiniz."

return 1

}

return 1

}

proc opekle {nick uhost handle chan hings } {

global ops_chan

if {$nick != "Z-bot"} {return 0} 

if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {

putserv "cs access #kanal add $hings 50"

putserv "cs access #ops add $hings 100"

putserv "PRIVMSG $chan :$hings ' #ops odasında .bilgi yazarak kuralaları görebilirsiniz. Özelime .komutlar yazarak komutları görebilirsiniz."

return 1

}

return 1

}

proc halfopekle {nick uhost handle chan hings } {

global ops_chan

if {$nick != "Z-bot"} {return 0} 

if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {

putserv "cs access #kanal add $hings 45"

putserv "PRIVMSG $chan :$hings ' #ops odasında .bilgi yazarak kuralaları görebilirsiniz. Özelime .komutlar yazarak komutları görebilirsiniz."

return 1

}

return 1

}

proc voiceekle {nick uhost handle chan hings } {

global ops_chan

if {$nick != "Z-bot"} {return 0} 

if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {

putserv "cs access #sohbet add $hings 30"

return 1

}

return 1

}

proc silme {nick uhost handle chan hings } {

global ops_chan

if {$nick != "Z-bot"} {return 0} 

if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {

putserv "cs access #kanal del $hings"

putserv "cs access #ops del $hings"

putserv "PRIVMSG $chan :$hings 'nicki'in access'i Silinmistir iyi çalişmalar"

return 1

}

return 1

}

Cevap: op sop ekleme özelde yaptırma

bu kodu denedim buda calismadi

PHP- Kodu:

   bind msg - lmsg mete

proc mete {nick uhand host text} {

if {![onchan $nick #ops] || [onchan $nick #Admin] || [onchan $nick #Xline]} {return 0}

set komut [lindex $text 0]

set kanal [lindex $text 1]

set person [lindex $text 2]

set opekle "!opekle"

set opekle "!sopekle"

set vopekle "!vopekle"

set hopekle "!hopekle"

set opsil "!yetkisil"

 
if {$komut == $opekle} {

putquick "cs access $kanal add $person 50"

putquick "PRIVMSG $nick $nick Tarafından $kanal Kanalına $person kullanıcısı op olarak eklenmiştir."; return 0 }

if {$komut == $sopekle} {

putquick "cs access $kanal add $person 100"

putquick "PRIVMSG $nick $nick Tarafından $kanal Kanalına $person kullanıcısı op olarak eklenmiştir."; return 0 }

if {$komut == $vopekle} {

putquick "cs access  $kanal add $person 35"

putquick "PRIVMSG $nick $nick Tarafından $kanal Kanalına $person kullanıcısı voice olarak eklenmiştir."; return 0 }

if {$komut == $hopekle} {

putquick "cs access $kanal add $person 45"

putquick "PRIVMSG $nick $nick Tarafından $kanal Kanalına $person kullanıcısı halfop olarak eklenmiştir."; return 0 }

if {$komut == $yetkisil} {

putquick "cs access $kanal del $person"

putquick "PRIVMSG $nick $kanal Kanalında $nick Tarafından $person Kullanıcısının Yetkisi silinmiştir."; return 0 }

}