SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
SRL for now ;)

Other Communitys
Xbox.com Forums

How Long have You Played Runescape
2-3 years

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

I joined the SRL forums about 3 or 4 months ago, for the purpose of autoing. At the being I was getting used to running scripts and autoing on RuneScape. After a few weeks I started to try to give feedback on scripts to help the scripters, at that time I was also reading a few tuts but was in no way ready to start scripting. And a few weeks ago I got more serious about reading and learning how to scripting. And the script I wrote was actually a request I asked for cause Smartzkid suggested that I try making it. So I got down to it and used some of my earlier knowledge and learned a lot more. And that brings me to this day, when I submit my script and hope to be accepted as a SRL member in this wonderful community.

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

program BeerBuyer;
{.include SRL/SRL.scar}
{=========================================================================]
[                            Beer Buyer                                   ]
[                                                                         ]
[           NAME        : Beer Buyer.                                     ]
[           WRITER      : Dudenow12                                       ]
[           CATEGORY    : .....                                           ]
[           DESCRIPTION : Buys Beer from the bar in west Falador.         ]
[           USAGE       : Buys Beer for you.                              ]
[           AUTOCOLOR   : Yes                                             ]
[           CONTACT     : [url]www.srl-forums.com[/url] Dudenow12                    ]
[                                                                         ]
[                                                                         ]
[=========================================================================]
[                                                                         ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright.                          ]
[ 2. Set your Screen to 32 bit TRUE color.                                ]
[ 3. Set Up 44-70                                                         ]
[ 4. Go to West Falador.                                                  ]
[ 5. Go to the Bank.(Make sure that your money is slot one at bank)       ]
[ 6. Start script!                                                        ]
[=========================================================================}

 const
   Money2 = 27*3; //Dont edit!!!
   
 var//Global Variables
   Loadz: Integer;
   Loadz1: Integer;
   FloorColor: Integer;
   
procedure DeclarePlayers;
 begin
   HowManyPlayers := 4; //Number of PLAYERS. active or not.
   NumberOfPlayers(HowManyPlayers);
   CurrentPlayer := 0; //Player to start on.

    //set all user names, passwords and nicks correctly please.

   Players[0].Name := '';//Account name.
   Players[0].Pass := '';//Account password.
   Players[0].Nick := '';//3-4 non-capital letters of username.
   Players[0].Active := True;//Set true if you want this player to run.
   Players[0].Integers[0] := 2 ;//How many loads you want to do.
   Players[0].Integers[1] := 1 ;//1 = Asgarnian Ale 2 = Mind Bomb 3 = Dwarven Stout

   Players[1].Name := '';
   Players[1].Pass := '';
   Players[1].Nick := '';
   Players[1].Active := False;
   Players[1].Integers[0] := 1 ;
   Players[1].Integers[1] := 1 ;

   Players[2].Name := '';
   Players[2].Pass := '';
   Players[2].Nick := '';
   Players[2].Active := False;
   Players[2].Integers[0] := 1 ;
   Players[2].Integers[1] := 1 ;

   Players[3].Name := '';
   Players[3].Pass := '';
   Players[3].Nick := '';
   Players[3].Active := False;
   Players[3].Integers[0] := 1 ;
   Players[3].Integers[1] := 1 ;

   NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
 end;

procedure FloorAutoColor;
 var
   Floor: Integer;
   
 begin
   if(Not Loggedin)then Exit;
   Floor := BitmapFromString(4, 3, 'beNpb3btpde9/CHr3CsiG' +
       'oBdI7E0A2pMZVg==')
       
   FloorColor := AutoColorThis(Floor,100,MMX1, MMY1, MMX2, MMY2);
   WriteLn('Floor Color = ' + IntToStr(FloorColor))
 end;
     
