SCAR Code:
procedure FightReport;
begin
ChangeReportWidth(280);
ClearReport;
AddToReport(' /^^^^^^^^^^^^^^^^^^^^^^^^^^^^\');
AddToReport('| <- RICK 4 SRL -> |');
AddToReport('| Pest Controller V2.0 |');
AddToReport('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
if (Wins > 0) then
AddToReport('| game win[s] : ' + SRLReportInStyle(Wins));
if (loses > 0) then
AddToReport('| game lose[s] : ' + SRLReportInStyle(loses));
if (NotEnough > 0) then
AddToReport('| not enough points : ' + SRLReportInStyle(NotEnough));
if (NoSt > 0) then
AddToReport('| Game win status error : ' + SRLReportInStyle(NoSt));
if (Login > 0) then
AddToReport('| Time[s] logged in : ' + SRLReportInStyle(Login));
AddToReport(' \~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
end;
SCAR Code:
Procedure WaitForGameStart;
begin
If Not LoggedIn then
begin
Players[CurrentPlayer].loc := 'logged out in boat';
WriteLn('- player logged out in boat! wait 1 min and try again');
WriteLn('');
Wait(3000);
report;
Wait(60000);
LoginPlayer;
Login := Login + 1
WriteLn('- were back! now try it all agian!');
WriteLn('');
WaitCount := 0;
end;
status('waiting for game start');
Wait(1500);
WaitCount := WaitCount + 1
If (WaitCount = 30) then
begin
Case random (5) of
0: TypeSend('lets do this');
1: TypeSend('yay');
2: TypeSend('w00t');
3: TypeSend('cmon');
4: TypeSend('yes');
end;
end;
If (WaitCount = 50) then
begin
Case random (5) of
0: TypeSend('yayyy');
1: TypeSend('comon');
2: TypeSend('goo');
3: TypeSend('im pumped');
4: TypeSend('yeah');
end;
AntiBan;
end;
If (WaitCount = 70) then
begin
Case random (5) of
0: TypeSend('omg go');
1: TypeSend('comonnnn');
2: TypeSend('omg comonn');
3: TypeSend('Go o o oo');
4: TypeSend('lets do thisssss');
end;
AntiBan;
If (WaitCount = 100) then
AntiBan;
If (WaitCount = 130) then
AntiBan;
end;
end;
SCAR Code:
var
Looking, AttLvl, StrLvl, DefLvl, HpLvl, ComLvl, PestPoints, FTime : Integer;
WaitCount, Check, Wins, loses, NotEnough, NoSt, Login : Integer;