SRL Archive - Archive

nicbaz - SRL Member Application Form

NiCbaZ

2008-04-12 07:37:58

<!– BEGIN TEMPLATE: formanswers –>
nicbaz - SRL Member Application Form
nicbaz

What is the meaning to life?

Where you Referred to SRL? If yes, by whom?

Programming Knowledge
HTML and Scar only

Other Communitys
sp0rk-eh sometimes

How Long have You Played Runescape
3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Hello All Srl Members+ this is my members app, i first came to this forum about 2 years ago i was a little noob and leacher, since then i have been getting better at scripting i now feel it is time to apply for members in my script i have included

// This Script Has Theese Fetures
// DTM's
// TPA's
// Multi
// Map Walking
// Multi PLayer
// Colour Useage
// Cases
//

Please Take the Time to have a look at my app and see if i worthy of srl members.

My name is Pat i live in aus and i am 14 years old

So thats all about me!

p.s its not letting me to attach so il just put it there.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program SeersYewCutter;
{.include SRl/SRl.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

//////////////////////////////////////////////////////////////////////
//                       Seers Yew Cutter By Nicbaz                 //
//                                                                  \\
// This Script Has Theese Fetures                                   //
// DTM's                                                            \\
// TPA's                                                            //
// Multi                                                            \\
// Map Walking                                                      //
// Multi PLayer                                                     \\
// Colour Useage                                                    //
// Cases                                                            \\
//                         Hello And Welcome To My first real       \\
//   Script this script is designed to cut and bank yew logs in     //
//   Seers bank Fill in the script in the below lines lines 60-67   \\
//                                                                  //
////////////////////////////////////////////////////////////////////\\
// V 1.1                                                            //
// Wrote Wcing Procedure                                            \\
// Walking With symbles                                             //
//                                                                  \\
//////////////////////////////////////////////////////////////////////
//V 1.2                                                             \\
// Started To learn DTM's                                           //
// And Radial Map Walking                                           \\
//                                                                  //
/////////////////////////////////////////////////////////////////////
//V 1.3                                                            \\
//TPA's In the wood Cutting Procedure                              //
//                                                                 \\
/////////////////////////////////////////////////////////////////////
//V 1.4                                                            \\
//Added in random talking                                          //
//And DTM's For Banking                                            \\
/////////////////////////////////////////////////////////////////////
//V 1.5                                                            //
//Removed Random Talking                                           \\
//Added In Multi Player                                            //
//                                                                 \\
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
//Future Updates                                                   \\
//Needed Failsafes                                                 //
//Needed SRL stats                                                 \\
//                                                                 \\
/////////////////////////////////////////////////////////////////////
//   Thanks to Torrent of Flame for his Tutorials and Help :D      \\
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Delcare Players //////////////////
/////////////////////////////////////////////////////////////////////

procedure DeclarePlayers;
begin

  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].Integers[0] := 10; //Loads to Do;


  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;
  Players[1].Integers[0] := 100; //Loads to Do;
  {
  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := True;
  Players[2].Integers[0] := 100; //Loads to Do;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Active := True;
  Players[3].Integers[0] := 100; //Loads to Do;

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Nick := '';
  Players[4].Active := True;
  Players[4].Integers[0] := 100; //Loads to Do;

  Players[5].Name := '';
  Players[5].Pass := '';
  Players[5].Nick := '';
  Players[5].Active := True;
  Players[5].Integers[0] := 100; //Loads to Do; }

end;


/////////////////////////////////////////////////////////////////////
////////////////////////Dont Edit Below Here ////////////////////////
/////////////////////////////////////////////////////////////////////

var x, y: integer;
  Loads, Yew: integer;
  BrokenAxe: integer;
  NormalAxe: integer;
  BrokenAxes: integer;

/////////////////////////////////////////////////////////////////////
////////////////////////nicbaz load DTM's ///////////////////////////
/////////////////////////////////////////////////////////////////////

procedure LoadDTMs;
begin

  BrokenAxe := DTMFromString('78DA636C616260E0636440061D697C601A26C' +
    'AD80354C38FAA06260B57D30754C34D404D2F508D080135CD4035' +
    '5C04D4D400D5A8E05703008C0604B4');

  NormalAxe := DTMFromString('78DA63E4626060E067400175F17C609A11CA6' +
    '7640312720C688011550D0B909025A0860748B01050230E245809' +
    'A81105127C04D480E439F1AB01004CBC01C4');
end;


/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz AntiBan //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure AntiBans;
begin
  case Random(7) of
    0: HoverSkill('woodcutting', false);
    1: DoEmote(1 + Random(20));
    2: AlmostLogout;
    3: BoredHuman;
    4: RandomMovement;
    5: PickUpMouse;
    6: RandomRClick;
  end;
end;


/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz CheckAxe /////////////////////////
/////////////////////////////////////////////////////////////////////


procedure CheckAxe;
begin
  if FindAxe then
  begin
    Writeln('Axe Found')
  end
end;

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz randoms //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure Randoms;
begin
  FindTalk;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  FindEnt(x, y, true);
  SolvePinball;
end;


/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz ChooseColor///////////////////////
/////////////////////////////////////////////////////////////////////

function PickYewColour: Integer;
begin
  case random(4) of
    0: Result := 3297356;
    1: Result := 3898223;
    2: Result := 534303;
    3: Result := 534046;
    4: Result := 4218718;
  end;
end;


/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Ent//// //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure EntFinder; //By Yohojo - edited by bobbohobbo
var
  EX, EY: integer;
  FX, FY: integer;
  SafeEntWait: LongInt;
begin
  if (not (LoggedIn)) then
    Exit;
  begin
    Status('Ent Checking')
      if
      (FindObjCustom(EX, EY, ['Yew'], [4690821], 7)) then
    begin
      MMouse(EX, EY, 0, 0)
        if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
      begin
        Status('Found Ent');
        MarkTime(SafeEntWait)
          repeat
          FTWait(5)
            FindNormalRandoms;
          if not (LoggedIn) then
            NextPlayer(False);
        until TimeFromMark(SafeEntWait) > 20000 + Random(5000);
      end;
    end;
  end;
end;

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz banking //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure Banking;
begin

  Yew := DTMFromString('78DA63E4656060E0614001899E9C609A11CA6' +
    '7940412CC0C688011530D9A3931AE68E6C80009215435CE860CA8' +
    '6AF880842801F7B00309115435ED79F6A86A9831ED6AC9B1C554C' +
    '387AAA6ABD001550D2B90E0226017C83DEC04EC1200126CF8C307' +
    '00F93B0A62');
  begin
    Wait(300 + random(160));
    OpenBankQuiet('sb');

    if (not (FindDTM(Yew, x, y, mix1, miy1, mix2, miy2))) then
    begin
      if (FindColorSpiralTolerance(x, y, 608352, mix1, miy1, mix2, miy2, 15)) then
      begin
        Mouse(x, y, 4, 3, false);
        ChooseOption('All');
        Loads := Loads + 1;
      end;
    end else

      if (FindDTM(Yew, x, y, mix1, miy1, mix2, miy2)) then
      begin
        Mouse(x, y, 4, 3, false);
        ChooseOption('All');
        Loads := Loads + 1;
      end;
    CloseBank;
    Wait(150 + random(278));
    MakeCompass('S');
  end;
end;


/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz To bank //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure WalkTobank;
begin
  if FindSymbol(x, y, 'altar') then
  begin
    if (FindSymbol(x, y, 'tree')) then
      Mouse(x, y, 2, 2, true);
    FFlag(2);
    wait(200 + random(400));
    if (findSymbol(x, y, 'cook')) then begin
      mouse(x, y, 2, 2, true);
      FFlag(2);
      wait(250 + random(400));
    end;
    if (findSymbol(x, y, 'bank')) then begin
      mouse(x, y, 2, 2, true);
      FFlag(2);
    end;
  end else
    if not FindSymbol(x, y, 'altar') then
      Exit;
end;

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Is Axe Broken ////////////////////
/////////////////////////////////////////////////////////////////////

function IsAxeBroken: boolean;
begin
  if FindDTM(BrokenAxe, x, y, 547, 206, 734, 464) then
    Writeln('Axe is broken! Attempting to bank and get new one.');
  BrokenAxes := BrokenAxes + 1;
  WalkTobank;
  begin
    Writeln('Banking for new axe..');
    Banking;
    if (FindDTM(NormalAxe, x, y, 151, 210, 595, 281)) then
    begin
      ChooseOption('1')
        CheckAxe;
      CloseBank;
    end;
  end;
end;


/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz ChooseClick //////////////////////////
/////////////////////////////////////////////////////////////////////

function ChooseClick: Integer;
begin
  case random(2) of
    0: begin
        Mouse(x, y, 3, 3, true);
      end;
    1: begin
        Mouse(x, y, 4, 4, false);
        ChooseOption('hop');
      end;
  end;
end;

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz ChopYew //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure ChopYew;
var Attempts: integer;
  CuttingTime: integer;
begin
  if (not (LoggedIn)) then NextPlayer(false);
  MarkTime(CuttingTime);
  MakeCompass('S');
  SetAngle(true);
  repeat
    if (not (FindObjTPA(x, y, PickYewColour, 10, -1, 7, 7, 15, ['Yew']))) then
    begin
      Wait(2000 + random(250));
      Attempts := Attempts + 1;
      if (Attempts = 100) then
      begin
        Writeln('Could not find yews');
        Attempts := 0;
        NextPlayer(false);
        Wait(1500 + random(1200));
      end;
    end else
    begin
      if FindObjTPA(x, y, PickYewColour, 10, -1, 7, 7, 15, ['Yew']) then
        ChooseClick;
      FindNormalRandoms;
      Antibans;
      EntFinder;
      FindEnt(x, y, True);
    end;
  until (TimeFromMark(CuttingTime) > 800000 + random(60000)) or (InvFull)
end;



/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Nicbaz ///////////////////////////
/////////////////////////////////////////////////////////////////////

procedure text;
begin
  ClearDebug;
  Writeln(' _______  .__      ___.                  ')
    wait(250 + random(30));
  Writeln(' \      \ |__| ____\_ |__ _____  ________')
    wait(250 + random(30));
  Writeln(' /   |   \|  |/ ___\| __ \\__  \ \___   /')
    wait(250 + random(30));
  Writeln('/    |    \  \  \___| \_\ \/ __ \_/    / ')
    wait(250 + random(30));
  Writeln('\____|__  /__|\___  >___  (____  /_____ \')
    wait(250 + random(30));
  Writeln('        \/        \/    \/     \/      \/')
    wait(2000)
    Writeln(' _____.___.               __________                          ')
    wait(250 + random(30));
  Writeln(' \__  |   | ______  _  __ \______   \______  _  __ ___________')
    wait(250 + random(30));
  Writeln('  /   |   |/ __ \ \/ \/ /  |     ___/  _ \ \/ \/ // __ \_  __ \')
    wait(250 + random(30));
  Writeln('  \____   \  ___/\     /   |    |  (  <_> )     /\  ___/|  | \/')
    wait(250 + random(30));
  Writeln('  / ______|\___  >\/\_/    |____|   \____/ \/\_/  \___  >__|   ')
    wait(250 + random(30));
  Writeln('  \/           \/                                     \/       ')
end;

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Walk Tree/////////////////////////
/////////////////////////////////////////////////////////////////////

procedure WalkTrees;
begin
  MakeCompass('s');
  RoadColor := FindRoadColor;
  RadialWalk(RoadColor, 0, 30, 72, 4, 4);
  Writeln('Walking To Road')
  FFlag(2);
  RadialWalk(16757, 5, 30, 75, 4, 4);
  Writeln('Walking To Rock')
  FFlag(2);
  RadialWalk(13587, 5, 90, 75, 4, 4);
  Writeln('Walking To Tree')
  FFlag(2);
end;

/////////////////////////////////////////////////////////////////////////
///////////////////////////nicbaz Proggy/////////////////////////////////
/////////////////////////////////////////////////////////////////////////

procedure Proggy;
begin
  ClearDebug;
  Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
  Writeln('/\Please Post Progress Reports & Any problems /\ ');
  Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
  Writeln('//\\Worked For: ' + TimeRunning + '    //\\');
  Writeln('//\\Did: ' + IntToStr(Loads) + ' Loads                            //\\');
  Writeln('//\\Broke: ' + IntToStr(BrokenAxes) + ' Axes                         //\\');
  Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
  Writeln('//\\      Thanks for Using my Script :D     //\\ ');
  Writeln('```````````````````````````````````````````````');
end;



/////////////////////////////////////////////////////////////////////
////////////////////////////Mainloop/////////////////////////////////
/////////////////////////////////////////////////////////////////////

procedure Setup;
begin
  SetupSRL;
  text;
  DeclarePlayers;
  LoginPLayer;
end;

begin
  Setup;
  LoadDTMs;
  CheckAxe;
  Wait(900 + Random(333));
  repeat
    WalkTrees;
    ChopYew;
    WalkTobank;
    Banking;
    if (Loads = Players[CurrentPlayer].Integers[0]) then
    begin
      NextPlayer(True);
      Loads := 0;
      MakeCompass('S')
      Writeln('Players Switched successfully')
    end;
  Proggy;
  until (False);
end.

/////////////////////////////////////////////////////////////////////////
//Thank you for useing my script!                                      //
//Credits to                                                           //
//Torrent Of Flame For Lots of Help!                                   //
//Jesus For lots of help!                                              //
//And Da Owner for lots of help!                                       //
/////////////////////////////////////////////////////////////////////////

——————————————————
<!– END TEMPLATE: formanswers –>

EvilChicken!

2008-04-12 10:17:21

Lil' simple, but I'm very sure you'll learn more when you get into SRL members section. Yes.

Harry

2008-04-12 10:19:30

Yummy. TPA's. Same as Chicken :)

Richard

2008-04-12 10:48:16

Well, if it was judegd on just your script, I wouldn't vote probably. But as its also your atitude adn helpfulness, I'm gonna have to give you a yes.

MylesMadness

2008-04-12 10:54:42

From: Dude Richard
Well, if it was judegd on just your script, I wouldn't vote probably. But as its also your atitude adn helpfulness, I'm gonna have to give you a yes.

QFT

[-jesus-]

2008-04-12 11:01:42

Well, I thought you would have waited a bit longer before applying with this script, so I'll give it a Yes.

get on msn later (nicbaz);)

Edit: -.-…. no credits for the procedures I helped on?

Richard

2008-04-12 11:02:04

From: Mylesmadness
QFT

I know you edited that post…

Negaal

2008-04-12 11:22:03

Yes w/o looking on script:)

Torrent of Flame

2008-04-12 11:26:55

I vote yes :]

Good too see you got the hand of using the TPA's and to see you got your banking procedure working ^.^

MylesMadness

2008-04-12 11:33:19

From: Dude Richard
I know you edited that post…

Yeah, I did. It said "The message you have entered is too short. Please lengthen your message to at least 1 characters."But I thought that didn't make much sense.

richk1693

2008-04-12 11:41:33

Yes from me.

Naum

2008-04-12 12:04:00

Noticed This:

  if FindDTM(BrokenAxe, x, y, 547, 206, 734, 464) then
    Writeln('Axe is broken! Attempting to bank and get new one.');

Why not change it to the global co-ords which are stored.

  if FindDTM(BrokenAxe, x, y, MIX1,MIY1,MIX2,MIY2) then
    Writeln('Axe is broken! Attempting to bank and get new one.');

MIX/MIY search in the Inventory very usefull.
But C-ords are same nevertheless.

Didn't check much more but maybe use more time marks and failsafes.

Yes Btw.
Keep on learning :).

ZephyrsFury

2008-04-12 12:08:37

No from me…

I don't think this script is at SRL-Member level. Its looks like you haven't tested this script much at all.
If you had tested it you would know that this wouldn't work:


procedure WalkTrees;
begin
  MakeCompass('s');
  RoadColor := FindRoadColor;
  RadialWalk(RoadColor, 0, 30, 72, 4, 4);
  Writeln('Walking To Road')
  FFlag(2);
  RadialWalk(16757, 5, 30, 75, 4, 4);
  Writeln('Walking To Rock')
  FFlag(2);
  RadialWalk(13587, 5, 90, 75, 4, 4);
  Writeln('Walking To Tree')
  FFlag(2);
