SRL Archive - MSI Archives

Ok well some time ago someone said something about mining and everyone else said we were most likely going to do it and Dark_Sniper has made a mining include but I would like to make my own one for the Draynor MS. Icefire said he'll do the walking but are we still going to do this for the Draynor one or not????

Eh, I'm half done with the walking I'm still tweaking all the radials/radius…

Are you making it walk to the Lumby mine? If so keep it up because thats kind of what I had in mind for walking, if its not going to the Lumby mine thats still cool though just give me a where. XD

u better hope you put some good failsafes up for that long of walking.

I will donate my Draynor Bank <-> Lumby Swamp path :)

Ok post it :)

http://www.villavu.com/forum/showthread.php?t=919?t=1065 :)

From: Icefire908
Ok post it :)

How rude :google:

Thanks Fawki :D

ok then I'm gonna start on my mining bit soon then :)

just remember to keep it organized…

ill clean it up and move things around in MSI again soon so its more organized.

Well i've done it but i don't think it works very well :P (USE FAWKI'S!!)

program LumbyMiner;

{.include SRL/SRL.scar}

var
   i,StairTopColor,StairBottomColor,FountainColor,MMLadderColor,Temp:integer;

const
   DebugMessage = true;

function FindDoorMM(DirectionDoor:string):boolean;
begin
     case Trim(LowerCase(DirectionDoor)) of
     'n':if findcolor(x,y,231,642,75,657,83) then Result := true
     'e':if findcolor(x,y,231,647,74,655,89) then Result := true
     's':if findcolor(x,y,231,638,84,658,94) then Result := true
     'w':if findcolor(x,y,231,636,75,648,92) then Result := true
     end;
end;

function Moving:boolean;
var Temp:integer;
begin
     Temp := getcolor(146,269)
     wait(500)
     if not(findcolor(x,y,Temp,145,268,147,270)) then Result := true
end;

procedure DebugAll(messagesend:string);
begin
If DebugMessage = true then writeln(messagesend)
end;

function StrContains(Str, Substr: String): Boolean; //Thanks bullzeye95!}
begin
  Result:= (Pos(Substr, Str) <> 0);
end;

procedure FindStairBottomColor;
begin
i := 0
DebugAll('Starting FindStairBottomColor')
repeat
     if findcolortolerance(x,y,603213,MSX1,MSY1,MSX2,MSY2,i) then
     begin
          MMouse(x,y,0,0)
          if StrContains(GetUpText,'Stair') then
          begin
               StairBottomColor := GetColor(x,y)
               DebugAll('Found at: ' + inttostr(x) + ', ' + inttostr(y))
               DebugAll('Color: ' + inttostr(StairBottomColor))
               Break;
          end;
     end;
     i := i + 1
until(i > 14)
DebugAll('Finished FindStairBottomColor')
end;

procedure FindStairTopColor;
begin
i := 0
DebugAll('Starting FindStairTopColor')
repeat

     if findcolortolerance(x,y,7724,MSX1,MSY1,MSX2,MSY2,i) then
     begin
          MMouse(x,y,0,0)
          if StrContains(GetUpText,'Stair') then
          begin
               StairTopColor := GetColor(x,y)
               DebugAll('Found at: ' + inttostr(x) + ', ' + inttostr(y))
               DebugAll('Color: ' + inttostr(StairTopColor))
               Break;
          end;
     end;
     i := i + 1
until(i > 14)
DebugAll('Finished FindStairTopColor')
end;

procedure FindMMLadderColor;
begin
i := 0
DebugAll('Starting FindMMLadderColor')
repeat
     if findcolortolerance(x,y,7750,MMX1,MMY1,MMX2,MMY2,i) then
     begin
          MMLadderColor := GetColor(x,y)
          DebugAll('Found at: ' + inttostr(x) + ', ' + inttostr(y))
          DebugAll('Color: ' + inttostr(MMLadderColor))
          Mouse(x,y,0,0,true)
          FFlag(10)
          Break;
     end;
     i := i + 1
until(i > 14)
DebugAll('Finished FindMMLadderColor')
end;

procedure FindFountainColor;
begin
i := 0
DebugAll('Starting FindFountainColor')
repeat
     watercolor := 0
     DebugAll('Looking')
     if findcolortolerance(x,y,11163985,MMX1,MMY1,MMX2,MMY2,i) then
     begin
          WaterColor := GetColor(x,y)
          DebugAll('Found at: ' + inttostr(x) + ', ' + inttostr(y))
          DebugAll('Color: ' + inttostr(WaterColor))
          Mouse(x,y,0,0,true)
          FFlag(10)
          Break;
     end;
     i := i + 1
until(i > 14)
DebugAll('Finished FindFountainColor')
end;

procedure WalkToMine;
begin
     MakeCompass('n')
     Mouse(623,140,0,0,true)
     Flag;
     MakeCompass('w')
     LowestAngle;
     LowestAngle;
     if StairTopColor = 0 then FindStairTopColor

     Mouse(x,y,0,0,false)
     ChooseOption(x,y,'down')

     wait(1000 + random(500))
     HighestAngle;

     if StairBottomColor = 0 then FindStairBottomColor

     Mouse(x,y,0,0,false)
     ChooseOption(x,y,'down')

     wait(1000 + random(500))

     MakeCompass('n')
     if FountainColor = 0 then FindFountainColor

     if FindColorTolerance(x,y,FountainColor,MMX1,MMY1,MMX2,MMY2,15) then
     begin
          Mouse(x,y,0,0,true)
     end;

     RadialWalk(FindRoadColor,82,114,60,0,0);

     repeat
          RadialWalk(FindRoadColor,143,220,60,0,0);
     until(FindSymbol(x,y,'tree'))

     RadialWalk(FindRoadColor,143,220,60,0,0);

     repeat
          RadialWalk(FindWaterColor,143,198,60,0,0);
     until(FindSymbol(x,y,'fish'))

     Mouse(x,y,0,0,true)
     FFlag(10);

     repeat
          Mouse(620,95,0,0,true)
          FFlag(10);
     until(FindSymbol(x,y,'mining spot'))

     Mouse(x,y,0,0,true)
     FFlag(5)
end;

procedure WalkToBank;
begin
     MakeCompass('n')
     if FindSymbol(x,y,'fish') then
     begin
          Mouse(x,y,0,0,true)
     end else
     begin
          repeat
               Mouse(679,68,0,0,true)
               FFlag(10)
          until(FindSymbol(x,y,'fish'))
          Mouse(x,y,0,0,true)
          FFlag(10)
     end;
     repeat
          RadialWalk(FindWaterColor,403,458,60,0,0);
     until(FindSymbol(x,y,'tree'))
     repeat
          RadialWalk(FindRoadColor,307,332,60,0,0);
     until(FindSymbol(x,y,'water'))
     Mouse(x,y,0,0,true)
     FFlag(10)
     Mouse(632,82,0,0,true)
     FFlag(3)
     if MMLadderColor = 0 then FindMMLadderColor
     Mouse(x,y,0,0,true)
     FFlag(3)
     if StairBottomColor = 0 then FindStairBottomColor
     wait(1000)
     if FindObj(x,y,'Stair',StairBottomColor,15) then
     begin
          Mouse(x,y,0,0,false)
          ChooseOption(x,y,'up')
     end;
     wait(1000 + random(1000))
     if FindObj(x,y,'Stair',StairBottomColor,15) then
     begin
          Mouse(x,y,0,0,false)
          ChooseOption(x,y,'up')
     end;
     wait(1000 + random(1000))
     if findcolortolerance(x,y,195836,MMX1,MMY1,MMX2,MMY2,10) then
     begin
          Mouse(x + 5,y + 5,0,0,true)
          FFlag(3)
          MakeCompass('n')
          OpenBank3;
          Mouse(580,265,0,0,false)
          wait(100 + random(500))
          chooseoption(x,y,'All')
          CloseBank;
     end;
end;

begin
ClearDebug;
SetupSRL;
FindWindowBySize(766,504)
WalkToMine;
WalkToBank;
end.

I'll just make it seperately then let u input it :D I don't understand how to make it work lol

I'm very sorry for the extreme offtopic, but look at Special Ed's name:

yellow for me….and usually blue just means they've registered but havn't used verification e-mail thingy yet

Nah the forums were screwing up last night. Special Ed was acting very funny :p

yea. the forums were actually down this morning.. all it showed was a white page. then like 30 minutes past and it showed some php errors, and the board wihtout subforums orposts. weird =S

[OFFTOPIC]Rs monkey, Smartzkid, cmon tell me where u get those avatars!!Yohojo told me that read the thread seecreet. He propably was in pot lol.[/OFFTOPIC]

[offtop(on my own thread :D)] I agree with n3ss. If you don't give us a straight answer….me and my lil 12 year old terror, here are gonna hunt u down……