Couple Snippets for PVP

[Chrisok]

Trying to think of different things to script; Would love to have others help with this ; either sending in pm or posting.

PVP
-Automated potion drinking

Code: [Select]

Procedure DrinkStam;
begin
    if (Count($0F0B) > 0) then
    begin
      UseType($0F0B,$0000);
      wait(500);
    end;
end;-Automated stuns (pre uor shards)

Code: [Select]

Procedure AutoStun;
begin
if (Stam < 20) then DrinkStam;
begin
UseSecondaryAbility;
wait(1000);
end;
end;
-Target Lowest Enemy
(working on now) - buggy
-Explosion pot kicker (kicks back xplode pots)
(completed but depends on timers for shard)
-Xheals
(having problem with target quene'ing)
-Auto Pop pouches
Procedure AutoPop
(was working now not working on new shard)

[Chrisok]

Code: [Select]

/////////////////////////
const
ClickHeal = 50;//change when you want to heal at
ClickStam = 20;//change when you want to refresh at
CurePotionCD = 0;//change per server settings
HealPotionCD = 10;//change per server settings
StaminaPotionCD = 5;//change per server settings
/////////////////////////
var
CurePot, HealPot, StamPot : Cardinal;
/////////////////////////
Procedure DrinkStam;
begin
  if ((Timer > (StamPot + (StaminaPotionCD * 1000))) or (StamPot = 0)) then
  begin
    if (Count($0F0B) > 0) then
    begin
      UseType($0F0B,$0000);
      wait(500);
    end;
    StamPot :=Timer;
  end;
end;

Procedure DrinkHeal;
begin
  if ((Timer > (HealPot + (HealPotionCD * 1000))) or (HealPot = 0)) then
  begin
    if (Count($0F0C) > 0) then
    begin
      UseType($0F0C,$0000);
      wait(500);
    end;
    HealPot :=Timer;
  end;
end;

Procedure DrinkCure;
begin
  if ((Timer > (CurePot + (CurePotionCD * 1000))) or (CurePot = 0)) then
  begin
    if (Count($0F07) > 0) then
    begin
      UseType($0F07,$0000);
      wait(500);
    end;
  end;
end;

Procedure AP;
begin
  repeat
    if (GetHP(self) < (GetMaxHP(self) - 1)) then
      begin
        if IsPoisoned(self) and not IsYellowHits(self) then DrinkCure;
        if (GetHP(Self) < ClickHeal) and (GetHP(Self) > 0) and not Poisoned and not IsYellowHits(self) then DrinkHeal;
      end;
    if (Stam < ClickStam) then DrinkStam;
    wait(50);
  until dead
end;

Procedure AP1;
begin
  while not dead do
  begin
    if (GetHP(self) < (GetMaxHP(self) - 1)) then
      begin
        if IsPoisoned(self) and not IsYellowHits(self) then DrinkCure;
        if (GetHP(Self) < ClickHeal) and (GetHP(Self) > 0) and not Poisoned and not IsYellowHits(self) then DrinkHeal;
      end;
    if (Stam < ClickStam) then DrinkStam;
    wait(50);
  end;
end;   


begin
end.