SRL Archive - RS3 Outdated / Broken Scripts

[SRL4]GuilderWorld

munk

2007-11-16 21:01:34

THIS SCRIPT IS NOT UPDATED FOR NEW LOOK OF GUILD! USE AT OWN RISK! SCRIPT UPDATE IS STILL UNDECIDED…


{
   GuilderWorld v.0.1.0 PUB               [SRL4][#14]
        written by munk


   mine some coal and mith in the guild.
   
   Use SCAR 3.14
   Put the mining 60+ players in east falador bank.
   Setup the players in the script.
   Enjoy.
   
}

UPDATES
v.0.1.1 Sorry guys, I released last version with some stupid bugs. Then I got sick of it stealing peoples rocks and them callin my guy a noob, so I went back and re-wrote the people finding. It works great now. On occassion it can still steal a rock, or find a lantern/fire as a person, and it adds about 100ms to rock finding, but I think its totally worth it:)
v.0.1.0 Re-Released to public. Alot of stuff was rewritten because it was getting old. Runnin beautifully :)

FEATURES
- Humanlike mouse movement
- Custom Guild Gas finding
- Custom Pickhead finding/assembling
- Perfected Walking(failsafes for failsafes :) )
- Great Player finder (wont steal rocks!)

KNOWN BUGS
- Clicking new rock to soon
- Missing ladder into guild because of white walls and white uptext

———————————————————

a script called GuilderWorld

ran for 37 Hours, 15 Minutes and 2 Seconds
mined 6070 coal
mined 561 mith
avoided 127 gas, missed 4 gas
assembled 0 pickaxes

———————————————————

kingarabian

2007-11-16 21:34:58

Wow man you got some neat skillz! Man your gonna be a dev in no time :D. Im test right now and post proggie soon.

Runescape Pro

2007-11-16 21:38:17

OMG! Munk, i really gotta say, your a beast… It might just be me but you have a couple good scripts out and I am positive this will be just as good as your other scripts. I'll test sometime tonight or tomarrow and post a proggie.

Harry

2007-11-16 21:38:22

Wow. Another script from munk?! :O

munk

2007-11-16 21:46:06

From: kingarabian
…Im test right now and post proggie soon.

I think you missed one of the points, you dont really need to post proggies;) but do post feedback/comments/bugs, anything that will help me make it better:D

Yes, I do post alot of scripts, and all my scripts are always free(jr members). I guess its kinda because I spend alot of my days writing languages for other people to make money. SRL I get to write what I want and then can just give it away and get praise:p

thx for the support everyone! Check out some of the progress reports I already have posted. Couple overnighters!

7Jam

2007-11-16 21:47:00

——————– player report ———————-
0 isk = T | 1 banks | 27 coal | bank |
———————————————————

a script called GuilderWorld

ran for 6 Minutes and 9 Seconds
mined 27 coal
avoided 0 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

Very fluid movement. Nice script.

kingarabian

2007-11-16 21:48:35

hmm…..It doesnt walk to the ladders to go to guild entrance?

Harry

2007-11-16 21:48:57

Just one thing: I don't like scripts connection places. Not that you would scam or anything, I just don't like SCAR connection anywhere.

Would it be 'okay' with you to remove the GetPages ? Or would that destroy something you made for a reason (proggies online) ?

Just checking, didn't wanna mess up anything you have setup ^_^

Daniel

2007-11-16 21:48:57

Right now there is no world that has less than 600 player's that i can go in. So i cannot test this script (Because of too many people).

Looks good though, nice work!

munk

2007-11-16 21:56:02

From: Hy71194
Just one thing: I don't like scripts connection places. Not that you would scam or anything, I just don't like SCAR connection anywhere.

Would it be 'okay' with you to remove the GetPages ? Or would that destroy something you made for a reason (proggies online) ?

Just checking, didn't wanna mess up anything you have setup ^_^

did you not read the original post?

EDIT: I was so proud of my 10-11 hour proggies, and nobody can figure out to click the link in the original post:(

Daniel

2007-11-16 21:57:19

Line 514: [Error] (15846:4): Unknown identifier 'RemoveDistTPointArray' in script C:\Documents and Settings\Owner\Desktop\Files\guilderworld_0.0.1.scar

Is an error i got.

Harry

2007-11-16 21:58:00

I did. I am asking like if it will mess up the script..

munk

2007-11-16 22:03:28

From: Hy71194
I did. I am asking like if it will mess up the script..

ah, no it shouldnt mess it up.

EDIT: but itll break my heart :p

From: IP-Drowner

Line 514: [Error] (15846:4): Unknown identifier 'RemoveDistTPointArray' in script C:\Documents and Settings\Owner\Desktop\Files\guilderworld_0.0.1.scar

Is an error i got.

uhh…what srl you using?

Daniel

2007-11-16 22:06:56

From: munk
uhh…what srl you using?

The latest SRL. I downloaded from SCAR about 4 hours ago.

kingarabian

2007-11-16 22:22:27

a script called GuilderWorld

ran for 21 Minutes and 17 Seconds
mined 84 coal
avoided 0 gas, missed 0 gas
assembled 0 pickaxes

Nvm fixed it heres my prog.

munk

2007-11-16 22:24:47

From: IP-Drowner
The latest SRL. I downloaded from SCAR about 4 hours ago.

hmm, 'RemoveDistTPointArray' is in the wizzy plugin, did your plugins get copied right?….I really dont know. Anyone know anything about this?

kingarabian

2007-11-16 22:31:45

@ip go to scar and go tools>options>srl>checkout.

Daniel

2007-11-16 22:41:42

From: kingarabian
@ip go to scar and go tools>options>srl>checkout.

There is no checkout! And there is no SRL in the options (Only SRL Downloas).

I am using Scar Divi 3.12c.

munk

2007-11-16 22:44:08

get subversion

http://www.villavu.com/forum/showthread.php?t=17929

Runescape Pro

2007-11-16 22:56:44

Pretty good… But sometimes it clicks a different rock b4 its done on the current rock.

Daniel

2007-11-16 23:18:59

It doesn't work properly for me. I have followed all of your instruction's in the setup. This is what tyhe script does:
1) Check's if Pickaxe is Wielded.
2) Walk's to mine (Successfully)
3) Climb's down ladder.
4) Set's Run to on
5) Start's mining.
6) After get's a full load, it goes back to bank
7) It submit's a progress report to headweight.com
8) It clicks here

9) Once it reach's that spot, it start's trying to find the ladder.
10) It just keep's on trying to find the ladder.

It does that after every load!

HayHay89

2007-11-16 23:25:07

Line 514: [Error] (15846:4): Unknown identifier 'RemoveDistTPointArray' in script C:\Documents and Settings\user\Desktop\guilderworld_0.0.1.scar

Daniel

2007-11-16 23:47:42

From: hayhay89
Line 514: [Error] (15846:4): Unknown identifier 'RemoveDistTPointArray' in script C:\Documents and Settings\user\Desktop\guilderworld_0.0.1.scar

Please read through the post's before you for the answer.

munk

2007-11-17 00:19:53

From: IP-Drowner
It doesn't work properly for me. I have followed all of your instruction's in the setup. This is what tyhe script does:
1) Check's if Pickaxe is Wielded.
2) Walk's to mine (Successfully)
3) Climb's down ladder.
4) Set's Run to on
5) Start's mining.
6) After get's a full load, it goes back to bank
7) It submit's a progress report to headweight.com
8) It clicks here 9) Once it reach's that spot, it start's trying to find the ladder.
10) It just keep's on trying to find the ladder.

It does that after every load!

Ive never had this problem but i know what it is. Change line 486, and set it a little lower. something like


486:    if c>25 then

Daniel

2007-11-17 01:14:22

From: munk
Ive never had this problem but i know what it is. Change line 486, and set it a little lower. something like
486:    if c>25 then

Ty. And please vote a yes for me in the SRL Member.

Daniel

2007-11-17 01:55:36

Here's your GuilderWorld script with forms:


