ScriptUO
Scripting Resources & Utilities => Stealth Client => Stealth archive => Topic started by: Chrisok on April 26, 2013, 06:36:24 AM
-
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
Procedure DrinkStam;
begin
if (Count($0F0B) > 0) then
begin
UseType($0F0B,$0000);
wait(500);
end;
end;
-Automated stuns (pre uor shards)
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)
-
/////////////////////////
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.