SRL Archive - Archive

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


Where you Referred to SRL? If yes, by whom?
yes
I found out about the SRL Forums community in the Moparisthebest Forums.

Programming Knowledge
C++, Visual BASIC

Other Communitys
Moparisthebest

How Long have You Played Runescape
2.5 years

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

I first became interested in Runescape cheating about half a year ago. After being scammed in world 2 yet again (this time an easter egg, which was 8m), I was fed up with playing by the rules. In an attempt to regain some money to continue merchanting, I began to google things on cheating in Runescape. I didn't want to abuse the game, just to get enough money to continue. After learning that there were no "hacks" with cheat engine etc., I decided to direct my searches to autoing. I continued trying many very pathetic scripts for about a week, until deciding none of them worked. I then finally came across Sythe forums, but had an immediate dislike of the unfriendly community. I currently use Moparisthebest and the SRL Forums. I am on the SRL Forums 90% of the time, due to the helping and encouraging community. It would be a pleasure to be able to further contribute to this community.

My experience with programming began about a year ago, when my dad tried to teach me Visual BASIC. However, no real interest in programming came to me until I started C++ in the summer of 2007 (last summer). I was going to a game creation/technology camp. Convinced by my dad, who knew C++ (and no, my dad is not a programmer, he is in finance), I decided to take C++. In fact, I skipped the "Beginner C++" course and went strait to "Advanced C++." It was difficult, but with the help of my dad and friend, I was able to master (sort of) the C++ programming language, in about 2 weeks. I said "sort of" because nobody can completely master C++ with all the includes there are, however I have learned about inheritance, classes, structs, arrays; all that fancy stuff.

Soon after completing my programming camp, I decided to give Scar/SRL a try. I found it to be about the same difficulty as C++, but I stuck to it. Programing in both Scar and C++ soon proved to be an addicting and long lasting hobby of mine. I would stay up to 12:00 programming. Unfortunately, this coding spree ended when school began and, from 9th grade math (Im in 8th grade, but i do 9th grade math) to Language Arts, homework and academics became priority. Currently, I still have time for my love of programming, but only on weekends. I have finished some scripts and am currently working an a C++ script to change SRL 3.8 scripts to SRL 4 scripts! I just recently completed my Swamp Tar Collector, Scar script, which is my first script, not including my function.

By now, I hope you have at least extracted the basics from this essay(sorry about the length). I enjoy programming and and am very knowledgeable on the subject, along with many other things. I may seem like a geek, but I can assure you I have a big social life. I hope I will be receiving your vote for my SRL Membership.

Thank You For Your Consideration.

Regards,
Macrosoft

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

My Swamp Tar Collector, only use on a members world:

{]|====================================================================================|[]
[]|        _________________________________________________                           |[]
[]|        || Macrosoft Lumbridge Swamp Tar Collector V.1 ||                           |[]
[]|        \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\                           |[]
[]|                          Instructions                                              |[]
[]|                          <><><><><><>                                              |[]
[]| 1. You may start the script anywere, however it is recomended                      |[]
[]|    that you start in the Lumbridge Swamp, as the script will                       |[]
[]|    most likely run longer due to the fact that it uses Lumb Home Tele to           |[]
[]|    reset its place if it gets lost.                                                |[]
[]| 2. Use Runescape on Low Detail, and set it to V-Bright in the Options menu         |[]
[]| 3. Setup Players                                                                   |[]
[]| 4. Do not set Players[].Integers[1] and Players[].Integers[2], I have not added that yet |[]
[]| 5. Please Post Proggies and Happy Autoing! Press f12 to manually end script.                                         |[]
[]|               Special Thanks To The Many People That Helped Me                     |[]
[]|====================================================================================|[}
program SwampTarCollector;

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Magic.scar}
//magic include is for lumb tele

var
 STime: Array of Integer;
 PlayerUsed: Array of Boolean;
 LumbMins: Array of longint;
 TarCollected: Array of integer;
 i,n,x,y, TTarCollected, a, TimesSwitched, WalkBacks, Strikes: Integer;
 MaybeStrike: Boolean;
 Person: Integer;
{-_-_-_-_Player Setup_-_-_-_-}
{}Procedure DeclarePlayers;
{} begin
{}  HowManyPlayers := 10;
{}  NumberOfPlayers(HowManyPlayers);
{}  CurrentPlayer := 0; //Player to start on.
{}
{}  Players[0].Name := 'Username';
{}  Players[0].Pass := 'Password';
{}  Players[0].Nick := 'ame'; //A 3 to 4 letter section of your username that does not have any capitals
{}  Players[0].Integers[0] := 100; //How much tar to collect before switching players?
{}  Players[0].Integers[1] := 120;  //Maximum amount of time (in minutes) to auto on this player
{}  Players[0].Booleans[0] := True;{If true, the player will become Active again
{}                              //after max 30 mins because it will be able to reset itself with
{}                              //lumb home tele}
{}  Players[0].Booleans[1] := True;{If true, the script will reset itself with lumb home tele
{}                            //if it gets lost}
{}  Players[0].Active := True; //Will you be using this player to auto?
{}
{}
{}
{}  Players[1].Name := 'Username';
{}  Players[1].Pass := 'Password';
{}  Players[1].Nick := 'ame'; //A 3 to 4 letter section of your username that does not have any capitals
{}  Players[1].Integers[0] := 500; //How much tar to collect before switching players?
{}  Players[1].Integers[1] := 120;  //Maximum amount of time (in minutes) to auto on this player
{}  Players[1].Booleans[0] := True;{If true, the player will become Active again
{}                              //after 30 mins because it will be able to reset itself with
{}                              //lumb home tele}
{}  Players[1].Booleans[1] := True;{If true, the script will reset itself with lumb home tele
{}                              //if it gets lost}
{}  Players[1].Active := False; //Will you be using this player to auto?
{}
{}
{}
{}  Players[2].Name := 'Username';
{}  Players[2].Pass := 'Password';
{}  Players[2].Nick := 'ame';
{}  Players[2].Integers[0] := 100;
{}  Players[2].Integers[1] := 120;
{}  Players[2].Booleans[0] := True;
{}  Players[2].Booleans[1] := True;
{}  Players[2].Active := False;
{}
{}
{}  Players[3].Name := 'Username';
{}  Players[3].Pass := 'Password';
{}  Players[3].Nick := 'ame';
{}  Players[3].Integers[0] := 100;
{}  Players[3].Integers[1] := 120;
{}  Players[3].Booleans[0] := True;
{}  Players[3].Booleans[1] := True;
{}  Players[3].Active := False;
{}
{}
{}  Players[4].Name := 'Username';
{}  Players[4].Pass := 'Password';
{}  Players[4].Nick := 'ame';
{}  Players[4].Integers[0] := 100;
{}  Players[4].Integers[1] := 120;
{}  Players[4].Booleans[0] := True;
{}  Players[4].Booleans[1] := True;
{}  Players[4].Active := False;
{}
{}
{}  Players[5].Name := 'Username';
{}  Players[5].Pass := 'Password';
{}  Players[5].Nick := 'ame';
{}  Players[5].Integers[0] := 100;
{}  Players[5].Integers[1] := 120;
{}  Players[5].Booleans[0] := True;
{}  Players[5].Booleans[1] := True;
{}  Players[5].Active := False;
{}
{}
{}  Players[6].Name := 'Username';
{}  Players[6].Pass := 'Password';
{}  Players[6].Nick := 'ame';
{}  Players[6].Integers[0] := 100;
{}  Players[6].Integers[1] := 120;
{}  Players[6].Booleans[0] := True;
{}  Players[6].Booleans[1] := True;
{}  Players[6].Active := False;
{}
{}
{}  Players[7].Name := 'Username';
{}  Players[7].Pass := 'Password';
{}  Players[7].Nick := 'ame';
{}  Players[7].Integers[0] := 100;
{}  Players[7].Integers[1] := 120;
{}  Players[7].Booleans[0] := True;
{}  Players[7].Booleans[1] := True;
{}  Players[7].Active := False;
{}
{}
{}  Players[8].Name := 'Username';
{}  Players[8].Pass := 'Password';
{}  Players[8].Nick := 'ame';
{}  Players[8].Integers[0] := 100;
{}  Players[8].Integers[1] := 120;
{}  Players[8].Booleans[0] := True;
{}  Players[8].Booleans[1] := True;
{}  Players[8].Active := False;
{}
{}
{}  Players[9].Name := 'Username';
{}  Players[9].Pass := 'Password';
{}  Players[9].Nick := 'ame';
{}  Players[9].Integers[0] := 100;
{}  Players[9].Integers[1] := 120;
{}  Players[9].Booleans[0] := True;
{}  Players[9].Booleans[1] := True;
{}  Players[9].Active := False;
{}
{}  SetLength(STime, HowManyPlayers);
{}  SetLength(PlayerUsed, HowManyPlayers);
{}  SetLength(LumbMins, HowManyPlayers);
{}  SetLength(TarCollected, HowManyPlayers);
{}end;

Procedure ProgressReport;
 begin
   writeln('_-_-_-_-_-Macrosoft Lumbridge Swamp Tar Collector-_-_-_-_-_');
   writeln('_-_-_-_-_-_-_-_-_-_-_-Progress Report-_-_-_-_-_-_-_-_-_-_-_');
   writeln('');
   writeln('Worked for: ' + TimeRunning);
   writeln('Colected a total of ' + inttostr(TTarCollected) + ' swamp tar');
   begin
     For a:= 0 to HowManyPlayers -1 do
       begin
         if(PlayerUsed[a]=True) then
           writeln('Collected ' + inttostr(TarCollected[a])+' on ' + Players[a].Name)
       end;
   end;
   writeln('Switched Players ' + inttostr(TimesSwitched) + ' time(s)');
   writeln('Teleported to lumbridge and walked back ' + inttostr(WalkBacks) + ' time(s)');
   writeln('Post this progress report and any other comments or suggestions');
   writeln('on srl-forums.com or suffer the title of leecher!');
   writeln('You Leech, You Die!');
end;
Function NoneActive: Boolean;
 begin
   begin
     for n:=0 to HowManyPlayers - 1 do
       begin
           begin
             If(Players[n].Active) then
               begin
                 result:=False;
                 Exit;
               end;
           end;
         n:=n+1;
       end;
   end;
   Result:=True;
 end;


Function ReActivatePlayers: Boolean;
 begin
    NoneActive;
    begin
      if(NoneActive) then
        begin
          for CurrentPlayer:=0 to HowManyPlayers - 1 do
            begin
              if(Players[CurrentPlayer].Booleans[1]) then
                begin
                  If(GetSystemTime - STime[CurrentPlayer]>=LumbMins[CurrentPlayer] * 6000) then
                    Players[CurrentPlayer].Active:=True;
                end;
                CurrentPlayer:=CurrentPlayer+1;
            end;
        end;
        NoneActive;
        begin
          If(NoneActive)then
            Result:= False
          else
            begin
              Wait(60000);//waits an extra minute because rs doesnt return seconds
              Result:= True;
            end;
        end;
    end;
 end;

Procedure NextPlayerCycle;
 begin
    logout;
    a:=0;
    Stime[CurrentPlayer]:=GetSystemTime;
    Players[CurrentPlayer].Active:=False;
    repeat
      a:=a+1;
      begin
        If(CurrentPlayer>HowManyPlayers - 1) then
          CurrentPlayer:=0
        else
          CurrentPlayer:=CurrentPlayer + 1;
      end;
      begin
        if(a=HowManyPlayers) then
          begin
            ReActivatePlayers;
            begin
              if(ReActivatePlayers) then a:=0
              else
                begin
                  ProgressReport;
                  TerminateScript;
                end;
            end;
          end;
      end;
    until(Players[CurrentPlayer].Active);
    TarCollected[CurrentPlayer]:=0;
    LoginPlayer;
    PlayerUsed[CurrentPlayer]:=True;
    TimesSwitched:= TimesSwitched + 1;
end;

Function SwampCheck: Boolean;//checks if in the swamp
 begin
   begin
     if (not(FindColorTolerance(x, y, 7965518, MMX1, MMY1, MMX2, MMY2, 15)))
     and (not(FindColorTolerance(x, y, 6191915, MMX1, MMY1, MMX2, MMY2, 20)))then
       begin
         Result:= False;
       end else
         Result:= True;
    end;
 end;

Procedure LogInIfNot;
 begin
   if(not(LoggedIn))then
     begin
       LoginPlayer;
       wait(1000 + random(100));
     end;
 end;

Function LumbTele: Boolean;
 begin
   GameTab(7);
   wait(1000 + random(100));
   begin
     if (not(GetLumbridgeMins=0)) then
       begin
         LumbMins[CurrentPlayer]:= GetLumbridgeMins;
         Result:=False;
       end
     else
       begin
         wait(7000 + random(500));
         Result:=True;
       end;
   end;
 end;
Function WalkToSwamp: Boolean;
 begin
   PerfectNorth;
   RadialWalk( 608291, 176, 208, 67, 2, 2);
   wait(500 + random(50));
   Flag;
   FindColorTolerance(x, y, 8097105, MMX1, MMY1, MMX2, MMY2, 10);
   wait(100 + random(50));
   Mouse(x, y, 5, 5, True);
   i:=0;
   wait(5000 + random(500));
   repeat
     begin
       Wait(1000 +random(50));
       i:=i +1;
     end;
   until(FlagPresent)or(i=5);
   wait(100 + random(25));
   Flag;
   RadialWalk(6059563 , 166, 210, 54, 2, 2);
   Wait(500 + random(100));
   Flag;
   begin
     if(SwampCheck) then
       begin
         Writeln('Walked to Swamp Succesfully');
         WalkBacks:=WalkBacks +1;
         Result:=True
     end else
       begin
         Writeln('Didnt Walk to Swamp succesfully');
         Result:=False;
       end;
   end;
end;

Function PickUpTar: Boolean;
 begin
   begin         //the below finds the item dot on the minimap
     If(not(FindColorTolerance(x, y, 2105598, MMX1, MMY1, MMX2, MMY2, 10))) Then
     begin
       result:= False;
       Exit;
     end;
   end;
   Mouse(x, y, 5, 5, True);
   Wait(500);                     //now it walks to the item
   Flag;                          //and finds the swamp tar
   begin
     if FindObjCustom(x, y, ['ake', 'wamp', 'tar'], [3552827, 2434343, 3289655], 10) then
      begin
        case Random(3) of
          0: Mouse(x, y, 5, 5, True);
          1: Mouse(x, y, 5, 5, True);
          2: begin
               Mouse(x, y, 10, 10, False);
               ChooseOption('ake');
             end;
        end;
        TarCollected[CurrentPlayer] := TarCollected[CurrentPlayer] +1;
        TTarCollected := TTarCollected + 1;
        Result:=True;
     end else
        Result:=False;
   end;
 end;
Procedure IDontAuto;
 begin
   wait(1000 + random(500));
   begin
     case Random(100) of
       1: AlmostLogout;
       7: PickUpMouse;
       17: RandomRClick;
       27: PickUpMouse
     end;
   end;
   Person := BitmapFromString(6, 6, 'beNpjYICAf2DAwIDCBYI3b94g' +
        'iwC5ly5dgqlifPTo0dGjR4EMBgRgROUiAQBy9SHO');
   if(FindBitmapsProgressiveTol(x, y, [Person], 10, 1, MMX1, MMY1, MMX2, MMY2))then
     begin
       FreeBitmap(Person);
       wait(1000 + Random(500));
       case Random(50) of
         1: TypeSend('I heard this is a good way to make mony');
         2: Typesend('Sry if i dont respond, I am doing hw :p');
         7: Typesend('Im bored...');
         5: Typesend('These sell for like 300-400gp on da forums right?');
       end;
     end;
    FreeBitmap(Person);
 end;

function FindFastRandoms: Boolean; //By WT-Fakawi. I edited some things to make it work for me :p
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            NextPlayerCycle;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            NextPlayerCycle;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;
begin
  ClearDebug;
  SetupSrl;
  ActivateClient;
  DeclarePlayers;
  LogInIfNot;
  TarCollected[CurrentPlayer]:=0;
  TimesSwitched:=0;
  WalkBacks:=0;
  Strikes:=0;
  TTarCollected:=0;
  MaybeStrike:=False;
  repeat
    SwampCheck;
    IDontAuto;
    begin
      if(FindFastRandoms) then
      Continue;
    end;
    FindNormalRandoms;
    begin
      If(not(SwampCheck))then
        begin
          LumbTele;
          begin
            If(not(LumbTele))then
              Writeln('Player was not in swamp and was not able to tele to Lumbridge, Next Player...');
              NextPlayerCycle;
              Continue;
          end;
          begin
            FindFastRandoms;
            FindNormalRandoms;
            if(WalkToSwamp) then
              writeln('Picking up tar')
            else
              NextPlayerCycle;
              Continue;
        end;
    end;
    begin
      wait(1000 + random(200));
      begin
        if(FindFastRandoms) then
          Continue;
      end;
      FindNormalRandoms;
      if(not(PickUpTar))then
        begin
          if(MaybeStrike=True) then
            begin                                  //this strike stuff is to prevent it from clicking on item dots that are not swamp tar.  It will count it as being lost if it gets 3 strikes in a row
              MaybeStrike:=False;
              Strikes:=Strikes +1;
              if(Strikes=3) then
                begin
                  if(LumbTele) then
                    begin
                      if(WalkToSwamp) then
                        begin
                          Strikes:=0;
                          Continue;
                      end else
                        begin
                          NextPlayerCycle;
                          Strikes:=0;
                          Continue;
                        end;
                  end else
                    begin
                      NextPlayerCycle;
                      Strikes:=0;
                      Continue;
                    end;
                end;
            end;
        end;
        begin
          if(not(FindColorTolerance( x, y, 2105598, MMX1, MMY1, MMX2, MMY2, 10))) Then
            begin
              if(SwampCheck) Then
                begin
                  i:=0;
                  repeat
                    wait(1000);//Wait for a swamp tar to respawn
                    i:=i+1;
                    begin
                      begin
                        if(FindFastRandoms) then
                          Continue;
                      end;
                      FindNormalRandoms;
                      case Random(30) of//antiban for when waiting
                        1: RandomRClick;
                        7: PickUpMouse;
                        10: BoredHuman;
                        17: AlmostLogout;
                      end;
                    end;
                  until(FindColorTolerance(x, y, 2105598, MMX1, MMY1, MMX2, MMY2, 10)) or (i=15);
                  begin
                    if(i=15) and (Players[CurrentPlayer].Booleans[2] = True) then //if it waited for 15 seconds without a respawn, reset the place in the swamp
                      begin
                        If(LumbTele) then
                          begin
                            If(WalkToSwamp) then
                              begin
                                Continue;
                            end else
                              begin
                                NextPlayerCycle;
                                Continue;
                              end;
                        end else
                          begin
                            NextPlayerCycle;
                            Continue;
                        end;
                    end else
                      begin
                        if(i=15) then
                          begin
                            NextPlayerCycle;
                            Continue;
                        end else
                          begin
                            MaybeStrike:=True;
                            Continue;
                          end;
                      end;
                  end;
                end;
            end;
        end;
    end;
  end;
  until(isfkeydown(12))//not only way it stops, see Function NextPlayerCycle
  writeln('User Stopped Script');
  ProgressReport;
end.

my(really old) FindColorPriority func

               ////////////////////\\\\\\\\\\\\\\\\\\\\\
              ///////////Find Color Priority\\\\\\\\\\\\\
             //////////All Credit to Macrosoft\\\\\\\\\\\\
            //Please do NOT copy without giving me credit\\
           //Special Thanks to StarBlaster100 for his help\\
{***********************************************************************************************
Function FindColorPriority(var x, y: Integer; Colors: TIntegerArray; Tolerance: Integer; xs, ys, xe, ye: LongInt): Integer;
 
Example of use: FindColorPriority(x, y, [22023, 0000], 5, 12, 34, 67, 34)
By: Macrosoft
Description:  Will find a color, if the color is not found it will move
to the next color.  If it returns 0, it found none of the colors,
otherwise it will return the color number (1,2,3,4,5,6, etc.; not 29849283749, 230920432984, etc.)
It Will also return the x and y coords of the color
I may make more priority Functions such as DoFunctionPriority,
FindObjectPriority, etc.
Tell me if you like it! Also, notify me for me improvements and errors.
Make sure you include SRL
********************************************************************************************************}
{.include SRL/SRL.scar}
Function FindColorPriority(var x, y: Integer; Colors: TIntegerArray; Tolerance: Integer; xs, ys, xe, ye: LongInt): Integer;
  var
   Counter: Integer;
  begin
    GetArrayLength(Colors);
    Counter:=0
    repeat
      begin
        if(FindColorTolerance(x, y, Colors[Counter], xs, ys, xe, ye, Tolerance)=True) then
          begin
            Result:= Counter + 1;
            Exit;
        end else
          Counter:=Counter +1;
      end;
    until(GetArrayLength(Colors)=Counter);
    begin
      if(GetArrayLength(Colors)=Counter) then
       Result:=0
    end;
  end;
 

I know that could be shortened big time with a for loop, but whatever, I was a noob then…


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

Wow, just by the 'About You' section you deserver to get in :D No one ever writes ones that big.

About your code:
Looks okay to me for the most part,
YES :)

omg thanks! That just brightened my day. Thanks for the compliment on the paragraph as well, that took me…a while. Thanks so much for your vote!

You should really work on your standards, like CamelCaps or ThisIsAFunction.


I've seen you round the hood, so I guess its 'right hommie.

thanks, yeah standard r kinda bad, but i kept them constant, it is the most understandable way for me. I guess it makes it more like c++ for me

I was just talking to some people today about how you were better at scripting than some SRL members. Finally you applied. You should get in for sure.

From: pwnaz0r
I was just talking to some people today about how you were better at scripting than some SRL members. Finally you applied. You should get in for sure.

dang, that makes me feel so happy, I love SRL Forums, you guys are so encouraging and kind.

I wasn't sure whether I should have applied because I just finished my script today, and it is not completely done, but you have helped convince me that i have made the right decision.

Nice scripting.
Nice standards.
Nice person.

Yes from me.

Nice Introduction,
Nice Standards,
Crazy Main Loop ?

Your affiliation with lamatime ?

derek-

funny you should say that i had good standards, R0b0t1 said I needed to work on them…

thank you for your vote, I am so glad I applied

Ram

I abandoned lamatime because the name was stupid :P
When I created lamatime, I wasn't serious about Scar, but as I became more interested, I decided to make another account. Sometimes just starting over can be a good thing. I am surprised you found out about lamatime

About the main loop, it just has a bunch of fail safes

vote?

Haha that main loop just keeps on going…

Looks like a good script! You were one of the people I've been waiting to see apply, yes from me.

God damn, it's a yes just because of the mainloop :p

Your name would also look pretty cool in yellow/orange.

thanks both of you, im going to bed now, cuz my moms gunna kill me if i stay up any longer. I never had any idea people were waiting for me to apply…

lol, your right, that main loop is long, I put so many failsafes, and features into that script, it would take a long time to try to figure out what the script actually does.

Oh how nice it is to go to bed with 100% yes. wow, if im going on forever, its because im tired, good night.

Edit:OH man, my main loop is long, dang, i never noticed that before.

Edit: sorry about double post…, I think I hit the reply button twice, by accident

From: Macrosoft
derek-

funny you should say that i had good standards, R0b0t1 said I needed to work on them…

Lol well really all I see is that you indent the 'begin' after your 'if' statements.

if This then
  begin  //instead of

if This then
begin

but I used to do that too so…

=]]

yes from me, script seems good enough and if it wouldnt, Id anyways give you a yes..

I think it's really ugly to indent begins after an if statement…

I vote yes btw

Looks quite good to me, Yes from me.

i understand my own code better with the indent, it helps show the grouping of the if statement, for me. But ill work on fixing it.

STANDAARDS PL0X!

yes

I've been saving my first vote, until someone who REALLY deserved it applied.

I think that person is you.

Standards: Ok
Scripting: Really nice
Person: Helpful, nice, serious.
Overall Score: YES!

You deserve this.

-Knives

I like you.
You are willing to learn and are up for a challenge.
GG

thanks

i usually dont vote but ill make an exception NO
well maybe a yes

Waaaaaay too many begins and ends.

   begin
     For a:= 0 to HowManyPlayers -1 do
       begin
         if(PlayerUsed[a]=True) then
           writeln('Collected ' + inttostr(TarCollected[a])+' on ' + Players[a].Name)
       end;
   end;

Function NoneActive: Boolean;
 begin
   begin
     for n:=0 to HowManyPlayers - 1 do
       begin
           begin
             If(Players[n].Active) then
               begin
                 result:=False;
                 Exit;
               end;
           end;
         n:=n+1;
       end;
   end;
   Result:=True;
 end;

Minor problem, I'm still voting yes.

Ok, it's 17 to 0, maybe we should just get Fakawi in here now :D

-Knives

From: MasterKill
STANDAARDS PL0X!

yes

i keep seeing dutch/english mix i dont think people like that just saying ;)

