vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 04:52:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

compiled!

Browse source
This commit is contained in:
norayr 2017-04-14 23:16:31 +04:00
parent 4c73f414b0
commit f3c9e3e006
2 changed files with 185 additions and 115 deletions
Download patch file Download diff file Expand all files Collapse all files

37
test.Mod
View file

@ -2,32 +2,41 @@ MODULE test;
IMPORT IRC, Out, Strings := ooc2Strings;
VAR
owner, user, nick, host, port, channel: ARRAY 32 OF CHAR;
PROCEDURE clbk(VAR in: ARRAY OF CHAR);
BEGIN
Out.String("callback procedure is running, youhoo!"); Out.Ln;
Out.String("input:"); Out.Ln;
Out.String(in); Out.Ln;
Out.Ln;
END clbk;
PROCEDURE testBot;
VAR
b: BOOLEAN;
inst: IRC.instance;
channels : IRC.chnlist;
b: BOOLEAN;
BEGIN
inst.owner := "norayr_shimamoto";
inst.user := "nakata_san";
inst.nick := "oshima";
inst.host := "irc.freenode.net";
inst.port := "6667";
inst.callback := clbk;
NEW(channels, 1);
channels[0] := channel;
IRC.setChannelList(channels);
channels[0] := "#oberon";
IRC.setChannelList(inst, channels);
IF IRC.Connect(host, port) # FALSE THEN
b := IRC.Auth(user, nick, owner);
IRC.Loop;
IF IRC.Connect(inst) # FALSE THEN
b := IRC.Auth(inst);
IRC.Loop(inst);
END;
END testBot;
BEGIN
owner := "norayr_tanakian";
user := "norayr_tanakian";
nick := "vocbot";
host := "irc.freenode.net";
port := "6667";
channel := "#oberon";
testBot;