Hello there, is this your first visit?
Registro

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.









Página 1 de 2 12 ÚltimoÚltimo
Resultados 1 a 10 de 14
  1. #1
    Eu nao floodo, voce sim Avatar de Vizly
    Data de Ingresso
    Jul 2008
    Posts
    20
    Agradecer
    0
    Agradecido
    57 vezes
    WC Coins
    0 (0 Banked)

    Padrão [Scripts] Tibiabot ng

    bom meu primeiro topico aqui na comu e como nao vi nenhum parecido..

    Anti-Paralyze

    const
    minMana = 20; //Mana que precisa para soltar exura

    while not Terminated do
    begin
    UpdateWorld;
    if Self.Mana > minMana then
    begin
    if Self.Slowed then
    Self.Say('exura');
    Sleep(300);
    end;
    end;


    pode colocar ali como exana mort ou utani hur ou gran hur só alterar o nome da magia e a mana que gasta.

    Auto SSA e rings

    var
    RingID: integer;
    AmuletID: integer;
    ShieldID: integer;
    XbowID: integer;


    function GetItemFromOpenBackpack(ID: integer): TItem;
    var
    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;

    begin
    RingID := 0; //ID Number de algum anel que vc queira no caso mana ou migth
    AmuletID := 3081; //ID number do stone skin amulet..caso nao queira o uso do ssa coloke 0
    while not Terminated do
    begin
    UpdateWorld;
    if RingID <> 0 then
    begin
    if Self.Ring.ID = 0 then
    begin
    Ring := GetItemFromOpenBackpack(RingID);
    if Ring <> nil then
    begin
    Ring.MoveToBody(Self.Ring, 0);
    end;
    end;
    end;
    UpdateWorld;
    if AmuletID <> 0 then
    begin
    if Self.Amulet.ID = 0 then
    begin
    Amulet := GetItemFromOpenBackpack(AmuletID);
    if Amulet <> nil then
    begin
    Amulet.MoveToBody(Self.Amulet, 0);
    end;
    end;
    end;
    Sleep(100);
    end;
    end;


    Auto SS(screen shot) quando upa

    var
    Level: integer;

    begin
    UpdateWorld;
    Level := Self.Level;
    while not Terminated do
    begin
    UpdateWorld;
    if Level <> Self.Level then
    begin
    Level := Self.Level;
    ScreenShot('c:\level' + IntToStr(Level) + '.jpg');
    end;
    Sleep(1000);
    end;
    end;


    Exori con /exori hur

    const
    Delay = 2000; //exaut para cada exori con 2 sec
    MinimumManaToCast = 60; // mana que precisa para soltar exori con
    MinimumMonsterHealth = 60; // Contado em Pircentagem se o monstro tiver 1k de lifer com 60 soltara exori com com 600 de life..
    SpellRange = 3; // soltara 3 exori con

    function GetCreatureByID(ID: integer): TCreature;
    var
    x: integer;
    begin
    Result := nil;
    for x := 0 to Creatures.Count - 1 do
    if Creatures.Creature[x].ID = ID then
    Result := Creatures.Creature[x];
    end;

    var
    Attacking : TCreature;
    Range: Integer;
    begin
    while not Terminated do
    begin
    UpdateWorld;

    Attacking:=GetCreatureByID(Self.Attacking);
    if (Assigned(Attacking)) then
    begin
    Range := Round(Sqrt(Sqr(Self.X - Attacking.X) + Sqr(Self.Y - Attacking.Y)));
    if (Range <= SpellRange) and (Attacking.Health >= MinimumMonsterHealth) and (Self.Mana >= MinimumManaToCast) then
    Self.Say('exori con');
    end;

    Sleep(Delay);
    end;
    end;


    coloca e tira soft boots

    Const
    Soft=6529; //6529 ID Softboots na BP
    Softbody=3549;//3549 ID soft in use
    Bsteel=3079; // obs 3554 é id da stell boots pode alterar pelo da boh
    ManaMin=300;// mana para colokar a soft
    ManaMax=500;//mana para retirar a soft

    var
    FeetID: integer;

    function GetItemFromOpenBackpack(ID: integer): TItem;
    var
    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;

    begin
    FeetID := Bsteel;
    while not Terminated do
    begin
    UpdateWorld;
    if Self.Mana > ManaMax then
    begin
    if Self.Feet.ID = Softbody then
    begin
    Feet := GetItemFromOpenBackpack(Bsteel);
    if Feet <> nil then
    begin
    Feet.MoveToBody(Self.Feet, 0);
    end;
    end;
    end
    else
    begin
    Boh := GetItemFromOpenBackpack(Soft);
    if Self.Mana < ManaMin then
    if Self.Feet.ID = Bsteel then
    begin
    Boh.MoveToBody(Self.Feet, 0);
    end;
    end;
    Sleep(100);
    end;
    end;


    ataca bixos que o ng nao ataca, exemplo: chicken, deer, etc..

    Const
    Monster = 'Chiken' //pode ser alterado para o bixo que vc quizer

    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].Z <> Self.Z then Continue;
    if Creatures.Creature[x].Name = Name then
    begin
    Result := Creatures.Creature[x];
    Exit;
    end;
    end;
    end;

    while not Terminated do
    begin
    UpdateWorld;
    if not Self.Attacking then
    begin
    Creature := GetCreatureByName(Monster);
    if Creature <> nil then Creature.Attacking := True;
    end;
    Sleep(1000);
    end;


    agora esse daqui usa pot de health, pot de mana e ainda cura com spell , pra usar ele é facil só colocar o item number do health e mana potion e colocar em quanto voce quer que ele cure

    const
    ////////// Potion Healing //////////

    Minimum_Potion_Health = 0
    Health_Potion_ID = 239

    ////////////////////////////////////

    ////////// Spell Healing //////////

    Minimum_Spell_Health = 0
    Healing_Spell = 'exana mort'
    Mana_Needed = 65

    Restore_Mana_At = 4000
    Mana_Potion_ID = 238

    ////////////////////////////////////



    while not Terminated do
    begin
    UpdateWorld;
    if (Self.Health < Minimum_Potion_Health) then Self.Containers.UseItemWithSelf(Health_Potion_ID);
    if (Self.Health < Minimum_Spell_Health) and (Self.Mana >= Mana_Needed) then
    begin
    Self.Say(Healing_Spell);
    Sleep(1000);
    end;
    else if (Self.Mana < Restore_Mana_At) and (Self.Health > Minimum_Potion_Health) then
    begin
    Self.Containers.UseItemWithSelf(Mana_Potion_ID);
    Sleep(1000);
    end;
    Sleep(100);
    end;


    esse é pra OT server ele troca grana sozinho e já junta

    procedure StackItems;
    var
    T: array of integer;
    x, y, z: integer;
    Temp: integer;
    begin
    UpdateWorld;
    T := VarArrayCreate([0, 19] , 3);
    Temp := -1;
    for x := 0 to Self.Containers.Count - 1 do
    begin
    if x >= Self.Containers.Count then Break;
    for z := 0 to Self.Containers.Container[x].Count - 1 do
    begin
    T[z] := Self.Containers.Container[x].Item[z].ID;
    end;
    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].Properties.Pilable then
    begin
    if Self.Containers.Container[x].Item[y].Amount < 100 then
    begin
    for z := y + 1 to Self.Containers.Container[x].Count - 1 do
    begin
    if T[z] = Self.Containers.Container[x].Item[y].ID then
    begin
    if Self.Containers.Container[x].Item[z].Amount < 100 then
    begin
    Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0);
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;

    while not Terminated do
    begin
    UpdateWorld;
    StackItems;
    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 = 3031 then
    begin
    if Self.Containers.Container[x].Item[y].Amount = 100 then
    begin
    Self.Containers.Container[x].Item[y].Use;
    Break;
    end;
    end;
    end;
    end;
    Sleep(1000);
    end;


    SD forever, ele segura o target noq voce por e ataca sd

    Const
    RuneD=3155;// rune id number for key Delete.
    RuneE=3174; // rune id number for key End.
    RunePD=5321;// rune id number for key Page Down.

    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;

    procedure Event_KeyDown(Key: integer);
    Begin
    Case key of
    $22:begin
    updateworld;
    Creature:=GetCreatureByID(LockID);
    if Creature <> nil then
    Self.Containers.UseItemWithCreature(RunePD, Creature);
    end;
    $23:begin
    updateworld;
    Creature:=GetCreatureByID(LockID);
    if Creature <> nil then
    Self.Containers.UseItemWithCreature(RuneE, Creature);
    end;
    $2E:begin
    updateworld;
    Creature:=GetCreatureByID(LockID);
    if Creature <> nil then
    Self.Containers.UseItemWithCreature(RuneD, Creature);
    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;
    Creature:=GetCreatureByID(LockID);
    if (Creature<>nil) and (Self.attacking=0) then
    if Creature.z=self.z then
    Creature.attacking:=true;
    sleep(100);
    end;
    end;


    Ataca sempre o ultimo bixo da tela

    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;


    bom por enquanto é so depois posto mais, quando for usar tira as coisas que estao em portugues dentro dos script que só servem pra ajudar voces a nao se confundirem , eu sou novo no forum e nao conheço muitos comando usei esse pra diferencia..


  2. #2
    Membro Novo Avatar de Mafuusu
    Data de Ingresso
    Jul 2007
    Posts
    15
    Agradecer
    4
    Agradecido 2 vezes em 1 Post
    WC Coins
    0 (0 Banked)

    Padrão

    Vai ser bem util!Obrigado!
    E quem quiser mais scripts tem no furum do tibiabot.com
    Última edição por Mafuusu; 09-08-2008 às 10:06 PM.

  3. Os seguintes 2 Usuários disseram Obrigado Mafuusu por essa útil mensagem:


  4. #3
    Membro Novo Avatar de vitor1997
    Data de Ingresso
    Aug 2008
    Posts
    1
    Agradecer
    2
    Agradecido
    0 vezes
    WC Coins
    0 (0 Banked)

    Padrão

    vlw

  5. #4
    Membro Avançado Avatar de shenow
    Data de Ingresso
    Mar 2007
    Localização
    HiHiHiHiHi
    Posts
    4.798
    Agradecer
    904
    Agradecido
    1.246 vezes
    WC Coins
    0 (0 Banked)

    Padrão

    Muito bom...tava faltando esses scripts
    Fixado!

  6. #5
    Membro Avatar de laerciooz
    Data de Ingresso
    Dec 2005
    Localização
    na frente do monitor
    Posts
    65
    Agradecer
    0
    Agradecido
    10 vezes
    WC Coins
    0 (0 Banked)

    Padrão

    TREINO COM SLIME O MELHOR

    const
    Spell = 'exura'
    Food_Id = 3578; // ID da comida que você tem.
    MinMana = 150; // Coloque aqui a mana para começar a comer.
    StrongWeaponID = 3295 // A arma para matar o Slime Original.
    HealAtHp = 500 // Vida para usar Exura.
    PotionAtHp = 100 // Vida para usar Poção.
    Potion = 266 // O ID da Poção de Vida que você irá usar.
    KillAtHp=200 // Quando estiver com essa vida, você irá matar a Slime Original.
    var
    StrongWeapon:TItem;

    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;

    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;

    begin
    updateworld;
    MotherSlime := GetFollowedCreatureID;
    while not Terminated do
    begin
    UpdateWorld;
    if self.LogoutBlock=false then self.Logout(false);
    if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then
    Self.Say(Spell)
    UpdateWorld;
    if ((Self.Health) <(PotionAtHp)) then Self.Containers.UseItemWithSelf(GetItemFromOpenBac kpack(Potion));
    Sleep(1000);
    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) and (Creatures.Creature[x].Z = Self.Z) 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;
    else
    begin
    if self.Health < KillAtHp 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) and (creatures.creature[x].Z = self.Z) then
    Creatures.Creature[x].Attacking := true;
    StrongWeapon:= GetItemFromOpenBackpack(StrongWeaponID);
    if StrongWeapon <> nil then
    StrongWeapon.MoveToBody(Self.RightHand, 0);
    Break;
    end;
    end;
    end;
    if Self.Mana < MinMana then
    begin
    UpdateWorld;
    for container := 0 to Self.Containers.Count - 1 do
    begin
    UpdateWorld;
    for item := 0 to Self.Containers.Container[container].Count - 1 do
    begin
    UpdateWorld;
    if Self.Containers.Container[container].Item[item].ID = Food_Id then
    Self.Containers.Container[container].Item[item].Use;
    end;
    end;
    end;
    end;
    Sleep(1000);
    end;
    end;

  7. #6
    Membro Avatar de laerciooz
    Data de Ingresso
    Dec 2005
    Localização
    na frente do monitor
    Posts
    65
    Agradecer
    0
    Agradecido
    10 vezes
    WC Coins
    0 (0 Banked)

    Padrão

    Script que responde por você quando você não está presente.

    Código:
    ** 0 1 "hi|hey|hello|sup|yo|yoo|hiho|huhu|Hi|Hey|Sup|Yo|Y oo|Hiho|Huhu" "hi", "hey", "hello", "Hiho", "Yo :P"
    ** 0 2 "food|food plz|food?|Food|Food plz|Food Pls|Food Plz?|Got food?|I need food" "no i need too","nope", "no", "nah", "Sorry but i need food too :P"
    ** 0 1 "botter|Botter|bot|bot?|Bot?|Bot|NG?|BOTTER!|Y ou Botting?" "Dont be stupid"
    ** 0 2 "reported|botting|cheater|cave bot|Botting|Cave Botter|Reported" "Sure -.- what ever you say", "yes ofcourse...NOT", "whuauhauauhhua"
    ** 0 1 "What colour are my shoes?" "blue ", "Dont you even know the colour of your shoes? Its blue "
    ** 0 1 "no kill|mine|no attack|no atk|dont kill them|MINE|No kill|Mine|Oi thats mine|-.- That was my kill|No atk|Dont kill pls" "I need exp man :S", "we all need exp"
    ** 0 2 "training|Training pls|Skill|i skill|Skill|Skill pls|skill pls" "lol go for it", "xD ok man but i need exp"
    ** 0 1 "can you rope me up|rope?|rope|Rope pls|Rope me up please|Rope up please" "I need hunting sorry", "sorry leveling atm"
    ** 0 1 "noob|naab|nabb|nab|noobie|newb|newbie|NOOB|Nab|No ob|-.- Noob|-.- noob" "-.- sure man", "whahauha xD sooo funny"
    ** 0 1 "br|pl|nl|be|swe|Br?|Pl?|Swe?|Be?" "no"
    ** 0 1 "oi|hola" "not br", "english plx"
    ** 0 1 "no|No|NO|No!" "no?"
    ** 0 1 "lol| |rofl|lmao|ftw|wtf|Lol|Rofl|Lmao|FTW|Ftw|Wtf|WTF|" " " "rofl" "haha" "lmao"
    ** 0 1 "skills?|skill|skills|Skills?|Skill?" "look online", "secret"
    ** 0 1 "can I hunt here?|I am here|Me here|me here" "sorry I need level", "leave please", "leave!"
    ** 0 2 "What colour does a banana have?|what is the collor of a banana?|What colour is a banana?|What colour can a banana be?" "yellow, sometimes green if to when its very ripe :P why?"
    ** 0 1 "play fair and safe|Play on|Sorry play on|Carry on" "hehe I will xD"
    ** 0 2 "what are you doing here?|What are you doing here?" "Hunting :P"
    ** 0 1 "what colour is the sky?|what is the collor of the sky?|What colour is the sky?|" "blue..."
    ** 0 1 "leave|leave!|leave plxx|Leave|Leave now|LEAVE!|LEAVE" "I need exp man :S"
    ** 0 2 "sup?|everything ok?|whats up?|how are you?|Yo sup?|What's up|Whats up|Hows you?|How are you?" "fine but lemme hunt now"
    ** 0 1 "where you from?|Where are you from?" "secret ^^"
    ** 0 1 "what level are you?|What level are you?" "lol just look at me "
    ** 0 1 "need mana|mana gaining|Need mana|Mana gaining" "ok "
    ** 0 1 "pk help|pk|pks|pking|PK|Pk|HELP PK|PK HELP ME" "sorry cant help"
    ** 0 2 "     you|     YOU|fu|FU" " not nice man"
    ** 0 1 "what is your vocation?|Voc?|Vocation?" "look at me and you'll see ^^"
    ** 0 1 "what color does my outfit has?|what is the collor of my outfit?|What colour is my outfit?" "blue "
    ** 0 1 "what you doing?|What are you doing?" "leveling", "hunting"
    ** 0 1 "key|key please|open door|key for door|Key pls?|Key?|Open door pls" "im loosing exp that way"
    ** 0 2 "shovel|shovel please|shovel plx|hole|open hole|Shovel pls|open hole pls|" "sorry I need to hunt"
    ** 0 1 "what colour does the sea have?|What colour is the sea?|What colour can the sea be?" "blue..."
    ** 0 1 "say: sure -.- you so funny if you bot|You sure your not a botter?" "Im not a botter xD"
    ** 0 1 "what monsters are you killing?|What monsters are killing?" "are you blind? -.-", "ALL THE MONSTERS HEUHUEHUEUHEU"
    ** 0 1 "pro|protected|protection|I have pro|Protected|Protection|Pro" "and? So do I..."
    ** 0 1 "?|?!" "?? what?"
    ** 0 2 "what?|What?!|What?" "what?"
    ** 0 1 "whats your problem?|What is your problem?|Whats your problem" "I got no problem"
    ** 0 1 "wtf|ftw|WTF|FTW" "??"
    ** 0 1 "me so evil|I am the devil|satan|evul|Evul|Satan" "LOL whuahuahuahu"
    ** 0 1 "move|walk|gogogo|move!|MOVE|Move now or die|Gogogogo|Walk|Move out the way" "Why? I have time xD"
    ** 0 1 "stop|STOP|stop plx|stop!|Stop|Oi Stop it|" "-.- I need level!!"
    ** 0 1 "ban|banned|banishment|banning you|Ban|Banned|Going to ban you" "why man? im not doing anything wrong :S"
    ** 0 1 "help me|HELP|help!|Help|helping" "no man find other help"
    ** 0 1 "..I..|..l..|loser|dickhead|butthead|    er" "I laugh with your face"
    ** 0 1 "what colour does an apple have?|What colour is apples?|" "In tibia they are red, in rl they can be green, red and some more colours:P"
    ** 0 1 "what is my name?|What is my name?" "dont you know your own name? xD"
    ** 0 1 "block|blocked|stuck|trap|trapped|traped|Trapped|B locked|Haha Blocked|Blocked botter" "lol funny that you trap me "
    ** 0 1 "time|whats the time?|clock?|time?|What is the time?|Time pls" "lol look at the clock -.-"
    ** 0 1 "answer please|answer me|answer!|ANSWER|Answer me :@|Answer now or dead" "I am, I am, patience "
    ** 0 1 "Ho are you?|how are you?|ho are you?|How are you?" "fine thank you"
    ** 0 1 "talk to me please|talk to me|talk!|Talk to me please|Talk pls|Talk now" "i no good english"
    ** 0 1 "fun|pleasure|having fun|funny|Fun|Funny|Having fun?" "tibia big fun!"
    ** 0 1 "cool|very cool|Cool|COOL|ubercool|kewl|cewl|KEWL" "yes very cool"
    ** 0 1 "kill|kill them|KILL|kill monsters" "..."
    ** 0 1 "...|.|.." "..."
    ** 0 1 "bad|good|Good|Bad" "yeps"
    ** 0 1 "NG|tibiaauto|blackD|tibiaNG|TibiaBotNG|ng|Tib ia bot|Botttttt" "what that?", "wtf u saying?", "???"
    ** 0 1 "heal|healing please|healplx|HEAL|HEALING|Heal Pls|Heal pls|Heal|Heal plx" "heal yourself...", "go ask someone else"
    ** 0 1 "hehe|haha|hihi|HEHE|Hehe" "^^"
    ** 0 1 "friends?|friend|friend?|friends|amigo" "Ill think about it ;]"
    ** 0 1 "runemaking|runes|rune|RUNEMAKING" "I am runemaking ", "why?"
    ** 0 1 "fishing|fishing rod|Fishing|fishing fast|fish fast" "yes I can fish good", "im a fishing owner lol "
    ** 0 1 "typ|typ fast|TYP|fast|Fast typer |Very Fast typer" "Yes im really fast", "trained alot on speed", "im one hell of a racemachine"
    ** 0 1 "nice|very nice|Nice|NICE" "nice! "
    ** 0 1 "what world do you play?|world?|what world is this?|What world is this?" "XXX"
    ** 0 1 "What is your vocation?|what is your vocation|what is your voc?|whats your vocation?|whats ur vocation?" "XXX and I like it"
    ** 0 1 "leveling|hunting|skilling|killing monsters|Leaveling|Hunting here|Im here|Me here" "leave I need full exp"
    ** 0 1 "what is your name?|name?|rl name|your name?|Name?" "LOL it is secret xD"
    ** 0 1 "good exp?|enough exp?|Is the cave big enough?|cave big?|big cave?|Good exp?|Cave big enough for 2 of us", "trained alot on speed", "im one hell of a racemachine"
    ** 0 1 "What collor is your hair?|What colour is your hair?" "euhm in rl brown and here..ya can see "
    ** 0 1 "what collor is the gras?|what colour does grass have?|What colour is the grass?" "green ", "normal grass is green xD"
    ** 0 1 "how do you talk?|how you talk to people?|How do you talk?" "typ and do enter..."
    ** 0 1 "what is the name of this game?|name of this game?|How is this game called?|What is this game called?|What game called?" "tibia? :P"
    ** 0 1 "bye|Bye|cya|Cya|See you later|See ya|see ya|baba|bb|goodbye|Goodbye" "cya "
    ** 0 1 "Auto responder?|Autorespond|Responder?" " tibia has that now? wow"
    ** 0 1 "Think your cool?|think your cool?" "My mum said i was cool =]", "Cooler than you :P"
    ** 0 1 "Stop killing my stuff" "I was here first", "now its my stuff "

  8. #7
    Membro Avatar de laerciooz
    Data de Ingresso
    Dec 2005
    Localização
    na frente do monitor
    Posts
    65
    Agradecer
    0
    Agradecido
    10 vezes
    WC Coins
    0 (0 Banked)

    Padrão

    Treinar com monk

    Const
    StopAt=50;//para de atacar qn tiver com 50% de vida
    AttackAt=60;// ataca monk/player com mais de 50% de Life
    TrainName=['Monk','FrinedName1','FriendName2'];//vc pode alterar caso nao seja em mundo pvp
    var
    creature:tcreature;

    function GetCreatureByNameHPHIGH(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
    if Creatures.Creature[x].z=Self.Z then
    if Creatures.Creature[x].Health>AttackAt then
    begin
    Result := Creatures.Creature[x];
    Exit;
    end;
    end;
    end;
    function Attacking: 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].Attacking then
    begin
    Result := True;
    Exit;
    end;
    end;
    end;
    function GetAttackedCreature: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].Attacking=true then
    begin
    Result := Creatures.Creature[x];
    Exit;
    end;
    end;
    end;


    begin

    while not Terminated do
    begin
    UpdateWorld;
    if not attacking then
    begin
    For x:=low(TrainName) to high(trainName) do
    begin
    If self.attacking<>0 then break;
    Creature:=GetCreatureByNameHPHIGH(TrainName[x]);
    if Creature <> nil then
    creature.attacking:=true;
    sleep(100); updateworld;
    end;
    end;
    if attacking then
    begin
    Creature:=GetAttackedCreature;
    if Creature <> nil then
    if creature.Health < StopAt then creature.attacking:=false;
    end;
    sleep(1000);
    end;
    end;

  9. Os seguintes 2 Usuários disseram Obrigado laerciooz por essa útil mensagem:


  10. #8
    Membro Avatar de laerciooz
    Data de Ingresso
    Dec 2005
    Localização
    na frente do monitor
    Posts
    65
    Agradecer
    0
    Agradecido
    10 vezes
    WC Coins
    0 (0 Banked)

    Padrão

    Maker Enchanted Spear
    Const
    SpearID = 3277
    Spell = 'Exeta con'
    MinMana = 600
    MinSoul = 5
    WeaponID = 3291

    function GetItemFromOpenBackpack(ID: integer): TItem;
    var
    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;
    if Self.Mana >= MinMana then
    if Self.Soul >= MinSoul then
    begin
    Spear := GetItemFromOpenBackpack(SpearID);
    if Spear <> nil then
    Spear.MoveToBody(Self.RightHand,1);
    Sleep(800);
    UpdateWorld;
    If Self.RightHand.ID = SpearID then
    Self.Say(Spell);
    UpdateWorld;
    Weapon := GetItemFromOpenBackpack(WeaponID);
    if Weapon <> nil then
    Weapon.MoveToBody(Self.RightHand,0);
    end;
    sleep(500);
    end;

  11. #9
    Membro Avatar de laerciooz
    Data de Ingresso
    Dec 2005
    Localização
    na frente do monitor
    Posts
    65
    Agradecer
    0
    Agradecido
    10 vezes
    WC Coins
    0 (0 Banked)

    Padrão

    Alertar quando Acabar o Food
    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;

  12. O seguinte Usuário agradeceu à laerciooz por essa útil mensagem:


  13. #10
    Membro Avatar de laerciooz
    Data de Ingresso
    Dec 2005
    Localização
    na frente do monitor
    Posts
    65
    Agradecer
    0
    Agradecido
    10 vezes
    WC Coins
    0 (0 Banked)

    Padrão

    Diagonal Drag
    Const
    Wanted='Dragon';// whice monster to keep diagnoling
    AttackAt = 25
    RampsID = [1950, 1952, 1954, 1956, 385, 1947, 434, 414, 604]

    var
    x,Bla:Integer;
    Looting: boolean;


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


    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;
    function IsTileWalkable(Tile: TTile): boolean;
    begin
    Result := True;
    for Z := 0 to Tile.Count - 1 do
    begin
    if Tile.Item[Z].Properties.Hole then
    begin
    Result := False;
    end
    else if Tile.Item[Z].Properties.Stairs then
    begin
    Result := False;
    end
    else if not Tile.Item[Z].Properties.Walkable then
    begin
    OutputDebugString('Not Walk: ' + IntToStr(Tile.Item[Z].ID));
    Result := False;
    end;
    else
    begin
    for x := low(RampsID) to high(RampsID) do
    begin
    if Tile.Item[Z].ID = RampsID[x] then Result := False;
    end;
    end;
    end;
    end;

    function GetCreatureBesideYou: TCreature;
    begin
    UpdateWorld;
    Result := Nil;
    for x := 0 to Creatures.Count - 1 do
    begin
    UpdateWorld;
    if (Creatures.Creature[x].Name=Wanted) then
    if IsCreatureBesideYou(Creatures.Creature[x]) then
    begin
    if Creatures.Creature[x].ID <> Self.ID then
    begin
    UpdateWorld;
    Result := Creatures.Creature[x];
    Exit;
    end;
    end;
    end;
    end;
    var
    Moved:boolean;

    begin
    updateworld;
    G:=false;
    T:=false;
    while not terminated do
    begin
    Bla:=Self.Containers.Count;
    updateworld;
    Creature:=GetCreatureBesideYou;
    if Creature<>nil then
    if Creatures.Creature[x].Health>AttackAt then
    begin
    if (Self.X<>Creature.X) and (Self.Y=Creature.Y) then
    begin
    Tile:=GetTileFromXYZ(Self.x,Self.y-1,self.z);
    if Tile<>nil then
    if IsTileWalkable(Tile) then
    begin
    Self.MoveUp;
    Moved:=true;
    end;
    If (Moved=False) then
    begin
    Tile:=GetTileFromXYZ(Self.x,Self.y+1,self.z);
    if Tile<>nil then
    if IsTileWalkable(Tile) then
    Self.MoveDown;
    end;
    end;
    Moved:=false;
    if (Self.X=Creature.X) and (Self.Y<>Creature.Y) then
    begin
    Tile:=GetTileFromXYZ(Self.x-1,Self.y,self.z);
    if Tile<>nil then
    if IsTileWalkable(Tile) then
    begin
    Self.MoveLeft;
    Moved:=true;
    end;
    If (Moved=False) then
    begin
    Tile:=GetTileFromXYZ(Self.x+1,Self.y,self.z);
    if Tile<>nil then
    if IsTileWalkable(Tile) then
    Self.MoveRight;
    end;
    end;
    end;
    sleep(1000);
    end;
    end;

 

 
Página 1 de 2 12 ÚltimoÚltimo

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •