Don't bash the guy. It's great that he's learning, and an autotalker is the easier way to learn. Here's some tips:
Simba Code:
Procedure UsernameandPass;
Begin
Mouse(543, 324,3,3,true);
TypeSend(Username);
wait(500+Random(200));
Mouse(543, 372,3,3,true);
wait(100+Random(50));
TypeSend(Password);
end;
Procedure DoLogin;
var
x, y : Integer;
Begin
Mouse(445, 413,20,2,true);
WriteLn('Clicked Login');
WriteLn('Waiting For Lobby!');
repeat
wait(2000)
LoggedHalf := (FindColorTolerance( x, y, 4357011, 270, 449, 407, 607, 10))
until(LoggedHalf=True);
WriteLn('Found Lobby')
Wait(500+Random(200));
Mouse(383, 462,5,5,true);
repeat
wait(2000)
LoggedHalf := (FindColorTolerance(x, y, 726554, 270, 449, 407, 607, 10))
until(LoggedHalf=False)
end;
Login functions are already included
. Just use this:
Simba Code:
procedure DeclarePlayers;
Begin
HowManyPlayers := 2;
NumberOfPlayers( HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';//3-4 phrase from your name Ex. "ownage" = "nag"
Players[0].Active := True;
End;
You can just delcare DeclarePlayers at the beginning of your script. Then you can use LoginPlayer or LogOut. There's more, but those are the most useful.
Also, the begins and ends aren't required for it to work in a simple if-then statement with only 1 action. Example =
Simba Code:
if (JagexKissAss = True) Then
WriteLn('You Disgust Me...') //Just Kidding
else
WriteLn('Almost Done...');
Just don't put a ';' unless you're ending your if-then statement.
E: With booleans you can just say
It's like saying :
Simba Code:
if (WeChopTheTree) then
FindAnotherTree;
if you want it to check for a false, just do
Simba Code:
if not(JagexKissAss) then
That just means if the boolean is not true then..