DF2 BMS Modifier

talk and review codes here

Moderators: Q-dad~TAG, EXP STAFF, Moderator

DF2 BMS Modifier

Postby DR.EVIL~TAG » 01-21-2006 01:56 PM

unit BMSModifier;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
BmsOpenButton1: TButton;
HelpButton2: TButton;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
GroupBox1: TGroupBox;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
ClrDlgFOG: TColorDialog;
Button3: TButton;
ShapeFOG: TShape;
AboutButton4: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
ColorDialog1: TColorDialog;
Edit9: TEdit;
Edit10: TEdit;
Edit8: TEdit;
Button5: TButton;
Label6: TLabel;
GroupBox2: TGroupBox;
WaterCheckBox1: TCheckBox;
FOGCheckBox2: TCheckBox;
Label7: TLabel;
TrackBar1: TTrackBar;
Label9: TLabel;
Label10: TLabel;
TrackBar2: TTrackBar;
Weather: TGroupBox;
WetherCheckBox3: TCheckBox;
Label14: TLabel;
SaveBmsButton7: TButton;
Edit6: TEdit;
Edit7: TEdit;
Label8: TLabel;
Label11: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
ComboBox1: TComboBox;
Label15: TLabel;
ComboBox2: TComboBox;
CheckBox7: TCheckBox;
Label22: TLabel;
MissionNameEdit12: TEdit;
Label30: TLabel;
Label33: TLabel;
CamoComboBox11: TComboBox;
Label12: TLabel;
FileNameEdit11: TEdit;
Label23: TLabel;
Edit14: TEdit;
Edit15: TEdit;
Edit13: TEdit;
Label13: TLabel;
Edit16: TEdit;
Edit17: TEdit;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
ComboBox3: TComboBox;
GroupBox3: TGroupBox;
Label31: TLabel;
Edit18: TEdit;
Label32: TLabel;
Edit19: TEdit;
Label34: TLabel;
Label35: TLabel;
TrackBar3: TTrackBar;
GroupBox4: TGroupBox;
COOPCheckBox5: TCheckBox;
DMCheckBox6: TCheckBox;
TDMCheckBox8: TCheckBox;
KOTHCheckBox9: TCheckBox;
TKOTHCheckBox10: TCheckBox;
CTFCheckBox11: TCheckBox;
AandDCheckBox12: TCheckBox;
SandDCheckBox13: TCheckBox;
FBCheckBox14: TCheckBox;
CheckBox15: TCheckBox;
Edit21: TEdit;
Label37: TLabel;
Edit20: TEdit;
BgColorButton8: TButton;
ColorDialog: TColorDialog;
Shape1: TShape;
Edit23: TEdit;
Edit24: TEdit;
Edit25: TEdit;
Edit26: TEdit;
Edit27: TEdit;
Edit28: TEdit;
Edit29: TEdit;
Edit30: TEdit;
Edit31: TEdit;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
ComboBox4: TComboBox;
Label24: TLabel;
Label25: TLabel;
Edit22: TEdit;
Edit32: TEdit;
GroupBox5: TGroupBox;
Label36: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
GroupBox6: TGroupBox;
Edit35: TEdit;
Edit34: TEdit;
Edit33: TEdit;
Edit12: TEdit;
Label55: TLabel;
Label59: TLabel;
Label56: TLabel;
Label60: TLabel;
Label57: TLabel;
Label61: TLabel;
Label58: TLabel;
Label62: TLabel;
Edit36: TEdit;
procedure BmsOpenButton1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure AboutButton4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure HelpButton2Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure TrackBar2Change(Sender: TObject);
procedure WaterCheckBox1Click(Sender: TObject);
procedure FOGCheckBox2Click(Sender: TObject);
procedure WetherCheckBox3Click(Sender: TObject);
procedure SaveBmsButton7Click(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit8Change(Sender: TObject);
procedure Edit9Change(Sender: TObject);
procedure Edit10Change(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure CheckBox7Click(Sender: TObject);
procedure CamoComboBox11Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure Edit14Change(Sender: TObject);
procedure Edit15Change(Sender: TObject);
procedure Edit13Change(Sender: TObject);
procedure Edit17Change(Sender: TObject);
procedure Edit16Change(Sender: TObject);
procedure Edit18Change(Sender: TObject);
procedure Edit19Change(Sender: TObject);
procedure TrackBar3Change(Sender: TObject);
procedure Edit20Change(Sender: TObject);
procedure Edit21Change(Sender: TObject);
procedure COOPCheckBox5Click(Sender: TObject);
procedure DMCheckBox6Click(Sender: TObject);
procedure TDMCheckBox8Click(Sender: TObject);
procedure KOTHCheckBox9Click(Sender: TObject);
procedure TKOTHCheckBox10Click(Sender: TObject);
procedure CTFCheckBox11Click(Sender: TObject);
procedure AandDCheckBox12Click(Sender: TObject);
procedure SandDCheckBox13Click(Sender: TObject);
procedure FBCheckBox14Click(Sender: TObject);
procedure Edit22Change(Sender: TObject);
procedure BgColorButton8Click(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure Edit23Change(Sender: TObject);
procedure Edit24Change(Sender: TObject);
procedure Edit25Change(Sender: TObject);
procedure Edit26Change(Sender: TObject);
procedure Edit27Change(Sender: TObject);
procedure Edit28Change(Sender: TObject);
procedure Edit29Change(Sender: TObject);
procedure Edit30Change(Sender: TObject);
procedure Edit31Change(Sender: TObject);
procedure Edit32Change(Sender: TObject);
procedure ComboBox4Change(Sender: TObject);
procedure Edit11Change(Sender: TObject);
procedure Edit12Change(Sender: TObject);
procedure Edit33Change(Sender: TObject);
procedure Edit34Change(Sender: TObject);
procedure Edit35Change(Sender: TObject);
procedure Edit36Change(Sender: TObject);
procedure OpenDialog1CanClose(Sender: TObject; var CanClose: Boolean);






private
{ Private declarations }

public
{ Public declarations }
FSettingCheckBoxes : boolean;
procedure UpdateLabel37;
procedure SetCheckBoxStates(b: byte);
function GetCheckBoxByteValue: byte;
end;

var
Form1: TForm1;

implementation

uses BMSModifierAbout, BMSModifierHelp;

{$R *.dfm}

function HexToInt(HexStr: String): Integer;
begin
result := StrToInt('$' + HexStr);
end;

function TForm1.GetCheckBoxByteValue: byte;
begin
result := 0;
if SandDCheckBox13.Checked then Inc(result, 128);
if TKOTHCheckBox10.Checked then Inc(result, 64 );
if TDMCheckBox8.Checked then Inc(result, 32 );
if CTFCheckBox11.Checked then Inc(result, 16 );
if FBCheckBox14.Checked then Inc(result, 8 );
if KOTHCheckBox9.Checked then Inc(result, 4 );
if DMCheckBox6.Checked then Inc(result, 2 );
if COOPCheckBox5.Checked then Inc(result, 1 );

end;

procedure TForm1.UpdateLabel37;
var
I, C: Integer;
begin
C:= 0;
for I:= 0 to ComponentCOunt - 1 do
if Components[I] is TCheckBox then
if TCheckBox(Components[I]).Checked then
C:= C + TCheckBox(Components[I]).Tag;
Edit36.text:= inttostr(C);

end;


procedure TForm1.TDMCheckBox8Click(Sender: TObject);
begin
UpdateLabel37;
end;

procedure TForm1.BmsOpenButton1Click(Sender: TObject);
var
fs:TFileStream;
buffer:integer;

begin
if opendialog1.execute then
FileNameedit11.text := ExtractFileName(OpenDialog1.FileName);

//load values
FS:=TFileStream.create(opendialog1.filename,fmopenreadwrite or fmsharedenynone); begin
fs.position:=HexToInt('E0');
fs.read(buffer,1);
edit1.text:=inttostr(buffer);
fs.position:=HexToInt('E1');
fs.read(buffer,1);
edit2.text:=inttostr(buffer);
fs.position:=HexToInt('E2');
fs.read(buffer,1);
edit3.text:=inttostr(buffer);
fs.position:=HexToInt('E3');
fs.read(buffer,1);
edit4.text:=inttostr(buffer);
fs.position:=HexToInt('E4');
fs.read(buffer,1);
edit5.text:=inttostr(buffer);
fs.position:=HexToInt('8C');
fs.read(buffer,1);
edit7.text:=inttostr(buffer);
fs.position:=HexToInt('92');
fs.read(buffer,1);
edit8.text:=inttostr(buffer);
fs.position:=HexToInt('91');
fs.read(buffer,1);
edit9.text:=inttostr(buffer);
fs.position:=HexToInt('90');
fs.read(buffer,1);
edit10.text:=inttostr(buffer);
fs.position:=HexToInt('88');
fs.read(buffer,1);
edit6.text:=inttostr(buffer);
fs.position:=HexToInt('78');
fs.read(buffer,1);
Edit16.Text:=inttostr(buffer);
fs.position:=HexToInt('AC');
fs.read(buffer,1);
edit17.text:=inttostr(buffer);
fs.position:=HexToInt('7A');
fs.read(buffer,1);
edit13.text:=inttostr(buffer);
fs.position:=HexToInt('74');
fs.read(buffer,1);
edit20.text:=inttostr(buffer);
fs.position:=HexToInt('BF');
fs.read(buffer,1);
edit15.text:=inttostr(buffer);
fs.position:=HexToInt('BE');
fs.read(buffer,1);
edit14.text:=inttostr(buffer);
fs.position:=HexToInt('E8');
fs.read(buffer,1);
edit18.text:=inttostr(buffer);
fs.position:=HexToInt('EC');
fs.read(buffer,1);
edit19.text:=inttostr(buffer);
fs.position:=HexToInt('7B');
fs.read(buffer,1);
Edit36.text:=inttostr(buffer);
//edit21.text:=inttostr(buffer);
fs.position:=HexToInt('C8');
fs.read(buffer,1);
edit24.text:=inttostr(buffer);
fs.position:=HexToInt('C9');
fs.read(buffer,1);
edit25.text:=inttostr(buffer);
fs.position:=HexToInt('CA');
fs.read(buffer,1);
edit26.text:=inttostr(buffer);
fs.position:=HexToInt('CB');
fs.read(buffer,1);
edit27.text:=inttostr(buffer);
fs.position:=HexToInt('CC');
fs.read(buffer,1);
edit28.text:=inttostr(buffer);
fs.position:=HexToInt('CD');
fs.read(buffer,1);
edit29.text:=inttostr(buffer);
fs.position:=HexToInt('CE');
fs.read(buffer,1);
edit30.text:=inttostr(buffer);
fs.position:=HexToInt('CF');
fs.read(buffer,1);
edit31.text:=inttostr(buffer);
fs.position:=HexToInt('9C');
fs.read(buffer,1);
label49.caption:=inttostr(buffer);
fs.position:=HexToInt('A4');
fs.read(buffer,1);
label50.caption:=inttostr(buffer);
fs.position:=HexToInt('98');
fs.read(buffer,1);
label51.caption:=inttostr(buffer);
fs.position:=HexToInt('A0');
fs.read(buffer,1);
label52.caption :=inttostr(buffer);
fs.position:=HexToInt('95');
fs.read(buffer,1);
edit12.text:=inttostr(buffer);
fs.position:=HexToInt('96');
fs.read(buffer,1);
edit33.text:=inttostr(buffer);
fs.position:=HexToInt('97');
fs.read(buffer,1);
edit34.text:=inttostr(buffer);
fs.position:=HexToInt('94');
fs.read(buffer,1);
edit35.text:=inttostr(buffer);
fs.free;
label26.Caption:= '';
if (Edit24.Text = '115') and (Edit25.Text = '107') and (Edit26.Text = '121') and (Edit31.Text = '110')then
edit23.text:= '0';
if (Edit24.Text = '115') and (Edit25.Text = '107') and (Edit26.Text = '121') and (Edit31.Text = '49')then
edit23.text:= '1';
if (Edit24.Text = '115') and (Edit25.Text = '107') and (Edit26.Text = '121') and (Edit31.Text = '50')then
edit23.text:= '2';
if (Edit24.Text = '115') and (Edit25.Text = '107') and (Edit26.Text = '121') and (Edit31.Text = '51')then
edit23.text:= '3';
if (Edit24.Text = '115') and (Edit25.Text = '107') and (Edit26.Text = '121') and (Edit31.Text = '52')then
edit23.text:= '4';
if (Edit24.Text = '115') and (Edit25.Text = '107') and (Edit26.Text = '121') and (Edit31.Text = '53')then
edit23.text:= '5';

if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '49')then
edit23.text:= '6';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '50')then
edit23.text:= '7';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '51')then
edit23.text:= '8';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '52')then
edit23.text:= '9';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '53')then
edit23.text:= '10';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '54')then
edit23.text:= '11';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '55')then
edit23.text:= '12';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '56')then
edit23.text:= '13';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '57')then
edit23.text:= '14';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '115') and (Edit31.Text = '48')then
edit23.text:= '15';

