SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
(TOWN) Well, i had been at other sites looking for scripts (leaching beffor i decided to learn) and i met town he told me about SRL forums and this is were i spend my time :)

Programming Knowledge
None (Sorry But I May Learn)

Other Communitys
Myrune, and www.villu-reborn.com is the best :) sythe and those ones but there are too many leachers

How Long have You Played Runescape
2 years off and on

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

Hey guys, well i have just beggun scripting and i have written a failry decent script, i have been hlped but great scipters such as yohojo a bit, town, jad, and gillbz for help, i really wish to get in to be SRL member so i can learn more of others scripts and as everyone else would get to use their scripts and poste feedback, if the script isnt good enough just tell me what i need to work on for next time :)
thanks,
belgin fish,

P.S The Script Must Be Started LOGGED OUT!
between lumbridge and draynor at the pond were there are willows perferably the ones more to the west of the pond :)
get tree colors beffor starting script so u can paste them in the form.

This Is My Script Not Someone Elses,

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

:google:

program LogChopperLighter;

{.include SRL\SRL.SCAR}
{.Include SRL/SRL/Extended/xBitMap.SCAR}
{.include SRL/SRL/Skill/Firemaking.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

{
Thanks Jad(He's the leetness of ownage), Town, And Gillbz for helping me out were i needed it :) 
//==================================\\
||   INFORMATION                    ||
||                 INFORMATION      ||
\\==================================//
||1: Have TinderBox  In Fist        ||
||Inventory  Slot.                  ||
||                                  ||
||2: Have Axe Equiped Or Unequiped  ||
||doesnt matter.                    ||
||                                  ||
||3: Start At Willow Between Draynor||
||And Lumby.                        ||
||                                  ||
||4: Information:                   ||
||Writer: Belgin Fish               ||
||Function: Chops Then Lights       ||
||In Draynor/Lumby At The Pond.     ||
||                                  ||
||5: Have Fun :) I Hope You Enjoy   ||
||This Script. (Fill In Array Too :P||
\\==================================//}

const ExtreemDebug =False; //Want To Get An Extreem Debug, Not Needed.

var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label7 : TLabel;
  Label8 : TLabel;
  Label9 : TLabel;
  Label10 : TLabel;
  Label11 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Button1  : TButton;
  AmountOfLoads : Integer;
  WillowColor : Integer;
  DraynorWaterTree, Choped, NumberLoad,  BushToLight, LoadsOfFire, NumberOfFire, TinderBoxer, NormalAxe, BrokenAxe, WillowLog:Integer;

const
  clMenuHighlight = 0;

procedure DeclarePlayers;
begin
  HowManyPlayers  := 3;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := 0;

     Players[0].Name      := 'UserName';
     Players[0].Pass      := 'PassWord';
     Players[0].Nick      := 'erNa'; // 2-4 letters of username
     Players[0].Active    := True;

     Players[1].Name      := 'UserName';
     Players[1].Pass      := 'PassWord';
     Players[1].Nick      := 'erNa'; // 2-4 letters of username
     Players[1].Active    := True;

     Players[2].Name      := 'UserName';
     Players[2].Pass      := 'PassWord';
     Players[2].Nick      := 'erNa'; // 2-4 letters of username
     Players[2].Active    := True;
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 ClickButton(sender: TObject);
begin
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

Procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 259;
frmDesign.Top := 114;
frmDesign.Width := 308;
frmDesign.Height := 369;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clGray;
frmDesign.Font.Color := clHighlight;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 58;
Label1.Top := 31;
Label1.Width := 178;
Label1.Height := 49;
Label1.Caption := 'Belgin Fish ';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -31;
Label1.Font.Name := 'Papyrus';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 129;
Label2.Top := 4;
Label2.Width := 19;
Label2.Height := 31;
Label2.Caption := 'A';
Label2.Font.Color := clMenuHighlight;
Label2.Font.Height := -20;
Label2.Font.Name := 'Papyrus';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 86;
Label3.Top := 80;
Label3.Width := 114;
Label3.Height := 38;
Label3.Caption := 'Production';
Label3.Font.Color := clMenuHighlight;
Label3.Font.Height := -24;
Label3.Font.Name := 'Papyrus';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 19;
Label4.Top := 144;
Label4.Width := 48;
Label4.Height := 27;
Label4.Caption := 'Loads';
Label4.Font.Color := clMenuHighlight;
Label4.Font.Height := -17;
Label4.Font.Name := 'Papyrus';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 19;
Label5.Top := 196;
Label5.Width := 87;
Label5.Height := 24;
Label5.Caption := 'Willow Color';
Label5.Font.Color := clMenuHighlight;
Label5.Font.Height := -15;
Label5.Font.Name := 'Papyrus';
Label5.Font.Style := [];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 18;
Label6.Top := 264;
Label6.Width := 260;
Label6.Height := 13;
Label6.Caption := 'This Form and its contents are copyright '#169' 1999 - 2007';
Label6.Font.Color := clMenuHighlight;
Label6.Font.Height := -7;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [];
Label6.ParentFont := False;
Label6.ParentShowHint := False;
Label6.ShowHint := True;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 18;
Label7.Top := 281;
Label7.Width := 262;
Label7.Height := 13;
Label7.Hint := 'If You Get Banned Its Not My Fault';
Label7.Caption := 'The Contents Are Reserved  and CopyWrite 2007-2009';
Label7.Font.Color := clBlack;
Label7.Font.Height := -11;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [];
Label7.ParentFont := False;
Label7.ParentShowHint := False;
Label7.ShowHint := True;
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 21;
Label8.Top := 297;
Label8.Width := 250;
Label8.Height := 13;
Label8.Caption := 'Those Who Do Not Follow These Rules Will Be Shot';
Label8.Font.Color := clBlack;
Label8.Font.Height := -11;
Label8.Font.Name := 'MS Sans Serif';
Label8.Font.Style := [];
Label8.ParentFont := False;
Label8.ParentShowHint := False;
Label8.ShowHint := True;
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 82;
Label9.Top := 312;
Label9.Width := 135;
Label9.Height := 13;
Label9.Hint := 'If You Get Banned Its Not My Fault';
Label9.Caption := 'Survivors Will Be Shot Again';
Label9.Font.Color := clBlack;
Label9.Font.Height := -11;
Label9.Font.Name := 'MS Sans Serif';
Label9.Font.Style := [];
Label9.ParentFont := False;
Label9.ParentShowHint := False;
Label9.ShowHint := True;
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 117;
Label10.Top := 326;
Label10.Width := 73;
Label10.Height := 13;
Label10.Hint := 'If You Get Banned Its Not My Fault';
Label10.Caption := 'Happy Autoing ';
Label10.Font.Color := clBlack;
Label10.Font.Height := -11;
Label10.Font.Name := 'MS Sans Serif';
Label10.Font.Style := [];
Label10.ParentFont := False;
Label10.ParentShowHint := False;
Label10.ShowHint := True;
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 194;
Label11.Top := 328;
Label11.Width := 9;
Label11.Height := 13;
Label11.Caption := #169;
Label11.Font.Color := clBlack;
Label11.Font.Height := -11;
Label11.Font.Name := 'MS Sans Serif';
Label11.Font.Style := [];
Label11.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 119;
Edit1.Top := 145;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.Hint := 'How Many Loads To Do Beffor Logging Off.';
Edit1.TabOrder := 8;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 119;
Edit2.Top := 196;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.ParentShowHint := False;
Edit2.ShowHint := True;
Edit2.TabOrder := 9;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 110;
Button1.Top := 230;
Button1.Width := 75;
Button1.Height := 25;
Button1.Hint := 'Click Here To Start The Script.';
Button1.Caption := 'Start ';
Button1.Font.Color := clActiveCaption;
Button1.Font.Height := -16;
Button1.Font.Name := 'Papyrus';
Button1.Font.Style := [];
Button1.ParentFont := False;
Button1.ParentShowHint := False;
Button1.ShowHint := True;
Button1.TabOrder := 10;
Button1.OnClick :=@ClickButton;
end;

procedure convert;
begin
 AmountOfLoads := StrToInt(Edit1.text)
 WillowColor := StrToInt(Edit2.text)
end;


procedure LoadDTMs;
begin

  TinderBoxer := DTMFromString('78DA8D934912C2300C04654336202B24986C7' +
       'FC94FF2FF277021E35B8ACB8CAADCF2A1CB2E4BB26BCD2CAE53EC' +
       '5B615F6487F543B80C9BC2FEC29D88DC0117E24CC09D3801E889D' +
       '3003371522010C70315716AE04A9C07901067003C7146E19C0568' +
       '88136B3C0A6F7F12E706A4C449849EAE4029CC86176A1884733AE' +
       '2E4C047A80F9BC3F82732E2BCC45EB0BB7AA13E6F2017FED7409C' +
       '381713714AC1F1BC17070D5709D4');

  BrokenAxe := DTMFromString('78DA8D924B0E80200C445B35881F0C219018E' +
       'FE655BCB56B1D76EAC2CE24BCB2788196A05E4482BC72EC414E54' +
       'C5BA101DB069E4137D10B53AADE144E29C44380BE16460329C1EC' +
       '886E380D5706A2F9BE1744022EE9A899E3D313BF33ECE700A301A' +
       '8E27E6AA7F23FE3B374D2A079E');

  NormalAxe := DTMFromString('78DA8DD24B0A80300C04D0D45FD522D62F287' +
       '840EFE29D75B253BB98049C76F1C024D4352212E553D719E5C6E9' +
       'F0DD2837E252C8AFDC2B7106444E4C6B30DA4F458C47B4C494E95' +
       'C89D1996662B4DF95980CB11BFE7510A3736FC4D4869E75870331' +
       'D1B0C309D111A3BB0906E389590C6F6C3698DE603AFE0E1F69200' +
       '850');

  WillowLog := DTMFromString('78DA63E4676060E06540013666A2609A1188F' +
       'F0301233B90C1C2800618914820CD0624588950C38EAA2231CA02' +
       '550DC80C2E02E63001091E22D48810E11E51026AB881842401354' +
       '240428C801A3122EC9226C2CDF240429008730885A114906022A0' +
       '469808357C44A40D2E22D4C8118E53005C1B07B1');

end;

procedure SetUp;
begin
  SetUpSRL;
  LoadDTMs;
  DeclarePlayers;
  if (Not(LoggedIn)) Then
  begin
    Status('Logging In...');
    LoginPlayer;
  end;
end;

function FindFastRandoms: Boolean;    // By WT-Fakawi.
var
  i: Integer;
begin
  for I := 1 to 11 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';
               Logout;
               Exit;
             end;
           end;

       8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;

       9 : if RC then
             Result := True;

       10 : if FindFight then
              begin
                Result := True;
                RunAwayDirection('S');
                Wait(2000+random(5000));
                RunBack;
              end;

       11: if FindTalk then
             Result := True;
    end;
    Wait(1);
  end;
end;

procedure MyAntiRandoms;
begin
  if FindFight then
  begin
    RunAwayDirection('S')
    Wait(2000+random(3000));
    RunBack;
    wait(20+random(10));
    FindNormalRandoms;
    wait(100+random(10));
    FindTalk;
  end;
end;

procedure AllTheRandoms;
begin
  MyAntiRandoms;
  FindFastRandoms;
end;

procedure MyAntiBan;
begin
  AllTheRandoms;
  Status('Performing Anti-Ban Actions');
  case Random(14) + 1 of

  1: HoverSkill('WoodCutting', False);

  2: HoverSkill('FireMaking', False);

  3: PickUpMouse;

  4: AlmostLogout;

  5: GameTab(6);

  6: GameTab(4);

  7: HoverSkill('Random', False);

  8: DoEmote(6);

  9: DoEmote(13)

  10: PickUpMouse;

  end;
  AllTheRandoms;
end;

procedure ChekForEntAndAxe;
var AX, AY:Integer;
var BX, BY:Integer;
begin
  If ( Not (LoggedIn) ) Then NextPlayer (False);
  Status('Looking For A Ent');
  Flag;
  if IsUpTextMulti('Chop','hop','op') then
  if FindColorTolerance(x, y, WillowColor, 85, 15, 115, 15, 18) then
  begin
    Status('We Have Found An Ent');
    MouseFindFlag(648,83,5,5);
    Wait(1500+random(5500));
    EntsAvoided := EntsAvoided+1
    If ( Not (LoggedIn) ) Then NextPlayer (False);
    GameTab(4)
    if (FindDTM(BrokenAxe, AX, AY, MIX1, MIY1, MIX2, MIY2)) and
    (Not(FindDTM(NormalAxe, BX, BY, MIX1, MIY1, MIX2, MIY2))) then
    begin
      Status('This Cant Be Good You Broke Your Axe');
      LogOut;
      NextPlayer(true);
      if (FindDTM(NormalAxe, BX, BY, MIX1, MIY1, MIX2, MIY2)) then
      begin
        Status('Yay! We Didnt Break Our Axe With The Ent');
      end;
    end;
  end;
end;

procedure AxeHeadSearch;
begin
  FindHead;
  FindBirdsNest;
end;






procedure CutLogs;

var cx, cy:Integer;

begin
  If ( Not (LoggedIn) ) Then NextPlayer (False);
  repeat
  AxeHeadSearch;
  MyAntiBan;
  AllTheRandoms;
  MakeCompass('N');
  if FindObj(cx, cy, 'Willow', WillowColor,10) then
  begin
    If ( Not (LoggedIn) ) Then NextPlayer (False);
    MMouse(cx, cy, 5, 5);
    if IsUpTextMulti('Chop','Willow','illow') then
    begin
      ChekForEntAndAxe;
      Status('Found Tree, Going To Chop It Down');
      Mouse(cx, cy, 5, 5, True);
      wait(1000+random(3000));
      AxeHeadSearch;
      AllTheRandoms;
      MyAntiBan;
      AllTheRandoms;
      If ( Not (LoggedIn) ) Then NextPlayer (False);
    end;
  end;
  Until(InvFull);
end;

procedure SearchForPond;
var i, PX, NX, PY, NY:Integer;
begin
  Writeln('We Are Currently Walking To Find The Pond')
  PX:=0
  PY:=0
  NX:=0
  NY:=0
  i:=0
  repeat
  PX:=PX+50
  i:=i+1
  Setrun(True);
  Mouse(MMCX +PX, MMCY, 3, 3, True);
  if (FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)) then Break;
  if (Not(FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2))) then
  begin
    Mouse(MMCX -PX, MMCY, 3, 3, True);
  end;
  until(i=4);
  if (i = 4) then
  begin
    i:=0
    repeat
    NX:=NX+50
    i:=i+1
    Setrun(True);
    Mouse(MMCX -NX, MMCY, 3, 3, True);
    if (FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)) then Break;
    if (Not(FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2))) then
    begin
      Mouse(MMCX +NX, MMCY, 3, 3, True);
    end;
    until(i=4);
    if (i = 4) then
    begin
      i:=0
      repeat
      NY:=NY+50
      i:=i+1
      Mouse(MMCX , MMCY -NY, 3, 3, True);
      if (FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)) then Break;
      if (Not(FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2))) then
      begin
        Mouse(MMCX , MMCY +NY, 3, 3, True);
      end;
      until(i=4);
      if (i = 4) then
      begin
        i:=0
        repeat
        PY:=PY+50
        i:=i+1
        Mouse(MMCX -PY, MMCY, 3, 3, True);
        if (FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)) then Break;
        if (Not(FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2))) then
        begin
          Mouse(MMCX +PY, MMCY, 3, 3, True);
        end;
        until(i=4);
        if i = 4 then
        begin
          i:=0
          repeat
          PX:=PX+50
          i:=i+1
          Mouse(MMCX +PX, MMCY, 3, 3, True);
          if (FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)) then Break;
          if (Not(FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2))) then
          begin
            Mouse(MMCX -PX, MMCY, 3, 3, True);
          end;
          until(i=4);
          WriteLn('We Looked And We Looked But Couldnt Find The Pond')
        end;
      end;
    end;
  end;
  if (FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)) then
    Mouse(x, y, 4, 4, true);
end;



procedure MakeFire;
var x, y, i:Integer;
begin
  if InvFull then
  begin
    Case Random (2) of

    1: begin
     WriteLn('Took Path 1 To Light Logs')
     DraynorWaterTree := BitmapFromString(11, 11, 'z78DA33' +
        'B234B134B4300293C646A6CE86AE98A4B9ABA5A193252ED288721' +
        '30C8C8C0C4D8D9D8C2C0D0D90496433F19B002191F5629A4F8909' +
        'C493949B304A524E02000B5CA432');
      If  Not (LoggedIn)  Then NextPlayer (False)
      FindBitMapTolRaiser(DraynorWaterTree, x, y, 0, 80, MMX1, MMY1, MMX2, MMY2);
      Mouse(x, y, 4, 4, True);
      Flag;
      Mouse(619, 87, 4, 4, True)
      Flag;
        If ( Not (LoggedIn) ) Then NextPlayer (False)
      end;
    2:begin
      WriteLn('Took Path 2 To Light Logs')
      BushToLight := BitmapFromString(3, 5, '20221529FF1832FF1E29' +
       'FF1829FF184457252949182949184457253B29102949182949183' +
       'B29103B2910294918');

      FindBitMapTolRaiser(BushToLight, x, y, 0, 80, MMX1, MMY1, MMX2, MMY2);
      Mouse(x, y, 4, 4, True);
      Flag;
      Mouse(609, 83, 4, 4, True);
      end;
    end;
    repeat
    GameTab(4)
    If ( Not (LoggedIn) ) Then NextPlayer (False)
    AllTheRandoms;
    MyAntiBan;
    if FindDtm(x, y, TinderBoxer, MIX1, MIY1, MIX2, MIY2) then
    begin
      Mouse(x, y, 4, 4, True);
      if FindDtm(x, y, WillowLog, MIX1, MIY1, MIX2, MIY2) then
      begin
        Mouse(x, y, 4, 4, True);
        LightWait;
        wait(200+random(500))
        if InChatMulti('ou can', 't ligh', 't a fir') then
        begin
          Mouse(MMCX +50, MMCY, 1, 1, True);
          Flag;
          i:=i+1
        end;
      end;
    end;
    until(Not(FindDTM(x, y, WillowLog, MIX1, MIY1, MIX2, MIY2)))
    if (Not(FindDTM(x, y, WillowLog, MIX1, MIY1, MIX2, MIY2))) then
    begin
      if (FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)) then
      Mouse(x, y, 4, 4, True);
      repeat
      if(Not(FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2))) then
      Mouse(MMCX -50, MMCY, 1, 1, True);
      until (i=0) or
      FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)
      if (FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)) then
      Mouse(x, y, 3, 3, true)
    end else
    SearchForPond;
    if (FindColor(x, y, FindWaterColor, MMX1, MMY1, MMX2, MMY2)) then
    Exit;
    end else
    LogOut;
    NextPlayer(false);
end;


procedure PrintProgressReport;
begin
  WriteLn('//-------------------------------------------------\\');
  WriteLn('||' + Players[CurrentPlayer].Name + ':             ||');
  WriteLn('||Did' + IntToStr(AmountOfLoads) + 'Loads Of Logs  ||');
  WriteLn('||Choped' + IntToStr(Choped) + 'Logs               ||');
  WriteLn('||Did' + IntToStr(LoadsOfFire) +'Loads Of Fire     ||');
  WriteLn('||Lit' + IntToStr(NumberOfFire) +'Fires            ||');
  WriteLn('||Total Of' + IntToStr(AmountOfLoads) + ' Loads    ||');
  WriteLn('||_________________________________________________||');
  WriteLn('\\ '+TimeRunning+'                                 ||');
   WriteLn('\\_______________________________________________//');
end;

begin
  repeat
  repeat
  SafeInitForm;
  SafeShowFormModal;
  SetUp;
  CutLogs;
  AmountOfLoads:=AmountOfLoads+1
  MakeFire;
  LoadsOfFire:=LoadsOfFire+1
  NumberOfFire:=NumberOfFire+26
  NumberLoad := NumberLoad + 1
  Choped:=Choped+26
  PrintProgressReport;
  until(NumberLoad>AmountOfLoads);
  if (NumberLoad>AmountOfLoads) then
  begin
    WriteLn('Player '+Players[CurrentPlayer].Name+'Has Finished His Loads!');
    Logout;
    NextPlayer(false);
  end;
  Until(False);
end.

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

Looks good. Will wait for Yohojo's copy check.

First of all, I can assure you he didn't copy this from anyone. I helped him learn to script and such but he did almost everything on this script by himself, to my knowledge.

Anyway, shows BMPs, DTMs, multiplayer, antiban and antirandoms, case statements. Has everything you would need to know to make a decent script. It's a good script, even though my opinion is swayed a bit :)

Maybe from me, just pending copy check and I think I saw one loop that it could get stuck in.

until(Not(FindDTM(x, y, WillowLog, MIX1, MIY1, MIX2, MIY2)))

This line in the makeFire procedure, what happens if something goes wrong while lighting fires? Like if you can't light a fire where it's trying to light the fire.

I can assure you its not copied either. I've helped him a bit on msn myself, he's a good scripter.

Only things are:

I don't get in your anti randoms and find fast randoms you have it look for fights/talks twice, could cause a little unnecessary lag.

Your standards aren't correct on your case(s) :) 2 spaces for the numbers after a case :p

In your anti ban, you call for FindFastRandoms, your randoms and then call for both of them. That's just causing some unnecessary lag/checking of randoms.

Still though, none-the-less, an original script unlike some of the apps we get so I vote yes :)

ok, well grindisbeast i have something that if it finds on screen you cannot light a fire here it will click the mini map at a certain point and will walk back when done lighting
and thanks jad and town :)

Argh, its clean.
I think its and ok script, simple, but looks like he understands things.
Im gonna read over more, proably vote no though.
Try learning more advanced stuff, and adding like failsafes and things. =)

ok sorry yohojo maybee my next script will be better

Hm this ones a hard one, the script looks good and has everything but i dont know how much you built yourself. Can the people who helped him post what they helped him with?

Vote with held for now most likely yes

Dont be sorry, you are new and are learning well, my opinion is just lean more techniques,
For i to do loops
Cases
I might vote yes, your annoying, but quite dedicated on msn =). hehe

I'm not sure yet, I probably vote yes but I'm just not sure yet.

Thats a yes from me. I dont know was I that skilled yet when I applied.
Yohojo and Jad and EjjMan1 plz tell me where u get those avatars?!?!?

Read the thread, seecreet!

lol i went looking for the thread called "seecreet" felt pretty silly.

From: me_ntal
Hm this ones a hard one, the script looks good and has everything but i dont know how much you built yourself. Can the people who helped him post what they helped him with?

Vote with held for now most likely yes

I helped him with his SearchForPond procedure. He made it and sent it to me to look over. He just had some wasted space in there and I helped him shrink it down a bit.

I think he made pretty much the whole thing himself though. He puts himself down alot so he sends it to people because he isn't sure of himself. He's a good scripter though.

Note, he said he was going on a field trip for the next 2-3 days.

kk guys im back its been 3 days :) wot 6 yes 2 no!!!!!!!

I'm gonna have to say yes XD Good script, looks like he knows what he needs to know :)

P.S: Forms!


-Ashur:stirthepot:

In! Welcome.