|
@ QuakeNet |
| | |
|
Inhalt / Content
- Welcome
- Links
- Eggdrop (Tcl-Commands, Manuals)
- TCL (Command Manual, Keyword, TclLib)
- Guide / Tutorial / Rulez / Helpful
- Scripts (Download Sites)
- Forum (Resources)
- Paste (Leave your text/scripts
there)
- Other (RAW-Liste, Portal)
- b0rk (Forum, Mailinglist, Wiki,
Stats)
- Files (Downloads)
- Most Wanted (Pub!Tcl, QNet Auth)
- User Files (bUrN, BouBBIN, CyBex,
Elven, Mettwurst, thommey)
- Help / Dokumentation (Packages)
- Channel rules
- Examples / Beispiele (Hello World)
- FAQ (Short Examples more
in our Forum)
- Send (Receive)
Action ( /me )
- Split Words / Get Args
- Use Colors/Bold/Underline/Reverse
- Read/Write/Append a File
|
|
|
|
Welcome
Welcome
on this Site and in our channel.
Before we begin...
We dont wanna give support for eggdrops, you should know the most
commands for partyline. When not, join #eggdrop.support!
|
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
|
|
|
|
Files
|
|
|
Channel rules
English:
- We only give you examples of how to
code something or sometimes we also take a look at your script,
but we wont code a whole script for you.
Maybe we just give you only one sentences as base for you script,
but you have to use your brain later on yourself.
- No away scripts, or any other kinds of scripts, which show
your current status in the public.
- No welcome messages, neither peak or seen scripts, no exception
if its not public.
- No excessive use of !tcl, you should use your own testchannel
for that.
- There is no need for making your bot idle in #tcl, if you
want so show us something make him join and remove him afterwards.
- We don't write your script, we give only examples
- Don't paste more then 3 lines in the channel, use a paste site!
|
Deutsch:
- 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.
- Keine Away Scripte, kein QCheck oder andere die deinen momentanen
Zustand public machen.
- Keine Welcome Message, Peak oder Seen. Egal ob Public oder
als Notice.
- Kein excessiver gebrauch von !tcl
Benutzt eure eigenen Test-Chans.
- 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.
- Wir schreiben keine Scripte für euch, wir geben nur Beispiele
- Nicht mehr als 3 Zeilen in den Channel einfügen, benutze eine Paste Seite!
|
|
|
|
Examples /
Beispiele
This one line |
Diese eine Zeile: |
bind
pub
- !hello pub:hello; proc
pub:hello { nick uhost handle channel text } { puthelp
"PRIVMSG $channel :Hello World, hello
$nick, i'm $::botnick"} |
do the same as |
macht das gleiche wie |
# required that alltools.tcl is loaded
bind
pub
- !hello pub:hello
proc
pub:hello { nick host hand chan text } {
global
botnick
putmsg $chan "Hello World,
hello $nick, i'm $botnick and i talk public"
}
|
Another examples |
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 |
|
|
|
Last Update:
7 Januar, 2007 12:45 |
|
|
|