gamemaste789
2009-04-09 21:28:16
first made script it open ur broswer and gets u to runescape where u have to type in ur username and password if some 1 give me a autolog in i would be happy to add it in. //:):):):):):):):)help in script
2009-04-09 21:28:16
2009-04-09 22:23:36
2009-04-10 00:10:03
{.Includes SRL/SRL.Scar}{.Include SRL/SRL.Scar}2009-04-10 03:18:41
2009-04-10 03:21:02
2009-04-10 04:31:43
From: Frt
You could also just use OpenWebPage(URL: string);
program opensrunescape;
{.include srl/srl.scar}
begin
SetupSRL;
openWebpage('http://www.runescape.com/game.ws?m=0&j=1');
end.
program opensrunescape;
{.include srl/srl.scar}
begin
SetupSRL;
CurrentPlayer := 0;
NumberOfPlayers(1);
Players[0].Name := ''; // UserName
Players[0].Pass := ''; // Pass
Players[0].Nick := ''; // Nick #-4 Letters of your rs name not ur first
Players[0].Active := True; //Leave As True
Players[0].Booleans[0] := False; // Members?
If Players[0].Booleans[0] Then OpenWebPage('http://www.runescape.com/game.ws?m=1&j=1');
If Not Players[0].Booleans[0] Then OpenWebPage('http://www.runescape.com/game.ws?m=0&j=1');
LoginPlayer;
end.
2009-04-10 05:10:48
program opensrunescape;
{.include srl/srl.scar}
begin
SetupSRL;
CurrentPlayer := 0;
NumberOfPlayers(1);
Players[0].Name := ''; // UserName
Players[0].Pass := ''; // Pass
Players[0].Nick := ''; // Nick #-4 Letters of your rs name not ur first
Players[0].Active := True; //Leave As True
Players[0].Integers[0] := 0; // 0 for f2p 1 for p2p
OpenWebPage('http://www.runescape.com/game.ws?m='+IntToStr(Players[CurrentPlayer].Integers[0])+'j=1');
repeat
Wait(RandomRange(1, 100));
until(RSReady);
LoginPlayer;
end.
2009-04-10 07:00:18
2009-04-10 13:11:33
program opensrunescape;
{.include srl/srl.scar}
begin
SetupSRL;
CurrentPlayer := 0;
NumberOfPlayers(1);
Players[0].Name := ''; // UserName
Players[0].Pass := ''; // Pass
Players[0].Nick := ''; // Nick #-4 Letters of your rs name not ur first
Players[0].Active := True; //Leave As True
Players[0].Booleans[0] := False; // F2p is false
OpenWebPage('http://www.runescape.com/game.ws?m='+IntToStr(Integer(Players[CurrentPlayer].Booleans[0]))+'j=1');
repeat
Wait(RandomRange(1, 100));
until(RSReady);
LoginPlayer;
end.
2009-04-10 13:50:30
2009-04-10 14:26:52
program New;
{.include SRL/SRL.Scar}
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
NumberOfPlayers(1);
Players[0].Name := ''; // UserName
Players[0].Pass := ''; // Pass
Players[0].Nick := ''; // Nick #-4 Letters of your rs name not ur first
Players[0].Active := True; //Leave As True
end;
procedure Opener;
begin
OpenWebPage('http://www.runescape.com/game.ws?m=0&j=1');
Wait(5000);
end;
procedure Activater;
var
B: String;
begin
if FindWindowTitlePart('Mozilla Firefox', False) then
B := 'Mozilla Firefox'
else if FindWindowTitlePart('Windows Internet Explorer', False) then
B := 'Windows Internet Explorer';
FindWindow('RuneScape - the massive online adventure game by Jagex Ltd. - ' + B);
ActivateClient;
while not RSReady do
Wait(100);
end;
begin
SetupSRL;
Opener;
Activater;
DeclarePlayers;
LoginPlayer;
end.2009-04-10 14:37:35
2009-04-10 23:19:32
2009-04-11 13:11:51
From: gamemaste789
thanks every 1 this was my very first script, thanks for some scripts that is faster
thanks Frt but when i try to run ur script it says
Line 11: [Error] (16217:1): Identifier expected in script C:\Program Files\SCAR 3.15\Scripts\openrunescape1.scar