i voted yes

From: Killerdou
i usually dont vote but ill make an exception NO
well maybe a yes

lol, that took me a while, i was so scared and then, yay! I found the yes!


anyone know if the results are normally like this lol? 19 to 0?


Also, about the begins and ends, yeah, i like to make sure the ifs are ended by putting them into a begin and end, lol

From: Macrosoft
anyone know if the results are normally like this lol? 19 to 0?

kind of reminds me of my application about 2 centuries ago :p
Sky Scripter's was like this as well I think

From: neG
I like you.
You are willing to learn and are up for a challenge.
GG

Couldn't have put it better myself. Could someone with the power give him the power of members?

The shorter the better:

Function NoneActive: Boolean;
 begin
   for n:=0 to HowManyPlayers - 1 do
     If(Players[n].Active) then
       Exit;
     Result:=True;
 end;

My eyes are burning from those standards… GAAH! *Runs Away*
…
…
…
…

Actually I didn't run away, just sitting here typing.

Oh yeah, in pl0x.

are these votes because of the script, the paragraph, both, or something else?

yeah, my standards need work

From: Macrosoft
are these votes because of the script, the paragraph, both, or something else?

yeah, my standards need work

What else is there. BTW i liked the C++ tut. Read it all. Its prolly b/c of both the paragraph and script, more so your script.

:)That script took me a while

this is why I didn't apply earlier:

From: HyperSecret
i dont think you would get membership with it…

but after like a day, I applied just to see what would happen, I guess that was a good decision :)


BTW, on the C++ tut, I forgot void, it is pretty much nothing. You can use it is a function like:

Void LALA()

then you dont have to do the return thing, but it is good practice to do int main and have it return something. You also normally use int for a main loop, but im not sure, and its like 12 so i probably dont know what iim talking about.

back to Postulates and theorems *mutters "stupid 9th grade math" to to himself*
I have many hours to go before i sleep :(

Im gone for the night, i need to study for a math test and a social studies test y un prueba en espanol (a spanish quiz)

Welcome.


Nice Nick, btw!

Indeed, and welcome too!

Macrosoft

I used to be Macrowave in Sythe until they loaded the forum backup.

About times I left sythe and came here.

*sigh* Closed.