SCAR Code:
program World16AirCrafter; //By JackLKrawl
{.include srl/srl.scar}
const
Username = 'UserName'; //Fill these out, it's so I can steal
Password = 'Password'; //your account.
Chat = 8388736;//Change this to the trade color to be safe
E = 0; //Change this to the essence color
Z = 0; //This is how many times you want the script to craft airs.
var
x,y: integer;
I: integer;
Spammed: integer;
Essence: integer;
Tradedz: integer;
procedure Spaminate;
begin
Spammed:=Spammed+1;
Random(5);
case random(5) of
0: TypeSend('Open 2k!'+chr(13));
1: TypeSend('Open 2k'+chr(13));
2: TypeSend('Open 2k + Ess!'+chr(13));
3: TypeSend('Open 2k + Ess Back!'+chr(13));
4: TypeSend('Open 2000 + Essence Back!'+chr(13));
end;
end;
Procedure FindChat;
begin
if (GetColor(12,451)=Chat) Then
begin
Mouse(12,451,5,5,true);
end;
if (not(GetColor(12,451)=Chat)) Then
begin
repeat
Spaminate;
FindChat;
until(GetColor(12,451)=chat);
end;
end;
Procedure EnterGold;
begin
Mouse(577,238,5,5,false);
wait(700+random(20));
Mouse(577,318,5,5,true);
wait(700+random(20));
TypeSend('2000');
wait(334+random(986));
Tradedz:=Tradedz+1
end;
Procedure EnterEssence;
Begin
Mouse(619,226,5,5,false);
Wait(239+random(59));
Mouse(619,318,5,5,true);
wait(286+random(34));
TypeSend('25'+chr(13));
Essence:=(Essence+1)*25;
end;
Procedure AcceptorDecline;
begin
if((GetColor(331,92)= E) and (GetColor(324,290) = E)) then
begin
Mouse(263,186,5,5,true);
Wait(200+random(200));
Mouse(222,311,5,5,true);
Wait(200+random(200));
end;
if not((GetColor(331,92)=E) or (Getcolor(324,290)=E)) then
begin
Mouse(x,y,5,5,true); // Where is the x+y from?
end;
end;
Procedure CraftZehRunes;
begin
Mouse(x,y,5,5,true); // X and Y have not been assigned
Mouse(x,y,5,5,true); // ""
wait(3000+random(5000));
end;
Procedure Proggy;
begin
Writeln('----JACKLKRAWLS---WORLD16---Air---Crafter----')
Writeln('You have spammed '+ inttostr(spammed)+' Innocent People');
Writeln('You have traded '+ inttostr(tradedz)+' Air Runners');
Writeln('You have made '+ inttostr(essence)+' Rune Essence into Airs!!')
end;
begin
repeat
SetupSRL;
// ChatAndFindChat; <-- Says it doesnt exist
// AntiRandoms; <-- ""
EnterGold;
EnterEssence;
AcceptOrDecline;
CraftZehRunes;
until(I=Z);
end.