Dworcs Port HOPE

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Dworcs Port HOPE

Mensagem  CrOnUs[AdMIN] em Seg Fev 02, 2009 1:11 pm

(recomendo para Knights)
Isto é só o 1º andar. Dworcs porthope.
Dica: Quando for aos Dworcs compre 100 brown mushrooms ou qualquer outro food,
mas muitos foods se você deseja caçar lá por muito tempo.

WAYPOINT-~-~->Dworcs PH<-~-~-


* Bast Skirt (ID: 3560)
* seedss (ID: 647)
* Tribal mask (ID: 3403)

* preço para vender para NPC:
* Tribal Mask (250gp)
* Bast Skirt (750gp)


Script para que você ataque o Voodo master primeiro:


Const
Name=['Dworc Voodoomaster'];
SwitchAt=30;// the % of the current attacked monster
//that if the monster has lass % hp than this, we Will NOt change to the stronger monster.
function GetPlace(st:string):integer;
var
x:integer;
begin
Result:=1000;
for x:=Low(Name) To High(Name) do
begin
if Name[x]=st then
Result:=x;
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;

function IsCreatureBesideYou(c: TCreature): boolean;
begin
UpdateWorld;
Result := False;
if (abs(c.X-self.X) <= 4) and (abs(c.Y-self.Y) <= 4) then begin
if c.Z = self.Z then begin
Result := True;
end;
end;
end;

var
x:integer;
b:boolean;
begin
while not terminated do
begin
b:=false;
updateworld;
If (Self.Attacking<>0) then
begin
Creature:=GetCreatureByID(Self.Attacking);
if Creature<>nil then
if SwitchAt<Creature.Health then
begin
for x := 0 to Creatures.Count - 1 do
begin
updateworld;
if b then break;
if x >= Creatures.Count then Break;
if Creatures.Creature[x].NPC then
if Creatures.Creature[x].z=self.z then
if Creatures.Creature[x].Name<>self.name then
if Creatures.Creature[x].Attacking = false then
if IsCreatureBesideYou(Creatures.Creature[x]) then
if GetPlace(Creature.Name)>GetPlace(Creatures.Creature[x].Name) then
begin
sleep(100);
updateworld;
Creatures.Creature[x].attacking:=true;
B:=true;
end;
end;
end;
end;
Sleep(100);
end;
end;

CrOnUs[AdMIN]
Admin

Mensagens : 52
Data de inscrição : 25/01/2009
Idade : 26

http://tibiaabout.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum