Skript ausführen

Ricooo

Grünschnabel
Hallo

Hab da mal eine frage undzwar wie ich das Skript ausführen kann bzw. mit welchen Programm.
Erstmal zu dem Skript es ist für ein Mmorpg Spiel das über ein client gespielt wird. Bin ein anfänger daher weiss ich ob das hier im C/C++ forum richtig ist.

PHP:
Const 
  BPIndex = 1 // enter here the number of the BP you want the items to go to...
  Loot = [3031,1111,1111,1111,1111] //enter numbers of items ID to loot. 

function CountItemAmountFromOpenBackpack(ID: integer): integer;
var
  x: integer;
  y: integer;
begin
  Result := 0;
  for x := 0 to Self.Containers.Count - 1 do
  begin
    if x >= Self.Containers.Count then Break;
    for y := 0 to Self.Containers.Container[x].Count - 1 do 
    begin
      if y >= Self.Containers.Container[x].Count then Break;
      if Self.Containers.Container[x].Item[y].ID = ID then
        begin
          Result := Result + Self.Containers.Container[x].Item[y].Amount;
        end;
    end;
  end;
end;

While not terminated do 
begin 
  UpdateWorld; 
  if Self.Containers.Count > 1 then
  For i:= 0 to Self.Containers.Count - 1 do 
  begin   
    if (i >= Self.Containers.Count) or (terminated = true) then break; 
    if ( i = BPIndex -1 ) then continue;
   For g:= 0 to Self.Containers.Container[i].Count -1 do 
    begin 
      if (g >= Self.Containers.Container[i].Count) or (terminated = true) then break; 
      for x := LoW(Loot) to High(Loot) do 
      begin 
        if (x>= High(Loot) +1) or (terminated = true) then break;
        if (Self.Containers.Container[BPIndex - 1].Count = Self.Containers.Container[BPIndex- 1].Capacity) then
        Self.Containers.Container[BPIndex - 1].Item[Self.Containers.Container[BPIndex - 1].Count - 1].Open; 
        if Self.Containers.Container[i].Item[g].ID = Loot[x] then
        Self.Containers.Container[i].Item[g].MoveToContainer(Self.Containers.Container[BPIndex - 1],0,100);    
        Sleep(10); 
      end; 
      Sleep(10); 
    end; 
    Sleep(10); 
  end; 
  Sleep(100); 
end;


Mfg Ricooo
 
Das sieht mir irgendwie nach Delphi bzw. Pascal aus.

Es kommt darauf an welche Sprache es jetzt ist (ich glaube eher das es Delphi ist) aber egal was es ist, es gehört nicht in das Forum hier.

Gruß
Rudolf Grauberger
 
Zurück