Advertisement
Guest User

Untitled

a guest
Jun 27th, 2017
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.06 KB | None | 0 0
  1.  
  2. #oto+m off
  3. on *:quit:{
  4. mkontrol
  5. }
  6.  
  7. on *:rawmode:%global: {
  8. if $2 == %botnick { halt }
  9. if ($regex($1,\+(o|a|q))) {
  10. kkontrol $chan
  11. }
  12. if ($regex($1,\-(o|a|q))) {
  13. kontrol $chan
  14. }
  15. }
  16.  
  17. alias mkontrol {
  18. var %; 1
  19. while %; <= $numtok(%global,44) {
  20. .timer 1 1 /kontrol $gettok(%global,%;,44)
  21. inc %;
  22. }
  23. }
  24.  
  25. alias kkontrol { if $nick($1,0,o) == 2 { .msg $1 Kanala Yetkili Girmiştir Kanal Konusmaya Acilmiştir. | mode $1 -m } }
  26. alias kontrol { if $nick($1,0,o) == 1 { mode $1 +m } }
  27.  
  28. on *:part:%global: {
  29. .timer 1 1 kontrol #
  30. }
  31.  
  32. on *:kick:%global: {
  33. .timer 1 1 kontrol #
  34. }
  35.  
  36.  
  37.  
  38. #oto+m end
  39.  
  40.  
  41. on *:text:*:%operkanali:{
  42. if ($1 == .oto) {
  43. if $2 == ac {
  44. if !$read(admin.txt,w,$nick) { .msg $chan $+(",$nick,") Bu Komutu Kullanmaya Yetkili Degilsiniz. }
  45. elseif (%oto+m == Acik) { .msg # [BILGI][Kanalda Yetkili Kalmadimi Islem Korumasi Zaten Acik!] }
  46. else { enable #oto+m | .msg $chan [BILGI][Kanalda Yetkili Kalmadimi Islem Korumasi Acildi.] | set %oto+m Acik }
  47. }
  48. if $2 == kapat {
  49. if !$read(admin.txt,w,$nick) {
  50. msg $chan $+(",$nick,") .Bu Komutu Kullanmaya Yetkili Degilsiniz. }
  51. elseif (%oto+m == Kapali) { .msg # [BILGI][Kanalda Yetkili Kalmadimi Islem Korumasi Zaten Kapali!] }
  52. else { disable #oto+m | .msg $chan [BILGI][Kanalda Yetkili Kalmadimi Islem Korumasi Kapatildi] | set %oto+m Kapali }
  53. }
  54. if $2 == bilgi {
  55. if !$read(admin.txt,w,$nick) { .msg $chan $+(",$nick,") Bu Komutu Kullanmaya Yetkili Degilsiniz. }
  56. else {
  57. .msg $chan Kanalda Yetkili Sayısı 4 1  Kaldiginda Kanal Benim Tarafimdan (4+m) Alinir.
  58. .msg $chan Kanalda Yetkili Sayisi 4 2 Oldugunda Kanal Benim Tarafimdan (4-m) Yapilir.
  59. .msg $chan Yetkili Sayisi Kaçta 4+m , Yetkili Sayisi Kaçta 4-m Ayarlari İçin Bot Yapimcilarindan Destek Alabilirsiniz. }
  60. }
  61. }
  62. if ($1 == .korumalardurum) {
  63. if !$read(admin.txt,w,$nick) {
  64. }
  65. else { .msg $chan Yetkili Kalmayinca +m Korumasi Durum : 4 %oto+m }
  66. }
  67. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement