GlobalOps Tcl Script

img acıklama

Erroneous

Sohbetdesin.Com Kullanıcısı
Yönetici
Moderatör
HeLp Founder
17 Şub 2021
47
Kod:
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

}
 
Üst Alt