Tibia Brasil

www.tibiabrazil-blog.blogspot.com


    Slime Treiner

    Compartilhe
    avatar
    ADM Altair Junior
    Admin

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

    Slime Treiner

    Mensagem  ADM Altair Junior em Dom Mar 14, 2010 12:58 pm

    Antes de ativar o Script de Follow na Slime verdadeira, depois ative o script e ele vai ataca sozinho o falsa

    function Attacking: boolean;
    begin
    UpdateWorld;
    for x := 0 to Creatures.Count - 1 do
    begin
    UpdateWorld;
    if Creatures.Creature[x].Attacking then
    begin
    Result := True;
    Exit;
    end;
    end;
    Result := False;
    Exit;
    end;

    function GetFollowedCreatureID: integer;
    begin
    UpdateWorld;
    for x := 0 to Creatures.Count - 1 do
    begin
    UpdateWorld;
    if Creatures.Creature[x].Following then
    begin
    Result := Creatures.Creature[x].ID;
    Exit;
    end;
    end;
    end;

    var
    MotherSlime, X1, Y1: integer;
    begin
    MotherSlime := GetFollowedCreatureID;
    while not Terminated do
    begin
    UpdateWorld;
    if not Attacking then
    begin
    UpdateWorld;
    for x := 0 to Creatures.Count - 1 do
    begin
    UpdateWorld;
    if Creatures.Creature[x].ID <> MotherSlime then
    begin
    if (Creatures.Creature[x].Name <> Self.Name) and Creatures.Creature[x].NPC then
    begin
    UpdateWorld;
    X1 := Creatures.Creature[x].X;
    Y1 := Creatures.Creature[x].Y;
    if (X1 - Self.X = 1) or (X1 - Self.X = 0) or (X1 - Self.X = -1) then
    begin
    UpdateWorld;
    if (Y1 - Self.Y = 1) or (Y1 - Self.Y = 0) or (Y1 - Self.Y = -1) then
    begin
    Creatures.Creature[x].Attacking := true;
    Break;
    end;
    end;
    end;
    end;
    end;
    end;
    Sleep(1000);
    end;
    end;

    Download

    Megaman9

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

    Re: Slime Treiner

    Mensagem  Megaman9 em Ter Nov 08, 2011 2:01 pm



    Pagina Ownada !!!


    Pixel lfie by zeruel[ pixellife.foro.bz/forum]

      Data/hora atual: Qui Out 19, 2017 6:38 pm