SRL Archive - First Scripts

heres a nice little power miner i tryed making test it out:







program PowerMiner;

(.include SRL/SRL.scar)

const
rockcolor1= '';//set the color of the rock
rockcolor2= '';//set 2nd color of the rock

var x,y: integer;

procedure DeclarePlayers; // this procedure is used to log players in
begin
HowManyPlayers :=1; //set the Number of players here.
NumberOfPlayers(howManyPlayers); //sets the players array length;
CurrentPlayer:=0 //currentPlayer = array index

Players[0].Name :=Rune_Minorz;//USERNAME
Players[0].Pass :=password1;//PASS
Players[0].Nick :=orz;//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
Players[0].Active:=True;//PLAYER IN USE OR NOT

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

SetupSRL;
DeclarePlayers;
LoginPlayer;

Procedure Randoms;
Begin
FindTalk; //finds talkin randoms
FindNormalRandoms; //finds normal randoms
SolveChatRandom; //sloves chat randoms
FindLamp(mining); //solves lamp and then choses a skill to update
SolvePinball; //solves pinball random
DwarfItem; //dropes dawalf items
If(FindFight)Then //runs away from fight
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunBack;
End;
End;

var x,y,randomm: integer;

procedure antiban;
begin
randomm := Random(4)
case randomm of


0: begin

Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
HighestAngle;
RandomlyChosenSkill;
Randoms
end;

1: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;

2: begin
Wait(3294+(random(873)));

Randoms;
HoverSkill('Woodcutting' ,false);

Wait(3294+(random(873)));

end;

3: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;

Procedure minerock;
begin

if not LoggedIn then
Exit;

repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin

Mouse(x,y,0,0,false);
Wait(500+(random(150)));

ChooseOption('ine')
randoms
antiban;
writeln('found rock');

end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;

until( InvFull )
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
minerock;
drop;
until (IsFKeyDown(3));


end.
end.

Um, you forgot to erase your password! I changed it for you, I'll send you a PM with the new password.
Okay, now to your script :): It's quite good for your first script!but in the future, put [*SCAR] and [*/SCAR] at the end and beginning of your script, that way it will keep the standards. (don't use the asterixes, delete them)

Looks like a nice script, good effort. But as the guy above me said put the script within tags next time, it makes it easier to read

Yeah, looks like a good script. All you have to do now is add auto-colour (I'm english) so people down't have to set the colour of the rocks.

Good job.

DR

EDIT: I'm bored so I decided to put the script in scar tags for you and did some editing to make it look nicer (I really am bored…):
program PowerMiner;

(.include SRL/SRL.scar)

Const
  rockcolor1= '';//set the color of the rock
  rockcolor2= '';//set 2nd color of the rock

Var 
  x,y: integer;

Procedure DeclarePlayers; // this procedure is used to log players in
Begin

  HowManyPlayers :=1; //set the Number of players here.
  NumberOfPlayers(howManyPlayers); //sets the players array length;
  CurrentPlayer:=0 //currentPlayer = array index

  Players[0].Name :=Rune_Minorz;//USERNAME
  Players[0].Pass :=password1;//PASS
  Players[0].Nick :=orz;//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
  Players[0].Active:=True;//PLAYER IN USE OR NOT

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

  SetupSRL;
  DeclarePlayers;
  LoginPlayer;

Procedure Randoms;
Begin
  FindTalk; //finds talkin randoms
  FindNormalRandoms; //finds normal randoms
  SolveChatRandom; //sloves chat randoms
  FindLamp(mining); //solves lamp and then choses a skill to update
  SolvePinball; //solves pinball random
  DwarfItem; //dropes dawalf items
  If(FindFight)Then //runs away from fight
    Begin
      MakeCompass('N');
      RunTo('E', True);
      Wait(7000 +Random(3000));
      RunBack;
    End;
End;

Var 
x,y,randomm: integer;

Procedure antiban;
Begin
  randomm := Random(4)
  case randomm of


0: Begin

      Wait(3591+(random(287)));
      RandomRClick;
      Wait(3591+(random(287)));
      HighestAngle;
      RandomlyChosenSkill;
      Randoms
   end;

1: Begin
      Wait(3694+(random(791)));
      GameTab(random(13)+1);
      Randoms;
      Wait(3694+(random(791)));
      GameTab(4);
    end;

2: Begin
      Wait(3294+(random(873)));

      Randoms;
      HoverSkill('Woodcutting' ,false);

      Wait(3294+(random(873)));

    end;

3: Begin
      Wait(3694+(random(791)));
      GameTab(random(13)+1);
      Randoms;
      Wait(3694+(random(791)));
      GameTab(4);
    end;
  end;
end;

Procedure minerock;
Begin

If not LoggedIn then
Exit;

Repeat
  if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
    begin

      Mouse(x,y,0,0,false);
      Wait(500+(random(150)));

      ChooseOption('ine')
      randoms
      antiban;
      writeln('found rock');

      end else
        writeln('couldnt find rock');
        randoms;
        antiban;
        antiban;
        antiban;

  Until( InvFull )
end;


Begin
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  Repeat
    minerock;
    Drop;
    Until (IsFKeyDown(3));
  end;
end.

  Repeat
    minerock;
    Drop;
    Until (IsFKeyDown(3));

Errrmmmm…where is the Dropping procedure or i'm blind?:O
Eerik.