How to create a proggy?

**ffcfoo** · 07-08-2010, 05:33 AM

Hello, I have a script called FoozyFletcher and I been wanting to add a proggy to it like make logs that I cut and and the time running and levels gained and XP gained and Randoms solved. But I have no idea once so ever how to create one! I looked in the tutorials and I don't understand them. Can someone help me out?

Here is the script:

SCAR Code:

program foozyfletcher;
{$Define SMART}
{$i SRL/SRL.scar}

var
  LogDTM, LongBowDTM, T: Integer;

const
  SMART_WORLD  = 152;   // World to load
  SMART_MEMBER = True; // True = Members world
  RestEvery    = 23; //In minutes
  RestFor      = 12; //In minutes

procedure DeclarePlayers;
begin
  NumberOfPlayers(1);

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Active := True;
    LampSkill := 'fletching';
    BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  end;
end;

procedure LoadDTMs;
begin
  LogDTM := DTMFromString('78DA63CC636660C8626440068E56220CFC401' +
          'A26CA580B545382AA86818109220753930C549349404D3A504D0D' +
          '0135E54035A9F8D5000038480519');

  LongBowDTM := DTMFromString('78DA6394606160C861644006B326E833F0036' +
       '990E87F20605406AAA94655C3C0C0042661A28C5C40358904D488' +
       '01D5A4E157030024440790');
end;

procedure FreeDTMs;
begin
  FreeDTM(LogDTM);
  FreeDTM(LongBowDTM);
end;

procedure Rest;
var
  When, Foar: Integer;
begin
  When := RestEvery * 60 * 1000 + Random(3 * 60 * 1000);
  Foar := RestFor * 60 * 1000 + Random(3 * 60 * 1000);
  if(TimeFromMark(T) > When)then
  begin
    Wait(Foar);
    if(not(LoggedIn))then
      LoginPlayer;
    MarkTime(T);
  end;
end;

function OutOfLogs: Boolean;
var
  x, y: Integer;
begin
  GameTab(Tab_Inv);
  Result := not(FindDtm(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2));
end;

function OutOfBows: Boolean;
var
  x, y: Integer;
begin
  Result := not(FindDTM(LongBowDTM, x, y, MIX1, MIY1, MIX2, MIY2));
end;

procedure Antiban;
begin
  case Random(100) of
    10: BoredHuman;
    20: HoverSkill('random', False);
    30: HoverSkill('fletching', False);
    40: PickUpMouse;
    50: RandomRClick;
    60: RandomMovement;
    70: SleepAndMoveMouse(200 + Random(50));
    90: ExamineInv;
  end;
end;

procedure DoAntiBan;
begin
  while not OutOfLogs do
  begin
    AntiBan;
    Wait(1000 + Random(2000));
  end;
end;

procedure Banking;
begin
  OpenBankFast('veb'); // Opens Bank
  Wait(300 + Random(300));
  MouseBox(53, 102, 57, 113, 2);
  Wait(300 + Random(300));
  ChooseOption('All');
  Wait(300 + Random(300));
  CloseBank;
end;

procedure Cutting;
var
  x, y: Integer;
begin
  InvMouse(1, 1);
  Wait(300 + Random(100));
  if(FindDTM(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
  begin
    Mouse(x, y, 3, 3, True);
    Wait(900 + Random(900));
    MouseBox(264, 408, 274, 419, 2);
    Wait(300 + Random(300));
    ChooseOption('X');
    Wait(300 + Random(300));
    TypeSend(ToStr(27 + Random(99)));
    Wait(700 + Random(700));
  end;
  repeat
    FindNormalRandoms;
    DoAntiBan;
  until(OutOfLogs);
end;

procedure Signature;
begin
  ClearDebug;
  Writeln('FOOZY FLETCHER!');
  Wait(100);
  Writeln('BY: FOOSMEELS!');
end;

procedure PutInBank;
var
  x, y: Integer;
begin
  OpenBankFast('veb');
  Wait(300 + Random(300));
  if (FindDTM(LongBowDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    Mouse(x, y, 3, 3, False);
    Wait(300 + Random(300));
    ChooseOption('All');
  end;
end;

begin
  Smart_Server := SMART_WORLD;
  Smart_Members := SMART_MEMBER;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LogInPlayer;
  LoadDTMs;
  Signature;
  MarkTime(T);
  repeat
    Banking;
    Cutting;
    PutInBank;
    Rest;
  until(False);
  FreeDTMs;
end.

**i luffs yeww** · 07-08-2010, 06:21 AM

Pascal Code:

program foozyfletcher;
{$Define SMART}
{$i SRL/SRL.scar}

var
  LogDTM, LongBowDTM, T, Rested, Cut: Integer;

const
  SMART_WORLD  = 152;   // World to load
  SMART_MEMBER = True; // True = Members world
  RestEvery    = 23; //In minutes
  RestFor      = 12; //In minutes

procedure DeclarePlayers;
begin
  NumberOfPlayers(1);

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Active := True;
    LampSkill := 'fletching';
    BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  end;
end;

procedure LoadDTMs;
begin
  LogDTM := DTMFromString('78DA63CC636660C8626440068E56220CFC401' +
          'A26CA580B545382AA86818109220753930C549349404D3A504D0D' +
          '0135E54035A9F8D5000038480519');

  LongBowDTM := DTMFromString('78DA6394606160C861644006B326E833F0036' +
       '990E87F20605406AAA94655C3C0C0042661A28C5C40358904D488' +
       '01D5A4E157030024440790');
end;

procedure FreeDTMs;
begin
  FreeDTM(LogDTM);
  FreeDTM(LongBowDTM);
end;

procedure Rest;
var
  When, Foar: Integer;
begin
  When := RestEvery * 60 * 1000 + Random(3 * 60 * 1000);
  Foar := RestFor * 60 * 1000 + Random(3 * 60 * 1000);
  if(TimeFromMark(T) > When)then
  begin
    Wait(Foar);
    if(not(LoggedIn))then
      LoginPlayer;
    MarkTime(T);
    IncEx(Rested, Foar);
  end;
end;

function OutOfLogs: Boolean;
var
  x, y: Integer;
begin
  GameTab(Tab_Inv);
  Result := not(FindDtm(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2));
end;

function OutOfBows: Boolean;
var
  x, y: Integer;
begin
  GameTab(Tab_Inv);
  Result := not(FindDTM(LongBowDTM, x, y, MIX1, MIY1, MIX2, MIY2));
end;

procedure Antiban;
begin
  case Random(100) of
    10: BoredHuman;
    20: HoverSkill('random', False);
    30: HoverSkill('fletching', False);
    40: PickUpMouse;
    50: RandomRClick;
    60: RandomMovement;
    70: SleepAndMoveMouse(200 + Random(50));
    90: ExamineInv;
  end;
end;

procedure DoAntiBan;
begin
  while not OutOfLogs do
  begin
    AntiBan;
    Wait(1000 + Random(2000));
  end;
end;

procedure Banking;
begin
  OpenBankFast('veb'); // Opens Bank
  Wait(300 + Random(300));
  MouseBox(53, 102, 57, 113, 2);
  Wait(300 + Random(300));
  ChooseOption('All');
  Wait(300 + Random(300));
  CloseBank;
end;

procedure Cutting;
var
  x, y: Integer;
begin
  InvMouse(1, 1);
  Wait(300 + Random(100));
  if(FindDTM(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
  begin
    Mouse(x, y, 3, 3, True);
    Wait(900 + Random(900));
    MouseBox(264, 408, 274, 419, 2);
    Wait(300 + Random(300));
    ChooseOption('X');
    Wait(300 + Random(300));
    TypeSend(ToStr(27 + Random(99)));
    Wait(700 + Random(700));
  end;
  repeat
    FindNormalRandoms;
    DoAntiBan;
  until(OutOfLogs);
  if(OutOfLogs)then
    IncEx(Cut, 27);
end;

procedure Signature;
begin
  ClearDebug;
  Writeln('FOOZY FLETCHER!');
  Wait(100);
  Writeln('BY: FOOSMEELS!');
end;

procedure PutInBank;
var
  x, y: Integer;
begin
  OpenBankFast('veb');
  Wait(300 + Random(300));
  if (FindDTM(LongBowDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    Mouse(x, y, 3, 3, False);
    Wait(300 + Random(300));
    ChooseOption('All');
  end;
end;

procedure Proggy;
begin
  Writeln(' _________________________');
  Writeln('/ FoozyFletcher by ffcfoo \');
  Writeln('|-------------------------|');
  Writeln(Padr('| Ran for ' + TimeRunning, 45) + '|');
  Writeln(Padr('| Cut ' + ToStr(Cut) + ' logs', 45) + '|');
  Writeln(Padr('| Rested for ' + ToStr(Rested / 1000) + ' seconds', 45) + '|');
  Writeln('\ FoozyFletcher by ffcfoo /');
  Writeln(' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯');
end;

begin
  ClearDebug;
  Smart_Server := SMART_WORLD;
  Smart_Members := SMART_MEMBER;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LogInPlayer;
  LoadDTMs;
  Signature;
  MarkTime(T);
  repeat
    Banking;
    Cutting;
    PutInBank;
    Rest;
    Proggy;
  until(False);
  FreeDTMs;
end.

Thread: How to create a proggy?

Thread Tools

How to create a proggy?

Thread Information

Users Browsing this Thread

Posting Permissions