end;

First of all you have no failsafes so if one of your RadialWalks failed (which it will), your whole procedure fails and the character gets lost. You need 'backups' that will take over if something happens.
Also, you should know that RS colours are dynamic, ie they change every time you log on and every time you get a loading screen. Therefore you last two radialwalks wouldn't work. You need to make the user picks the colours or that you have an autocolour function that will get the colours for you.

This procedure here:


procedure WalkTobank;
begin
  if FindSymbol(x, y, 'altar') then
  begin
    if (FindSymbol(x, y, 'tree')) then
      Mouse(x, y, 2, 2, true);
    FFlag(2);
    wait(200 + random(400));
    if (findSymbol(x, y, 'cook')) then begin
      mouse(x, y, 2, 2, true);
      FFlag(2);
      wait(250 + random(400));
    end;
    if (findSymbol(x, y, 'bank')) then begin
      mouse(x, y, 2, 2, true);
      FFlag(2);
    end;
  end else
    if not FindSymbol(x, y, 'altar') then
      Exit;
end;

does not look reliable at all. What happens if the script can't find the cook symbol or the tree symbol or the bank symbol? Won't your character get lost? Once again you need backup plans as I call them to minimise your chances of getting lost and increasing your script's reliability.

Also it doesn't look like you understand how to use multiplayer too well.


procedure ChopYew;
var Attempts: integer;
  CuttingTime: integer;
begin
  if (not (LoggedIn)) then NextPlayer(false);
  MarkTime(CuttingTime);
  MakeCompass('S');
  SetAngle(true);
  repeat
    if (not (FindObjTPA(x, y, PickYewColour, 10, -1, 7, 7, 15, ['Yew']))) then
    begin
      Wait(2000 + random(250));
      Attempts := Attempts + 1;
      if (Attempts = 100) then
      begin
        Writeln('Could not find yews');
        Attempts := 0;
        NextPlayer(false);
        Wait(1500 + random(1200));
      end;
    end else

You switched players in the middle of a procedure and didn't exit. This means when the next player logs on its stuck in the middle of the last procedure that the last player was in. You should only call NextPlayer at the end of your main loop.

See this tut for more info:
http://www.villavu.com/forum/showthread.php?t=12858?t=14246&highlight=adding+multiplayer

Oh and with this function:


function PickYewColour: Integer;
begin
  case random(4) of
    0: Result := 3297356;
    1: Result := 3898223;
    2: Result := 534303;
    3: Result := 534046;
    4: Result := 4218718;
  end;
end;

Your last colour won't be picked cos Random(4) will never return 4. You'll need to make it Random(5) for it to return either 0, 1, 2, 3 or 4.

