Results 1 to 2 of 2

Thread: Help Whit My First Script.

  1. #1
    Join Date
    Oct 2007
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help Whit My First Script.

    Hello i was making my first script and i finished it, but when i click run i got a crash smart, heres the script so you can put it on simba and click run and see the error.

    Code:
    program Draynorcutter;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$i sps/sps.simba}
    
    var
    
    WalkToBank:TPointarray;
    WalkToTree:TPointarray;
    
    
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := ''; //Your Runescape username here.
      Players[0].Pass := ''; //Your Runescape password here.
      Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
      Players[0].Pin := 'Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN.
    end;
    Procedure AntiBan;
          begin
            if(not(LoggedIn)) then Exit;
            Case Random(250) of
    
            0:
              begin
                WriteLn('AntiBan Enabled - Randomized Human Action');
                RandomRClick;
              end;
    
            10:
              begin
                WriteLn('AntiBan Enabled - Randomized Human Action');
                HoverSkill('Woodcutting', false);
                wait(1634+Random(2169));
              end;
    
            30:
              begin
                WriteLn('AntiBan Enabled - Randomized Human Action');
                PickUpMouse;
              end;
    
            40:
              begin
                WriteLn('AntiBan Enabled - Randomized Human Action');
                MakeCompass('N');
                  wait(100+random(433));
                MakeCompass('S');
                  wait(50+random(124));
                MakeCompass('N');
                FindNormalRandoms;
              end;
    
              50:
                begin
                  WriteLn('AntiBan Enabled - Randomized Human Action');
                  ExamineInv;
                end;
    
            end;
          end;
    Procedure ChopTree;
     Var x, y: integer;
     Begin
     if FindObj (x, y, 'Willow', 3227713, 10) then
     Begin
     repeat
     FindNormalRandoms;
     ToggleXpBar(True);
     Begin
     WriteLn('Tree Found Clicking it.');
     Mouse(x, y, 0, 0, True);
     ChooseOption('willow');
     end;
     repeat
     Wait(500)
     Until Not isuptext ('willow') Or (invfull);
    Until(InvFull);
     end;
     end;
    Procedure WalkBank;
    
    begin
    if(not(LoggedIn))then
    exit;
    FindNormalRandoms;
    AntiBan;
    SPS_Setup (RUNESCAPE_SURFACE, ['10_9']);
    WriteLn('Your inventory is full. Walking to Bank.');
    MakeCompass ('N');
    SetAngle (SRL_ANGLE_HIGH);
    WalkToBank  :=  [Point(4165, 3703), Point(4162, 3662), Point(4165, 3647), Point(4190, 3647), Point(4188, 3668)];
    SPS_WalkPath (WalkToBank);
    WriteLn('Made it to the bank.');
    end;
    Procedure BankLog;
    
    begin
    if(not(LoggedIn))then
    exit;
    FindNormalRandoms;
    AntiBan;
    MakeCompass('N')
    SetAngle (SRL_ANGLE_HIGH);
    WriteLn('Searching Bank')
    if FindBank ('db') then
    WriteLn ('Found Bank.');
    if OpenBank ('db', False, True) then
    WriteLn ('Banking Log.');
    Deposit(2, 28, True);
    CloseBank;
    AntiBan;
    WriteLn('Finished banking');
    end;
    
    Procedure WalkTree;
    
    begin
    if(not(LoggedIn))then
    exit;
    FindNormalRandoms;
    
    SPS_Setup (RUNESCAPE_SURFACE, ['10_9']);
    WriteLn ('Returning to Tree.');
    MakeCompass('N');
    SetAngle (SRL_ANGLE_HIGH);
    WalkToTree := [Point(4188, 3666), Point(4188, 3647), Point(4167, 3647), Point(4163, 3665), Point(4162, 3699)];
    SPS_WalkPath (WalkToTree);
    WriteLn('Made it to Tree.');
    end;
    begin
    
    DeclarePlayers;
    LoginPlayer;
    
    repeat
    ChopTree;
    WalkBank;
    BankLog;
    WalkTree;
    until AllPlayersInactive;
    end.

    any help will be apreciated.

  2. #2
    Join Date
    Jan 2012
    Location
    Australia
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try defining SRL and calling SetupSRL before DeclarePlayers

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
  •