How to Add Delay / Cooldown in this MACRO?

[mostppl]

I make a macro to change set but have some items no work 100% (time works and time does not)

PS: it is not exhausted on the server because there are players that do the macro with keyboard buttons (special keys) and it works without delay to change set

How to add exaustion or cooldown to up some items ?

Click to OPEN Spoiler \/
[spoiler]BBOT
BasicFeatures.LightHack=6
HUD.MagicWalls=-1
Macros.AutoEnable=-1
Macros.Items=@M:41489883914239823021998357609
#Ice SET
80 {ROD ICE} HS_Rod:=28716 Tibia.Keydown(49)==1 Self.Equip.LeftHand(!HS_Rod) exit()
80 {HELMET ICE} HS_Helmet:=829 Tibia.Keydown(49)==1 Self.Equip.Helmet(!HS_Helmet) exit()
80 {ARMOR ICE} HS_Armor:=3567 Tibia.Keydown(49)==1 Self.Equip.Armor(!HS_Armor) exit()
80 {LEGS ICE} HS_Legs:=19366 Tibia.Keydown(49)==1 Self.Equip.Legs(!HS_Legs) exit()
80 {SHIELD ICE} HS_Shield:=3420 Tibia.Keydown(49)==1 Self.Equip.RightHand(!HS_Shield) exit()
80 {AMMO ICE} HS_Ammo:=25732 Tibia.Keydown(49)==1 Self.Equip.Ammo(!HS_Ammo) exit()

#Fire SET
80 {ROD FIRE} HS_RodF:=29425 Tibia.Keydown(50)==1 Self.Equip.LeftHand(!HS_RodF) exit()
80 {HELMET FIRE} HS_HelmetF:=28714 Tibia.Keydown(50)==1 Self.Equip.Helmet(!HS_HelmetF) exit()
80 {ARMOR FIRE} HS_ArmorF:=3388 Tibia.Keydown(50)==1 Self.Equip.Armor(!HS_ArmorF) exit()
80 {LEGS FIRE} HS_LegsF:=821 Tibia.Keydown(50)==1 Self.Equip.Legs(!HS_LegsF) exit()
80 {SHIELD FIRE} HS_ShieldF:=20090 Tibia.Keydown(50)==1 Self.Equip.RightHand(!HS_ShieldF) exit()
80 {AMMO FIRE} HS_AmmoF:=25734 Tibia.Keydown(50)==1 Self.Equip.Ammo(!HS_AmmoF) exit()

#Energy SET
80 {ROD ENERGY} HS_RodE:=29425 Tibia.Keydown(51)==1 Self.Equip.LeftHand(!HS_RodE) exit()
80 {HELMET ENERGY} HS_HelmetE:=27467 Tibia.Keydown(51)==1 Self.Equip.Helmet(!HS_HelmetE) exit()
80 {ARMOR ENERGY} HS_ArmorE:=3397 Tibia.Keydown(51)==1 Self.Equip.Armor(!HS_ArmorE) exit()
80 {LEGS ENERGY} HS_LegsE:=822 Tibia.Keydown(51)==1 Self.Equip.Legs(!HS_LegsE) exit()
80 {SHIELD ENERGY} HS_ShieldE:=20090 Tibia.Keydown(51)==1 Self.Equip.RightHand(!HS_ShieldE) exit()
80 {AMMO ENERGY} HS_AmmoE:=25732 Tibia.Keydown(51)==1 Self.Equip.Ammo(!HS_AmmoE) exit()

#DEATH SET
80 {ROD DEATH} HS_RodD:=29425 Tibia.Keydown(52)==1 Self.Equip.LeftHand(!HS_RodD) exit()
80 {HELMET DEATH} HS_HelmetD:=28714 Tibia.Keydown(52)==1 Self.Equip.Helmet(!HS_HelmetD) exit()
80 {ARMOR DEATH} HS_ArmorD:=3397 Tibia.Keydown(52)==1 Self.Equip.Armor(!HS_ArmorD) exit()
80 {LEGS DEATH} HS_LegsD:=19366 Tibia.Keydown(52)==1 Self.Equip.Legs(!HS_LegsD) exit()
80 {SHIELD DEATH} HS_ShieldD:=20090 Tibia.Keydown(52)==1 Self.Equip.RightHand(!HS_ShieldD) exit()
80 {AMMO DEATH} HS_AmmoD:=25730 Tibia.Keydown(52)==1 Self.Equip.Ammo(!HS_AmmoD) exit()
@M:32322809281257250086198543960
Variables=@M:573804379791721883742625061
#Ice SET
HS_Rod=28716 #Falcon Rod
HS_Helmet=829 #Glacier Mask
HS_Armor=3567 #Blue Robe
HS_Legs=19366 #Icy Cullotes
HS_Shield=3420 #Demon Shield
HS_Ammo=25732 #Gleaming Startlight Vial

#Fire SET
HS_RodF=29425 #Energized Limb
HS_HelmetF=28714 #Falcon Circlet
HS_ArmorF=3388 #Demon Armor
HS_LegsF=821 #Magma Legs
HS_ShieldF=20090 #Umbral Master Spellbook
HS_AmmoF=25734 #Shining Sun Catcher

#Energy SET
HS_RodE=29425 #Energized Limb
HS_HelmetE=27467 #Gnome Helmet
HS_ArmorE=3397 #Dwarven Armor
HS_LegsE=822 #Lightning Legs
HS_ShieldE=20090 #Umbral Master Spellbook
HS_AmmoE=25732 #Gleaming Startlight Vial

#Death SET
HS_RodD=29425 #Energized Limb
HS_HelmetD=28714 #Falcon Circlet
HS_ArmorD=3397 #Dwarven Armor
HS_LegsD=19366 #Icy Cullotes
HS_ShieldD=20090 #Umbral Master Spellbook
HS_AmmoD=25730 #Lit Moon Mirror
@M:41489883914239823021998357609
[/spoiler]


Here is similar by Member Catar[/b] - Work except Gnome Helmet 3_Helmet=27467 #Gnome Helmet

@Catar or others members.. how to add to equip SHIELD in this macro?

Click \/ to Open Spoiler - Macro Create by @Catar
[spoiler]BBOT
BasicFeatures.LightHack=6
HUD.MagicWalls=-1
Macros.AutoEnable=-1
Macros.Items=@M:416388066419416228092799809155
100 {Change EQ - Wearer} Cooldown.UnBlocked(StopChanging)==:True VarAdd(SlotIndex, 1) HasVar(SetChanger_!SlotIndex)==:False [Do the change] SlotIndex:=0 {Do the change} Str.Copy(SetChanger_!SlotIndex, Slot) ID:=VarGet(!SetType_!Slot) HasVar(!SetType_!SlotOn)==:True [Has a OnId] IDOn:=VarGet(!SetType_!SlotOn) GoLabel(Change Slot) {Has a OnId} IDOn:=!ID {Change slot} Self.Inventory.ID(!Slot)<>!IDOn Self.Equip(!Slot, !ID)
70 {Change EQ - Key Listener} Tibia.KeyDown(49)==1 [EquipChange] Cooldown.Blocked(CDkey)==0 Cooldown.Create(CDkey, 50) VarAdd(SetType, 1) HasVar(!SetType!_Helmet)==:False [Ok] SetType:=1 {Ok} Str.Copy(!SetType!_Name, SetName) Str.Copy(!SetType!_Color, Color) Color_R:=VarGet(!SetType!_Color_R) Color_G:=VarGet(!SetType!_Color_G) Color_B:=VarGet(!SetType!_Color_B) HUD.Print(:HRight, :VTop, !Color_R, !Color_G, !Color_B, 1000, !SetName) Cooldown.Create(StopChanging, 100)
@M:416388066419416228092799809155
Variables=@M:2581812635976602102906139477
#Set - 1
1_Name=ICE SET
1_Helmet=829 #Glacier Mask
1_Armor=3567 #Blue Robe
1_Legs=19366 #Icy Cullotes
1_Ammo=25732 #Gleaming Startlight Vial
1_Boots=0 #NOTHING

1_Color_R=93
1_Color_G=0
1_Color_B=253

#Set - 2
2_Name=FIRE SET
2_Helmet=28714 #Falcon Circlet
2_Armor=3388 #Demon Armor
2_Legs=821 #Magma Legs
2_Ammo=25734 #Shining Sun Catcher
2_Boots=0 #NOTHING

2_Color_R=18
2_Color_G=196
2_Color_B=232

#Set - 3
3_Name=ENERGY SET
3_Helmet=27467 #Gnome Helmet
3_Armor=3397 #Dwarven Armor
3_Legs=822 #Lightning Legs
3_Ammo=25732 #Gleaming Startlight Vial
3_Boots=0 #NOTHING
3_BootsOn=0 #NOTHING

3_Color_R=18
3_Color_G=245
3_Color_B=253

# Configuration - Advanced
SetChanger_0=Helmet
SetChanger_1=Armor
SetChanger_2=Legs
SetChanger_3=Ammo
SetChanger_4=Boots
@M:2581812635976602102906139477[/spoiler]