R0b0t1
2009-03-01 01:04:55
program Debate;
var
Disputees: Array of TUser;
procedure Post(message: String)
begin
TypeInStuff();
HitTheShinyButton();
end;
procedure Init(Thread, ThreadType, Topic: String; Users: Array of TUser);
begin
Post('Topic: ' + Topic + #10#13 +
'Location: ' + ThreadType + #10#13 +
'Text: ' + Thread);
Interest(Users);
ForceUsersToPost(Users);
end;
begin
SetLength(Disputees, NumberOfMembers);
Init('Decide what the word "cheating" means.'#10#13
'If you can, post as SCAR. Notice the program doesn''t have an
"end." yet.',
'Discussions & Debates', 'What is cheating?');