CynicRus
08-15-2013, 06:54 AM
Hey. Very simple implementation of the GetMemberStatus function, and so slowly now:)
program new;
function GetMemberStatus(Name: string):boolean;
var
info,addr: string;
i,j: integer;
begin
addr:= 'http://services.runescape.com/m=adventurers-log/display_player_profile.ws?searchName=';
info:=GetPage(addr+name);
j:=PosEx('<span class="G0">',info,16000);
if (J <> 0) then
begin
i:=PosEx('Non-member Account',info,J);
if I<>0 then
result:=false
else
result:=true;
end
else
begin
WriteLn('Error: We dont have info!');
Result:=false;
exit;
end;
end;
begin
writeLn(ToStr(GetMemberStatus('CynicRus')));
writeLn(ToStr(GetMemberStatus('Jake')));
end.
Output:
Compiled successfully in 15 ms.
False
True
Successfully executed.
program new;
function GetMemberStatus(Name: string):boolean;
var
info,addr: string;
i,j: integer;
begin
addr:= 'http://services.runescape.com/m=adventurers-log/display_player_profile.ws?searchName=';
info:=GetPage(addr+name);
j:=PosEx('<span class="G0">',info,16000);
if (J <> 0) then
begin
i:=PosEx('Non-member Account',info,J);
if I<>0 then
result:=false
else
result:=true;
end
else
begin
WriteLn('Error: We dont have info!');
Result:=false;
exit;
end;
end;
begin
writeLn(ToStr(GetMemberStatus('CynicRus')));
writeLn(ToStr(GetMemberStatus('Jake')));
end.
Output:
Compiled successfully in 15 ms.
False
True
Successfully executed.