source:
code/trunk/bin/irc.tcl
@
2051
Last change on this file since 2051 was 1893, checked in by landauf, 16 years ago | |
---|---|
|
|
File size: 187 bytes |
Rev | Line | |
---|---|---|
[1505] | 1 | proc every {ms body} { eval $body; after $ms [list every $ms $body] } |
2 | package require irk | |
[1893] | 3 | set conn [irk::connect orxonox $nickname] |
[1505] | 4 | irk::join $conn #orxonox |
5 | every 25 {} | |
6 | vwait termination |
Note: See TracBrowser
for help on using the repository browser.