Results 1 to 5 of 5

Thread: Need some help

  1. #1
    Join Date
    Jan 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need some help

    I am creating a alching script and i have it almost done, But I am having a little problem...
    The Problem is, Im trying to get the (Exp Gained) To work
    Atm it is the gained exp is going off the timer, so every second it adds 65 exp to the counter... Im trying to make it go off the actual alching, but i don't know how to go about that.
    //THIS SCRIPT IS A NORMAL ALCHING SCRIPT SHOWING A COUPLE TUTS.
    //To Who ever Gives This script a edit. Give me "Ryan" Credit!!
    program clicker;
    {$i srl/srl/misc/smart.simba}
    {$i srl/srl.simba}
    {$i SRL/SRL/misc/paintsmart.simba}



    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers)
    CurrentPlayer := 0;
    //Editing Starts Here.
    Players[0].Name := 'ryanyukon199'; // Runescape Username
    Players[0].Pass := 'born2bme13'; // Runescape Password
    Players[0].Nick := 'ryan'; // 3-4 lowercase letters from username; used for random event detection
    Players[0].Active := True; // Set to true if you want to use Player 0
    Players[0].Pin := '2783'; // Leave blank if the player doesn't have a bank pin
    Players[ 0].Booleans[ 1] := True; //Would you like to have the XP Counter on?
    //WAIT! DON't GO ANY FURTHER! - stop
    end;

    var
    foodnumber,T,Exp,Charms,XPH,BMP,Kills,MSpeed,RandA mount:Integer;
    OldXP, TimeSinceFight: Integer;
    DCols: Array of Integer;
    Drops: Array of String;
    Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
    var
    mx, my, Pic, I, B, H, TPH, Numb: Integer;
    TTP: TPointArray;
    Canvas: TCanvas;
    begin
    SmartSetDebug(True);
    GetClientDimensions(mx, my);
    Pic := BitmapFromString(mx, my, '');
    TPH := High(TP);
    for I := 0 to TPH do
    begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
    Numb := ((I + 1) * 13);
    FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
    FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
    end;
    Canvas := TCANVAS.Create;
    Canvas.Handle := SmartGetDebugDC;
    DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
    FreeBitmap(Pic);
    end;

    Procedure Proggy;


    begin
    ClearDebug;
    Writeln('***************************************** ***');
    Writeln('* |*/\Ryans Alcher V1/\*| *');
    Writeln('***************************************** ***');
    Writeln('* Time Ran = ' + TimeRunning + '');
    Writeln('* Exp Gained = ' + IntToStr(Exp) + 'EXP');
    Writeln('***************************************** ***');
    End;
    procedure Repeatalch;
    var
    numberOfWaits,startagain: Integer;
    begin
    repeat
    Mouse(574 + Random(8),(369 + random(5)),0,0,true); //Clicking Spell
    Wait(101 + Random(50)); //Clicking Spell wait time
    Mouse(574 + Random(8),(369 + random(5)),0,0,true); //Clicking Item To Alch
    Wait(290 + Random(50)); //Clicking Item TO alch wait time
    Proggy;
    begin
    Inc(Kills);
    Exp :=(Kills*65);
    end;
    PrintOnSmart(['Time Ran: ' + TimeRunning + ''], Point(208, 312), 255);
    Inc(numberOfWaits);
    until(numberOfWaits = (99999)); //< Number of items to alch.
    //It Loops From "repeat" To here.-------------- It will loop 10,000 Times as shown
    //Once Looped 10,000 Times It will Do The following
    Writeln('Ran Out Of Items To Alch');
    Writeln('Logging Off...');
    Logout;
    Writeln('Logged Out, Have a nice day!');
    end;
    procedure AntiBan;
    var
    numberOfWaits: Integer;
    begin
    repeat
    Mouse(544,20,0,0,true);//Clicking North
    Wait(500 + Random(50));//Waiting Before Clicking Next Coord
    Mouse(532,62,0,0,true);//Clicking Exp
    Wait(700 + Random(50));//Waiting Before Clicking Next Coord
    Mouse(535,99,0,0,true);//Clicking Money Pouch
    Wait(1300 + Random(50));//Waiting Before Clicking Next Coord
    Mouse(597,186,0,0,true);
    Wait(400 + Random(50));
    Mouse(577,360,0,0,true);
    Wait(2000 + Random(50));
    Mouse(740,20,0,0,true);//<< Exits Out Of Magic INterface.
    Wait(2000 + Random(50));
    Mouse(748,186,0,0,true);
    Wait(1250 + Random(50));
    Inc(numberOfWaits);
    until(numberOfWaits = (1)); //< Times To Do AntiBan Repeated.
    Writeln('AntiBan Working.');
    end;

    begin
    // These 4 lines HAVE to be set BEFORE you call SetupSRL;
    Smart_Server := 72; //What World you would like to be on.
    Smart_Members := True; //If you're members or not
    Smart_Signed := True;
    Smart_SuperDetail := False; //Just Keep at false.

    ClearDebug; //<< Clears White Box Under Script.
    SetupSRL; //<< Setting Up SRL
    DeclarePlayers; // Calls the procedure, you can't forget this!
    LoginPlayer; // You want your player to login, right?
    Wait(4901 + Random(99));
    Mouse(748,186,5,6,true);
    Writeln('AntiBan Testing...');
    AntiBan; //<< AntiBan Section Announced In the Main Loop Line.
    Proggy; //<< Proggy Announced In the Main Loop Line.
    Writeln('Starting To Alch.'); //<< Saying something in the cmd
    Writeln('Alching!');
    Writeln('Created By Ryan');
    Repeatalch;
    Proggy;
    end.
    //end of looping

  2. #2
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    EDIT: Inc(kills) is counting everytime the script hits it. Why isn't that working?
    Last edited by lilcmp1; 02-15-2012 at 12:16 AM.

  3. #3
    Join Date
    Jan 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have that, it is Inc(Kills) and under it i have Exp :=(Kills*65); But It is counting the exp like a timer so every second is goes up 65. witch is making the exp go up to fast.

  4. #4
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try getting rid of the begin/end around Inc(kills) as far as I know that counts the # it's been hit, not a timer of 1 sec. Idk where the 1 second is coming from. You could also try kills:= kills + 1; as a counter instead of inc(kills)

  5. #5
    Join Date
    Jan 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Not working >.<, I was thinking making it count off the XP In the middle of the screen, where it says +65 xp. But I don't know how to go about doing that.

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
  •