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