Alerta Spears - Script

[ferlations 153]

Aleluia senhor, um script para paladin ;p

Bem, eu não sei se esse script vai ser bem usado, ou até mesmo se vai ser usado -q.

Mas o que ele faz?

Enfim, neste script aqui, você irá configurar quantas spears você tem, e quantas spears você quer que alerte quando chegar aquela quantidade de spears. Exemplo, você deve ter umas 20 spears, ele irá te alertar quando chegar a 5 spears, irá tocar uma musica do windows e se você estiver fazendo algo no computador, irá perceber.

Observação: Este script só serve para computadores windows.

const 

 WeaponId = 3277; // Spear = 3277

 WeaponOz = 20; // Spear = 20

 AlertAmount = 5;

 TimeWait = 3; 

 SoundNoWeapon = 'C:\Windows\Media\Windows XP Battery Critical.wav';

 AlertSound = 'C:\Windows\Media\Windows XP Battery Critical.wav';


 procedure Notify(Sound : String);

 begin

 if (Pos('.wav', AlertSound) <> 0) then PlaySound(AlertSound);

 if (Pos('.wav', Sound) <> 0) then PlaySound(Sound);

 end;


 procedure CheckForWeapon;

 var QtyMove : integer;

 var QtyItems : integer;

 var HasWeapons : boolean;

 begin

 QtyMove := 0;

 HasWeapons := true;


 if Self.LeftHand.Amount <= AlertAmount then

 begin

 sleep(TimeWait * 1000);


 if Self.LeftHand.Amount <= AlertAmount then

 begin

 HasWeapons := false;


 for x := 0 to Self.Containers.Count - 1 do

 begin

 if HasWeapons then Break;


 if Self.Containers.Container[x].Count - 1 then

 begin


 for y := 0 to Self.Containers.Container[x].Count - 1 do

 begin

 if Self.Containers.Container[x].Item[y].ID = WeaponId then

 begin

 QtyItems := Abs(Self.Capacity / WeaponOz);


 if QtyItems >= 1 then

 begin

 if Self.Containers.Container[x].Item[y].Amount >= QtyItems then QtyMove := QtyItems;

 else QtyMove := Self.Containers.Container[x].Item[y].Amount;


 QtyMove := QtyMove - 1;


 if QtyMove then

 begin 

 Self.Containers.Container[x].Item[y].MoveToBody(Self.LeftHand, QtyMove);

 HasWeapons := true;

 Break;

 end;

 end;

 end;

 end;

 end;

 end;

 end;

 end;


 if not HasWeapons then Notify(SoundNoWeapon);

 end;


 begin

 while not Terminated do 

 begin

 UpdateWorld;

 CheckForWeapon;

 sleep(1000);

 end;

 end;

Scan - VirusTotal 0/43

Alerta Spears - TibiaKing.com.rar

~|• Explicação •|~

• WeaponId = 3277; // Spear = 3277

ID do item, o que no caso seria a spear normal, caso queria mudar para uma spear mais avançada, mude seu ID.

• WeaponOz = 20; // Spear = 20

A quantia que você tem de spears, o que no caso como está exatamente no script, serão 20 spears.

• AlertAmount = 5;

Agora, isso é se você quiser mudar estará tudo OK, pois isso serve para mandar o alerta quando estiver nessa quantia de spears na sua backpack.

• TimeWait = 3;

Essa parte do script é bem pequena, mas tem grande efeito. Ela serve para que você não fique floodando spells, ou seja, a cada 3 segundos ele transforma uma spear normal em enchanted spear. É como se ele desse um tempo para a transformação.

• SoundNoWeapon = 'C:\Windows\Media\Windows XP Battery Critical.wav';

Essa parte do script serve para te alertar como uma certa música, ou seja, a que está sendo enviada para esta pasta, irá tocar ela no seu computador quando suas spears acabarem.

• AlertSound = 'C:\Windows\Media\Windows XP Battery Critical.wav';

Já essa, meio diferente do de cima, ela serve não para quando acabar suas spears, mas sim quando for alertar a você, ou seja, fazer o bot funcionar, quando chegar aos 5 spears (exemplo, pois está assim no script), ela irá tocar essa musiquinha da pasta e você saberá que suas spears estão acabando.

Pronto gente, está ai, espero que muitos chars paladinos usem.

Até breve ;p

Editado Maio 28, 2011 por Luis F. Lima (veja o histórico de edições)