{
   GuilderWorld v.0.0.1 PUB               [SRL4][#6]
        written by munk


   mine some coal in the guild. no mith :/
   
   put the mining 60+ players in east falador bank.
   Setup the players in the script.
   lemme know how it works.
   
}
program guilder;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
  x,y,k,s,hp,ns,p,
  laddercolor,gas,missedgas,assembled,
  coal,bankers,pick,bentpick,handle : integer;
  pickcolors:array[0..2] of integer;
  rP:Array of Tpoint;
  reportID : string;
  np,brk : boolean;
  frmDesign : TForm;
  Label1, Label2, Label3, Label4, Label5 : TLabel;
  Label6, Label7, Label8, Label9 : TLabel;
  Button1 : TButton;
  Edit1, Edit2, Edit3, Edit4 : TEdit;
  Edit5, Edit6, Edit7 : TEdit;
  User5, Pass5, Nick5, SSRD, SSPW, SFUN, MTSP : String;
  
const
  dbug = false;
  SRLforumsUsername = + SFUN; //This is for proggy reporting.
  minsTilSwitch = + MTSP;
  yourSRLstatsID= + SSID;        // please register for SRL-Stats at
  yourSRLstatsPW= + SSPW;  // [url]http://www.stats.srl-forums.com[/url]
  versionNumber = '0.0.1';

procedure ButtonClick(Sender: TObject);
begin
  User5:=Edit1.Text;
  Pass5:=Edit2.Text;
  Nick5:=Edit3.Text;
  SSID:=Edit4.Text;
  SSPW:=Edit5.Text;
  SFUN:=Edit6.Text;
  MTSP:=Edit7.Text;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 262;
  frmDesign.Top := 96;
  frmDesign.Width := 425;
  frmDesign.Height := 430;
  frmDesign.Caption := 'GulderWorld 0.0.1 - by Munk';
  frmDesign.Color := clBtnFace;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := True;
  frmDesign.PixelsPerInch := 96;
  Label1 := TLabel.Create(frmDesign);
  Label1.Parent := frmDesign;
  Label1.Left := 8;
  Label1.Top := 80;
  Label1.Width := 95;
  Label1.Height := 23;
  Label1.Caption := 'Username:';
  Label1.Font.Color := clWindowText;
  Label1.Font.Height := -20;
  Label1.Font.Name := 'Arial';
  Label1.Font.Style := [];
  Label1.ParentFont := False;
  Label2 := TLabel.Create(frmDesign);
  Label2.Parent := frmDesign;
  Label2.Left := 8;
  Label2.Top := 120;
  Label2.Width := 94;
  Label2.Height := 23;
  Label2.Caption := 'Password:';
  Label2.Font.Color := clWindowText;
  Label2.Font.Height := -20;
  Label2.Font.Name := 'Arial';
  Label2.Font.Style := [];
  Label2.ParentFont := False;
  Label3 := TLabel.Create(frmDesign);
  Label3.Parent := frmDesign;
  Label3.Left := 8;
  Label3.Top := 160;
  Label3.Width := 91;
  Label3.Height := 23;
  Label3.Caption := 'Nickname:';
  Label3.Font.Color := clWindowText;
  Label3.Font.Height := -20;
  Label3.Font.Name := 'Arial';
  Label3.Font.Style := [];
  Label3.ParentFont := False;
  Label4 := TLabel.Create(frmDesign);
  Label4.Parent := frmDesign;
  Label4.Left := 8;
  Label4.Top := 200;
  Label4.Width := 122;
  Label4.Height := 23;
  Label4.Caption := 'SRL Stats ID:';
  Label4.Font.Color := clWindowText;
  Label4.Font.Height := -20;
  Label4.Font.Name := 'Arial';
  Label4.Font.Style := [];
  Label4.ParentFont := False;
  Label5 := TLabel.Create(frmDesign);
  Label5.Parent := frmDesign;
  Label5.Left := 8;
  Label5.Top := 240;
  Label5.Width := 190;
  Label5.Height := 23;
  Label5.Caption := 'SRL Stats Password:';
  Label5.Font.Color := clWindowText;
  Label5.Font.Height := -20;
  Label5.Font.Name := 'Arial';
  Label5.Font.Style := [];
  Label5.ParentFont := False;
  Label6 := TLabel.Create(frmDesign);
  Label6.Parent := frmDesign;
  Label6.Left := 8;
  Label6.Top := 280;
  Label6.Width := 201;
  Label6.Height := 23;
  Label6.Caption := 'SRL Forum Username:';
  Label6.Font.Color := clWindowText;
  Label6.Font.Height := -20;
  Label6.Font.Name := 'Arial';
  Label6.Font.Style := [];
  Label6.ParentFont := False;
  Label7 := TLabel.Create(frmDesign);
  Label7.Parent := frmDesign;
  Label7.Left := 8;
  Label7.Top := 320;
  Label7.Width := 257;
  Label7.Height := 23;
  Label7.Caption := 'Minute'#39's Until Switch Players:';
  Label7.Font.Color := clWindowText;
  Label7.Font.Height := -20;
  Label7.Font.Name := 'Arial';
  Label7.Font.Style := [];
  Label7.ParentFont := False;
  Label8 := TLabel.Create(frmDesign);
  Label8.Parent := frmDesign;
  Label8.Left := 16;
  Label8.Top := 8;
  Label8.Width := 399;
  Label8.Height := 31;
  Label8.Caption := 'GuilderWorld v0.0.1 made by Munk';
  Label8.Font.Color := 33023;
  Label8.Font.Height := -27;
  Label8.Font.Name := 'Times New Roman';
  Label8.Font.Style := [];
  Label8.ParentFont := False;
  Label8.WordWrap := True;
  Label9 := TLabel.Create(frmDesign);
  Label9.Parent := frmDesign;
  Label9.Left := 120;
  Label9.Top := 40;
  Label9.Width := 273;
  Label9.Height := 27;
  Label9.Caption := 'Form'#39's made by IP-Drowner';
  Label9.Font.Color := 16761378;
  Label9.Font.Height := -24;
  Label9.Font.Name := 'Times New Roman';
  Label9.Font.Style := [];
  Label9.ParentFont := False;
  Label9.WordWrap := True;
  Button1 := TButton.Create(frmDesign);
  Button1.Parent := frmDesign;
  Button1.Left := 72;
  Button1.Top := 352;
  Button1.Width := 257;
  Button1.Height := 33;
  Button1.Caption := 'Submit Current Details';
  Button1.Font.Color := clWindowText;
  Button1.Font.Height := -16;
  Button1.Font.Name := 'Arial';
  Button1.Font.Style := [];
  Button1.ModalResult := 1;
  Button1.ParentFont := False;
  Button1.TabOrder := 8;
  Edit1 := TEdit.Create(frmDesign);
  Edit1.Parent := frmDesign;
  Edit1.Left := 136;
  Edit1.Top := 80;
  Edit1.Width := 265;
  Edit1.Height := 21;
  Edit1.TabOrder := 9;
  Edit1.Text := 'Your Runescape Username Here';
  Edit2 := TEdit.Create(frmDesign);
  Edit2.Parent := frmDesign;
  Edit2.Left := 136;
  Edit2.Top := 120;
  Edit2.Width := 265;
  Edit2.Height := 21;
  Edit2.PasswordChar := #164;
  Edit2.TabOrder := 10;
  Edit3 := TEdit.Create(frmDesign);
  Edit3.Parent := frmDesign;
  Edit3.Left := 136;
  Edit3.Top := 160;
  Edit3.Width := 265;
  Edit3.Height := 21;
  Edit3.TabOrder := 11;
  Edit3.Text := '3-4 Letter'#39's of your Username. NO CAPITALS.';
  Edit4 := TEdit.Create(frmDesign);
  Edit4.Parent := frmDesign;
  Edit4.Left := 144;
  Edit4.Top := 200;
  Edit4.Width := 257;
  Edit4.Height := 21;
  Edit4.MaxLength := 4;
  Edit4.TabOrder := 12;
  Edit4.Text := 'If you don'#39't have, register at stats.srl-forums.com';
  Edit5 := TEdit.Create(frmDesign);
  Edit5.Parent := frmDesign;
  Edit5.Left := 208;
  Edit5.Top := 240;
  Edit5.Width := 193;
  Edit5.Height := 21;
  Edit5.PasswordChar := #164;
  Edit5.TabOrder := 13;
  Edit6 := TEdit.Create(frmDesign);
  Edit6.Parent := frmDesign;
  Edit6.Left := 224;
  Edit6.Top := 280;
  Edit6.Width := 177;
  Edit6.Height := 21;
  Edit6.TabOrder := 14;
  Edit6.Text :=
  Edit7 := TEdit.Create(frmDesign);
  Edit7.Parent := frmDesign;
  Edit7.Left := 272;
  Edit7.Top := 320;
  Edit7.Width := 129;
  Edit7.Height := 21;
  Edit7.MaxLength := 4;
  Edit7.TabOrder := 15;
  Edit7.Text := '10';
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 declarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  
  Players[0].Name := ''+ User5 +''; //username
  Players[0].Pass := ''+ Pass5 +''; //password
  Players[0].Nick := ''+ Nick5 +''; //3-4 letters from your username
  Players[0].loc := 'bank';
  Players[0].Active := true;
  
end;

procedure loadDTMs;
begin

  pick:=DTMFromString('78DA63FCCDC8C0B001889180AE3C2B8308900' +
       '689FE0702C69F986A20B2301248FF2542CD57206B1F01350C4C0C' +
       '0C8B08A8E101AA59875F0D009D700C91');
  handle:=DTMFromString('78DA630C616260E86764400626CA0C0C3C401' +
       'A24FA1F08188330D540646124900E07AAE923A02602A8A68D801A' +
       '5FA09AF9F8D500005FC208F0');
  bentpick:=DTMFromString('78DA63DCCFC8C0D003C44840478E818107488' +
       '344FF0301E35E4C3510591809A40F0259BD04D4EC04B266115073' +
       '09C86AC7AF060033DD0AF9');
  coal:=DTMFromString('78DA634C67646090036224606DADC1C003A44' +
       '1A2FF81803111C892415503918591403A0CC89227A0260BC85222' +
       'A0A680B01A00C6F70754');
  bankers:=DTMFromString('78DA634C626260B8C800068C108AE1CF1F263' +
       '8FF3F1030A6E15703A6E308AB010054AE0D93');
end;



procedure brief;
var
  i,c,connect:integer;
  return:string;
begin
  cleardebug;
  writeln('-------------------- player report ----------------------');
  for i:=0 to howmanyplayers-1 do
  begin
    writeln(' '+inttostr(i)+' '+players[i].nick+' = '+left(booltostr(players[i].active),1)+' | '+inttostr(players[i].banked)+' banks | '+inttostr(players[i].integers[0])+' coal | '+players[i].loc+' | '+players[i].rand);
    c:=c+players[i].integers[0];
  end;
  writeln('---------------------------------------------------------');
  writeln(' ');
  writeln('GuilderWorld Progress Report');
  writeln(' ');
  writeln('  Ran For: '+timerunning);
  writeln('  Has Mined: '+inttostr(c)+' coal');
  writeln('  Has Avoided: '+inttostr(gas)+' Gas(es), and has missed '+inttostr(missedgas)+' gas(es)');
  writeln('  Has Assembled '+inttostr(assembled)+' pickaxes');
  writeln(' ');
  writeln('---------------------------------------------------------');
  connect:=InitializeHTTPClient(true,true);
  return:=PostHTTPPage(connect,'http://www.headweight.net/projects/SRL/reports/guilderworld/upload.php','&id='+reportID+'&user='+SRLforumsUsername+'&time='+inttostr(GetTimeRunning/1000)+'&c='+inttostr(c)+'&gas='+inttostr(gas)+'&mgas='+inttostr(missedgas)+'&a='+inttostr(assembled));
  if return='annul' then terminateScript else if dbug then writeln(return);
  FreeHTTPClient(connect);
  srlrandomsreport;
end;

function nextEmptySlot:integer;
var
  i:integer;
begin
  for i:=1 to 28 do
  begin
    if not(existsItem(i)) then
    begin
      result:=i;
      exit;
    end;
  end;
  result:=1;
end;

function fighting:boolean;
begin
  result:=findColorSpiral(x,y,65280,200,100,300,200);
end;

procedure runAwayHP;
begin
  if (not(loggedin)) then exit;
  if dbug then writeln('hp drop, running...');
  runawaydirection('w');
  wait(8000);
  logout;
  np:=true;
  brk:=true;
end;

procedure runaway;
begin
  findnormalrandoms;
  setrun(true);
  runawaydirection('w');
  wait(4000+random(2000));
  runback;
end;

procedure nolog;
begin
  if (not(loggedin)) then exit;
  case random(3) of
    0: mmouse(random(500),random(300),0,0);
    1: gametab(random(14));
    2: begin
         mouse(random(msx2),random(msy2),0,0,false);
         getmousepos(x,y);
         mmouse(x+100+random(100),y-50-random(50),0,0);
       end;
  end;
  gametab(4);
end;

function countCoal:integer;
var
  i,c:integer;
  slot:tbox;
begin
  for i:=1 to 28 do
  begin
    slot:=invbox(i);
    if finddtm(coal,x,y,slot.x1,slot.y1,slot.x2,slot.y2) then inc(c);
  end;
  players[currentplayer].integers[0]:=players[currentplayer].integers[0]+c;
  reportVars[0]:=reportVars[0]+c;
  result:=c;
end;

function msClick(rx,ry:integer): boolean;
var
  i:integer;
begin
  if (rx<msx1) or (rx>msx2) or (ry<msy1) or (ry>msy2) then exit;
  mouse(rx,ry,0,0,true);
  for i:=0 to 50 do
  begin
    if (findcolorspiral(x,y,255,rx-15,ry-15,rx+15,ry+15)) then
    begin
      result:=true;
      exit;
    end;
    if (findcolorspiral(x,y,65535,rx-15,ry-15,rx+15,ry+15)) then
    begin
      result:=false;
      exit;
    end;
    wait(20);
  end;
end;

function isGuildColor(color:integer):boolean;
var
  h,s,l:extended;
begin
  result:=true;
  if color=0 then exit;
  colorToHSL(color,h,s,l);
  if (h>9) and (h<14) then
    if (s>46) and (s<65) then
      if (l>12) and (l<27) then exit;
  if (h>12) and (h<18) then
    if (s>17) and (s<63) then
      if (l>10) and (l<23) then exit;
  if (h>0) and (h<3) then
    if (s>2) and (s<6) then
      if (l>12) and (l<37) then exit;
  if (h>9) and (h<12) then
    if (s>35) and (s<42) then
      if (l>17) and (l<41) then exit;
  result:=false;
end;

function isGasColor(color:integer):boolean;
begin
  result:=true;
  if similarColors(5928835,color,12) then exit;
  if similarColors(8296866,color,20) then exit;
  //i need to add more details to this
  result:=false;
end;

function noPeople(rx,ry:integer):boolean;
var
  i,c,px,py,tCol:integer;
begin
  result:=false;
  while(i<360)do
  begin
    i:=i+3;
    px:=round(40*sine(i))+rx;
    py:=round(-40*cose(i))+ry;
    if (px>msx1) and (px<msx2) then
      if (py>msy1) and (py<msy2) then
      begin
        tCol:=getColor(px,py);
        if not(isGuildColor(tCol)) then inc(c);
      end;
  end;
  if dbug then
   if c>0 then writeln(inttostr(c)+' people colors');
  if c<10 then result:=true;
end;

function assemblePick:boolean;
var
  i,a:integer;
  slot:tbox;
  hand,head:tpoint;
begin
  result:=false;
  gametab(5);
  wait(800);
  mouse(585,300,3,3,true);
  wait(300);
  gametab(4);
  wait(200);
  for i:=1 to 28 do
  begin
    slot:=invbox(i);
    if finddtm(handle,x,y,slot.x1,slot.y1,slot.x2,slot.y2) then hand:=itemcoords(i);
    if findcolorspiral(x,y,pickcolors[random(3)],slot.x1,slot.y1,slot.x2,slot.y2) then head:=itemcoords(i);
  end;
  marktime(a);
  repeat
    mouse(head.x,head.y,3,3,true);
    wait(100+random(200));
    mouse(hand.x,hand.y,3,3,true);
    nolog;
    gametab(4);
    if finddtm(pick,x,y,mix1,miy1,mix2,miy2) then
    begin
      mouse(x,y,3,3,true);
      result:=true;
      inc(assembled);
      exit;
    end;
  until(timefrommark(a)>30000);
end;

{procedure brokenPicTalk;
begin
  case random(7) of
    0: typesend('god damit');
    2: typesend('awww, i look away for one second');
    4: typesend('damit, i was watching TV');
    6: typesend('stupid gas, I wasnt paying attention');
  end;
end; }

function pickupHead:boolean;
var
  i:integer;
begin
  result:=false;
  for i:=0 to 20 do
  begin
    if findobjCustom(x,y,['head','ick','axe'],[pickcolors[0],pickcolors[1],pickcolors[2]],i) then
    begin
      mouse(x,y,0,0,false);
      if chooseoption('ake') then
      begin
        writeln('Pick Head Found!');
        result:=true;
        exit;
      end;
    end;
    wait(500+random(500));
    if i=10 then radialwalk(395004,0,360,20,2,2);
  end;
end;

function pickcheck:integer;
begin
  gametab(5);
  ftwait(5);
  if (finddtm(pick,x,y,mix1,miy1,mix2,miy2)) then
  begin
    if dbug then writeln('pickcheck = 1');
    result:=1;
    exit;
  end;
  if (finddtm(bentpick,x,y,mix1,miy1,mix2,miy2)) then
  begin
    if dbug then writeln('pickcheck = 2');
    result:=2;
    exit;
  end;
  if (finddtm(handle,x,y,mix1,miy1,mix2,miy2)) then
  begin
    if dbug then writeln('pickcheck = 3');
    result:=3;
    exit;
  end;
  writeln('no pick found');
  result:=0;
end;

function pickheadcolors:boolean;
begin
  gametab(5);
  wait(700);
  if finddtm(pick,x,y,mix1,miy1,mix2,miy2) then
  begin
    pickcolors[0]:=getcolor(x-1,y-10);
    pickcolors[1]:=getcolor(x+8,y-8);
    pickcolors[2]:=getcolor(x+15,y-6);
    result:=true;
    if dbug then writeln('pick colors '+inttostr(pickcolors[0])+' '+inttostr(pickcolors[1])+' '+inttostr(pickcolors[2]));
  end;
end;

function handleLostHead:boolean;
begin
  result:=false;
  if pickuphead then result:=assemblepick;
end;

function guildWalk(sr,er,radius,xm,ym,rx,ry:integer):boolean;
var
  i,n,gx,gy:integer;
begin
  {if radialWalkEx(gx,gy,mmcx,mmcy,0,0,sr,er,radius) then
  begin
    mouse(gx+xm,gy+ym,rx,ry,true);
    fflag(5);
    result:=true;
    exit;
  end;}
  result:=false;
  for i:=10 to radius do
  begin
    if sr<er then
    begin
      for n:=sr to er do
      gx:=round(i*sine(n))+mmcx;
      gy:=round(-i*cose(n))+mmcy;
      if (getcolor(gx,gy)=65536) then
      begin
        mouse(gx+xm,gy+ym,rx,ry,true);
        flag;
        result:=true;
        exit;
      end;
    end else
    begin
      for n:=sr downto er do
      gx:=round(i*sine(n))+mmcx;
      gy:=round(-i*cose(n))+mmcy;
      if (getcolor(gx,gy)=65536) then
      begin
        mouse(gx+xm,gy+ym,rx,ry,true);
        flag;
        result:=true;
        exit;
      end;
    end;
  end;
end;

function byLadder:boolean;
var
  i,mx,my:integer;
begin
  result:=false;
  {if getColor(mmcx-30,mmcy)=0 then
    if getColor(mmcx,mmcy-40)=0 then
      if getColor(mmcx,mmcy+40)=0 then result:=true; }
  for i:=180 to 360 do
  begin
    mx:=round(40*sine(i))+mmcx;
    my:=round(-40*cose(i))+mmcy;
    if not(getcolor(mx,my)=0) then exit;
  end;
  result:=true;
end;

function findLadder(var rx,ry:integer;x1,y1,x2,y2:integer):boolean;
var
  i,len,testCol:integer;
  h,s,l:extended;
  p:Array of Tpoint;
begin
  if flagpresent then
  begin
    flag;
    wait(1000);
  end;
  FindColorsSpiralTolerance(mmcx,mmcy,p,10317,x1,y1,x2,y2,55);
  len:=length(p)-1;
  for i:=0 to len do
  begin
    testCol:=getColor(p[i].x,p[i].y);
    colorToHSL(testCol,h,s,l);
    if (h < 12) and (h > 5) then
      if (s > 60) and (l < 50) then
        if countColor(testCol,p[i].x-5,p[i].y-5,p[i].x+5,p[i].y+5)>8 then
        begin
          rx:=p[i].x;
          ry:=p[i].y;
          result:=true;
          laddercolor:=testcol;
          if dbug then writeln('found ladder, color = '+inttostr(testcol));
          exit;
        end;
  end;
 { flag;
  result:=false;
  for i:=0 to 10 do
  begin
    n:=0;
    if findDTM(ladder,mx,my,x1,y1,x2,y2) then
    begin
      testcol:=getcolor(mx,my);
      if not(getcolor(mx,my-1)=testcol) then inc(n);
      if not(getcolor(mx,my+1)=testcol) then inc(n);
      if not(getcolor(mx+1,my-1)=testcol) then inc(n);
      if not(getcolor(mx+1,my+1)=testcol) then inc(n);
      if n>1 then
      begin
        rx:=mx;
        ry:=my;
        result:=true;
        laddercolor:=testcol;
        laddertol:=1;
        if dbug then writeln('found ladder, color = '+inttostr(testcol));
        exit;
      end;
    end;
    ladderTol:=ladderTol+2;
  end;
  resetDDTM;}
end;

function findEntrance(var rx,ry:integer):boolean;
var
  i,mx,my,l,c:integer;
  p:array of TPoint;
begin
  flag;
  FindColorsSpiralTolerance(x,y,P,65536,mmx1,mmcy,mmx2-40,mmy2,0);
  l:=length(p)-1;
  for i:=0 to l do
  begin
    if findLadder(mx,my,p[i].x-10,p[i].y-10,p[i].x+10,p[i].y+10) then
    begin
      c:=countColor(65536,mx-5,my-5,mx+5,my+5)+countColor(laddercolor,mx-5,my-5,mx+5,my+5);
      if c>25 then
      begin
        if dbug then writeln('c = '+inttostr(c)+', entrance found');
        rx:=mx;
        ry:=my;
        result:=true;
        exit;
      end;
    end;
  end;
  result:=false;
end;

function openFEB:boolean;
var
  i,t,cts:integer;
  p:array of Tpoint;
  msc:Tpoint;
begin
  cts:=getcolortolerancespeed;
  colorToleranceSpeed(0);
  marktime(t);
  FindColorsSpiralTolerance(mscx,mscy,p,7372941,msx1,msy1,msx2,msy2,10);
  if dbug then writeln('color array found in '+inttostr(timefrommark(t))+'ms');
  colorToleranceSpeed(cts);
  msc.x:=mscx;
  msc.y:=mscy+30;
  marktime(t);
  p:=RemoveDistTPointArray(msc.x,msc.y,100,p,true);
  if dbug then writeln('shortening took '+inttostr(timefrommark(t))+'ms');
  marktime(t);
  p:=ReArrangeandShortenArrayEx(p,60,500);
  if dbug then writeln('rearranging took '+inttostr(timefrommark(t))+'ms');
  marktime(t);
  SortTPAFrom(p,msc);
  if dbug then writeln('sorting took '+inttostr(timefrommark(t))+'ms');
{  marktime(t);
  pP:=TPAtoATPAEx(p,60,100);
  if dbug then writeln('splitting took '+inttostr(timefrommark(t))+'ms');
  middleTPAex(pP[0],fx,fy); }
  if length(p)>0 then
  begin
    mmouse(p[0].x,p[0].y,0,0);
    wait(20+random(30));
    if isUpTextMulti('ank','booth','ooth') then
    begin
      mouse(p[0].x,p[0].y,0,0,false);
      wait(20+random(50));
      if chooseOption('quickly') then
      begin
        fflag(0);
        for i:=1 to 10 do
        begin
          if ((bankscreen) or (pinscreen)) then
          begin
            result:=true;
            exit;
          end;
          wait(500+random(100));
        end;
      end;
    end;
  end;
end;
  
procedure walktoGuild;
var
  i,t:integer;
begin
  if (not(loggedIn)) then exit;
  if not(lowercase(players[currentplayer].loc)='walktoguild') then exit;
  if dbug then writeln('walking to guild');
  if findladder(x,y,mmcx+25,mmcy-30,mmx2,mmcy+30) then
  begin
    mouse(x-15,y+10,3,3,true);
    flag;
  end else
  begin
    mouse(mmcx+40,mmcy+20,3,3,true);
    flag;
  end;
  for i:=0 to 10 do
  begin
    if findentrance(x,y) then
    begin
      mouse(x,y,5,5,true);
      flag;
      break;
    end;
    wait(500);
  end;
  for i:=0 to 20 do
  begin
    flag;
    if findobjCustom(x,y,['adder','limb'],[2774387,14421,6184,2709368,15708],5) then
    begin
      mouse(x,y,1,1,false);
      wait(100);
      if chooseoption('down') then
      begin
        flag;
        break;
      end;
    end;
    wait(500);
  end;
  marktime(t);
  repeat
    wait(1000);
    if timefrommark(t)>20000 then
    begin
      logout;
      np:=true;
      exit;
    end;
  until(countcolor(65536,mmx1,mmy1,mmx2,mmy2)>800);
  setrun(False);
  players[currentplayer].loc:='Guild';
end;

procedure walktobank;
var
  i,t:integer;
  ang:extended;
begin
  if (not(loggedIn)) then exit;
  if not(lowercase(players[currentplayer].loc)='walktobank') then exit;
  if dbug then writeln('walking to bank');
  if not(guildWalk(175,185,70,-40,-30,3,3)) then guildWalk(275,265,70,10,30,3,3);
  for i:=0 to 5 do
  begin
   // if not(guildWalk(220,218,50,0,-25,3,3)) then guildWalk(280,330,50,0,20,3,3);
    guildwalk(260,180,70,-30,-30,3,3);
    if findladder(x,y,mmx1,mmy1,mmx2,mmy2) then
    begin
      mousefindflag(x,y,3,3);
      flag;
      break;
    end;
    if byLadder then break;
  end;
  for i:=0 to 30 do
  begin
    if findobjCustom(x,y,['adder','limb'],[2774387,14421,6184,2709368,15708],5) then
    begin
      mouse(x,y,1,1,false);
      wait(100);
      if chooseoption('up') then
      begin
        flag;
        marktime(t);
        repeat
          wait(1000);
          if timefrommark(t)>30000 then
          begin
            logout;
            np:=true;
            exit;
          end;
        until(countcolor(65536,mmx1,mmy1,mmx2,mmy2)<800);
        break;
      end;
    end else wait(500);
    if (i=20) or (i=25) then
    begin
      mouse(mmcx-50,mmcy,5,5,true);
      flag;
    end;
    if i=30 then
    begin
      logout;
      np:=true;
      exit;
    end;
  end;
  if findladder(x,y,mmcx+10,mmy1,mmx2,mmcy-50) then
  begin
    mouse(x-20,y+10,3,3,true);
    flag;
  end else
  begin
    mouse(mmcx+20,mmcy-55,3,3,true);
    flag;
  end;
  for i:=0 to 20 do
  begin
    if findDTMrotated(bankers,x,y,mmx1,mmy1,mmx2,mmy2,-1.5,1.5,0.05,ang) then
    begin
      mouse(x-5,y-7,5,2,true);
      flag;
      players[currentplayer].loc:='bank';
      exit;
    end;
    wait(500);
    fflag(0);
  end;
  np:=true;
end;

procedure bank;
var
  i:integer;
  getpick:boolean;
begin
  if (not(loggedIn)) then exit;
  if not(lowercase(players[currentplayer].loc)='bank') then exit;
  if dbug then writeln('banking....');
  makecompass('n');
  highestangle;
  gametab(4);
  if pickcheck=1 then
  begin
    if invcount<1 then
    begin
      players[currentplayer].loc:='walkToGuild';
      exit;
    end;
  end else
  begin
    if pickcheck>1 then
    begin
      mouse(585,300,3,3,true);
      wait(500);
    end;
    getpick:=true;
  end;
  for i:=0 to 5 do
  begin
    flag;
    if ((bankscreen) or (pinscreen)) then break;
//    wait(random(1000));
    if not(openFEB) then OpenBankQuiet('feb');
    if ((bankscreen) or (pinscreen)) then break;
    if i=5 then
    begin
      logout;
      np:=true;
      exit;
    end;
  end;
  wait(500);
  if countcoal>0 then inc(players[currentplayer].banked);
  depositall;
  if (getpick) then
  begin
    if finddtm(pick,x,y,msx1,msy1,msx2,msy2) then
    begin
      mouse(x,y,3,3,true);
      wait(800);
    end else
    begin
      if dbug then writeln(players[currentplayer].name+' has no pick');
      closebank;
      logout;
      np:=true;
      exit;
    end;
  end;
  closebank;
  gametab(4);
  wait(500);
  if finddtm(pick,x,y,mix1,miy1,mix2,miy2) then mouse(x,y,3,3,true);
  brief;
  players[currentplayer].loc:='walkToGuild';
  pickheadcolors;
end;

function gasFinder(sx,sy:integer):boolean;
var
  p:array of Tpoint;
  gCx,gCy,gP,cts,len,bmp,tCol:integer;
  gC:Tcanvas;
  gB:Tbox;
begin
  if findGas(sx,sy) then
  begin
    result:=true;
    exit;
  end;
  gB.x1:=sx-20;
  if gB.x1<msx1 then gB.x1:=msx1+5;
  gB.y1:=sy-20;
  if gB.y1<msy1 then gB.y1:=msy1+5;
  gB.x2:=sx+20;
  if gB.x2>msx2 then gB.x2:=msx2-5;
  gB.y2:=sy+20;
  if gB.y2>msy2 then gB.y2:=msy2-5;
  cts:=getColorToleranceSpeed;
  colorToleranceSpeed(0);
  findColorsSpiralTolerance(mmcx,mmcy,p,5928835,gB.x1,gB.y1,gB.x2,gB.y2,13);
  colorToleranceSpeed(cts);
  len:=length(p);
  if dbug then
    if len<>0 then writeln(inttostr(len)+' gas colors');
  if len>5 then
  begin
    bmp:=bitmapFromString(40,40,'');
    gC:=GetBitmapCanvas(bmp);
    CopyCanvas(GetClientCanvas,gC,gB.x1,gB.y1,gB.x2,gB.y2,0,0,40,40);
    for gCy:=0 to 49 do
      for gCx:=0 to 49 do
      begin
        tCol:=gC.pixels[gCx,gCy];
        if isGasColor(tCol) then inc(gP);
      end;
    if gP>80 then
    begin
      if dbug then
      begin
        writeln('gas found!!');
   //     DisplayDebugImgWindow(40,40);
   //     CopyCanvas(Gc,getdebugcanvas,0,0,40,40,0,0,40,40);
      end;
      result:=true;
    end;
  end;
end;

function rockUnderMouse:boolean;
var
  cts,count:integer;
  rB:Tbox;
begin
  if isUpTextMulti('ock','ine','Rock') then
  begin
    getMousePos(x,y);
    if gasFinder(x,y-20) then
    begin
      mouse(mmcx+20,mmcy,5,5,true);
      flag;
      inc(gas);
      exit;
    end;
    rB.x1:=x-20;
    if rB.x1<msx1 then rB.x1:=msx1;
    rB.y1:=y-20;
    if rB.y1<msy1 then rB.y1:=msy1;
    rB.x2:=x+20;
    if rB.x2>msx2 then rB.x2:=msx2;
    rB.y2:=y+20;
    if rB.y2>msy2 then rB.y2:=msy2;
    cts:=getColorToleranceSpeed;
    colorToleranceSpeed(0);
    count:=countColorTolerance(4606029,rB.x1,rB.y1,rB.x2,rB.y2,18);
    if count<50 then result:=true;
    colorToleranceSpeed(cts);
  end;
end;

function clickRock:boolean;
var
  mx,my:integer;
begin
  if rockUnderMouse then
  begin
    ns:=nextemptyslot;
    getMousePos(mx,my);
    result:=msClick(mx,my);
  end;
end;

function middleOfRock(var rx,ry:integer;rock:Tpoint):boolean;
var
  ps:Array of Tpoint;
begin
  FindColorsSpiralTolerance(mscx,mscy,ps,2900546,rock.x-40,rock.y-40,rock.x+40,rock.y+40,4);
  if length(ps)>0 then
    if middleTPAex(ps,rx,ry) then result:=true;
end;

function findRock(var rocks:array of tpoint):boolean;
var
  i,c,mx,my,len,cts:integer;
  p,res:Array of Tpoint;
  pp:array of array of Tpoint;
  nope:boolean;
begin
  nope:=false;
  fflag(0);
  wait(200);
  cts:=getColorToleranceSpeed;
  colorToleranceSpeed(2);
  FindColorsSpiralTolerance(mscx,mscy,p,2900546,msx1,msy1,msx2,msy2,4);
  pp:=TPAtoATPAEx(p,70,50);
  len:=length(pp)-1;
  if len<0 then exit;
  for i:=0 to len do
  begin
    if middleOfRock(mx,my,pp[i][0]) then
    begin
      if not(gasFinder(mx,my-20)) then
      begin
        if (i<>0) then
        begin
          if noPeople(mx,my) then nope:=true;
        end else nope:=true;
        if nope then
        begin
          setArrayLength(res,c+1);
          res[c].x:=mx;
          res[c].y:=my;
          inc(c);
          if c>2 then break;
        end;
      end;
    end;
  end;
  if c>0 then
  begin
    setArrayLength(rocks,c);
    rocks:=res;
    result:=true;
  end;
  colorToleranceSpeed(cts);
end;

procedure mining;
var
  t,t2:integer;
  bool:boolean;
begin
  bool:=true;
  gametab(4);
  if invfull then exit;
  flag;
  marktime(t);
  marktime(t2);
  while(timefrommark(t)<10000+random(5000))do
  begin
    findnormalrandoms;
    if invFull then exit;
    if (existsitem(ns)) then
    begin
      if clickRock then
      begin
        if dbug then writeln('restarting mining internally');
        mining;
      end;
      exit;
    end;
    if findBlackChatMessage('vailable') then break;
    ftwait(1);
    if timefrommark(k)>20000 then
    begin
      nolog;
      marktime(k);
      bool:=true;
    end;
    ftwait(1)
    if (existsitem(ns)) then
    begin
      if clickRock then
      begin
        if dbug then writeln('restarting mining internally');
        mining; // recursion, hopefully shouldnt cause any problems
      end;
      exit;
    end;
    if fighting then
    begin
      runaway;
      exit;
    end;
    ftwait(1);
    if ((timefrommark(p)>60000) or (FindText(x,y,'ickaxe',npcchars,400,350,500,400))) then
    begin
      case pickcheck of
        0: begin
             brk:=true;
             exit;
           end;
        1: pickheadcolors;
        2: begin
             inc(missedgas);
             brk:=true;
             exit;
           end;
        3: if not(handlelosthead)then
           begin
             brk:=true;
             exit;
           end;
      end;
      marktime(p);
      bool:=true;
    end;
    ftwait(1);
    if timefrommark(hp)>90000 then
    begin
      if hppercent<60 then runawayHP;
      marktime(hp);
      bool:=true;
    end;
    ftwait(1);
    if (existsitem(ns)) then
    begin
      if clickRock then
      begin
        if dbug then writeln('restarting mining internally');
        mining; // recursion, hopefully shouldnt cause any problems
      end;
      exit;
    end;
    if findRock(rP) then
    begin
      if not(invCount=27) then
        if bool then
        begin
          if length(rP)>1 then mmouse(rP[1].x,rP[1].y,0,0) else mmouse(rP[0].x,rP[0].y,0,0);
          bool:=false;
        end;
      if length(rP)>0 then
        if distance(mscx,mscy,rP[0].x,rP[0].y)>55 then
        begin
          if dbug then writeln('breaking out of mining');
          ns:=nextemptyslot;
          if clickRock then mining; // recursion, hopefully shouldnt cause any problems
          exit;
        end;
    end;
  end;
end;

procedure mineLoop;
var
  i,t,len:integer;
begin
  if (not(loggedIn)) then exit;
  if not(lowercase(players[currentplayer].loc)='guild') then exit;
  if dbug then writeln('in guild, mining....');
  gametab(4);
  ns:=nextemptyslot;
  brk:=false;
  marktime(t);
  marktime(p);
  repeat
    gametab(4);
    if brk then break;
    if invfull then break;
    if not(loggedIn) then exit;
    if findRock(rP) then
    begin
      len:=length(rP)-1;
      for i:=0 to len do
      begin
        mmouse(rP[i].x,rP[i].y,0,0);
        wait(50+random(100));
        if clickRock then
        begin
          gametab(4);
          if dbug then writeln('starting mining from mineloop');
          mining;
          break;
        end;
        wait(50+random(100));
      end;
    end else
    begin
      if not(guildWalk(270,240,70,70,-3,3,3)) then guildWalk(60,90,40,-50,30,3,3);
    end;
  until(timefrommark(t)>900000);
  players[currentplayer].loc:='walkToBank';
end;

begin
  SafeInitForm;
  SafeShowFormModal;
  loadDTMs;
  setupsrl;
  reportID:=getPage('http://www.headweight.net/projects/SRL/reports/guilderworld/num.php');
  if dbug then writeln(reportID);
  ScriptID:='365';
  if not(yourSRLstatsID = '') then SRLID := yourSRLstatsID;
  if not(yourSRLstatsPW = '') then SRLPassword := yourSRLstatsPW;
  declareplayers;
  activateclient;
  np:=false;
  wait(500);
  loginplayer;
  marktime(s);
  repeat
    if (np) then
    begin
      brief;
      nextplayer(loggedIn);
      brief;
      loginplayer;
      marktime(s);
      np:=false;
    end;
    findnormalrandoms;
    bank;
    walktoguild;
    mineLoop;
    walktobank;
    if not(loggedIn)then np:=true;
    if (timefrommark(s)>(minstilswitch*60000)) then
    begin
  //    bank;
   //   logout;
      np:=true;
    end;
  until(false);
end.

It should work, i haven't really tested it though because i am busy at the moment.

Rikje

2007-11-17 02:05:08

wow,, nice script munk!! :)

