SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Java Script, PHP, MySQL, HTML

Other Communitys


How Long have You Played Runescape
2 years

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

My name is Michael and i'm 16 years old. I'm from Poland and I like programing. I know that it is to short but my english isn't good enought. :(

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

program IrokiFireMaker;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}


const


    {-->}      WorldNumber = 63;   // Enter World Number !!!      {<--}
               AntiBanYesOrNo = 0; // 0 - No , 1 - Yes
               MusicYesOrNo = 0; // 0 - No , 1 - Yes
               YourSRLID = '3721';
               YourSRLPassword = 'asdf56';
            
            
            
{******************************************************************************)
(                     Don't change anything!!! Only press run.                 )
(******************************************************************************)
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*/////////////////////////////////// ENJOY ////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
(******************************************************************************}

  version = '1.47';
  
var
  CTPbmp, LOIbmp, EXUbmp, LOObmp, MUSdtm, Bank, MyBankColor, MyMusicColor: Integer;
  x, y, Stuck, i, a, b, c, y, z, k, Logsburned, LVL, Makeing, NextLightingTurn,
  Term, DefineU, Tobank2, LGS, TinderBox, AllLogs, NewVersionCheck, NewVersionNowCheck, SRLNowCheck: Integer;
  PinNumber, d, u: string;

  IFMAuUsername, IFMAuPassword, IFMRSUsername, IFMRSPassword, IFMRSBankPin,
  IFMLogsToBurn, Location, Logs: string;
  AuthString, cVersion: string;


  IFMForm, NewVersion: TForm;
  MainPageControl: TPageControl;
  MainTabs: array[0..2] of TTabSheet;
  gbLoginBox, gbNoteBox, gbIFMPanel, gbHelpPanel, gbHelpBox, gbRSBox,
  gbLocationBox, gbLogsBox, gbIFMPReport, gbNewVersion: TGroupBox;
  ledUserName, ledPassWord, ledUserNameRS, ledPassWordRS, ledBankPin,
  ledLogsToBurn: TLabeledEdit;
  cbRememberMe: TCheckBox;
  butLogin, butLogout, butStartScript, butExitScript, butBuy, butIFMw,
  butIFMNews ,butCheckVersion, butSaveRS, butResetRS, butNewVersion,
  butNewLater, butNewVersionNow: TButton;

  ar_rbLocations: array[0..9] of TRadioButton;
  ar_rbLogs: array[0..4] of TRadioButton;
  WriteToMemo, ClearFromMemo, mmConnection, mmHelpMemo: TMemo;
  
  laRSUsername, laRSPassword, laRSBankPin,
  laLogsToBurn, laFMLevel, laWorkedFor, laLogsBurned,
  laLogsPerHour, laLogs, laLocation: TLabel;


  DebugSettingsForm : TForm;

    
procedure tSafeSendMemoText(t: string);
begin
  WriteToMemo.Lines.Add(t);
end;

procedure SafeSendMemoText(Memo: TMemo; t: string);
var
  V: TVariantArray;
begin
  V := [t];
  WriteToMemo := Memo;
  ThreadSafeCall('tSafeSendMemoText', V);
end;

procedure tSafeClearMemo;
begin
  ClearFromMemo.Clear;
end;

procedure SafeClearMemo(m: TMemo);
var
  V: TVariantArray;
begin
  V := [];
  ClearFromMemo := m;
  ThreadSafeCall('tSafeClearMemo', V);
end;


function strToStrArrayEx(strArray, Separater : String) : Array of String;
var
  i, spacePos: Integer;
begin
  repeat
    SetArrayLength(Result, i + 1);
    spacePos := Pos(Separater, strArray);
    if (not (spacePos = 0)) then
      Result[i] := (Copy(strArray, 1, spacePos - 1))
    else
    begin
      Result[i] := (Copy(strArray, 1, Length(strArray)));
      Break;
    end;
    Delete(strArray, 1, spacePos);
    i := i + 1;
  until (False)
end;


procedure Settings(WhatKind: string);
var
  i, SettingsFile: Integer;
  SettingsString: string;
begin
  case WhatKind of
    'create', 'reset':
    begin
      SettingsFile := ReWriteFile(AppPath + 'IFM\IFMSettings.sl', False);

      if(WhatKind = 'create')then
      begin
        WriteFileString(SettingsFile, 'Auth Username : ' + Chr(13));
        WriteFileString(SettingsFile, 'Auth Password : ' + Chr(13));
        WriteFileString(SettingsFile, 'Remember me : False' + Chr(13) + Chr(13));

        WriteFileString(SettingsFile, 'Location : None' + Chr(13));
        WriteFileString(SettingsFile, 'Logs : None' + Chr(13));

        WriteFileString(SettingsFile, 'RS Username : ' + Chr(13));
        WriteFileString(SettingsFile, 'RS Password : ' + Chr(13));
        WriteFileString(SettingsFile, 'RS Bank Pin : ' + Chr(13));
        WriteFileString(SettingsFile, 'Logs To Burn : ' + Chr(13));


      end else
      begin
        WriteFileString(SettingsFile, 'Auth Username : ' + ledUserName.Text + Chr(13));
        WriteFileString(SettingsFile, 'Auth Password : ' + ledPassWord.Text + Chr(13));
        WriteFileString(SettingsFile, 'Remember me : ' + BoolToStr(cbRememberMe.Checked) + Chr(13) + Chr(13));

        for i := 0 to Length(ar_rbLocations) - 1 do
          if(ar_rbLocations[i].Checked)then
            Break;

        if(i < Length(ar_rbLogs))then
          WriteFileString(SettingsFile, 'Logs : ' + ar_rbLogs[i].Caption + Chr(13))
        else
          WriteFileString(SettingsFile, 'Logs : None' + Chr(13));

        WriteFileString(SettingsFile, 'RS Username : ' + ledUserNameRS.Text + Chr(13));
        WriteFileString(SettingsFile, 'RS Password : ' + ledPassWordRS.Text + Chr(13));
        WriteFileString(SettingsFile, 'RS Bank Pin : ' + ledBankPin.Text + Chr(13));
        WriteFileString(SettingsFile, 'Logs To Burn : ' + ledLogsToBurn.Text + Chr(13));

      CloseFile(SettingsFile);
    end;
    end;

    'save':
    begin
      SettingsFile := ReWriteFile(AppPath + 'IFM\IFMSettings.sl', False);

      WriteFileString(SettingsFile, 'Auth Username : ' + ledUserName.Text + Chr(13));
      WriteFileString(SettingsFile, 'Auth Password : ' + ledPassWord.Text + Chr(13));
      WriteFileString(SettingsFile, 'Remember me : ' + BoolToStr(cbRememberMe.Checked) + Chr(13) + Chr(13));

      for i := 0 to Length(ar_rbLocations) - 1 do
        if(ar_rbLocations[i].Checked)then
          Break;

      if(i < Length(ar_rbLocations))then
        WriteFileString(SettingsFile, 'Location : ' + ar_rbLocations[i].Caption + Chr(13))
      else
        WriteFileString(SettingsFile, 'Location : None' + Chr(13));

      for i := 0 to Length(ar_rbLogs) - 1 do
        if(ar_rbLogs[i].Checked)then
          Break;

      if(i < Length(ar_rbLogs))then
        WriteFileString(SettingsFile, 'Logs : ' + ar_rbLogs[i].Caption + Chr(13))
      else
        WriteFileString(SettingsFile, 'Logs : None' + Chr(13));

      WriteFileString(SettingsFile, 'RS Username : ' + ledUserNameRS.Text + Chr(13));
      WriteFileString(SettingsFile, 'RS Password : ' + ledPassWordRS.Text + Chr(13));
      WriteFileString(SettingsFile, 'RS Bank Pin : ' + ledBankPin.Text + Chr(13));
      WriteFileString(SettingsFile, 'Logs To Burn : ' + ledLogsToBurn.Text + Chr(13));

      CloseFile(SettingsFile);
    end;

    'load':
    begin
      SettingsFile := OpenFile(AppPath + 'IFM\IFMSettings.sl', False);
      ReadFileString(SettingsFile, SettingsString, FileSize(SettingsFile));

      ledUserName.Text := Between('Auth Username : ', Chr(13), SettingsString);
      ledPassWord.Text := Between('Auth Password : ', Chr(13), SettingsString);
      cbRememberMe.Checked := StrToBoolDef(Between('Remember me : ', Chr(13), SettingsString), False);

      for i := 0 to Length(ar_rbLocations) - 1 do
        if(Between('Location : ', Chr(13), SettingsString) = ar_rbLocations[i].Caption)then
        begin
          ar_rbLocations[i].Checked := True;
          Break;
        end;

      if(i = Length(ar_rbLocations))then
        Location := 'None'
      else
        Location := ar_rbLocations[i].Caption;


      for i := 0 to Length(ar_rbLogs) - 1 do
        if(Between('Logs : ', Chr(13), SettingsString) = ar_rbLogs[i].Caption)then
        begin
          ar_rbLogs[i].Checked := True;
          Break;
        end;

      if(i = Length(ar_rbLogs))then
        Logs := 'None'
      else
        Logs := ar_rbLogs[i].Caption;

      ledUserNameRS.Text := Between('RS Username : ', Chr(13), SettingsString);
      ledPassWordRS.Text := Between('RS Password : ', Chr(13), SettingsString);
      ledBankPin.Text := Between('RS Bank Pin : ', Chr(13), SettingsString);
      ledLogsToBurn.Text := Between('Logs To Burn : ', Chr(13), SettingsString);


      CloseFile(SettingsFile);
    end;
  end;
end;

{******************************************************************************)
(                                                                              )
(******************************************************************************)
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
(******************************************************************************}

procedure DefineLoginImages;
begin

  CTPbmp := BitmapFromString(11, 10, 'beNrzNHGw58xIs8goL4GjgN' +
       'g4fVMDJiZGcXEuNXVOIyM2uIL1u3fBFQClgAqACKjAx9Okrbt52tw' +
       'FEAVoaoBWQGwBqkFTAEQQBUDZk+cSgAioBuqSNAuIAqAhQAUp6dzv' +
       'vlQDEVANkAuRgshCENAZEBMmzzCE2AgUgSO4U4HGAo0CIogaiDKgd' +
       'qB/IQjiHog5QGVAr0EsAkp5MDFA1AAFgbIQNUADgVwfAKmFXqA=');

  LOIbmp := BitmapFromString(20, 12, 'beNqVksEKwkAQQ/0mhSIuWJ' +
       'E9VA89+f+/sk37IKRbPbiEkk4zmZnOlnor9T6+hGedARE4nxQBw/U' +
       'hOEXkfCl6WoysbSdzlSWlIOJ4i2NP4bQdGbb9UTqN8YoMTle2SnNr' +
       'aMPB9LFeXFWO/l08c5Orvb/0v+qmz/T+HH+F4jlL6jPu1XSzsDj/Z' +
       'wvYJty5IGt5m94phiaeJRdNra9XwvcKeJxcRGZ1l5D4ShbdAj02');

  EXUbmp := BitmapFromString(23, 16, 'beNqNU9EKwkAM23cpKMgedK' +
       'C+DAe++v/foIFAjMkUjzJ6vSxtc71pPowX2nGaaYrQztf7bXngqyM' +
       '42DJCh34A8BdNGEcKvNufYNiugj2vF+kkDgiGZy3kEpipRestN8nw' +
       'uZyHVK3bKolrxQI221FlRL8ugpOEAmGMExwk2LYaDpavy2W/cSOhi' +
       'a7PyXmkjKpEg9GaaAaCAXU6+Juwaj8qkdr/kEjSbofx3ySR1xtR0O' +
       'M98EMt4CUFzGXp2+m31k/P4z7AMVSBjCev7ZvzBb95r/M=');

  LOObmp := BitmapFromString(23, 24, 'beNp9lc0rRGEUxleGmXwkyU' +
       '7NhyQfMWg2M5RmSqKs5KMoG7LTlMjCmho7VlZmM3+AJrKTsrSxkLK' +
       'zsla2ftej03HvUE+3M+d9znPPed73vZPNZIdSDdETjyXizQ0RJeey' +
       'GcGXg8+Pt/fXK+H5vgIUk5eUFUZh5efH5etqWVUmQoa8SfnCwuQg8' +
       'AqqOt2dmzhIrzzmBWIyJigd1aqcpxR413P9UApbxeRwb8fsWPfyVA' +
       'YQk/nRqR/CDOn4HqBtprpGWltI8iwmY4K8IsOqpEL9sFo722He24s' +
       '14tX+ZmEv3ylYTLA13g4HJnyqvIic5BXEtL2/kIZ8Mt8LQiI84cCU' +
       'zxJRhpERZ3Z+4kOhr0cgbigCEz5jUmv7wowvD5f0kE400QOwQostC' +
       'DjFJHyq1AkiBDKcJawL+RD1BA5MbaX3hIzaCwi/OzGRp9rGXWUGl7' +
       'Rr8KmiVrMwl6bDGY1DFZmQyE15tLo9oHFgqmppsaRDS0saEBtNJNq' +
       'JJeHAlI12/glojE03kX88MRH4VHkRMoD2INim+HPijYIDUyUSiXoS' +
       'OifyR7PIKPMEAk99Q4It/r5WlNixh6+3g+m2hJIEOvaBJ99X1T5T8' +
       'gToopmIXSL21AdwWFWJF6ErQJ8iiG9X2ETkBhwClXiR6lEJl7h3cO' +
       'TnP4ADEz5VXoQdF4JJf4ODCkJJ43sRlAHtVdb7dIr+AqtwYKrEf2z' +
       '9nwIcgUPuYXlPzn0Bc1/z/A==');
       
  MUSdtm := DTMFromString('78DA63BCC3C4C0709D9101197474F48269982' +
       '8E317A09AD7A86A32B38A51D5DCC15453565683AAE62350CD1502' +
       'E67C00AAB947C03D8F806A1E1250F312A8E639AA9A593367936E1' +
       '7C8CD3751D56CD9B00655CD73A09A6B04D43CC5F47B525226AA9A' +
       'BB40359709B80764CE2B5435F2D21298EE7941C0AEB740358F08C' +
       '40548CD1D5435212111986E7E8CAAC6D1DE1E55CD6DA09A5B04EC' +
       '7A811986187681E2EB018134F616331D6284CF674C7FE9EB1B63A' +
       '6E7ABF8E3020009A74714');
end;

Procedure DefineLogsImages;
Begin
Settings('load');
Case (Logs) Of

'Normal logs': Begin
          LGS := DTMFromString('78DA6394606060E06740011B260432FC07D28' +
       'C40FC1F0818A5800C494C350C5035605A154808A0AA49F6D14355' +
       'A38E690E4C16AE46084888125003325682801A1D20C18D5F0D003' +
       'BCB0A80');
               End;

'Oak logs':    Begin
          LGS := DTMFromString('78DA6354606060E0614001CBDBE319FE03694' +
       '620FE0F048C4A408604A61A06A81A30AD0324F850D534245BA3AA' +
       '910412420C688011558D16909024A0C69CB03900E75C0A9A');
               End;

'Willow logs': Begin
          LGS := DTMFromString('78DA63DCC9C8C0C0C6C4800C023DE518FE036' +
       '9A00CC37F20605C0B6431A2AA81C8C248200D52C34A40CD2A4CBB' +
       '30D4AC04B2B88930878F809A7540163F01351B812C21026AB612A' +
       '1660F90254040CD0E204B90809A0344B8F93890C54940CD5122C2' +
       'E71090C54240CD1122E214640E03AA1A25796114350046011346');
               End;

'Maple logs':  Begin
          LGS := DTMFromString('78DA6394676060106040013DE9C60CFF81342' +
       '310FF07024605204312530D03540D98D6C13427DA8E1B558D0490' +
       '106540038CA86AD480840C01356640420CBF1A002221095A');
               End;

'Yew logs':    Begin
          LGS := DTMFromString('78DA6354606060E06740016D79760CFF81342' +
       '310FF0702462520430A530D03540D98D6051242A86ADCCD3851D5' +
       '1803091E5435F2C2CCA86A0C818434031A60445503728B047E350' +
       '040800990');
               End;

         End;
         
  TinderBox := DTMFromString('78DA8DD24D0A83400C05E08C075541C46E0A4' +
       'A2D153DA89642F1A782BA28F604FA7423A8F4258BCCE683970931' +
       'B625D2CAAE8C4C6B179950C681198E66EB783D982F3101CC484C0' +
       '8F323E6A6C87AC0F4C424301D31D9F97E0EA6262685A914333313' +
       'C3940AF35664BD14FB79127387C98989600A62AE8AAC8B62665FF' +
       '17717A62166B9F9CF7F3303841323C5');

  AllLogs := DTMFromString('78DA632C66626078C1800282BD6419FE03694' +
       '620FE0F048C8D986A20B23012485702D5BC25A026830835354035' +
       '8FF0AB01002EEB0CAB');
       
End;

procedure LoginMyPlayer;
begin
  DefineLoginImages;
  if (FindBitmapIn(LOObmp, x, y, 736, 0, 766, 30)) then
      begin
        WriteLn('You are at RS!!!');
        Wait(1000 + Random(500));
      end else
      begin
        If (MusicYesOrNo = 0) Then
          Begin
            MyMusicColor := GetColor(745, 480);
            If (MyMusicColor = 8156790) Then
              Begin
                Mouse(745, 480, 5, 5, true);
                Wait(500 + Random(500));
              End;
          End;
        if (FindBitmapIn(EXUbmp, x, y, 387, 264, 455, 303)) then
          begin
            WriteLn('Login player: ' + (ledUserNameRS.Text))
            Mouse(x, y, 0, 0, true);
            Wait(1000 + Random(500));
          end;
        if (FindBitmapIn(LOIbmp, x, y, 285, 245, 350, 333)) then
          begin
            TypeSend(ledUserNameRS.Text);
            TypeSend(ledPassWordRS.Text);
            Wait(200 + Random(300));
            Mouse(x, y, 0, 0, true);
            Wait(17000 + Random(2000));
          end;
        if (FindBitmapIn(CTPbmp, x, y, 300, 330, 333, 351)) then
          begin
            Mouse(x, y, 0, 0, true);
            Wait(2500 + Random(500));
          end;
      end;
end;

Procedure DeclarePlayers;

Begin
HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name        := ledUserNameRS.Text;
  Players[0].Pass        := ledPassWordRS.Text;
  Players[0].Nick        := 'xyzv';
  Players[0].Active      := True;
  Players[0].Strings[0]  := ledBankPin.Text;
  Players[0].Strings[1]  := ledLogsToBurn.Text;

End;


Procedure ProgressReport;
Begin
  If DefineU = 0 Then
  Begin
    u := ledLogsToBurn.Text;
    DefineU := 1;
    k := (strToint(u)) - 1;
  End;
  If DefineU = 2 Then
  Begin
    k := k - 1;
    If k = 0 Then
      TerminateScript;
  End;
  If DefineU = 1 Then
  Begin
    k := k;
    DefineU := 2;
  End;
  ClearDebug;
  WriteLn('/*****************************************\');
  WriteLn('*         Iroki Fire Maker v' + (version) + '          *');
  WriteLn('*******************************************');
  WriteLn('* FireMaking lvl   : ' + (intTostr(LVL)) +'/99');
  WriteLn('* Logs To Burn     : ' + (intTostr(k)));
{  WriteLn('* Player           : ' + (ledUserNameRS.Text));
  WriteLn('* Bank/Water Color : ' + (intTostr(MyBankColor)) + '/' + (intTostr(WaterColor)));
  WriteLn('*******************************************');                                       }
  WriteLn('* Worked For       : ');
  WriteLn('*       ' + (timerunning));
  WriteLn('* Logs Burned      : ' + (intTostr(Logsburned)));
  WriteLn('\*****************************************/');
  
  SRLRandomsReport;

End;


procedure Chats;
begin
  Status('Makeing chats');
  SetChat('on', 1);
  SetChat('friends', 2);
  SetChat('friends', 3);
  SetChat('friends', 4);
  SetChat('off', 5);
  Mouse(275, 175, 15, 15, true);
  Wait(500 + Random(200));
end;

procedure AntiBan;
var
  b: Integer;
begin
  If(not LoggedIn)then exit;
  b := Random(100);
  case (b) of
    0: HoverSkill('random',false);
    1: HoverSkill('random',false);
    2: TypeSend('My FM lvl ' + (intTostr(LVL)) + ' xD');
    3: HoverSkill('firemaking',false);
    4: PickUpMouse;
    5: BoredHuman;
    6: RandomMovement;
  End;
End;

{
procedure CheckForAllRandoms;
begin
   FindNormalRandoms;
   FindInventoryRandoms;
   FindNonInventoryRandoms;
   FindTalk;
   DwarfItem;
   If (FindFight) Then
     Begin
       Mouse(,,20, 20, True);
       FindSymbol(x, y, 'Bank');
       Mouse(x, y, 2, 2, True);
       Wait(4000 + Random(1000));
       FindObj(x, y, 'Use Bank', 2903389, 15);
       Mouse(x, y, 4, 0, False);
       Wait(500 + Random(700));
       ClickOption('Use-quickly', 1);
       Wait(500 + Random(50));
       CustomRunAway((Random(90000) + 30000));
end;
}

Procedure Openingbank;
Begin
  Status('Serching bank booths');
  Settings('load');
  FindNormalRandoms;
  If Location = 'Edgeville' Then
    Begin
      If Not (BankScreen) Then
        Repeat
          FindNormalRandoms;
          If (FindObj(x, y, 'Use Bank', 2903389, 15)) Then
            Mouse(x, y, 4, 0, False);
            Wait(500 + Random(700));
            Status('Useing-quickly bank booth');
            If (ClickOption('Use-quickly', 1)) Then
              Begin
                Bank := Bank + 1;
              End;
            Wait(2500 + Random(2500));
            If(PinScreen)Then
              If Not(InPin(PinNumber))Then
                Writeln('Wrong pin.');
        Until (BankScreen);
      FindNormalRandoms;
    End;
  If Location = 'Falador - West' Then
    Begin
    End;
  If Location = 'Falador - East' Then
    Begin
    End;
  If Location = 'Varrock - West' Then
    Begin
    End;
  If Location = 'Varrock - East' Then
    Begin
    End;
  If Location = 'Lumbridge' Then
    Begin
    End;
  If Location = 'Al Khaird' Then
    Begin
    End;
  If Location = 'Draynor' Then
    Begin
    End;
  If Location = 'Duel Arena' Then
    Begin
    End;
  If Location = 'Grand Exchange' Then
    Begin
    End;
End;

function RadialWalkOff(TheColor: Integer; StartRadial, EndRadial: Integer; Radius: Integer; Xmod, Ymod, xoff, yoff: Integer): Boolean;
var
  tpa: TPointArray;
  i: Integer;
begin
  Result := False;
  if RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, StartRadial, EndRadial, Radius) then
    for i := 0 to High(tpa) do
      if MFNF(tpa[i].x + xoff, tpa[i].y + yoff, Xmod, Ymod) then
      begin
        FFlag(10);
        Result := True;
        Break;
      end;
end;

Function w_GetBankColor: Integer;

Var
   x, y, z: Integer;

Begin
  Result := -1;
  z := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  If FindColoredAreaTolerance(x, y, 8224391, MMX1, MMY1, MMX2, MMY2, 10, 25) Then
    Result := GetColor(x, y)
  Else
  Begin
    WriteLn('Could not find bank Color.');
    ColorToleranceSpeed(z);
    TerminateScript;
  End;
  ColorToleranceSpeed(z);
End;


procedure Tobank;
begin
  Settings('load');
  FindNormalRandoms;
  If (Location = 'Edgeville') Then
    Begin
      If (AntiBanYesOrNo = 1) Then
      Begin
        MakeCompass('E');
        MakeCompass('N');
        SetAngle(True);
      End;
      FindNormalRandoms;
      Wait(3500 + random(500));
      Tobank2 := 0;
      If Tobank2 = 0 Then
        Begin
        If FindSymbol(x, y, 'bank')Then
          Begin
            FindNormalRandoms;
            Mouse(x + 3, y, 2, 2, True);
            Tobank2 := 1;
            Wait(7000 + Random(1000));
          End Else
            Tobank2 := 0
        End;
      If Tobank2 = 0 Then
        Begin
          FindNormalRandoms;
          If RadialWalk(MyBankColor, 90, 45, 70, -1, -1) Then
            Begin
              FindNormalRandoms;
              Wait(1000 + Random(500));
              Tobank2 := 1;
            End Else
              Begin
                Tobank2 := 0;
                WriteLn('WTF???');
              End;
        End;
      If Tobank2 = 0 Then
        Begin
          FindNormalRandoms;
          If RadialWalk(BankColor, 90, 45, 68, -1, -1) Then
            Begin
              FindNormalRandoms;
              Wait(1000 + Random(500));
              Tobank2 := 1;
            End Else
              Begin
                Tobank2 := 0;
                WriteLn('WTF???');
              End;
        End;
      If Tobank2 = 0 Then
        Begin
          FindNormalRandoms;
          Mouse(488, 51, 5, 5, true);
          Wait(6500 + random(500));
          Mouse(440, 80, 5, 5, true);
          Wait(4500 + random(500));
          Mouse(374, 130, 5, 5, true);
          Wait(500 + random(500));
          Tobank2 := 1;
        End;
    End;
  If (Location = 'Falador - West') Then
    Begin
    End;
  If (Location = 'Falador - East') Then
    Begin
    End;
  If (Location = 'Varrock - West') Then
    Begin
    End;
  If (Location = 'Varrock - East') Then
    Begin
    End;
  If (Location = 'Lumbridge') Then
    Begin
    End;
  If (Location = 'Al Khaird') Then
    Begin
    End;
  If (Location = 'Draynor') Then
    Begin
    End;
  If (Location = 'Duel Arena') Then
    Begin
    End;
  If (Location = 'Grand Exchange') Then
    Begin
    End;
End;


Function SerchTakeLogs: Boolean;
Begin
  Settings('load');
  Status('Serching & Windthrawing ' +(Logs));
  SRLRandomsReport;
  SendSrlReport;
  DefineLogsImages;
    Repeat
      If(FindDtm(LGS, x, y, MSX1, MSY1, MSX2, MSY2))Then
      Begin
        FindNormalRandoms;
        MMouse(470, 150, 50, 50);
        Mouse(x, y, 5, 5, False);
        Wait(200 + Random(300));
        If (ClickOption('Withdraw All', 1)) Then Result := True;
      End Else
      Begin
        FindNormalRandoms;
        WriteLn('Couldn''t Find ' + (Logs) + ' DTM');
        Wait(400 + Random(100));
        WriteLn('Next Try...');
        Wait(400 + Random(100));
        LGS := DTMFromString('78DA632C66626078C1800282BD6419FE03694' +
             '620FE0F048C8D986A20B23012485702D5BC25A026830835354035' +
             '8FF0AB01002EEB0CAB');
        If(FindDtm(LGS, x, y, MSX1, MSY1, MSX2, MSY2))Then
          Begin
            FindNormalRandoms;
            MMouse(470, 150, 50, 50);
            Mouse(x, y, 5, 5, False);
            Wait(200 + Random(300));
            If (ClickOption('Withdraw All', 1)) Then Result := True;
          End Else
            Begin
              WriteLn('No Logs!!!');
              Wait(400 + Random(100));
              WriteLn('Logging Out...');
              CloseBank;
              LogOut;
              TerminateScript;
            End;
      End;
    Until (Result);
End;


Procedure Dontstuck;
begin
    if InChat('ght a') then
     begin
       FindNormalRandoms;
       Stuck := Random(4);
       case Stuck of
       0: Mouse(209, 175, 10, 10, true);
       1: Mouse(170, 175, 10, 10, true);
       2: Mouse(214, 216, 10, 10, true);
       3: Mouse(248, 144, 10, 10, true);
     end;
     wait(1000 + Random(50));
     z := z - 1;
     Logsburned := Logsburned - 1;
  end;
end;

procedure FiremakingLVL;
begin
 if InChat('adva')then
   begin
   LVL := LVL + 1;
  end;
end;

function Wherelighting: Boolean;
begin
  FindNormalRandoms;
  Status('Serching for pleace where you make a fire');
  MakeCompass('N');
  if ( not (BankScreen)) then
    repeat
    FindNormalRandoms;
      if (FindObj(x, y, 'Walk here / 1 more options', 3238717, 15)) then
        Mouse(x, y, 4, 4, False);
      Wait(500 + Random(500));
      Status('Going to pleace where you make a fire');
      if (ClickOption('Walk here', 1)) then
      Result := True;
      Wait(2500 + Random(500));
      Dontstuck;
    until (Result);
  if(FindObj(x, y, 'Open Coffin / 2 more options', 5727325, 15)) then
    begin
      FindNormalRandoms;
      Mouse(201, 45, 10, 10, True);
      Wait(3500 + Random(200));
      Mouse(300, 76, 10, 10, True);
      Wait(3500 + Random(100));
      repeat
      FindNormalRandoms;
      if (FindObj(x, y, 'Walk here / 1 more options', 3238717, 15)) then
      Mouse(x, y, 4, 4, False);
      Wait(500 + Random(500));
      Status('Going to pleace where you make a fire');
      if (ClickOption('Walk here', 1)) then
      Result := True;
      Wait(3000 + Random(400));
      Dontstuck;
    until (Result);
    end;
      if(FindObj(x, y, 'Open Coffin / 2 more options', 4738381, 15)) then
    begin
      Mouse(201, 45, 10, 10, True);
      Wait(3500 + Random(200));
      Mouse(300, 76, 10, 10, True);
      Wait(3500 + Random(100));
      repeat
      FindNormalRandoms;
      if (FindObj(x, y, 'Walk here / 1 more options', 3238717, 15)) then
        Mouse(x, y, 4, 4, False);
      Wait(500 + Random(500));
      Status('Going to pleace where you make a fire');
      if (ClickOption('Walk here', 1)) then
      Result := True;
      Wait(3000 + Random(400));
      Dontstuck;
    until (Result);
    end;
    if(FindObj(x, y, 'Walk here / 1 more options', 1348519, 15)) then
    begin
      Mouse(244, 323, 5, 5, True);
      Wait(5500 + Random(500));
      repeat
      FindNormalRandoms;
      if (FindObj(x, y, 'Walk here / 1 more options', 3238717, 15)) then
        Mouse(x, y, 4, 4, False);
      Wait(500 + Random(500));
      Status('Going to pleace where you make a fire');
      if (ClickOption('Walk here', 1)) then
      Result := True;
      Wait(3000 + Random(400));
      Dontstuck;
    until (Result);
  end;
end;

Function w_GetWaterColor: Integer;

Var
   x, y, z: Integer;

Begin
  Result := -1;
  z := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  If FindColoredAreaTolerance(x, y, 12161662, MMX1, MMY1, MMX2, MMY2, 10, 25) Then
    Result := GetColor(x, y)
  Else
  Begin
    WriteLn('Could not find water Color.');
    ColorToleranceSpeed(z);
    TerminateScript;
  End;
  ColorToleranceSpeed(z);
End;


Procedure ToFire;
Begin
  Settings('load');
  FindNormalRandoms;
  If (Location = 'Edgeville') Then
    Begin
      If Not (LoggedIn) Then Exit;
      MakeCompass('N');
      Wait(50);
      FindNormalRandoms;
      If RadialWalkOff(WaterColor, 120, 125, 70, -1, -1, -25, - 3) Then
      Begin
        FindNormalRandoms;
        FFlag(15);
        FindNormalRandoms;
        Wait(1000 + Random(500));
        FindNormalRandoms;
      End;
    End;
  If (Location = 'Falador - West') Then
    Begin
    End;
  If (Location = 'Falador - East') Then
    Begin
    End;
  If (Location = 'Varrock - West') Then
    Begin
    End;
  If (Location = 'Varrock - East') Then
    Begin
    End;
  If (Location = 'Lumbridge') Then
    Begin
    End;
  If (Location = 'Al Khaird') Then
    Begin
    End;
  If (Location = 'Draynor') Then
    Begin
    End;
  If (Location = 'Duel Arena') Then
    Begin
    End;
  If (Location = 'Grand Exchange') Then
    Begin
    End;
End;

{
procedure Fire;
begin
  GameTab(4);
  Status('Makeing fires!!');
  for z := 2 to 28 do
  begin
    FindNormalRandoms;
    MouseItem(z, true);
    FiremakingLVL;
    FindNormalRandoms;
    FindTalk;
    if (not(FindNormalRandoms)) then
    Begin
      Wait (1900 + Random(150));
      MouseItem(1, true);
      Dontstuck;
      If (AntiBanYesOrNo = 1) Then AntiBan;
      Logsburned := Logsburned + 1;
      ReportVars[0] := ReportVars[0] + 1;
      SendSrlReport;
      FiremakingLVL;
      ProgressReport;
      SRLRandomsReport;
    End Else
    begin
      FindNormalRandoms;
    end;
  end;
end;
}
Procedure Fire;
Begin
  DefineLogsImages;
  GameTab(4);
  Status('Makeing fires!!');
  Repeat
    FindNormalRandoms;
    FindDtm(TinderBox, x, y, 545, 200, 766, 473);
    Mouse(x + 10, y, 5, 5, true);
    FindNormalRandoms;
    Wait (1900 + Random(150));
    FindDtm(AllLogs, x, y, 545, 200, 766, 473);
    Mouse(x, y, 5, 5, true);
    FindNormalRandoms;
    Dontstuck;
    Logsburned := Logsburned + 1;
    ReportVars[0] := ReportVars[0] + 1;
    SendSrlReport;
    FiremakingLVL;
    ProgressReport;
    If (AntiBanYesOrNo = 1) Then AntiBan;
    FindNormalRandoms;
    SRLRandomsReport;
  Until (Not(FindDtm(AllLogs, x, y, 545, 200, 766, 473)));
End;


procedure SetupPlayer;
begin
  Settings('load');
  DeclarePlayers;
  ActivateClient;
  PinNumber := Players[CurrentPlayer].Strings[0];
  FindNormalRandoms;
  SetAngle(True);
  MakeCompass('E');
  MakeCompass('N');
  Chats;
  LVL := GetSkillInfo('firemaking', false);
  If Location = 'Edgeville' Then
    Begin
      WaterColor := w_GetWaterColor;
      BankColor := w_GetBankColor;
      MyBankColor := GetColor(623, 85);
    End;
  If (Location = 'Falador - West') Then
    Begin
    End;
  If (Location = 'Falador - East') Then
    Begin
    End;
  If (Location = 'Varrock - West') Then
    Begin
    End;
  If (Location = 'Varrock - East') Then
    Begin
    End;
  If (Location = 'Lumbridge') Then
    Begin
    End;
  If (Location = 'Al Khaird') Then
    Begin
    End;
  If (Location = 'Draynor') Then
    Begin
    End;
  If (Location = 'Duel Arena') Then
    Begin
    End;
  If (Location = 'Grand Exchange') Then
    Begin
    End;
  Writeln('Creating the NickTPA.');
  Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Name, UpChars);
  WriteFileString(TheFile, Chr(13) + 'Current player: '+ UpperCase(Players[CurrentPlayer].Name) + Chr(13)); //* Save NAME to file
end;

procedure MakeThis;
begin
  Settings('load');
  SetupPlayer;
  Openingbank;
  SerchTakeLogs;
  ToFire;
  Wherelighting;
  Dontstuck;
  Fire;
  Dontstuck;
  repeat
  If (FindBitmapIn(EXUbmp, x, y, 387, 264, 455, 303)) Then
    Begin
      TerminateScript;
    End;
    Tobank;
    Openingbank;
    SerchTakeLogs;
    ToFire;
    Wherelighting;
    Fire;
    Dontstuck;
  until (FindBitmapIn(EXUbmp, x, y, 387, 264, 455, 303));
end;



procedure Signature;
begin
  ClearDebug
  Writeln(' __           __                                     __');
  Wait(100);
  Writeln('|  |__ __ __ |  | __ __      ____ ____ __ ____ _____|  |_ ___ ');
  Wait(100);
  Writeln('|  |  | / _ \|  |/  |__|    / ___|  __\  | /__|  _  \   / ___|');
  Wait(100);
  Writeln('|  |   / |_| |     <   |   _\__  \ <__|   /|  | |_| |  |___  \');
  Wait(100);
  Writeln('|__|__|\____/|__|\__|__|  |______/____/__| |__|  __ /__|_____/');
  Wait(100);
  Writeln('                                              |__|');
  Wait(300);
  Writeln('                     /********************\');
  Writeln('                     *  Iroki Fire Maker  *');
  Writeln('                     \********************/');
  Wait(200);

end;

{******************************************************************************)
(                                                                              )
(******************************************************************************)
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
*//////////////////////////////////////////////////////////////////////////////*
(******************************************************************************}

procedure UpdateScript(URL, FilePath, FileName, FileType : string);
var
  FileNum: integer;
  WebPage: string;
begin
  WebPage := GetPage(URL);
  FileNum := ReWriteFile ( '' + FilePath + '' + FileName + '' + FileType + '' , true );
  if( FileNum < 0 )then
    Exit;
  WriteFileString(FileNum, WebPage);
  CloseFile(FileNum);
end;


procedure VersionChecker;
begin
  begin
    UpdateScript('http://irokiautofiremaker.eu.interia.pl/IrokiFireMaker.txt' , ScriptPath , 'Iroki Fire Maker v' + cVersion ,'.scar');
    WriteLn('Script updated.');
    Wait(1000);
    WriteLn('Please close this window and SCAR. And run version v' + (cVersion) + '');
  end;
end;

procedure Authenticate;
var
  i: Integer;
begin
  butLogin.Enabled := False;
  butLogout.Enabled := True;
  cbRememberMe.Enabled := False;
  IFMAuUsername := ledUserName.Text;
  IFMAuPassword := ledPassWord.Text;
  SafeSendMemoText(mmConnection, 'Logging in...');
  SafeSendMemoText(mmConnection, '');
  AuthString := GetPage('http://irokiautofiremaker.eu.interia.pl/' + LowerCase(ledUserName.Text) + '-.-' + LowerCase(ledPassWord.Text) + '.htm');
  if(pos('404', AuthString) > 0)then
  begin
    SafeSendMemoText(mmConnection, 'Logging in failed.');
    SafeSendMemoText(mmConnection, '');
    butLogin.Enabled := True;
    butLogout.Enabled := False;
    cbRememberMe.Enabled := True;
    ledUserName.Enabled := True;
    ledPassWord.Enabled := True;
    exit;
  end;
  SafeSendMemoText(mmConnection, 'Succesfully logged in, continueing...');
  SafeSendMemoText(mmConnection, '');
  butLogout.Enabled := True;
  Wait(1000);
  Settings('save');
  MainTabs[1].TabVisible := True;
  MainPageControl.ActivePageIndex := 1;
  for i := 0 to Length(ar_rbLocations) - 1 do
  begin
    if(pos(ar_rbLocations[i].Caption, AuthString) = 0)then
    begin
      if(ar_rbLocations[i].Checked)then
      begin
        ar_rbLocations[9].Checked := True;
      end;
      ar_rbLocations[i].Enabled := False
    end;
  end;
end;

procedure SafeShowDebugSettingsForm;
begin
  DebugSettingsForm.Show;
end;


procedure ClickOnIFM(Sender: TObject);
var
  i: Integer;
  s: string;
  ProcessStrings: TStringArray;
begin
  case Sender of
    butLogin          :
    begin
      Authenticate;
    end;
    butLogout         :
    begin
      SafeSendMemoText(mmConnection, 'Logging out...');
      SafeSendMemoText(mmConnection, '');
      butLogin.Enabled := True;
      butLogout.Enabled := False;
      cbRememberMe.Enabled := True;
      ledUserName.Enabled := True;
      ledPassWord.Enabled := True;
      MainTabs[1].TabVisible := False;
      MainTabs[2].TabVisible := True;

    end;
    butNewVersion     :
    begin
       OpenWebPage('http://www.villavu.com/forum/showthread.php?t=23353');
       NewVersion.ModalResult:= mrOk;
       NewVersionCheck := 1;
    end;
    butNewVersionNow  :
    Begin
      VersionChecker;
      NewVersionNowCheck := 1;
    End;
    butNewLater       :
    begin
       NewVersion.ModalResult:= mrOk;
    end;
    butStartScript    :
    begin
      for i := 0 to High(ar_rbLocations) do
        if(ar_rbLocations[i].Checked)then
          Break;
      if(i = Length(ar_rbLocations))then
        IFMForm.ModalResult := mrOk;
      for i := 0 to High(ar_rbLogs) do
        if(ar_rbLogs[i].Checked)then
          Break;
      if(i = Length(ar_rbLocations))then
        IFMForm.ModalResult := mrOk;
      MainTabs[0].TabVisible := False;
      MainTabs[1].TabVisible := True;
      MainTabs[2].TabVisible := True;
      butExitScript.Enabled := True;
      butBuy.Enabled := False;
      butStartScript.Enabled := False;
      butIFMw.Enabled := False;
      butIFMNews.Enabled := False;
      butCheckVersion.Enabled := False;
      butSaveRS.Enabled := False;
      butResetRS.Enabled := False;
      ledUserNameRS.Enabled := False;
      ledPassWordRS.Enabled := False;
      ledBankPin.Enabled := False;
      ledLogsToBurn.Enabled := False;
      for i := 0 to Length(ar_rbLocations) - 1 do
        ar_rbLocations[i].Enabled := False;
      for i := 0 to Length(ar_rbLogs) - 1 do
        ar_rbLogs[i].Enabled := False;
      Settings('save');
      Settings('load');
      Makeing := 1;
      IFMForm.ModalResult := mrOk;


    end;

    butExitScript     :
    begin
      IFMForm.ModalResult := mrOk;
      Term := 1;
    end;
    
    butSaveRS         :
    begin
      IFMRSUsername := ledUserNameRS.Text;
      IFMRSPassword := ledPassWordRS.Text;
      IFMRSBankPin := ledBankPin.Text;
      IFMLogsToBurn := ledLogsToBurn.Text;
      Settings('save');
      Settings('load');
      butResetRS.Enabled := True;
      butSaveRS.Enabled := False;
      ledUserNameRS.Enabled := False;
      ledPassWordRS.Enabled := False;
      ledBankPin.Enabled := False;
      ledLogsToBurn.Enabled := False;
    end;
    
    butResetRS        :
    begin
      ledUserNameRS.Text := '';
      ledPassWordRS.Text := '';
      ledBankPin.Text := '';
      ledLogsToBurn.Text := '';
      IFMRSUsername := ledUserNameRS.Text;
      IFMRSPassword := ledPassWordRS.Text;
      IFMRSBankPin := ledBankPin.Text;
      IFMLogsToBurn := ledLogsToBurn.Text;
      Settings('save');
      Settings('load');
      butResetRS.Enabled := False;
      butSaveRS.Enabled := True;
      ledUserNameRS.Enabled := True;
      ledPassWordRS.Enabled := True;
      ledBankPin.Enabled := True;
      ledLogsToBurn.Enabled := True;
    end;
    
    butIFMNews        :
    begin

      s := GetPage('http://irokiautofiremaker.eu.interia.pl/News.txt');
      ProcessStrings := strToStrArrayEx(s, Chr(13));
      SafeSendMemoText(mmHelpMemo, 'News from IFM (v' + ProcessStrings[0] + ') :');
      for i := 1 to High(ProcessStrings) do
        SafeSendMemoText(mmHelpMemo, ProcessStrings[i]);
        SafeSendMemoText(mmHelpMemo, '');
    end;
    butCheckVersion   :
    begin
      SafeSendMemoText(mmHelpMemo, '');
      SafeSendMemoText(mmHelpMemo, 'Checking, please wait..');
      cVersion := GetPage('http://irokiautofiremaker.eu.interia.pl/Ver.txt');
      if(cVersion > (version))then
      begin
        SafeSendMemoText(mmHelpMemo, '');
        SafeSendMemoText(mmHelpMemo, 'Your current version is outdated.');
        SafeSendMemoText(mmHelpMemo, '');
        SafeSendMemoText(mmHelpMemo, 'Your version: v' + (version) + ', the latest version: v' + (cVersion));
        SafeSendMemoText(mmHelpMemo, '');
        SafeSendMemoText(mmHelpMemo, 'Check [url]www.SRL-Forums.com[/url] for an update.');
        SafeSendMemoText(mmHelpMemo, '');
      end else
      begin
        SafeSendMemoText(mmHelpMemo, '');
        SafeSendMemoText(mmHelpMemo, 'You are up to date.');
        SafeSendMemoText(mmHelpMemo, '');
      end;
    end;
    butIFMw           :
    begin
      s := GetPage('http://irokiautofiremaker.eu.interia.pl/What.txt');
      ProcessStrings := strToStrArrayEx(s, Chr(13));
      SafeSendMemoText(mmHelpMemo, '' + ProcessStrings[0] + '');
      for i := 1 to High(ProcessStrings) do
        SafeSendMemoText(mmHelpMemo, ProcessStrings[i]);
        SafeSendMemoText(mmHelpMemo, '');
    end;
    butBuy            :
    begin
      SafeSendMemoText(mmHelpMemo, '');
      SafeSendMemoText(mmHelpMemo, '           It''s Free Version - Enjoy!!!');
    end;
    
  end;
end;


  
procedure FillTabs;
var
  i: Integer;
begin
  gbLoginBox := TGroupBox.Create(IFMForm);
  gbLoginBox.Parent := MainTabs[0];
  gbLoginBox.Left := 15;
  gbLoginBox.Top := 20;
  gbLoginBox.Width := 195;
  gbLoginBox.Height := 200;
  gbLoginBox.Caption := 'Authentication';

    ledUserName := TLabeledEdit.Create(IFMForm);
    ledPassWord := TLabeledEdit.Create(IFMForm);

    ledUserName.Parent := gbLoginBox;
    ledUserName.Left := 90;
    ledUserName.Top := 47;
    ledUserName.Width := 70;
    ledUserName.LabelPosition := lpLeft;
    ledUserName.LabelSpacing := 10;
    ledUserName.EditLabel.Caption := 'Username';

    ledPassWord.Parent := gbLoginBox;
    ledPassWord.Left := 90;
    ledPassWord.Top := 72;
    ledPassWord.Width := 70;
    ledPassWord.LabelPosition := lpLeft;
    ledPassWord.LabelSpacing := 12;
    ledPassWord.EditLabel.Caption := 'Password';

    cbRememberMe := TCheckBox.Create(IFMForm);
    cbRememberMe.Parent := gbLoginBox;
    cbRememberMe.Left := 30;
    cbRememberMe.Top := 110;
    cbRememberMe.Caption := 'Remember me';

    butLogin := TButton.Create(IFMForm);
    butLogout := TButton.Create(IFMForm);

    butLogin.Parent := gbLoginBox;
    butLogin.Left := 40;
    butLogin.Top := 145;
    butLogin.Width := 50;
    butLogin.Height := 20;
    butLogin.Caption := 'Login';
    butLogin.OnClick := @ClickOnIFM;

    butLogout.Parent := gbLoginBox;
    butLogout.Left := 100;
    butLogout.Top := 145;
    butLogout.Width := 50;
    butLogout.Height := 20;
    butLogout.Caption := 'Logout';
    butLogout.OnClick := @ClickOnIFM;
    butLogout.Enabled := False;
    

  gbNoteBox := TGroupBox.Create(IFMForm);
  gbNoteBox.Parent := MainTabs[0];
  gbNoteBox.Left := 220;
  gbNoteBox.Top := 20;
  gbNoteBox.Width := 200;
  gbNoteBox.Height := 200;
  gbNoteBox.Caption := 'Connection';

    mmConnection := TMemo.Create(IFMForm);
    mmConnection.Parent := gbNoteBox;
    mmConnection.Left := 7;
    mmConnection.Top := 20;
    mmConnection.Width := 187;
    mmConnection.Height := 170;
    SafeSendMemoText(mmConnection, 'Please fill your username and password.');
    SafeSendMemoText(mmConnection, '');


  gbHelpBox := TGroupBox.Create(IFMForm);
  gbHelpBox.Parent := MainTabs[2];
  gbHelpBox.Left := 15;
  gbHelpBox.Top := 20;
  gbHelpBox.Width := 405;
  gbHelpBox.Height := 155;
  gbHelpBox.Caption := 'Assistance';

    mmHelpMemo := TMemo.Create(IFMForm);
    mmHelpMemo.Parent := gbHelpBox;
    mmHelpMemo.Left := 7;
    mmHelpMemo.Top := 20;
    mmHelpMemo.Width := 392;
    mmHelpMemo.Height := 125;
    mmHelpMemo.Font.Color := clWindowText;
    mmHelpMemo.Font.Height := -11;
    mmHelpMemo.Font.Name := 'Courier New';
    mmHelpMemo.Font.Style := [];
    mmHelpMemo.ScrollBars := ssVertical;
    SafeSendMemoText(mmHelpMemo, 'Please choose an option.');
    SafeSendMemoText(mmHelpMemo, '');

  gbIFMPanel := TGroupBox.Create(IFMForm);
  gbIFMPanel.Parent := MainTabs[1];
  gbIFMPanel.Left := 15;
  gbIFMPanel.Top := 10;
  gbIFMPanel.Width := 200;
  gbIFMPanel.Height := 45;
  gbIFMPanel.Caption := 'Control Panel';

    butStartScript := TButton.Create(IFMForm);
    butExitScript := TButton.Create(IFMForm);
    
    butStartScript.Parent := gbIFMPanel;
    butStartScript.Left := 15;
    butStartScript.Top := 17;
    butStartScript.Width := 80;
    butStartScript.Height := 20;
    butStartScript.Caption := 'Start Script';
    butStartScript.OnClick := @ClickOnIFM;

    butExitScript.Parent := gbIFMPanel;
    butExitScript.Left := 105;
    butExitScript.Top := 17;
    butExitScript.Width := 80;
    butExitScript.Height := 20;
    butExitScript.Caption := 'Exit Script';
    butExitScript.OnClick := @ClickOnIFM;
    

  gbLocationBox := TGroupBox.Create(IFMForm);
  gbLocationBox.Parent := MainTabs[1];
  gbLocationBox.Left := 15;
  gbLocationBox.Top := 55;
  gbLocationBox.Width := 200;
  gbLocationBox.Height := 180;
  gbLocationBox.Caption := 'Location';

    for i := 0 to Length(ar_rbLocations) - 1 do
    begin
      ar_rbLocations[i] := TRadioButton.Create(IFMForm);
      ar_rbLocations[i].Parent := gbLocationBox;
      ar_rbLocations[i].Left := 10;
      ar_rbLocations[i].Top := 20 + (15 * i);
      ar_rbLocations[i].Width := 113;
      ar_rbLocations[i].Height := 17;
      case i of
        0: ar_rbLocations[i].Caption := 'Edgeville';
        1: ar_rbLocations[i].Caption := 'Falador - West';
        2: ar_rbLocations[i].Caption := 'Falador - East';
        3: ar_rbLocations[i].Caption := 'Varrock - West';
        4: ar_rbLocations[i].Caption := 'Varrock - East';
        5: ar_rbLocations[i].Caption := 'Lumbridge';
        6: ar_rbLocations[i].Caption := 'Al Khaird';
        7: ar_rbLocations[i].Caption := 'Draynor';
        8: ar_rbLocations[i].Caption := 'Duel Arena';
        9: ar_rbLocations[i].Caption := 'Grand Exchange';
      end;
    end;


  gbRSBox := TGroupBox.Create(IFMForm);
  gbRSBox.Parent := MainTabs[1];
  gbRSBox.Left := 226;
  gbRSBox.Top := 10;
  gbRSBox.Width := 195;
  gbRSBox.Height := 160;
  gbRSBox.Caption := 'RS Settings';

    ledUserNameRS := TLabeledEdit.Create(IFMForm);
    ledPassWordRS := TLabeledEdit.Create(IFMForm);
    ledBankPin := TLabeledEdit.Create(IFMForm);
    ledLogsToBurn := TLabeledEdit.Create(IFMForm);

    ledUserNameRS.Parent := gbRSBox;
    ledUserNameRS.Left := 100;
    ledUserNameRS.Top := 20;
    ledUserNameRS.Width := 80;
    ledUserNameRS.LabelPosition := lpLeft;
    ledUserNameRS.LabelSpacing := 10;
    ledUserNameRS.EditLabel.Caption := 'RS Username ';

    ledPassWordRS.Parent := gbRSBox;
    ledPassWordRS.Left := 100;
    ledPassWordRS.Top := 45;
    ledPassWordRS.Width := 80;
    ledPassWordRS.LabelPosition := lpLeft;
    ledPassWordRS.LabelSpacing := 12;
    ledPassWordRS.EditLabel.Caption := 'RS Password ';
    
    ledBankPin.Parent := gbRSBox;
    ledBankPin.Left := 100;
    ledBankPin.Top := 70;
    ledBankPin.Width := 80;
    ledBankPin.LabelPosition := lpLeft;
    ledBankPin.LabelSpacing := 10;
    ledBankPin.EditLabel.Caption := 'RS Bank Pin ';

    ledLogsToBurn.Parent := gbRSBox;
    ledLogsToBurn.Left := 100;
    ledLogsToBurn.Top := 95;
    ledLogsToBurn.Width := 80;
    ledLogsToBurn.LabelPosition := lpLeft;
    ledLogsToBurn.LabelSpacing := 10;
    ledLogsToBurn.EditLabel.Caption := 'Logs To Burn';

    butSaveRS := TButton.Create(IFMForm);
    butResetRS := TButton.Create(IFMForm);
    
    butResetRS.Parent := gbRSBox;
    butResetRS.Left := 15;
    butResetRS.Top := 125;
    butResetRS.Width := 80;
    butResetRS.Height := 20;
    butResetRS.Caption := 'Reset';
    butResetRS.OnClick := @ClickOnIFM;

    butSaveRS.Parent := gbRSBox;
    butSaveRS.Left := 100;
    butSaveRS.Top := 125;
    butSaveRS.Width := 80;
    butSaveRS.Height := 20;
    butSaveRS.Caption := 'Save';
    butSaveRS.OnClick := @ClickOnIFM;
    
  gbLogsBox := TGroupBox.Create(IFMForm);
  gbLogsBox.Parent := MainTabs[1];
  gbLogsBox.Left := 226;
  gbLogsBox.Top := 170;
  gbLogsBox.Width := 195;
  gbLogsBox.Height := 65;
  gbLogsBox.Caption := 'Logs';

    for i := 0 to Length(ar_rbLogs) - 3 do
    begin
      ar_rbLogs[i] := TRadioButton.Create(IFMForm);
      ar_rbLogs[i].Parent := gbLogsBox;
      ar_rbLogs[i].Left := 10;
      ar_rbLogs[i].Top := 15 + (15 * i);
      ar_rbLogs[i].Width := 75;
      ar_rbLogs[i].Height := 17;
      case i of
        0: ar_rbLogs[i].Caption := 'Normal logs';
        1: ar_rbLogs[i].Caption := 'Oak logs';
        2: ar_rbLogs[i].Caption := 'Willow logs';
      end;
    end;

    for i := 3 to Length(ar_rbLogs) - 1 do
    begin
      ar_rbLogs[i] := TRadioButton.Create(IFMForm);
      ar_rbLogs[i].Parent := gbLogsBox;
      ar_rbLogs[i].Left := 95;
      ar_rbLogs[i].Top := - 30 + (15 * i);
      ar_rbLogs[i].Width := 75;
      ar_rbLogs[i].Height := 17;
      case i of

        3: ar_rbLogs[i].Caption := 'Maple logs';
        4: ar_rbLogs[i].Caption := 'Yew logs';
      end;
    end;

  gbHelpPanel := TGroupBox.Create(IFMForm);
  gbHelpPanel.Parent := MainTabs[2];
  gbHelpPanel.Left := 15;
  gbHelpPanel.Top := 175;
  gbHelpPanel.Width := 405;
  gbHelpPanel.Height := 45;
  gbHelpPanel.Caption := 'Help Panel';
  
    butBuy := TButton.Create(IFMForm);
    butIFMw := TButton.Create(IFMForm);
    butIFMNews := TButton.Create(IFMForm);
    butCheckVersion := TButton.Create(IFMForm);

    butBuy.Parent := gbHelpPanel;
    butBuy.Left := 19;
    butBuy.Top := 17;
    butBuy.Width := 84;
    butBuy.Height := 20;
    butBuy.Caption := 'Buy';
    butBuy.OnClick := @ClickOnIFM;

    butIFMw.Parent := gbHelpPanel;
    butIFMw.Left := 113;
    butIFMw.Top := 17;
    butIFMw.Width := 84;
    butIFMw.Height := 20;
    butIFMw.Caption := 'IFM?';
    butIFMw.OnClick := @ClickOnIFM;

    butIFMNews.Parent := gbHelpPanel;
    butIFMNews.Left := 207;
    butIFMNews.Top := 17;
    butIFMNews.Width := 84;
    butIFMNews.Height := 20;
    butIFMNews.Caption := 'IFM News';
    butIFMNews.OnClick := @ClickOnIFM;

    butCheckVersion.Parent := gbHelpPanel;
    butCheckVersion.Left := 301;
    butCheckVersion.Top := 17;
    butCheckVersion.Width := 84;
    butCheckVersion.Height := 20;
    butCheckVersion.Caption := 'Check Version';
    butCheckVersion.OnClick := @ClickOnIFM;
    
    
end;
  
  
procedure InitIFMForm;
begin
  IFMForm := CreateForm;
  IFMForm.Left := 275;
  IFMForm.Top := 122;
  IFMForm.Width := 450;
  IFMForm.Height := 300;
  IFMForm.Caption := 'Iroki Fire Maker v' + (version) + ' Form';
  IFMForm.Color := clBtnFace;
  IFMForm.Visible := False;
  IFMForm.Position := poScreenCenter;
  IFMForm.BorderIcons := [biSystemMenu];
  IFMForm.BorderStyle := bsSingle;
  

  MainPageControl := TPageControl.Create(IFMForm);
  MainPageControl.Parent := IFMForm;
  MainPageControl.Align := alClient;
  
  MainTabs[0] := TTabSheet.Create(IFMForm);
  MainTabs[1] := TTabSheet.Create(IFMForm);
  MainTabs[2] := TTabSheet.Create(IFMForm);

  MainTabs[0].Caption := 'Authenticate';
  MainTabs[0].PageControl := MainPageControl;
  MainTabs[0].Parent := MainPageControl;

  MainTabs[1].Caption := 'IFM Panel';
  MainTabs[1].PageControl := MainPageControl;
  MainTabs[1].Parent := MainPageControl;
  MainTabs[1].TabVisible := False;

  MainTabs[2].Caption := 'Help';
  MainTabs[2].PageControl := MainPageControl;
  MainTabs[2].Parent := MainPageControl;
  
  FillTabs;
  Settings('load');

  if(cbRememberMe.Checked)then
  begin
    Authenticate;
  end;
end;

procedure ShowFormModal;
begin
  IFMForm.ShowModal;
end;

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



procedure ShowIFMForm;
var
  v: TVariantArray;
begin
if (FileExists(AppPath + 'IFM\IFMSettings.sl')) then
  begin
  SetLength(V, 0);
  ThreadSafeCall('InitIFMForm', v);
  SetLength(V, 0);
  ThreadSafeCall('ShowIFMFormModal', v);
  End Else
  Settings('create');

end;


procedure NewVersion2;
begin
  gbNewVersion := TGroupBox.Create(NewVersion);
  gbNewVersion.Parent := NewVersion;
  gbNewVersion.Left := 10;
  gbNewVersion.Top := 10;
  gbNewVersion.Width := 272;
  gbNewVersion.Height := 65;
  gbNewVersion.Caption := 'Download Version: v' + (cVersion);

    butNewVersion := TButton.Create(NewVersion);
    butNewVersionNow := TButton.Create(NewVersion);
    butNewLater := TButton.Create(NewVersion);

    butNewVersion.Parent := gbNewVersion;
    butNewVersion.Left := 10;
    butNewVersion.Top := 25;
    butNewVersion.Width := 80;
    butNewVersion.Height := 20;
    butNewVersion.Caption := 'Download';
    butNewVersion.OnClick := @ClickOnIFM;

    butNewVersionNow.Parent := gbNewVersion;
    butNewVersionNow.Left := 97;
    butNewVersionNow.Top := 25;
    butNewVersionNow.Width := 80;
    butNewVersionNow.Height := 20;
    butNewVersionNow.Caption := 'Now Update';
    butNewVersionNow.OnClick := @ClickOnIFM;

    butNewLater.Parent := gbNewVersion;
    butNewLater.Left := 184;
    butNewLater.Top := 25;
    butNewLater.Width := 80;
    butNewLater.Height := 20;
    butNewLater.Caption := 'Later';
    butNewLater.OnClick := @ClickOnIFM;
end;

procedure InitNewVersionForm;
begin
  NewVersion := CreateForm;
  NewVersion.Left := 200;
  NewVersion.Top := 100;
  NewVersion.Width := 300;
  NewVersion.Height := 120;
  NewVersion.Caption := 'New Version Available';
  NewVersion.Color := clBtnFace;
  NewVersion.Font.Color := clWindowText;
  NewVersion.Font.Height := -11;
  NewVersion.Font.Name := 'MS Sans Serif';
  NewVersion.Font.Style := [];
  NewVersion.Visible := False;
  NewVersion.PixelsPerInch := 96;

  NewVersion2;
end;


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

procedure ShowFormModal2;
begin
  NewVersion.ShowModal;
end;

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

procedure CreateFiles;
begin
  if (not(FileExists(AppPath + 'IFM\IFMSettings.sl')))then
  begin
    Settings('create');
  End;
end;

begin
  Signature;
  SmartSetupEx(WorldNumber, False, True);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  ScriptID := '718';
  SRLID := YourSRLID;
  SRLPassword := YourSRLPassword;
  If (SRLID = '') or (SRLPassword = '') Then SRLNowCheck := 1;
  If (SRLNowCheck = 1) Then
  Begin
    WriteLn('Please enter your SRLID and SRLPassword in lines 12 - 13. Thanks.');
    TerminateScript;
  End;
  CreateFiles;
  cVersion := GetPage('http://irokiautofiremaker.eu.interia.pl/Ver.txt');
  if(cVersion > (version))then
  begin
    SafeInitForm2;
    SafeShowFormModal2;
    FreeForm(NewVersion);
  end;
  if (NewVersionCheck = 1) then
  begin
    Terminatescript;
  end;
  if (NewVersionNowCheck = 1) then
  begin
    Terminatescript;
  end;
  ShowIFMForm;
  if Term = 1 then
  begin
    Terminatescript;
  end;
  if (Makeing = 1) then
  begin
    LoginMyPlayer;
    MakeThis;
  end;
  FreeForm(IFMForm);
end.

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

not finished?

If (Location = 'Falador - West') Then
    Begin
    End;
  If (Location = 'Falador - East') Then
    Begin
    End;
  If (Location = 'Varrock - West') Then
    Begin
    End;
  If (Location = 'Varrock - East') Then
    Begin
    End;
  If (Location = 'Lumbridge') Then
    Begin
    End;
  If (Location = 'Al Khaird') Then
    Begin
    End;
  If (Location = 'Draynor') Then
    Begin
    End;
  If (Location = 'Duel Arena') Then
    Begin
    End;
  If (Location = 'Grand Exchange') Then
    Begin
    End;

and use a case there

Sumilion + Lorax-es forums + No credit for them = No. :( Please credit.

Yes not finished yet. :(

Some things:

  Players[0].Nick        := 'xyzv';

???

credit people's functions.

Im thinking the vote.

why didnt you finish it =/

All this really is, is the V.Y.C. only edited a few things :p That is why he has the blank locations because he didn't know how to remove it from the script's form :p

BTW, "Updated script" is from my caver, and I said no one is ever allowed to copy it ;(

THAN ITS A NO FROM ME

gosh guys read the rules and regulations

and 90% has to be yours!
goodness gracious

Sorry but no, the majority of the script is other peoples and without the form its only about 300 lines.

Basically no for the same reason as other peoples.

But don't post unfinished scripts for apps

Actually, it doesn't compile for me. im not sure maybe it's about my school computer.

Also it's half copied. half finished. next time make something your own.

From: p1nky
THAN ITS A NO FROM ME

gosh guys read the rules and regulations

and 90% has to be yours!
goodness gracious

Stop drinking red cordiel or h/e u spell it :) Drink 5 litres of coke makes you get high ;)

Also, i agree with tha others. No.

Closed.