if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '114') and (Edit31.Text = '49')then
edit23.text:= '16';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '114') and (Edit31.Text = '50')then
edit23.text:= '17';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '114') and (Edit31.Text = '51')then
edit23.text:= '18';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '114') and (Edit31.Text = '52')then
edit23.text:= '19';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '114') and (Edit31.Text = '53')then
edit23.text:= '20';
if (Edit24.Text = '115') and (Edit25.Text = '110') and (Edit26.Text = '114') and (Edit31.Text = '54')then
edit23.text:= '21';

if (Edit24.Text = '110') and (Edit25.Text = '105') and (Edit26.Text = '116') and (Edit31.Text = '49')then
edit23.text:= '22';
if (Edit24.Text = '110') and (Edit25.Text = '105') and (Edit26.Text = '116') and (Edit31.Text = '50')then
edit23.text:= '23';

if (Edit24.Text = '115') and (Edit25.Text = '116') and (Edit26.Text = '109') and (Edit31.Text = '49')then
edit23.text:= '24';
if (Edit24.Text = '115') and (Edit25.Text = '116') and (Edit26.Text = '109') and (Edit31.Text = '50')then
edit23.text:= '25';
if (Edit24.Text = '115') and (Edit25.Text = '116') and (Edit26.Text = '109') and (Edit31.Text = '51')then
edit23.text:= '26';
if (Edit24.Text = '115') and (Edit25.Text = '116') and (Edit26.Text = '109') and (Edit31.Text = '52')then
edit23.text:= '27';

if (Edit24.Text = '111') and (Edit25.Text = '118') and (Edit26.Text = '114') and (Edit31.Text = '49')then
edit23.text:= '28';
if (Edit24.Text = '111') and (Edit25.Text = '118') and (Edit26.Text = '114') and (Edit31.Text = '50')then
edit23.text:= '29';

if (Edit15.Text = '49') and (Edit14.Text = '48')then
Edit22.Text := '0';

if (Edit15.Text = '50') and (Edit14.Text = '48')then
Edit22.Text := '1';

if (Edit15.Text = '51') and (Edit14.Text = '48')then
Edit22.Text := '2';

if (Edit15.Text = '52') and (Edit14.Text = '48')then
Edit22.Text := '3';

if (Edit15.Text = '53') and (Edit14.Text = '48')then
Edit22.Text := '4';

if (Edit15.Text = '54') and (Edit14.Text = '48')then
Edit22.Text := '5' ;

if (Edit15.Text = '55') and (Edit14.Text = '48')then
Edit22.Text := '6' ;

if (Edit15.Text = '56') and (Edit14.Text = '48')then
Edit22.Text := '7';

if (Edit15.Text = '48') and (Edit14.Text = '49')then
Edit22.Text := '8';


if (Edit22.Text = '0') and (Edit23.Text = '1')then
Edit32.Text := '0';

if (Edit22.Text = '1') and (Edit23.Text = '2')then
Edit32.Text := '1';

if (Edit22.Text = '3') and (Edit23.Text = '3')then
Edit32.Text := '2';

if (Edit22.Text = '4') and (Edit23.Text = '4')then
Edit32.Text := '3';

if (Edit22.Text = '6') and (Edit23.Text = '5')then
Edit32.Text := '4';

if (Edit22.Text = '4') and (Edit23.Text = '22')then
Edit32.Text := '5';

if (Edit22.Text = '6') and (Edit23.Text = '23')then
Edit32.Text := '6';

if (Edit22.Text = '2') and (Edit23.Text = '28')then
Edit32.Text := '7';

if (Edit22.Text = '2') and (Edit23.Text = '29')then
Edit32.Text := '8';

if (Edit22.Text = '2') and (Edit23.Text = '24')then
Edit32.Text := '9';

if (Edit22.Text = '0') and (Edit23.Text = '25')then
Edit32.Text := '10';

if (Edit22.Text = '3') and (Edit23.Text = '26')then
Edit32.Text := '11';

if (Edit22.Text = '4') and (Edit23.Text = '27')then
Edit32.Text := '12';

if (Edit22.Text = '1') and (Edit23.Text = '16')then
Edit32.Text := '13';

if (Edit22.Text = '3') and (Edit23.Text = '17')then
Edit32.Text := '14';

if (Edit22.Text = '4') and (Edit23.Text = '18')then
Edit32.Text := '15';

if (Edit22.Text = '5') and (Edit23.Text = '19')then
Edit32.Text := '16';

if (Edit22.Text = '6') and (Edit23.Text = '20')then
Edit32.Text := '17';

if (Edit22.Text = '7') and (Edit23.Text = '21')then
Edit32.Text := '18';

if (Edit22.Text = '7') and (Edit23.Text = '6')then
Edit32.Text := '19';

if (Edit22.Text = '7') and (Edit23.Text = '7')then
Edit32.Text := '20';

if (Edit22.Text = '5') and (Edit23.Text = '8')then
Edit32.Text := '21';

if (Edit22.Text = '4') and (Edit23.Text = '9')then
Edit32.Text := '22';

if (Edit22.Text = '3') and (Edit23.Text = '10')then
Edit32.Text := '23';

if (Edit22.Text = '1') and (Edit23.Text = '11')then
Edit32.Text := '24';

if (Edit22.Text = '4') and (Edit23.Text = '10')then
Edit32.Text := '25';
if (Edit22.Text = '5') and (Edit23.Text = '13')then
Edit32.Text := '26';

if (Edit22.Text = '6') and (Edit23.Text = '14')then
Edit32.Text := '27';

if (Edit22.Text = '7') and (Edit23.Text = '15')then
Edit32.Text := '28';
end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
FogColor: LongWord;
Red, Green, Blue: Byte;

begin
if ClrDlgFOG.Execute then
begin
ShapeFOG.Brush.Color := ClrDlgFOG.Color;
FogColor := ClrDlgFOG.Color;

Red := GetRValue(FogColor);
Green := GetGValue(FogColor);
Blue := GetBValue(FogColor);

Edit3.Text := IntToStr(Red);
Edit4.Text := IntToStr(Green);
Edit5.Text := IntToStr(Blue);
end;
end;

procedure TForm1.AboutButton4Click(Sender: TObject);
begin
AboutBox.show;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
FogColor1: LongWord;
Red, Green, Blue: Byte;
begin
if ColorDialog1.Execute then
begin

FogColor1 := ColorDialog1.Color;
Red := GetRValue(FogColor1);
Green := GetGValue(FogColor1);
Blue := GetBValue(FogColor1);

Edit8.Text := IntToStr(Red);
Edit9.Text := IntToStr(Green);
Edit10.Text := IntToStr(Blue);
end;
end;

procedure TForm1.HelpButton2Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Edit7.text := IntToStr(Trackbar1.Position);
label9.Caption:= IntToHex((Trackbar1.Position), 2 );
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
Edit6.Text := IntToStr(TrackBar2.Position);
label10.Caption:= IntToHex((Trackbar2.Position), 2 );
end;

procedure TForm1.WaterCheckBox1Click(Sender: TObject);
begin
if (WaterCheckbox1.Checked) and (not FOGCheckbox2.Checked) and (not WetherCheckBox3.Checked)then
Label22.Caption:= '01'
else
if ( WaterCheckBox1.Checked) and (FOGCheckbox2.Checked) and (not WetherCheckBox3.Checked) then
Label22.Caption:= '07'
else
if (WaterCheckbox1.Checked) and ( FOGCheckbox2.Checked) and ( WetherCheckBox3.Checked)then
Label22.Caption:= '0F'
else
if (WaterCheckbox1.Checked) and (not FOGCheckbox2.Checked) and ( WetherCheckBox3.Checked)then
Label22.Caption:= '09'
else
if (not WaterCheckbox1.Checked) and ( FOGCheckbox2.Checked) and ( WetherCheckBox3.Checked)then
Label22.Caption:= '0E'
else
if (not WaterCheckbox1.Checked) and (not FOGCheckbox2.Checked)and (WetherCheckBox3.Checked) then
Label22.Caption:= '08'
else
if (not WaterCheckbox1.Checked) and ( FOGCheckbox2.Checked)and (not WetherCheckBox3.Checked) then
Label22.Caption:= '06'
else
Label22.Caption:= '00';
end;

procedure TForm1.FOGCheckBox2Click(Sender: TObject);
begin
if (WaterCheckbox1.Checked) and (not FOGCheckbox2.Checked) and (not WetherCheckBox3.Checked)then
Label22.Caption:= '01'
else
if ( WaterCheckbox1.Checked) and (FOGCheckbox2.Checked) and (not WetherCheckBox3.Checked) then
Label22.Caption:= '07'
else
if (WaterCheckbox1.Checked) and ( FOGCheckbox2.Checked) and ( WetherCheckBox3.Checked)then
Label22.Caption:= '0F'
else
if (WaterCheckbox1.Checked) and (not FOGCheckbox2.Checked) and ( WetherCheckBox3.Checked)then
Label22.Caption:= '09'
else
if (not WaterCheckbox1.Checked) and ( FOGCheckbox2.Checked) and ( WetherCheckBox3.Checked)then
Label22.Caption:= '0E'
else
if (not WaterCheckbox1.Checked) and (not FOGCheckbox2.Checked)and (WetherCheckBox3.Checked) then
Label22.Caption:= '08'
else
if (not WaterCheckbox1.Checked) and ( FOGCheckbox2.Checked)and (not WetherCheckBox3.Checked) then
Label22.Caption:= '06'
else
Label22.Caption:= '00';
end;

procedure TForm1.WetherCheckBox3Click(Sender: TObject);
begin
if (WaterCheckbox1.Checked) and (not FOGCheckbox2.Checked) and (not WetherCheckBox3.Checked)then
Label22.Caption:= '01'
else
if ( WaterCheckbox1.Checked) and (FOGCheckbox2.Checked) and (not WetherCheckBox3.Checked) then
Label22.Caption:= '07'
else
if (WaterCheckbox1.Checked) and ( FOGCheckbox2.Checked) and ( WetherCheckBox3.Checked)then
Label22.Caption:= '0F'
else
if (WaterCheckbox1.Checked) and (not FOGCheckbox2.Checked) and ( WetherCheckBox3.Checked)then
Label22.Caption:= '09'
else
if (not WaterCheckbox1.Checked) and ( FOGCheckbox2.Checked) and ( WetherCheckBox3.Checked)then
Label22.Caption:= '0E'
else
if (not WaterCheckbox1.Checked) and (not FOGCheckbox2.Checked)and (WetherCheckBox3.Checked) then
Label22.Caption:= '08'
else
if (not WaterCheckbox1.Checked) and ( FOGCheckbox2.Checked)and (not WetherCheckBox3.Checked) then
Label22.Caption:= '06'
else
Label22.Caption:= '00';
end;

procedure TForm1.SaveBmsButton7Click(Sender: TObject);
var
fs:TFileStream;
value1,value2,value3,value4,value5,value6,value7,value8,value9,Value10,Value11,Value12,
value13,value14,value15,value16,value17,value18,value19,value20,value21,value22,value23,
value24,value25,value26,value27:integer;
begin
if savedialog1.execute then
begin
//set values
value1:=HexToInt(Label8.caption);
value2:=HexToInt(Label11.caption);
value3:=HexToInt(Label16.caption);
value4:=HexToInt(Label17.caption);
value5:=HexToInt(Label18.caption);
value6:=HexToInt(Label9.caption);
value7:=HexToInt(Label19.caption);
value8:=HexToInt(Label20.caption);
value9:=HexToInt(Label21.caption);
value10:=HexToInt(Label10.caption);
value11:=HexToInt(label22.caption);
value12:=HexToInt(label14.caption);
value13:=HexToInt(label13.caption);
value14:=HexToInt(label12.Caption);
value15:=HexToInt(label24.Caption);
value16:=HexToInt(label25.Caption);
value17:=HexToInt(label34.Caption);
value18:=HexToInt(label35.Caption);
value19:=HexToInt(label37.Caption);
value20:=HexToInt(label38.Caption);
value21:=HexToInt(label39.Caption);
value22:=HexToInt(label40.Caption);
value23:=HexToInt(label41.Caption);
value24:=HexToInt(label42.Caption);
value25:=HexToInt(label43.Caption);
value26:=HexToInt(label44.Caption);
value27:=HexToInt(label45.Caption);


//write all values in edit boxes to positions
fs:=TFileStream.create(savedialog1.filename,fmopenreadwrite or fmsharedenynone);
begin
fs.position:=HexToInt('E0');
fs.Write(value1,1);
end;
begin
fs.position:=HexToInt('E1');
fs.Write(value2,1);
end;
begin
fs.position:=HexToInt('E2');
fs.Write(value3,1);
end;
begin
fs.position:=HexToInt('E3');
fs.Write(value4,1);
end;
begin
fs.position:=HexToInt('E4');
fs.Write(value5,1);
end;
begin
fs.position:=HexToInt('8C');
fs.Write(value6,1);
end;
begin
fs.position:=HexToInt('92');
fs.Write(value7,1);
end;
begin
fs.position:=HexToInt('91');
fs.Write(value8,1);
end;
begin
fs.position:=HexToInt('90');
fs.Write(value9,1);
end;
begin
fs.position:=HexToInt('88');
fs.Write(value10,1);
end;
begin
fs.position:=HexToInt('78');
fs.Write(value11,1);
end;
begin
fs.position:=HexToInt('AC');
fs.Write(value12,1);
end;
begin
fs.position:=HexToInt('7A');
fs.Write(value13,1);
end;
begin
fs.position:=HexToInt('74');
fs.Write(value14,1);
end;
begin
fs.position:=HexToInt('BF');
fs.Write(value15,1);
end;
begin
fs.position:=HexToInt('BE');
fs.Write(value16,1);
end;
begin
fs.position:=HexToInt('E8');
fs.Write(value17,1);
end;
begin
fs.position:=HexToInt('EC');
fs.Write(value18,1);
end;
begin
fs.position:=HexToInt('7B');
fs.Write(value19,1);
end;
begin
fs.position:=HexToInt('C8');
fs.Write(value20,1);
end;
begin
fs.position:=HexToInt('C9');
fs.Write(value21,1);
end;
begin
fs.position:=HexToInt('CA');
fs.Write(value22,1);
end;
begin
fs.position:=HexToInt('CB');
fs.Write(value23,1);
end;
begin
fs.position:=HexToInt('CC');
fs.Write(value24,1);
end;
begin
fs.position:=HexToInt('CD');
fs.Write(value25,1);
end;
begin
fs.position:=HexToInt('CE');
fs.Write(value26,1);
end;
begin
fs.position:=HexToInt('CF');
fs.Write(value27,1);
end;
fs.free;
edit1.Text := '0';
edit2.Text := '0';
edit3.Text := '0';
edit4.Text := '0';
edit5.Text := '0';
edit6.Text := '0';
edit7.Text := '0';
edit8.Text := '0';
edit9.Text := '0';
edit10.Text := '0';
edit16.Text := '0';
edit13.Text := '0';
edit21.Text := '0';
edit18.Text := '0';
edit14.Text := '48';
edit15.Text := '49';
edit22.Text := '0';
FileNameedit11.Text := '-------------------------------------------------------------------------';
edit23.Text := '1';
edit32.Text := '0';
label26.Caption:= 'File Has Been Saved and Closed';
WaterCheckbox1.Checked:= false ;
FOGCheckbox2.Checked:= false ;
WetherCheckBox3.Checked:= false ;
COOPCheckBox5.Checked:= false ;
DMCheckBox6.Checked:= false ;
CheckBox7.Checked:= false ;
TDMCheckBox8.Checked:= false ;
KOTHCheckBox9.Checked:= false ;
TKOTHCheckBox10.Checked:= false ;
CTFCheckBox11.Checked:= false ;
AandDCheckBox12.Checked:= false ;
SandDCheckBox13.Checked:= false ;
FBCheckBox14.Checked:= false ;
CheckBox15.Checked:= false ;
Label12.caption:= '00';
Label19.caption:= '00';
Label20.caption:= '00';
Label21.caption:= '00';
Label22.caption:= '00';
Label9.caption:= '00';
Label10.caption:= '00';
Label14.caption:= '00';
Label13.caption:= '00';
Label25.caption:= '30';
Label24.caption:= '31';
Label8.caption:= '00';
Label11.caption:= '00';
Label16.caption:= '00';
Label17.caption:= '00';
Label18.caption:= '00';
Label49.caption:= '00';
Label50.caption:= '00';
Label51.caption:= '00';
Label52.caption:= '00';
ShapeFOG.Brush.Color:= clwhite;
Shape1.Brush.Color:= clwhite;


end;
end;


procedure TForm1.Edit6Change(Sender: TObject);
begin
Try
Label10.Caption := IntToHex(StrToInt(Edit6.text), 2);
trackbar2.position := strtoint(edit6.text);
Except
{Do Nothing}
End;
end;

procedure TForm1.Edit7Change(Sender: TObject);
begin
Try
Label9.Caption := IntToHex(StrToInt(Edit7.text), 2);
trackbar1.position := strtoint(edit7.text);
Except
{Do Nothing}
End;

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
Try
Label8.Caption := IntToHex(StrToInt(Edit1.text), 2);
Except
{Do Nothing}
End;
//Label8.Caption := IntToHex(StrToInt(Edit1.text), 2)
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
Try
Label11.Caption := IntToHex(StrToInt(Edit2.text), 2)
Except
{Do Nothing}
End;

end;

procedure TForm1.Edit3Change(Sender: TObject);
var
red, green, blue: Integer;
begin
Try
Label16.Caption := IntToHex(StrToInt(Edit3.text), 2);
//
red := StrToInt(edit3.text);
green := strtoint(edit4.text);
blue := strtoint(edit5.text);
ShapeFOG.brush.color := (blue*65536) + (green*256) + red;
Except
{Do Nothing}
End;
end;

procedure TForm1.Edit4Change(Sender: TObject);
var
red, green, blue: Integer;
begin
Try
Label17.Caption := IntToHex(StrToInt(Edit4.text), 2);
//
red := StrToInt(edit3.text);
green := strtoint(edit4.text);
blue := strtoint(edit5.text);
ShapeFOG.brush.color := (blue*65536) + (green*256) + red;
Except
{Do Nothing}
End;
end;

procedure TForm1.Edit5Change(Sender: TObject);
var
red, green, blue: Integer;
begin
Try
Label18.Caption := IntToHex(StrToInt(Edit5.text), 2) ;
//
red := StrToInt(edit3.text);
green := strtoint(edit4.text);
blue := strtoint(edit5.text);
ShapeFOG.brush.color := (blue*65536) + (green*256) + red;
Except
{Do Nothing}
End;
end;

procedure TForm1.Edit8Change(Sender: TObject);
var
red, green, blue: Integer;
begin
Try
Label19.Caption := IntToHex(StrToInt(Edit8.text), 2);
//
red := StrToInt(edit8.text);
green := strtoint(edit9.text);
blue := strtoint(edit10.text);
shape1.brush.color := (blue*65536) + (green*256) + red;

Except
{Do Nothing}
End;
end;



procedure TForm1.Edit9Change(Sender: TObject);
var
red, green, blue: Integer;
begin
Try
Label20.Caption := IntToHex(StrToInt(Edit9.text), 2);
//
red := StrToInt(edit8.text);
green := strtoint(edit9.text);
blue := strtoint(edit10.text);
shape1.brush.color := (blue*65536) + (green*256) + red;
Except
{Do Nothing}
End;
end;

procedure TForm1.Edit10Change(Sender: TObject);
var
red, green, blue: Integer;
begin
Try
Label21.Caption := IntToHex(StrToInt(Edit10.text), 2);
//
red := StrToInt(edit8.text);
green := strtoint(edit9.text);
blue := strtoint(edit10.text);
shape1.brush.color := (blue*65536) + (green*256) + red;
Except
{Do Nothing}
End;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Label14.Caption := Format('%.2d', [ComboBox1.ItemIndex]);
end;

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
if (AandDCheckBox12.Checked) and (not Checkbox7.Checked) then
Label13.Caption:= '80'
else
if (AandDCheckBox12.Checked) and (Checkbox7.Checked) then
Label13.Caption:= '90'
else
if ( not AandDCheckBox12.Checked) and (Checkbox7.Checked) then
Label13.Caption:= '10'
else
label13.Caption:= '00' ;
end;

procedure TForm1.CamoComboBox11Change(Sender: TObject);
begin
Label12.Caption := Format('%.2d', [CamoComboBox11.ItemIndex]);
end;


procedure TForm1.ComboBox2Change(Sender: TObject);

begin
Edit22.text := Format('%.1d', [ComboBox2.ItemIndex + 0]);
if (Edit22.Text = '0') and (Edit23.Text = '1')then
Edit32.Text := '0';

if (Edit22.Text = '1') and (Edit23.Text = '2')then
Edit32.Text := '1';

if (Edit22.Text = '3') and (Edit23.Text = '3')then
Edit32.Text := '2';

if (Edit22.Text = '4') and (Edit23.Text = '4')then
Edit32.Text := '3';

if (Edit22.Text = '6') and (Edit23.Text = '5')then
Edit32.Text := '4';

if (Edit22.Text = '4') and (Edit23.Text = '22')then
Edit32.Text := '5';

if (Edit22.Text = '6') and (Edit23.Text = '23')then
Edit32.Text := '6';

if (Edit22.Text = '2') and (Edit23.Text = '28')then
Edit32.Text := '7';

if (Edit22.Text = '2') and (Edit23.Text = '29')then
Edit32.Text := '8';

if (Edit22.Text = '2') and (Edit23.Text = '24')then
Edit32.Text := '9';

if (Edit22.Text = '0') and (Edit23.Text = '25')then
Edit32.Text := '10';

if (Edit22.Text = '3') and (Edit23.Text = '26')then
Edit32.Text := '11';

if (Edit22.Text = '4') and (Edit23.Text = '27')then
Edit32.Text := '12';

if (Edit22.Text = '1') and (Edit23.Text = '16')then
Edit32.Text := '13';

if (Edit22.Text = '3') and (Edit23.Text = '17')then
Edit32.Text := '14';

if (Edit22.Text = '4') and (Edit23.Text = '18')then
Edit32.Text := '15';

if (Edit22.Text = '5') and (Edit23.Text = '19')then
Edit32.Text := '16';

if (Edit22.Text = '6') and (Edit23.Text = '20')then
Edit32.Text := '17';

if (Edit22.Text = '7') and (Edit23.Text = '21')then
Edit32.Text := '18';

if (Edit22.Text = '7') and (Edit23.Text = '6')then
Edit32.Text := '19';

if (Edit22.Text = '7') and (Edit23.Text = '7')then
Edit32.Text := '20';

if (Edit22.Text = '5') and (Edit23.Text = '8')then
Edit32.Text := '21';

if (Edit22.Text = '4') and (Edit23.Text = '9')then
Edit32.Text := '22';

if (Edit22.Text = '3') and (Edit23.Text = '10')then
Edit32.Text := '23';

if (Edit22.Text = '1') and (Edit23.Text = '11')then
Edit32.Text := '24';

if (Edit22.Text = '4') and (Edit23.Text = '10')then
Edit32.Text := '25';
if (Edit22.Text = '5') and (Edit23.Text = '13')then
Edit32.Text := '26';

if (Edit22.Text = '6') and (Edit23.Text = '14')then
Edit32.Text := '27';

if (Edit22.Text = '7') and (Edit23.Text = '15')then
Edit32.Text := '28';
end;


procedure TForm1.Edit14Change(Sender: TObject);
begin
Label25.Caption := IntToHex(StrToInt(Edit14.text), 2);
end;

procedure TForm1.Edit15Change(Sender: TObject);
begin
Label24.Caption := IntToHex(StrToInt(Edit15.text), 2);
end;

procedure TForm1.Edit13Change(Sender: TObject);
begin
Label13.Caption := IntToHex(StrToInt(Edit13.text), 2);
checkbox7.Checked:= (edit13.Text = '16') OR (Edit13.Text = '144');
AandDcheckBox12.Checked:= (Edit13.Text = '128') OR (Edit13.Text = '144');
end;

procedure TForm1.Edit17Change(Sender: TObject);
begin
Label14.Caption := IntToHex(StrToInt(Edit17.text), 2);
combobox1.itemindex := strtoint(edit17.text);
end;

procedure TForm1.Edit16Change(Sender: TObject);
begin
WatercheckBox1.Checked:=(Edit16.Text = '1') OR (Edit16.Text = '7') OR (Edit16.Text = '15') OR (Edit16.Text = '9');

FOGCheckbox2.Checked:=(Edit16.Text = '7') OR (Edit16.Text = '15') OR (Edit16.Text = '14') OR (Edit16.Text = '6');

WetherCheckBox3.Checked:=(Edit16.Text = '15') OR (Edit16.Text = '9') OR (Edit16.Text = '14') OR (Edit16.Text = '8');
end;

procedure TForm1.Edit18Change(Sender: TObject);
begin
Try
Label34.Caption := IntToHex(StrToInt(Edit18.text), 2);
trackbar3.position := strtoint(edit18.text);
Except
{Do Nothing}
End;

end;

procedure TForm1.Edit19Change(Sender: TObject);
begin
Try
Label35.Caption := IntToHex(StrToInt(Edit19.text), 2)
Except
{Do Nothing}
End;

end;

procedure TForm1.TrackBar3Change(Sender: TObject);
begin
Edit18.Text := IntToStr(TrackBar3.Position);
label34.Caption:= IntToHex((Trackbar3.Position), 2 );
end;

procedure TForm1.Edit20Change(Sender: TObject);
begin
Label12.Caption := IntToHex(StrToInt(Edit20.text), 2);
Camocombobox11.itemindex := strtoint(label12.Caption);
end;

procedure TForm1.Edit21Change(Sender: TObject);
var
newValue, oldValue : integer;
begin
oldValue := GetCheckBoxByteValue;
if Edit21.text <> '' then
newValue := StrToIntDef('$' +Edit21.text, oldValue)
else
newValue := 0;
if newValue <> oldValue then
SetCheckBoxStates( newValue );
end;

procedure TForm1.COOPCheckBox5Click(Sender: TObject);
begin
UpdateLabel37;
end;

procedure TForm1.DMCheckBox6Click(Sender: TObject);
begin
UpdateLabel37;
end;

procedure TForm1.KOTHCheckBox9Click(Sender: TObject);
begin
UpdateLabel37;
end;

procedure TForm1.TKOTHCheckBox10Click(Sender: TObject);
begin
UpdateLabel37;
end;

procedure TForm1.CTFCheckBox11Click(Sender: TObject);
begin
UpdateLabel37;
end;
For your gaming textures and downloads. Now hosting over 5000 game textures and more uploaded every night. Click the sig.
Image
DR.EVIL~TAG
Mod Depot Staff
 
Posts: 427
Joined: 03-31-2004 03:31 PM

Postby DR.EVIL~TAG » 01-21-2006 01:56 PM

Continued :::::::

procedure TForm1.AandDCheckBox12Click(Sender: TObject);
begin
if (AandDCheckBox12.Checked) and (not Checkbox7.Checked) then
Label13.Caption:= '80'
else
if (AandDCheckBox12.Checked) and (Checkbox7.Checked) then
Label13.Caption:= '90'
else
if (not AandDCheckBox12.Checked) and (Checkbox7.Checked) then
Label13.Caption:= '10'
else
label13.Caption:= '00' ;
end;

procedure TForm1.SandDCheckBox13Click(Sender: TObject);
begin
UpdateLabel37;
end;


procedure TForm1.FBCheckBox14Click(Sender: TObject);
begin
UpdateLabel37;
end;

procedure TForm1.Edit22Change(Sender: TObject);
begin
if Edit22.Text = '0'then
(Edit15.Text := '49');
if Edit22.Text = '0'then
(Edit14.Text := '48');

if Edit22.Text = '1'then
(Edit15.Text := '50');
if Edit22.Text = '1'then
(Edit14.Text := '48');


if Edit22.Text = '2'then
(Edit15.Text := '51');
if Edit22.Text = '2'then
(Edit14.Text := '48');

if Edit22.Text = '3'then
(Edit15.Text := '52');
if Edit22.Text = '3'then
(Edit14.Text := '48');

if Edit22.Text = '4'then
(Edit15.Text := '53') ;
if Edit22.Text = '4'then
(Edit14.Text := '48');

if Edit22.Text = '5' then
(Edit15.Text := '54');
if Edit22.Text = '5' then
(Edit14.Text := '48') ;

if Edit22.Text = '6' then
(Edit15.Text := '55') ;
if Edit22.Text = '6' then
(Edit14.Text := '48');

if Edit22.Text = '7'then
(Edit15.Text := '56');
if Edit22.Text = '7'then
(Edit14.Text := '48') ;

if Edit22.Text = '8'then
(Edit15.Text := '48');
if Edit22.Text = '8'then
(Edit14.Text := '49');


combobox2.itemindex := strtoint(edit22.Text);
end;


procedure TForm1.BgColorButton8Click(Sender: TObject);
begin
if ColorDialog.Execute then form1.Color := ColorDialog.Color;
end;


procedure TForm1.ComboBox3Change(Sender: TObject);
begin
Edit23.text := Format('%.1d', [ComboBox3.ItemIndex + 0]);
if (Edit22.Text = '0') and (Edit23.Text = '1')then
Edit32.Text := '0';

if (Edit22.Text = '1') and (Edit23.Text = '2')then
Edit32.Text := '1';

if (Edit22.Text = '3') and (Edit23.Text = '3')then
Edit32.Text := '2';

if (Edit22.Text = '4') and (Edit23.Text = '4')then
Edit32.Text := '3';

if (Edit22.Text = '6') and (Edit23.Text = '5')then
Edit32.Text := '4';

if (Edit22.Text = '4') and (Edit23.Text = '22')then
Edit32.Text := '5';

if (Edit22.Text = '6') and (Edit23.Text = '23')then
Edit32.Text := '6';

if (Edit22.Text = '2') and (Edit23.Text = '28')then
Edit32.Text := '7';

if (Edit22.Text = '2') and (Edit23.Text = '29')then
Edit32.Text := '8';

if (Edit22.Text = '2') and (Edit23.Text = '24')then
Edit32.Text := '9';

if (Edit22.Text = '0') and (Edit23.Text = '25')then
Edit32.Text := '10';

if (Edit22.Text = '3') and (Edit23.Text = '26')then
Edit32.Text := '11';

if (Edit22.Text = '4') and (Edit23.Text = '27')then
Edit32.Text := '12';

if (Edit22.Text = '1') and (Edit23.Text = '16')then
Edit32.Text := '13';

if (Edit22.Text = '3') and (Edit23.Text = '17')then
Edit32.Text := '14';

if (Edit22.Text = '4') and (Edit23.Text = '18')then
Edit32.Text := '15';

if (Edit22.Text = '5') and (Edit23.Text = '19')then
Edit32.Text := '16';

if (Edit22.Text = '6') and (Edit23.Text = '20')then
Edit32.Text := '17';

if (Edit22.Text = '7') and (Edit23.Text = '21')then
Edit32.Text := '18';

if (Edit22.Text = '7') and (Edit23.Text = '6')then
Edit32.Text := '19';

if (Edit22.Text = '7') and (Edit23.Text = '7')then
Edit32.Text := '20';

if (Edit22.Text = '5') and (Edit23.Text = '8')then
Edit32.Text := '21';

if (Edit22.Text = '4') and (Edit23.Text = '9')then
Edit32.Text := '22';

if (Edit22.Text = '3') and (Edit23.Text = '10')then
Edit32.Text := '23';

if (Edit22.Text = '1') and (Edit23.Text = '11')then
Edit32.Text := '24';

if (Edit22.Text = '4') and (Edit23.Text = '10')then
Edit32.Text := '25';
if (Edit22.Text = '5') and (Edit23.Text = '13')then
Edit32.Text := '26';

if (Edit22.Text = '6') and (Edit23.Text = '14')then
Edit32.Text := '27';

if (Edit22.Text = '7') and (Edit23.Text = '15')then
Edit32.Text := '28';
end;

procedure TForm1.Edit23Change(Sender: TObject);
begin

if (Edit23.Text = '0') then
Edit24.Text := '115'; //s
if (Edit23.Text = '0') then
Edit25.Text := '107'; //k
if (Edit23.Text = '0') then
Edit26.Text := '121'; //y
if (Edit23.Text = '0') then
Edit27.Text := '103'; //g
if (Edit23.Text = '0') then
Edit28.Text := '114'; //r
if (Edit23.Text = '0') then
Edit29.Text := '97'; //a
if (Edit23.Text = '0') then
Edit30.Text := '100'; //d
if (Edit23.Text = '0') then
Edit31.Text := '110'; //n

