Ukryta wiadomość:

Kod:

Const
  MonsterList = ['Minotaur Mage']

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;[/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=21#p21 21@http://www.ng-phorum.pun.pl Ukryta wiadomość:

Kod:

//Just Change ID of Potion, Delay(?), Min Health, Numbers of Vials to Drink.
Const 
  MinHealth = 100  // min Healh
  NumberOfVialsToDrink = 1  // how many health fluids to drink
  IDPotion = 266  // ID of Potion
  Delay = 10 // in seconds

while not terminated do 
begin 
  UpdateWorld;   
  if Self.Health <= MinHealth then 
  begin 
    for i := 1 to NumberOfVialsToDrink do 
    begin 
      if (i >= NumberOfVialsToDrink + 1) or (terminated = true) then break; 
      Self.Containers.UseItemWithSelf(IDPotion); 
      Sleep(Delay*1000); 
    end; 
  end; 
  Sleep(500); 
end;[/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=20#p20 20@http://www.ng-phorum.pun.pl Ukryta wiadomość:

Kod:

/////////////////////////
////    BY BADY    ////
////////////////////////


Const
Cap = '0';
   // Od jakiego expa ma sie wylogowac/włączyć alarm
Logout = '1';
   // Jeśli 1 wyloguje po zniknięciu "battle mode"
   // Jeśli 2 wywali z gry wyloguje po 1 min tzw. "forced logout"
   // Jeśli 3 zagrana zostanie włącznoy alarm
Sound = 'C:\Windows\Media\notify.wav';
   // Plik z alarmem (musi być .wav)
Sec = '1';
   // Po ilu sec od osiągnięcia expa ma wylogować/co ile sec ma być włącznay alarm

Begin
 While not Terminated Do
  Begin
   UpdateWorld;
   Sleep(1000);
   If(Self.Capacity <= Cap) Then
    Begin
     Sleep(Sec*1000);
     If Logout = 1 Then Self.Logout(False);
     If Logout = 2 Then Self.Logout(True);
     If Logout = 3 Then PlaySound(Sound);
    End;
  End;
  exit;
End;[/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=19#p19 19@http://www.ng-phorum.pun.pl
- Zrób waypont drogi, z exp'owiska do depo

Ukryta wiadomość:

Kod:

const
  CaveToDepotWaypoints = 'C:\Arquivos de programas\TibiaBot NG\Scripts + Waypoints\Waypoints\GobsToDP.wpt'

Function GetTileFromXYZ(X, Y, Z: integer): TTile;
begin
  Result := nil;
  if abs((Self.X - 7) - X) > 14 then Exit;
  if abs((Self.Y - 5) - Y) > 11 then Exit;
  if Self.Z <> Z then Exit;
  Result := Screen.Tile[abs((Self.X - 7) - X), abs((Self.Y - 5) - Y)];
end;

Procedure UseTile(X,Y,Z: Integer);
Var
  Tile: TTile;
begin
  if Z = Self.Z then
  begin
    Tile := GetTileFromXYZ(X, Y, Z);
    Tile.Item[1].Use;
  end;
  else Unreachable := True;
end;

Procedure UseRope(X,Y,Z: Integer);
begin
  if Z = Self.Z then
  begin
    Self.Containers.UseItemWithGround(3003, X, Y, Z);
  end;
  else Unreachable := True;
end;

Procedure MoveTo(X,Y,Z: Integer);
begin
  if Z = Self.Z then
  begin
    Self.MoveTo(X,Y,Z);
  end;
  else Unreachable := True;
end;

Procedure UseShovel(X,Y,Z: Integer);
var Tile: TTile 
begin 
  if Z = Self.Z then 
  begin
    repeat 
      Self.Containers.UseItemWithGround(5710, X, Y, Z);
      Self.Containers.UseItemWithGround(3457, X, Y, Z); 
      Sleep(1000);
      UpdateWorld;
      Tile := GetTileFromXYZ(X, Y, Z);
    until Tile.Item[0].Properties.Hole or Terminated
    Self.MoveTo(X, Y, Z); 
  end; 
  else Unreachable := True; 
end;

Procedure WaypointToAction(X,Y,Z,Action :Integer);
begin
  UpdateWorld;
  Case Action of
    1: UseRope(X,Y,Z);
    2: UseTile(X,Y,Z);
    3: MoveTo(X, Y+1, Z+1);
    4: MoveTo(X, Y-1, Z-1);
    5: MoveTo(X, Y, Z-1);
    6: MoveTo(X, Y, Z);
    7: UseShovel(X,Y,Z-1);
    8: MoveTo(X, Y, Z);
    9: Sleep(X*1000);
  else
    MoveTo(X,Y,Z);
  end;
end;

Function WaypointReached(X,Y,Z,Action :Integer): Boolean;
begin
  UpdateWorld;
  Result := False;
  Case Action of
    1: if (Z = Self.Z + 1) then Result := True;
    2: if (Z = Self.Z + 1) then Result := True;
    3: if (Z = Self.Z) then Result := True;
    4: if (Z = Self.Z) then Result := True;
    5: if (Z = Self.Z) then Result := True;
    6: if ((X = Self.X) and (Y = Self.Y) and (Z = Self.Z)) then Result := True;
    7: if (Z = Self.Z) then Result := True;
    8: if (abs(Z - Self.Z) = 1) then Result := True;
    9: Result := True;
  else
    if ((X = Self.X) and (Y = Self.Y) and (Z = Self.Z)) then Result := True;
  end;
end;

Function CountWaypoints(FilePath: String): Integre;
Var
  i: Integer
  WaypointFile: TextFile
begin
  i := 0
  AssignFile(WaypointFile, FilePath);
  ReSet(WaypointFile);
  while not EoF(WaypointFile) do
  begin
    temp:= ReadLn(WaypointFile);
    i := i+1;
  end;
  Result:= (i/4);
end;

Function ExtractWaypointsFromFile(FilePath: String; Count: Integer): Integre;
Var
  i: Integr
  WaypointsArray: Integer
  WaypointFile: TextFile
begin
  WaypointsArray := VarArrayCreate([0, Count - 1, 0, 3], $C);
  AssignFile(WaypointFile, FilePath);
  ReSet(WaypointFile);
  for i:=0 to Count-1 do
  begin
    WaypointsArray[i,0] := StrToInt(ReadLn(WaypointFile));
    WaypointsArray[i,1] := StrToInt(ReadLn(WaypointFile));
    WaypointsArray[i,2] := StrToInt(ReadLn(WaypointFile));
    WaypointsArray[i,3] := StrToInt(ReadLn(WaypointFile));
  end;
  CloseFile(WaypointFile);
  Result := WaypointsArray;
end;


Procedure FollowWaypoint(FilePath: String)
var block: integer;
begin
  Index := 0
  Unreachable := False
  WaypointsCount := CountWaypoints(FilePath);
  WP := ExtractWaypointsFromFile(FilePath, WaypointsCount);
   
  while (Index <> (WaypointsCount-1)) and (not Terminated) do
  begin
    if Unreachable then
    begin
      Index := Index+1;
      Unreachable := False;
    end;

    if Index = (WaypointsCount-1) then
    begin
       Index := 0;
    end;

    if WaypointReached(WP[Index,0],WP[Index,1],WP[Index,2],WP[Index,3]) then
      Index := Index +1;
    WaypointToAction(WP[Index,0],WP[Index,1],WP[Index,2],WP[Index,3]);
    Sleep(1000);

  end;
end;

begin
  updateworld
  If Self.Z = 7 then FollowWaypoint(CaveToDepotWaypoints);
  Sleep(1000);
end;  [/hide]

W linijce:

Ukryta wiadomość:

Kod:

CaveToDepotWaypoints = 'C:\Arquivos de programas\TibiaBot NG\Scripts + Waypoints\Waypoints\GobsToDP.wpt' [/hide]

Wpisujemy ścieżkę drogi z exp'owiska do depo.]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=18#p18 18@http://www.ng-phorum.pun.pl Ukryta wiadomość:

Kod:

const
////////// Strong Healing //////////
 
  S_Minimum_Health = 400
  S_Healing_Spell = 'Exura Gran'
  S_Mana_Needed = 60
 
  S_Use_Spell = 1
  S_Use_UH_Rune = 0
 
////////////////////////////////////

//////////  Weak Healing  //////////

  W_Minimum_Health = 500
  W_Healing_Spell = 'Exura'
  W_Mana_Needed = 20
 
  W_Restore_Mana_At = 0
 
  W_Use_Spell = 1
  W_Use_IH_Rune = 0
 
////////////////////////////////////





while not Terminated do
begin
  UpdateWorld;
  if (Self.Health < S_Minimum_Health) then
  begin                          // Start of Strong Healing //
    if (Self.Mana >= S_Mana_Needed) and S_Use_Spell then
    begin
      Self.Say(S_Healing_Spell);
      Sleep(1000);
    end;
    else if S_Use_UH_Rune then
    begin
      Self.Containers.UseItemWithSelf(3160);
      Sleep(1000);
    end;
  end;                          // End of Strong Healing //
  else
  begin                         // Start of Weak Healing //
    if (Self.Health < W_Minimum_Health) and (Self.Mana >= W_Mana_Needed) and W_Use_Spell then
    begin
      Self.Say(W_Healing_Spell);
      Sleep(1000);
    end;
    else if (Self.Mana < W_Restore_Mana_At) then
    begin
      Self.Containers.UseItemWithSelf(238);
      Sleep(1000);
    end;
    else if W_Use_IH_Rune then
    begin
      Self.Containers.UseItemWithSelf(3152);
      Sleep(1000);
    end;
  end;                          // End of Weak Healing //
  Sleep(100);
end; [/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=17#p17 17@http://www.ng-phorum.pun.pl Ukryta wiadomość:

Kod:

var
  MaxPoison: integer;

procedure Event_Notice(Text: string);
var
  PoisonAmount: string;
begin
  UpdateWorld;
  if Self.Mana < 30 then Exit;
  if not Self.Poisoned then Exit;
  if Pos('You lose ', Text) = 0 then Exit;
  if Pos(' hitpoints.', Text) = 0 then Exit;
  PoisonAmount := Text;
  Delete(PoisonAmount, 1, 9);
  PoisonAmount := Copy(PoisonAmount, 1, Pos(' ', PoisonAmount) - 1);
  if IntToStr(PoisonAmount) >= MaxPoison then Self.Say('exana pox');
end;

begin
MaxPoison := 4; // tutaj dajemy od ile ma wypowiedzieć exana pox
  while not Terminated do
  begin
    ProcessEvents;
    Sleep(100);
  end;
end; [/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=16#p16 16@http://www.ng-phorum.pun.pl

Ukryta wiadomość:

Kod:

var
    koniec,startPos,destPos:boolean;
    destX,destY,destZ:integer;
    startX,startY,startZ:integer;
 
 function GoToPos(x,y,z:integer):boolean;
 var
    i:integer;
 begin
    return:=false;
    self.moveto(x,y,z);
    for i:=0 to 10 do
    begin
       if (self.x=x) and (self.y=y) and (self.z=z) then
       begin
          return := true;
          exit;
       end;
       sleep(500);   
    end; 
 end;
 
 procedure Event_Attacked(ID: integer);
 var
    i:integer;
 begin
    if (startpos=true) and (destpos=true) then
    begin
       for i:=1 to 5 do
       begin
          if GoToPos(destX,destY,destZ) then
          begin
             koniec:=true;
             exit;
          end;
       end;
    end;
 end;
 
 procedure getDestPos;
 begin
    destX := self.x;
    destY := self.y;
    destZ := self.z;
    self.displaytext('DestX='+inttostr(destX)+'; destY='+inttostr(destY)+'; destZ='+inttostr(destZ));
    destPos:=true;
 end;
 
 procedure getStartPos;
 begin
    startX := self.x;
    startY := self.y;
    startZ := self.z;
    self.displaytext('StartX='+inttostr(startX)+'; startY='+inttostr(startY)+'; startZ='+inttostr(startZ));
    startPos:=true;
 end;
 
 procedure Event_Message(Channel: integer; Name, Text: String);
 begin
    if name=self.name then
    case text of
       'stop': koniec:=true;
       'destpos': getDestPos;
       'startpos': getStartPos;
    end;
 end;
 
 procedure checkpos;
 var
    i:integer;
 begin
    if ((self.x<>startX) or (self.y<>startY) or (self.z<>startZ)) then
    begin
       GoToPos(startX,startY,startZ)   
    end;
 end;
 
 begin
    koniec :=false;
    destpos := false;
    startpos:=false;
    while not koniec do
    begin
       updateworld;
       ProcessEvents;
       if (startpos=true) and (destpos=true) then
       begin
          updateworld;
          checkpos;
       end;
       sleep(1000);           
    end;
 end;[/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=15#p15 15@http://www.ng-phorum.pun.pl Ukryta wiadomość:

Kod:

Const
ItemsIDs = [7425,3286,3410,3359,3349,3358,3264,3377,3558,3275, 3056,3073,3354]
X = 32430
Y = 31976
Z = 9

function GetItemFromOpenBackpack(ID: integer): TItem;
var
x: integer;
y: integer;
begin
Result := nil;
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 := Self.Containers.Container[x].Item[y];
Exit;
end;
end;
end;
end;

while not terminated do
begin
UpdateWorld;
for i := self.containers.count - 1 downto 0 do
begin
for x1 := self.containers.container[i].count - 1 downto 0 do
begin
ok := false;
for y1 := Low(ItemsIDs) to High(ItemsIDs) do
begin
if self.containers.container[i].item[x1].id = ItemsIDs[y1] then
ok := true;
end;
if ok then
begin
self.containers.container[i].item[x1].movetoground(X,Y,Z
,0);
Self.DisplayText(self.containers.container[i].item[x1].id);
sleep(500);
end;
end;
end;
sleep(100);
Items := 0;
for i := low(ItemsIDs) to High(ItemsIDS) do
begin
Item := GetItemFromOpenBackpack(ItemsIDs[i]);
if Item <> nil then
Items := Items + 1;
end;
end;[/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=14#p14 14@http://www.ng-phorum.pun.pl

Ukryta wiadomość:

Kod:

const
  frigo =          ['banshee', 'bear', 'betrayed wraith',   
                     'blue djinn', 'dark torturer', 'demon', 'destroyer',   
                     'diabolic imp', 'dragon', 'dragon hatchling',   
                     'dragon lord', 'dragon lord hatchling', 'dwarf geomancer', 
                     'demon skeleton','fire devil', 'fire elemental', 'green djinn',   
                     'hand of cursed fate', 'hellfire fighter', 'hellhound', 
                     'kongra', 'lion', 'marid', 'merlkin', 'nomad',   
                     'plaguesmith', 'priestess', 'rat', 'sibang', 
                     'son of verminor',  'stone golem', 'tiger', 
                     'undead dragon', 'war wolf','wyvern'];
  flam = ['ancient scarab','crypt shambler', 'azure frog', 'beholder', 'black knight', 
                    'blightwalker', 'blood crab', 'bonebeast', 'braindeath',   
                    'bug', 'carniphila', 'carrion worm', 'cave rat',   
                    'centipede', 'crab', 'crocodile', 'dark monk', 
                    'defiler', 'dwarf', 'dwarf guard', 'dwarf soldier',   
                    'dworc fleshhunter', 'dworc venomsniper',   
                    'dworc voodoomaster', 'elder beholder', 'gargoyle', 
                    'gazer', 'ghoul', 'giant spider', 'hunter', 'lich', 
                    'lizard sentinel', 'lizard snakecharmer', 'lizard templar', 
                    'mammoth', 'monk', 'mummy', 'necromancer', 'nightmare', 
                    'panda', 'phantasm', 'pirate buccaneer', 'pirate corsair', 
                    'pirate cutthroat', 'pirate ghost', 'pirate marauder', 
                    'pirate skeleton', 'poacher', 'poison spider', 'scarab',   
                    'serpent spawn', 'slime', 
                    'spectre', 'spit nettle', 'stalker', 
                    'swamp troll', 'tarantula', 'terror bird',   
                    'thornback tortoise', 'toad', 'tortoise', 'vampire',   
                    'wasp'];
  tera =            ['cyclops', 'cyclops drone', 'cyclops smith', 
                    'elf arcanist', 'frost troll', 'fury', 'orc', 
                    'orc berserker', 'orc leader', 'orc rider', 'orc shaman', 
                    'orc spearman', 'orc warlord', 'orc warrior',   
                    'quara constrictor', 'quara hydromancer', 'quara mantassin', 
                    'quara pincher', 'quara predator',   
                    'quara constrictor scout', 'quara hydromancer scout', 
                    'quara mantassin scout', 'quara pincher scout', 
                    'quara predator scout', 'troll', 'troll champion']; 
  vis =            ['acolyte of the cult', 'adept of the cult',   
                   'chakoya toolshaper', 'chakoya tribewarden',   
                   'chakoya windcaller', 'crystal spider', 
                   'elephant', 'enlightened of the cult',   
                   'frost dragon', 'frost dragon hatchling', 'frost giant', 
                   'frost giantess', 'ghost', 'hydra', 'ice golem', 'ice witch', 
                   'juggernaut', 'lost soul', 'novice of the cult', 'penguin', 
                   'polar bear', 'water elemental', 'winter wolf'];
  mort =            ['amazon', 'assassin', 'bandit', 'barbarian bloodwalker', 
                    'barbarian brutetamer', 'barbarian headsplitter',   
                    'barbarian skullhunter', 'dark apprentice', 'dark magician', 
                    'elf', 'elf scout', 'goblin', 'hero', 'minotaur',   
                    'minotaur archer', 'minotaur guard', 'minotaur mage',   
                    'rotworm', 'smuggler', 'valkyrie', 'warlock', 'wild warrior',
                    'witch'];
  useWand = 1 // 1 to attack with wand also, 0 to do not attack with wand.

function GetExoriType(Crea: TCreature): String;
begin
Result := '';

   for z := Low(frigo) to High(frigo) do
   begin
     if AnsiLowerCase(Crea.Name) = AnsiLowerCase(frigo[z]) then
     Result := 'exori frigo';
   end;
   
   for z := Low(flam) to High(flam) do
   begin
     if AnsiLowerCase(Crea.Name) = AnsiLowerCase(flam[z]) then
     Result := 'exori flam';
   end;

   for z := Low(tera) to High(tera) do
   begin
     if AnsiLowerCase(Crea.Name) = AnsiLowerCase(tera[z]) then
     Result := 'exori tera';
   end;

   for z := Low(vis) to High(vis) do
   begin
     if AnsiLowerCase(Crea.Name) = AnsiLowerCase(vis[z]) then
     Result := 'exori vis';
   end;

   for z := Low(mort) to High(mort) do
   begin
     if AnsiLowerCase(Crea.Name) = AnsiLowerCase(mort[z]) then
     Result := 'exori mort';
   end;

end;

function GetCreatureByID(ID: integer): 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].ID = ID then
    begin
      Result := Creatures.Creature[x];
      Exit;
    end;
  end;
end; 

begin
  sleepTime := 1100;
  if useWand = 0 then
  sleepTime := 1000;
     
while not terminated do
begin
  updateworld;
  if Self.Attacking <> nil then
  begin
    creature := GetCreatureByID(self.attacking);
    if creature <> nil then
    begin
      exori := GetExoriType(creature);
      if exori <> '' then
      begin
      updateworld;
      if (abs(creature.x - self.x) <= 3) and (abs(creature.y - self.y) <= 3) then
      begin
      if Self.Attacking > 0 then
      self.say(exori);
      end;
      end;
    end;
   end;
   sleep(sleepTime);
end;
end; [/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=13#p13 13@http://www.ng-phorum.pun.pl

Ukryta wiadomość:

Kod:

function IsCreatureVisible(Name: string): boolean;
var
  x: integer;
begin
  Result := False;
  for x := 0 to Creatures.Count - 1 do
  begin
    if x >= Creatures.Count then Break;
    if Creatures.Creature[x].Name = Name then
    begin
      if Creatures.Creature[x].Visible then
      begin
        Result := True;
        Exit;
      end;
    end;
  end;
end;

begin
  while not Terminated do
  begin
    UpdateWorld;
    if IsCreatureVisible('Scarab') then PlaySound('c:\windows\media\notify.wav');
    Sleep(1000);
  end;
end;[/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=12#p12 12@http://www.ng-phorum.pun.pl Ukryta wiadomość:

Kod:

const
MonsterName = 'Nazwa Potwora' ;
Attack_Spell = 'exori hur' ;
Min_Mana = 100 ;
Min_Monster_HP = 1 ; 
Max_Monster_HP = 100 ;
Range = 5 ;

var
x: Integer;
Creature:TCreature;

function GetCreatureByID(ID: integer): 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].ID = ID then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

function GetCreatureByName(Name: string): 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].Name = Name then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

function IsCreatureAttackable(c: TCreature): boolean;
begin
UpdateWorld;
Result := False;
if (c.Z = self.Z) and (abs(c.X-self.X) <= Range) and (abs(c.Y-self.Y) <= Range) and (c.outfit<>0) and (c.Health >= Min_Monster_HP) and (c.Health <= Max_Monster_HP) then
begin
Result := True;
end;
end;

while not Terminated do
begin
UpdateWorld;
Creature := GetCreatureByID(Self.Attacking);
if (Self.Mana >= Min_Mana) and (Creature <> nil) then
for i := low(monstername) to high(monstername) do
begin
if (MonsterName[i] = Creature.Name) and (IsCreatureAttackable(Creature)) then
begin
Self.Say(Attack_Spell);
sleep(2000);
end;
end;
sleep(100);
end;[/hide]

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=11#p11 11@http://www.ng-phorum.pun.pl

Ukryta wiadomość:

Kod:

var
LockID:integer;

function GetCreatureByID(ID: integer): 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].ID = ID then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

begin
updateworld;
while self.attacking=0 do
begin
sleep(200);
updateworld;
end;
LockID:=self.attacking;
while not terminated do
begin
updateworld;
ProcessEvents;
if ((self.attacking)<>(LockID)) and ((self.attacking)<>(0)) then
LockID:=Self.Attacking;
If Self.Attacking=0 then
begin
Creature:=GetCreatureByID(LockID);
If Creature<>nil then Creature.Attacking:=true;
end;

sleep(100);
end;
end;

]]> Sobota 2 Maj Sobota 2 Maj http://www.ng-phorum.pun.pl/viewtopic.php?pid=10#p10 10@http://www.ng-phorum.pun.pl Wystarczy dać Follow.

Ukryta wiadomość:

Kod:

Const MiniCreatureHP =50; // if your firned has 50% of his hp it will heal..change it as you like it.
const ITEM_RUNE_UH = 3160;
// Follow first the friend you want to sio and then start script //
var
  Creature: TCreature;
  CreatureName: string;
 
function IsCreatureVisible(Name: string): boolean;
var
  x: integer;
begin
  Result := False;
  for x := 0 to Creatures.Count - 1 do
  begin
    if x >= Creatures.Count then Break;
    if Creatures.Creature[x].Name = Name then
    begin
      if Creatures.Creature[x].Visible then
      begin
        Result := True;
        Exit;
      end;
    end;
  end;
end; 

function GetFollowedCreature: 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].Following then
    begin
      Result := Creatures.Creature[x];
      Exit;
    end;
  end;
end;

begin
  UpdateWorld;
  Creature := GetFollowedCreature;
  while not Terminated do
  begin
    UpdateWorld;
       If Creature<> nil then
       If IsCreatureVisible(Creature.Name) then
      begin
      if ((Creature.Health) <(MiniCreatureHP)) and ((Self.Mana)>(70)) then
      Self.Say('exura sio "'+ Creature.Name) //name of friend
       else
       if ((Creature.Health) <(MiniCreatureHP)) then Self.Containers.UseItemWithCreature(ITEM_RUNE_UH, Creature);
       end;
      Sleep(1000);
   end;
   
end; [/hide]

]]> Sobota 2 Maj Sobota 2 Maj