Results 1 to 4 of 4

Thread: wtf is that

  1. #1
    Join Date
    Oct 2006
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default wtf is that

    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?

  2. #2
    Join Date
    Oct 2006
    Posts
    412
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It just means a variable was declared, but never used in the script. Exactly what the error message says.

  3. #3
    Join Date
    Oct 2006
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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?

  4. #4
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •