Code: Select all
bind pub - !synna synna_pub
bind pub - !ops ops_pub
bind pub - !reeglid rules_pub
bind pub - !cyber cyber_pub
proc synna_pub {nick host handle chan args} {
putserv "PRIVMSG $chan :"Kui tahad oma sünnipäeva Botmani andmebaasi sisestada tee seda kujul !date <kuu> <päev> <sünniaasta>"
putserv "PRIVMSG $chan :"On tähtis et kuu oleks kujul JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC. (ega kui valesti paned midagi ei juhtu kah, aga õige on nii)"
putserv "PRIVMSG $chan :"Ja nüüd kui sünnipäev on andmebaasi sisestatud saad sa jälgida mitu päeva/nädalat su sünnipäevani on. "
putserv "PRIVMSG $chan :"Selleks kasuta !date Kui tahad oma sõbra sünnipäeva jälgida pane !date <nimi> "
}
proc ops_pub {nick host handle chan args} {
putserv "PRIVMSG $chan :"Kui mina olen sulle andnud vastava staatuse siis sul on võimalik kanalis kasutada järgnevaid võimalusi-"
putserv "PRIVMSG $chan :"!op Annad endale opi."
putserv "PRIVMSG $chan :"!op <nimi> - Annad opi inimsesle."
putserv "PRIVMSG $chan :"!deop <nimi> - Võtad opi inimseslt."
putserv "PRIVMSG $chan :"!voice <nimi> - Annad voici inimsele."
putserv "PRIVMSG $chan :"!devoice <nimi> - Võtad voici inimselt."
putserv "PRIVMSG $chan :"!kick <nimi> <põhjus> - Kickid inimese kanalilt. Põhjus pole kohustuslik."
putserv "PRIVMSG $chan :"!ban <nimi> <põhjus> - Bannid inimese kanalilt. Põhjus pole kohustuslik"
putserv "PRIVMSG $chan :"!topic <uus topic> - Paneb sinu kirjutatud topicu kanali topicuks."
}
proc reeglid_pub {nick host handle chan args} {
putserv "PRIVMSG $chan :"Keelatud on teiste solvamine roppude sõnadega. (Solvata võivad ainult omad tuttavad inimesed)"
putserv "PRIVMSG $chan :"Keelatud on reklaamida teisi kanaleid. Vahest võib läbi lipsata vaid need kanalid mis võivad aidata inimsest. (#Ircworld #mp3 JNE)"
putserv "PRIVMSG $chan :"Kui keegi soovib mingeid reegleidlisada võtku ühendust Kaareliga"
}
proc cyber_pub {nick host handle chan args} {
putserv "PRIVMSG $chan :"Kui soovid, et teised ja sa ise teaksid millal su sünnip2ev on kirjuta !synna (seal kõik paremini kirjas)"
putserv "PRIVMSG $chan :"Kõik kes on saanud minu käest vastavad astmed v6ivad vaadata !opid"
putserv "PRIVMSG $chan :"Kui soovid et Botman annaks sulle ulevaate mingist filmist kirjuta !imdb <filmi nimi>"
putserv "PRIVMSG $chan :"Kui soovid vaadata Botmani staatust kitjuta !status või .besttimes"
putserv "PRIVMSG $chan :"Reeglitega on soovitatav tutvuda kah. Selleks kirjuta !reeglid"
putserv "PRIVMSG $chan :"Kui soovid teada kui palju inimsei on kanalis #cyberworld kokku olnud korraga kirjuta !visitors , samuti ilmub kiri iga liitumise ajal mitmes külastaja sa oled. (-Botman- Tere, sa oled 475 inimene või muu olevus kes on kanalisse #cyberworld sattunud alates 8 May 2003.)"
putserv "PRIVMSG $chan :"Kui tahad vaadata millal mingi inimene viimati olnud on kirjuta kanalis !seen <nimi>"
}
CAn anydoby tell me what is wrong with that code, my BOT says <Botman> [07:24] Tcl error [cyber_pub]: extra characters after close-quote
