BBot - The best bot of the world
macros en español - Printable Version

+- BBot - The best bot of the world (https://forums.bmega.net)
+-- Forum: Support (https://forums.bmega.net/forum-6.html)
+--- Forum: Support & Help (https://forums.bmega.net/forum-8.html)
+--- Thread: macros en español (/thread-2939.html)



macros en español - megabite - 06-17-2012

aclarando de una vez este post no es mio, solo lo tome lo traduje para los hispanohablantes.

este post lo hizo hunger miembro del staff en la seccion de multileguaje.

RECARGAR.

Code:
1000 {Pot Reffil} VarSetEx(Total, POTS) VarSet(Potnow) Misc.ItemCountEx(266) VarSub(Total, !Potnow!) HUD.Display(!Total!) Self.Say(hi) Macro.Wait(2000) NPC.Say(trade) NPC.Buy(266, !Total!, 1) Macro.Wait(2000) NPC.Say(bye))

Code:
1000 {ManaPot Reffil} VarSetEx(Total, MPS) VarSet(Potnow) Misc.ItemCountEx(268) VarSub(Total, !Potnow!) HUD.Display(!Total!) Self.Say(hi) Macro.Wait(2000) NPC.Say(trade) NPC.Buy(268, !Total!, 1) Macro.Wait(2000) NPC.Say(bye))

Code:
1000 {Withdraw} VarSetEx(Total, NUMBEROFPOTS) VarSet(Potnow) Misc.ItemCountEx(266) VarSub(Total, !Potnow!) VarMult(Total, 50) HUD.Display(!Total!) Self.Say(hi) Macro.Wait(2000) NPC.Say(withdraw) Macro.Wait(2000) NPC.Say(!Total!) Macro.Wait(2000) NPC.Say(yes))

MACROS PARA WAR.

Code:
200 {PushMax EDITABLE} VarSetEx(ID, 3277) VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z  VarSub(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(X,  1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1)  Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1)  Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1)  Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1)  Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1)  Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1)  Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)

Code:
200 {PushMax} VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z  VarSub(Y, 1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(X,  1) Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1)  Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1)  Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1)  Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1)  Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1)  Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1)  Map.PickUp(3031, -1, 0, !X!, !Y!, !Z!)

Code:
200 {Anti Push} VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z  Map.HasID(3031, !X!, !Y!, !Z!)<>1 Map.Thrown(3031, 2, !X!, !Y!,  !Z!)<>1

Code:
200 {Anti Trap-Wild Insert} Tibia.KeyDown(45) HUD.Display(For change the key: http://wiki.bmega.net/doku.php?id=virtual_key_codes) VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z Map.UseOn(3308, 2130, !X!, !Y!, !Z!, 1)

CAVEBOT.

Code:
3000 {Utura} Status.Buff<>1 Self.Health%<=75 Self.Mana>75 Self.Say(utura)

Code:
2000 {Safe Spellcast} Self.Mana>=200 Self.Attacking Creatures.Beside>=3 Creatures.PlayersOnScreen=01 Self.Say(exori)

Code:
500 {Broken Furtunites} VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z Map.UseOn(WEAPON, 2524, !X!, !Y!, !Z!, 1)

Code:
1000 {Open Door} VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z Map.Use(5732, !X!, !Y!, !Z!, 3)

SOPORTE.

cambiar de arma cuando no tienes mana.
Code:
1000 {Rod in Hand} Self.Mana>=X Self.Equip.LeftHand(IDROD)
1000 {Sword in Hand} Self.Mana<X Self.Equip.LeftHand(IDSWORD)

tirar item cuando tengas poca capacidad.
Code:
10000 {Drop Itens} Misc.ItemCountEx(3578)>=1 Self.Cap<=50 VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z Map.Thrown(3031, -1, !X!, !Y!, !Z!)<>1

cambiar de arma cuando ya no tienes small stones.
Code:
2000 {Equip Stone} Misc.ItemCountEx(1781)>=1 Self.Equip.LeftHand(1781)
2000 {Equip Axe} Misc.ItemCountEx(1781)<1 Self.Equip.LeftHand(3317)

usar soft con poca mana/cambiar por boh cuando el mana este alta.
Code:
1000 {Equip Soft} Self.Mana<=100 Self.Equip.Boots(6529)
1000 {UnEquip Soft/Use BOH} Self.Mana>=500 Self.Equip.Boots(3079)

cambiar worm soft por boh.
Code:
1000 {Equip BOH} Self.Inventory.Boots=6530 Self.Equip.Boots(3079)

subir spear cuando se esten acabando.
Code:
1000 {Spear} Misc.ItemCountEx(3277)<10 Self.Equip.LeftHand(3277)



creditos a hunger miembro del staff