DARKNAMEANIM Codage

Dark]Yan[Qc]
***DarK Admin***

Posts: 708

DARKNAMEANIM Codage Mar 21, 2007 13:18:39 GMT -5

Quote

Post by Dark]Yan[Qc] on Mar 21, 2007 13:18:39 GMT -5

here's how it works: (PART 1)

(I trim it and doc it for u guys)

CHANGING TEXT FROM TEXTBOX IN COLOR
-----------------------------------

[ With all other colors too]

procedure frmMain.btpurple_Click(sender: System.Object; e: System.EventArgs);
begin
if (rtb1.SelectedText <> '') then
begin
rtb1.SelectionColor := ReadColor(6);
end else showmessage('Please select characters before pressing colors');
rtb1.set_SelectionLength(0);

end;

function frmmain.ReadColor(IndexCol:integer):color; // complet
begin
// change the letter in the Textbox with the desired color
If indexcol = 1 then result :=Color.Red;
If indexcol = 2 then result :=Color.Lime else
If indexcol = 3 then result :=Color.Yellow else
if indexcol = 4 then result :=Color.Blue else
if indexcol = 5 then result :=Color.Aqua else
if indexcol = 6 then result :=Color.Fuchsia else
if indexcol = 7 then result :=Color.White else
if indexcol = 8 then result :=Color.Black;
end;
// complete
----------------------END OF COLORS ----------------------------------------

ADDING A NAME AND A DELAY:
--------------------------

procedure frmMain.btadd_Click(sender: System.Object; e: System.EventArgs);
var res : boolean;
ok : boolean;
begin
res:=false;
if (Index = 49) then showmessage('Sorry No More Rooms for name')
else
begin
if (rtb1.Text <> '') and (rtb1delay.text <> '') then
begin
Ok:=AnalyseDelay();
if OK then res:= TRUE
// if (rtb1delay.text <= '9') and (rtb1delay.text >= '0') then res:=TRUE
else
begin
res:=FALSE ;
showmessage ('Please enter a number for your delay');
end ;
if (res = TRUE) then
begin
btPreview.Enabled := TRUE;
res:=false;
delaiApp:= DelaiApp + strtoint(rtb1delay.text);
lbDelay.Text := inttostr(delaiApp);
writename(index);
if (not modifyFlag) then
begin
index:=index+1;
nomtotal:= Nomtotal+1;
btRemove.Enabled := TRUE;
btmodify.Enabled:=TRUE;
cbOriginal.Enabled := TRUE;
end else
begin
modifyFlag := FALSE;
Index := NomTotal + 1;
end ;
end
end
else showmessage ('Please enter both Name and Delay');
end;

procedure FrmMain.Writename(Ind:integer);
begin
(* Analyse the index to see where to copy the name and delay,
copy them and enables the windows*)
TakeOffReadOnly();
if ind = 1 then
begin
rtb1.SelectAll;
rtb1.copy;
tbname1.paste;
rtb1delay.selectall;
rtb1delay.copy;
tbdelay1.Paste;
tbname1.enabled:=TRUE;
tbdelay1.Enabled:= TRUE;
end else if ind = 2 then
begin
rtb1.SelectAll;
rtb1.copy;
tbname2.paste;
rtb1delay.selectall;
rtb1delay.copy;
tbdelay2.Paste;
tbdelay2.enabled:=true;
tbname2.Enabled:=true;
end else if ind = 3 then
begin

[...]

end else if ind = 48 then
begin
rtb1.SelectAll;
rtb1.copy;
tbname48.paste;
rtb1delay.selectall;
rtb1delay.copy;
tbdelay48.Paste;
tbdelay48.enabled:=true;
tbname48.Enabled:=true;
end;
PutBackReadOnly();
Nameclear();
end;
// complete

function FrmMain.AnalyseDelay():boolean;
var len : integer;
ind : integer;
begin
(* make sure no characters except Number in Delay*)
rtb1delay.selectall;
len:=rtb1delay.selectionLength;
ind:=0;
while (len > 0) do
begin
tbActChar.Clear;
Rtb1delay.select(ind, 1);
rtb1delay.copy;
tbActChar.paste;
if (((tbActChar.text) >= '0') and ((tbActChar.text) <= '9')) then
begin
ind := ind + 1;
len := len - 1;
Result:= TRUE;
end else
begin
Result := FALSE;
len:=0;
end;
end;
end;
// complete

----------------------END OF ADD NAME DELAY --------------------------------

REPLACE AND REMOVE FUNCTION:
----------------------------
procedure frmMain.btRemove_Click(sender: System.Object; e: System.EventArgs);
begin
ShowNumbersBt();
Showmessage('Please select which line you want to Remove by clicking the number.'#13#10'You also may press Cancel to Cancel the Remove Operation');
RemoveFlag:=TRUE;
end;

procedure frmMain.btReplace_Click(sender: System.Object; e: System.EventArgs);
begin
if (not modifyFlag) then
begin
ShowNumbersBt();
showmessage('Please click on the line you want to modify'#13#10'You may also Click the Cancel button to cancel');
modifyFlag:=TRUE;
end else Showmessage('Please Use the ADD button to Enter the new name');
end;

procedure frmMain.bt48_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 48) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay48.Text));
choosen:=48;
HideNumbersBt();
ExecuteRemove(Choosen);
end;
end;

procedure frmMain.bt3_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 3) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay3.Text));
choosen:=3;
HideNumbersBt();
ExecuteRemove(Choosen);
end;
end;

procedure frmMain.bt2_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 2) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay2.Text));
choosen:=2;
HideNumbersBt();
ExecuteRemove(Choosen);
end;
end;

procedure frmMain.bt1_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 1) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay1.Text));
choosen:=1;
HideNumbersBt();
executeRemove(choosen);
end;
end;

[... 48 buttons ]

procedure frmMain.ExecuteRemove(Choosen:integer);
begin
(* substract the deleted delay, send the index to CleanUpNames (On Remove)*)
(* substract the deleted delay, Send the index to ClearChoosen (on Modify)*)
if (RemoveFlag) then
begin
FirstTime:= TRUE;
lbDelay.Text := inttostr(delaiApp);
CleanUpNames(choosen);
NomTotal:=NomTotal - 1;
Index:= Index -1;
RemoveFlag:=FALSE;
end;
if (ModifyFlag) then
begin
lbdelay.text := inttostr(delaiApp);
ClearChoosen(Choosen);
Index := Choosen;
end;
end;
// complete

procedure frmMain.CleanUpNames(StartPt:integer);

(* 1st procedure in remove to replace names up 1 case *)
var numberNames : Integer;
LastLine : integer;
begin
LastLine := NomTotal;
NumberNames := NomTotal - startPt;
TakeOffReadOnly();
while(NumberNames > 0) do
begin
NumberNames:=RearrangeNameList(NumberNames, StartPt);
StartPt:=StartPt+1;
end;
ClearTheLastLine(LastLine);
PutBackReadOnly();
end;
// compelete

function frmMain.RearrangeNameList(IndName:integer; StartPt:integer):integer;
begin
// read next line, write it to the new emptied one
if (startPt = 1) then
begin
// Name
Tbname1.clear;
tbname2.SelectAll;
tbname2.copy;
tbname1.Paste;
// Delay
tbdelay1.Clear;
tbdelay2.SelectAll;
tbdelay2.copy;
tbdelay1.Paste;
end;
if (StartPt = 2) then
begin
Tbname2.clear;
tbname3.SelectAll;
tbname3.copy;
tbname2.Paste;
tbdelay2.Clear;
tbdelay3.SelectAll;
tbdelay3.copy;
tbdelay2.Paste;
end;

[...]

