[EGGDROP] Programimi ne TCL

[centos]

Per te mesuar se cfare eshte TCL kliko ketu: https://www.tcl.tk/
Ketu po filloj nje postim qe do vazhdoje brenda ksaj tju shpjegoj hap pas hapi si te programoni skript per eggdrop ne IRC
Bind jan evente per eggdropin dhe eventet vazhdojne ketu:

bind <lloji> <flagset> <pershtatje> <emri procesit>

Eggdrop Bind (evente) list:

MSG nickuser@host handle text
DCC handle idx text
FIL handle idx text
PUB nickuser@host handle channel text
MSGM nickuser@host handle text
PUBM nickuser@host handle channel text
NOTC nickuser@host handle text dest
JOIN nickuser@host handle channel
PART nickuser@host handle channel msg
SIGN nickuser@host handle channel reason
TOPC nickuser@host handle channel topic
KICK nickuser@host handle channel target reason
NICK nickuser@host handle channel newnick


Procesi vazhdon sipas eventit qe ju krijoni dhe e shikoni tek lista me siper
Pershembull:
MSG nickuser@host handle text

bind msg - *Hello* molecule

proc molecule {nick host handle text} {
#funksionet e tjera ketu brenda { }
}

nje script i thjeshte i kompletuar me event dhe process

bind pubm - kick pubm:kick
proc pubm:kick {nick host hand chan text} {
noaccess $nick
}

proc noaccess {who} {
puthelp "PRIVMSG $who :Sorry $who, you do not have access to that command"
}

Postimi rradhes do ju ndertoj nje script te kompletuar me shpjegime hap pas hapi.