if (Edit23.Text = '1') then
Edit24.Text := '115'; //s
if (Edit23.Text = '1') then
Edit25.Text := '107'; //k
if (Edit23.Text = '1') then
Edit26.Text := '121'; //y
if (Edit23.Text = '1') then
Edit27.Text := '103'; //g
if (Edit23.Text = '1') then
Edit28.Text := '114'; //r
if (Edit23.Text = '1') then
Edit29.Text := '100'; //d
if (Edit23.Text = '1') then
Edit30.Text := '48'; //0
if (Edit23.Text = '1') then
Edit31.Text := '49'; //1

if (Edit23.Text = '2') then
Edit24.Text := '115'; //s
if (Edit23.Text = '2') then
Edit25.Text := '107'; //k
if (Edit23.Text = '2') then
Edit26.Text := '121'; //y
if (Edit23.Text = '2') then
Edit27.Text := '103'; //g
if (Edit23.Text = '2') then
Edit28.Text := '114'; //r
if (Edit23.Text = '2') then
Edit29.Text := '100'; //d
if (Edit23.Text = '2') then
Edit30.Text := '48'; //0
if (Edit23.Text = '2') then
Edit31.Text := '50'; //2

if (Edit23.Text = '3') then
Edit24.Text := '115'; //s
if (Edit23.Text = '3') then
Edit25.Text := '107'; //k
if (Edit23.Text = '3') then
Edit26.Text := '121'; //y
if (Edit23.Text = '3') then
Edit27.Text := '103'; //g
if (Edit23.Text = '3') then
Edit28.Text := '114'; //r
if (Edit23.Text = '3') then
Edit29.Text := '100'; //d
if (Edit23.Text = '3') then
Edit30.Text := '48'; //0
if (Edit23.Text = '3') then
Edit31.Text := '51'; //3

if (Edit23.Text = '4') then
Edit24.Text := '115'; //s
if (Edit23.Text = '4') then
Edit25.Text := '107'; //k
if (Edit23.Text = '4') then
Edit26.Text := '121'; //y
if (Edit23.Text = '4') then
Edit27.Text := '103'; //g
if (Edit23.Text = '4') then
Edit28.Text := '114'; //r
if (Edit23.Text = '4') then
Edit29.Text := '100'; //d
if (Edit23.Text = '4') then
Edit30.Text := '48'; //0
if (Edit23.Text = '4') then
Edit31.Text := '52'; //4

if (Edit23.Text = '5') then
Edit24.Text := '115'; //s
if (Edit23.Text = '5') then
Edit25.Text := '107'; //k
if (Edit23.Text = '5') then
Edit26.Text := '121'; //y
if (Edit23.Text = '5') then
Edit27.Text := '103'; //g
if (Edit23.Text = '5') then
Edit28.Text := '114'; //r
if (Edit23.Text = '5') then
Edit29.Text := '100'; //d
if (Edit23.Text = '5') then
Edit30.Text := '48'; //0
if (Edit23.Text = '5') then
Edit31.Text := '53'; //5

if (Edit23.Text = '6') then
Edit24.Text := '115'; //s
if (Edit23.Text = '6') then
Edit25.Text := '110'; //n
if (Edit23.Text = '6') then
Edit26.Text := '115'; //s
if (Edit23.Text = '6') then
Edit27.Text := '103'; //g
if (Edit23.Text = '6') then
Edit28.Text := '114'; //r
if (Edit23.Text = '6') then
Edit29.Text := '100'; //d
if (Edit23.Text = '6') then
Edit30.Text := '48'; //0
if (Edit23.Text = '6') then
Edit31.Text := '49'; //1

if (Edit23.Text = '7') then
Edit24.Text := '115'; //s
if (Edit23.Text = '7') then
Edit25.Text := '110'; //n
if (Edit23.Text = '7') then
Edit26.Text := '115'; //s
if (Edit23.Text = '7') then
Edit27.Text := '103'; //g
if (Edit23.Text = '7') then
Edit28.Text := '114'; //r
if (Edit23.Text = '7') then
Edit29.Text := '100'; //d
if (Edit23.Text = '7') then
Edit30.Text := '48'; //0
if (Edit23.Text = '7') then
Edit31.Text := '50'; //2

if (Edit23.Text = '8') then
Edit24.Text := '115'; //s
if (Edit23.Text = '8') then
Edit25.Text := '110'; //n
if (Edit23.Text = '8') then
Edit26.Text := '115'; //s
if (Edit23.Text = '8') then
Edit27.Text := '103'; //g
if (Edit23.Text = '8') then
Edit28.Text := '114'; //r
if (Edit23.Text = '8') then
Edit29.Text := '100'; //d
if (Edit23.Text = '8') then
Edit30.Text := '48'; //0
if (Edit23.Text = '8') then
Edit31.Text := '51'; //3

if (Edit23.Text = '9') then
Edit24.Text := '115'; //s
if (Edit23.Text = '9') then
Edit25.Text := '110'; //n
if (Edit23.Text = '9') then
Edit26.Text := '115'; //s
if (Edit23.Text = '9') then
Edit27.Text := '103'; //g
if (Edit23.Text = '9') then
Edit28.Text := '114'; //r
if (Edit23.Text = '9') then
Edit29.Text := '100'; //d
if (Edit23.Text = '9') then
Edit30.Text := '48'; //0
if (Edit23.Text = '9') then
Edit31.Text := '52'; //4

if (Edit23.Text = '10') then
Edit24.Text := '115'; //s
if (Edit23.Text = '10') then
Edit25.Text := '110'; //n
if (Edit23.Text = '10') then
Edit26.Text := '115'; //s
if (Edit23.Text = '10') then
Edit27.Text := '103'; //g
if (Edit23.Text = '10') then
Edit28.Text := '114'; //r
if (Edit23.Text = '10') then
Edit29.Text := '100'; //d
if (Edit23.Text = '10') then
Edit30.Text := '48'; //0
if (Edit23.Text = '10') then
Edit31.Text := '53'; //5

if (Edit23.Text = '11') then
Edit24.Text := '115'; //s
if (Edit23.Text = '11') then
Edit25.Text := '110'; //n
if (Edit23.Text = '11') then
Edit26.Text := '115'; //s
if (Edit23.Text = '11') then
Edit27.Text := '103'; //g
if (Edit23.Text = '11') then
Edit28.Text := '114'; //r
if (Edit23.Text = '11') then
Edit29.Text := '100'; //d
if (Edit23.Text = '11') then
Edit30.Text := '48'; //0
if (Edit23.Text = '11') then
Edit31.Text := '54'; //6

if (Edit23.Text = '12') then
Edit24.Text := '115'; //s
if (Edit23.Text = '12') then
Edit25.Text := '110'; //n
if (Edit23.Text = '12') then
Edit26.Text := '115'; //s
if (Edit23.Text = '12') then
Edit27.Text := '103'; //g
if (Edit23.Text = '12') then
Edit28.Text := '114'; //r
if (Edit23.Text = '12') then
Edit29.Text := '100'; //d
if (Edit23.Text = '12') then
Edit30.Text := '48'; //0
if (Edit23.Text = '12') then
Edit31.Text := '55'; //7

if (Edit23.Text = '13') then
Edit24.Text := '115'; //s
if (Edit23.Text = '13') then
Edit25.Text := '110'; //n
if (Edit23.Text = '13') then
Edit26.Text := '115'; //s
if (Edit23.Text = '13') then
Edit27.Text := '103'; //g
if (Edit23.Text = '13') then
Edit28.Text := '114'; //r
if (Edit23.Text = '13') then
Edit29.Text := '100'; //d
if (Edit23.Text = '13') then
Edit30.Text := '48'; //0
if (Edit23.Text = '13') then
Edit31.Text := '56'; //8

if (Edit23.Text = '14') then
Edit24.Text := '115'; //s
if (Edit23.Text = '14') then
Edit25.Text := '110'; //n
if (Edit23.Text = '14') then
Edit26.Text := '115'; //s
if (Edit23.Text = '14') then
Edit27.Text := '103'; //g
if (Edit23.Text = '14') then
Edit28.Text := '114'; //r
if (Edit23.Text = '14') then
Edit29.Text := '100'; //d
if (Edit23.Text = '14') then
Edit30.Text := '48'; //0
if (Edit23.Text = '14') then
Edit31.Text := '57'; //9

if (Edit23.Text = '15') then
Edit24.Text := '115'; //s
if (Edit23.Text = '15') then
Edit25.Text := '110'; //n
if (Edit23.Text = '15') then
Edit26.Text := '115'; //s
if (Edit23.Text = '15') then
Edit27.Text := '103'; //g
if (Edit23.Text = '15') then
Edit28.Text := '114'; //r
if (Edit23.Text = '15') then
Edit29.Text := '100'; //d
if (Edit23.Text = '15') then
Edit30.Text := '49'; //1
if (Edit23.Text = '15') then
Edit31.Text := '48'; //0

