Results 1 to 14 of 14

Thread: help please !

  1. #1
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help please !

    ok on a script im making i need it to right click the man and right click the item to buy,so i thought this would be code,but its not any advice? also i need it to walk to bank after full inv,as he only has 10 i need it to buy 10 hop world buy 10 hop buy 10? if u understand me then once inv full bank and repeat any help beacuse yohojos guide is for powerchopper so doesnt show about going to bank or hoping


    Function findman:boolean;
    var
    x, y, Plusone, barcounter: integer;
    begin
    plusone:= Invcount + 1;
    If FindObjCustom(x, y, ['name', 'h R'], [5726875, 2836576], 20) Then
    begin
    StatsGuise('hooray we found him');
    getmousepos(x, y);

    case random(1) of
    0: begin
    mouse (x, y, 10, 10, false);
    WaitOption ('Trade', 3000);
    end;
    case random(1) of
    0: begin
    mouse (x, y, 10, 10, false);
    WaitOption ('item', 3000);
    end;
    end;

  2. #2
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,279
    Mentioned
    2 Post(s)
    Quoted
    44 Post(s)

    Default

    You posted two threads.
    You didn't post your code in [SIMBA] tags

    Also, there are built in functions for banking, you can find them here: http://docs.villavu.com/srl-5/bank.html

  3. #3
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok im following yohojo tut and it says to put this in the droping thing

    MouseItem(orePattern[I],False);

    when i do it says
    [Error] (200:37): Type mismatch at line 199
    Compiling failed.

    any help please???????????

  4. #4
    Join Date
    Jul 2009
    Location
    Australia
    Posts
    668
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by tombow View Post
    ok im following yohojo tut and it says to put this in the droping thing

    MouseItem(orePattern[I],False);

    when i do it says
    [Error] (200:37): Type mismatch at line 199
    Compiling failed.

    any help please???????????
    Can you please post the whole script so we can have a look for the error?
    If it is an error with that line, is it possibly because you are using a TPointArray in MouseItem, which requires an Integer?

    ~Caotom

  5. #5
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorryy guys got another problem iv made the script working flawless atm, how to i add it so that when i click play it loads rs to bot ?

  6. #6
    Join Date
    Feb 2012
    Location
    Wonderland
    Posts
    1,930
    Mentioned
    39 Post(s)
    Quoted
    262 Post(s)

    Default

    Quote Originally Posted by tombow View Post
    sorryy guys got another problem iv made the script working flawless atm, how to i add it so that when i click play it loads rs to bot ?
    If you are trying to get your character loaded with the smart client try this;

    Simba Code:
    program New;
    {$DEFINE SMART}
    {$DEFINE SRL5}
    {$i srl/srl.simba}

    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name      := '';
      Players[0].Pass      := '';
      Players[0].Active    := True;    //use this player?
    end;

    Procedure MainLoop;
    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
    end;

    begin
      MainLoop;
    end.

  7. #7
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    dont understand it iv wrotethe script but idk how to get it to add smart etc so client loads up?

    SMART Initialized.
    Loaded: Server 13, Members: False, Signed: True, Super Detail: False.
    Error: Exception: Access violation at line 142
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]

  8. #8
    Join Date
    Aug 2007
    Location
    England
    Posts
    1,032
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    If you would of listened to Caotom, your problem might have be sorted out by now.
    Quote Originally Posted by Caotom View Post
    Can you please post the whole script so we can have a look for the error?
    If it is an error with that line, is it possibly because you are using a TPointArray in MouseItem, which requires an Integer?

    ~Caotom
    You see this,
    Quote Originally Posted by tombow View Post
    SMART Initialized.
    Loaded: Server 13, Members: False, Signed: True, Super Detail: False.
    That means SMART is loading

    This,
    Error: Exception: Access violation at line 142
    Means there is a problem at line 142. Which could be in your script or it might of opened up a new window in Simba and shown you a problem its having with a function or procedure your trying to use from the SRL library.

    These don't worry about.
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
    So if you can post the function or procedure that line is in you will be helped a lot quicker, even better the whole script .
    Today is the first day of the rest of your life

  9. #9
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    program copperminer;
    {$DEFINE SMART}
    {.include SRL\SRL.simba}
    {.Include SRL\SRL\Misc\Debug.simba}
    //{$i SRL\SRL\Misc\paintsmart.simba}


    Const

    SRLStats_Username = ''; // Your SRL Stats Username
    SRLStats_Password = ''; // Your SRL Stats Password
    NumbOfPlayers= 1; //How many players are you using
    StartPlayer= 0; //Player to start auoting with! (0 means first char)
    LoadsTotal= 999999; //How Many Total Lods To Do Per Character!
    Version= '1.0'; //NO TOUCHY! program new;


    {************************************************* ******************************
    procedure DeclarePlayers;
    By: SRL
    Description: SRL's Player Setup
    ************************************************** *****************************}
    procedure DeclarePlayers;
    var i:integer;
    begin
    NumberOfPlayers(NumbOfPlayers);
    CurrentPlayer := StartPlayer;
    for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

    with Players[0] do
    begin
    Name := ''; //Player username.
    Pass := ''; //Player password.
    Active := True;
    Integers[1] := 4; //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
    Integers[2] := 4; //Seconds to try mining rock before clicking another.
    end;

    end;


    {************************************************* ******************************
    Procedure StatsGuise(wat:String);
    By: YoHoJo
    Description: Combination of Status & Diguise
    ************************************************** *****************************}
    Procedure StatsGuise(wat:String);
    Begin
    Status(wat);
    Disguise(wat);
    End;


    {************************************************* ******************************
    Function CheckAndClick(X,Y:Integer):Boolean;
    By: YoHoJo
    Description: Moves mouse to x,y, checks for uptext, and clikcs if found
    ************************************************** *****************************}
    Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
    Begin
    MMouse(x, y, 5, 5);
    If WaitUptext(UpText, 5000) Then
    Begin
    Result:=True;
    GetMousePos(x, y);

    Case RClick Of

    'R':
    Begin
    Mouse(x, y, 0, 0, False);
    WaitOption('ine', 2000);
    FFlag(0);
    End;

    'L':
    Begin
    Mouse(x, y, 0, 0,True);
    Wait(100+Random(50));
    FFlag(0);
    End;

    End;
    End;

    End;


    Procedure Antiban;
    Begin
    Case Random(2000) Of

    0:
    Begin
    //PaintReport;
    HoverSkill('Mining', False);
    //PaintReport;
    GameTab(Tab_Inv);
    //PaintReport;
    End;
    1:
    Begin
    //PaintReport;
    PickUpMouse;
    SleepAndMoveMouse(3000 + Random(500));
    //PaintReport;
    PickUpMouse;
    End;
    2: ExamineInv;
    3:
    Begin
    //PaintReport;
    RandomAngle(SRL_ANGLE_HIGH);
    //PaintReport;
    SetAngle(SRL_ANGLE_HIGH);
    //PaintReport;
    End;
    4:
    Begin
    //PaintReport;
    GameTab(Tab_Stats);
    //PaintReport;
    Wait(3000 + Random(500));
    //PaintReport;
    GameTab(Tab_Inv);
    End;
    5:
    Begin
    //PaintReport;
    HoverSkill('random', False);
    //PaintReport;
    GameTab(Tab_Inv);
    End;

    End;
    End;

    Procedure Failsafe (reason:string);
    begin
    players[currentplayer].Loc:=reason;
    logout;
    stats_commit;
    terminatescript;
    end;



    Function mineore:boolean;
    var
    x, y, Plusone, treecounter: integer;
    begin
    FindNormalRandoms;
    plusone:= Invcount + 1;
    If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [4884973, 5214973], 10) Then
    begin
    StatsGuise('hooray we found the bastard');
    getmousepos(x, y);

    case random(1) of
    0: mouse (x, y, 5, 5, true);
    1: begin
    mouse (x, y, 5, 5, false);
    WaitOption ('mine', 1000);
    end;
    end;

    flag;
    marktime(treecounter);

    Repeat
    FindNormalRandoms;
    statsGuise('Antiban and waiting');
    Antiban;
    wait(100);
    if invcount=plusone then
    writeln('we got one');
    until (invcount=plusone) or (timefrommark(treecounter) > 7000)

    End;
    end;

    Procedure dropore;
    var
    x, y, oreDTM, I:integer;
    Slotbox:Tbox;
    orePattern:TintegerArray;



    begin


    oreDTM := DTMFromString('mbQAAAHicY2VgYHBhYmCwAmJ7IPYHYm8gfg IUvwvEn4D4BRDfAuJdOVZAkgmMDRQUwBgd/AdiRiwYDACBqAkk');
    orePattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19, 23,27,4,8,12,16,20,24,28];
    for I:=0 to 27 do
    begin
    FindNormalRandoms;
    statsGuise('Dropping ore:' + InttoStr(I));
    slotbox:=invbox(orePattern[I]);
    If FindDTM(oreDTM,x,y,slotbox.x1,slotbox.y1, slotbox.x2, slotbox.y2) Then
    begin
    MouseItem(orePattern[I],Mouse_Right);
    chooseoption('rop');
    end;
    end;

    end;

    begin
    Smart_Server := 54;
    Smart_Members := true;
    Smart_Signed := false;
    Smart_SuperDetail := false;
    SetupSRL;
    DeclarePlayers;
    repeat
    mineore;
    if InvFull Then
    dropore;
    Until(false);
    End.

  10. #10
    Join Date
    Nov 2011
    Location
    MA
    Posts
    550
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    ^ Put simba tags around the script

  11. #11
    Join Date
    Jul 2009
    Location
    Australia
    Posts
    668
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by tombow View Post
    Simba Code:
    program copperminer;
    {$DEFINE SMART}
    {.include SRL\SRL.simba}
    {.Include SRL\SRL\Misc\Debug.simba}
    //{$i SRL\SRL\Misc\paintsmart.simba}


    Const

     SRLStats_Username = ''; // Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     NumbOfPlayers= 1;     //How many players are you using
     StartPlayer=   0;     //Player to start auoting with! (0 means first char)
     LoadsTotal=    999999;  //How Many Total Lods To Do Per Character!
     Version=       '1.0'; //NO TOUCHY!   program new;


     {*******************************************************************************
    procedure DeclarePlayers;
    By: SRL
    Description: SRL's Player Setup
    *******************************************************************************}

    procedure DeclarePlayers;
    var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer;
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

      with Players[0] do
      begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Active      := True;
        Integers[1] := 4;       //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
        Integers[2] := 4;      //Seconds to try mining rock before clicking another.
      end;

    end;


    {*******************************************************************************
    Procedure StatsGuise(wat:String);
    By: YoHoJo
    Description: Combination of Status & Diguise
    *******************************************************************************}

    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;


    {*******************************************************************************
    Function CheckAndClick(X,Y:Integer):Boolean;
    By: YoHoJo
    Description: Moves mouse to x,y, checks for uptext, and clikcs if found
    *******************************************************************************}

    Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      If WaitUptext(UpText, 5000) Then
      Begin
        Result:=True;
        GetMousePos(x, y);

        Case RClick Of

          'R':
          Begin
            Mouse(x, y, 0, 0, False);
            WaitOption('ine', 2000);
            FFlag(0);
          End;

          'L':
          Begin
            Mouse(x, y, 0, 0,True);
            Wait(100+Random(50));
            FFlag(0);
          End;

        End;
      End;

    End;


    Procedure Antiban;
    Begin
      Case Random(2000) Of

        0:
        Begin
          //PaintReport;
          HoverSkill('Mining', False);
          //PaintReport;
          GameTab(Tab_Inv);
          //PaintReport;
        End;
        1:
        Begin
          //PaintReport;
          PickUpMouse;
          SleepAndMoveMouse(3000 + Random(500));
          //PaintReport;
          PickUpMouse;
        End;
        2: ExamineInv;
        3:
        Begin
          //PaintReport;
          RandomAngle(SRL_ANGLE_HIGH);
          //PaintReport;
          SetAngle(SRL_ANGLE_HIGH);
          //PaintReport;
        End;
        4:
        Begin
          //PaintReport;
          GameTab(Tab_Stats);
          //PaintReport;
          Wait(3000 + Random(500));
          //PaintReport;
          GameTab(Tab_Inv);
        End;
        5:
        Begin
          //PaintReport;
          HoverSkill('random', False);
          //PaintReport;
          GameTab(Tab_Inv);
        End;

      End;
    End;

    Procedure Failsafe (reason:string);
    begin
      players[currentplayer].Loc:=reason;
      logout;
      stats_commit;
      terminatescript;
    end;



    Function mineore:boolean;
      var
      x, y, Plusone, treecounter: integer;
    begin
       FindNormalRandoms;
       plusone:= Invcount + 1;
       If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [4884973, 5214973], 10) Then
     begin
      StatsGuise('hooray we found the bastard');
      getmousepos(x, y);

      case random(1) of
      0: mouse (x, y, 5, 5, true);
      1: begin
           mouse (x, y, 5, 5, false);
           WaitOption ('mine', 1000);
         end;
      end;

      flag;
      marktime(treecounter);

      Repeat
        FindNormalRandoms;
        statsGuise('Antiban and waiting');
        Antiban;
        wait(100);
        if invcount=plusone then
          writeln('we got one');
      until (invcount=plusone) or (timefrommark(treecounter) > 7000)

     End;
    end;

    Procedure dropore;
    var
      x, y, oreDTM, I:integer;
      Slotbox:Tbox;
      orePattern:TintegerArray;



    begin


      oreDTM := DTMFromString('mbQAAAHicY2VgYHBhYmCwAmJ7IPYHYm8gfgIUvwvEn4D4BRDfAuJdOVZAkgmMDRQUwBgd/AdiRiwYDACBqAkk');
      orePattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28];
      for I:=0 to 27 do
      begin
        FindNormalRandoms;
        statsGuise('Dropping ore:' + InttoStr(I));
        slotbox:=invbox(orePattern[I]);
        If FindDTM(oreDTM,x,y,slotbox.x1,slotbox.y1, slotbox.x2, slotbox.y2) Then
         begin
          MouseItem(orePattern[I],Mouse_Right);
          chooseoption('rop');
         end;
      end;

    end;

    begin
      Smart_Server := 54;
      Smart_Members := true;
      Smart_Signed := false;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      repeat
        mineore;
        if InvFull Then
        dropore;
      Until(false);
    End.
    In future could you please use simba and /simba wrappings around any code you post.
    There does not seem to be an issue with the script, it compiles fine on my machine. When you get the error, does it open an include and highlight line 142 from that?

    ~Caotom

  12. #12
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what do you mean?

  13. #13
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea this is what it opens 'smart tab'
    if(prefix = '')then
    thats line 142were it says error

  14. #14
    Join Date
    Aug 2007
    Location
    England
    Posts
    1,032
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    1 thing I have seen is that you have announced this
    Simba Code:
    Function mineore:boolean;
      var
      x, y, Plusone, treecounter: integer;
    begin
       FindNormalRandoms;
       plusone:= Invcount + 1;
       If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [4884973, 5214973], 10) Then
     begin
      StatsGuise('hooray we found the bastard');
      getmousepos(x, y);

      case random(1) of
      0: mouse (x, y, 5, 5, true);
      1: begin
           mouse (x, y, 5, 5, false);
           WaitOption ('mine', 1000);
         end;
      end;

      flag;
      marktime(treecounter);

      Repeat
        FindNormalRandoms;
        statsGuise('Antiban and waiting');
        Antiban;
        wait(100);
        if invcount=plusone then
          writeln('we got one');
      until (invcount=plusone) or (timefrommark(treecounter) > 7000)

     End;
    end;
    As a Boolean but yet you have not set any results.
    So you either make a click rock function, which is advisable as you can then know if it is clicking the rock.
    Or you can just make it a procedure, which I did.
    So I changed a few things and here it is.
    Simba Code:
    program copperminer;
    {$DEFINE SMART}
    {.include SRL\SRL.simba}
    {.Include SRL\SRL\Misc\Debug.simba}
    //{$i SRL\SRL\Misc\paintsmart.simba}


    Const

     SRLStats_Username = ''; // Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     LoadsTotal        = 999999;  //How Many Total Lods To Do Per Character!
     Version           = '1.0'; //NO TOUCHY!   program new;


     {*******************************************************************************
    procedure DeclarePlayers;
    By: SRL
    Description: SRL's Player Setup
    *******************************************************************************}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // How many players are you using ?
      NumberOfPlayers(HowManyPlayers); // Don't touch !!!
      CurrentPlayer := 0; // Which player do you want to start with ?

      with Players[0] do
      begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Pin         := '';
        Active      := True;
        BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
        Integers[1] := 4;       //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
        Integers[2] := 4;      //Seconds to try mining rock before clicking another.
      end;

    end;


    {*******************************************************************************
    Procedure StatsGuise(wat:String);
    By: YoHoJo
    Description: Combination of Status & Diguise
    *******************************************************************************}

    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;


    {*******************************************************************************
    Function CheckAndClick(X,Y:Integer):Boolean;
    By: YoHoJo
    Description: Moves mouse to x,y, checks for uptext, and clikcs if found
    *******************************************************************************}

    Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      If WaitUptext(UpText, 5000) Then
      Begin
        Result:=True;
        GetMousePos(x, y);

        Case RClick Of

          'R':
          Begin
            Mouse(x, y, 0, 0, False);
            WaitOption('ine', 2000);
            FFlag(0);
          End;

          'L':
          Begin
            Mouse(x, y, 0, 0,True);
            Wait(100+Random(50));
            FFlag(0);
          End;

        End;
      End;

    End;


    Procedure Antiban;
    Begin
      Case Random(2000) Of

        0:
        Begin
          //PaintReport;
          HoverSkill('Mining', False);
          //PaintReport;
          GameTab(Tab_Inv);
          //PaintReport;
        End;
        1:
        Begin
          //PaintReport;
          PickUpMouse;
          SleepAndMoveMouse(3000 + Random(500));
          //PaintReport;
          PickUpMouse;
        End;
        2: ExamineInv;
        3:
        Begin
          //PaintReport;
          RandomAngle(SRL_ANGLE_HIGH);
          //PaintReport;
          SetAngle(SRL_ANGLE_HIGH);
          //PaintReport;
        End;
        4:
        Begin
          //PaintReport;
          GameTab(Tab_Stats);
          //PaintReport;
          Wait(3000 + Random(500));
          //PaintReport;
          GameTab(Tab_Inv);
        End;
        5:
        Begin
          //PaintReport;
          HoverSkill('random', False);
          //PaintReport;
          GameTab(Tab_Inv);
        End;

      End;
    End;

    Procedure Failsafe (reason:string);
    begin
      players[currentplayer].Loc:=reason;
      logout;
      stats_commit;
      terminatescript;
    end;



    procedure mineore;
      var
      x, y, Plusone, treecounter: integer;
    begin
      FindNormalRandoms;
      plusone:= Invcount + 1;
      If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [4884973, 5214973], 10) Then
      begin
        StatsGuise('hooray we found the bastard');
        getmousepos(x, y);

        case random(1) of
        0: mouse (x, y, 5, 5, true);
        1: begin
             mouse (x, y, 5, 5, false);
             WaitOption ('mine', 1000);
           end;
        end;

        flag;
        marktime(treecounter);

        Repeat
          FindNormalRandoms;
          statsGuise('Antiban and waiting');
          Antiban;
          wait(100);
          if invcount=plusone then
            writeln('we got one');
        until (invcount=plusone) or (timefrommark(treecounter) > 7000)

      end;
    end;

    Procedure dropore;
    var
      x, y, oreDTM, I:integer;
      Slotbox:Tbox;
      orePattern:TintegerArray;



    begin


      oreDTM := DTMFromString('mbQAAAHicY2VgYHBhYmCwAmJ7IPYHYm8gfgIUvwvEn4D4BRDfAuJdOVZAkgmMDRQUwBgd/AdiRiwYDACBqAkk');
      orePattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28];
      for I:=0 to 27 do
      begin
        FindNormalRandoms;
        statsGuise('Dropping ore:' + InttoStr(I));
        slotbox:=invbox(orePattern[I]);
        If FindDTM(oreDTM,x,y,slotbox.x1,slotbox.y1, slotbox.x2, slotbox.y2) Then
         begin
          MouseItem(orePattern[I],Mouse_Right);
          chooseoption('rop');
         end;
      end;

    end;

    begin
      Smart_Server := 54;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      repeat
        mineore;
        if InvFull Then
        dropore;
      Until(false);
    End.

    You didn't have LoginPlayer; for a start.
    You put smart signed to false, you can not use unsigned any more (unless they have changed it ?)
    Also I cleaned up your declare players procedure. Change it back if you want.
    Hope I helped

    ~Jakkle
    Today is the first day of the rest of your life

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
  •