So yea, sorry…

Zeph

Cazax

2008-04-12 13:06:54

Agreed with Zephyr's:

-

procedure WalkTrees;
begin
  MakeCompass('s');
  RoadColor := FindRoadColor;
  RadialWalk(RoadColor, 0, 30, 72, 4, 4);
  Writeln('Walking To Road')
  FFlag(2);
  RadialWalk(16757, 5, 30, 75, 4, 4);
  Writeln('Walking To Rock')
  FFlag(2);
  RadialWalk(13587, 5, 90, 75, 4, 4);
  Writeln('Walking To Tree')
  FFlag(2);
end;

No failsafes there.

-

procedure Randoms;
begin
  FindTalk;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  FindEnt(x, y, true);
  SolvePinball;
end;

FindTalk, SolvePinball and FindLamp are inside FindNormalRandoms, you are just wasting more time on it.

-

OpenBankQuiet('sb');

a failsafe here?

-

 procedure WalkTobank;
begin
  if FindSymbol(x, y, 'altar') then
  begin
    if (FindSymbol(x, y, 'tree')) then
      Mouse(x, y, 2, 2, true);
    FFlag(2);
    wait(200 + random(400));
    if (findSymbol(x, y, 'cook')) then begin
      mouse(x, y, 2, 2, true);
      FFlag(2);
      wait(250 + random(400));
    end;
    if (findSymbol(x, y, 'bank')) then begin
      mouse(x, y, 2, 2, true);
      FFlag(2);
    end;
  end else
    if not FindSymbol(x, y, 'altar') then
      Exit;
end;

end else exit? should be nextplayer…

Duh, sorry no…

Special Ed

2008-04-12 16:10:31

I agree with Zephyr and Cazax on this one. Also from what I've seen of your recent posts, not extremely helpful but you're better than some others. Work on your scripting and if you don't make it this time I'll look for your next application.

Wizzup?

2008-04-12 17:03:46

You are a cool guy, but I do not feel this script is SRL-Member's worthy yet…
I'll hold my vote. :)

NiCbaZ

2008-04-12 18:15:06

thanks for all the (yes)'s and (no)'s and alll the feedback, and the radial walk did work for me i cut i load successfully, yes i did make some stupid mistakes in the script i should of looked over it better anyway thanks for all the feedback and happy voting :)