if (StartPt = 46) then
begin
Tbname46.clear;
tbname47.SelectAll;
tbname47.copy;
tbname46.Paste;
tbdelay46.Clear;
tbdelay47.SelectAll;
tbdelay47.copy;
tbdelay46.Paste;
end;
if (StartPt = 47) then
begin
Tbname47.clear;
tbname48.SelectAll;
tbname48.copy;
tbname47.Paste;
tbdelay47.Clear;
tbdelay48.SelectAll;
tbdelay48.copy;
tbdelay47.Paste;
end;
// No Start Pt = 48 cause it's the last line.
Result := IndName - 1;
end;
// complete

procedure frmMain.ClearTheLastLine(LastLine:integer);
begin
(* Clear the last line in Remove procedure *)
if (LastLine = 1) then
begin
tbname1.clear;
tbdelay1.clear;
tbname1.enabled:=false;
tbdelay1.enabled:=false;
// exclusif au Last Line = 1
cbOriginal.Enabled := FALSE;
btRemove.enabled := FALSE;
btmodify.Enabled:= FALSE;
btPreview.Enabled := FALSE;
end;
if (LastLine = 2) then
begin
tbname2.clear;
tbdelay2.clear;
tbname2.enabled:=false;
tbdelay2.enabled:=false;
end;
if (LastLine = 3) then
begin
tbname3.clear;
tbdelay3.clear;
tbname3.enabled:=false;
tbdelay3.enabled:=false;
end;

[...]

if (LastLine = 47) then
begin
tbname47.clear;
tbdelay47.clear;
tbname47.enabled:=false;
tbdelay47.enabled:=false;
end;
if (LastLine = 48) then
begin
tbname48.clear;
tbdelay48.clear;
tbname48.enabled:=false;
tbdelay48.enabled:=false;
end;
end;
// complete

procedure frmMain.ClearChoosen(startPt:integer);

begin
// erase the Text of the Textbox choosen on Modify.
takeoffreadonly();
if (startPt = 1) then
begin
rtb1.Text:= tbname1.Text;
rtb1delay.Text := Tbdelay1.text;
tbname1.clear;
tbdelay1.clear;
end;
if (startPt = 2) then
begin
rtb1.Text:= tbname2.Text;
rtb1delay.Text := Tbdelay2.text;
tbname2.clear;
tbdelay2.clear;
end;

[...]

if (startPt = 47) then
begin
rtb1.Text:= tbname47.Text;
rtb1delay.Text := Tbdelay47.text;
tbname47.clear;
tbdelay47.clear;
end;
if (startPt = 48) then
begin
rtb1.Text:= tbname48.Text;
rtb1delay.Text := Tbdelay48.text;
tbname48.clear;
tbdelay48.clear;
end;
putbackreadonly();
end;

----------------------- END OF REMOVE REPLACE ----------------------------------

PREVIEW:
--------

