SRL Archive - Outdated / Broken

[SRL][RS2]powerminer

HISTORY

2006-02-20 13:03:01

Powerminer v1-beta-
-antiban features
-multi accounts login
-antirandom handling
-uh other stuff

Progress reports;
yet to come
Credits;
Home-checked script for any weird errors
Genius-beta tested every version

Home

2006-02-22 09:26:30

i see no comments :( but anyway thanks about putting me on your credits :) and by the way this script really works :)!

HISTORY

2006-02-22 12:57:50

they hate me :(

oh well once my monk killer is ready Satan will love me :D

Lorax

2006-02-22 14:10:50

From: HISTORY
they hate me :(

oh well once my monk killer is ready Satan will love me :D

Who hates you ?

Sdcit

2006-02-22 17:11:09

scripting standards…..pretty err… good

c0de

2006-04-16 04:26:18


procedure dropores;
begin
Status('dropping ores')
FindBox;
if(pickequiped=true)then
begin
DropItem(1);
end;
DropItem(2);
DropItem(3);
DropItem(4);
DropItem(5);
DropItem(6);
DropItem(7);
DropItem(8);
DropItem(9);
DropItem(10);
DropItem(11);
DropItem(12);
DropItem(13);
DropItem(14);
DropItem(15);
DropItem(16);
DropItem(17);
DropItem(18);
DropItem(19);
DropItem(20);
DropItem(21);
DropItem(22);
DropItem(23);
DropItem(24);
DropItem(25);
DropItem(26);
DropItem(27);
DropItem(28);
end;

Why just not use loop or use DropTo(x:LongInt;y:Longint), it would make your code look nicer, smaller, better :P


 procedure FearNewBox;
 begin
if FindNewBox Then
  Begin
  Status('changing account,new box found')
 Logout;
 NextPlayer(True);
 Marktime(qq)
 ChatsOff;
  End Else
   Exit;
  End;

Shouldn't here be NextPlayer(false), we dont want to log back on this one again ugh ?

well, that's all from me :) nice script tho :)

XxKanexX

2006-04-16 05:41:04


procedure DropAll;
var i, s: integer;
begin
 if (PickEquipped) then
   s:= 1 else s:= 2;
 for i:= s to 28 do
  begin
    DropItem(i);
  end;
end;

;)

And also, the mining procedure isn't to stable. Aswell as only 1 rock color. But err, thanx for sharing.

cause

2006-04-23 15:24:54

yo guys, dont diss him, hes worked hard on this scrip! :D

c0de

2006-04-23 15:48:52

I'm just trying to help him improve it :) Nothing bad.

cause

2006-04-23 17:16:17

i meant more sdcit and kane

WhiteShadow

2006-04-23 19:43:05

procedure ClickHuman(x, y : Integer; Click : Boolean);
begin
  wait(10+random(5));
  holdmouse(x+random(3),y+random(3),click);
  wait(30+random(10));
  releasemouse(x+random(3),y+random(3),click);
  wait(10+random(5));
end;

You made ClickHuman a function, but since the result will always be true it's more reasonable as a procedure. Great Job! :)

~WhiteShadow