SCAR Code:
program World16AirCrafter; //By JackLKrawl MAJOR CREDITS go to
{.include srl/srl.scar}
//Mat_de_b - Fixed MAJOR errors
//For fixing standards -Mylesmadness
const
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 //Other Directions....
x,y: integer; //keep GOLD in the first slot
I: integer; //keep ESSENCE in the second slot
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,1,1,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,1,1,false);
wait(700+random(20));
Mouse(577,318,1,1,true);
wait(700+random(20));
TypeSend('2000'+chr(13));
wait(334+random(986));
Tradedz:=Tradedz+1
end;
Procedure EnterEssence;
begin
Mouse(619,226,1,1,false);
Wait(239+random(59));
Mouse(619,318,1,1,true);
wait(286+random(340));
Typesend('25'+chr(13));
Essence:=(Essence+1)*25;
end;
procedure AcceptorDecline;
begin
if GetColor(331, 92) and GetColor(324, 290) = E then
begin
Mouse(263, 186, 1, 1, true);
Wait(200 + random(200));
Mouse(222, 311, 1, 1, true); ;
Wait(200 + random(200));
end;
if not (GetColor(331, 92)= E) or not (Getcolor(324, 290)= E) then
begin
Mouse(x, y, 1, 1, true);
end;
end;
Procedure CraftZehRunes;
begin
Mouse(x,y,1,1, true);
wait(5000);
Mouse(x,y,1,1, true);
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;
AntiRandoms;
EnterGold;
EnterEssence;
AcceptOrDecline;
CraftZehRunes;
until(I=Z);
end.