A "Ticket System" - Help

[Kripto]

Hello guys, I am new @ TCL,
1. Who can give me guides to learn TCL? I know mirc scripting...
2. Who can help me to build a system, that if someone say in #channel !help its msgs #channel2 nick is need help, please help him and msgs the user, please wait while some admin will help you, and admins can write to the bot !online or !offline and if there is no admin online the bot says I am sorry there is no admin avilable
3. Who can give me the basic code for on *:text:*Bla*:#: { //msg $channel or $nick hey hello and bye }
?
10x.

btw... I can put many scripts on 1 eggdrop?
what are the basic commands that come with eggdrop?

[pnp]

Some Links that will help you out.
SUNiNET's Guide to TCL scripting for Eggdrop 1.6 - a great primer
tclscript.com tutorials
The tcl wiki - huge plethora of information
tcl.tk documentation - a great starting spot for learning tcl

Download the eggdrop source to your computer and extract the documentation from the tar(\eggdrop1.6.x\doc\html), its invaluable to a beginner. And all the eggdrop tcl commands are in it which you will need when you progress further then the beginner tutorials.

I would recommend you stop right now from thinking there is a simularity between mIRC scripting and tcl scripting, it will only get you into trouble.

[]Kami[]

Hello guys, I am new @ TCL,
1. Who can give me guides to learn TCL? I know mirc scripting...
2. Who can help me to build a system, that if someone say in #channel !help its msgs #channel2 nick is need help, please help him and msgs the user, please wait while some admin will help you, and admins can write to the bot !online or !offline and if there is no admin online the bot says I am sorry there is no admin avilable
3. Who can give me the basic code for on *:text:*Bla*:#: { //msg $channel or $nick hey hello and bye }
?
10x.

btw... I can put many scripts on 1 eggdrop?
what are the basic commands that come with eggdrop?

Well, this is answer for 3th question:

Code: Select all

bind pub -|- "bla" pub:bla

proc pub:bla {nick host handle chan arg} {
  putquick "PRIVMSG $chan :hey, hello and bye"
} 

(it could be done in many other ways too...)

Well, and this one is for second

Code: Select all

set chan1 "#channel1"

# Here you put chan, on which you want !help to work

set chan2 "#channel2" 

# Here you put on which bot will msg request for help...

bind pub -|- "!help" pub:help
bind pub -|- "!online" pub:on
bind pub -|- "!offline" pub:off

proc pub:help {nick host handle chan arg} {
global chan1 chan2

if { $chan == $chan1 } {
  putquick "PRIVMSG $chan2 :$nick in $chan1 need help.Please help him :)"
  putquick "PRIVMSG $nick :Please wait a while, help is comming :P"
  return 0
 } 
}
proc pub:on {nick host handle chan arg} {
global chan1 chan2

if { $chan == $chan2 } {
  putquick "PRIVMSG $chan1 :Few moments and help will be there :P"
  return 0
 }
} 

proc pub:off {nick host handle chan arg} {
global chan1 chan2

if { $chan == $chan2 } {
  putquick "PRIVMSG $chan1 :Admins are busy atm, plz try again in some time..."
  return 0
 }
} 

I'm not sure if is working, i didn't test it...But it should work

-Update:I just test the script.It works ok