mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-06 04:52:26 +00:00
works!
This commit is contained in:
parent
2a708f215c
commit
6f74eab47e
4 changed files with 49 additions and 98 deletions
21
test.Mod
21
test.Mod
|
|
@ -1,28 +1,27 @@
|
|||
MODULE test;
|
||||
|
||||
IMPORT irc;
|
||||
IMPORT IRC, Out;
|
||||
|
||||
VAR
|
||||
|
||||
owner, nick, serv, port, chan: ARRAY 32 OF CHAR;
|
||||
owner, nick, host, port, channel: ARRAY 32 OF CHAR;
|
||||
|
||||
PROCEDURE testBot;
|
||||
|
||||
VAR b : BOOLEAN;
|
||||
BEGIN
|
||||
irc.nick := nick;
|
||||
irc.host := serv;
|
||||
irc.port := port;
|
||||
irc.channel := chan;
|
||||
irc.user := owner;
|
||||
irc.connect;
|
||||
IF IRC.Connect(host, port) # FALSE THEN
|
||||
|
||||
b := IRC.Auth("norayr", "norayr");
|
||||
|
||||
END;
|
||||
END testBot;
|
||||
|
||||
BEGIN
|
||||
owner := "norayr";
|
||||
nick := "norayr";
|
||||
serv := "irc.freenode.net";
|
||||
host := "irc.freenode.net";
|
||||
port := "6667";
|
||||
chan := "#oberon";
|
||||
channel := "#oberon";
|
||||
|
||||
testBot;
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue