SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
PHP, Javascript, some C, HTML, SCAR/Pascal(of course)

Other Communitys
Fagex, Mopar, Sythe

How Long have You Played Runescape
3 years

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

Well hello.
My name is Tim. I like scripting very much :p
The script that I will be applying with is a Eye of Newt Buyer. It has Radial walking, Banking, Antirandoms, Anti-ban, Multi-player, Forms, and everything else that is needed for a nice, neat script. The main feature that I like about this script is that it randomly banks in either Draynor or Fally. Keep in mind, this script is still partially in BETA stage, but I feel that it is good enough as it is to get into Members. I hope that you like it…
Another script that I have made is a f2p rune buyer. All my scripts and functions that I have made are in my signature.

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

////////////////////////////////////////////////////////////////////////////////////////////////
{          Eye of Newt Buyer - To be used with SRL                                             }
{              Written by Tim46 - Version 0.9 BETA                                             }
{----------------------------------------------------------------------------------------------}
//Features//////////////////////////////////////////////////////////////////////////////////////
{ AntiBan - Forms - Randomly banks in either Draynor or Fally - MultiPlayer                    }
{ Uses Bank Pin if you have one - Will only work for a set amount of time                      }
{----------------------------------------------------------------------------------------------}
{ Start logged out or logged-in in Falador East Bank, Bettys Shop or Draynor bank.             }
{ Be sure to specify the location!                                                             }
{----------------------------------------------------------------------------------------------}
{ How to setup: Declare all your players, then press play and change the settings in the       }
{  form to your liking, and press ok.                                                          }
{----------------------------------------------------------------------------------------------}
{ WD= Walking to Draynor   DS= Draynor to shop   WF= Walking to Fally   FS= Fally to Shop      }
{                                                                                              }
{ CFBS= Couldn't find Bettys Shop      || CFTS= Couldn't find Tree symbol                      }
{ CFDS= Couldn't find Dungeon symbol   || CFWS= Couldn't find water symbol                     }
{______________________________________________________________________________________________}

program EyeOfNewtBuyer;
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Amount.scar}

Const
Vers= '0.9';
BettyColor = 5769305; // Bettys torso color. Pre-picked, but you can change it if you want.
BettyColor2 = 11059157; // Bettys arm color. Pre-picked, but you can change it if you want.

procedure DeclarePlayers;
begin
  HowManyPlayers := 3; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='---';
  Players[0].Pass :='---';
  Players[0].Nick :='---';
  Players[0].String1 :=' '; // If you have a bank pin, put it here
  Players[0].Loc :='Shop'; // Shop for Bettys shop. Fally for Fally east bank. Draynor for Draynor Bank.
  Players[0].Active:=True;

  Players[1].Name :='--';
  Players[1].Pass :='--';
  Players[1].Nick :='--';
  Players[1].String1 :=' '; // If you have a bank pin, put it here
  Players[1].Loc :='Shop'; // Shop for Bettys shop. Fally for Fally east bank. Draynor for Draynor Bank.
  Players[1].Active:=False;

  Players[2].Name :='--';
  Players[2].Pass :='--';
  Players[2].Nick :='--';
  Players[2].String1 :=' '; // If you have a bank pin, put it here
  Players[2].Loc :='Shop'; // Shop for Bettys shop. Fally for Fally east bank. Draynor for Draynor Bank.
  Players[2].Active:=False;

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

var
  Ver : String;
  Newts, Loads, FoundB, NumN, NewtBMP,
  DoorsOpened, NewRoadColor, NewFRoadColor,
  Scriptime, BuyTime, PlayerLoads, Border: Integer;
  Mhmm, Shopp, StartScript, FindTalkTrue : Boolean;
  frmDesign : TForm;
  NameLabel, Label1, Label2 : TLabel;
  VersionLabel, LoraxLabel, MinuteLabel : TLabel;
  Background : TImage;
  PlayerEdit, ScriptEdit : TEdit;
  LoraxCombo : TComboBox;
  StartButton, CancelButton : TButton;

function NoRandoms: Boolean;
begin
  if ((GetColor(83, 431) = 0) and (GetColor(88, 418) = 0)) or  //Taken from SolvePinball;
    ((GetColor(83, 430) = 0) and (GetColor(88, 417) = 0)) or
    ((GetColor(151, 426) = 0) and (GetColor(470, 393) = 0) and (GetColor(372,
    370) = 128)) then
   begin
     SolvePinball;
   end;
  if NoGameTab then
   begin
     Result:=True;
     Players[CurrentPlayer].Active := False;
     Players[CurrentPlayer].loc := 'No GameTab';
     Logout;
   end;
  if InBlack then
   begin
     Result:=True;
     Players[CurrentPlayer].Active := False;
     Players[CurrentPlayer].loc := 'InBlack';
     Logout;
   end;
  FindNormalRandoms;
  FindLamp(LampSkill);
  SRLRandomsReport;
end;

procedure LoadBitmap;
begin
  NewtBMP := BitmapFromString(5, 4, 'E3DFDFE0DCDC171CBC14' +
       '1AB3141AA7EDECEC171FC7171CBE141111141111F8F8F8F4F2F21' +
       '41111141111141111F8F8F8F4F2F2E4E0E0DBD6D6D2CCCC');
end;

procedure PerfectComp(side : Integer);
begin
  if(side=1)then MakeCompass('n'); if(side=2)then MakeCompass('e'); if(side=3)then MakeCompass('s'); if(side=4)then MakeCompass('w');
  wait(100);
  if(side=1)then MakeCompass('n'); if(side=2)then MakeCompass('e'); if(side=3)then MakeCompass('s'); if(side=4)then MakeCompass('w');
  wait(100);
  if(side=1)then MakeCompass('n'); if(side=2)then MakeCompass('e'); if(side=3)then MakeCompass('s'); if(side=4)then MakeCompass('w');
  wait(500);
end;

procedure FindBetty;
var
  BettyTime : Integer;
begin
  if not LoggedIn then exit;
  MarkTime(BettyTime)
  repeat
    begin
      NoRandoms;
      wait(200 + random(500));
      if (findobj3(x, y, 'Bett', BettyColor, 4)) or (findobj3(x, y, 'Bett', BettyColor2, 4)) then
       begin
         if IsUpTextMulti('Talk', 'lk-to', 'to')  Then
          begin
            Mouse(x,y,5,5,False);
            ChooseOption(x,y,'Tra');
            FoundB:= FoundB + 1;
            wait(2000 + random(600));
         end;
      end;
    end;
  until(ShopScreen) or (TimeFromMark(BettyTime) > 120000);
  if (TimeFromMark(BettyTime) > 120000) then
   begin
     NoRandoms;
     Players[CurrentPlayer].Active := False;
     Logout;
     Writeln('Could not find Betty. Please make sure you are near her.');
     NextPlayer(False);
   end;
  if(ShopScreen) then
   begin
     Writeln('Found Betty.');
     Players[CurrentPlayer].loc := 'Shop';
   end;
end;

procedure CloseWindow2;
begin
  wait(500 + random(200));
  Mouse(487, 41, 3, 3, true);
  wait(500 + random(200));
end;

procedure ClickNewt;
begin
  LoadBitmap;
  if(FindBitmapToleranceIn(NewtBMP, x, y, 65, 112, 111, 153, 90)) then
   begin
     wait(200 + random(100));
     Mouse(x, y, 2, 2, false);
     wait(200 + random(100));
     Case Random(3) of
       0: ChooseOption(x, y, 'uy 10');
       1: ChooseOption(x, y, 'uy 5');
       2: ChooseOption(x, y, 'uy 10');
     end;
     Case Random(6) of
       0: wait(400 + random(300));
       1: PickUpMouse;
       2: wait(400 + random(300));
       3: wait(400 + random(300));
       4: wait(400 + random(300));
       5: wait(400 + random(300));
     end;
     FreeBitmap(NewtBMP);
   end;
end;

function ClickDoor: Boolean;
var
  t, tx, ty, Door: Integer;
begin
  Door := BitmapFromString(7, 4, 'z78DA8DCC310E80300C43D12B91' +
       '44719C91D2E6FE4702B545626479D3B773442AA3404B0A4C6A991' +
       'EAAB68C0B6EE44057A3C3559629A8A79952715ADB0FFFCB86F636' +
       '7BF57596D17148DDF4E9246A');
  while (t < 65) do
  begin
    t := t + 5;
    if (FindBitmapToleranceIn(Door, tx, ty, MSX1, MSY1, MSX2, MSY2, t)) then
    begin
      Mmouse(tx, ty, 0, 0);
      if(IsUpTextMulti('Open', 'pe', 'pen')) then
      begin
        Mouse(tx, ty, 0, 0, True);
        Result := True;
        WriteLn('Somebody closed the door! He is teh neebcake =O Door opened.');
      end;
    break;
    end;
  end;
  FreeBitmap(Door);
end;

procedure CompFlag(which: Integer);
var FlagMark: Integer;
begin
  MarkTime(FlagMark);
  Wait(100);
  if not FlagPresent then
  exit;
  else
  begin
    NoRandoms;
    wait(500);
    repeat
      NoRandoms;
      if(Which = 1)then MakeCompass('n') else MakeCompass('w');
      FTwait(1);
    until ((TimeFromMark(FlagMark) > 16000) or (not FlagPresent));
  end;
end;

procedure RFlag;
var FlagMark: Integer;
begin
  MarkTime(FlagMark);
  Wait(100);
  if not FlagPresent then
  exit;
  else
  begin
    NoRandoms;
    wait(1000+ random(1000));
    repeat
      NoRandoms;
      wait(100);
    until ((TimeFromMark(FlagMark) > 16000) or (not FlagPresent));
  end;
end;

procedure BankAll;
var t: Integer;
begin
  LoadBitmap;
  while (t < 65) do
  begin
    t := t + 5;
    if (FindBitmapToleranceIn(NewtBMP, x, y, MIX1, MIY1, MIX2, MIY2, t)) then
    begin
      Mouse(x, y, 1, 1, false);
      ChooseOption(x, y, 'All');
      Loads:= Loads + 1;
    end;
    break;
  end;
end;

procedure Report(Greet: Boolean);
var Active : String;
begin
  if(Greet) then
   begin
     Writeln('(============================================)');
     Writeln('(=== Eye of Newt Buyer - Written by Tim46 ===)');
     Writeln(' \__________________________________________/ ');
     Writeln('  |============= Version '+ver+' ==============|');
     Writeln('  (========================================)');
     Writeln(' ');
   end else
    begin
      if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
      Writeln('(===========================================)');
      Writeln('([=== Worked For : ' + IntToStr(Players[CurrentPlayer].Worked));
      Writeln('([=== Player: ' + Players[CurrentPlayer].Name);
      Writeln('(===========================================)');
      Writeln('([=== Bought '+ IntToStr(Newts) +' eye of newts('+IntToStr(Loads)+' loads).');
      Writeln('([=== Opened '+IntToStr(DoorsOpened)+' doors.');
      Writeln('([=== Active: '+ Active);
      Writeln('([=== Location: ' + Players[CurrentPlayer].loc);
      Writeln('(===========================================)');
    end;
end;

procedure FullReport;
var Active: string;
var i: Integer;
begin
  WriteLn('<======================================================================>')
  WriteLn('<===================== Full Progress Report ===========================>')
  WriteLn('<======================================================================>')
  Writeln('<============== Total time : ' + ScriptTime2(2));
  for I := 0 to HowManyPlayers - 1 do
  begin
    if Players[i].Active=True then Active:='T' else Active:='F';
    WriteLn(IntToStr(i) +': '+ Players[i].Name +' = ' + Active);
    WriteLn('Worked: '+ IntToStr(Players[i].Worked) +' min.');
    WriteLn('Banked: '+ IntToStr(Players[i].Banked) +' times(approximatly '+ IntToStr(Players[i].Banked * 27) +' newts).');
    WriteLn('Location: '+ Players[i].loc);
  end;
  WriteLn ('<======================================================================>');
end;

function GetTreeSymbol(var rx, ry: Integer):Integer;
var t, treee : Integer;
    acc:Extended;
begin
    treee := BitmapFromString(7, 3, 'z78DA3330343332303430347' +
       '7C34D3A193B593A991B10A1D2D2D8D2D292904A734B230323081B' +
       '007AA31A1B');
FindDeformedBitmapToleranceIn(treee, x, y, 570, 5, 725, 166, 70, 1, True, acc);
if(acc>SymbolAccuracy)then
  begin
    repeat
      t:=t+5;
      if (FindColorTolerance(x, y, 96513, x, y, x+15, y+5, t)) then
      begin
        Result:=GetColor(x, y);
        rx := x;
        ry := y;
      end;
    until(Result > 0) or (t > 70);
  end;
  FreeBitmap(treee);
end;

function FindTreeSymbol(var rx, ry:Integer): Boolean;
begin
  Result := (GetTreeSymbol(rx, ry) > 0);
end;

procedure FindBank2(which : String);
begin
  NoRandoms;
  Case Random(6) of
    0: FTwait(2);
    1: FTwait(3);
    2: PerfectComp(2);
    3: PerfectComp(3);
    4: PerfectComp(4);
    5: NoRandoms;
  end;
  FindBank(which);
  wait(500);
  InPin(Players[CurrentPlayer].String1);
  wait(100+random(500));
  BankAll;
  wait(500 + random(500));
  CloseBank;
end;

function FindBetty2: Boolean;
var i :  Integer;
    Colors: Array[0..3] Of Integer;
begin
  Colors[0]:=2763308;
  Colors[1]:=3092277;
  Colors[2]:=1909481;
  Colors[3]:=1808626;
  for i := 0 to 3 do
  begin
    if(FindColorTolerance(x, y, Colors[i], 597, 31, 692, 149, 70)) then
    begin
      Mouse(x, y, 0, 0, true);
      RFlag;
      wait(100);
      FindBetty;
      Result:= True;
    end;
  end;
end;

function WalkToDraynor: Boolean;
begin
  CloseWindow2;
  PerfectComp(2);
  HighestAngle;
  if(ClickDoor) then DoorsOpened:= DoorsOpened + 1;
  NoRandoms;
  NewRoadColor := FindRoadColor;
  RadialRoadWalk(NewRoadColor, 327, 336, 75, 1, 1);
  NumN:=CountItemsColor('inv', 11737620, 90)
  Newts:= Newts + NumN;
  RFlag;
  RadialRoadWalk(NewRoadColor, 334, 340, 75, 1, 1);
  RFlag;
  if(FindTreeSymbol(x, y)) then
  begin
    NewRoadColor := FindRoadColor;
    RadialRoadWalk(NewRoadColor, 346, 355, 73, 1, 1);
    RFlag;
    RadialRoadWalk(NewRoadColor, 347, 359, 69, 1, 1);
    RFlag;
    PerfectComp(3);
    if(FindColorTolerance(x, y, 14635315, MMX1, MMY1, MMX2, MMY2, 70)) or
    (FindColorTolerance(x, y, 14515572, MMX1, MMY1, MMX2, MMY2, 70)) then
    begin
      Mouse(x, y, 1, 1, true);
      RFlag;
      NewRoadColor := FindRoadColor;
      RadialRoadWalk(NewRoadColor, 283, 295, 78, 1, 1);
      RFlag;
      Players[CurrentPlayer].loc := 'Draynor';
      FindBank2('db');
      Result:= True;
    end else
    begin
      if(FindSymbol(x, y, 'dungeon')) then
      begin
        Mouse(x, y, 1, 1, true);
        RFlag;
        Mouse(648, 64, 3, 3, true);
        RFlag;
        NewRoadColor := FindRoadColor;
        RadialRoadWalk(NewRoadColor, 351, 356, 63, 1, 1);
        RFlag;
        Players[CurrentPlayer].loc := 'Draynor';
        FindBank2('db');
        Result:= True;
      end else
      begin
        Writeln('Walking to Draynor failed(couldnt find Dungeon Symbol). Switching to next player');
        Players[CurrentPlayer].loc := 'Lost - CFDSwd';
        Players[CurrentPlayer].Active := False;
        Result:= False;
        Mhmm:=True;
        Report(False);
        LogOut;
        NextPlayer(false);
        Exit;
      end;
    end;
  end else
  begin
    Writeln('Walking to Draynor failed(couldnt find Tree Symbol). Switching to next player');
    Players[CurrentPlayer].loc := 'Lost - CFTSwd';
    Players[CurrentPlayer].Active := False;
    Result:= False;
    Mhmm:=True;
    Report(False);
    LogOut;
    NextPlayer(false);
    Exit;
  end;
end;

procedure DraynorToShop;
begin
  Players[CurrentPlayer].loc := 'ToShop';
  PerfectComp(1);
  HighestAngle;
  NewRoadColor := FindRoadColor;
  NoRandoms;
  RadialRoadWalk(NewRoadColor, 303, 305, 73, 1, 1);
  RFlag;
  wait(500);
  if(FindSymbol(x, y, 'quest'))then Mouse(x+ 17, y, 1, 1, true);
  RFlag;
  wait(300+random(500));
  if(FindSymbol(x, y, 'dungeon')) then
  begin
    Mouse(x-40, y, 0, 2, true);
    wait(500+random(1500));
    RFlag;
    NewRoadColor := FindRoadColor;
    RadialRoadWalk(NewRoadColor, 325, 350, 58, 1, 1);
    RFlag;
    RadialRoadWalk(NewRoadColor, 265, 279, 72, 1, 1);
    RFlag;
    NewRoadColor := FindRoadColor;
    RadialRoadWalk(NewRoadColor, 268, 275, 29, 1, 1);
    RFlag;
    RadialRoadWalk(RoadColor, 250, 259, 76, 1, 1);
    CompFlag(1);
    if(FindSymbol(x, y, 'water')) then
    begin
      NewRoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 230, 237, 52, 1, 1);
      RFlag;
      FindBetty2;
    end else
    begin
      Writeln('Walking to shop failed(couldnt find water symbol). Switching to next player');
      Players[CurrentPlayer].loc := 'Lost - CFWSds';
      Players[CurrentPlayer].Active := False;
      Report(False);
      Mhmm:=True;
      LogOut;
      NextPlayer(false);
      Exit;
    end;
  end else
  begin
    Writeln('Walking to shop failed, couldnt find dungeon symbol. Will try again with cords.');
    Mouse(642, 28, 1, 1, true);
    wait(1000);
    RFlag;
    NewRoadColor := FindRoadColor;
    RadialRoadWalk(NewRoadColor, 325, 350, 58, 1, 1);
    RFlag;
    RadialRoadWalk(NewRoadColor, 265, 279, 72, 1, 1);
    RFlag;
    NewRoadColor := FindRoadColor;
    RadialRoadWalk(NewRoadColor, 268, 275, 26, 1, 1);
    RFlag;
    RadialRoadWalk(RoadColor, 250, 259, 76, 1, 1);
    CompFlag(1);
    if(FindSymbol(x, y, 'water')) then
    begin
      NewRoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 230, 237, 52, 1, 1);
      RFlag;
      FindBetty2;
    end;
  end;
end;

function WalkToFally: Boolean;
begin
  CloseWindow2;
  NewRoadColor := FindRoadColor;
  PerfectComp(2);
  HighestAngle;
  if(ClickDoor) then DoorsOpened:= DoorsOpened + 1;
  NoRandoms;
  RadialRoadWalk(RoadColor, 302, 313, 73, 1, 1);
  RFlag;
  RadialRoadWalk(RoadColor, 232, 239, 55, 1, 1);
  RFlag;
  RadialRoadWalk(RoadColor, 202, 208, 68, 1, 1);
  CompFlag(1);
  NoRandoms;
  NumN:=CountItemsColor('inv', 11737620, 90)
  Newts:= Newts + NumN;
  NewRoadColor := FindRoadColor;
  RadialRoadWalk(NewRoadColor, 348, 355, 74, 1, 1);
  RFlag;
  if(FindTreeSymbol(x, y))then
  begin
    NewRoadColor := FindRoadColor;
    NoRandoms;
    RadialRoadWalk(NewRoadColor, 3, 9, 74, 1, 1);
    RFlag;
    NewFRoadColor := FindFallyRoadColor;
    RadialRoadWalk(NewFRoadColor, 350, 356, 74, 0, 2);
    RFlag;
    RadialRoadWalk(NewFRoadColor, 345, 355, 74, 1, 2);
    RFlag;
    Players[CurrentPlayer].loc := 'Fally';
    FindBank2('feb');
    Result:= True;
  end else
  begin
    Writeln('Walking failed(couldnt find Tree symbol). Switching to next player');
    Players[CurrentPlayer].loc := 'Lost - CFTSwf';
    Players[CurrentPlayer].Active := False;
    Result:= False;
    Report(False);
    Mhmm:=True;
    LogOut;
    NextPlayer(false);
    Exit;
  end;
end;

