PDA

View Full Version : wtf is that



lordiover
10-23-2006, 02:40 PM
i use bibi26powerminer and when drag croshair on rs window i click start srcipt and in scar cde 2 window write : Line 156: [Hint] (16108:17): Variable 'RESPONCE' never used in script C:\Documents and Settings\OverLordas\Desktop\bibi26powerminer.scar
wtf?

IronTeapot
10-23-2006, 02:50 PM
It just means a variable was declared, but never used in the script. Exactly what the error message says.

lordiover
10-23-2006, 05:21 PM
program Powerminer;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{.include SRL\SRL\extended\xMapwalk.scar}

const
Clay = 4553880;
Copper = 4088198;
Tin = 9277080;
Iron = 2371664;

var
loads, ores, Ox, Oy, rockcolor, rockwait, LoadsD, loads2, trying, A1, A2: Integer;
Rdirection: String;
Pickaxew: Boolean;

// ************************** Setup lines ****************************
const
Autotalka = false; // Auto talk ?
AutorespondV = true; // Auto respond ?

procedure DeclarePlayers;
begin
HowManyPlayers:=4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Name :='Hownu123'; //Runescape username
Players[0].Pass :='xxxxxxx'; //Runescape password
Players[0].Nick :='wnu'; //Type 3-4 letters of your runescape username
Players[0].String1 :='N'; //If you are attacked, in what direction do you want to run ?
Players[0].String2 :='Copper'; //What kind of ore do you want to mine ?
Players[0].Integer1 :=1; //How many loads do you want to do ?
Players[0].Integer2 :=3000; //How much times between each click ?
Players[0].Active :=true; //Use player 0 ?

Players[1].Name :='Superminer';
Players[1].Pass :='xxxxxxx';
Players[1].Nick :='rmi';
Players[1].String1 :='N';
Players[1].String2 :='Copper';
Players[1].Integer1 :=1;
Players[1].Integer2 :=3000;
Players[1].Active :=false; //Use player 1 ?

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].String1 :='';
Players[2].String2 :='';
Players[2].Integer1 :=1;
Players[2].Integer2 :=3000;
Players[2].Active :=false; //Use player 2 ?

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].String1 :='';
Players[3].String2 :='';
Players[3].Integer1 :=1;
Players[3].Integer2 :=3000;
Players[3].Active :=false; //Use player 3 ?
end;

// ************************** End of setup lines ***********************

// ------ SRL functions with a few modifications ------ \\

function InChat2(Text: string): Boolean;
begin
TheLine := lowercase(trim(GetTextAtEx(20, 415, 45, SmallChars, False, False, 0, 2, 0, 40, True, tr_NormalChars)));
if (pos(Text, TheLine) <> 0) then Result := True
end;

procedure NextPlayer2(Active: Boolean);
begin
if RandomPlayer then
RandomNextPlayer(Active)
else
begin
Writeln('NextPlayer');
if not Active then
Players[CurrentPlayer].Active := False;
LogOut;
PlayerCurTime := (GetSystemTime div 1000);
Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked + ((PlayerCurTime - PlayerStartTime) / 60);
CurrentPlayer := CurrentPlayer + 1;
if CurrentPlayer > HowManyPlayers - 1 then
CurrentPlayer := 0;
while Players[CurrentPlayer].Active = False do
begin
CurrentPlayer := CurrentPlayer + 1;
if CurrentPlayer > HowManyPlayers - 1 then
begin
CurrentPlayer := 0;
WriteLn('All players are inactive. Script terminated.');
TerminateScript;
end;
end;
if Players[CurrentPlayer].Active = True then
begin
Logs := Logs + 1;
end;
LoginPlayer;
end;
end;

// --------------------------------------------------- \\

procedure AntiRandomsV;
begin
if (FindFight) then
begin
WriteLn('You are attacked, trying to escape.');
RunAwayDirection(Rdirection);
Wait(8000+random(3000));
WriteLn('Escape done, now, go back to mining.');
RunBack;
end;
FindTalk;
if FindBitmapToleranceIn(NewBox, x, y, 556, 206, 738, 463, 50) then SolveBox;
FindLamp('mining');
FindDemon;
SolveFrog;
FindTalk;
FindPick;
FindTalk;
end;

procedure AutorespondA;
var
Responce: String;
begin
OldLine := TheLine;
TheName := lowercase(trim(GetTextAtEx(20, 415, 45, SmallChars, False, False, 0, 2, 0, 40, True, tr_NormalChars)));
TheLine := lowercase(trim(GetTextAtEx(20, 415, 45, SmallChars, False, False, 0, 2, 16711680, 40, False, tr_NormalChars)));
NewLine := TheLine;
if OldLine <> NewLine then
if (pos('yo', TheName) <> 0) or (pos(Players[CurrentPlayer].Nick, TheName) <> 0) then
begin
end
else
if (inchat2('lvl') or inchat2('level')) then
begin
SayCurrentLevels('mining');
end;
end;