procedure frmMain.btPreview_Click(sender: System.Object; e: System.EventArgs);
var Name: integer;
DelayInt:integer;
begin
tbpreview.ReadOnly := FALSE;
tbPreview.clear;
tbPreview.ZoomFactor := 1 ;
Name:=NomTotal;
if (name >= 1) then
begin
tbname1.selectAll;
tbName1.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint(TbDelay1.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end;
if (name >= 2) then
begin
tbname2.selectAll;
tbName2.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint(TbDelay2.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end;

[...]

if (name >= 48) then
begin
tbname48.selectAll;
tbName48.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint( TbDelay48.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end ;
If (cbsign.checked) then
begin
tbHidden.clear;
tbHidden.Text:='MadeByDarkNameAnim';
tbhidden.Select(0,4);
tbHidden.SelectionColor:= color.Lime;
tbHidden.select(4,2);
tbhidden.SelectionColor:= color.Yellow;
tbHidden.Select(6,4);
tbHidden.selectionColor:= Color.Red;
tbHidden.Select(10,4);
tbhidden.selectionColor:= color.blue;
tbHidden.Select(14,4);
tbHidden.selectionColor:= Color.White;
tbHidden.SelectAll;
tbHidden.Copy;
tbPreview.Paste;
tbPreview.ZoomFactor:=2;
MyDelay(100);
tbPreview.Clear;
TbPreview.Zoomfactor:=1;
end;
if (cbForum.Checked) then
begin
tbHidden.clear;
tbHidden.Text:='Please Dark Forum';
tbHidden.Select(0, 6);
tbHidden.SelectionColor:= color.Aqua;
tbHidden.Select(7,4);
tbHidden.SelectionColor:= Color.Red;
tbHidden.Select(12,5);
tbHidden.SelectionColor:= color.Aqua;
tbHidden.SelectAll;
tbHidden.Copy;
tbPreview.Paste;
tbPreview.ZoomFactor:=2;
MyDelay(100);
tbPreview.Clear;
TbPreview.Zoomfactor:=1;
tbHidden.clear;
tbHidden.Text:='www.thedarkclan.tk';
tbHidden.Select(0, 4);
tbHidden.selectioncolor:= color.white;
tbHidden.Select(4, 3);
tbHidden.selectioncolor:= color.Lime;
tbHidden.Select(7, 4);
tbHidden.selectioncolor:= color.Red;
tbHidden.Select(11, 4);
tbHidden.selectioncolor:= color.blue;
tbHidden.Select(15, 3);
tbHidden.selectioncolor:= color.white;
tbHidden.SelectAll;
tbHidden.Copy;
tbPreview.Paste;
tbPreview.ZoomFactor:=2;
MyDelay(100);
tbPreview.Clear;
TbPreview.Zoomfactor:=1;
end;
if (cbOriginal.checked) then
begin
tbname1.selectAll;
tbName1.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint(TbDelay1.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end;
// Print back the last name.
tbPreview.Paste;
tbPreview.ZoomFactor := 2;
tbpreview.ReadOnly := TRUE;
btclear.Enabled:= TRUE;
end;
// complete

procedure FrmMain.MyDelay(DelayInt:integer);
var usedelay: integer;
begin
// custom delay to execute the Wait commands
if (delayint > 500) then UseDelay := DelayInt * 100
else UseDelay := DelayInt * 250;
delaylong(usedelay);
end;
// complete

------------------END OF PREVIEW ------------------------------

[END OF PART 1]

Dark]Yan[Qc]
Thanks for joining our Forum !! ;D

Download
[glow=red,2,300]DarkNameAnimator Version 2.00[/glow]

Dark]Yan[Qc]
***DarK Admin***

Posts: 708

DARKNAMEANIM Codage Mar 21, 2007 13:19:02 GMT -5

Quote

Post by Dark]Yan[Qc] on Mar 21, 2007 13:19:02 GMT -5

[PART 2]

CFG TRANSLATION FROM WINDOWS
----------------------------

procedure frmMain.btdone_Click(sender: System.Object; e: System.EventArgs);
begin
lbShow.Visible := FALSE;
tbPath.Enabled := TRUE;
tbFileName.Enabled := TRUE;
btSave.Enabled := TRUE;
Btbind.Enabled := TRUE;
KeySel.Enabled := TRUE;
btValidate.Enabled := TRUE;
TbRTCW.Enabled := TRUE;
tbExecline.Visible := FALSE;
tbBindLine.Visible := FALSE;
Valid := FALSE;
if cfgWritten then
begin
tbtemp.readOnly:= FALSE;
tbTemp.Clear;
WriteHeadOfCfg();
end;
writeincfg;
cfgWritten := TRUE;
SHOWMESSAGE('Windows to CFG File Translation Done!'#13#10'Look at CFG Preview');
end;

procedure frmMain.WriteHeadOfCfg();
begin
// write head of CFG file and protect it
tbtemp.ReadOnly :=false;
tbtemp.AppendText('// Lines Generated Automatically //'#13#10);
tbtemp.AppendText('// By the Program Of Dark]Yan[Qc] //'#13#10);
tbtemp.AppendText('// Any Question/Comments, Visit: //'#13#10);
tbtemp.AppendText('// WWW.THEDARKCLAN.TK //'#13#10);
tbtemp.appendtext(#13#10);
tbtemp.ReadOnly :=true;
end;
// complete

procedure frmmain.WriteInCfg();
begin
// add name and delay to the CFG tab page and protected it

if (nomtotal >= 1) then
begin
tbname1.SelectAll;
tbname1.Copy;
NamesWithCodeFromCFG();
tbtemp.appendtext('wait ' + tbdelay1.text + ';'#13#10);
end;
if (nomtotal >= 2) then
begin
tbname2.SelectAll;
tbname2.Copy;
NamesWithCodeFromCFG();
tbtemp.appendtext('wait ' + tbdelay2.text + ';'#13#10);
end;

[...]

end;
if (nomtotal >= 48) then
begin
tbname48.SelectAll;
tbname48.Copy;
NamesWithCodeFromCFG();
tbtemp.appendtext('wait ' + tbdelay48.text + ';'#13#10);
end;
if (CbSign.checked) then
begin
tbtemp.appendtext('set name "^2Made^3By^1Dark^4Name^7Anim";'#13#10);
tbtemp.Appendtext('wait 750;'#13#10);
end;
if (CbForum.Checked) then
begin
tbtemp.appendtext('set name "^5Visit ^1Dark ^5Forum";'#13#10);
tbtemp.Appendtext('wait 100;'#13#10);
tbtemp.appendtext('set name "^7www^2the^1dark^4clan^7.tk";'#13#10);
tbtemp.Appendtext('wait 750;'#13#10);
end;
if (CbOriginal.checked) then
begin
tbname1.SelectAll;
tbname1.Copy;
NamesWithCodeFromCFG();
tbtemp.appendtext('wait ' + tbdelay1.text + ';'#13#10);
end;

end;
// complete

procedure FrmMain.NamesWithCodeFromCFG ();
var ind : integer;
len : integer;
begin
// Write each caracter in the CFG tab page
tbtemp.ReadOnly:=false;
bufferbox.clear;
bufferbox.Paste;
bufferbox.SelectAll;
Len:=bufferbox.SelectionLength ;
ind:= 0;
tbtemp.AppendText('Set name "');
while (len <> 0) do
begin
bufferbox.Select(ind, 1);
WriteLetterWithColorCode(bufferbox.SelectionColor);
len := len - 1;
ind := ind +1;
end;
previousColor:= color.Navy; // random color which doesnt exist in the program
tbtemp.AppendText('";'#13#10);
tbtemp.ReadOnly:=TRUE;
end;
// complete

procedure frmmain.WriteLetterWithColorCode(TheColor: color);
begin
// add color code to the CFG tab page
if (Thecolor = color.red) then
begin
if (PreviousColor <> Color.Red) then
begin
tbtemp.AppendText('^1' + bufferbox.SelectedText);
previousColor:=Color.Red;
end else
begin
tbTemp.AppendText(bufferbox.selectedtext);
end;
end else if (TheColor = Color.lime) then
begin
if (PreviousColor <> Color.lime) then
begin
tbtemp.AppendText('^2' + bufferbox.SelectedText);
previousColor:=Color.Lime;
end else

[ ... ]

end else if (Thecolor = color.white) then
begin
if (PreviousColor <> Color.white) then
begin
tbtemp.AppendText('^7' + bufferbox.SelectedText);
previousColor:=Color.white;
end else
begin
tbTemp.AppendText(bufferbox.selectedtext);
end;
end else if (Thecolor = color.black) then
begin
if (PreviousColor <> Color.black) then
begin
tbtemp.AppendText('^8' + bufferbox.SelectedText);
previousColor:=Color.Black;
end else
begin
tbTemp.AppendText(bufferbox.selectedtext);
end;
end else Showmessage('Oh Oh Something Wrong With Colors');
end;
// complete

----------------------------END OF CFG TRANSLATION -------------------------------------

STEP 4 SAVE AS
---------------

procedure frmMain.BtSave_Click(sender: System.Object; e: System.EventArgs);
var FileNamePath : String;
NameCfg : stream;
FeedBack : StreamReader;
Extension : string;
begin
tbFilename.Select((tbFilename.TextLength - 4), 4);
TbFilename.copy;
bufferbox.Clear;
bufferbox.Paste();
Extension := Bufferbox.text.ToLower;
bufferbox.Clear;
if (extension = '.cfg') then
begin
FileNamePath := tbPath.text + tbfilename.text;
if (not directory.Exists(tbPath.text)) then
begin
directory.CreateDirectory(tbPath.text);
Showmessage('New Directory Create :'#13#10 + TbPath.text);
end;
NameCfg := filestream.Create(FileNamePath, filemode.create, fileaccess.write);
NameCfg.Flush;
nameCfg.close;
textfileaddlinecfg(filenamepath, tbTemp.text);
tbTemp.ReadOnly := false;
TbTemp.Clear;
FeedBack:= StreamReader.Create(FileNamePath);
lbShow.Visible := TRUE;
lbShow.Text := 'Shown : ' + tbFileName.text;
Tbtemp.AppendText('-------- THIS IS THE ECHO FROM THE ' + FileNamePath + ' File --------'#13#10);
tbTemp.AppendText(FeedBack.ReadToEnd);
tbtemp.readOnly:=TRUE;
Feedback.close;
tbbindline.ReadOnly := FALSE;
tbExecLine.ReadOnly := FALSE;
tbBindLine.Text := '/bind (YourKey) exec ' + tbFilename.text;
tbExecLine.Text := '/exec ' + tbFilename.text;
tbbindline.ReadOnly := TRUE;
tbExecLine.ReadOnly := TRUE;
tbBindLine.Visible := TRUE;
tbExecline.Visible := TRUE;
lbLines.Visible := TRUE;
Showmessage('Writting Done to External File at:'#13#10 + FileNamePath + #13#10'Go Back To CFG Preview to see The Echo Of The File');
end else showmessage('Please enter a .CFG extension');
end;

----------------------- END OF SAVE AS ----------------------------------------

VALIDATE WOLF FOLDER:
---------------------

procedure frmMain.btValidate_Click(sender: System.Object; e: System.EventArgs);
var Path : string;
ReadStream : streamReader;
Config : string;
filenamePath :string;
namecfg : filestream;
begin
Path := TbRtcw.text;
if (path <> '') then
begin
if (Path.Substring((path.Length-1), 1) <> '\') then
begin
Path:= Path + '\';
end;
Path := path + 'main\' ;
if (directory.Exists(path)) then
begin
// Create the Cfg file in Wolf Main.
lbShow.Visible := TRUE;
fileNamePath := Path + tbFilename.Text;
NameCfg := filestream.Create(FileNamePath, filemode.create, fileaccess.write);
NameCfg.Flush;
nameCfg.close;
textfileaddlinecfg(filenamepath, tbTemp.text);
// end
btValidate.Enabled := FALSE;
tbPath.Enabled := FALSE;
tbFilename.Enabled := FALSE;
tbRTCW.Enabled := FALSE;
Config := Path + 'WolfConfig_mp.cfg';
ReadStream := StreamReader.Create(Config);
TbTemp.Clear;
tbtemp.AppendText('//edited by DARKNAMEANIM program');
tbTemp.AppendText(ReadStream.ReadToEnd);
lbShow.Text := 'Shown : WolfConfig_mp.cfg';
ReadStream.close;
showmessage('Folder found and validated');
valid := TRUE;
btbind.Enabled := TRUE;
KeySel.Enabled := TRUE;
end else showmessage('This folder doesnt appear to be the RTCW folder');

end else showmessage('Please enter a folder');

end;

----------------- end validate ----------------------------------

BINDING A KEY TO THE WOLFCONFIG
--------------------------------

procedure frmMain.btbind_Click(sender: System.Object; e: System.EventArgs);
var key : string;
bind : boolean;
len : integer;
ind : integer;
Writeback : Streamwriter;
Path : string;
str : string;
begin
bind := FALSE;
if ((keysel.selectedindex >= 0) and (keysel.selectedindex <= 84)) then
begin
key := keysel.SelectedItem.ToString ;
verifyBinded(key);
if (LbUse.Text = 'Key is not use') then
begin
showmessage('Key binded !');
bind := TRUE;
end
else if (CbOverwrite.checked = TRUE)then
begin
Showmessage(bufferbox.text + ' has been replaced by "exec ' + tbFilename.text + '"');
bufferbox.text := 'bind ' + Key + ' ' + bufferbox.text;
Len := bufferbox.TextLength;
Ind := TbTemp.Find(bufferbox.text);
tbTemp.text :=tbtemp.Text.Remove(ind, len); // +1 to remove the CRLF
bind := TRUE;
end else Showmessage('If you want to overwrite the key,'#13#10'Check the Overwrite checkbox'#13#10'Else choose another key');
if (bind) then
begin
tbtemp.AppendText('bind ' + key + ' "exec ' + tbFilename.text + '"');
Path := TbRtcw.text;
if (Path.Substring((path.Length-1), 1) <> '\') then
begin
Path:= Path + '\';
end;
WriteBack:= StreamWriter.Create(path + 'main\WolfConfig_mp.cfg');
Writeback.Write(TbTemp.Text);
writeback.Close;
Str := 'Main' ;
if (directory.Exists(Path + 'sand\')) then
begin
WriteBack:= StreamWriter.Create(path + 'sand\WolfConfig_mp.cfg');
Writeback.Write(TbTemp.Text);
writeback.close;
str := Str + ' and sand';
end;
if (directory.Exists(Path + 'S4NDMoD\')) then
begin
WriteBack:= StreamWriter.Create(path + 'S4NDMoD\WolfConfig_mp.cfg');
Writeback.Write(TbTemp.Text);
writeback.close;
str := Str + ' and S4NDMoD';
end;
str := Str + ' folder(s)';
showmessage('WolfConfig_mp.Cfg has been modified in'#13#10 + Str + #13#10'Program Done, Thanks for using'#13#10'Enjoy'#13#10'If you want to modify this animation'#13#10'Go to step 2 "Name Previews",'#13#10'and press "DONE WRITE CFG" again');
// TakeOffAllEnabled();
end;
end else showmessage('Please select a key !!');
end;

procedure frmMain.KeySel_SelectedItemChanged(sender: System.Object; e: System.EventArgs);
var key : string;
begin
key := keysel.SelectedItem.ToString ;
verifyBinded(key);
end;

procedure frmMain.VerifyBinded(Key:string);
var ToFind : string;
Where : integer;
ToRemove: integer;
begin
ToFind := 'bind ' + key + ' "';
ToRemove := tofind.Length - 1;
Where := TbTemp.Find(ToFind);
if (Where <> -1) then
begin
FindBindedText(where);
bufferbox.text := bufferbox.Text.Remove(0, ToRemove);
lbuse.Text:= 'Key is use to: ' + bufferbox.Text
end else
begin
lbuse.Text:= 'Key is not use'
end;
end;

function FrmMain.FindBindedText(StartPt:integer):String;
var Time : integer;
OK : boolean;
begin
OK := FALSE;
Time := 0;
bufferbox.Clear;
while ( not Ok) do
begin
tbtemp.Select(StartPt, 1);
tbTemp.Copy;
tempstr.clear;
tempstr.Paste;
BufferBox.Paste;
if(TempStr.text = '"') then time := Time + 1;
if (time = 2) then Ok := TRUE;
StartPt := StartPt + 1;
end;
result := BufferBox.text;
end;

------------------------------- END OF BINDING ------------------------------

So I hope u understand it's possible that some little bugs arent fixed

Dark]Yan[Qc]
Thanks for joining our Forum !! ;D

Download
[glow=red,2,300]DarkNameAnimator Version 2.00[/glow]

malice [Bronze]Godlike (Lvl 29) Posts: 572	DARKNAMEANIM Codage Mar 21, 2007 13:23:37 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by malice on Mar 21, 2007 13:23:37 GMT -5 holy crap yan ;D
	X*NoName member of Laggin club U.S. Branch

Dark]Yan[Qc] *DarK Admin* Posts: 708	DARKNAMEANIM Codage Mar 21, 2007 13:48:07 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Dark]Yan[Qc] on Mar 21, 2007 13:48:07 GMT -5 Hell yeah !
	Dark]Yan[Qc] Thanks for joining our Forum !! ;D Download [glow=red,2,300]DarkNameAnimator Version 2.00[/glow]

L0
[Bronze]Dominating (Lvl 23)

Reality is a nice place, but I wouldn't want to live there. =)

Posts: 452

DARKNAMEANIM Codage Mar 21, 2007 13:59:57 GMT -5

Quote

Post by L0 on Mar 21, 2007 13:59:57 GMT -5

nice =) But went and write all engine your self, why didn't u use engine from existing name maker and then just simply modify, add/move strigs, use visual basics/studio for graphic desing (buttons, window...)- it would save u a lot of time

What's the libary u use ?
(#including

?)

Last Edit: Mar 21, 2007 14:01:49 GMT -5 by L0

Dark]Yan[Qc]
***DarK Admin***

Posts: 708

DARKNAMEANIM Codage Mar 21, 2007 15:24:40 GMT -5

Quote

Post by Dark]Yan[Qc] on Mar 21, 2007 15:24:40 GMT -5

well .. all name animator i've seen where full of bugs, I decided to make my own

I used Borland Delphi to make it. Possibly easiest way to prog. Idk which are the includes because its not C language, but I can open the prog back and show u what r the Delphi's include

Dark]Yan[Qc]
Thanks for joining our Forum !! ;D

Download
[glow=red,2,300]DarkNameAnimator Version 2.00[/glow]

TheCreater Killing Spree (Lvl 5) Posts: 91	DARKNAMEANIM Codage Mar 21, 2007 15:48:30 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by TheCreater on Mar 21, 2007 15:48:30 GMT -5 holy nuts i cant do that :/

L0
[Bronze]Dominating (Lvl 23)

Reality is a nice place, but I wouldn't want to live there. =)

Posts: 452

DARKNAMEANIM Codage Mar 21, 2007 22:12:01 GMT -5

Quote

Post by L0 on Mar 21, 2007 22:12:01 GMT -5

well like i said i'm not much of programer but i know delphi from way back

And if u want that progy works in windows it's nice to include few libarys but then again, u probably didn't include them cuz progy has it's own libarys and that's why u don't have to call the function- but i ask for simple reason- if u know the libary u know the behavior or progy and on what kinda OS will work ;D

Last Edit: Mar 21, 2007 22:13:18 GMT -5 by L0

Dark]Yan[Qc] *DarK Admin* Posts: 708	DARKNAMEANIM Codage Mar 22, 2007 11:14:20 GMT -5 Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Dark]Yan[Qc] on Mar 22, 2007 11:14:20 GMT -5 well i included library only for ShowMessage's , Directory finding and Create. hmm ... Also for file writng and reading i think .. Others are the basic Delphi libs
	Dark]Yan[Qc] Thanks for joining our Forum !! ;D Download [glow=red,2,300]DarkNameAnimator Version 2.00[/glow]

Post by Dark]Yan[Qc] on Mar 21, 2007 13:18:39 GMT -5

Post by Dark]Yan[Qc] on Mar 21, 2007 13:19:02 GMT -5

Post by malice on Mar 21, 2007 13:23:37 GMT -5

Post by Dark]Yan[Qc] on Mar 21, 2007 13:48:07 GMT -5

Post by L0 on Mar 21, 2007 13:59:57 GMT -5

Post by Dark]Yan[Qc] on Mar 21, 2007 15:24:40 GMT -5

Post by TheCreater on Mar 21, 2007 15:48:30 GMT -5

Post by L0 on Mar 21, 2007 22:12:01 GMT -5

Post by Dark]Yan[Qc] on Mar 22, 2007 11:14:20 GMT -5

Quick Reply