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

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

- - Help.tcl yardım (https://www.ircforumlari.net/tcl-scriptler/29596-helptcl-yardim.html)

Help.tcl yardım

Selam arkadaşlar şöyle bir kod rica edecem help kanalına girince oto voice verecek karşılama mesajını verecek timer sayacak işlem bittikten sonra + voiceyi alacak uyaracak çıkmaz ise banlayacak olabilirmi böyle bir kod? Teşekkürler..

Cevap: Help.tcl yardım

o dediğini helper yapıyor ama oda insan bot versionunu yaptılarmı bilmiyorum.

Yanıt: Help.tcl yardım

Pit-10 Zaten amacım helperlardan kurtulmak :D

Cevap: Help.tcl yardım

Öyle ßi Kod Var Ama Mirc'e Göre Istersen Al Bak ;)

Alıntı:

on *:join:#Help:{
.notice $nick Sunucu oper yardım odasına hoş geldin, $nick
.notice $nick 25 Saniye sonra söz hakkı alacaksınız.
.notice $nick 30 Saniye içersinde, sizinle ilgilenilmez ise,
.notice $nick Kanal geneline !yardım yazınız.
.timer 1 25 /mode #Help +v $nick
}

on *:text:*:#:{
if !yardım isin $1 {
.msg #Helpop $nick $+ : #Help yardım odasında bekleme süresinin dolduğunu düşünüyor, lütfen kullanıcı ile meşgul olunuz.
.msg #Help $nick $+ : Yönetime haber iletilmiştir, lütfen beklemede kalınız.
}
}

Geriye Sadece + Yı Alması Kalıyo Onuda Helper Yapsın Artık Değilmi ? ;oki

Cevap: Help.tcl yardım

girince + verecek karşılama mesajı yazacak tamamda mantıksız olan bot işlemin bittiğini nerden anlayacakta voiceyi alacak ? :)

Yanıt: Help.tcl yardım

CcehennemM evet orası banada mantıksız geliyordu zaten o kısmı es geçelim

Cevap: Help.tcl yardım

o zaman şöyle bişey yapalım ;
-user yardim kanalına girdikten sonra yardım edileceğini beklemesini söylesin ve 10 saniye sonra voice versin .
-yardım edilmezse user kanala !yardim şeklinde komutla yardım istesin.
-yardım eden helperin işi bitince userin voicesini alsın.
-voicesi alınan user hala kanalda ise bot kanalda beklememesi konusunda onu uyarsın.
-user hala beklemekte ısrar ediyorsa onu 1 dakikalığına banlayarak kanaldan uzaklaştırsın.
;oki

Kod:

##buraya helperlerin bulunduğu kanal yazılacak##

set opchan "#helpop"

 

##Burdan Sonrasına Dokunma#

 

bind join - * karsila

proc karsila {n u h c } {

global botnick

 if {![isop $n $c] && $n != $botnick} {

 putserv "notice $n Hoşgeldin $n."

 putserv "notice $n 10 Saniye İçerisinde Söz Hakkı Alacaksınız."

 putserv "notice $n 20 Saniye İçerisinde Sizinle İlgilenilmezse Kanal Geneline \00304!yardim\003 Yazınız.."

 utimer 10[list putserv "mode $c +v $n" ]

 }

}

 

bind pub - !yardim yardim

proc yardim {n u h c a} {

global opchan

putserv "privmsg $opchan $n yardım odasında bekleme süresinin dolduğunu düşünüyor, lütfen kullanıcı ile meşgul olunuz."

putserv "notice $n Yönetime haber iletilmiştir, lütfen beklemede kalınız $n ."

}

 

bind mode - * modes 

proc modes {eden b c kanal mode etken} { 

 if {$mode == "-v"} { 

  if {[onchan $etken $kanal]} {

  utimer 10[list putserv "privmsg $kanal Yardim Odasında Gereksiz yere beklemek Yasaktır..!Lütfen Bekleme yapmayın \00304$etken\003 ."]

  utimer 15[list banla $kanal $etken ]

  }

 } 

}

proc banla { kanal etken } { 

putserv "mode $kanal +b $etken"

putserv "kick $kanal $etken \00312Resmi\003 \00304$kanal\003 \00312odasında Gereksiz yere beklediginizden dolayı  \00304 1 \003 \00312dakikalıgına kanaldan uzaklastırıldınız.\003"

utimer 60[list putserv "mode $kanal -b $etken"]

}

 

##Bitti - Coded By BuCaLI ;)

sorun olursa yazarsınız nedenine bakarız.