procedure Setvariables;
begin
Rdirection:=Players[CurrentPlayer].String1
Case LowerCase(Players[CurrentPlayer].String2) of
'clay' : rockcolor:=Clay;
'copper' : rockcolor:=Copper;
'tin' : rockcolor:=Tin;
'iron' : rockcolor:=Iron;
end;
LoadsD:=Players[CurrentPlayer].Integer1
rockwait:=Players[CurrentPlayer].Integer2
if not FindPickHeadColor then TerminateScript;
NickNameBmp:=CreateBitmapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
GameTab(4);
if (FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745 ,468,100)) then begin Pickaxew := false; WriteLn('Pickaxe not wielded'); end else begin Pickaxew := true; WriteLn('Pickaxe wielded'); end;
loads := 0;
end;

procedure ProgressReport;
begin
SRLRandomsReport;
AddtoReport('');
AddtoReport('<========== bibi26 PowerMiner Report ==========>');
AddtoReport(' Total time working : ' + TimeRunning);
AddtoReport(' Total loads dropped : ' + inttostr(loads2));
AddtoReport(' Approx. ores dropped : ' + inttostr(ores));
ChangeReportWidth(430);
end;

Procedure dropore;
begin
WriteLn('Load complete. Ore dropping.');
if (Pickaxew) then begin DropAll; ores := ores + 28; end else begin DropTo(2, 28); ores := ores + 27; end;
WriteLn('Drop finish.');
loads := loads + 1;
loads2 := loads2 + 1;
wait(200+random(800));
end;

procedure LeaveScreen;
var
rx, a: Integer;
begin
rx := Random(300);
a := Random(2);
if (a = 0) then
begin
MMouse(rx, 1, 0, 0)
ClickMouse(rx, -1, True);
Wait(1000 + Random(1000));
end;
if (a = 1) then
begin
MMouse(rx, 502, 0, 0)
ClickMouse(rx, 503, True);
Wait(1000 + Random(1000));
end;
end;

procedure AntibanVe;
begin
Case Random(4) of
1: begin SendArrowSilentWait(Random(4), 500 + Random(500)); SendArrowSilentWait(Random(4), 500 + Random(500)); MakeCompass('n'); SendArrowSilentWait(0, 1400 + Random(100));RotateEvery(3+random(3)); end;
2: begin HoverSkill('Mining', false); GameTab(4); end;
3: PickUpMouse;
4: MouseSpeed := 9+random(3);
end;
A1 := A1 - 20-random(10);
end;

procedure Move;
begin
Case Random(7) of
1: mmouse(30+random(20),120+random(20),3,3);
2: mmouse(150-random(10),120+random(30),3,3);
3: mmouse(200+random(50),50+random(50),3,3);
4: mmouse(90+random(50),120+random(50),3,3);
5: mmouse(300-random(20),300-random(20),3,3);
6: mmouse(300+random(20),120+random(50),3,3);
7: mmouse(500+random(100),300+random(100),3,3);
end;
end;

procedure AntibanVe2;
begin
wait(100+random(500));
Case Random(3) of
1: begin GameTab(1+random(12)); wait(1000+random(1000)); GameTab(4); end;
2: RandomRClick;
3: begin Move; wait(500+random(1000)); end;
end;
A2 := A2 - 2-random(3);
end;

procedure mineore;
begin
repeat
MouseSpeed := 10+random(2);
AntiRandomsV;
if (A1 = 30) then begin LeaveScreen; AntibanVe; end;
if (FindObjOre(Ox,Oy,'ine',rockcolor,15,3)) then
begin
ClickToContinue;
if (AutorespondV) then AutorespondA;
mmouse(Ox,Oy,3,3);
if (not(GasCheck(Ox,Oy))) then
begin
wait(100+random(100));
mouse(Ox,Oy,2,2,true);
if (GasCheck(Ox,Oy)) then
begin
RunAwayDirection(Rdirection);
Wait(8000+random(3000));
RunBack;
end;
FindTalk;
end
else
begin
RunAwayDirection(Rdirection);
Wait(8000+random(3000));
RunBack;
end;
wait(rockwait+random(500));
FindPick;
if (AutotalkA) then RandomChatEvery(10+random(10));
LogOutEvery(1+random(1),10+random(10));
ProgressReport;
A1 := A1 + 1;
trying := 0;
end
else
begin
trying := trying + 1;
WriteLn('Trying = ' + inttostr(trying));
if (trying = 10) then
begin
WriteLn('Impossible to find a rock, we are maybe lost, changing player.');
NextPlayer2(false);
trying := 0;
end;
end;
until (InvFull);
end;

begin
SetupSRL;
SetupSRLMining;
ActivateClient;
DisguiseScar('Winamp');
DeclarePlayers;
Setvariables;
MouseSpeed := 10+random(2);
repeat
repeat
mineore;
dropore;
A2 := A2 + 1;
if (A2 = 5) then AntibanVe2;
until (LoadsD = Loads);
ProgressReport;
wait(1000+random(500));
NextPlayer2(false);
FreeBitMap(NickNameBmp);
Setvariables;
until (false);
end.

What i must change/do there if i want to start MINE in VARROCK east Copper , tin ores and dont get to bank? :confused:

I Pick Axes
10-23-2006, 08:42 PM
Pick colors for your ore and stick them under const.
Fill out the player array and put in HowManyPlayers. The two custom strings for each player is explained in the comments, they are RunDir and the ore you want to mine by name.