Forum: Tcl scripting

Ma chinui de 2 zile la un script si nu reusesc sa`i dau nicicum de cap, am cautat tutoriale pe net si asa am dat si de forumul vostru :) Scriptul functioneaza pana intr`un anumit loc : bind pub -|- !topic pub:topic set topictimer "1" proc pub:topic {nick uhost hand chan txt} { set...

Salut. Am nevoie de un TCL care sa contina functiile: !rehash , !die, !restart, !jump va rog mult de tot.

bind pub vlg|vlg !a a:set bind join - * help:check bind time - "* * * * *" idle:check setudef flag admins proc a:set {nick uhost hand channel txt} { if {!} return

bind join -|- * a:vip:voice proc a:vip:voice {nick host hand chan args} { global vip username set ghost if {! || !} {return} if {} { foreach v $vip($chan) {if {]} { pushmode $chan +v $nick putcmdlog "<<${username}>> VIP -- $chan ${nick}!${host}"} else {return}}

stie careva cum pot sa fac un proc care sa execute comenzi TCL de pe irc? cum e comanda dcc din botnet .tcl :)

### # SETINGS ### # reply when someone tries to ban the robot: set edu(dontban) "Access denied" ### # reply when someone uses the public commands and the robot is not opped: set edu(noop) "I'm not opped!"

bind mode - *+o* strict:op proc strict:op {nick uhost hand chan args} { global botnick set deoped ] set list(op) "FILES/username/$chan.db" if {!} { set list puts $list $botnick ...

Salut , am si eu o problema cu un script de antiswear . stiu ca este deja unul pe forum , dar as dori sa ma ajutati cu acesta va rog .. In a&a_22_a_local_n.tcl am adaugat asa a:command -add swear pub:antiswear 0001 001 |n proc pub:antiswear {hand chan args x mix} { global settings sw...

salut , caut un tcl ptr weather .. care sa dea rezultatele de pe google . Daca intrii pe google.ro si cauti : "vreme oras" iti spune timp probabil, temperatura , umiditatea si viteza vantului.

bind time - "* * * * *" joinstats bind time - "* * * * *" joinstatsone proc joinstats {minute hour day month year} { global settings set ops 0 set voices 0 foreach chan { set users for { set total 0 } { $total < } { incr total } {

imi raman deschise prea multe fileuri.. sau mai bine zis file "channels" ... cand pornesc eggu am decat stdin stdout stderr asta vad prin comanda .tcl putlog ... dupa o ora... TIMED ROUTINE -- 1 HOUR Writing user file... Writing info file ... channel file... <Squit> .tcl putlog "" ...

salutare. am nevoie de putin ajutor cu un script cs incerc sa il fac sa mearga. Pana acum nu am reusit sa ii dau de cap. Poate reusesc cu ajutorul vostru. sunt ncepator in tcl. bind pub -|- .bot pub:chat proc pub:chat {nick host hand chan text} { if {} { putserv "CTCP $nick :CHAT" } else...

#joins set {mc_resp(*NICKNAME*onjoin123)} {"\00304IiioooooiiiiIII... \00301a venit sefu \00304with \00301Ciocu Mic Sa Nu`l Suparati :)" \ "Respectele Mele Domnu with ." \ "Neatsa %nick . Cum Te Simti Azi Sefu :>"} set {mc_resp(*BumbleBee*onjoin123)} {"\00304OOoooo......

salut am si eu nevoie de cineva care se pricepe sa modifice un TCL (sunt sigur k toti puteti :D ) care sa nu mai trebuiasca sa intri in CHAT cu respectivul eggdrop, ci sa dau direct de pe canal public comanda sa se activeze. Atat tot, aici va las archiva.. bind join - * clone:check ...

### # SETINGS ### # reply when someone tries to ban the robot: set edu(dontban) "Access denied" ### # reply when someone uses the public commands and the robot is not opped: set edu(noop) "I'm not opped!"

Am si eu nevoie de un simplu tcl , Cand cineva cu access global la egg da join pe un canal, sa spuna pe canal ' buna <nick> tu esti owner-ul meu." Ceva de genul asta :)

Salutare! As avea si eu o problema, legat despre acest script, problema ar fi ca eu atunci cand dau pe canal .spam nick merge, dar daca dau .spam *!ident@host nu mai merge imi da eroarea urmatoare: Tcl error : can't read "mask": no such variable . Poate-mi spuneti voi cam ce nu este corect aici...

Salutare! Am si eu 1 script s-as vrea sa-l fac sa deie BAN pe zile dar nu stiu cum sau ce ar trebui sa mai adaug aici. Daca ma puteti ajuta sau sa-mi spuneti ce mai trebuie facut. Va multumesc s-astept mesajele voastre. proc pub:b {nickname hostname handle channel text} { global botnick edu...

Am si eu un badchan tcl, dar unele lucruri nu merg cum ar fi, De adaugat un canal local !abc <canal> merge.. dar nu reactioneaza deloc..daca un user se afla pe canal`ul respectiv..2: nu pot da remove la un canal cu comanda globala !grbc <canal> nu merge...si multe altele..daca se poate sa mi-l...

Sunt destul de nou in chestia asta ... si citind posturile de pe aici am gasit un tcl simplu ... pe care l-am mai modificat dupa ce am citit un tutorial de tcl-scripting dar ... nu reusesc sa`l fac sa mearga .. bind pubm - re answ proc answ {nick uhost hand chan text} { putserv "privmsg...