Results 1 to 11 of 11

Thread: Will pay for lessons/teachings

  1. #1
    Join Date
    Nov 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default Will pay for lessons/teachings

    Hello, Ive been here for quite awhile now and I havent been exactly able to run any scripts. of course I can make simple left click procedures and have a ok grasp on the concept of the coding. But overall its really getting me into the depression mode, I feel like I can achieve something to help this community. I am sick of being a leecher asking abunch of questions and waiting for a release from a scripter to fix my issues. I would like to know if anyone here is willing to give me live lessons and help me build a simple script that will make my well-rounded. I will pay of course for this, you offer the price and we can come up with a agreement. I have a verified paypal with my "own" bank account linked to.

    *Alittle about myself* I am currently attend college for welding and fabrication. My names Elvis, I currently reside in North Dakota. I have a 4 year old daughter. I am pretty interested in scripting, I find it a challenge and fun to be able to put algorithmics together and intercross methods/procedures to form a complete project that everyone will enjoy.

    Most impotent - My msn is Elvisbnd@msn.com

  2. #2
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    If you go to the tutorial island section there are a lot of good tut's and another great one is YoHoJo's video tut's. That's how I learnt to script and it's a great place to go. You wouldn't need to pay for help here as everyone would be happy to help without payment.
    Current Project: Retired

  3. #3
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Blue90 View Post
    Most impotent - My msn is
    I guess mobile device spell check is being an ass here. Fix please.
    Current activity: Recovering from vacation
    - Nulla pars vitae vacare officio potest -
    SRL membership? Can I buy that?
    Scripts - AGS - SWF - WAR - EMS - W100S-EM
    If you need scripting help, you can pm me. Remember, if you need help you have to ask for it properly though

  4. #4
    Join Date
    Nov 2011
    Posts
    1,268
    Mentioned
    17 Post(s)
    Quoted
    217 Post(s)

    Default

    There many people around who would do it for free, I personally would but kind of busy with school and a couple projects I got.
    GLH Tutorial ~ OpenGL Scripting
    http://villavu.com/forum/showthread.php?p=1292150

    GLH Scripts ~ Abyssal Scripts
    http://villavu.com/forum/showthread.php?p=1293187
    Current Projects:
    A) DemiseSlayer Pro (Released/100%).
    B) Demise Power Miner(Released/100%).
    C) Demise Pyramid Plunder(Planning Stage/0%).

  5. #5
    Join Date
    Oct 2006
    Location
    Netherlands
    Posts
    3,285
    Mentioned
    105 Post(s)
    Quoted
    494 Post(s)

    Default

    I would love to help you, but what is your problem? At which points aren't you able to follow the tutorials?
    Working on: Tithe Farmer

  6. #6
    Join Date
    Nov 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Well I was using Yohos tut, My codes here

    Code:
    program Powerminer;
    
      //{$DEFINE SMART}
      {$i \SRL\SRL.Simba}
      {$i \SRL\SRL\Misc\Stats.Simba}
    
      Const
      SERVER = 61;
      MEMBERS = False;
      SRLStats_Username = '';
      SRLStats_Password = '';
      NumberOfPlayers=1';
      StartPlayer = 0;       //Start what number in the category
      LoadsTotal = 9999;
      AntiBDrop= True;
      DropGems= True;
      SleepyWeepie= 7;
      YDebug= False;
      BreakEvery =   120;
      BreakFor =     3;
    
      Version= '0.01';
    
    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.
        Nick        := ''; //Player nickname - 3-4 letters of Player username.
        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;
    
    
    Procedure StatsGuise (wat:String);
    begin
      Status(wat);
      Disguise(wat);
    end;
    
    Function CheckAndClick(UpText, Option:String; X,Y:Integer; RClick:Boolean):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      {Wait(100 + Random(50));
      If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}
      If WaitUpTextMulti(['Mine','ine'], 150) Then
      Begin
        Result:=True;
        GetMousePos(x, y);
        Mouse(x, y, 0, 0,True);
        Wait(100+Random(50));
        FFlag(0);
      End;
    
    Procedure Antiban;
    Begin
      Case Random(192) Of
        0: HoverSkill('Mining', True);
        1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
        2: ExamineInv('False');
        3: RandomAngle(1);
        4: Begin GameTab(Tab_Stats); Wait(1500 + Random(500)); GameTab(Tab_Inv); End;
        5: HoverSkill('random', False);
      End;
    End;
    
    Procedure Failsafe (Reason:String);
      begin (CurrentPlayer).Log:Reason;
      Logout;
      Stats_Commit;
      ProgressReport;
      TerminateScript;
    end;
    
      Function MineOre;
    Begin
    ///FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
    if FindObjCustom(xaxis,yaxis,['Mine Rocks','Mine'],('1651770','1915713','1453105','1523785'],30') Then
    Writeln('Yay')
    end;
    
    begin
      SetupSRL;
      DeclarePlayers;
      Repeat
        MineOre;
      Until(false);
    
    end.
    I experience Error] C:\Simba\Includes\\SRL\SRL\Misc\Stats.Simba(15:3): Duplicate identifier 'TStats_Vars' at line 14.... Why?

  7. #7
    Join Date
    Aug 2007
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I found some problems, this will compile now at least..

    Simba Code:
    program Powerminer;

      {$DEFINE SMART}
      {$i SRL/SRL.simba}
      //{$i SRL/Misc/Stats.simba}

      Const
      SERVER = 61;
      MEMBERS = False;
      SRLStats_Username = '';
      SRLStats_Password = '';
      NumbOfPlayers=1;  //THIS WAS NumberOfPlayers=1';
      StartPlayer = 0;       //Start what number in the category
      LoadsTotal = 9999;
      AntiBDrop= True;
      DropGems= True;
      SleepyWeepie= 7;
      YDebug= False;
      BreakEvery =   120;
      BreakFor =     3;

      Version= '0.01';

    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.
        Nick        := ''; //Player nickname - 3-4 letters of Player username.
        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);
    begin
      Status(wat);
      Disguise(wat);
    end;

    Function CheckAndClick(UpText, Option:String; X,Y:Integer; RClick:Boolean):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      {Wait(100 + Random(50));
      If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}

      If WaitUpTextMulti(['Mine','ine'], 150) Then
      Begin
        Result:=True;
        GetMousePos(x, y);
        Mouse(x, y, 0, 0,True);
        Wait(100+Random(50));
        FFlag(0);
      End;
    end;

    Procedure Antiban;
    Begin
      Case Random(192) Of
        0: HoverSkill('Mining', True);
        1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
        2: ExamineInv();  //THIS HAD AN INVALID PARAMETER (FALSE)
        3: RandomAngle(1);
        4: Begin GameTab(Tab_Stats); Wait(1500 + Random(500)); GameTab(Tab_Inv); End;
        5: HoverSkill('random', False);
      End;
    End;

    Procedure Failsafe (Reason:String);
      begin
      //(CurrentPlayer).Log:Reason;
      Logout;
      Stats_Commit;
      //ProgressReport; //THIS DOESN'T EXIST ANYWHERE IN THE CODE
      TerminateScript;
    end;

    procedure MineOre;
    var
    x, y: Integer; // x, y variables weren't declared as integers
    Begin
    ///FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
    if FindObjCustom(x,y,['Mine'],['1651770','1915713','1453105','1523785'],30) Then   //THIS WAS BROKE
     Begin
        GetMousePos(x, y);

        Case Random(2) Of
          0: Mouse(x, y, 2, 2, True);
          1: Begin
              Mouse(x, y, 2, 2, False);
              WaitOption('Mine'', 500);
             End;
        End
      End;
    Writeln('
    Yay')
    end;

    //MainLoop
    begin
      SetupSRL;
      DeclarePlayers;
      Repeat
        MineOre;
      Until(false);
    end.
    Will someone please enable my avatar?

  8. #8
    Join Date
    Feb 2012
    Posts
    317
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Since i dont want to make new thread, let me borrow urs and post here please

    I need the same help on scripting. I have just started read some of variables and procedures.

    If you have time any day in this week expect today, sent me pm

  9. #9
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by Xenophis View Post
    Since i dont want to make new thread, let me borrow urs and post here please

    I need the same help on scripting. I have just started read some of variables and procedures.

    If you have time any day in this week expect today, sent me pm
    Hey, try clicking on and reading the tutorial in my signature
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  10. #10
    Join Date
    Apr 2007
    Location
    Los Angeles
    Posts
    622
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Brotha, we dont take bribes here, There are a bunch of tutorials here and alot of the time when your stuck on something, a simple post gets you alot of help. I'm releasing my first public script today based on reading tutorials. Also, If you look on the left hand side of simba, Almost all functions are listed in the categories. You can drag and drop functions into your script and mess around with them. Have a go at it. Take a look through Tutorial Island. It can be alot of help and if you still need help, you can PM me. =)

  11. #11
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

    Default

    As the others have said, there are plenty of well written tutorials here, BUT.. If you do need a little more hands-on help, I'm sure someone here would be willing to help you.

    *cough cough* xXTrollXx *cough cough*


    The code: (before)
    Simba Code:
    program Powerminer;

      {$DEFINE SMART}
      {$i SRL/SRL.simba}
      //{$i SRL/Misc/Stats.simba}

      Const
      SERVER = 61;
      MEMBERS = False;
      SRLStats_Username = '';
      SRLStats_Password = '';
      NumbOfPlayers=1;  //THIS WAS NumberOfPlayers=1';
      StartPlayer = 0;       //Start what number in the category
      LoadsTotal = 9999;
      AntiBDrop= True;
      DropGems= True;
      SleepyWeepie= 7;
      YDebug= False;
      BreakEvery =   120;
      BreakFor =     3;

      Version= '0.01';

    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.
        Nick        := ''; //Player nickname - 3-4 letters of Player username.
        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);
    begin
      Status(wat);
      Disguise(wat);
    end;

    Function CheckAndClick(UpText, Option:String; X,Y:Integer; RClick:Boolean):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      {Wait(100 + Random(50));
      If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}

      If WaitUpTextMulti(['Mine','ine'], 150) Then
      Begin
        Result:=True;
        GetMousePos(x, y);
        Mouse(x, y, 0, 0,True);
        Wait(100+Random(50));
        FFlag(0);
      End;
    end;

    Procedure Antiban;
    Begin
      Case Random(192) Of
        0: HoverSkill('Mining', True);
        1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
        2: ExamineInv();  //THIS HAD AN INVALID PARAMETER (FALSE)
        3: RandomAngle(1);
        4: Begin GameTab(Tab_Stats); Wait(1500 + Random(500)); GameTab(Tab_Inv); End;
        5: HoverSkill('random', False);
      End;
    End;

    Procedure Failsafe (Reason:String);
      begin
      //(CurrentPlayer).Log:Reason;
      Logout;
      Stats_Commit;
      //ProgressReport; //THIS DOESN'T EXIST ANYWHERE IN THE CODE
      TerminateScript;
    end;

    procedure MineOre;
    var
    x, y: Integer; // x, y variables weren't declared as integers
    Begin
    ///FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
    if FindObjCustom(x,y,['Mine'],['1651770','1915713','1453105','1523785'],30) Then   //THIS WAS BROKE
     Begin
        GetMousePos(x, y);

        Case Random(2) Of
          0: Mouse(x, y, 2, 2, True);
          1: Begin
              Mouse(x, y, 2, 2, False);
              WaitOption('Mine', 500);  //This had a thingy misplaced.. there was an extra " ' " (Apostrophe).
             End;
        End
      End;
    Writeln('Yay')
    end;

    //MainLoop
    begin
      SetupSRL;
      DeclarePlayers;
      Repeat
        MineOre;
      Until(false);
    end.
    Last edited by Vinyl Scratch; 03-19-2012 at 09:34 PM.

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
  •