If someone wouldn't mind, would you help me make a gas finder for my power mining script?
Thanks.
If someone wouldn't mind, would you help me make a gas finder for my power mining script?
Thanks.
Current Script: Al-Kharid Fighter and Banker
Status : Just Started
negaal made one and it is in the public test corner
There is a gas finder in SRL.
I recommend the one in mining.scar.Hey look 3 people in a row with Scar Scripts Forum sigs.
I'm trying to put it into my script but it keeps on giving me errors.
Current Script: Al-Kharid Fighter and Banker
Status : Just Started
What antigas are you using?
The one in Mining.scar, the findgas and gascheck
Current Script: Al-Kharid Fighter and Banker
Status : Just Started
Post the script you are trying to put it in and what error you are getting
SCAR Code:program VWMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
Const
Loads = 3; //Loads to do before switching
Usebank = false; //True if you want to bank ores
RockColor1 = 8882066;
RockColor2 = 9539996;
Var
x, y, ores, Gasses, LoadsNumB, PikDTM, TinDTM, BrokeDTM, Walk1DTM, Walk2DTM, Walk3DTM, BankDTM:integer;
procedure DeclarePlayers;
begin
HowManyPlayers :=3;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';//username
Players[0].Pass :='';//password
Players[0].Nick :='';//2-4 letters of username
Players[0].Active := True;//Want to use player?
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[2].Name := 'UserName';
Players[2].Pass := 'Password';
Players[2].Nick := '3-4 letters of UserName';
Players[2].Active := False;
end;
procedure LoadDTMs;
begin
PikDTM := DTMFromString('78DA63B465626078CA800274E558C1342394C' +
'F680954F389010D30A2AA0900AA7948408D1350CD35026A4C806A' +
'6E1350E305547387801A57C2760100B5120859');
BrokeDTM := DTMFromString('78DA63CC60626078C280020C95D8C0342394C' +
'F580A54738F010D30A2AA2906AAB94B404D2150CD6D026AAA816A' +
'EE1350930454738B08359F08A84901AA794F8439AF09A8C906AAB' +
'9815F0D0087120D93');
TinDTM := DTMFromString('78DA63CC65626078C280026A4B4BC0342394C' +
'F5804547383010D30A2AAA900AA794D404D3550CD7D026AD2816A' +
'3E1150130B54F382809A44A09A7B04D46402D55CC7AF0600177C0' +
'C03');
Walk1DTM := DTMFromString('78DA634C61626050634001F1B9DE0CFF81342' +
'310FF0702C64AA09A40881C33544D6F82130317540D08301601D5' +
'F813A1269E809A6CA09A6CFC6A00621D0ED3');
Walk2DTM := DTMFromString('78DA630C636260D065400131B9DE0CFF81342' +
'310FF0702C60EA09A1C881C33544D6F82130317540D0830F601D5' +
'9410A1A682801A905D2D04D4B401D5141350B30AA8C619554DA2A' +
'5188A1A00B5D21386');
Walk3DTM := DTMFromString('78DA63CC61626090614001A1B9DE0CFF81342' +
'310FF0702C6C54035B6103966A89A444B31062EA81A10605C0254' +
'634D408D2F504D34AA9A848C1C54355E40359E04D45803D584125' +
'0E34A580D005ACF114F');
BankDTM := DTMFromString('78DA63CC646260B06640016FDEBC61F80FA41' +
'981F83F10302602D5B843E498A16AFEFC6162E082AA0101B01A6B' +
'54355FBF3260AA3126A0261EA84687805D20356AA86ACE9C41332' +
'70EA84616BF39000ED7178B');
end;
Procedure randoms;
begin
if(not(LoggedIn))then Exit;
FindTalk;
FindNormalRandoms;
SolveChatRandom;
FindLamp('Mining');
If(FindFight)Then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(3000));
RunTo('S', True);
end;
end;
procedure AntiBanz;
begin
if(not(LoggedIn))then Exit;
case Random(4) of
0: begin
HoverSkill('Mining', false);
wait(2000+random(1000));
GameTab(4);
end;
1: PickUpMouse;
2: begin
case random(3) of
0: TypeSend('Mining lvls?');
1: TypeSend('Smithing levels');
2: TypeSend('Im bored..');
3: TypeSend('blah, blah, blah');
end;
end;
3: begin
HoverSkill('Smithing', false);
wait(2000+random(1000));
GameTab(4);
end;
end;
end;
procedure Scripty;
begin
MouseSpeed := 16;
MakeCompass('N');
end;
procedure Findpik;
begin
if not LoggedIn then Exit;
Gametab(4);
Wait(1000);
if not FindDTM(PikDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
wait(200);
Logout;
Nextplayer(false);
Writeln('No pick axe noob, get one.');
end;
end;
procedure Brokenpik;
begin
GameTab(4);
wait(300);
if FindDTM(BrokeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Logout;
Nextplayer(false);
WriteLn('Broken pickaxe, logging out');
end;
end;
Procedure Mineore;
var
Minetime: integer;
RockColors : TIntegerArray;
begin
if not LoggedIn then
Exit;
MarkTime(MineTime);
RockColors := [RockColor1, RockColor2];
repeat
if FindObjCustom(x, y, ['Min', 'ine'], RockColors, 7) then
begin
Findgas;
Randoms;
mouse(x, y, 0, 0, false);
Wait(500);
ChooseOption('ine');
Wait(4000);
randoms;
end;
until (InvFull) or (TimeFromMark(Minetime) > 600000+random(60000));;
end;
procedure Dropore;
begin
if Usebank = (false) then
begin
if InvFull then
repeat
if not LoggedIn then Exit;
Gametab(4);
wait(300);
if FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Wait(225 + random(25));
Mouse(x, y, 2, 2, false);
wait(150 + random(25));
Chooseoption('rop');
Wait(300);
Randoms;
end;
until not (FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2)) or not(loggedin);
end;
end;
procedure Proggy;
begin
ClearDebug;
WriteLn(' _____ _ _ ');
WriteLn('/__ (_)_ __ /\/\ (_)_ __ ___ _ __ ');
WriteLn(' / /\/ | _ \ / \| | _ \ / _ \ __|');
WriteLn(' / / | | | | / /\/\ \ | | | | __/ | ');
WriteLn(' \/ |_|_| |_\/ \/_|_| |_|\___|_| ');
WriteLn('TinMiner ran for ' + TimeRunning + '.');
WriteLn('Mined ' + inttostr(Ores)+' tin ores.');
WriteLn('Found ' + inttostr(Gasses)+' Gases.');
end;
procedure Tobank;
begin
if Usebank = (True) then
begin
if DTMRotated(Walk1DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
begin
if DTMRotated(Walk2DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
begin
if DTMRotated(Walk3DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
begin
RadialRoadWalk(FindRoadColor, 330, 358, 76, 0, 0);
Flag;
RadialRoadWalk(FindRoadColor, 50, 88, 55, 0, 0);
Flag;
end;
begin
if DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
end;
end;
end;
end;
FreeDTM(Walk1DTM);
FreeDTM(Walk2DTM);
FreeDTM(Walk3DTM);
FreeDTM(BankDTM);
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Scripty;
LoadDTMs;
Findpik;
Repeat
Brokenpik;
Mineore;
Dropore;
Ores:= Ores + 27;
LoadsNumB:= LoadsNumB + 1;
begin
if(LoadsNumB=Loads)then
begin
NextPlayer(True);
LoadsNumB:=0;
MakeCompass('N');
Writeln('Switched players successfully! :)');
end;
Proggy;
end;
until(false);
end.
And the error is:
SCAR Code:Line 161: [Error] (13054:8): Invalid number of parameters in script C:\Program Files\SCAR 3.14\Scripts\Vwmine3.scar
Current Script: Al-Kharid Fighter and Banker
Status : Just Started
SCAR Code:program VWMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
Const
Loads = 3; //Loads to do before switching
Usebank = false; //True if you want to bank ores
RockColor1 = 8882066;
RockColor2 = 9539996;
Var
x, y, ores, Gasses, LoadsNumB, PikDTM, TinDTM, BrokeDTM, Walk1DTM, Walk2DTM, Walk3DTM, BankDTM:integer;
procedure DeclarePlayers;
begin
HowManyPlayers :=3;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';//username
Players[0].Pass :='';//password
Players[0].Nick :='';//2-4 letters of username
Players[0].Active := True;//Want to use player?
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[2].Name := 'UserName';
Players[2].Pass := 'Password';
Players[2].Nick := '3-4 letters of UserName';
Players[2].Active := False;
end;
procedure LoadDTMs;
begin
PikDTM := DTMFromString('78DA63B465626078CA800274E558C1342394C' +
'F680954F389010D30A2AA0900AA7948408D1350CD35026A4C806A' +
'6E1350E305547387801A57C2760100B5120859');
BrokeDTM := DTMFromString('78DA63CC60626078C280020C95D8C0342394C' +
'F580A54738F010D30A2AA2906AAB94B404D2150CD6D026AAA816A' +
'EE1350930454738B08359F08A84901AA794F8439AF09A8C906AAB' +
'9815F0D0087120D93');
TinDTM := DTMFromString('78DA63CC65626078C280026A4B4BC0342394C' +
'F5804547383010D30A2AAA900AA794D404D3550CD7D026AD2816A' +
'3E1150130B54F382809A44A09A7B04D46402D55CC7AF0600177C0' +
'C03');
Walk1DTM := DTMFromString('78DA634C61626050634001F1B9DE0CFF81342' +
'310FF0702C64AA09A40881C33544D6F82130317540D08301601D5' +
'F813A1269E809A6CA09A6CFC6A00621D0ED3');
Walk2DTM := DTMFromString('78DA630C636260D065400131B9DE0CFF81342' +
'310FF0702C60EA09A1C881C33544D6F82130317540D0830F601D5' +
'9410A1A682801A905D2D04D4B401D5141350B30AA8C619554DA2A' +
'5188A1A00B5D21386');
Walk3DTM := DTMFromString('78DA63CC61626090614001A1B9DE0CFF81342' +
'310FF0702C6C54035B6103966A89A444B31062EA81A10605C0254' +
'634D408D2F504D34AA9A848C1C54355E40359E04D45803D584125' +
'0E34A580D005ACF114F');
BankDTM := DTMFromString('78DA63CC646260B06640016FDEBC61F80FA41' +
'981F83F10302602D5B843E498A16AFEFC6162E082AA0101B01A6B' +
'54355FBF3260AA3126A0261EA84687805D20356AA86ACE9C41332' +
'70EA84616BF39000ED7178B');
end;
Procedure randoms;
begin
if(not(LoggedIn))then Exit;
FindTalk;
FindNormalRandoms;
SolveChatRandom;
FindLamp('Mining');
If(FindFight)Then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(3000));
RunTo('S', True);
end;
end;
procedure AntiBanz;
begin
if(not(LoggedIn))then Exit;
case Random(4) of
0: begin
HoverSkill('Mining', false);
wait(2000+random(1000));
GameTab(4);
end;
1: PickUpMouse;
2: begin
case random(3) of
0: TypeSend('Mining lvls?');
1: TypeSend('Smithing levels');
2: TypeSend('Im bored..');
3: TypeSend('blah, blah, blah');
end;
end;
3: begin
HoverSkill('Smithing', false);
wait(2000+random(1000));
GameTab(4);
end;
end;
end;
procedure Scripty;
begin
MouseSpeed := 16;
MakeCompass('N');
end;
procedure Findpik;
begin
if not LoggedIn then Exit;
Gametab(4);
Wait(1000);
if not FindDTM(PikDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
wait(200);
Logout;
Nextplayer(false);
Writeln('No pick axe noob, get one.');
end;
end;
procedure Brokenpik;
begin
GameTab(4);
wait(300);
if FindDTM(BrokeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Logout;
Nextplayer(false);
WriteLn('Broken pickaxe, logging out');
end;
end;
Procedure Mineore;
var
Minetime: integer;
RockColors : TIntegerArray;
begin
if not LoggedIn then
Exit;
MarkTime(MineTime);
RockColors := [RockColor1, RockColor2];
repeat
if FindObjCustom(x, y, ['Min', 'ine'], RockColors, 7) then
begin
Findgas(MSCX, MSCY);
Randoms;
mouse(x, y, 0, 0, false);
Wait(500);
ChooseOption('ine');
Wait(4000);
randoms;
end;
until (InvFull) or (TimeFromMark(Minetime) > 600000+random(60000));;
end;
procedure Dropore;
begin
if Usebank = (false) then
begin
if InvFull then
repeat
if not LoggedIn then Exit;
Gametab(4);
wait(300);
if FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Wait(225 + random(25));
Mouse(x, y, 2, 2, false);
wait(150 + random(25));
Chooseoption('rop');
Wait(300);
Randoms;
end;
until not (FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2)) or not(loggedin);
end;
end;
procedure Proggy;
begin
ClearDebug;
WriteLn(' _____ _ _ ');
WriteLn('/__ (_)_ __ /\/\ (_)_ __ ___ _ __ ');
WriteLn(' / /\/ | _ \ / \| | _ \ / _ \ __|');
WriteLn(' / / | | | | / /\/\ \ | | | | __/ | ');
WriteLn(' \/ |_|_| |_\/ \/_|_| |_|\___|_| ');
WriteLn('TinMiner ran for ' + TimeRunning + '.');
WriteLn('Mined ' + inttostr(Ores)+' tin ores.');
WriteLn('Found ' + inttostr(Gasses)+' Gases.');
end;
procedure Tobank;
begin
if Usebank = (True) then
begin
if DTMRotated(Walk1DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
begin
if DTMRotated(Walk2DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
begin
if DTMRotated(Walk3DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
begin
RadialRoadWalk(FindRoadColor, 330, 358, 76, 0, 0);
Flag;
RadialRoadWalk(FindRoadColor, 50, 88, 55, 0, 0);
Flag;
end;
begin
if DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
end;
end;
end;
end;
FreeDTM(Walk1DTM);
FreeDTM(Walk2DTM);
FreeDTM(Walk3DTM);
FreeDTM(BankDTM);
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Scripty;
LoadDTMs;
Findpik;
Repeat
Brokenpik;
Mineore;
Dropore;
Ores:= Ores + 27;
LoadsNumB:= LoadsNumB + 1;
begin
if(LoadsNumB=Loads)then
begin
NextPlayer(True);
LoadsNumB:=0;
MakeCompass('N');
Writeln('Switched players successfully! :)');
end;
Proggy;
end;
until(false);
end.
There are currently 1 users browsing this thread. (0 members and 1 guests)