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

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

Give Reputation to this user

[Stasienko]

Bro idk but this forum is dead.
Give Reputation to this user

[Catar]

Gnome helmet may not be on bbot item list, so it wont see it unless u add to that list.



In my post it is explained how to add extra slot.

Quote:In # Configuration - Advanced you can add extra slots you want to change,
like SetChanger_5=Ring, then add this item to the set like X_Ring=...ID...

So in variables there under # Configuration - Advanced
SetChanger_5=LeftHand
or
SetChanger_5=RightHand



and your shield ID in one of the sets

example

Quote:1_Name=Main Set
1_Helmet=10385
1_Armor=11686
1_Legs=10387
1_Ammo=9596
1_Boots=4033
1_LeftHand=XXXX

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

Give Reputation to this user

[mostppl]

(03-22-2020 05:15 AM)Catar Wrote:  Gnome helmet may not be on bbot item list, so it wont see it unless u add to that list.



In my post it is explained how to add extra slot.

Quote:In # Configuration - Advanced you can add extra slots you want to change,
like SetChanger_5=Ring, then add this item to the set like X_Ring=...ID...

So in variables there under # Configuration - Advanced
SetChanger_5=LeftHand
or
SetChanger_5=RightHand



and your shield ID in one of the sets

example

Quote:1_Name=Main Set
1_Helmet=10385
1_Armor=11686
1_Legs=10387
1_Ammo=9596
1_Boots=4033
1_LeftHand=XXXX

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

Thank bro..

Shield work good.. but i need add more one Set and i having problems in code.. please look:

OPEN SPOILER \/

Spoiler

BBOT
Macros.AutoEnable=-1
Macros.Items=@M:89201663138479621601893754853
70 {Change EQ - Key Listener} Tibia.KeyDown(48)==1 [EquipChange] Cooldown.Create(DelayEQchange, 1000) Cooldown.Blocked(CDkey)==0 !SetType==1 [VarSetChange2] SetType:=2 HUD.Print(3, 1, 93, 0, 253, 500, ICE SET) Cooldown.Create(CDkey, 500) GoLabel(EquipChange) {VarSetChange2} !SetType==2 [VarSetChange3] SetType:=3 HUD.Print(3, 1, 18, 196, 232, 500, FIRE SET ) Cooldown.Create(CDkey, 500) GoLabel(EquipChange) {VarSetChange3} !SetType==3 [VarSetChange4] SetType:=4 HUD.Print(3, 1, 98, 6, 32, 2000, ENERGY SET) Cooldown.Create(CDkey, 500) GoLabel(EquipChange) {VarSetChange4} !SetType==4 [StartingSet] SetType:=1 HUD.Print(3, 1, 108, 96, 132, 500, DEATH SET) Cooldown.Create(CDkey, 500) GoLabel(EquipChange) {VarSetChange6} !SetType==6 [StartingSet] SetType:=1 HUD.Print(3, 1, 108, 96, 132, 500, NORMAL SET) Cooldown.Create(CDkey, 500) GoLabel(EquipChange) SetType:=1 {StartingSet} SetType:=!StartingSet exit() {EquipChange} Cooldown.Blocked(DelayEQchange)==0 !SetType<>1 [OtherSet1] !SetType<>2 [OtherSet2] !SetType<>3 [OtherSet3] !SetType<>4 [OtherSet4] !SetType<>6 [OtherSet6] exit() {OtherSet1} !SetType==1 {Head_1} Self.Inventory.Helmet()<>!S1_HelmetON [Armor_1] Self.Equip(Helmet, !S1_HelmetBP) exit() {Armor_1} Self.Inventory.Armor()<>!S1_Armor [Legs_1] Self.Equip(Armor, !S1_Armor) exit() {Legs_1} Self.Inventory.Legs()<>!S1_Legs [Ammo_1] Self.Equip(Legs, !S1_Legs) exit() {Ammo_1} Self.Inventory.Ammunition()<>!S1_Ammo [Shield_1] Self.Equip(Ammo, !S1_Ammo) exit() {Shield_1} Self.Equip.RightHand()<>!S1_Shield Self.Equip(RightHand, !S1_Shield) exit() {OtherSet2} !SetType==2 {Head_2} Self.Inventory.Helmet()<>!S2_Helmet [Armor_2] Self.Equip(Helmet, !S2_Helmet) exit() {Armor_2} Self.Inventory.Armor()<>!S2_Armor [Legs_2] Self.Equip(Armor, !S2_Armor) exit() {Legs_2} Self.Inventory.Legs()<>!S2_Legs [Ammo_2] Self.Equip(Legs, !S2_Legs) exit() {Ammo_2} Self.Inventory.Ammunition()<>!S2_Ammo [Shield_2] Self.Equip(Ammo, !S2_Ammo) exit() {Shield_2} Self.Inventory.RightHand()<>!S2_Shield Self.Equip(RightHand, !S2_Shield) exit() {OtherSet3} !SetType==3 {Head_3} Self.Inventory.Helmet()<>!S3_Helmet [Armor_3] Self.Equip(Helmet, !S3_Helmet) exit() {Armor_3} Self.Inventory.Armor()<>!S3_Armor [Legs_3] Self.Equip(Armor, !S3_Armor) exit() {Legs_3} Self.Inventory.Legs()<>!S3_Legs [Ammo_3] Self.Equip(Legs, !S3_Legs) exit() {Ammo_3} Self.Inventory.Ammunition()<>!S3_Ammo [Shield_3] Self.Equip(Ammo, !S3_Ammo) exit() {Shield_3} Self.Equip.RightHand()<>!S3_Shield Self.Equip(RightHand, !S3_Shied) exit() {OtherSet4} !SetType==4 {Head_4} Self.Inventory.Helmet()<>!S4_Helmet [Armor_4] Self.Equip(Helmet, !S4_Helmet) exit() {Armor_4} Self.Inventory.Armor()<>!S4_Armor [Legs_4] Self.Equip(Armor, !S4_Armor) exit() {Legs_4} Self.Inventory.Legs()<>!S4_Legs [Ammo_4] Self.Equip(Legs, !S4_Legs) exit() {Ammo_4} Self.Inventory.Ammunition()<>!S4_Ammo [Shield_4] Self.Equip(Ammo, !S4_Ammo) exit() {Shield_4} Self.Equip.RightHand()<>!S4_Shield Self.Equip(RightHand, !S4_Shield) exit() {OtherSet6} !SetType==6 {Head_5} Self.Inventory.Helmet()<>!S5_Helmet [Armor_5] Self.Equip(Helmet, !S5_Helmet) exit() {Armor_5} Self.Inventory.Armor()<>!S5_Armor [Legs_5] Self.Equip(Armor, !S5_Armor) exit() {Legs_5} Self.Inventory.Legs()<>!S5_Legs [Ammo_5] Self.Equip(Legs, !S5_Legs) exit() {Ammo_5} Self.Inventory.Ammunition()<>!S5_Ammo [Shield_5] Self.Equip(Ammo, !S5_Ammo) exit() {Shield_5} Self.Equip.RightHand()<>!S5_Shield Self.Equip(RightHand, !S5_Shield) exit()
@M:89201663138479621601893754853
Variables=@M:176753827833064637772358633148
StartingSet=1

#Death Set - 1
S1_HelmetBP=28714 #Falcon Circlet
S1_HelmetON=28714 #Falcon Circlet
S1_Armor=3397 #Dwarven Armor
S1_Legs=19366 #Icy Cullotes
S1_Ammo=25730 #Lit Moon Mirror
S1_Shield=20090 #Umbral Master Spellbook

#Ice Set - 2
S2_Helmet=829 #Glacier Mask
S2_Armor=3567 #Blue Robe
S2_Legs=19366 #Icy Cullotes
S2_Ammo=25732 #Gleaming Starlight Vial
S2_Shield=3420 #Demon Shield

#Fire Set - 3
S3_Helmet=28714 #Falcon Circlet
S3_Armor=19358 #Albine Plate
S3_Legs=821 #Magma Legs
S3_Ammo=25734 #Shining Sun Catcher
S3_Shield=20090 #Umbral Master Spellbook

#Energy Set - 4
S4_Helmet=27647 #Gnome Helmet
S4_Armor=3397 #Dwarven Armor
S4_Legs=822 #Lightning Legs
S4_Ammo=25730 #Lit Moon Mirror
S4_Shield=20090 #Umbral Master Spellbook

#Set Normal - 6
S5_Helmet=27647 #Gnome Helmet
S5_Armor=25779 #Swan Feather Cloak
S5_Legs=19366 #Icy Cullotes
S5_Ammo=25730 #Lit Moon Mirror
S5_Shield=14769 #Spellbook of Ancient Arcane
@M:176753827833064637772358633148

Give Reputation to this user

[Catar]

Use macros from this thread, it uses string variables and doesn't require any extra editing in it, just adding/editing variables.



And in variables, instead of "shield" it should be either LeftHand or RightHand
Give Reputation to this user