Quote:
program SoHigh;
{$DEFINE SMART}
{$i SRL/srl.simba}
////////////////////////////BY KOLRO//////////////////////////////////////
////////////////////////////Ver 1.0//////////////////////////////////////
Procedure welcome;
begin
writeln(' '); //you can delate it all if it annoys you
writeln('Welcome to SoHigh');
writeln('Version 1.0 By Kolro');
writeln('Donat In-Game if you want :D');
end;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Write your nick
Players[0].Pass := ''; //Write your password
Players[0].Nick := ''; //Write 3-4 first letters of your nick
Players[0].Active:=True;
end;
//don't touch below!//
procedure Mau5;
Begin
MoveMouse(746, 183);
wait(200 + Random(20));
Mouse(746, 183, 3, 3, true);
wait(200);
Mouse(746, 186, 3, 3, true);
wait(1000);
MoveMouse(574, 326);
end;
procedure Alchemy;
begin
Mouse(574, 326, 3, 3, True);
Wait(1200 + Random(35));
Mouse(574, 326, 3, 3, true);
end;
begin
Welcome;
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ToggleXPBar(True);
Mau5;
repeat
Alchemy;
until(False)
end.