if (Edit23.Text = '16') then
Edit24.Text := '115'; //s
if (Edit23.Text = '16') then
Edit25.Text := '110'; //n
if (Edit23.Text = '16') then
Edit26.Text := '114'; //r
if (Edit23.Text = '16') then
Edit27.Text := '103'; //g
if (Edit23.Text = '16') then
Edit28.Text := '114'; //r
if (Edit23.Text = '16') then
Edit29.Text := '100'; //d
if (Edit23.Text = '16') then
Edit30.Text := '48'; //0
if (Edit23.Text = '16') then
Edit31.Text := '49'; //1

if (Edit23.Text = '17') then
Edit24.Text := '115'; //s
if (Edit23.Text = '17') then
Edit25.Text := '110'; //n
if (Edit23.Text = '17') then
Edit26.Text := '114'; //r
if (Edit23.Text = '17') then
Edit27.Text := '103'; //g
if (Edit23.Text = '17') then
Edit28.Text := '114'; //r
if (Edit23.Text = '17') then
Edit29.Text := '100'; //d
if (Edit23.Text = '17') then
Edit30.Text := '48'; //0
if (Edit23.Text = '17') then
Edit31.Text := '50'; //2

if (Edit23.Text = '18') then
Edit24.Text := '115'; //s
if (Edit23.Text = '18') then
Edit25.Text := '110'; //n
if (Edit23.Text = '18') then
Edit26.Text := '114'; //r
if (Edit23.Text = '18') then
Edit27.Text := '103'; //g
if (Edit23.Text = '18') then
Edit28.Text := '114'; //r
if (Edit23.Text = '18') then
Edit29.Text := '100'; //d
if (Edit23.Text = '18') then
Edit30.Text := '48'; //0
if (Edit23.Text = '18') then
Edit31.Text := '51'; //3

if (Edit23.Text = '19') then
Edit24.Text := '115'; //s
if (Edit23.Text = '19') then
Edit25.Text := '110'; //n
if (Edit23.Text = '19') then
Edit26.Text := '114'; //r
if (Edit23.Text = '19') then
Edit27.Text := '103'; //g
if (Edit23.Text = '19') then
Edit28.Text := '114'; //r
if (Edit23.Text = '19') then
Edit29.Text := '100'; //d
if (Edit23.Text = '19') then
Edit30.Text := '48'; //0
if (Edit23.Text = '19') then
Edit31.Text := '52'; //4

if (Edit23.Text = '20') then
Edit24.Text := '115'; //s
if (Edit23.Text = '20') then
Edit25.Text := '110'; //n
if (Edit23.Text = '20') then
Edit26.Text := '114'; //r
if (Edit23.Text = '20') then
Edit27.Text := '103'; //g
if (Edit23.Text = '20') then
Edit28.Text := '114'; //r
if (Edit23.Text = '20') then
Edit29.Text := '100'; //d
if (Edit23.Text = '20') then
Edit30.Text := '48'; //0
if (Edit23.Text = '20') then
Edit31.Text := '53'; //5

if (Edit23.Text = '21') then
Edit24.Text := '115'; //s
if (Edit23.Text = '21') then
Edit25.Text := '110'; //n
if (Edit23.Text = '21') then
Edit26.Text := '114'; //r
if (Edit23.Text = '21') then
Edit27.Text := '103'; //g
if (Edit23.Text = '21') then
Edit28.Text := '114'; //r
if (Edit23.Text = '21') then
Edit29.Text := '100'; //d
if (Edit23.Text = '21') then
Edit30.Text := '48'; //0
if (Edit23.Text = '21') then
Edit31.Text := '54'; //6

if (Edit23.Text = '22') then
Edit24.Text := '110'; //n
if (Edit23.Text = '22') then
Edit25.Text := '105'; //i
if (Edit23.Text = '22') then
Edit26.Text := '116'; //t
if (Edit23.Text = '22') then
Edit27.Text := '103'; //g
if (Edit23.Text = '22') then
Edit28.Text := '114'; //r
if (Edit23.Text = '22') then
Edit29.Text := '100'; //d
if (Edit23.Text = '22') then
Edit30.Text := '48'; //0
if (Edit23.Text = '22') then
Edit31.Text := '49'; //1

if (Edit23.Text = '23') then
Edit24.Text := '110'; //n
if (Edit23.Text = '23') then
Edit25.Text := '105'; //i
if (Edit23.Text = '23') then
Edit26.Text := '116'; //t
if (Edit23.Text = '23') then
Edit27.Text := '103'; //g
if (Edit23.Text = '23') then
Edit28.Text := '114'; //r
if (Edit23.Text = '23') then
Edit29.Text := '100'; //d
if (Edit23.Text = '23') then
Edit30.Text := '48'; //0
if (Edit23.Text = '23') then
Edit31.Text := '50'; //2

if (Edit23.Text = '24') then
Edit24.Text := '115'; //s
if (Edit23.Text = '24') then
Edit25.Text := '116'; //t
if (Edit23.Text = '24') then
Edit26.Text := '109'; //m
if (Edit23.Text = '24') then
Edit27.Text := '103'; //g
if (Edit23.Text = '24') then
Edit28.Text := '114'; //r
if (Edit23.Text = '24') then
Edit29.Text := '100'; //d
if (Edit23.Text = '24') then
Edit30.Text := '48'; //0
if (Edit23.Text = '24') then
Edit31.Text := '49'; //1

if (Edit23.Text = '25') then
Edit24.Text := '115'; //s
if (Edit23.Text = '25') then
Edit25.Text := '116'; //t
if (Edit23.Text = '25') then
Edit26.Text := '109'; //m
if (Edit23.Text = '25') then
Edit27.Text := '103'; //g
if (Edit23.Text = '25') then
Edit28.Text := '114'; //r
if (Edit23.Text = '25') then
Edit29.Text := '100'; //d
if (Edit23.Text = '25') then
Edit30.Text := '48'; //0
if (Edit23.Text = '25') then
Edit31.Text := '50'; //2

if (Edit23.Text = '26') then
Edit24.Text := '115'; //s
if (Edit23.Text = '26') then
Edit25.Text := '116'; //t
if (Edit23.Text = '26') then
Edit26.Text := '109'; //m
if (Edit23.Text = '26') then
Edit27.Text := '103'; //g
if (Edit23.Text = '26') then
Edit28.Text := '114'; //r
if (Edit23.Text = '26') then
Edit29.Text := '100'; //d
if (Edit23.Text = '26') then
Edit30.Text := '48'; //0
if (Edit23.Text = '26') then
Edit31.Text := '51'; //3

if (Edit23.Text = '27') then
Edit24.Text := '115'; //s
if (Edit23.Text = '27') then
Edit25.Text := '116'; //t
if (Edit23.Text = '27') then
Edit26.Text := '109'; //m
if (Edit23.Text = '27') then
Edit27.Text := '103'; //g
if (Edit23.Text = '27') then
Edit28.Text := '114'; //r
if (Edit23.Text = '27') then
Edit29.Text := '100'; //d
if (Edit23.Text = '27') then
Edit30.Text := '48'; //0
if (Edit23.Text = '27') then
Edit31.Text := '52'; //4

if (Edit23.Text = '28') then
Edit24.Text := '111'; //o
if (Edit23.Text = '28') then
Edit25.Text := '118'; //v
if (Edit23.Text = '28') then
Edit26.Text := '114'; //r
if (Edit23.Text = '28') then
Edit27.Text := '103'; //g
if (Edit23.Text = '28') then
Edit28.Text := '114'; //r
if (Edit23.Text = '28') then
Edit29.Text := '100'; //d
if (Edit23.Text = '28') then
Edit30.Text := '48'; //0
if (Edit23.Text = '28') then
Edit31.Text := '49'; //1

if (Edit23.Text = '29') then
Edit24.Text := '111'; //o
if (Edit23.Text = '29') then
Edit25.Text := '118'; //v
if (Edit23.Text = '29') then
Edit26.Text := '114'; //r
if (Edit23.Text = '29') then
Edit27.Text := '103'; //g
if (Edit23.Text = '29') then
Edit28.Text := '114'; //r
if (Edit23.Text = '29') then
Edit29.Text := '100'; //d
if (Edit23.Text = '29') then
Edit30.Text := '48'; //0
if (Edit23.Text = '29') then
Edit31.Text := '50'; //2

if (Edit23.Text = '31') then
Edit24.Text := '115';
if (Edit23.Text = '31') then
Edit25.Text := '107';
if (Edit23.Text = '31') then
Edit26.Text := '121';
if (Edit23.Text = '31') then
Edit27.Text := '103';
if (Edit23.Text = '31') then
Edit28.Text := '114';
if (Edit23.Text = '31') then
Edit29.Text := '97';
if (Edit23.Text = '31') then
Edit30.Text := '100';
if (Edit23.Text = '31') then
Edit31.Text := '110';

combobox3.itemindex := strtoint(edit23.text);

end;

procedure TForm1.Edit24Change(Sender: TObject);
begin
Label38.Caption := IntToHex(StrToInt(Edit24.text), 2);
end;

procedure TForm1.Edit25Change(Sender: TObject);
begin
Label39.Caption := IntToHex(StrToInt(Edit25.text), 2);
end;

procedure TForm1.Edit26Change(Sender: TObject);
begin
Label40.Caption := IntToHex(StrToInt(Edit26.text), 2);
end;

procedure TForm1.Edit27Change(Sender: TObject);
begin
Label41.Caption := IntToHex(StrToInt(Edit27.text), 2);
end;

procedure TForm1.Edit28Change(Sender: TObject);
begin
Label42.Caption := IntToHex(StrToInt(Edit28.text), 2);
end;

procedure TForm1.Edit29Change(Sender: TObject);
begin
Label43.Caption := IntToHex(StrToInt(Edit29.text), 2);
end;

procedure TForm1.Edit30Change(Sender: TObject);
begin
Label44.Caption := IntToHex(StrToInt(Edit30.text), 2);
end;

procedure TForm1.Edit31Change(Sender: TObject);
begin
Label45.Caption := IntToHex(StrToInt(Edit31.text), 2);
end;

procedure TForm1.Edit32Change(Sender: TObject);
begin
combobox4.itemindex := strtoint(edit32.text);

end;

procedure TForm1.ComboBox4Change(Sender: TObject);
begin
Edit32.text := Format('%.1d', [ComboBox4.ItemIndex + 0]);
if Edit32.Text = '0' then
(Edit22.Text := '0');
if Edit32.Text = '0' then
(Edit23.Text := '1');
if Edit32.Text = '1' then
(Edit22.Text := '1');
if Edit32.Text = '1' then
(Edit23.Text := '2');
if Edit32.Text = '2' then
(Edit22.Text := '3');
if Edit32.Text = '2' then
(Edit23.Text := '3');
if Edit32.Text = '3' then
(Edit22.Text := '4') ;
if Edit32.Text = '3' then
(Edit23.Text := '4') ;
if Edit32.Text = '4' then
(Edit22.Text := '6') ;
if Edit32.Text = '4' then
(Edit23.Text := '5');
if Edit32.Text = '5' then
(Edit22.Text := '4');
if Edit32.Text = '5' then
(Edit23.Text := '22') ;
if Edit32.Text = '6' then
(Edit22.Text := '6');
if Edit32.Text = '6' then
(Edit23.Text := '23') ;
if Edit32.Text = '7' then
(Edit22.Text := '2');
if Edit32.Text = '7' then
(Edit23.Text := '28') ;
if Edit32.Text = '8' then
(Edit22.Text := '2');
if Edit32.Text = '8' then
(Edit23.Text := '29') ;
if Edit32.Text = '9' then
(Edit22.Text := '2');
if Edit32.Text = '9' then
(Edit23.Text := '24') ;
if Edit32.Text = '10' then
(Edit22.Text := '0') ;
if Edit32.Text = '10' then
(Edit23.Text := '25');
if Edit32.Text = '11' then
(Edit22.Text := '3') ;
if Edit32.Text = '11' then
(Edit23.Text := '26') ;
if Edit32.Text = '12' then
(Edit22.Text := '4') ;
if Edit32.Text = '12' then
(Edit23.Text := '27') ;
if Edit32.Text = '13' then
(Edit22.Text := '1');
if Edit32.Text = '13' then
(Edit23.Text := '16') ;
if Edit32.Text = '14' then
(Edit22.Text := '3');
if Edit32.Text = '14' then
(Edit23.Text := '17') ;
if Edit32.Text = '15' then
(Edit22.Text:= '4');
if Edit32.Text = '15' then
(Edit23.Text:= '18') ;
if Edit32.Text = '16' then
(Edit22.Text := '5') ;
if Edit32.Text = '16' then
(Edit23.Text := '19') ;
if Edit32.Text = '17' then
(Edit22.Text:= '6');
if Edit32.Text = '17' then
(Edit23.Text := '20') ;
if Edit32.Text = '18' then
(Edit22.Text:= '7') ;
if Edit32.Text = '18' then
(Edit23.Text:= '21') ;
if Edit32.Text = '19' then
(Edit22.Text := '7') ;
if Edit32.Text = '19' then
(Edit23.Text:= '6') ;
if Edit32.Text = '20' then
(Edit22.Text:= '7');
if Edit32.Text = '20' then
(Edit23.Text := '7') ;
if Edit32.Text = '21' then
(Edit22.Text:= '5');
if Edit32.Text = '21' then
(Edit23.Text := '8') ;
if Edit32.Text = '22' then
(Edit22.Text := '4');
if Edit32.Text = '22' then
(Edit23.Text:= '9') ;
if Edit32.Text = '23' then
(Edit22.Text := '3');
if Edit32.Text = '23' then
(Edit23.Text := '10') ;
if Edit32.Text = '24' then
(Edit22.Text := '1') ;
if Edit32.Text = '24' then
(Edit23.Text := '11');
if Edit32.Text = '25' then
(Edit22.Text:= '4');
if Edit32.Text = '25' then
(Edit23.Text:= '10');
if Edit32.Text = '26' then
(Edit22.Text := '5');
if Edit32.Text = '26' then
(Edit23.Text := '13');
if Edit32.Text = '27' then
(Edit22.Text := '6') ;
if Edit32.Text = '27' then
(Edit23.Text := '14');
if Edit32.Text = '28' then
(Edit22.Text := '7') ;
if Edit32.Text = '28' then
(Edit23.Text := '15');
end;

procedure TForm1.SetCheckBoxStates(b: byte);
begin
FSettingCheckBoxes := true;
try
SandDCheckBox13.Checked := b >= 128; if b >= 128 then Dec(b, 128);
TKOTHCheckBox10.Checked := b >= 64 ; if b >= 64 then Dec(b, 64 );
TDMCheckBox8.Checked := b >= 32 ; if b >= 32 then Dec(b, 32 );
CTFCheckBox11.Checked := b >= 16 ; if b >= 16 then Dec(b, 16 );
FBCheckBox14.Checked := b >= 8 ; if b >= 8 then Dec(b, 8 );
KOTHCheckBox9.Checked := b >= 4 ; if b >= 4 then Dec(b, 4 );
DMCheckBox6.Checked := b >= 2 ; if b >= 2 then Dec(b, 2 );
COOPCheckBox5.Checked := b >= 1 ;
finally
FSettingCheckBoxes := false;
end;
end;



procedure TForm1.Edit11Change(Sender: TObject);
begin
//Label37.Caption:= IntToHex(StrToInt(Edit11.Text), 2);
end;

procedure TForm1.Edit12Change(Sender: TObject);
begin
if (Edit12.Text = '10') then
Label59.caption := 'MasterKey'
else
if (Edit12.Text = '9') then
Label59.caption := 'M4w/M203'
else
if (Edit12.Text = '11') then
Label59.caption := 'M249 SAW'
else
if (Edit12.Text = '12') then
Label59.caption := 'Barret Light .50 cal'
else
if (Edit12.Text = '15') then
Label59.caption := 'H&K MP5 Suppressed'
else
if (Edit12.Text = '23') then
Label59.caption := 'M40A1 sniper rifle'
else
if (Edit12.Text = '29') then
Label59.caption := 'Underwater Assault Rifle';
end;

procedure TForm1.Edit33Change(Sender: TObject);
begin
if (Edit33.Text = '1') then
Label60.caption := 'Double Ammo Load'
else
if (Edit33.Text = '20') then
Label60.caption := 'Law'
else
if (Edit33.Text = '21') then
Label60.caption := 'Satchel Charge'
else
if (Edit33.Text = '24') then
Label60.caption := 'Claymore'
else
if (Edit33.Text = '36') then
Label60.caption := 'Video Camera';
end;

procedure TForm1.Edit34Change(Sender: TObject);
begin
if (Edit34.Text = '1') then
Label61.caption := 'Double Ammo Load'
else
if (Edit34.Text = '20') then
Label61.caption := 'Law'
else
if (Edit34.Text = '21') then
Label61.caption := 'Satchel Charge'
else
if (Edit34.Text = '24') then
Label61.caption := 'Claymore'
else
if (Edit34.Text = '31') then
Label61.caption := 'Kevlar Vest'
else
if (Edit34.Text = '32') then
Label61.caption := 'Ghillie Suit'
else
if (Edit34.Text = '33') then
Label61.caption := 'ReBreather'
else
if (Edit34.Text = '36') then
Label61.caption := 'Video Camera';
end;

procedure TForm1.Edit35Change(Sender: TObject);
begin
if (Edit35.Text = '6') then
Label62.caption := 'Socom .45'
else
if (Edit35.Text = '5') then
Label62.caption := 'Socom .45 Suppressed'
else
if (Edit35.Text = '28') then
Label62.caption := 'P11'
end;



procedure TForm1.Edit36Change(Sender: TObject);
begin
Edit21.text := IntToHex(StrToInt(Edit36.Text), 2);
Label37.Caption:= IntToHex(StrToInt(Edit36.Text), 2);
end;

procedure TForm1.OpenDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
ShowMessage('Canceled');
end;

end.


May not be exactly as shown in image due to updates

Image[/QUOTE]
For your gaming textures and downloads. Now hosting over 5000 game textures and more uploaded every night. Click the sig.
Image
DR.EVIL~TAG
Mod Depot Staff
 
Posts: 427
Joined: 03-31-2004 03:31 PM


Return to Coders Hell

Who is online

Users browsing this forum: No registered users and 1 guest

cron