[Veraltet] Hilfe bei Javascript benötigt

[DeletedUser]

Hi Ihr...

Ich habe mein Offline-Tool jetzt fast fertig und würde gerne noch folgende Funktion einbauen:

Wenn ich bei Stämme auf Übersicht klicke würde ich gerne in der Schnellstartleiste auf ein Link drücken und dann eine Server-Account.txt Datei auf dem Lokalen Rechner erstellen. Diese sollte in etwa so aufgebaut sein:
1 Dorf ID, Anz_Speer, Anz_Schwert,...,
2 Dorf ID, Anz_Speer, Anz_Schwert,...,
.
.
.

Diese Txt-Datei würde ich einlesen und den Dörfern zuordnen, so dass man seine Angriffe mit den aktuellen Truppen erstellen kann.

Wenn jemand dieses Script schreiben könnte oder mir zumindest den Einstieg
erklären könnte wäre ich sehr froh da ich von JS noch keine Ahnung hab...
:mrgreen:

Und damit ihr auch wisst für was ihr das macht:

Der Startschirm:

Die Weltkarten-Übersicht

und das selbe in nem anderen Zoom

Erreichen könnt ihr mich unter #atreju2oo0 im Quakenet oder hier per PN!

 

[DeletedUser12929]

Hmm les das doch via Clipboard (Copy/Paste) ein, könnte dir dafür ne fertige Delphi Funktion geben die dir die Truppen in ein Array reinschreibt, zwar nicht mit ID aber mit Koords, aus denen kannst du ja dann die ID aus der village.Txt rausholen.

procedure TForm1.Button1Click(Sender: TObject);
var I,J:Integer;
    Truppen:TStringlist;
    aTruppen:Array of tTruppen;
begin
  Clipboard.Open;
  try
    if not Clipboard.HasFormat(CF_TEXT) then exit;
    Truppen := TStringList.Create;
    try
      Truppen.Text := Clipboard.AsText;
      for I := 0 to Truppen.Count - 1 do
        if pos('Dorf',Truppen[0])=0 then Truppen.Delete(0) else Break;
      Truppen.Delete(0);
      setlength(aTruppen,0);
      for J := 0 to Truppen.Count - 1 do
        begin
          if pos('Dörfer pro Seite:',truppen[i])>0 then Exit;
          setlength(aTruppen,high(aTruppen)+2);
          //Hier dann die Werte einlesen
        end;
    finally
      FreeAndNil(Truppen);
    end;
  finally
    Clipboard.Close;
  end;

end;

oder wenn du einfach eine Textdatei willst:

procedure TForm1.Button1Click(Sender: TObject);
var Truppen:TStringlist;
begin
  Clipboard.Open;
  try
    if not Clipboard.HasFormat(CF_TEXT) then exit;
    Truppen := TStringList.Create;
    try
      Truppen.Text := Clipboard.AsText;
      Truppen.SaveToFile('c:\staemme\Textdatei.txt');
    finally
      FreeAndNil(Truppen);
    end;
  finally
    Clipboard.Close;
  end;

end;

Anstatt einen Schnellleisten Link zu klicken mach's mit dem Clipboard.

Achso:

uses
  ..., clipbrd;

Nicht die saubersten Lösungen aber geht so auch. Wenn du den gesamten Quelltext willst mich anschreiben

 

[DeletedUser]

Daran hab ich ja noch gar nicht gedacht...
*kopfklatsch*

Werd ich mir mal anschauen...