procedure FallyToShop;
begin
  Players[CurrentPlayer].loc := 'ToShop';
  NewFRoadColor := FindFallyRoadColor;
  PerfectComp(3);
  HighestAngle;
  NoRandoms;
  RadialRoadWalk(NewFRoadColor, 54, 57, 53, 1, 1);
  RFlag;
  RadialRoadWalk(NewFRoadColor, 347, 355, 73, 1, 1);
  RFlag;
  NewRoadColor := FindRoadColor;
  NoRandoms;
  RadialRoadWalk(NewRoadColor, 355, 359, 74, 1, 1);
  RFlag;
  if(FindTreeSymbol(x, y))then
  begin
    NewRoadColor := FindRoadColor;
    NoRandoms;
    RadialRoadWalk(NewRoadColor, 355, 364, 73, 1, 1);
    RFlag;
    PerfectComp(3);
    RadialRoadWalk(NewRoadColor, 352, 360, 72, 1, 1);
    RFlag;
    NewRoadColor := FindRoadColor;
    NoRandoms;
    RadialRoadWalk(NewRoadColor, 283, 289, 53, 1, 1);
    Rflag;
    FindBetty2;
  end else
  begin
    Writeln('Walking failed(couldnt find Tree symbol). Switching to next player');
    Players[CurrentPlayer].loc := 'Lost - CFTSfs';
    Players[CurrentPlayer].Active := False;
    Report(False);
    Mhmm:=True;
    LogOut;
    NextPlayer(false);
    Exit;
  end;
end;

procedure NoMoney;
begin
  if (Players[CurrentPlayer].Active) then
   Players[CurrentPlayer].Active := False;
   WriteLn('Player ' + Players[Currentplayer].Name + ' has run out of money. Banking and switching.');
   CloseWindow2;
   NoRandoms;
   WalkToFally;
   wait(500);
   Report(False);
   LogOut;
   NextPlayer(False);
   Exit;
end;

function NewtAmount: Integer;
begin
    Result:= 0 + GetAmount(94, 131);
end;

procedure BuyNewt;
var i: Integer;
begin
  wait(200 + random(100));
  repeat
    if(((NewtAmount) > 0))then
    ClickNewt;
  until((InChat('enough coin')) or (InvFull));
  i:= Random(4);
  if (InvFull)then
  begin
    if (i=0) or (i=1) then
    begin
      if (WalkToDraynor) then DraynorToShop;
    end;
    if (i=2) or (i=3) or (i=4) then
    begin
      if(WalkToFally) then FallyToShop;
    end;
  end;
end;

procedure CancelClick(sender: TObject);
begin
  Writeln('Cancel was clicked, ending script.')
  frmDesign.Modalresult:=mrOk;
end;

procedure StartClick(sender: TObject);
begin
  StartScript:=True;
  BuyTime:=StrToInt(ScriptEdit.text);
  PlayerLoads:=StrToInt(PlayerEdit.text);
  FindTalkTrue:=StrToBool(LoraxCombo.text);
  frmDesign.ModalResult:= mrOk;
end;

procedure DragForm(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); //Made by Widget
var sx,sy,tx,ty:integer;
begin
  GetMousePos(tx,ty);
  repeat
    GetMousePos(sx,sy);
    frmDesign.Top := frmDesign.Top - (ty-sy);
    frmDesign.Left := frmDesign.Left - (tx-sx);
    wait(1);
    tx := sx;
    ty := sy;
  until (not IsMouseButtonDown(True));
end;

procedure Initform;
begin
Border:= BitmapFromString(1, 1, '737373');
frmDesign := CreateForm;
frmDesign.Left := 326;
frmDesign.Top := 288;
frmDesign.Width := 377;
frmDesign.Height := 145;
frmDesign.Caption := 'frmDesign';
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
frmDesign.OnMouseDown := @DragForm;
frmDesign.BorderStyle := bsNone;
Background := TImage.Create(frmDesign)
Background.Parent := frmDesign;
Background.Top := 0;
Background.Left := 0;
Background.Height := 175;
Background.Width := 377;
Background.OnMouseDown := @DragForm;
SafeCopyCanvas(GetBitmapCanvas(border),Background.Canvas,0,0,1,1,0,0,2,145);
SafeCopyCanvas(GetBitmapCanvas(border),Background.Canvas,0,0,1,1,375,0,377,145);
SafeCopyCanvas(GetBitmapCanvas(border),Background.Canvas,0,0,1,1,0,0,377,2);
SafeCopyCanvas(GetBitmapCanvas(border),Background.Canvas,0,0,1,1,0,143,377,145);
NameLabel := TLabel.Create(frmDesign);
NameLabel.Parent := frmDesign;
NameLabel.Left := 33;
NameLabel.Top := 14;
NameLabel.Width := 183;
NameLabel.Height := 27;
NameLabel.Caption := 'Eye of Newt buyer';
NameLabel.Font.Color := clWindowText;
NameLabel.Font.Height := -24;
NameLabel.Font.Name := 'Times New Roman';
NameLabel.Font.Style := [];
NameLabel.ParentFont := False;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 17;
Label1.Top := 64;
Label1.Width := 57;
Label1.Height := 13;
Label1.Caption := 'Player loads';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 17;
Label2.Top := 82;
Label2.Width := 49;
Label2.Height := 13;
Label2.Caption := 'Script time';
VersionLabel := TLabel.Create(frmDesign);
VersionLabel.Parent := frmDesign;
VersionLabel.Left := 265;
VersionLabel.Top := 21;
VersionLabel.Width := 68;
VersionLabel.Height := 17;
VersionLabel.Caption := 'Version 0.9';
VersionLabel.Font.Color := clWindowText;
VersionLabel.Font.Height := -15;
VersionLabel.Font.Name := 'Times New Roman';
VersionLabel.Font.Style := [];
VersionLabel.ParentFont := False;
LoraxLabel := TLabel.Create(frmDesign);
LoraxLabel.Parent := frmDesign;
LoraxLabel.Left := 150;
LoraxLabel.Top := 64;
LoraxLabel.Width := 50;
LoraxLabel.Height := 13;
LoraxLabel.Caption := 'LoraxFTW';
MinuteLabel := TLabel.Create(frmDesign);
MinuteLabel.Parent := frmDesign;
MinuteLabel.Left := 23;
MinuteLabel.Top := 99;
MinuteLabel.Width := 46;
MinuteLabel.Height := 12;
MinuteLabel.Caption := '(in minutes)';
MinuteLabel.Font.Color := clWindowText;
MinuteLabel.Font.Height := -9;
MinuteLabel.Font.Name := 'Times New Roman';
MinuteLabel.Font.Style := [];
MinuteLabel.ParentFont := False;
PlayerEdit := TEdit.Create(frmDesign);
PlayerEdit.Parent := frmDesign;
PlayerEdit.Left := 79;
PlayerEdit.Top := 61;
PlayerEdit.Width := 40;
PlayerEdit.Height := 21;
PlayerEdit.Hint := 'Number of loads you want the players to do before switching.';
PlayerEdit.Font.Color := clWindowText;
PlayerEdit.Font.Height := -9;
PlayerEdit.Font.Name := 'MS Sans Serif';
PlayerEdit.Font.Style := [];
PlayerEdit.ParentFont := False;
PlayerEdit.ParentShowHint := False;
PlayerEdit.ShowHint := True;
PlayerEdit.TabOrder := 8;
ScriptEdit := TEdit.Create(frmDesign);
ScriptEdit.Parent := frmDesign;
ScriptEdit.Left := 79;
ScriptEdit.Top := 82;
ScriptEdit.Width := 40;
ScriptEdit.Height := 21;
ScriptEdit.Hint := 'Time you want the script to work for';
ScriptEdit.Font.Color := clWindowText;
ScriptEdit.Font.Height := -9;
ScriptEdit.Font.Name := 'MS Sans Serif';
ScriptEdit.Font.Style := [];
ScriptEdit.ParentFont := False;
ScriptEdit.ParentShowHint := False;
ScriptEdit.ShowHint := True;
ScriptEdit.TabOrder := 9;
LoraxCombo := TComboBox.Create(frmDesign);
LoraxCombo.Parent := frmDesign;
LoraxCombo.Left := 207;
LoraxCombo.Top := 61;
LoraxCombo.Width := 70;
LoraxCombo.Height := 21;
LoraxCombo.Hint := 'LoraxFTW true or false';
LoraxCombo.Font.Color := clWindowText;
LoraxCombo.Font.Height := -9;
LoraxCombo.Font.Name := 'MS Sans Serif';
LoraxCombo.Font.Style := [];
LoraxCombo.ItemHeight := 13;
LoraxCombo.ParentFont := False;
LoraxCombo.ParentShowHint := False;
LoraxCombo.ShowHint := True;
LoraxCombo.Text := 'True';
LoraxCombo.Items.Add('True');
LoraxCombo.Items.Add('False');
LoraxCombo.TabOrder := 10;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.OnClick:= @StartClick;
StartButton.Left := 163;
StartButton.Top := 108;
StartButton.Width := 50;
StartButton.Height := 20;
StartButton.Hint := 'Click here to start the script';
StartButton.Caption := 'Start';
StartButton.Font.Color := clWindowText;
StartButton.Font.Height := -9;
StartButton.Font.Name := 'MS Sans Serif';
StartButton.Font.Style := [];
StartButton.ParentFont := False;
StartButton.ParentShowHint := False;
StartButton.ShowHint := True;
StartButton.TabOrder := 12;
CancelButton := TButton.Create(frmDesign);
CancelButton.Parent := frmDesign;
CancelButton.OnClick:= @CancelClick;
CancelButton.Left := 222;
CancelButton.Top := 108;
CancelButton.Width := 50;
CancelButton.Height := 20;
CancelButton.Hint := 'Click here to cancel';
CancelButton.Caption := 'Cancel';
CancelButton.Font.Color := clWindowText;
CancelButton.Font.Height := -9;
CancelButton.Font.Name := 'MS Sans Serif';
CancelButton.Font.Style := [];
CancelButton.ParentFont := False;
CancelButton.ParentShowHint := False;
CancelButton.ShowHint := True;
CancelButton.TabOrder := 13;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure SetupForm;
begin
  SafeInitForm;
  SafeShowFormModal;
