Transmutation Alias

NAME -- Make Minerals Alias            --- The Screenshot of this Alias is - http://snag.gy/HlyZi.jpg
PATTERN -- ^make (\d+) (\w+)$



-------------------------IRON

if matches[3] == "iron" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "iron" then
   matches[2] = matches[2] / 2

end
if matches[3] == "iron" then
  send ("outr "..matches[2].." salt")
  send ("synthesize iron")

end


-------------------------LEAD

if matches[3] == "lead" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "lead" then
   matches[2] = matches[2] / 2

end
if matches[3] == "lead" then
  send ("outr "..matches[2].." salt")
  send ("synthesize lead")

end


-------------------------TIN

if matches[3] == "tin" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "tin" then
   matches[2] = matches[2] / 2

end
if matches[3] == "tin" then
  send ("outr "..matches[2].." sulphur")
  send ("synthesize tin")

end

-------------------------COPPER

if matches[3] == "copper" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "copper" then
   matches[2] = matches[2] / 2

end
if matches[3] == "copper" then
  send ("outr "..matches[2].." sulphur")
  send ("synthesize copper")

end

-------------------------GOLD

if matches[3] == "gold" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "gold" then
   matches[2] = matches[2] / 2

end
if matches[3] == "gold" then
  send ("outr "..matches[2].." mercury")
  send ("synthesize gold")

end

-------------------------SILVER

if matches[3] == "silver" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "silver" then
   matches[2] = matches[2] / 2

end
if matches[3] == "silver" then
  send ("outr "..matches[2].." mercury")
  send ("synthesize silver")

end



-------------------------POTASH1

if matches[3] == "potash" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "potash" then
   matches[2] = matches[2] / 5

end
if matches[3] == "potash" then
  send ("outr "..matches[2].." silver")
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." gold")
  send ("transmutate potash")

end

--------------------------CINNABAR2

if matches[3] == "cinnabar" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "cinnabar" then
   matches[2] = matches[2] / 5 * 2

end
if matches[3] == "cinnabar" then
  send ("outr "..matches[2].." mercury")
  send ("outr "..matches[2].." sulphur")
  send ("transmutate cinnabar")

end


--------------------------AURUM3

if matches[3] == "aurum" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "aurum" then
   matches[2] = matches[2] / 5

end
if matches[3] == "aurum" then
  send ("outr "..matches[2].." gold")
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." gold")
  send ("transmutate aurum")

end

--------------------------  QUICKSILVER4

if matches[3] == "quicksilver" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "quicksilver" then
   matches[2] = matches[2] / 5

end
if matches[3] == "quicksilver" then
  send ("outr "..matches[2].." mercury")
  send ("outr "..matches[2].." silver")
  send ("outr "..matches[2].." mercury")
  send ("transmutate quicksilver")

end


--------------------------  GYPSUM5

if matches[3] == "gypsum" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "gypsum" then
   matches[2] = matches[2] / 5

end
if matches[3] == "gypsum" then
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." silver")
  send ("outr "..matches[2].." iron")
  send ("transmutate gypsum")

end


--------------------------  QUARTZ6

if matches[3] == "quartz" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "quartz" then
   matches[2] = matches[2] / 5

end
if matches[3] == "quartz" then
  send ("outr "..matches[2].." salt")
  send ("outr "..matches[2].." tin")
  send ("outr "..matches[2].." gold")
  send ("transmutate quartz")

end


--------------------------  FERRUM7

if matches[3] == "ferrum" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "ferrum" then
   matches[2] = matches[2] / 5

end
if matches[3] == "ferrum" then
  send ("outr "..matches[2].." iron")
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." iron")
  send ("transmutate ferrum")

end


--------------------------  Calamine8

if matches[3] == "calamine" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "calamine" then
   matches[2] = matches[2] / 5

end
if matches[3] == "calamine" then
  send ("outr "..matches[2].." iron")
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." gold")
  send ("transmutate calamine")

end


--------------------------  Arsenic9

if matches[3] == "arsenic" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "arsenic" then
   matches[2] = matches[2] / 5

end
if matches[3] == "arsenic" then
  send ("outr "..matches[2].." iron")
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." gold")
  send ("transmutate arsenic")

end

--------------------------  Stannum10

if matches[3] == "stannum" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "stannum" then
   matches[2] = matches[2] / 5

end
if matches[3] == "stannum" then
  send ("outr "..matches[2].." tin")
  send ("outr "..matches[2].." salt")
  send ("outr "..matches[2].." tin")
  send ("transmutate stannum")

end


--------------------------  Plumbum11

if matches[3] == "plumbum" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "plumbum" then
   matches[2] = matches[2] / 5

end
if matches[3] == "plumbum" then
  send ("outr "..matches[2].." lead ")
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." lead")
  send ("transmutate plumbum")

end


--------------------------  Argentum12

if matches[3] == "argentum" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "argentum" then
   matches[2] = matches[2] / 5

end
if matches[3] == "argentum" then
  send ("outr "..matches[2].." silver ")
  send ("outr "..matches[2].." salt")
  send ("outr "..matches[2].." silver")
  send ("transmutate argentum")

end


--------------------------  Azurite13

if matches[3] == "azurite" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "azurite" then
   matches[2] = matches[2] / 5

end
if matches[3] == "azurite" then
  send ("outr "..matches[2].." copper ")
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." copper")
  send ("transmutate azurite")

end


--------------------------  Calcite14

if matches[3] == "calcite" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "calcite" then
   matches[2] = matches[2] / 5

end
if matches[3] == "calcite" then
  send ("outr "..matches[2].." iron ")
  send ("outr "..matches[2].." salt")
  send ("outr "..matches[2].." copper")
  send ("transmutate calcite")

end


--------------------------  Dolomite15

if matches[3] == "dolomite" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "dolomite" then
   matches[2] = matches[2] / 5

end
if matches[3] == "dolomite" then
  send ("outr "..matches[2].." iron ")
  send ("outr "..matches[2].." salt")
  send ("outr "..matches[2].." lead")
  send ("transmutate dolomite")

end


--------------------------  Antimony16

if matches[3] == "antimony" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "antimony" then
   matches[2] = matches[2] / 5

end
if matches[3] == "antimony" then
  send ("outr "..matches[2].." lead ")
  send ("outr "..matches[2].." salt")
  send ("outr "..matches[2].." silver")
  send ("transmutate antimony")

end


--------------------------  Cuprum17
if matches[3] == "cuprum" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "cuprum" then
   matches[2] = matches[2] / 5

end
if matches[3] == "cuprum" then
  send ("outr "..matches[2].." copper")
  send ("outr "..matches[2].." salt")
  send ("outr "..matches[2].." copper")
  send ("transmutate cuprum")

end


--------------------------  Bisemutum18
if matches[3] == "bisemutum" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "bisemutum" then
   matches[2] = matches[2] / 5

end
if matches[3] == "bisemutum" then
  send ("outr "..matches[2].." iron")
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." tin")
  send ("transmutate bisemutum")

end


--------------------------  Malachite19
if matches[3] == "malachite" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "malachite" then
   matches[2] = matches[2] / 5

end
if matches[3] == "malachite" then
  send ("outr "..matches[2].." salt")
  send ("outr "..matches[2].." copper")
  send ("outr "..matches[2].." salt")
  send ("outr "..matches[2].." copper")
  send ("transmutate malachite")

end

--------------------------  Realgar20
if matches[3] == "realgar" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "realgar" then
   matches[2] = matches[2] / 5

end
if matches[3] == "realgar" then
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." tin")
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." tin")
  send ("transmutate realgar")

end

--------------------------  Magnesium21
if matches[3] == "magnesium" then
  enableTrigger("t"..matches[3])

end
if matches[3] == "magnesium" then
   matches[2] = matches[2] / 5

end
if matches[3] == "magnesium" then
  send ("outr "..matches[2].." sulphur")
  send ("outr "..matches[2].." tin")
  send ("outr "..matches[2].." silver")
  send ("transmutate magnesium")

end