Hello, i need some help with my PieBsMaker that iam making now
the problem is it opens the bank but it does not find flax i got DTM for flax.But it just sits there...Help?
SCRIPT HERE.
SCAR Code:
program PieBsMaker;
{.include SRL/SRL.scar}
Const
Loads = 9;//How many loads you want to do
BankBoothColor = 5865356;//Only change if doesn't find bank booth at all.
Var
Flax: Integer;
LoadsA: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Procedure Bank;
begin
repeat
If FindColor(x,y,BankBoothColor,0,0,450,450)then
MMouse(x,y,3,3);
Wait(300+random(700));
Until (IsUpText('oth'));
If (IsUpText('oth'))then
Mouse(x,y,1,1,false);
Wait(500+random(600));
ChooseOption(x,y,'kly');
end;
Procedure WithrawFlax;
begin
Flax := DTMFromString('78DA638C65646010056220606680014606393' +
'0C9C0F01F0818D3812C3154359CD17C7035601DA940161FAA9AB8' +
'A32751D40000D3D7082D');
if(FindDTM(Flax,x,y,MSX1,MSY1,MSX2,MSY2))then
begin
Mouse(x,y,2,2,false);
Wait(1000+random(300));
ChooseOption(x,y,'all')
end;
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;
end;
Procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;
begin
SetupSRL;
DeclarePlayers;
If Not LoggedIn Then
LoginPlayer
repeat
Bank;
WithrawFlax;
Until(Loads = LoadsA);
If (Loads = LoadsA)then
Exit;
TerminateScript;
end.