en | de
 

#Tcl

@ QuakeNet
   
 

Inhalt

  1. Willkommen
  2. Links
    1. Eggdrop (Tcl-Befehle, Manuals)
    2. Tcl (Befehls Manual, Keyword-Liste, TclLib)
    3. Anleitungen / Tutorial / Regln / Hilfreich
    4. Scripte (Download Seiten)
    5. Forum (Andere Resourcen)
    6. Paste (Hinterlasse deine Texte/Scripte hier)
    7. Anderes (RAW-Liste, Portal)
    8. b0rk (Forum, Mailinglist, Wiki, Stats)
  3. Files (Downloads)
    1. TOP Files (Pub!Tcl, QNet Auth)
    2. User Files (bUrN, BouBBIN, CyBex, Elven, Mettwurst, thommey)
    3. Help / Dokumentation (Packete)
  4. Channel Regeln
  5. Beispiele (Hallo Welt)
  6. FAQ (Kurze Beispiele sind auch in unserem Forum)
    1. Versenden (Empfangen) von Action ( /me )
    2. Split Strings / Bekomme 1., 2. und/oder mehrere Worter
    3. Farben / Dick / Unterstrichen / Inverse
    4. Lesen / Schreiben / Anhängen in einer Datei

 
 
Welcome

Willkommen auf dieser Seite und in unserem Channel.

Bevor es losgeht, möchten wir noch mal betonen, das wir auch beschäftigt sind und deswegen keine Lust haben ein Script für euch zu schreiben, aber wir versuchen euch gerne zu helfen.
Wir möchten auch keinen Support für Eggdrops geben, du solltest also die gängigen Commandos für die Partyline kennen. Falls nicht, join #eggdrop.support!

 
 

Links

    Eggdrop

  1. Eggdrop Tcl-Commands 1.6.17 ( b0rk mirror )
    Alle Eggdrop Tcl Befehle und mehr
  2. Eggdrop Support 1.6.17 ( b0rk mirror )
    Andere Eggdrop Anleitungen, zB Installation, Userflags, Partyline und mehr
    Tcl

  1. Tcl Commands 8.3 / 8.4 / 8.5 ( b0rk mirror 8.3 / 8.4 / 8.5 )
    Manuals zu allen Standard Tcl-Befehlen
    Tcl Keywords 8.3 / 8.4 / 8.5 ( b0rk mirror 8.3 / 8.4 / 8.5 )
    Stichwörter suchen ?
  2. Tcl/Tk Haupt Seite
  3. Tcl Library
    1. Homepage der starken Bibliothek mit vielen Funktionen
    2. Sourcefourge Seite
    3. Manual Seiten
    Guide / Tutorial / Rulez / Helpfull

  1. Tcl Eggdrop Beginner Guide -
    Nett kurze Einführung wie man Eggdrop Scripte schreibt
  2. Tcl Eggdrop Guide -
    Nettes Guide, um intensiver was über Eggdrop Programmierung zu erfahren
  3. Deutsches Tcl Guide (PDF)
    Kurze allgemeine Einführung in Tcl
  4. How to write eggdrop scripts that won't choke on brackets and other special characters
    Wie schreibe ich Eggdrop Scripte, die sich nicht an Sonderzeichen verschlucken
    Scripts

  1. Slennox egghelp.org
  2. bseen Script Seite
  3. Tclscript.com
    Forum / Wiki

  1. Offizielles #Tcl Forum
  2. Slennox egghelp.org community / Offizielles Eggheads Forum
  3. Tclscript.com Forum
  4. MC8 PureHype User Forum
  5. The Tcler's Wiki
  6. Eggdrop Wiki
    Paste Links

  1. #Tcl Paste
  2. Paste Seite vom EFNet #Tcl Team
  3. quakenet:#php - The FREE place to paste your source!
  4. extraball notepad
    Andere nützliche Links

  1. #help.script - RAW-List
  2. Self-Tcl - Portal
 
 
 