procedure StartProgressReport;
 var
   Money: Integer;
   Beers: Integer;
   BeerName: string;
 begin

   Money:= (players[currentplayer].Integers[0]) * 28 * 3;
   Beers:= (players[currentplayer].Integers[0]) * 27;
   case (players[currentplayer].Integers[1]) of
     1 :
       begin
         BeerName := 'Asgarnian Ale';
       end;
     2 :
       begin
         BeerName := 'Mind Bomb';
       end;
     3 :
       begin
         BeerName := 'Dwarven Stout';
       end;
   end;
     WriteLn('-------Start Proggie-------')
     WriteLn('Type of beer being bought '+ BeerName)
     WriteLn('Beers being bought ' + IntToStr(Beers))
     WriteLn('Gp being spent ' + IntToStr(Money))
     WriteLn('---Script By: Dudenow12---')
 end;
 
procedure AntiBan;
 begin
   if(Not Loggedin)then Exit;
   case Random(10) of
     2: BoredHuman;
     3: HoverSkill('Random',False);
     5: begin
          GameTab(1 + Random(12));
          wait(1000+random(1000));
          GameTab(4);
        end;
     7: RandomRClick;
     9: AlmostLogout;
   end;
 end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
 var
   i: Integer;
 begin
   for i := 1 to 8 do
   begin
     if(Not Loggedin) then Exit;
     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';
             Logout;
             Exit;
           end;
         end;
       7: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       8: RC;
     end;
     wait(1);
   end;
 end;
 
procedure AntiRandom;
 begin
   If(Not Loggedin)Then Exit;
   FindFastRandoms;
   FindNormalRandoms;
 end;
 
procedure FindNpcSeller;
 var
   x: Integer;
   y: Integer;
   Time: Integer;
 begin
   MarkTime(Time)
   repeat
     if (not(Loggedin)) then exit;
     if (FindColorSpiralTolerance(x, y, 1758679, MSX1, MSY1, MSX2, MSY2,5)) then
     begin
       MMouse(x, y, 0, 0);
       begin
         GetMousePos(x,y);
         if(IsUpText('mily'))then
         Mouse(x, y, 0, 0, true);
         wait(100+random(50));
         PickUpMouse;
       end;
     end;
   until(FindNPCChatText('eya'));
     if (TimeFromMark(Time) > 12000) then LogOut;
     begin
       WriteLn('Couldnt find NPC');
     end;
 end;
  
procedure BuyStout;
 var
   BeerName: String;

 begin
   if(Not Loggedin)then Exit;
   case (players[currentplayer].Integers[1]) of
     1 :
       begin
         BeerName := 'Asgarnian Ale';
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickNpcChatText('asga', true);
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
       end;
     2 :
       begin
         BeerName := 'Mind Bomb';
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickNpcChatText('ind', true);
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
       end;
     3 :
       begin
         BeerName := 'Dwarven Stout';
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickNpcChatText('warv', true);
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
       end;
   end;
 end;

procedure Bank1;
 var
   Time: Integer;
 begin
   MarkTime(Time)
   repeat;
     if (not(Loggedin)) then  break;
     if (not OpenBankQuiet('fwb')) then
     Wait(1000);
   until(BankScreen or (TimeFromMark(Time) > 120000));
     if (BankScreen)then
     Withdraw(1, 1, (Money2));
     wait(100+random(100));
     CloseBank;
     wait(100+random(100));
 end;
 
procedure WalkToBar;
 begin;
   if(Not Loggedin)then Exit;
   RadialWalk(FloorColor , 59, 74, 45, 0, 0);
   Flag;
 end;

procedure WalkToBank;
 begin;
   if(Not Loggedin)then Exit;
   RadialWalk(FloorColor , 248, 53, 53, 0, 0);
   Flag;
 end;
 
procedure FindDTMs;//Just to show that I know how to use DTMs. Didn't really need to use them.
 var
   Ale:Integer;
   Stout:Integer;
   Bomb:Integer;
   x:Integer;
   y:Integer;
 begin;
   Ale := DTMFromString('78DA6374676460B8C78002F6354B826946289' +
       'FD105C8BAC080061851D5F801591709A8F107B29E125003B2EB05' +
       '01350E40D65D22D45C27A0C607C87A49404D3866F8A0AB0100BBC' +
       'B0BD4');
   Bomb := DTMFromString('78DA632C646460D8CD8002E6CD3B00A619A17' +
       'CC67C206B0D031A604455534E849A4A20EB10013520BB8E125093' +
       '05646DC7AF0600E172090E');
   Stout := DTMFromString('78DA639CC3C8C0B0970105B83B398169A00CC' +
       '37F20609C0164AD6140038C4824905E48849AC540D621026AA603' +
       '594708A8990264EDC2AF06004CFB0CD7');
   if FindDTM(Ale,x,y,MIX1, MIY1, MIX2, MIY2) then
   WriteLn('Found Ale DTM in inventory')
   if FindDTM(Stout,x,y,MIX1, MIY1, MIX2, MIY2) then
   WriteLn('Found Ale DTM in inventory')
   if FindDTM(Bomb,x,y,MIX1, MIY1, MIX2, MIY2) then
   WriteLn('Found Bomb DTM in inventory')
 end;
   
