Half-Life / Counter-Strike ting !

hvis du kan vente til i morgen kan jeg sikkert godt finde ud af det !

En af mine venner er ekspert på dette område.

ik´ fordi jeg har forstand på det men bliver det lavet i delphi ??? jeg troede man lavede det i vb eller er det det samme ?

Det kan da laver i både VB og Delphi !

Det er nu bare hvordan man kan læse og skrive til liblist.gam filen uden at lave om på det andet som står der, med kun det som jeg veljer !

Da filen er sat rimelig simpelt op kan du bare loade den ind i en Tstringlist

eg.

function GetVersion:string;
var
  liblist: Tstringlist;
  temp: string;
  I: integer;
begin
  Liblist:=Tstringlist.create;
  Liblist.loadfromfile(\'liblist.gam\');
  for I:=0 to liblist.count-1 do begin
    if pos(\'version\',liblist[I])>0 then begin
      temp:=copy(liblist[I],pos(\'\"\',liblist[I])+1,length(liblist[I]));
      temp:=copy(temp,0,pos(\'\"\',liblist[I])-1);
      break;
    end;
  end;
  result:=temp;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(getversion);
end;

En anden måde er at benytte TfileStream, men dette er en lille smule mere indviklet.
ovenstående er den lette løsning og den skulle fungere efter hensigten :)

(virkede ihvertfald med min LibList.gam fil fra CS)

Utroligt, er der så mange CS fans i dette forum.  Jeg er gerne koblet på Opasia\'s servere et par timer om ugen (hvis det kan gøre det).

Hvilket strax får mig til at tænke på noget helt andet:  Pr. 1/10 ændres min StofaNet forbindelse til deres \"flatrate\" tilbud, hvor man betaler for den overførte mængde data, ikke for opkoblet tid.  Hvor mange data overføres der (typisk) når man spiller CS??  (Måske et nyt spørgsmål, hmm...)

Delphi

på 56 k: ca. 2-3 MB i timen, men hæng mig ikke op på det :o)

ups nårh nej, det er upload..4-5 gange så meget ved download, tror jeg....

Hey DJ

Det virker som du siger det skal !

Men det er nu sådan at jeg gerne vil kunne læse alt som er i liblist.gam og så skrive til den (lidt som en ini fil) altså sådan at jeg f.eks kan lave om på \"game\" som står der !

Ok, jeg har nu lavet sådan at du kan bruge den mere eller mindre som en inifil.
Du kan skrive til eksisterende værdier og også læse fra dem.

Du kan nu selv bestemme hvilken værdi du vil arbejde med. (\'Version\',\'Game\' etc.)
-------------------------------------------------------------------------

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    liblist: Tstringlist;
    function ReadLibList(topic: string):string;
    procedure WriteLibList(topic, value: string);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function Tform1.ReadLibList(topic: string):string;
var
  temp: string;
  I: integer;
begin
  Liblist.loadfromfile(\'liblist.gam\');
  for I:=0 to liblist.count-1 do begin
    if lowercase(trim(copy(liblist[I],0,pos(\'\"\',liblist[I])-1)))=lowercase(topic) then begin
      temp:=copy(liblist[I],pos(\'\"\',liblist[I])+1,length(liblist[I]));
      temp:=copy(temp,0,pos(\'\"\',temp)-1);
      break;
    end;
  end;
  result:=temp;
  //Variablen Temp vil så indeholde versionsdataene.
end;

procedure Tform1.WriteLibList(topic, value: string);
var
  temp: string;
  I: integer;
begin
  Liblist.loadfromfile(\'liblist.gam\');
  for I:=0 to liblist.count-1 do begin
    if lowercase(trim(copy(liblist[I],0,pos(\'\"\',liblist[I])-1)))=lowercase(topic) then begin
      LibList[I]:=topic+\' \"\'+value+\'\"\';
      break;
    end;
  end;
  liblist.savetofile(\'liblist.gam\');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Liblist:=Tstringlist.create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(ReadLibList(\'game\'));
  Showmessage(ReadLibList(\'version\'));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  WriteLibList(\'game\',\'Aggemam?\');
  WriteLibList(\'URL_DL\',\'www.sguft.com\');
end;

end.

er dette spørgsmål gået dødt ?

:)

Hey dj

Tak det virker som jeg ville have det til !

Hvor kan jeg finde en komponent som kan lave en liste som f.eks en string grid...!
Jaa hvordan kan jeg forklarer hvordan den ser ud sådan en komponent..!

|NR.|Navn|Efternavn|
| 1 | dj | djdjdj  |
| 2 | dj | djdjdj  |

noget som det
Det er f.eks i outlook hvor det bare er med \"!\", \"Fra\" osv...

Hvis du har et link til hvor jeg kan download sådan et komponent vil jeg blive glad !

Jeg mener at sådan en komponent er inkluderet i LMD Tools der findes på Companion CD\'en der følger med Delphi.

Ellers så prøv at kigge lidt inde på www.torry.ru
eller delphi.icm.edu.pl

Der skulle der være muligt at finde sådan også ..

held og lykke

mvh. _DJ_

Jeg har ingen ide om noget til dette spg. Men jeg ville bare for min egen facination gerne vide hvad det er du vil lave ?????

dj hvad er det nu det hedder sådan et komponent ???

kasseper jeg er ved at lave noget til Counter-Strike =)

Men hvad for du ikke lige at vide for det er hemmeligt =)

Men det er ikke en ny AimBot =)

Sejt, top hemmelig kode,.....ØV

lolle>> aner det ikke, men prøv at søg lidt på noget med en udvidet listbokse (listBox) :)

Kasseper>> Min kode er da ikke tophemmelig .. ellers ville jeg nok ikke have postet den her .. :P
Hvis du mener koden til hele lolle\'s project så regn da ikke med at nogen som helst bare giver koden væk til et project man sidder og har brugt lang tid på at skabe ..

Mvh.
_DJ_

Ja ja da jeg kan jo godt sidde her og udgive mig for at KUN at være interesseret, men det er faktisk også kun det jeg er, jeg har ikke tænkt at stjæle kode og har slet ikke tænkt på at lave noget af den slags.
Nu ligger landet faktisk bare sådan at jeg syntes at CS er et totalt genialt spil og har brugt mange kroner på netcafer i københavn, så jeg ville bare høre hvad der var under opsejling. Og jeg kan godt forstå, at hvis det er så nyskabende så ingen andre har tænkt på samme vil du ikke offentliggøre det her så andre måske kan snuppe ideen. MEN, kan du så ikke når du er færdig poste det her på spørgsmålet hvad det er du har lavet, så vi kan hylde din kreativitet........

Jeg sværger, det var ren nysgerrighed...;-)

Kasseper

Tak dj du får de 200 point for det skal du jo have og til dig kasseper kan jeg bare sige at jeg nok skal fortælle hvad det er jeg har lavet når det/den er færdig !

Jeg vil nok prøve at snakke med counter-strike.dk om jeg kan få det op der så alle andre CS freak =) kan få glæde af dette prog...

/lolle

hmmm...

Sjov mit blev et svar når der var det var en kommentar jeg skrev !

=)

heh, husk at credit mig hvis det bliver noget fedt :P

Det skal jeg nok !