Tibia Brasil

www.tibiabrazil-blog.blogspot.com


    Alertar quando cabar o Food

    Compartilhe
    avatar
    ADM Altair Junior
    Admin

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

    Alertar quando cabar o Food

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

    Const
    FoodID = 1111 // Coloke aki o Id da food
    MusicPath = 'C:\Windows\Media\Notify.wav' // This is the main alert of windows.

    while not terminated do
    begin
    UpdateWorld;
    a:=0;
    For x:= 0 to Self.Containers.Count - 1 do
    begin
    for y := 0 to Self.Containers.Container[x].Count - 1 do
    begin
    if Self.Containers.Container[x].Item[y].ID = FoodID
    then a := 1;
    Sleep(100);
    end;
    sleep(100);
    end;
    sleep(100);
    if a = 0 then PlaySound(MusicPath);
    end;

    Legenda:
    Vermelho: Altere o ID (código) do food para o outro food de sua escolha

    TibiaBrasil IDs
    Download

    Megaman9

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

    Re: Alertar quando cabar o Food

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



    Pagina Ownada !!!


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

      Data/hora atual: Seg Ago 21, 2017 1:28 am