troop_loot_troop = 1539 # (troop_loot_troop,<кому>,<от кого>,<вероятность>),
val_add = 2105 #dest, operand :: dest = dest + operand
# (val_add,<destination>,<value>),
val_sub = 2106 #dest, operand :: dest = dest - operand
# (val_sub,<destination>,<value>),
val_mul = 2107 #dest, operand :: dest = dest * operand
# (val_mul,<destination>,<value>),
val_div = 2108 #dest, operand :: dest = dest / operand
# (val_div,<destination>,<value>),
val_mod = 2109 #dest, operand :: dest = dest mod operand
# (val_mod,<destination>,<value>),
store_add = 2120 #dest, op1, op2 : dest = op1 + op2
# (store_add,<destination>,<value>,<value>),
store_sub = 2121 #dest, op1, op2 : dest = op1 - op2
# (store_sub,<destination>,<value>,<value>),
store_mul = 2122 #dest, op1, op2 : dest = op1 * op2
# (store_mul,<destination>,<value>,<value>),
store_div = 2123 #dest, op1, op2 : dest = op1 / op2
# (store_div,<destination>,<value>,<value>),
Это уж как хотите (операция которую я указал умножает, а другая делит).