Runescapian321

2008-04-12 18:31:58

Yes.

The script may have some flaws, but he's been active + helpful in the community. Along with that, he started this script (his first script) not too long ago (about a week maybe?), showing that he's a fast learner.

Special Ed

2008-04-12 23:54:36

From: Runescapian
Yes.

The script may have some flaws, but he's been active + helpful in the community. Along with that, he started this script (his first script) not too long ago (about a week maybe?), showing that he's a fast learner.

Ahhh yes… but if you learn things fast, but you learn them wrong, doesn't that destroy the whole point in learning? He may be a fast learner *by your standard* but he's not SRL-Member material yet. He needs to know how to script before he gets into SRL-Members, not learn when he's there.

NiCbaZ

2008-04-13 00:11:43

i do know how to script , thats why i applied i been here for 2 years :)

i know
DTM's
TPA's
Map Walking
Multi Player
Colour Use
Cases

and lots more

:)

Sp0rky

2008-04-13 01:09:57

I vote 100% no. Your not srl member material at the moment at all.

On my forums, when they used to be an rs black market, you lied cheated, and even scammed.

Dream=nicbaz

http://www.sp0rk-eh.com/forum/showthread.php?t=979&highlight=dream

That's recent. Too recent for my liking. That's after I entrusted him with a middleman rank. Total abuse of power. He also created at least 4 accounts and gave himself + iTrader points…

Daniel

2008-04-13 02:33:08

It appears you lack the knowledge of Failsafes :( You don't really break out of any loops or procedures that i see which you should. Also, this script is a little too simple for SRL Member status. I agree with CNR and Zeph.

Sorry, no. Maybe next time.

NiCbaZ

2008-04-13 02:47:42

sp0rk-eh i realize that i did that, but im not that sort of person anymore, also the multi accounts as i have said before where guys at school that we played arcade games, I was a bad person my your forum but i had a month ban and learnt my lesson, and i returned the account + anouther free acc. thanks for all the other feedback guys it will help me alot.

@sp0rky again , i am truely sorry for what i did at your forums that was a while ago when i was arragent noob and only cared for my self i have now dedicated my self to be nice and to help people.

Richard

2008-04-13 03:36:40

C'mon guys, that was a long time ago, and I think hes changed alot.

NiCbaZ

2008-04-13 03:40:06

Dude RIchard i did that a while back i have changed heaps since then please dont do that i did that when i was selfish and a loser i have changed heaps, i now realise what i did all the way back then was very bad so i returned his account + another acc and we are good m8s now i want to leave the past where it is and get on with the future.

Richard

2008-04-13 03:43:45

I dunno, I'm gonna look around at some of your posts and see what you are like…

NiCbaZ

2008-04-13 03:48:06

thank you as i explained in the pm, i have changed heaps since then i want to leave the past where it is i want to he helpful nice and help people as much as i can also and when i did scam eneny i realized what i would of felt if that happened to me so i returned the account + gave enmey a free account and we are good m8s now i want to leave the past where it is and get on with the future.

EDIT: do you know hwy this annoys me edd? after i received the 1 month ban at your forum i stopped doing anything bad at any forum and i wanted to leave that past where it is but when i
go to apply for members you post all that what i did a while ago which i said to you i will not do anyof that again and now you come and post all that here and make people change there votes i have been doing all good stuff since then so can you please leave the past where it is?

JAD

2008-04-13 15:47:38

No from me, sorry.

SRL members isn't about "being a fast learner" and learning once you get in. You have all the resources you need outside the members section to learn to script, so it's not like you'll learn faster once you get in.

IMO you need to learn more about fail safes and make a working script (that you've tested!) before applying again.

It's not a race.

~JAD

the scar noob

2008-04-13 16:46:00

I don't have anything to add.. I totally agree with Zephyr and JAD and Sp0rky's post doesn't wants to change my opinion aswell:p

We need to see more of you, I guess (even without the things Sp0rky said).

Try again in a month, imo.

-Tsn.

mastaraymond

2008-04-14 10:12:44

From: nicbaz
i do know how to script , thats why i applied i been here for 2 years :)

i know
DTM's
TPA's
Map Walking
Multi Player
Colour Use
Cases

and lots more

:)

If you know TPA's why don't you use them then?

