ill try it out for ya
ill try it out for ya
im back----took a long break away but im back and im gonna get into scripting
well first of all i cant understand this and second of all i dont noe where the options r n shit like input ur username here or stuff could u plz tell me lol im new so dont go puttin shit on me
SCAR Code:program PowerMinerForm;
{.include SRL/SRl.scar}
var//Form Vars
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label7 : TLabel;
RockType : TComboBox;
ChatsOfff : TComboBox;
RunDirection : TComboBox;
RandChat : TComboBox;
Button1 : TButton;
Button2 : TButton;
var
hfrmDesign : TForm;
hLabel1 : TLabel;
hLabel2 : TLabel;
hLabel3 : TLabel;
hLabel4 : TLabel;
hLabel5 : TLabel;
hLabel6 : TLabel;
hLabel7 : TLabel;
hLabel8 : TLabel;
hLabel9 : TLabel;
hLabel10 : TLabel;
hLabel11 : TLabel;
hButton1 : TButton;
{------------------------}
var
Rock, RunDir, Chats, RandC, Tin, Copper, Iron, Gold : String;
TinColor, CopperColor, IronColor, GoldColor,
Clay, OreMask, OresMined, Loads, RockColor : Integer;
ChatsO, RandCh : Boolean;
//----------------------------------------
Const
LoadsToDo = 100;//How many loads?
//-----------------------------------------
procedure CloseHelp(sender: TObject);
begin
hfrmDesign.Caption := hfrmDesign.Caption + '.';
hfrmDesign.ModalResult := mrOk;
end;
procedure InitHelpForm;
begin
hfrmDesign := CreateForm;
hfrmDesign.Left := 250;
hfrmDesign.Top := 114;
hfrmDesign.Width := 696;
hfrmDesign.Height := 480;
hfrmDesign.Caption := 'PowerMiner Help';
hfrmDesign.Color := clBtnShadow;
hfrmDesign.Font.Color := clMaroon;
hfrmDesign.Font.Height := -15;
hfrmDesign.Font.Name := 'Roman';
hfrmDesign.Font.Style := [];
hfrmDesign.Visible := False;
hfrmDesign.PixelsPerInch := 96;
hLabel1 := TLabel.Create(hfrmDesign);
hLabel1.Parent := hfrmDesign;
hLabel1.Left := 234;
hLabel1.Top := 44;
hLabel1.Width := 6;
hLabel1.Height := 17;
hLabel2 := TLabel.Create(hfrmDesign);
hLabel2.Parent := hfrmDesign;
hLabel2.Left := 274;
hLabel2.Top := 29;
hLabel2.Width := 137;
hLabel2.Height := 22;
hLabel2.Caption := 'PowerMiner Help!';
hLabel2.Font.Color := clMaroon;
hLabel2.Font.Height := -19;
hLabel2.Font.Name := 'Roman';
hLabel2.Font.Style := [fsUnderline];
hLabel2.ParentFont := False;
hLabel3 := TLabel.Create(hfrmDesign);
hLabel3.Parent := hfrmDesign;
hLabel3.Left := 11;
hLabel3.Top := 74;
hLabel3.Width := 658;
hLabel3.Height := 17;
hLabel3.Caption :=
'To start this script fill out the form, Then drag the crosshair ' +
'over to the RuneScape screen and press';
hLabel4 := TLabel.Create(hfrmDesign);
hLabel4.Parent := hfrmDesign;
hLabel4.Left := 30;
hLabel4.Top := 96;
hLabel4.Width := 649;
hLabel4.Height := 17;
hLabel4.Caption :=
'play to start this script. If the script is having trouble findi' +
'ng the rock then edit the colors on lines';
hLabel5 := TLabel.Create(hfrmDesign);
hLabel5.Parent := hfrmDesign;
hLabel5.Left := 33;
hLabel5.Top := 122;
hLabel5.Width := 638;
hLabel5.Height := 17;
hLabel5.Caption :=
'391-398. If there is any over problems contact me on Scott-_-bra' +
'dford@hotmail.com or Bradfordy';
hLabel6 := TLabel.Create(hfrmDesign);
hLabel6.Parent := hfrmDesign;
hLabel6.Left := 32;
hLabel6.Top := 144;
hLabel6.Width := 650;
hLabel6.Height := 17;
hLabel6.Caption :=
'@Gmail.com, only contact me on those adresses if you are having ' +
'major problems. If it isn'#39't a major';
hLabel7 := TLabel.Create(hfrmDesign);
hLabel7.Parent := hfrmDesign;
hLabel7.Left := 30;
hLabel7.Top := 164;
hLabel7.Width := 245;
hLabel7.Height := 17;
hLabel7.Caption := 'problem post it on the scripts thread.';
hLabel8 := TLabel.Create(hfrmDesign);
hLabel8.Parent := hfrmDesign;
hLabel8.Left := 302;
hLabel8.Top := 225;
hLabel8.Width := 90;
hLabel8.Height := 22;
hLabel8.Caption := 'Infomation!';
hLabel8.Font.Color := clMaroon;
hLabel8.Font.Height := -19;
hLabel8.Font.Name := 'Roman';
hLabel8.Font.Style := [fsUnderline];
hLabel8.ParentFont := False;
hLabel9 := TLabel.Create(hfrmDesign);
hLabel9.Parent := hfrmDesign;
hLabel9.Left := 13;
hLabel9.Top := 281;
hLabel9.Width := 668;
hLabel9.Height := 17;
hLabel9.Caption :=
'This script was made by me,(Arr0w) and it is 100% free! if you h' +
'ave brought this script you have been ';
hLabel10 := TLabel.Create(hfrmDesign);
hLabel10.Parent := hfrmDesign;
hLabel10.Left := 34;
hLabel10.Top := 304;
hLabel10.Width := 641;
hLabel10.Height := 17;
hLabel10.Caption :=
'scammed, If you have been scammed there nothing i can do sorry, ' +
'just report them for selling my';
hLabel11 := TLabel.Create(hfrmDesign);
hLabel11.Parent := hfrmDesign;
hLabel11.Left := 36;
hLabel11.Top := 326;
hLabel11.Width := 410;
hLabel11.Height := 18;
hLabel11.Caption := 'script and i will back you up. My name on all sites is Arr0w.';
hLabel11.Font.Color := clMaroon;
hLabel11.Font.Height := -16;
hLabel11.Font.Name := 'Roman';
hLabel11.Font.Style := [];
hLabel11.ParentFont := False;
hButton1 := TButton.Create(hfrmDesign);
hButton1.Parent := hfrmDesign;
hButton1.OnClick := @CloseHelp
hButton1.Left := 321;
hButton1.Top := 377;
hButton1.Width := 75;
hButton1.Height := 25;
hButton1.Caption := 'Close!';
hButton1.TabOrder := 8;
end;
procedure SafeInitHelpForm;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('InitHelpForm', v);
end;
procedure ShowHelpFormModal;
begin
hfrmDesign.ShowModal;
end;
procedure SafeShowHelpFormModal;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowHelpFormModal', v);
end;
procedure ShowHelp(sender: TObject);
begin
frmDesign.Caption := frmDesign.Caption + '.';
SafeInitHelpForm;
SafeShowHelpFormModal;
end;
procedure Start(sender: TObject);
begin
frmDesign.Caption := frmDesign.Caption + '.';
frmDesign.ModalResult := mrOk;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 450;
frmDesign.Caption := 'PowerMiner V3 By Arr0w';
frmDesign.Color := clBtnShadow;
frmDesign.Font.Color := clMaroon;
frmDesign.Font.Height := -13;
frmDesign.Font.Name := 'Roman';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 216;
Label1.Top := 47;
Label1.Width := 221;
Label1.Height := 24;
Label1.Caption := 'PowerMiner V3 By Arr0w!';
Label1.Font.Color := clMaroon;
Label1.Font.Height := -21;
Label1.Font.Name := 'Roman';
Label1.Font.Style := [fsUnderline];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 219;
Label2.Top := 116;
Label2.Width := 200;
Label2.Height := 15;
Label2.Caption := 'What Is The Rock You Want To Mine?';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 221;
Label3.Top := 151;
Label3.Width := 175;
Label3.Height := 15;
Label3.Caption := 'Do you Want To Turn Off Chats?';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 224;
Label4.Top := 231;
Label4.Width := 306;
Label4.Height := 15;
Label4.Caption := 'What direction Do You Want To Run If A Fight Is Found?';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 222;
Label7.Top := 192;
Label7.Width := 175;
Label7.Height := 15;
Label7.Caption := 'Do You Want To Randomly Talk?';
RockType := TComboBox.Create(frmDesign);
RockType.Parent := frmDesign;
RockType.Left := 70;
RockType.Top := 109;
RockType.Width := 145;
RockType.Height := 23;
RockType.ItemHeight := 15;
RockType.TabOrder := 8;
RockType.Text := 'Rock Type?';
RockType.Items.Add('Tin');
RockType.Items.Add('Copper');
RockType.Items.Add('Iron');
RockType.Items.Add('Gold');
ChatsOfff := TComboBox.Create(frmDesign);
ChatsOfff.Parent := frmDesign;
ChatsOfff.Left := 70;
ChatsOfff.Top := 148;
ChatsOfff.Width := 145;
ChatsOfff.Height := 23;
ChatsOfff.ItemHeight := 15;
ChatsOfff.TabOrder := 9;
ChatsOfff.Text := 'Chats Off?';
ChatsOfff.Items.Add('True');
ChatsOfff.Items.Add('False');
RunDirection := TComboBox.Create(frmDesign);
RunDirection.Parent := frmDesign;
RunDirection.Left := 69;
RunDirection.Top := 227;
RunDirection.Width := 145;
RunDirection.Height := 23;
RunDirection.ItemHeight := 15;
RunDirection.TabOrder := 10;
RunDirection.Text := 'Run Direction';
RunDirection.Items.Add('N');
RunDirection.Items.Add('E');
RunDirection.Items.Add('S');
RunDirection.Items.Add('W');
RandChat := TComboBox.Create(frmDesign);
RandChat.Parent := frmDesign;
RandChat.Left := 70;
RandChat.Top := 187;
RandChat.Width := 145;
RandChat.Height := 23;
RandChat.ItemHeight := 15;
RandChat.TabOrder := 13;
RandChat.Text := 'Random Chat?';
RandChat.Items.Add('True');
RandChat.Items.Add('False');
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick := @Start;
Button1.Left := 278;
Button1.Top := 356;
Button1.Width := 64;
Button1.Height := 25;
Button1.Caption := 'Start!';
Button1.TabOrder := 14;
Button2 := TButton.Create(frmDesign);
Button2.Parent := frmDesign;
Button2.OnClick := @ShowHelp
Button2.Left := 351;
Button2.Top := 356;
Button2.Width := 69;
Button2.Height := 24;
Button2.Caption := 'Help!';
Button2.TabOrder := 15;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SetupAll;
begin
Rock := RockType.Text;
RunDir := RunDirection.Text;
Chats := ChatsOfff.Text;
RandC := RandChat.Text;
case Rock of
'Tin' : Rock := Tin;
'Copper' : Rock := Copper;
'Iron' : Rock := Iron;
'Gold' : Rock := Gold;
end;
case Chats of
'True' : ChatsO := True;
'False' : ChatsO := False;
end;
case RandC of
'True' : RandCh := True;
'False' : RandCh := False;
end;
end;
procedure Write(Text : String);
begin
WriteLn(Text)
end;
procedure LoadColors;
begin
Write('Loading Colors...')
TinColor := 9539996;
CopperColor := 5541863;
IronColor := 2832988;
GoldColor := 2017267;
end;
procedure LoadBitmaps;
begin
Write('Loading Bitmaps..')
Clay := BitmapFromString(4, 4, '86714C89734D8B7650907A52978' +
'1569781569A8357957E55A1895CA38B5D9F875B9C8559AC9262A8' +
'8F60A58D5FA1895C');
OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
'2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
'B599CC1');
end;
procedure ModSetRun(Run: Boolean);//Made by Weibs, Thanks Weibs
var
WX, WY: Integer;
begin
Write('Setting The Run...')
GameTab(11);
if Run then
begin
if (not (FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5))) then
begin
Mouse(648, 431, 20, 20, true);
Wait(100+Random(100));
end;
end else
begin
if FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5) then
begin
Mouse(648, 431, 20, 20, true);
Wait(100+Random(100));
end;
end;
end;
procedure MyAntiBan;
begin
case 1 + Random(6) of
1 : BoredHuman;
2 : PickUpMouse;
3 : HoverSkill('random', false);
4 : RandomMovement;
5 : RandomRClick;
6 : GameTab(1 + Random(13));
end;
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
Status('Finding Randoms...');
for i:=1 to 7 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
if(not(solvefrog)or (solvesandwich)) then
begin
Logout;
terminatescript;
Exit;
end;
end;
end;
7: begin
if InBlack then
begin
Result := True;
if(not(solvefrog)or (solvesandwich)) then
begin
Logout;
terminatescript;
Exit;
end;
end;
end;
end;
wait(2);
end;
end;
procedure FindRandoms;
begin
setupsandwich;
FindNormalRandoms;
if ( not ( LoggedIn )) then Exit;
if ( not ( UseBoxSolver )) then
if FindNewBox and
not ( GambleNewBox ) then
begin
Logout;
Exit;
end;
Wait(1);
if NoGameTab then
begin
if(not(solvefrog)or (solvesandwich)) then
begin
Logout;
Exit;
end
end
else
FindFastRandoms;
FindNormalRandoms;
findtalk;
findmod;
finddead;
findmime;
FindDemon;
FindLamp(LampSkill)
Wait(1);
Releasesandwich;
end;
procedure IfFight;
begin
if (FindFight) then
begin
RunWhere(RunDir, False);
Wait(10000 + random(200))
RunBack;
end;
end;
procedure SetOreColor;
begin
case RockType.Text of
'Tin' : RockColor := TinColor;
'Copper' : RockColor := CopperColor;
'Iron' : RockColor := IronColor;
'Gold' : RockColor := GoldColor;
end;
end;
procedure IfChats;
begin
If ChatsO = True then
ChatsOff;
end;
procedure RandomChatt;
begin
if RandCh = True then
RandomChatEvery(5+random(10));
end;
procedure DropOres;
begin
If (invfull) = True Then
DwarfItem;
ClickAllItemsBmpMaskTolWait('rop', OreMask, 20, 25, 30 + Random(30));
ClickAllItemsBmpTolWait('rop', Clay, 10, 30 + Random(30));
end;
procedure PReport;
begin
Write('|---------------------------------------|')
Write('| Arr0w''s PowerMiner Version 3.1 |')
Write('|---------------------------------------|')
Write('| |')
Write('| Total Time Worked: ' + TimeRunning+ ' |')
Write('| Current Time: ' + TheTime+ ' |')
Write('| Total Ores Mined: ' + IntToStr(OresMined)+ ' |')
Write('|---------------------------------------|')
Write('|---------------------------------------|')
end;
procedure MineRock;
begin
repeat
If (FindColorSpiral(x,y,RockColor,3,3,515,336)) then
Begin
Mmouse(x, y, 3, 3)
Wait(10+Random(10));
if (IsTextAt2(x, y, 'ine', 5) = True) then
begin
Mouse(x, y, 1, 1, True)
Flag;
FindNormalRandoms;
end;
end;
Until(InvFull)
if (invfull) = True Then
begin
OresMined := OresMined + 27;
Loads := Loads + 1;
end;
end;
begin
SafeInitForm;
SafeShowFormModal;
SetupAll;
SetupSRL;
LoadColors;
SetOreColor;
LoadBitmaps;
SRLRandomsReport;
ActivateClient;
ModSetRun(True);
repeat
IfChats;
MineRock;
DropOres;
RandomChatt;
MyAntiBan;
FindRandoms;
PReport;
until(Loads = LoadsToDo)
if Loads = LoadsToDo then
LogOut;
end.
im back----took a long break away but im back and im gonna get into scripting
You jsut press play and a form will come up.
oh lol didint think of that thanks
im back----took a long break away but im back and im gonna get into scripting
when i run the script the mouse just hovers over the rock but doesnt click on it?wdf
im back----took a long break away but im back and im gonna get into scripting
I tried it out yesterday. It looks like a great script with flawless antirandoms but I couldn,t get it working it would hover over all of the correct rocks just as the previous poster said. It would probably be an easy fix but I'm not a great scriptor so I wouldn't know
just a warning the anti-randomsin the script DO NOT work
so don't leave it unattended for too long.
how you know anythiing about how it looks if this is your first post?
and to know how good the antirandoms are look in antirandoms.scar in your SRL folder
the actual antirandom coding isnt in this script
Doubt anyone makes their OWN antirandoms anyways =p
hmm antirandoms dont work, and i cant get it started,
its criticism yes but criticism u can use to make ur script better
good luck to ya!
im back----took a long break away but im back and im gonna get into scripting
duh the antiranomds dont work
^i alrady stated twice.
he dosent have anywhere to fill in a nickanme so randosm dont work
and shadowblade. please dont double post, use edit button instead =)
i belive i have fixed the error.
ok thanks for the advice yohojo8
im back----took a long break away but im back and im gonna get into scripting
I'm gonna try it now and send report soon. You say there is all the randoms??
It doesnt mine anything...the arrow just stays there and doesnt click. Also it makes the game lagg so much.
Ill try it prolly works
ive been having the some problem with other miners. When I try to comple the script says that label1 is a duplicate identifier. What is wrong? What should i do?
hmm it doesnt click on the rock....this script sucks only for the form its good but it suck.
maybe im wrong but STFU?!?! make your own script first then bitch. arrow did a good job i got it to work, as has others so stfu and be happy your even allowed here.
dude stop flaming whats your problem
hes just point out that the script doenst work
how do you know he did a good job if you barely know how to script yourself?
and i don't call no antirandoms a good job..
It is a little rude he is saying it sucks, but you are just adding to the flaamage =)
Yea i dunno why it doesnt clikc the rock can you try and help me yoho?
There are currently 1 users browsing this thread. (0 members and 1 guests)