Files

    Most wanted Tcl-Scripts

  1. QuakeNET Auth from Elven
  2. PUB !Tcl from Nevermore ( gzip / txt )
    It allow !tcl with tcl-commands in a channel
    User Files (in alphabetical order)

  1. burn like a Radioscript
  2. BouBBIN (Finnish site for #tcl.fi channel)
  3. CyBex has only beta's :-)
  4. Elven - has many nice scripts
  5. Mettwurst - Streamdata, Lagcheck
  6. thommey has maskhost and patches
    Help / Dokumentation Files

  1. Eggdrop 1.6.17 Dokumentation
  2. Tcl 8.35
  3. Tcl 8.46
  4. Tcl 8.5
 
  Channel rules
  1. Wir geben nur Beispiele oder schauen uns auch mal dein Script an, aber wir schreiben dir nicht dein Script.
    Eventuell geben wir dir einen einfach Einzeiler als Grundgerüst, du musst aber trotzdem noch selbst dein Hirn einschalten.
  2. Keine Away Scripte, kein QCheck oder andere die deinen momentanen Zustand public machen.
  3. Keine Welcome Message, Peak oder Seen. Egal ob Public oder als Notice.
  4. Kein excessiver gebrauch von !tcl
    Benutzt eure eigenen Test-Chans.
  5. Es besteht keine notwendigkeit, das dein Bot in #tcl idlet. Wenn du uns etwas zeigen möchtest, lass ihn joinen und entferne ihn einfach später.
  6. Wir schreiben keine Scripte für euch, wir geben nur Beispiele
  7. Nicht mehr als 3 Zeilen in den Channel einfügen, benutze eine Paste Seite!
 
  Beispiele

Diese eine Zeile:

bind pub - !hello pub:hello; proc pub:hello { ircnick userhost handle channel text } {     puthelp "PRIVMSG $channel :Hallo Welt, Hallo $ircnick, Ich bin $::botnick und antworte öffentlich" }


macht das gleiche wie

# benötigt das die Alltools.tcl geladen ist
bind pub - !hallo pub:hallo
proc pub:hallo { nick host hand chan text } {
    global botnick
    putmsg $chan "Hallo Welt, Hallo $nick, Ich bin $botnick und antworte öffentlich"
}


Andere Beispiele

# required that alltools.tcl is loaded
bind pub - !example pub:example
proc pub:example { ircnick userhost handle channel text } {
    global botnick
    putmsg $channel "Hello World, hello $ircnick, i'm $botnick and i talk public"
    putact $channel "is talking in action"
    putmsg $ircnick "Sorry for query $ircnick, your first word was [lindex [split $text] 0]"
    putnotc $ircnick "Hello $ircnick, this is a notice, the rest of your words are [join [lrange [split $text] 1 end]]"
}


See also: proc, eggdrop output, misc, globvars, *raw-list*, *scripts/alltools.tcl*

 
  FAQ (more in our Forum)

How can i send Actions?


Wie kann ich ACTIONs versenden?

# without Alltools.tcl loaded in config
puthelp "PRIVMSG #channel :\001ACTION is slaping himself\001"
# with Alltools.tcl loaded in config
putact #channel "is slaping himself"
See also: eggdrop output,*raw-list*, *scripts/alltools.tcl*

How can i receive Actions?


Wie kann ich ACTIONs empfangen?

# bind the ctcp-event with keyword "action" to proc ctcp:action
bind ctcp - ACTION ctcp:action
# dest is the channel or botnick (for query)
proc ctcp:action {ircnick userhost handle dest key text} {
    # stop on special users
    if {[string index $dest 0]=="#"} then {
        if {[matchattr $handle bmovf|movf $dest]} then {return 0}
    } elseif {[matchattr $handle bmovf]} then {return 0}
    # search for "is away" in text
    if {[string match -nocase "*is away*" $text]} then {
        # convert text for output when it is a query
        if {[string equal -nocase $::botnick $dest]} {set dest "privat chat"}
        # send notice to ircnick
        puthelp "NOTICE $ircnick :Shutup your away message in $dest!"
        # return 1 ; # for stop other eggdrop procs (not active now)
        # make sure you want stop other procs (like repeat checks, chan rules script)
        # can be looked with '.binds ctcp all'
    }
    return 0 ; # normal/next eggdrop processing
}


See also: eggdrop output, user, misc, globvars

How can i get the first, the second and other words?


Wie komme ich an das Erste, das Zweite und die anderen Wörter?

# text is mosttime the last arg for the msg,pub,ctcp,..,.. bind event.
# this example use everytime this text to show results "Example [and] {test} text"
set text "Example \[and] \{test} text"; # this text is in use in every example

# quick example (counts begins with 0)
set arg1 [lindex [split $text] 0]; # set to arg1 "Example"
set arg2 [lindex [split $text] 1]; # set to arg2 "[and]"
set arg3- [join [lrange [split $text] 2 end]]; # set to arg3- "{test} text"

# long example
set list [split $text]; # convert a string into a proper Tcl list (Result = "Example {[and]} {{test}} text")
# tcl show only the {word} when special chars exists
set firstword [lindex $list 0]; # get the first word (Result = "Example")
set firstword [lindex [split $text] 0]; # is the same but shorter: (Result = "Example")
set secondword [lindex $list 1]; # get the second word (Result = "[and]")
set thirdandmorelist [lrange $list 2 end]
# get the third and more words (lrange return a list) (Result = "{{test}} text")
set thirdandmorestring [join $thirdandmorelist];
# convert the list to a string (Result = "{test} text")
set thirdandmorestring [join [lrange [split $text] 2 end]]
# is the same but shorter (Result = "{test} text")


See also: list, split, join, lindex, lrange, *special chars*

How can i send bold, underline, reverse or color?


Wie kann ich in Bold, Unterstrichen, Reverse oder in Farbe senden?

# bold = \002
set text "\002 bold \002"
# underline = \037
append text "\037 underline \037"
# reverse = \026
putmsg #channel "\026 reverse \026"
# color = \003[fg[,bg]] (fg=foreground (textcolor/schriftfarbe), bg=background (hintergrund)
puthelp "PRIVMSG #channel :\0034,3 red on green \0032 textcolor blue \003 color reset"
# all colors number are the same like mIRC:
# 0=white, 1=black, 2=darkblue, 3=darkgreen, 4=red, 5=brown, 6=magenta, 7=orange
# 8=yellow, 9=lightgreen, 10=darkcyan, 11=lightcyan, 12=lightblue, 13=pink, 14=darkgrey, 15=lightgrey


See also: eggdrop output, *scripts/alltools.tcl*


How can i read/write a file?


Wie kann ich eine Datei lesen?

## reading:
set filesocket [open "your filename" r]; # open the file
set data(0) [gets $filesocket]; # read line1
set data(1) [gets $filesocket]; # read line2
close $filesocket; # close the file

set filesocket [open "your filename" r]; # open the file
set data [read $filesocket]; # read all
close $filesocket; # close the file
# now you have everything in data and can split $data \n for every line
# like: set line(0) [lindex [split $data \n] 0]; set line(1) [lindex [split $data \n] 1];

# writing or appending (not really required, append creates a file too)
if {![file exists "your filename"]} then { ; # check for file exist
    set fs [open "your filename" w]; # when not exist open with create
} else {
    set fs [open "your filename" a]; # other open with append
}
puts $fs "your data"; # puts one line to file
close $fs ; # close file


See also: file, filename, open, close, eof, gets, read, tell, seek, fblocked, flush, *forum*
 
Colors/Farbe: eggdrop command, eggdrop trigger type, tcl ommand, string
 
Welcome - Links - Files - Channel rules - Examples / Beispiele - FAQ
 
 
Any question, hints, tips or suggestion?
Write an eMail to quakenet-tcl-site @ cybex.eng.b0rk.de!
Flags by 3DFlags.com
Fragen, Hinweise, Tips oder Anregungen?
Schreib eine eMail an quakenet-tcl-site @ cybex.ger.b0rk.de!
Flaggen von 3DFlags.com
 
Last Update: 7 Januar, 2007 12:49