procedure Bank2;
 var
   time: Integer;
   
 begin;
   MarkTime(time)
   repeat;
     if (not(Loggedin)) then  break;
     OpenBankQuiet('fwb')
   until(BankScreen or (TimeFromMark(time) > 120000));
     if BankScreen then
     begin;
       Deposit(2,28,2);
       Wait(100+random(50));
       CloseBank;
       Loadz := (players[currentplayer].Integers[0]) + 1;
       Loadz1:= Loadz1 + 1
     end;
 end;
 
procedure EndProgressReport;
 var
   BeerName: String;
  
 begin;
   If(Not Loggedin)Then Exit;
   case (players[currentplayer].Integers[1]) of
     1 :
       begin
         BeerName := 'Asgarnian Ale';
       end;
     2 :
       begin
         BeerName := 'Mind Bomb';
       end;
     3 :
       begin
         BeerName := 'Dwarven Stout';
       end;
   end;
     WriteLn('-----End Proggie-----')
     WriteLn('Worked For ' + TimeRunning)
     WriteLn('Bought ' + BeerName + IntToStr( Loadz*27))
     WriteLn('---Script By: Dudenow12---')
 end;

begin
  SetupSrl;
  DeclarePlayers;
  ActivateClient;
  Cleardebug;
  wait(750);
  LoginPlayer;
  repeat;
    if(not(LoggedIn))then break;
    wait(1000 + random(250))
    HighestAngle;
    wait(750 + random(100))
    PerfectNorth;
    Wait(500)
    FloorAutoColor;
      repeat;
        if (not Loggedin) then Break;
        StartProgressReport;
        SetRun(true);
        Bank1;
        WalkToBar;
        Wait(500)
        Flag;
          repeat;
            if (not loggedin) then break;
            FindNpcSeller;
            wait(100+random(50));
            BuyStout;
            wait(1000+random(750));
            FindNormalRandoms;
          until(InvFull);
          if(not LoggedIn) then break;
        WalkToBank;
        Bank2;
        FindNormalRandoms;
        AntiBan;
        EndProgressReport;
      until (Loadz = Loadz1)
      if Loadz = Loadz1 then
        Wait(1000 + random(100))
        if (not LoggedIn) then
        begin
          NextPlayer(False);
          exit;
        end else;
        NextPlayer(True);
      Loadz := 0;
      Writeln('Switched players suceessfully!');
  until(False);
end.

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

dont forget to free your bitmap :)

Im thinking yes!, but Im gunna hold my vote just in case I missed something (sorta late)

Looks good. I'll take a Mind Bomb.

Waiting to vote, see what others think.

im just going with yes, Iv had my confirmation

yes from me to, maybe not the best script eva, but you know what you need to know IMO

yeah, when I decide, I look at what the applicant knows, more than the quality of the script. If some people have less time to make a script than others, then they should not be penalized as a result.

Yup. Definately.

im giving you a no, its to simple IMO, you have walking but its only one radialwalk, IMO for walking the challenge is in making it be able to string them together and make it work not just have it click onces back and forth, this shows the knowledge of things in SRL but not how to use them to their capabilities, this just buys beer clicks in bank, opens bank, clicks back and buys them, sorry but no

Deadbeat :( (Lots of NOES! and IMO!)


I have one suggestion right off the bat: When you use a case, if, loop, or anything like that, if it only uses on command, you don't need a begin or end.

if (Value) then  //use with any number of ifs.
  if (Value2) then
    Command;

for I:= 0 to 5 do
  for B:= 0 to 5 do
    Command;

//etc. Works with any combination.

I'm going with a yes. Its better than most scripts in the free section.

This also happened on my application. A whole lotta people were voting yes, and then one guy came along and about five other people did too. :p

repeat
until(FindNPCChatText('eya'));

isnt good, u want to increment a variable until like…5 or so

procedure Bank1;
 var
   Time: Integer;
 begin
   MarkTime(Time)
   repeat;
     if (not(Loggedin)) then  break;
     if (not OpenBankQuiet('fwb')) then
     Wait(1000);
   until(BankScreen or (TimeFromMark(Time) > 120000));
     if (BankScreen)then
     Withdraw(1, 1, (Money2));
     wait(100+random(100));
     CloseBank;
     wait(100+random(100));
 end;

would this even work? if not openbankquiet?…or is it just me….

sorry, no, just not enough to it

EDIT: wow i see people voting no on really good apps and then they vote yes on apps that arent as good…meh

Yes, of course that would work.

Your script needs way more failsafes. No for me.

Alright, Thank You for you input everyone.

From: dan cardin

repeat
until(FindNPCChatText('eya'));

isnt good, u want to increment a variable until like…5 or so

procedure Bank1;
 var
   Time: Integer;
 begin
   MarkTime(Time)
   repeat;
     if (not(Loggedin)) then  break;
     if (not OpenBankQuiet('fwb')) then
     Wait(1000);
   until(BankScreen or (TimeFromMark(Time) > 120000));
     if (BankScreen)then
     Withdraw(1, 1, (Money2));
     wait(100+random(100));
     CloseBank;
     wait(100+random(100));
 end;

would this even work? if not openbankquiet?…or is it just me….

1st, so just finding that one part isn't good enough.

2nd, it isn't suppose to be if not openbankquiet, I must have just put the if not by mistake, I should look more like my bank2 function.

procedure Bank1;
 var
   Time: Integer;
 begin
   MarkTime(Time)
   repeat;
     if (not(Loggedin)) then  break;
     OpenBankQuiet('fwb')
     Wait(1000);
   until(BankScreen or (TimeFromMark(Time) > 120000));
     if (BankScreen)then
     Withdraw(1, 1, (Money2));
     wait(100+random(100));
     CloseBank;
     wait(100+random(100));
 end;

Oh, and I should have added, I like your attitude. Just add some failsafes, like in your FindNpcSeller. It will keep looking for the guy until it finds him, no matter what. You need a failsafe there.

If you add failsafes and just plain revamp the whole script and apply next month, I'll most likely vote yes :)

From: R0b0t1
Deadbeat :( (Lots of NOES! and IMO!)


I have one suggestion right off the bat: When you use a case, if, loop, or anything like that, if it only uses on command, you don't need a begin or end.

if (Value) then  //use with any number of ifs.
  if (Value2) then
    Command;

for I:= 0 to 5 do
  for B:= 0 to 5 do
    Command;

//etc. Works with any combination.

I'm going with a yes. Its better than most scripts in the free section.

This also happened on my application. A whole lotta people were voting yes, and then one guy came along and about five other people did too. :p

Deadbeat, sry but its not that hard to have scar look for one radialwalk both ways, then find and npc and hit clicktocontinue 8 times, sry but i think i could give my roommate a 30 minute crash course on scar and SRL and he could make this, nothing that sticks out and is like ah nice

I need to work on my excursion of feelings.


Iwan't calling you a deadbeat because you did anything wrong, but you ruined the "yes" streak :p.


But if he doesn't make it in this time, he might make it in later. This is one of the times I don't really see why we would need the one month rule. This guy has learned 'nuf in the short talks we gave him that he might pass :\

No from me too. Only has like 1 post per day on average…and activity/longevity has recently become a big issue with me, you should all probably know why.

From: bullzeye95
Oh, and I should have added, I like your attitude. Just add some failsafes, like in your FindNpcSeller. It will keep looking for the guy until it finds him, no matter what. You need a failsafe there.

If you add failsafes and just plain revamp the whole script and apply next month, I'll most likely vote yes :)

Thank You for the compliment, and I'm pretty sure that I do have a failsafe in the FindNpcSeller. It will log out if it takes to long.

procedure FindNpcSeller;
 var
   x: Integer;
   y: Integer;
   Time: Integer;
 begin
   MarkTime(Time)//It starts to keep track of time
   repeat
     if (not(Loggedin)) then exit;
     if (FindColorSpiralTolerance(x, y, 1758679, MSX1, MSY1, MSX2, MSY2,5)) then
     begin
       MMouse(x, y, 0, 0);
       begin
         GetMousePos(x,y);
         if(IsUpText('mily'))then
         Mouse(x, y, 0, 0, true);
         wait(100+random(50));
         PickUpMouse;
       end;
     end;
   until(FindNPCChatText('eya'));
     if (TimeFromMark(Time) > 12000) then LogOut;//If it takes too long it logs out
     begin
       WriteLn('Couldnt find NPC');
     end;
 end;

BTW: I am allowed to post these kinda things in thread right?(I didn't want to be breaking any rules or seem to pushy.)

That won't work, since it will check for time after it finds the text, which basically means if it finds the NPC, but after the 12 seconds are up, it will still log out. Should be like this:

procedure FindNpcSeller;
 var
   x: Integer;
   y: Integer;
   Time: Integer;
 begin
   MarkTime(Time)//It starts to keep track of time
   repeat
     if (not(Loggedin)) then exit;
     if (FindColorSpiralTolerance(x, y, 1758679, MSX1, MSY1, MSX2, MSY2,5)) then
     begin
       MMouse(x, y, 0, 0);
       GetMousePos(x,y);
       if(IsUpText('mily'))then
       Mouse(x, y, 0, 0, true);
       wait(100+random(50));
       PickUpMouse;
     end;
     if (TimeFromMark(Time) > 12000) then LogOut;//If it takes too long it logs   out
   until(FindNPCChatText('eya'));
   WriteLn('Couldnt find NPC');
 end;

Why do you have a couple of random begins and ends in the NPC finding procedure?

This guy is very helpful, Hes everything but a leecher hes way above the average jr.member. He has helped me by posting good reports on my Guildminer and good stuff what should be fixed and whatnot. Though this script may not be the best of the best but its still good, and once hes in the srl member he will get SO much more talent of other scripters. He will be a worthy SRL member.

Also a good friend of mine ;) Very funny guy hope you'll get in..

Good luck

-Yes!

Yes. you have potential =D

Good job on it, Looks pretty good. Ye.

From: bullzeye95

Your script needs way more failsafes. No for me.

Just feeling it's too simple and i'm agree with bullzeye…in next time im 99% you will get in…Good luck

IF he doesn't get in this time :rolleyes:

From: Santa_Clause
That won't work, since it will check for time after it finds the text, which basically means if it finds the NPC, but after the 12 seconds are up, it will still log out. Should be like this:

procedure FindNpcSeller;
 var
   x: Integer;
   y: Integer;
   Time: Integer;
 begin
   MarkTime(Time)//It starts to keep track of time
   repeat
     if (not(Loggedin)) then exit;
     if (FindColorSpiralTolerance(x, y, 1758679, MSX1, MSY1, MSX2, MSY2,5)) then
     begin
       MMouse(x, y, 0, 0);
       GetMousePos(x,y);
       if(IsUpText('mily'))then
       Mouse(x, y, 0, 0, true);
       wait(100+random(50));
       PickUpMouse;
     end;
     if (TimeFromMark(Time) > 12000) then LogOut;//If it takes too long it logs   out
   until(FindNPCChatText('eya'));
   WriteLn('Couldnt find NPC');
 end;

Why do you have a couple of random begins and ends in the NPC finding procedure?

Ahhhh… I see, I was sooo close but so far away at the same time. And i'm not sure why I had so many begins and ends. Probably because that is the first thing I started scripting and forgot to go back in and clean it up.

I vote yes,
He has potential
But because it does simple tasks doesn't mean the script is too simple for an app.
Though I agree some things could be worked on but it's still a yes from me.

From: Hobbit
I vote yes,
He has potential
But because it does simple tasks doesn't mean the script is too simple for an app.
Though I agree some things could be worked on but it's still a yes from me.

Thank You, thats exactly what I was hoping someone would notice, even thought it is a simple task I tried to make a fairly good script from it.

From: hugolord
IF he doesn't get in this time :rolleyes:

If the votes are close then the admins might decide not to let him in…

From: Santa_Clause
If the votes are close then the admins might decide not to let him in…

One quick question, about how long do they wait to decide? Is it closer to 7 days or 14 days?

This poll will close on 11-30-2007 at 01:11 PM

^^ Then

From: Hobbit
^^ Then

Alright thanks, I couldn't see that on my screen.

I have updated it a little with more fail safes. I didn't want change my original post just in case that would make my application invalid so I'm posting it here, just to get more comments on. :)

program BeerBuyer;
{.include SRL/SRL.scar}
{=========================================================================]
[                            Beer Buyer                                   ]
[                                                                         ]
[           NAME        : Beer Buyer.                                     ]
[           WRITER      : Dudenow12                                       ]
[           CATEGORY    : .....                                           ]
[           DESCRIPTION : Buys Beer from the bar in west Falador.         ]
[           USAGE       : Buys Beer for you.                              ]
[           AUTOCOLOR   : Yes                                             ]
[           CONTACT     : [url]www.srl-forums.com[/url] Dudenow12                    ]
[                                                                         ]
[                                                                         ]
[=========================================================================]
[                                                                         ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright.                          ]
[ 2. Set your Screen to 32 bit TRUE color.                                ]
[ 3. Set Up 44-70                                                         ]
[ 4. Go to West Falador.                                                  ]
[ 5. Go to the Bank.(Make sure that your money is slot one at bank)       ]
[ 6. Start script!                                                        ]
[=========================================================================}

 const
   Money2 = 27*3; //Dont edit!!!
   
 var//Global Variables
   Loadz: Integer;
   Loadz1: Integer;
   FloorColor: Integer;
   
procedure DeclarePlayers;
 begin
   HowManyPlayers := 4; //Number of PLAYERS. active or not.
   NumberOfPlayers(HowManyPlayers);
   CurrentPlayer := 0; //Player to start on.

    //set all user names, passwords and nicks correctly please.

   Players[0].Name := '';//Account name.
   Players[0].Pass := '';//Account password.
   Players[0].Nick := '';//3-4 non-capital letters of username.
   Players[0].Active := True;//Set true if you want this player to run.
   Players[0].Integers[0] := 2 ;//How many loads you want to do.
   Players[0].Integers[1] := 1 ;//1 = Asgarnian Ale 2 = Mind Bomb 3 = Dwarven Stout

   Players[1].Name := '';
   Players[1].Pass := '';
   Players[1].Nick := '';
   Players[1].Active := False;
   Players[1].Integers[0] := 1 ;
   Players[1].Integers[1] := 1 ;

   Players[2].Name := '';
   Players[2].Pass := '';
   Players[2].Nick := '';
   Players[2].Active := False;
   Players[2].Integers[0] := 1 ;
   Players[2].Integers[1] := 1 ;

   Players[3].Name := '';
   Players[3].Pass := '';
   Players[3].Nick := '';
   Players[3].Active := False;
   Players[3].Integers[0] := 1 ;
   Players[3].Integers[1] := 1 ;

   NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
 end;

procedure FloorAutoColor;
 var
   Floor: Integer;
   
 begin
   if(Not Loggedin)then Exit;
   Floor := BitmapFromString(4, 3, 'beNpb3btpde9/CHr3CsiG' +
       'oBdI7E0A2pMZVg==')
       
   FloorColor := AutoColorThis(Floor,100,MMX1, MMY1, MMX2, MMY2);
   WriteLn('Floor Color = ' + IntToStr(FloorColor))
 end;
     
procedure StartProgressReport;
 var
   Money: Integer;
   Beers: Integer;
   BeerName: string;
 begin

   Money:= (players[currentplayer].Integers[0]) * 28 * 3;
   Beers:= (players[currentplayer].Integers[0]) * 27;
   case (players[currentplayer].Integers[1]) of
     1 :
       begin
         BeerName := 'Asgarnian Ale';
       end;
     2 :
       begin
         BeerName := 'Mind Bomb';
       end;
     3 :
       begin
         BeerName := 'Dwarven Stout';
       end;
   end;
     WriteLn('-------Start Proggie-------')
     WriteLn('Type of beer being bought '+ BeerName)
     WriteLn('Beers being bought ' + IntToStr(Beers))
     WriteLn('Gp being spent ' + IntToStr(Money))
     WriteLn('---Script By: Dudenow12---')
 end;
 
procedure AntiBan;
 begin
   if(Not Loggedin)then Exit;
   case Random(10) of
     2: BoredHuman;
     3: HoverSkill('Random',False);
     5: begin
          GameTab(1 + Random(12));
          wait(1000+random(1000));
          GameTab(4);
        end;
     7: RandomRClick;
     9: AlmostLogout;
   end;
 end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
 var
   i: Integer;
 begin
   for i := 1 to 8 do
   begin
     if(Not Loggedin) then Exit;
     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';
             Logout;
             Exit;
           end;
         end;
       7: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       8: RC;
     end;
     wait(1);
   end;
 end;
 
procedure AntiRandom;
 begin
   If(Not Loggedin)Then Exit;
   FindFastRandoms;
   FindNormalRandoms;
 end;
 
procedure FindNpcSeller;
 var
   x: Integer;
   y: Integer;
   Time: Integer;
 begin
   MarkTime(Time)
   repeat
     if (not(Loggedin)) then exit;
     if (FindColorSpiralTolerance(x, y, 1758679, MSX1, MSY1, MSX2, MSY2,5)) then
     GetMousePos(x,y);
     MMouse(x, y, 0, 0);
     if(IsUpText('mily'))then
     Mouse(x, y, 0, 0, true);
     wait(100+random(50));
     PickUpMouse;
     if (TimeFromMark(Time) > 12000) then LogOut;
     if (TimeFromMark(Time) > 12000) then WriteLn('Couldnt find NPC Timed Out');
   until(FindNPCChatText('eya'));
 end;
  
procedure BuyStout;
 var
   BeerName: String;
   Time: Integer;
 begin
   MarkTime(Time)
   if(Not Loggedin)then Exit;
   case (players[currentplayer].Integers[1]) of
     1 :
       begin
         MarkTime(Time)
         BeerName := 'Asgarnian Ale';
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickNpcChatText('asga', true);
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         if (TimeFromMark(Time) > 12000) then LogOut;
         if (TimeFromMark(Time) > 12000) then WriteLn('Timed Out');
       end;
     2 :
       begin
         MarkTime(Time)
         BeerName := 'Mind Bomb';
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickNpcChatText('ind', true);
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         if (TimeFromMark(Time) > 12000) then LogOut;
         if (TimeFromMark(Time) > 12000) then WriteLn('Couldnt find NPC Timed Out');
       end;
     3 :
       begin
         MarkTime(Time)
         BeerName := 'Dwarven Stout';
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickNpcChatText('warv', true);
         wait(1500+random(100));
         ClickToContinue;
         wait(1500+random(100));
         ClickToContinue;
         if (TimeFromMark(Time) > 12000) then LogOut;
         if (TimeFromMark(Time) > 12000) then WriteLn('Couldnt find NPC Timed Out');
       end;
   end;
 end;

procedure Bank1;
 var
   Time: Integer;
 begin
   MarkTime(Time)
   repeat;
     if (not(Loggedin)) then  break;
     if (not OpenBankQuiet('fwb')) then
     Wait(1000);
   until(BankScreen or (TimeFromMark(Time) > 120000));
     if (TimeFromMark(Time) > 12000) then LogOut;
     if (TimeFromMark(Time) > 12000) then WriteLn('Couldnt find bank Timed Out');
     if (BankScreen)then
     Withdraw(1, 1, (Money2));
     wait(100+random(100));
     CloseBank;
     wait(100+random(100));
 end;
 
procedure WalkToBar;
 begin;
   if(Not Loggedin)then Exit;
   RadialWalk(FloorColor , 59, 74, 45, 0, 0);
   Flag;
   
 end;

procedure WalkToBank;
 begin;
   if(Not Loggedin)then Exit;
   RadialWalk(FloorColor , 248, 53, 53, 0, 0);
   Flag;
 end;
 
procedure FindDTMs;//Just to show that I know how to use DTMs. Didn't really need to use them.
 var
   Ale:Integer;
   Stout:Integer;
   Bomb:Integer;
   x:Integer;
   y:Integer;
 begin;
   Ale := DTMFromString('78DA6374676460B8C78002F6354B826946289' +
       'FD105C8BAC080061851D5F801591709A8F107B29E125003B2EB05' +
       '01350E40D65D22D45C27A0C607C87A49404D3866F8A0AB0100BBC' +
       'B0BD4');
   Bomb := DTMFromString('78DA632C646460D8CD8002E6CD3B00A619A17' +
       'CC67C206B0D031A604455534E849A4A20EB10013520BB8E125093' +
       '05646DC7AF0600E172090E');
   Stout := DTMFromString('78DA639CC3C8C0B0970105B83B398169A00CC' +
       '37F20609C0164AD6140038C4824905E48849AC540D621026AA603' +
       '594708A8990264EDC2AF06004CFB0CD7');
   if FindDTM(Ale,x,y,MIX1, MIY1, MIX2, MIY2) then
   WriteLn('Found Ale DTM in inventory')
   if FindDTM(Stout,x,y,MIX1, MIY1, MIX2, MIY2) then
   WriteLn('Found Ale DTM in inventory')
   if FindDTM(Bomb,x,y,MIX1, MIY1, MIX2, MIY2) then
   WriteLn('Found Bomb DTM in inventory')
 end;
   
procedure Bank2;
 var
   time: Integer;
   
 begin;
   MarkTime(time)
   repeat;
     if (not(Loggedin)) then  break;
     OpenBankQuiet('fwb')
   until(BankScreen or (TimeFromMark(time) > 120000));
   if (TimeFromMark(Time) > 12000) then LogOut;
   if (TimeFromMark(Time) > 12000) then WriteLn('Couldnt find bank Timed Out');
     if BankScreen then
     begin;
       Deposit(2,28,2);
       Wait(100+random(50));
       CloseBank;
       Loadz := (players[currentplayer].Integers[0]) + 1;
       Loadz1:= Loadz1 + 1
     end;
 end;
 
procedure EndProgressReport;
 var
   BeerName: String;
  
 begin;
   If(Not Loggedin)Then Exit;
   case (players[currentplayer].Integers[1]) of
     1 :
       begin
         BeerName := 'Asgarnian Ale';
       end;
     2 :
       begin
         BeerName := 'Mind Bomb';
       end;
     3 :
       begin
         BeerName := 'Dwarven Stout';
       end;
   end;
     WriteLn('-----End Proggie-----')
     WriteLn('Worked For ' + TimeRunning)
     WriteLn('Bought ' + BeerName + IntToStr( Loadz*27))
     WriteLn('---Script By: Dudenow12---')
 end;

begin
  SetupSrl;
  DeclarePlayers;
  ActivateClient;
  Cleardebug;
  wait(750);
  LoginPlayer;
  repeat;
    if(not(LoggedIn))then break;
    wait(1000 + random(250))
    HighestAngle;
    wait(750 + random(100))
    PerfectNorth;
    Wait(500)
    FloorAutoColor;
      repeat;
        if (not Loggedin) then Break;
        StartProgressReport;
        SetRun(true);
        Bank1;
        WalkToBar;
        Wait(500)
        Flag;
          repeat;
            if (not loggedin) then break;
            FindNpcSeller;
            wait(100+random(50));
            BuyStout;
            wait(1000+random(750));
            FindNormalRandoms;
          until(InvFull);
          if(not LoggedIn) then break;
        WalkToBank;
        Bank2;
        FindNormalRandoms;
        AntiBan;
        EndProgressReport;
      until (Loadz = Loadz1)
      if Loadz = Loadz1 then
        Wait(1000 + random(100))
        if (not LoggedIn) then
        begin
          NextPlayer(False);
          exit;
        end else;
        NextPlayer(True);
      Loadz := 0;
      Writeln('Switched players suceessfully!');
  until(False);
end.

in!