Lol, same thing happened to me today. Thanks again, Smartz
I'll test your script out now.
Havn't tested it yet, but I have read through it. Here are a few pointers:
SCAR Code:
procedure FindRandoms;
begin
FindNormalRandoms;
// if(FindFight)then RunAway;
if Findname Then FindTalk;
end;
You gotta be careful with those "//", adding them means that that line of the script is for user notes only, excluding it from part of the script.
SCAR Code:
begin
Setup;
activateclient;
repeat
miner;
dropal;
until(loadsdone = loads);
logout
end.
If you replace the area around "logout" with:
SCAR Code:
until(Loadsdone=Loads)
if(Loadsdone=Loads)then
NextPlayer(true)
What that does is checks to see if Loadsdone=Loads, then it switches players. Notice the boolean to the right of "NextPlayer"? That means that the current player can still be used in the future, and is only being logged out for a while.
SCAR Code:
procedure miner;
begin
repeat
if findcolorspiral(x,y,rockcolor,3,3,510,332) then
mmouse(x,y,3,3)
istextat2(9,9,'Mine',20)
mouse(x,y,2,2,true)
wait(rocktime+random(randomtime))
begin
FindRandoms;
end;
until(invfull)
if (invfull = true) then
loadsdone:= loadsdone + 1;
end;
Two things here.
1) You can change "IsTextAt2(...)" to "IsUpText('Mine')" and save some time typing.
2) Notice the bottom of the procedure. You have it check to see if the inventory is full, but you don't have a command to drop anything. Placing:
SCAR Code:
if(InvFull)then
begin
Loadsdone := Loadsdone + 1
Dropall;
In there will fix it.
Those are just minor errors. All in all, good first script 
I'm on till at least 3-4 in the morning on weekends (EST), so feel free to PM me if you have any more questions.