Using the function FindObjTPA doesn't mean using TPA's. This function is basically filling in parameters, which everyone can do..

Zezi

2008-04-14 14:54:42

Lol, first post as srl member.
But i feel this isn't srl member quality. There isn't enough fail safes, in your antiban most of the functions you added are in findnormalrandoms;
On a side note (sorta useless)
You only call antiban once, while cutting yew, but maybe you should add it to random parts during the script, after bankinge etc.

Or even let it not do antiban, ie, have cases 7-8 as nothing.

Just my thoughts :\

Harry

2008-04-14 14:58:35

@boxcrop: Welcome to SRL Members. May I suggest you read http://www.villavu.com/forum/showthread.php?t=1288 this? :duh:

Ultra

2008-04-14 16:14:57

Well hmm… I will do negatives/positives

Negatives.
-Sometimes miss a semi-colon.

-

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz randoms //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure Randoms;
begin
FindTalk;
FindNormalRandoms;
FindLamp('Woodcutting');
FindEnt(x, y, true);
SolvePinball;
end;

Make your own anti-randoms? You could just use FindNormalRandoms.

-Sometimes you dont put fail safes.

/////////////////////////////////////////////////////////////////////////
///////////////////////////nicbaz Proggy/////////////////////////////////
/////////////////////////////////////////////////////////////////////////

You put those thingy's before every single procedure! Which takes lines of code!

Positives.
-Nice script :P.

-Good standards.

-Everything is neat.

-Some fail safes.

-Good dtms.

-You are active alot, and been at srl for a long time :).

4 vs. 6. Positive's win :P!
Yes from me, good job.

Daniel

2008-04-14 19:17:45

From: Hy71194
@boxcrop: Welcome to SRL Members. May I suggest you read http://www.villavu.com/forum/showthread.php?t=1288 this? :duh:

And this.

Welcome, BTW :D

[-jesus-]

2008-04-14 20:04:40

I said I did not mind if you used some of my real old procedures as long as you credit'd.. but you didn't -.-

from my 1/2nd script an oak chopper..

Procedure AntiBans;
     Begin
     Case Random (60) of
       0: HoverSkill('woodcutting', false);
       1: DoEmote(1 + Random(20));
       2: AlmostLogout;
       3: BoredHuman;
       4: RandomMovement;
       5: PickUpMouse;
       6: RandomRClick;
       end;
     end;

Nicbaz:

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz AntiBan //////////////////////////
/////////////////////////////////////////////////////////////////////
 
procedure AntiBans;
begin
  case Random(7) of
    0: HoverSkill('woodcutting', false);
    1: DoEmote(1 + Random(20));
    2: AlmostLogout;
    3: BoredHuman;
    4: RandomMovement;
    5: PickUpMouse;
    6: RandomRClick;
  end;
end;

Randoms(Mine):

Procedure Randoms;
     begin
      FindTalk;
      FindFastRandoms;
      FindNormalRandoms;
      FindLamp('Woodcutting');
      FindEnt(x, y, true);
     end;

Nicbaz:

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz randoms //////////////////////////
/////////////////////////////////////////////////////////////////////
 
procedure Randoms;
begin
  FindTalk;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  FindEnt(x, y, true);
  SolvePinball;
end;

Picking colors for clicking the trees(Mine):

Function ChooseColor: Integer;
      begin
       Case random(5) of
        0: Result := Oak; //colors were const's earlier in the script
        1: Result := Oak1;
        2: Result := Oak2;
        3: Result := Oak3;
        4: Result := Oak4;
       end;
      end;

Nicbaz:

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz ChooseColor///////////////////////
/////////////////////////////////////////////////////////////////////
 
function PickYewColour: Integer;
begin
  case random(4) of
    0: Result := 3297356;
    1: Result := 3898223;
    2: Result := 534303;
    3: Result := 534046;
    4: Result := 4218718;
  end;
end;

Entfinder (From my script):


   procedure EntFinder; // Thanks to YoHoJo. Modded by Bobbohobbo
   var
    EX, EY: integer;
    FX, FY: integer;
   SafeEntWait: LongInt;
   begin
    if (not (LoggedIn)) then
    Exit;
    begin
    Status('Checking For Ent')
    if
    (FindObjCustom(EX, EY, ['Oak'], [1730648], 5)) then

    //Rest of ent finder