Hugolord

2007-11-17 05:39:43

munk could we talk on msn, i wanted to know how you did the php part/mysql

JuKKa

2007-11-17 05:52:34

Ayyy! Trying to beat my script ;)?
Looks nice although i prefer my own :P

oliver1205

2007-11-17 06:02:22

lots of competion with guild miners =p. looks good i will post feedback if anything goes wrong. looking at your proggies, nothing should go wrong

jkmaster

2007-11-17 09:22:11

i love this script! but the only bug i've found was when just as someone finished mining a coal and the script clicked it at the same time too. then it gets stuck for a little while.

oliver1205

2007-11-17 12:20:57

when ever i hit play all it does is lagg like crazy

Daniel

2007-11-17 17:45:31

From: JuKKa
Ayyy! Trying to beat my script ;)?
Looks nice although i prefer my own :P

I reckon it is way better than your's JuKKa!

From: oliver1205
when ever i hit play all it does is lagg like crazy

Run a registry scan, defrag your computer, check for viruses, have your resolution and colour depth as the script tells you.

Daniel

2007-11-17 19:59:17

It lost my pickhead and didn't even want to manage to find it. I had to pause the script, and do it manually!

Daniel

2007-11-17 20:16:06

It doesn't work anymore for me. It walks to guild successfully and climb's down the ladder and just click's anywhere in ther guild, even when there are full coal rocks there (Already respawned).

NiCbaZ

2007-11-17 22:03:49

From: IP-Drowner
It doesn't work anymore for me. It walks to guild successfully and climb's down the ladder and just click's anywhere in ther guild, even when there are full coal rocks there (Already respawned).

you applied to become a srl member. and yet you couldnt evan fix that little error and you tripple post'ed

xxmynameisjohnxx

2007-11-17 22:26:35

I'm gonna use this overnight tonight, will give a proggy tomorrow afternoon.
it's worked great for two loads, :]

munk

2007-11-18 01:21:36

From: hugolord
munk could we talk on msn, i wanted to know how you did the php part/mysql

i dont use msn :/

you use aim? irc? vent?

popoaoa

2007-11-18 01:41:40

hmm it seemed to work yesterday (made 1k coal in about 5 hours :)) but now when it comes from the bank to the guild it clicks in the corner in the top right hand part of the guild on the outside and then just stops :/

Daniel

2007-11-18 01:45:05

From: nicbaz
you applied to become a srl member. and yet you couldnt evan fix that little error and you tripple post'ed

Because i did not want this topic to be on the bottom of the list then get lost forever.

oliver1205

2007-11-18 09:08:21

sry it was a problem with scar.

xxmynameisjohnxx

2007-11-18 16:28:27

Well, the mining works great….but it'll only mine two loads then it stops, logs out, it SAYS going to next player, but it never logs in, and it always has my guy in a spot where the script can't find the mine when it logs back in….
so idk.
I was sad, I was away from home for 15 hours and had the script running…and came back and it only had gotten 55 coal…

Daniel

2007-11-19 01:04:03

From: xxmynameisjohnxx
Well, the mining works great….but it'll only mine two loads then it stops, logs out, it SAYS going to next player, but it never logs in, and it always has my guy in a spot where the script can't find the mine when it logs back in….
so idk.
I was sad, I was away from home for 15 hours and had the script running…and came back and it only had gotten 55 coal…

Are you starting in the Falador East Bank? Did you ever change line 42? If you have changed line 42, copy and paste this:

  Players[0].loc := 'bank';

because that is the original code for that line.

xxmynameisjohnxx

2007-11-19 06:25:51

From: IP-Drowner
Are you starting in the Falador East Bank? Did you ever change line 42? If you have changed line 42, copy and paste this:
  Players[0].loc := 'bank';
because that is the original code for that line.

Nope, the only thing I edited at all in the script was I added a disguise with

Disguise 'iTunes'

into the very beginning of the main loop, nothing else.

Question, is there a point to disguising it?
I know alot of scripts do, but there are also a lot that don't.

NiCbaZ

2007-11-20 01:27:38

From: IP-Drowner
Because i did not want this topic to be on the bottom of the list then get lost forever.

its a rule on forums tho not supposed to double post, just letting you know

soccnut

2007-11-20 07:14:18

the page where u host the proggies is offline.

munk

2007-11-22 00:49:59

i did an update. Proggy posting is option and defaulted to false. Eat your heart out leechers.

Im sad this thread is like dieing. I love this script. Give it a try! Post proggies and feedback!!!

EDIT: oh yeah, and I never could get this script to work on 3.13 with SRL#7, if you do, please let me know.

buck cakes

2007-11-22 13:47:30

From: munk
i did an update. Proggy posting is option and defaulted to false. Eat your heart out leechers.

Im sad this thread is like dieing. I love this script. Give it a try! Post proggies and feedback!!!

EDIT: oh yeah, and I never could get this script to work on 3.13 with SRL#7, if you do, please let me know.

Sorry! my guildmining army is taking longer than i thought. I just found out that i still have 2 accounts under level 40 and i think that is instant bannage in the guild. Give me like 2 more days and ill have a big fat proggy for this script.

Daniel

2007-11-23 19:05:42

From: xxmynameisjohnxx
Nope, the only thing I edited at all in the script was I added a disguise with
Disguise 'iTunes'
into the very beginning of the main loop, nothing else.

Question, is there a point to disguising it?
I know alot of scripts do, but there are also a lot that don't.

Well, you need to change how many loads to do in the constants.

Daniel

2007-11-23 19:06:43

Only if i were SRL-Member. I wish i was though, my script's keep getting denied.

**Crys**

buck cakes

2007-11-23 19:38:50

From: IP-Drowner
Only if i were SRL-Member. I wish i was though, my script's keep getting denied.

**Crys**

please don't spam and double post simultaneously.

Daniel

2007-11-27 03:03:28

From: buck cakes
please don't spam and double post simultaneously.

I believe there was a post before that!

jkmaster

2007-11-27 19:42:36

uhh i ran it again yesterday night and it somehow ran for 2 hours and got my person stuck at a random place just outside of fally. what happened? lol i rated the thread once and it gave u an instant 5 star

coollukehand

2007-11-29 08:52:08

kensaurus

2007-11-30 00:15:32

