What does
SCAR Code:
Procedure FindNormalRandoms;
end;
Do?
Just write in FindNormalRandoms; if you need to use it, you dont need the whole procedure
SCAR Code:
procedure RockMine;
begin
if findObj(x, y, 'Mine', RockColor, 20)then //I need to Change this with some better FindObj :p
begin
if not FindGas(x, y) then
Mouse(X,y,4,4,true)
end;
end;
You never even put that in ur main loop?
SCAR Code:
Procedure AntiRandomBitmap
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Isnt needed, LoginPlayer; Automatically makes one of those for the player.
SCAR Code:
procedure drop;
begin
Dropto(2,28);
end;
Maybe make a DTM of the ore. And then..
SCAR Code:
Repeat
if FindDTM(Ore,x,y) then // or however findDTM Works
begin
Mouse(x,y,0,0,False)
ChooseOption(x,y,'rop')
end;
until( not (FindDTM))
That sort of thing?
Thats all now, Except the script wont do anything,, Just log in, and then make the antirandom thing, and then do the proggy..