Author Topic: Couple Snippets for PVP  (Read 3492 times)

0 Members and 1 Guest are viewing this topic.

Offline ChrisokTopic starter

  • Jr. Member
  • **
  • Posts: 46
  • Activity:
    0%
  • Reputation Power: 1
  • Chrisok has no influence.
  • Respect: +7
  • Referrals: 0
    • View Profile
Couple Snippets for PVP
« on: April 26, 2013, 06:36:24 AM »
0
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)
« Last Edit: April 26, 2013, 08:07:42 AM by Chrisok »

Offline ChrisokTopic starter

  • Jr. Member
  • **
  • Posts: 46
  • Activity:
    0%
  • Reputation Power: 1
  • Chrisok has no influence.
  • Respect: +7
  • Referrals: 0
    • View Profile
Re: Couple Snippets for PVP
« Reply #1 on: May 02, 2013, 06:25:14 AM »
0
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.


Tags: