Kyle Undefined
2008-12-14 21:17:33
Yes, I know I posted this in the mems section but I couldn't get it moved.
Well I know that everyone has wanted to know how well our scripts are doing if they are getting leeched or what not. So me and Floor66 created this function. It uploads the proggy that you have in your script to a MySql database that I have up on the web. I know alot of you will be thinking "Oh noez! It will steal my account!" No, it wont. It only gets the proggy text. The actual site is
http://scarprogressreports.net76.net/ . The welcome page is this, I know it's not much but it's better than nothing.
Then when you click on Scar Reports and there will be a link to the show.php NOTE, WHATEVER IS POSTED IN YOUR PROGGY WILL BE POSTED UP HERE.
Those are some tests that I did while making sure it was working.
My database is freely public so nothing is hidden, you can use mine if you would like or you can setup your own. If this is good enough for a nice release I'll right a tutorial on how to setup your own MySql database site. Or if you want to use it privately but want your own database, just PM me or send me a message on MSN.
Currently, the only way to view the reports is by going here http://scarprogressreports.net76.net/show.php but I will fix that as soon as I edit the index.php
Here is the function itself
This is an example on how it would be included.
Please post your comments/suggestions or whatever else you feel. Thanks for taking the time reading :)
~Camo
Well I know that everyone has wanted to know how well our scripts are doing if they are getting leeched or what not. So me and Floor66 created this function. It uploads the proggy that you have in your script to a MySql database that I have up on the web. I know alot of you will be thinking "Oh noez! It will steal my account!" No, it wont. It only gets the proggy text. The actual site is
http://scarprogressreports.net76.net/ . The welcome page is this, I know it's not much but it's better than nothing.
Then when you click on Scar Reports and there will be a link to the show.php NOTE, WHATEVER IS POSTED IN YOUR PROGGY WILL BE POSTED UP HERE.
Those are some tests that I did while making sure it was working. My database is freely public so nothing is hidden, you can use mine if you would like or you can setup your own. If this is good enough for a nice release I'll right a tutorial on how to setup your own MySql database site. Or if you want to use it privately but want your own database, just PM me or send me a message on MSN.
Currently, the only way to view the reports is by going here http://scarprogressreports.net76.net/show.php but I will fix that as soon as I edit the index.php
Here is the function itself
{*******************************************************************************
function PostReport(ScriptName, Website, Proggy : String): Boolean;
By: Camo Kyle & Floor66
Description: Posts the Progress Report to my database which you can see
*******************************************************************************}
function PostReport(ScriptName, Website, Proggy : String): Boolean;
var
Dbase : String;
Client : Integer;
begin
Client := InitializeHTTPClient(False, False);
ClearPostData(Client);
Wait(10);
AddPostVariable(Client, 'proggy', Proggy);
AddPostVariable(Client, 'scn', ScriptName);
Dbase := PostHTTPPageEx(Client, Website);
FreeHTTPClient(Client);
Result := true;
end;
This is an example on how it would be included.
Program New;
{.include SRL\SRL.scar}
Const
Games = 5000;
GetTicketCount = 1000000;
Var
Proggy : String;
{*******************************************************************************
function PostReport(ScriptName, Website, Proggy : String): Boolean;
By: Camo Kyle & Floor66
Description: Posts the Progress Report to my database which you can see
*******************************************************************************}
function PostReport(ScriptName, Website, Proggy : String): Boolean;
var
Dbase : String;
Client : Integer;
begin
Client := InitializeHTTPClient(False, False);
ClearPostData(Client);
Wait(10);
AddPostVariable(Client, 'proggy', Proggy);
AddPostVariable(Client, 'scn', ScriptName);
Dbase := PostHTTPPageEx(Client, Website);
FreeHTTPClient(Client);
Result := true;
end;
//below is a test proggy :p
procedure ProgressReport;
begin
ClearDebug;
Writeln('==========RangeGuilder by Camo Kyle ==========');
Writeln('||===== Games Completed : ' +IntToStr(Games));
Writeln('||===== Tickets Earned : ' +IntToStr(GetTicketCount));
Writeln('||===== GP Spent : ' +IntToStr(Games * 200));
Writeln('===================================================');
Writeln('======= Don''t forget to Rep++ if you like ;) ======');
Writeln('===================================================');
Writeln('==============NO PROGGY''S NO UPDATES!=============');
Writeln('===================================================');
end;
Begin
SetupSRL;
ProgressReport;
PostReport('RangeGuilder!', 'http://scarprogressreports.net76.net/add.php', GetDebugText);
End.Please post your comments/suggestions or whatever else you feel. Thanks for taking the time reading :)
~Camo