Ir para conteúdo

AlpinO

Membro
  • Registro em

  • Última visita

Tudo que AlpinO postou

  1. AlpinO postou uma resposta no tópico em Recursos Avançados
    Aqui foi um pouco diferente, tive que ir na aba Compile -> Advanced Compile Options, e lá tive de trocar de NET Framework 4 (Client) para Net Framework 4. Obrigado flamer, pela ajuda. REP +
  2. AlpinO postou uma resposta no tópico em Recursos Avançados
    Quando tento compilar ou usar o Debug, ele da os seguintes erros: Eu baixei o Tibia API 2.9.10, fui em Add Reference e selecionei ele. Segui o tutorial do Renato Ribeiro certinho, mas está dando esses erros. Para ver os códigos clique aqui. Obrigado.
  3. AlpinO postou uma resposta no tópico em Suporte Bots
    Olá. Gostaria de um script que quando acabar as spears, ele executasse um waypoint até a vendedora de spear de Thais (pode deixar que eu faço o waypoint), e comprasse spears dela (não sei como faz isso), executasse outro waypoint para voltar a cave (também faço). Obrigado.
  4. Não é exatamente o que estou pedindo, mas já ajuda bastante! Obrigado (Rep +) Ahh, se puder me ajudar em outra coisa: EDIT ------- Encontrei o que procurava, editei o tópico com o script para que outros possam usar.
  5. AlpinO postou uma resposta no tópico em Suporte Bots
    Olá. Preciso de modificações simples em 2 scripts que tenho: 1º: Diz: training pls no kill. Mas esse script roda apenas 1 vez, gostaria de que funcionasse até que eu o parasse manualmente pelo NG. Const Text = 'training please no kill' function PlayerOnScreen : boolean; begin Result := False; if Creatures.Count > 1 then begin for x := 0 to Creatures.Count - 1 do begin Skip := False; if Terminated then Break; if Creatures.Creature[x].Name = Self.Name then Continue; if Creatures.Creature[x].NPC then Continue; if Creatures.Creature[x].Visible then begin if Skip then Continue; Result := True; end; end; end; end; while not terminated do begin UpdateWorld; if PlayerOnScreen then begin Self.Say(Text); break; end; sleep(500); end; 2º: O script abaixo está quase perfeito, mas gostaria de que ele ao trocar para a arma forte aos 200 de HP, ele também colocasse no modo Offensive Fight, e ao retornar a arma fraca aos 300 de HP, ele voltasse para o modo Defensive Fight. Const Strong=7385;//the strong weapon ID that we will be using if we get to StrongHP health. Weak=3291;//weapon ID of the weak one. StrongHP=200; //thats the low hp to switch to stronger weapon. WeakHP=300;//high hp for using the weaker weapon. 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; Procedure PutWeaponInHand(ID:Integer); var Weapon:TItem; begin Weapon:=GetItemFromOpenBackpack(ID); if Weapon <> nil then begin Weapon.MoveToBody(self.LeftHand, 0); sleep(1000); end; end; begin while not terminated do begin updateworld; if Self.Health>=WeakHP then if Self.LeftHand.ID<>Weak then PutWeaponInHand(Weak); if Self.Health<=StrongHP then if Self.LeftHand.ID<>Strong then PutWeaponInHand(Strong); Sleep(1000); end; end; Obrigado.
  6. A mana restore do NG usa MP. Quero usar food, e economiza-lo, comendo apenas quando for necessário.
  7. Olá. Gostaria de um script que ao estabilizar a mana abaixo do total ele coma food. Ex.: Estou caçando com BOT, minha mana total é 100, mas ela estabilizou em 45 (efeito do food parou em 45), ai o script faça comer food. EDIT ------- Script encontrado: Const NoRegain = 6 // K-6, EK-6, P-4, RP-3, D-3, ED-2, S-3, MS-2 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; Procedure EatFood; Const FoodList = [3595,3577,3578,3579,3582,3583,3584,3600,3584,3585,3586,3587,3588,3589,3590,3591,3592,3593,3594,3598,3599,3601,3602,3607,3725] Var i: Integer begin for i := Low(FoodList) to High(FoodList) do begin Food := GetItemFromOpenBackpack(FoodList[i]); if Food <> nil then begin Food.Use; break; end; end; end; UpdateWorld; count := 0; Mana := self.mana; while not terminated do begin Updateworld; if Mana = Self.Mana then count := count + 1; else begin count := 0; Mana := Self.Mana end; if count > NoRegain then begin EatFood; count := 0; end; sleep(1000); end;
  8. AlpinO postou uma resposta no tópico em Suporte Bots
    Gostaria de que me ajudassem a escolher qual o melhor BOT pago... Sou knight, lvl 21, estou usando Tugbot e gosto bastante, mas estou pensando em mudar para um pago. Vejo muitas pessoas falando bem do NeoBot e do BBot, então vim pedir para que vocês me ajudassem nesse escolha, dando informações relevantes sobre os bots, e qual você escolheria. Obrigado.

Informação Importante

Confirmação de Termo