hope to see your script up again..
havent had a single try yet :(

Daniel

2007-11-30 00:27:24

From: kensaurus
hope to see your script up again..
havent had a single try yet :(

Only people that munk thinks are worthy of having his updated script can have it.

Please read the first post of this topic and you'll understand why (STUPID LEECHERS).

soccnut

2007-11-30 07:06:38

From: munk
i did an update. Proggy posting is option and defaulted to false. Eat your heart out leechers.

Im sad this thread is like dieing. I love this script. Give it a try! Post proggies and feedback!!!

EDIT: oh yeah, and I never could get this script to work on 3.13 with SRL#7, if you do, please let me know.

3.13 is rather buggy, the only script that i could get to work was forefeathers.

sad that this script is no longer online though.
I believe its rather a good script although i have nvr tried it yet,your cookerator just pwns.

jkmaster

2007-11-30 17:59:30

just another tester, really would like to test ur new script =P

xxmynameisjohnxx

2007-11-30 18:25:41

hey I'd love to test it too, probably tomorrow night,
I'll definitely post proggies, ask king of knives, for scripts that work well for me I post lots of good ones.

op_ivy_freak

2007-11-30 19:17:24

Hey, if you still want somone to test it out, I would gladly do it. I would post reports.

chrsk13

2007-12-01 02:22:35

I'd like to test it out if you want. I have 7 miners and I could tell you how it runs and everything.

jas0npc

2007-12-01 04:14:13

mate just came across this script if you need another tester please let me know, many thanks.

pumaz100

2007-12-01 13:01:35

if you add a drink stout option that would be great =] i guess i would test it

Burt

2007-12-01 15:09:33

i can test

Eugeniu

2007-12-02 00:26:41

I might as well ask to be a tester…

xxmynameisjohnxx

2007-12-02 02:17:08

Ok, I got this error on the new version.
Socket Error # 10060
Connection timed out.
?

kingarabian

2007-12-02 02:26:10

Yo munk ill try it out right now. will post feed back soon.

Edit: Ok it goes into the mine and goes all the way east by the mith. Mines 1 coal, walks back to the center and it logs out:/.

awesom

2007-12-02 02:36:29

I am wondering since your Edit is after the "Removed" thing does that mean your still going to post an updated version later and want testers? Cuz I would love to test for you and help you make it better because your so good at this and I love your scripts they always work perfectly so I would love to try give something back by helping you straighten out errors.

I'm not good at scripting yet but I can test pretty well :)

soccnut

2007-12-02 10:11:31

——————– player report ———————-
0 enli = T | 1 banks | 26 coal 0 mith | bank |
———————————————————

a script called GuilderWorld

ran for 8 Minutes and 24 Seconds
mined 26 coal
mined 0 mith
avoided 0 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

mined 1 load and solved one security guard random
"bye bye security guard" =D

stopped it and i am now moving my other mining 70+ account other to fally bank,will post a longer proggy later.

IMO its faster than jukkas one, but occasionally it moves on to another rock before finishing current one.Im mining lvl 76 and using rune pick

nice job on it….

jkmaster

2007-12-02 13:30:27

sweetleaf

2007-12-02 15:31:33

i just got 3 guild miners so i'd love 2 test this test. pm: )

munk

2007-12-02 16:09:13

From: xxmynameisjohnxx
Ok, I got this error on the new version.
Socket Error # 10060
Connection timed out.
?

just set uploadProggy to false. My server likes to go down. It shouldnt cause any errors in the script though.

From: kingarabian
Yo munk ill try it out right now. will post feed back soon.

Edit: Ok it goes into the mine and goes all the way east by the mith. Mines 1 coal, walks back to the center and it logs out:/.

hmm? havent seen that? does it happen alot or was it an isolated incident?

From: jkmaster

wow i am greatly impressed, its great! it might move on to another rock before the one ur doing right now like soccnut said and mith isnt first prioity for it O.o why? other than that it works great =p

Yeah, it'll move onto a new rock every now and then, its just how the script it written. If i changed it so it didnt do that, the script wouldnt be anything like it is. It has to do with the breakout if somebody steals your rock. It reads that someone is around the rock(most likely your character) and moves on. It will also always break out of a coal rock to mine a mith rock. As for mith, it is hard because there are usually like 5 lvl90s in full rune waiting to mine all the mith, along with the respawn time taking forever and being so few rocks, I cant really make it a "priority".

qazwsx

2007-12-02 19:24:03

hey man please can u let me test your script i got a whole army of 8 lemme use ur script plz my msn is [email]goldendrgon_1993@hotmail.com[/email] ill test this script out for u with all my 8 players please

xxmynameisjohnxx

2007-12-02 19:25:52

From: munk
just set uploadProggy to false. My server likes to go down. It shouldnt cause any errors in the script though.

it actually stopped the script.
Idk.
when I logged on he was mid load and nothing appeared to be wrong

soccnut

2007-12-02 19:43:56

———————————————————

a script called GuilderWorld

ran for 7 Hours, 6 Minutes and 40 Seconds
mined 1302 coal
mined 0 mith
avoided 20 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

——————– player report ———————-
0 enli = T | 24 banks | 664 coal 0 mith | walkToBank |
1 occ = T | 23 banks | 638 coal 0 mith | walkToGuild |
———————————————————

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 22 |
| Talks : 5 |
| Dwarfs : 1 |
| Old Men : 2 |
| Lamps Solved : 2 |
| Capn Hand : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

the proggy that i promised you…

this script is gay man…
it would have coninued mining except that i switched off the router this morn,no idea at all that the script was still running.Jukka and pyro's one never lasted overnight for me before.

Eugeniu

2007-12-02 19:56:27

Sadly, I didn't get to do much on this…

It logged in, looked for an equipped pickaxe (I was using rune and my att was 30..) and proceeded to say there was no pickaxe. I looked for the option to use a paxe from the inventory, but found none, so I decided to use an iron pickaxe equipped and a rune paxe in the inventory. But it just deposited the rune one in the bank and started going to the guild. It froze half way and just stayed there until stopped the program and took control of my account :(.

xxmynameisjohnxx

2007-12-02 22:44:44

ran for 1 Hours, 21 Minutes and 7 Seconds
mined 256 coal
mined 50 mith
avoided 4 gas, missed 0 gas
assembled 0 pickaxes'

I'm gonna leave running overnight tonight.
:]

munk

2007-12-03 00:56:09

From: Eugeniu
Sadly, I didn't get to do much on this…

It logged in, looked for an equipped pickaxe (I was using rune and my att was 30..) and proceeded to say there was no pickaxe. I looked for the option to use a paxe from the inventory, but found none, so I decided to use an iron pickaxe equipped and a rune paxe in the inventory. But it just deposited the rune one in the bank and started going to the guild. It froze half way and just stayed there until stopped the program and took control of my account :(.

first, pickaxes must be wielded. Second, you're using scar 3.13 arent you? I remember stating that it doesnt work on 3.13. It works best on 3.12c

soccnut

2007-12-03 02:22:02

yet another proggy

——————– player report ———————-
0 enli = T | 23 banks | 637 coal 0 mith | walkToGuild |
———————————————————

a script called GuilderWorld

ran for 2 Hours, 41 Minutes and 0 Seconds
mined 637 coal
mined 0 mith
avoided 2 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

——————– player report ———————-
0 enli = T | 26 banks | 718 coal 0 mith | bank |
———————————————————

a script called GuilderWorld

ran for 3 Hours, 2 Minutes and 18 Seconds
mined 718 coal
mined 0 mith
avoided 2 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

seems that there are many ppl who wanna be testers after i posted the 7 hour proggy….

kingarabian

2007-12-03 16:44:46

Yea it had happened twice…Not sure why though. But i will will try later.

supersain

2007-12-03 20:50:03

do we have to wield the pick
or is it ok if it's still in inv?

jkmaster

2007-12-03 21:05:55

weild the pick or itll weild it for u, u have to be able to weild it.:p

chrsk13

2007-12-03 23:57:00

I'd be happy to test if you want. I can post reports and watch the script for a while and tell you how it runs. I have plenty of guys to run it on also.

helenclarko

2007-12-04 01:16:53

sounds oh to good to be true, Munk makes a guild miner :D
Munk if need be, I'll be a tester too

Cheers

coollukehand

2007-12-04 08:59:47

soccnut

2007-12-04 11:48:43

——————– player report ———————-
0 enli = T | 9 banks | 251 coal 0 mith | walkToGuild |
———————————————————

a script called GuilderWorld

ran for 1 Hours, 19 Minutes and 7 Seconds
mined 251 coal
mined 0 mith
avoided 3 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

worked well, guess i am getting about 200 coal/hr

wont be actively testing this script that much now that it is running fine,
coal prices at 150ea not motivating me to run this script. :(

i most likely will be training cooking now… hope your cookerator banking problem is solved

supersain

2007-12-04 20:16:33

any chance of releasing it again to jr members (aka leechers) ?

op_ivy_freak

2007-12-04 20:18:14

coollukehand

2007-12-05 08:59:29

kor

2007-12-05 10:23:21

this script sounds great =P very nice proggy you got there munk.

btw i love ur picture of house : D house ftw!

munk

2007-12-05 15:53:00

From: coollukehand
for some reason it will not run for long periods of time (maybe my computer who knows)
I found it this morning with the following report and somehow FireFox was shut down completely?????

——————– player report ———————-
0 ooll = T | 3 banks | 67 coal 17 mith | bank |
1 oolj = T | 4 banks | 97 coal 15 mith | walkToGuild |
2 oolb = T | 4 banks | 90 coal 21 mith | walkToGuild |
3 oolm = T | 4 banks | 96 coal 15 mith | walkToGuild |
4 oolc = T | 4 banks | 98 coal 14 mith | walkToGuild |
5 esch = T | 3 banks | 62 coal 22 mith | Guild |
———————————————————

a script called GuilderWorld

ran for 4 Hours, 7 Minutes and 49 Seconds
mined 510 coal
mined 104 mith
avoided 18 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

NextPlayer
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 11 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

"three minutes have passed" is when it is trying to login but cannot find the "welcome to runescape" screen. It usually happens when the client loses activation by a popup, system tray balloon, some sort of automatic update for a program, many things. All my computers are set to not notify me of anything and not update without my say so. It helps alot. Also, blocking runescape ads to stop javascript errors thatll screw up a script.

coollukehand

2007-12-07 08:53:13

Daniel

2007-12-07 20:26:28

Munk, how come you haven't replied in my PM message for this script? I want to have a go at this script, please!!!

I am not a leecher!

op_ivy_freak

2007-12-08 16:48:13

From: IP-Drowner
Munk, how come you haven't replied in my PM message for this script? I want to have a go at this script, please!!!

I am not a leecher!

Umm, do you remeber, he said post with a request of being a tester in this place. I dont think he said PM him with request. Or he already had enough testers.

Eugeniu

2007-12-09 17:10:50

From: munk
first, pickaxes must be wielded. Second, you're using scar 3.13 arent you? I remember stating that it doesnt work on 3.13. It works best on 3.12c

I don't remember you saying that. Why doesn't it work with 3.13?

qazwsx

2007-12-13 03:47:08

erm where is your script it say it has been removed??

munk

2008-03-23 07:30:30

hey! guess whats free again…

v.0.1.0 posted.

eat your heart out

nobody u kno

2008-03-23 11:24:00

Nice script!

———————————————————

a script called GuilderWorld

ran for 1 Hours, 17 Minutes and 13 Seconds
mine0 gas
assembled 0 pickaxesd 218 coal
mined 4 mith
avoided 0 gas, missed

Harry

2008-03-23 11:26:27

Yay munk! I love you too! :D

Dracody

2008-03-23 11:50:07

From: munk
hey! guess whats free again…

v.0.1.0 posted.

eat your heart out

OMG!!!! awsomeeee!!!! Thanks a lot munk!!:D I will use it and post a proggy later :p

Wooott!!! guilderWorld released once more!!:D:D

KoKouKo

2008-03-23 14:08:02

ran for an hour but then i paused it did something and forgot where i paused it so i couldnt get it to keep running

munk

2008-03-23 15:45:00

glad to see people already lovin it :) happy easter!

———————————————————

a script called GuilderWorld

ran for 20 Hours, 13 Minutes and 38 Seconds
mined 4249 coal
mined 0 mith
avoided 1 gas, missed 2 gas
assembled 0 pickaxes

———————————————————

from yesterday :D

14 view in like 6 hours? I better see some proggies, leechers!

kingarabian

2008-03-23 16:13:33

Yea this script has a looong history leachers. Better post them proggies.

munk

2008-03-23 17:02:26

From: kingarabian
Yea this script has a looong history leachers. Better post them proggies.

did you download the version from here? it has a few more updates than the one i sent you the other night :D

KoKouKo

2008-03-23 19:53:03

still going

——————– player report ———————-
0 at = T | 28 banks | 617 coal 53 mith | walkToGuild |
1 at = F | 11 banks | 264 coal 17 mith | Guild | Sandwich Lady
———————————————————

a script called GuilderWorld

ran for 5 Hours, 40 Minutes and 7 Seconds
mined 881 coal
mined 70 mith
avoided 1 gas, missed 1 gas
assembled 0 pickaxes

———————————————————
NextPlayer
*********
Rock Color = 5198415

chrsk13

2008-03-24 23:25:31

I'm proablly going to try out the script. If I do i'll be sure to leave a progress report or tell how it did.

EDIT: I made it SMART enabled (not sure if it matters) but I can't get the scipt to do much. It goes in the guild, mines a few ores, then just stands around and I stop it myself before it logs out.

Ok, I had it going for almost 10 minutes very good but all of a sudden scar died. A bunch of errors about violations popped up and something about wizzy.dll if I saw right and it took a while to make them stay shut. Any ideas?

KoKouKo

2008-03-25 00:56:04

Sometimes the script goes to switch players, that's normal but it logs out and then never logs back in, the last line in teh debug is

NextPlayer

and the script is still running.

Benson

2008-03-25 01:14:22

super question…

bank pin: can you add something to encorperate the operation of bank pins…so i dont ahve toge t rid of mien to use this script :P

and other then that its a nice script. i ran it for like 15 mins but ahd to turn computer off. ill try again tonight.

KoKouKo

2008-03-25 02:29:16

add this line after the openbank thing in the script, i havent really looked at teh code


InPin(pin goes here pl0x?);
Wait(150+random(100));

kingarabian

2008-03-25 15:53:14

——————– player report ———————-
0 ezbe = F | 16 banks | 419 coal 0 mith | no pick | No GameTab
2 haso = T | 50 banks | 1380 coal 0 mith | no pick |

———————————————————

a script called GuilderWorld

ran for 8 Hours, 8 Minutes and 28 Seconds
mined 1799 coal
mined 0 mith
avoided 28 gas, missed 1 gas
assembled 0 pickaxes

———————————————————

Here you go munk. This version is the one that you sent me over on msn.

The gas finder needs some tweaking a little. Doesnt always detect it.

KoKouKo

2008-03-25 16:56:52

——————– player report ———————-
0 at = T | 28 banks | 629 coal 31 mith | walkToGuild |
———————————————————

a script called GuilderWorld

ran for 3 Hours, 55 Minutes and 41 Seconds
mined 629 coal
mined 31 mith
avoided 0 gas, missed 0 gas
assembled 0 pickaxes

———————————————————
NextPlayer

i logged back in at the second click for walking, since i only use one player, i change the logout, brief, nextplayer thing to logout, breif, loginplayer, hope that works

chrsk13

2008-03-25 19:04:17

I keep getting a runtime error. It wouldn't let me copy and paste is but it had some random numbers and it mentioned line 445. Could it have anything to do with me using smart?

EDIT: I redownloaded it and ran it without SMART and I got it again, here is what it says: [Runtime Error] : Exception: Access violation at address 004051F0 in module 'scar.exe'. Read of address 9999995A in line 624 in script C:\….. I'm going to redownload scar and try again.
Nvm, that didn't work. The script seems good for the first five minute or so though.

KoKouKo

2008-03-25 20:25:02

look at whats on line 624, i had a few errors like that, i forgot the line though, but on the line it was if(dbug)then writeln(kokouko is sexy) or something like that, obviously it isnt needed in the script so you can delete it

chrsk13

2008-03-26 01:02:18

Thanks for the help KoKouKo, it seems to be working great now except 1 problem. It doesn't seem to want to run my first player. It runs my second one but doesn't even attempt for my first.

a script called GuilderWorld

ran for 2 Hours, 52 Minutes and 48 Seconds
mined 390 coal
mined 48 mith
avoided 0 gas, missed 0 gas
assembled 0 pickaxes

My player was at the top of the wizard tower when I logged in.

dorkythedork

2008-03-26 05:12:48

I always got these error i reinstalled it I tryed alot of things but it didn't work

[Runtime Error] : Exception: Access violation at address 004051F0 in module 'scar.exe'. Read of address FFFFFFFF in line 453 in script C:\Users\Niels\Desktop\firedownload\guilderworld_0.1.0.scar

chrsk13

2008-03-26 08:41:46

From: dorkythedork
I always got these error i reinstalled it I tryed alot of things but it didn't work

[Runtime Error] : Exception: Access violation at address 004051F0 in module 'scar.exe'. Read of address FFFFFFFF in line 453 in script C:\Users\Niels\Desktop\firedownload\guilderworld_0.1.0.scar

Do what KoKouKo said a couple posts above you. I had the same problem but it apparently fixed it for me.

KoKouKo

2008-03-26 10:54:25

——————– player report ———————-
0 at = F | 36 banks | 962 coal 0 mith | Guild | Forester
1 at = F | 29 banks | 806 coal 0 mith | Guild | Mordaut
———————————————————

a script called GuilderWorld

ran for 9 Hours, 37 Minutes and 30 Seconds
mined 1768 coal
mined 0 mith
avoided 2 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

figuered out that loginplayer error myself, it was so goddamn obvious to :duh:

munk

2008-03-26 17:18:35

From: kingarabian

The gas finder needs some tweaking a little. Doesnt always detect it.

yeah, it has more to do with the rock finding. Since gas sometimes starts right after you click the rock, it wont find it for a few seconds and its usually too late. I think I fixed it in my version :) more testing to do, but i thought about something that just checks the whole mainscreen for gas on a constant basis, and if it finds itll run to a different part of guild.

If anyone has any bitmaps or see any gas in the guild then screenshot it and send it to me :) Guild Gas only plz!

anywho,

if you get a runtime error in a script, its generally a good idea to post the lines(1 above and 1 below) it says it happened on.

@kokouko - yeah, nextplayer has an infinite loop so itll say "nextplayer" but never login. Its used for RC.scar (remote controlling:D ) I do not remember having


if dbug then writeln('kokouko is sexy');

in my script :p but I dont see how a line like that could cause a runtime error.

dorkythedork

2008-03-26 17:22:23

ooh oke i thought i better delete it but i dont know if it was important in the script thats why i first asked it

it was this part was causing trouble and a ohter line on 453 but i think it has something to do whit the (dbug)

 
      if not(dbug) then DeleteDebugLine(GetDebugLineCount);

KoKouKo

2008-03-26 18:33:34

theres a few commands in the script that do things to the debug box, for some strange reason they cause runtime errors so the best solution to those (because you dont need them) is to delete them

another proggie

——————– player report ———————-
0 at = F | 22 banks | 581 coal 0 mith | no pick | <- banked the pick
1 at = T | 18 banks | 496 coal 0 mith | walkToBank | <- go teled by a random
———————————————————

a script called GuilderWorld

ran for 6 Hours, 46 Minutes and 38 Seconds
mined 1077 coal
mined 0 mith
avoided 0 gas, missed 1 gas
assembled 0 pickaxes

———————————————————
NextPlayer

munk

2008-03-26 21:11:09

From: dorkythedork
ooh oke i thought i better delete it but i dont know if it was important in the script thats why i first asked it

it was this part was causing trouble and a ohter line on 453 but i think it has something to do whit the (dbug)
 
      if not(dbug) then DeleteDebugLine(GetDebugLineCount);
  

ahhh yes, i forgot i added that. It was just to get rid of lines so the debug box would be clean and tidy for the proggy :) never causes errors for me but go ahead and do remove it if it does.

TheChineseMan

2008-03-27 11:14:17

nokkasiili

2008-03-27 13:00:22

its dont give errors but it dont do anything when its running :spongebob:

diketwat

2008-03-27 13:37:41

Ok, so it worked for a while but then i get this error message. This has happened 3 times. 2 times with scar 3.14 and once with 3.15, if that's relevant. I use it with Smart.

Edit: Guess I missed the post about this:

if not(dbug) then DeleteDebugLine(GetDebugLineCount);

Now trying without that line.

I erased line 453 and 716 and that solved it. No help needed after all.

——————– player report ———————-
0 **** = F | 1 banks | 28 coal 0 mith | bank | No GameTab
———————————————————

a script called GuilderWorld

ran for 6 Minutes and 58 Seconds
mined 28 coal
mined 0 mith
avoided 0 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

Stone Color = 2972047
[Runtime Error] : Exception: Access violation at address 004051F0 in module 'scar.exe'. Read of address 000000EA in line 716 in script C:\Documents and Settings\catherine\Skrivebord\guilderworld_0.1.0.scar

chrsk13

2008-03-27 20:25:38

a script called GuilderWorld

ran for 9 Hours, 0 Minutes and 12 Seconds
mined 1149 coal
mined 97 mith
avoided 0 gas, missed 1 gas
assembled 0 pickaxes

The script worked great! I only ran two players. The only problem was it grabbed my iron pick out instead of my adamant….

supermoose

2008-03-28 12:16:08

can you pleas add S.M.A.R.T??
i would be happy i you do :)
can't do it my self.. ony script language i can is phyton…

kingarabian

2008-03-28 17:30:01

procedure mineLoop;
var
  i,t,len:integer;
begin
  if (not(loggedIn)) then exit;
  if not(lowercase(players[currentplayer].loc)='guild') then exit;
  if not(inGuild) then
  begin
    players[currentplayer].loc:='walktobank';
    exit;
  end;
  if dbug then writeln('in guild, mining....');
  gametab(4);
  ns:=invcount;
  brk:=false;
  marktime(t);
  marktime(p);
  if players[currentplayer].booleans[0] then walkToMithRocks else guildWalkEx(90,62);//guildWalk(115,160,70,0,-20,5,5);
  repeat
    gametab(4);
    if not(inGuild) then
    begin
      logout;
      exit;
    end;
    if brk then break;
    if invfull then break;
    if not(loggedIn) then exit;
    if findRock(rP) then
    begin
      len:=length(rP)-1;
      for i:=0 to len do
      begin
        mmouse(rP[i].x,rP[i].y,0,0);
        wait(50+random(100));
        if clickRock then
        begin
          gametab(4);
          if dbug then writeln('starting mining from mineloop');
          mining;
          break;
        end;
        wait(50+random(100));
      end;
    end else
    begin
      if players[currentplayer].booleans[0] then
      begin
        if not(nearMithRocks) then
        begin
          if not(walkToMithRocks) then calibrate;
        end else calibrate;
      end else calibrate;
      nolog;
    end;
  until(timefrommark(t)>900000);
  players[currentplayer].loc:='walkToBank';
end;

begin
  smartSetupEx(86,false,false);//change 86 to the world you want, and the the last false to 
  SetTargetDC(SmartGetDC);  //true if you want to use signed client.
  setupsrl;
  loadDTMs;
  mousespeed:=20;
  ScriptID:='365';
  if not(yourSRLstatsID = '') then SRLID := yourSRLstatsID;
  if not(yourSRLstatsPW = '') then SRLPassword := yourSRLstatsPW;
  declareplayers;
  activateclient;
  wait(500);
  marktime(s);
  repeat
    if not(loggedIn) then loginPlayer;
    findnormalrandoms;
    bank;
    walktoguild;
    mineLoop;
    walktobank;
    if not(loggedIn) then
    begin
      writeln('not logged in, next player');
   //   players[currentplayer].loc:='not Logged in';
      brief;
      nextplayer(false);
      marktime(s);
    end;
    if (timefrommark(s)>(minstilswitch*60000)) then
    begin
      bank;
      logout;
      brief;
      nextplayer(true);
      marktime(s);
    end;
  until(false);
end.

Copy and replace your whole mineloop procedure with this one. From Top to the very bottom.

{.include srl/srl/misc/smart.scar}

Before

{.include srl/srl.scar}

I Rambozo I

2008-03-28 18:39:58

I'll give it a shot with your mineLoop procedure kingarbarian..

Dracody

2008-03-29 11:58:58

Dude munk , this script is very cool , and fast , simple procedures that work awsome , but I saw that when the character is in the guild it sometimes do weird things , it sometimes just stands there doing nothing , and sometimes it clicks the same 2 spots lots of times , but I love every procedure , would be cool if you added the option of a single player , like adding a constant of how many loads , and a procedure to enter the bank pin as JuKKas one…:p just suggesting:redface:

Ill post a proggy later.:D

KoKouKo

2008-03-29 13:35:09

From: Dracody
Dude munk , this script is very cool , and fast , simple procedures that work awsome , but I saw that when the character is in the guild it sometimes do weird things , it sometimes just stands there doing nothing , and sometimes it clicks the same 2 spots lots of times , but I love every procedure , would be cool if you added the option of a single player , like adding a constant of how many loads , and a procedure to enter the bank pin as JuKKas one…:p just suggesting:redface:

trying so hard to flame, must resist….

to fix it running back and forth i think all you need to do is turn MineMith to False,

to use 1 player just set all the other players to inactive :duh:

its called InPin


{*******************************************************************************
function InPin(pin: String): Boolean;
by: RSN / Starblaster100
Description: Puts in bank pin. Results True if XXX
*******************************************************************************}

Dracody

2008-03-29 14:33:06

OH sorry for suggesting things Mr.Know-it-All…….and the turn mith off doesn't work , because what it does when it clicks back and forth lots of times it finding a rock color in the minimap , so it tries to get to a rock that is at the mine outside part of guild…so that doesnt work….thats what I think about that, maybe Ill post a picture of the spot here….

Anyways here is a little proggy:

——————– player report ———————-
0 ***** = T | 9 banks | 233 coal 16 mith | bank |
———————————————————

a script called GuilderWorld

ran for 1 Hours, 16 Minutes and 35 Seconds
mined 233 coal
mined 16 mith
avoided 2 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

munk

2008-03-30 13:35:55

zomg an update

haha. fixed calibration so it wont back and forth anymore. Fixed all the runtime errors and access violations. Fixed the player finder.

v.0.1.1!

TheSantaMan

2008-03-30 18:03:52

well the problem i had was, the mouse would hover over a rock then move to another but wouldnt click then move to another and not click, it did this 3 times and didn't click. Secondly it couldn't find any of the coal colors. Just letting you know :p

edit: now it will works, but only mines about 3-4 coal b4 going back to bank.

2. When it goes back to bank it always deposits my pick-axe then takes it back out and tries to wield it. Maybe use a function that, makes it so it doesn't have to wield the pick.

blackhand101

2008-03-30 19:58:03

ok i modified this to smart and sent it to munk hopefully he will upload it!

sk80rdie76

2008-03-30 21:04:17

[Runtime Error] : Exception: Access violation at address 00726309 in module 'scar.exe'. Read of address 00000034 in line 262 in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

nikos

2008-03-31 18:18:25

i had a proggie about 5 hours and about 800 ores mined. I forgot to save :/
This script is decent, very safe and reliable but its pretty slow. I would say i get atleast 150 more ores with jukkas miner in the same time.

ps. I also added (and i would recommend you to add) a sleep function (incase someone wants to single player for hours) and had the option to have it either on or off.

kingarabian

2008-04-02 16:30:03

Here is an attachment with smart….

blackhand101

2008-04-02 23:20:52

if we are going to be posting versions with smart then here mine is i'm sure its better!
if you dont want me to post this i will remove it immediately
EDIT: yes mine is MUCH simpler i did not have to add that prefix crap i used smartsetupex
mine owns other one!

KoKouKo

2008-04-02 23:49:22

From: sk80rdie76
[Runtime Error] : Exception: Access violation at address 00726309 in module 'scar.exe'. Read of address 00000034 in line 262 in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

redownload your includes that has nothing to do with this script, well it might, but…

SmartSetupEx's main fault is the fact that recently RS was updated so the prefixes changes so now the prefixes loaded into SmartSetupEx don't always work. So it's not entirely better.

kingarabian

2008-04-03 16:10:07

From: blackhand101
if we are going to be posting versions with smart then here mine is i'm sure its better!
if you dont want me to post this i will remove it immediately
EDIT: yes mine is MUCH simpler i did not have to add that prefix crap i used smartsetupex
mine owns other one!

Does it LOOK like I fricking care? Good job mission accomplished! You posted your version with smartsetupex! Wow, doesnt smartsetupex need to be used for each smart script!? Seriously…your tryna make competition with S.M.A.R.T. Get a clue.

blackhand101

2008-04-03 23:03:13

wow u dont have to get so upset lol

issamawan

2008-04-04 15:28:55

add a bank pin thing dude…it cant access my thing

ritz

2008-04-05 22:23:34

it often make multiple random walks back and forth between the gate to falador mine where the below 60 people mine and to the two coal rocks straight ahead on the way back

Is this intentional?

KoKouKo

2008-04-05 22:42:58

@ ritz
no and apparently it was fixed in the last update

@ isammawan
if you really want it that bad… "InPin('Pin')"

vinny13

2008-04-07 16:18:54

———————————————————

a script called GuilderWorld

ran for 2 Hours, 38 Minutes and 51 Seconds
mined 417 coal
mined 0 mith
avoided 1 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

"Scar encountered an error" :(

Thanks for the script! I really appreciate the SMART version :D

Ahh! My PowerNoob was banned!!! :'(

He was my ultimate Lv 3… Oh well. i'll just say I let my friend use ot to level up and I didn't kow that he used bots :P

My Lv52 guy wasn't banned though? :S

B-tards don't even have proof lol

Oh ya… World select?! lol

———————————————————

a script called GuilderWorld

ran for 3 Hours, 17 Minutes and 0 Seconds
mined 722 coal
mined 0 mith
avoided 0 gas, missed 0 gas
assembled 0 pickaxes

———————————————————

Scar keeps crashing :(

munk

2008-04-08 18:12:17

From: vinny13
Scar keeps crashing :(

argh, i know! its makin me angry. Im workin on it:)

vinny13

2008-04-09 19:12:32

Some things that I've noticed:

-Gas Detection isn't perfect…
-AutoChat could be a little better for autoban
-Possibly add in an AutoRespond for questioons like "Mining lvs?"?
-Pathway to bank and back is very good – rarely fales!

SMART Version:

-World Select?
-Is it possible to hit Stop Blocking on the SMART window to perhaps say something or set the player back on track without the script crashing? Pausing does the same thing once and a while too…

Some things to work on, but the script is almost perfect, for me anyways… 3 days, one player, 3000 coal :)

*****************

Ahh! 1.5BMs and a 10-Day ban on my main :(

Uhh, I suggest you work on you're antiban…

Still made 5k coal though :)

chrsk13

2008-04-11 22:24:32

So far this script is working very well. My people normally run until they et an unsolveable random. But I agree with Vinny13, more antiban would be pretty nice.

abizon

2008-04-12 04:19:35

ran for 35 Minutes and 16 Seconds
mined 136 coal
mined 0 mith
avoided 0 gas, missed 0 gas
assembled 0 pickaxes

nice script workwoundefuly

King of Knives

2008-04-25 20:27:58

Munk, this script works great… at times :p.

I just quickly updated it for SRL Rev #16 (That's the current, right?) without changing any content (using SCAR 3.15 BTW). I've noticed that when it is going to the bank, it ends at the top of the guild instead, near the door leading to the low-mining-place.
It's happened to me, I think, 4-5 out of 6 banking trips so I haven't got a proggy that's worth keeping.

But I shouldn't complain. The rest of the script is raw awesomeness. It's generally awesome except for that annoying bug destroying the grand picture :(

-Knives

munk

2008-04-26 03:20:35

From: King of Knives
Munk, this script works great… at times :p.

I just quickly updated it for SRL Rev #16 (That's the current, right?) without changing any content (using SCAR 3.15 BTW). I've noticed that when it is going to the bank, it ends at the top of the guild instead, near the door leading to the low-mining-place.
It's happened to me, I think, 4-5 out of 6 banking trips so I haven't got a proggy that's worth keeping.

But I shouldn't complain. The rest of the script is raw awesomeness. It's generally awesome except for that annoying bug destroying the grand picture :(

-Knives

findRockColor and findStoneColor are broken ;) and thats basically how I did alot of the guild walking. I have fixes if you want, you know how to reach me :) so you found time around WoW to run a script or what?

NCDS

2008-04-26 13:31:02

hmm i cant seem to figure this out, when i run the script it c hecks to see if i have a pic weilded or not, then opens bank, then logs out and does that for all my players.

any ideas on this?

XxXx Toxin XxXx

2008-05-07 15:24:28

Munk, you might want to note that all rocks in the mining guild have changed, I think they also changed the colour of the veins of the rocks aswell, so you might have to change that. Aswell, the ladder has changed… so just a few fixes for the script and it seems to work really well.

I've used it before and it is a great script, the walking was almost flawless, got stuck/lost a few times, but just note that rocks, ladders, and even colours have changed in RS. Can't wait for next update.

EDIT: Also, to n c d s, make sure you are using the specified SRL Rev, and Scar. Sometimes scripts tend to do that if your on Rev 15, or 16… But 16 shouldn't even work because the bank pin isn't a string o.O

derrick slay

2008-05-14 01:38:56

Hi, thank you for the script works great! =)
But it's only 1 problem, in which line can i find the rock colors?
Because it cant find the rock colors because the rocks in the guild now are new and have different colors =)

ben55

2008-05-21 16:20:04

findRockColor & findStoneColor aren't working :(
apart from those its an outstanding script :D
much appreciated!

XRaye

2008-05-22 12:42:17

It could not find the rock color

NCDS

2008-05-24 02:45:39

From: XxXx Toxin XxXx
Munk, you might want to note that all rocks in the mining guild have changed, I think they also changed the colour of the veins of the rocks aswell, so you might have to change that. Aswell, the ladder has changed… so just a few fixes for the script and it seems to work really well.

I've used it before and it is a great script, the walking was almost flawless, got stuck/lost a few times, but just note that rocks, ladders, and even colours have changed in RS. Can't wait for next update.

EDIT: Also, to n c d s, make sure you are using the specified SRL Rev, and Scar. Sometimes scripts tend to do that if your on Rev 15, or 16… But 16 shouldn't even work because the bank pin isn't a string o.O

how do i switch back to REV. 15 if i already have 16? and the only reason it started to work is because i just took out everything that had to do with bank pin.

shrubie1

2008-05-24 09:28:07

just got 60 mining will try soon.

ConneX

2008-05-28 03:36:06

Cmon please update rocks.
This script is the best miner but now update rocks :<

Press Play

2008-05-28 04:52:49

whoa!! how many scripts do u release per day!! ur such a good scripter, if you get time could you check out my script and give me a few pointers=]

(ill test the script soon..after i finish my other one)

gothguydante

2008-07-17 00:57:46

this is kinda grave digging but all i have to say is what happend… this script use to be the best guild miner out there… IMO…. if you do ever decide to update we can't wait cause well you haven't disappointing us before…

trentuno30

2008-09-13 20:32:51

Line 916: [Error] (18055:62): Invalid number of parameters in script

please help!

Smarter Child

2008-09-13 20:47:44

From: trentuno30
Line 916: [Error] (18055:62): Invalid number of parameters in script

please help!

Don't GraveDig and that error is common you should know how to fix it yourself….

Leather Cock~(HIGHLIGHT MY POST TO SEE SOMETHING COOL)

NOOBS THESE DAYS~ARE SO FREAKING IMMATURE

Oh yeah munk we'd all really appreciate it if you update the script there really isn't any good guild miner out there and your an excellent'e scripter~

Laimonas171

2008-11-12 11:11:10

getting that one Failed when compiling
Line 942: [Error] (18243:62): Invalid number of parameters in script C:\Documents and Settings\Master\Desktop\guilderworld_0.1.1.scar

Vampspiro

2008-11-16 12:19:24

From: Laimonas171
getting that one Failed when compiling
Line 942: [Error] (18243:62): Invalid number of parameters in script C:\Documents and Settings\Master\Desktop\guilderworld_0.1.1.scar

its outDATEDoutDATED