end;

procedure SetupScript;
begin
  SetupSRL;
  NewLine:=NewLine;
  Ver:=Vers;
  SetupForm;
  if(StartScript=false) then TerminateScript;
  LoraxFTW:= FindTalkTrue;
  Report(True);
  ActivateClient;
  wait(1000);
  MarkTime(Scriptime);
  DeclarePlayers;
  LoginPlayer;
end;

begin
  SetupScript;
  repeat
    if Players[CurrentPlayer].loc = 'Fally' then begin FallyToShop;Shopp:=True;end;
    if Players[CurrentPlayer].loc = 'Draynor' then begin DraynorToShop; Shopp:=True;end;
    Mhmm:=False;
    repeat
      if Players[CurrentPlayer].loc='Shop' then
      begin
      wait(1000 + random(500));
      if(Shopp=False)then FindBetty;
      BuyNewt;
      if (Loads >= (PlayerLoads)) then
       begin
         if (Players[CurrentPlayer].Active) then
          wait(500);
          NoRandoms;
          Report(False);
          LogOut;
          WriteLn('Player time is up, on to the next player.');
          if(NoRandoms)or(Mhmm)then NextPlayer(false) else NextPlayer(true);
       end;
      if (InChat('enough coin')) then NoMoney;
      end;
    until(Loads >= (PlayerLoads)) or (Mhmm);
    FullReport;
  until(TimeFromMark(Scriptime) > (BuyTime*60000));
  if (TimeFromMark(Scriptime) > (BuyTime*60000)) then
   begin
     WriteLn('Script time reached. Ending script.');
     CloseWindow2;
     NoRandoms;
     LogOut;
     FullReport;
     TerminateScript;
   end;
end.

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

Yeah.

Your good, you should of applied earlier.

Hehe :) Glad to know somebody thinks I'm good :eek:

nice, woo. like the forms

Thanks for your vote :)

I really like this. Plenty of failsafes, multiplayer, great anti randoms, good standards, yes from me :)

yup looks nice

Looks good, I vote yes

Yes from me!

U can multiplayer,forms,walking,failsafes,bitmaps,standards

Yes, looks fine to me.
I'm pretty sure you get in, 10 yes and 0 no.

Looks good - YES. :D

Thanks for everyones votes :) 11 yes - 0 no so far.

Sorry for the double post, but I had to bump this so that people would look, and be able to answer my question :p. I was wondering, how long usually does it take for a poll to close. When applying, it said that polls close in 7-14 days, but I've heard of app's lasting for 2 days and people getting in. Once again, sorry for the double post.

You will have to wait untill a forum admin gets a chance to personally read over your application and the comments made.

Btw, for now on, instead of bumping your apllication via a double post, use the edit button on your last post and add on to it.

just between you me and everyone else that reads this thread, if you copy your post, then delete it, then paste it onto another post with the extra that you want to say, it gets up, and no double post. Though im surprized that an admin hasnt already seen it

I tried doing that Dan, but it didn't let me delete the post =\

Congrats!