Tibia Brasil

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Tibia Brasil

www.tibiabrazil-blog.blogspot.com


2 participantes

    Exura Sio no amigo ou em vc mesmo

    ADM Altair Junior
    ADM Altair Junior
    Admin


    Mensagens : 73
    Data de inscrição : 13/05/2009
    Idade : 32

    Exura Sio no amigo ou em vc mesmo Empty Exura Sio no amigo ou em vc mesmo

    Mensagem  ADM Altair Junior Dom Mar 14, 2010 11:19 pm

    Const
    MiniCreatureHP =50; //Medido Em Porcentagem.. se o char tiver 1500 de life estando 50 ali ele dara o sio com 750 de life
    const ITEM_RUNE_UH = 3160; //caso ele nao solte Exura Sio Ele Soltarar uma Uh
    const Name='Nome Do Char'; //Coloke o Nome do char
    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 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;

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

    end;

    Legenda:
    Vermelho: Coloque a porcentagem da vida a ser healada
    Azul: Coloque o nome da pessoa a ser healada pode ser o seu mesmo

    Download
    avatar
    Megaman9


    Mensagens : 148
    Data de inscrição : 05/11/2011

    Exura Sio no amigo ou em vc mesmo Empty Re: Exura Sio no amigo ou em vc mesmo

    Mensagem  Megaman9 Ter Nov 08, 2011 1:58 pm



    Pagina Ownada !!!


    Pixel lfie by zeruel[ pixellife.forumotion.com/forum]

      Tópicos semelhantes

      -

      Data/hora atual: Seg Jul 01, 2024 4:35 am