help! im still trying to write the demon script (added antirandoms and better procedures)
SCAR Code:
program New;
////////////SPECIAL THANKS TO JAD FOR PROCEDURES AND SUCH! <3
///////////START LOGGED IN FACING NORTH BY THE DEMON WITH //////////SPELL SET
{.include SRL\SRL.Scar}
const
dc=1714792;
dn='esser';
var DidRandomHappen: Boolean;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := 'ntiy';
Players[0].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 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;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
if (Result = true) then
DidRandomHappen := true;
end;
///////////////////////////////////////////////////////////////////////////
procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
if (FindNormalRandoms) then
DidRandomHappen := true;
end;
procedure Death;
begin
if (FindColor(x,y,dc,5,5,5,5))then
begin
MakeCompass('N')
wait(50+random(80));
HighestAngle;
wait(50+random(50));
MMouse(x,y,2,2);
Wait(100+random(50));
ClickMouse(x,y,false);
wait(100+random(75));
ChooseOption(x,y, 'Attack');
wait(125+random(75);
GameTab(5);
wait(100+random(100));
FindRandoms;
wait(100+random(125));
GameTab(7);
SleepAndMoveMouse(967 + random(1000));
end;
end;
/////////////////////////////////////////////////////////
procedure SetupScript;
begin
SetupSRL;
DeclarePlayers;
ActivateClient;
end;
///////////////////////////////////////////////////////////////////////////
begin
SetupScript;
end;
Death;
until (False);
end.