SRL Archive - Outdated / Broken

Hey Everyone,

This is my First PowerMiner Script with SRL, any feedback is welcome really :)
Please post Progress Reports :rolleyes:

{.Script Info:
# ScriptName  = PowerMinerSD
# Author      = Surajd
# Description = Powermines any rock, anywhere! =D
# Version     = v1.0
# Date        = Published 3/07/06
# Comments    = Must have Pickaxe WIELDED!  Setup Lines: 36-52 and Setup your players in the PlayerForm which will AutoStart!
/Script Info}

Any problems, PM me or post in this thread.


Cheers,
Surajd ;)

Looks good, trying it out now.

After 3 times of it crashing my firefox because of going retarded, and once of not doing anything at all, all with different techniques, it doesn't work.

And it doesn't log in if you start the script logged out ;)

Do you have the latest SRL Include?
I showed you a report of it working, but still strange =S

The next version will have that feature ;)

Nice, i'll try soon.

Edit :
Try changing this part in ur script…

procedure AntiRandomsAR;
begin
  FindPick;
  GasColors(a, b);
  if (FindGas(a, b - 15)) then
  begin
    FindSymbol(a, b, 'Mining Site');
    MouseHuman(a, b, 1, 2, true, true);
    WriteLn(' Found Gas, Gas-Protection Activated! ');
    FindNormalRandoms;
    if (FindFight = True) then
    begin
      WriteLn(' We are in a fight, Running... ');
      ETimes := ETimes + 1
        SetRun(True);
      RunAwayDirection(RunDi);
      Wait(5000 + Random(191));
      RunBack;
      WriteLn(' Successfully Dodged... Continuing... ');
      if (AntiBanAB = True) then AntiBan;
      if (TalkRandomly = True) then RandomChatEvery(RChat);
      if (TalkAboutSkill = True) then GhostSpeak('Mining');
      if (AntiBanAB = True) then LeaveScreenEvery(1);
    end;
 end;
end;

To This :

procedure AntiRandomsAR;
begin
  FindPick;
  GasColors(a, b);
  if (FindGas(a, b - 15)) then
  begin
    FindSymbol(a, b, 'Mining Site');
    MouseHuman(a, b, 1, 2, true, true);
    WriteLn(' Found Gas, Gas-Protection Activated! ');
  end;
    FindNormalRandoms;
    if (FindFight = True) then
    begin
      WriteLn(' We are in a fight, Running... ');
      ETimes := ETimes + 1
        SetRun(True);
      RunAwayDirection(RunDi);
      Wait(5000 + Random(191));
      RunBack;
      WriteLn(' Successfully Dodged... Continuing... ');
      if (AntiBanAB = True) then AntiBan;
      if (TalkRandomly = True) then RandomChatEvery(RChat);
      if (TalkAboutSkill = True) then GhostSpeak('Mining');
      if (AntiBanAB = True) then LeaveScreenEvery(1);
    end;
end;

You had it so that it would only check for randoms and fights if gas was found.

From: Surajd
Do you have the latest SRL Include?
I showed you a report of it working, but still strange =S

The next version will have that feature ;)

Yes I have 2.4.

Thanks for the comment RealRune ;)
I'll do that right now :D

@Bego - I really have no clue… :(

nice script and itss good to see u made ur first powerminer with SRL :)

Thanks subin :D