NicBaz:

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Ent//// //////////////////////////
/////////////////////////////////////////////////////////////////////
 
procedure EntFinder; //By Yohojo - edited by bobbohobbo
var
  EX, EY: integer;
  FX, FY: integer;
  SafeEntWait: LongInt;
begin
  if (not (LoggedIn)) then
    Exit;
  begin
    Status('Ent Checking')
      if
      (FindObjCustom(EX, EY, ['Yew'], [4690821], 7)) then

       //Rest of entfinder, copy+pasted

Nicbaz's walking to the bank I made in like 30 secs for him off the rs worldmap & told him to use something like that, I had to get offline & it needs ot be edited, he didnt edit at all -.-

function ChooseClick; (Mine):

Function ChooseClick: Integer;
    begin
     Case random(2) of
     0: begin
           Mouse(x, y, 3, 3, true);
           end;
     1: begin
           Mouse(x, y, 4, 4, false);
           ChooseOption('hop');
          end;
         end;
        end;

Nicbaz:
Copy + paste & then added txt on top:

///////////////////////////////////////////////////////////////////// ////////////////////////////nicbaz ChooseClick ////////////////////////// ///////////////////////////////////////////////////////////////////// function ChooseClick: Integer; begin case random(2) of 0: begin Mouse(x, y, 3, 3, true); end; 1: begin Mouse(x, y, 4, 4, false); ChooseOption('hop'); end; end; end;

Chopping Proc (mine):
Procedure ChopOaks; begin If (Not(LoggedIn)) then NextPlayer(False); If FindColorTolerance(x, y, 67718, MMX1,MMY1,MMX2,MMY2, 2) then NextPlayer(False); begin MakeCompass('S'); HighestAngle; repeat If FindObj(x, y, 'Oak', ChooseColor, 6) then; ChooseClick; Attempts := Attempts +1; If(Attempts > 100) Then Begin Writeln('Couldn''t Find Oaks)'); Attempts := 0; NextPlayer(False); end; Wait(1500 +random(1300)); Randoms; EntFinder; FindEnt(x, y, True); AntiBans; Wait(1500 +random(2000)); EntFinder; Randoms; FindEnt(x, y, True); Until FindText(x, y, 'too full', SmallChars, 9, 346, 279, 459) or (InvFull); end; end;

Nicbaz:
///////////////////////////////////////////////////////////////////// ////////////////////////////nicbaz ChopYew ////////////////////////// ///////////////////////////////////////////////////////////////////// procedure ChopYew; var Attempts: integer; CuttingTime: integer; begin if (not (LoggedIn)) then NextPlayer(false); MarkTime(CuttingTime); MakeCompass('S'); SetAngle(true); repeat if (not (FindObjTPA(x, y, PickYewColour, 10, -1, 7, 7, 15, ['Yew']))) then begin Wait(2000 + random(250)); Attempts := Attempts + 1; if (Attempts = 100) then begin Writeln('Could not find yews'); Attempts := 0; NextPlayer(false); Wait(1500 + random(1200)); end; end else begin if FindObjTPA(x, y, PickYewColour, 10, -1, 7, 7, 15, ['Yew']) then ChooseClick; FindNormalRandoms; Antibans; EntFinder; FindEnt(x, y, True); end; until (TimeFromMark(CuttingTime) > 800000 + random(60000)) or (InvFull) end;

That's why I wanted my vote changed Wizzup lol..

My old script's URL: http://www.villavu.com/forum/showthread.php?t=18074

NiCbaZ

2008-04-15 02:02:12

i credited you down the bottom, anyway could please close this thead i am not yet good enough, also jesus the wc i had is not much like yours altough i do admit i should of credited you alot more in the choose click and choose color sorry =]

please close thread i am not yet good enough and will re-apply with 100% my script when i am good enough

Daniel

2008-04-15 03:21:45

From: nicbaz
please close thread

Thread Tools> Close Thread.

Also, improve your English skills as they're of poor quality.

Zezi

2008-04-15 03:33:38

From: IP-Drowner
And this.

Welcome, BTW :D

Hehe, tyvm. I'll wait a few weeks before i start juding, thnx :P

NiCbaZ

2008-04-15 04:22:58

i do not get the "close thread in tread tools"

Hobbit

2008-04-15 21:12:48

As you wish

Closed