ส่งข้อความ / เพจเจอร์

ข่าวประจำวัน

  ไทยเวป 
  ไทยโหลด  

การใส่สคริป

ให้เราcopy แล้วนำไป ตั้งชื่อให้ save เป็นไฟล์ .tcl ครับ
จากนั้นก็นำไปใส่ ใน folder ที่ชื่อว่า Scripts
แล้วจากนั้นเราก็เพิ่มคำสั่ง ในไฟล์ conf คือ
ในส่วนของ ##### Add SCRITPS #####
source scripts/ชื่อสคริป.tcl
จากนั้นเราก็ทำการสั่งรันบอทใหม่ได้เลยครับ

คำสั่งให้บอท iden pass แบบง่ายๆ

ให้นำเอาคำสั่งไปแทรก ในส่วน ของ
##### SERVER MODULE #####
ช่วงอินนิเชียล เซอร์เวอร์ ครับ

set init-server { putserv "PRIVMSG nickserv :identify ชื่อ รหัส" }

สคริปบอทพูดโต้ตอบหน้าห้อง

เราต้องการให้บอทพูดอะไร เราก็เพิ่มลูป(สีแดง) ได้ตามจำนวนที่ต้องการ
เมื่อมีคนพูดหน้าห้องคำว่า ดี
บอทจะตอบที่หน้าห้องว่า มีอะไรดีหรอค่ะ คุณ$nick อิอิ
$nick คือ nick ของคนที่พูดคำว่า ดี

bind pubm - * pubm_ai
proc pubm_ai {nick uhost hand chan arg} {
global uptime
foreach i [join $arg] {
if {[string compare [string tolower $i] ดี] == 0} {
say $chan "มีอะไรดีหรอค่ะ คุณ$nick อิอิ" }
}
}
proc say {who what} {
putserv "PRIVMSG $who :$what"
}
putlog "Autotext.tcl by kfc1 loaded"

เราสามารถใช้แบบ NOTICE หรือ MSG ก็ได้
แต่ผมใช้ แบบ notice เพราะว่าไม่เป็นที่น่ารำคาญสำหรับคนเข้าห้องครับ

bind join - * set_greet
proc set_greet {nick uhost hand chan} {
putserv "NOTICE $nick : สวัสดีค่ะ ยินต้อนรับสู่ ห้อง #เด็กเทคโน" }

สคริปตัวนี้ ผมหาโหลดมาแล้ว แต่จำไม่ได้ว่าจากที่ไหนครับ
เราสามารถกำหนดห้องที่ต้องการให้บอทเตะและตั้งคอมเม้น ได้ครับ

# Set your channel
set soundchan "#เด็กเทคโน"

# Set you kick msg
set soundkickmsg "4S3ound 4C3hannel4-_- "

# Don't edit anything below unless you know what you're doing
bind ctcp - SOUND sound
bind ctcp - MP3 sound

set ver "v1.0"

proc sound {nick uhost hand chan keyword arg} {
global soundkickmsg soundchan botnick
if {(([lsearch -exact [string tolower $soundchan] [string tolower $chan]] != -1) || ($soundchan == "*")) && (![matchattr $hand b]) && (![matchattr $hand f|f $chan]) && ($nick != $botnick)} {
if {([string toupper $keyword] != "SOUND") && ([string toupper $keyword] != "MP3")} {
return 0
}
if {[string index $chan 0] == "#"} {
putserv "MODE $chan +b $uhost"
putserv "KICK $chan $nick :$soundkickmsg"

return 1
}
}
}

putlog "Sound Ban kick $ver By kfc1 loaded ..."