SCAR Code:
program World16AirCrafter; //By JackLKrawl MAJOR CREDITS go to
{.include srl/srl.scar}
//Mat_de_b - Fixed MAJOR errors and standards
const
Chat = 8388736; //Change this to the trade color to be safe
E = 4671309; //The Essence Color, you may need to change it
Crafts = 0; //This is how many times you want the script to craft airs.
A = 580; //Ignore these
B = -14524745;
C = 324;
D = 290;
Name = 'blagh';//Switch this to your own username
Password = 'blagh';
Nickname = 'lag';
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; //
altar: integer;
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
HowManyBooleans := 2;
Players[0].Name := (Name);
Players[0].Pass := (Password);
Players[0].Nick := (Nickname);
Players[0].Integers[0] := 20;
Players[0].Booleans[0] := True;
Players[0].Booleans[1] := False;
Players[0].Extendeds[0] := 3.141592654;
Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
LoadPlayerArray;
end;
procedure Login;
begin
If(not(loggedin)) then
begin
login;
end;
end;
function FindFastRandoms: Boolean; //by WT-Fawaki
var
i: Integer;
begin
for i := 1 to 9 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
end;
Wait(1);
end;
end;
procedure Spaminate;
begin
FindNormalRandoms;
FindFastRandoms;
Spammed:=Spammed+1;
wait(500+random(600));
Random(5);
case random(20) of //Note: These spelling mistakes are not
0: TypeSend('Open 2k '+ name); //real mistakes
1: TypeSend('Open 2k '+ name);
2: TypeSend('Open 2k + Ess! -'+ name);
3: TypeSend('Open 2k + Ess Back!');
4: TypeSend('Open 2000 + Essence Back! ' + name);
5: TypeSend('wave2:Open 2k');
6: TypeSend('Open 2k');
7: TypeSend('Oepn 2k ' + name);
8: TypeSend('red:wave2:Open 2k '+ name);
9: TypeSend('Open 2000 + Essence Bavk! ---'+ name);
10: TypeSend('glow2:Open 2k ' + name);
11: TypeSend('Open 2K!');
12: TypeSend('Open 2000 '+ name);
13: TypeSend('white:Open 2k');
14: TypeSend('Open 2k+Ess');
15: TypeSend('Open');
16: TypeSend('Open 2000..');
17: TypeSend('Open 2k + ess Back!!');
18: TypeSend('Open 2k');
19: TypeSend('Open 2k+Ess Bck --- '+name );
end;
end;
procedure FindChat;
begin
FindNormalRandoms;
wait(200);
FindFastRandoms;
Wait(600+random(30));
if (GetColor(12,451)=Chat) Then
begin
Mouse(12+random(100)-random(100),451+random(5)-random(5),1,1,true);
wait(500+random(200));
end;
if (not(GetColor(12,451)=Chat)) Then
begin
Spaminate;
wait(100+random(200));
FindChat;
end;
end;
procedure EnterGold;
begin
Mouse(577+random(10),238+random(10),1,1,false);
wait(500+random(200));
Mouse(577+random(10),318+random(10),1,1,true);
wait(500+random(200));
TypeSend('2000'+chr(13));
wait(334+random(500));
Tradedz:=Tradedz+1
end;
procedure EnterEssence;
begin
Mouse(619+random(10),226+random(10),1,1,false);
Wait(500+random(120));
Mouse(619+random(12),318+random(12),1,1,true);
wait(400+random(340));
Typesend('25');
Essence:=(Essence+1)*25;
end;
procedure AcceptorDecline;
begin
begin
if GetColor(331, 92) and GetColor(324, 290) = E then
Mouse(263+random(9), 186+random(9), 1, 1, true);
Wait(200 + random(200));
Mouse(222+random(19), 311+random(10), 1, 1, true);
Wait(200 + random(200));
end;
if not (GetColor(A, B)= E) or not (Getcolor(C, D)= E) then
begin
Mouse(260-random(10), 264-random(5), 1, 1, true);
wait(500);
Spaminate;
FindChat;
EnterGold;
EnterEssence;
end;
end;
procedure CraftZehRunes;
begin
FindFastRandoms;
FindNormalRandoms;
perfectnorth;
Altar := DTMFromString('78DA637CC1C0C010CC80025262C2C0342394C' +
'FF80E4844A2AA898E084555F31348D8A2AAB1B3304155F3154868' +
'A1AA3137D24155F31F4804A0AA09F476435573154864A0AA49881' +
'74455730748F8A0AAC94C884255F30A48C4A19913E18FA2060019' +
'F9111D');
if(FindDTM(Altar,x,y,0,0,100,100)) then
begin
Mouse(x-random(5),y-random(5),1,1,true);
wait(200+random(200));
Mouse(x-random(100),y-random(100),1,1,true);
end;
if(not(FindDTM(altar,x,y,0,0,100,100))) then
begin
Wait(100000000000);
terminatescript;
end;
I:=I+1;
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;
DeclarePlayers;
Login;
Spaminate;
FindNormalRandoms;
FindFastRandoms;
FindChat;
EnterGold;
EnterEssence;
AcceptOrDecline;
CraftZehRunes;
FindNormalRandoms;
FindFastRandoms;
Proggy;
until(I=Crafts);
end.
Blagh! It keeps giving me