rj
2013-08-28 20:03:34
Just broke the 2 hour infinite loop of no posts on Villavu. Saved us from an infinite loop.
2013-08-28 20:03:34
2013-08-28 20:34:44
2013-08-28 20:53:16
2013-08-28 22:00:53
2013-08-28 22:20:41
From: Sawyer
Villavu has been kinda quiet in waiting for SRL 6. Everybody is just sitting around staring at their computer screens waiting. (sarcasm, in a small part)
2013-08-28 23:11:18
From: BMWxi
![]()
2013-08-28 23:49:03
2013-08-29 05:41:53
program NOTA_Follower;
type TPost = record
user,thread : string;
end;
function GetLatestPostInNOTA : TPost;
var s :string;
begin
s := GetPage('http://villavu.com/forum/forum.php');
s := ReplaceRegExpr('.*?Spam goes in here',s,'',true);
s := ReplaceRegExpr('</strong>.*',s,'',true);
s := ReplaceRegExpr('.*Go to first unread post in thread.*?>',s,'',true);
Result.thread := ReplaceRegExpr('</a>.*',s,'',true);
Result.user := ReplaceRegExpr('.*>',s,'',true);
writeln('Latest post in NOTA in thread: ' + Result.thread+' by '+Result.user);
end;
var LastPost, CurrentPost : TPost;
begin
LastPost := GetLatestPostInNOTA();
while true do
begin
wait(60000);
CurrentPost := GetLatestPostInNOTA();
if (CurrentPost.thread <> LastPost.thread)or(CurrentPost.user <> LastPost.user) then
begin
writeln('New post detected. Calling lion...');
OpenWebPage('http://youtu.be/hNeXXJrQDyk?t=22s');
terminatescript;
end;
end;
end.
2013-08-29 06:00:11
From: BMWxi
![]()