Afrati
Active User
- Joined
- Aug 7, 2010
- Messages
- 137
- Reaction score
- 25
Darashia Zachodnie Rotworm'y
Potwory : Rotworms
LvL : 10+
Skille : 20/20 (Bro?/Tarcza)
Uwagi dodatkowe:
Skrypt (Kolejno?? ataku)
Download:
Skan:
Potwory : Rotworms
LvL : 10+
Skille : 20/20 (Bro?/Tarcza)
Uwagi dodatkowe:
Skrypt (Kolejno?? ataku)
Code:
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:
Skan: