- Dołączył
- Sierpień 7, 2010
- Posty
- 137
- Liczba reakcji
- 25
Darashia Zachodnie Rotworm'y
Potwory : Rotworms
LvL : 10+
Skille : 20/20 (Bro?/Tarcza)
Uwagi dodatkowe:
Skrypt (Kolejno?? ataku)
Download: http://www.sendspace.pl/file/69efd201cc4d741f0281888
Skan: https://www.virustotal.com/file/0bc...b05e66b3764d4ecdbfcbc4b5/analysis/1342984577/
Potwory : Rotworms
LvL : 10+
Skille : 20/20 (Bro?/Tarcza)
Uwagi dodatkowe:
Skrypt (Kolejno?? ataku)
Kod:
Const
MonsterList = ['Carrion Worm','Rotworm']
function GetCreatureByName: TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Z = Self.Z then
for i := low(MonsterList) to high(monsterlist) do
if Creatures.Creature[x].Name = MonsterList[i] then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;
While not terminated do
begin
UpdateWorld;
C := GetCreatureByName;
if C <> nil then
if not self.attacking then
C.Attacking := true;
sleep(100);
end;
Download: http://www.sendspace.pl/file/69efd201cc4d741f0281888
Skan: https://www.virustotal.com/file/0bc...b05e66b3764d4ecdbfcbc4b5/analysis/1342984577/