SCAR Code:
program New;
procedure SendXp;
var xpshareclient: integer;
woodxp, minexp, fishxp, combatxp, fletxp, smithxp: integer;
begin
woodxp := 3;
xpshareclient := InitializeHTTPClient(false, false);
ClearPostData(xpshareclient);
AddPostVariable(xpshareclient, 'Woodcutting', IntToStr(woodxp));
AddPostVariable(xpshareclient, 'Mining', IntToStr(minexp));
AddPostVariable(xpshareclient, 'Fishing', IntToStr(fishxp));
AddPostVariable(xpshareclient, 'Combat', IntToStr(combatxp));
AddPostVariable(xpshareclient, 'Fletching', IntToStr(fletxp));
AddPostVariable(xpshareclient, 'Smithing', IntToStr(smithxp));
PostHTTPPageEx(xpshareclient, 'http://cutem2it.freeweb7.com/xpshare.php');
FreeHTTPClient(xpshareclient);
end;
begin
SendXp;
end.