;; eq swapper, (C)2003 Antti Pietikäinen (Heidel)

;; more or less outdated when wear replacing was introduced

;; first, the sets, editable

;; ---------- int<->dex items ----------
/set swap_int_dex=\
red bracers,\
belt of the conquered,\
despair,despair 2,\
cloak of fire,\
ring of oystria,ring of oystria 2,\
yellow boots,\
flute,flute 2,\
staff of olympus,staff of olympus 2,\
pulsing leggings,\
pendant of quickness,\
helm of the crimson plume,\
necklace of tears

/set swap_dex_int=\
armbands,\
ethereal power,\
blue bracelets,\
black cloak,\
ruby ring,grey ring,\
black boots,\
gloves,\
crown,\
wand of magic,\
moonstone leggings,\
crystal pendant,\
tiburcio's amulet


;; ---------- spr<->int items ----------
/set swap_spr_int=\
armbands,\
black cloak,\
black boots,\
gloves,\
crown,\
moonstone leggings,\
crystal pendant

/set swap_int_spr=\
red bracers,\
magic cloak,\
boots of goddess,\
red glove,red glove 2,\
bearded mask,\
leggings of sorrow,\
necro staff,\
necklace of tears

;; ---------- spr<->dex items ----------
/set swap_spr_dex=\
belt of the conquered,\
despair,despair 2,\
ring of oystria,ring of oystria 2,\
yellow boots,\
flute,flute 2,\
staff of olympus,staff of olympus 2,\
pulsing leggings,\
helm of the crimson plume,\
cloak of fire,\
pendant of quickness

/set swap_dex_spr=\
ethereal power,\
blue bracelets,\
ruby ring,grey ring,\
boots of goddess,\
red glove,red glove 2,\
necro staff,\
wand of magic,\
leggings of sorrow,\
bearded mask,\
magic cloak,\
tiburcio's amulet

;; ------ vammaviittagag --------
/def -i -F -ag -mregexp -t'^[ ]+A distant voice echoes in your head \.\.\.\.\.\.$' cloakgag =\
	/def -F -ag -n13 -t'*' cloakgaglines

/def -i -F -ag -mregexp -t'^Something whispers \.\.\.' cloakgag2 =\
	/def -F -ag -n4 -t'*' cloakgaglines2



;; second, the mechanics

;; initializer
/def -i -F -h'SEND eqset s' spr_set_worn = /send eqset s%;/set set_worn=spr

;; requires f[n] keys loaded&defined, and overrides the 10-12
;/edit keyf10=/swap_to_spr
;/edit keyf11=/swap_to_int
;/edit keyf12=/swap_to_dex

;; the swaps commands
/def -i swap_to_spr=\
/if (set_worn=~"spr")\
	/echo -aB % SPR already worn?%;\
/endif%;\
/if (set_worn=~"int")\
	/send remove %{swap_spr_int}%;\
	/send remove staff of lerethin%;\
	/send wear %{swap_int_spr}%;\
	/set set_worn=spr%;\
/endif%;\
/if (set_worn=~"dex")\
	/send remove %{swap_spr_dex}%;\
	/send wear %{swap_dex_spr}%;\
	/set set_worn=spr%;\
/endif

/def -i swap_to_int=\
/if (set_worn=~"int")\
	/echo -aB % INT already worn?%;\
/endif%;\
/if (set_worn=~"spr")\
	/send remove %{swap_int_spr}%;\
	/send wear %{swap_spr_int}%;\
	/send wield staff of lerethin%;\
	/set set_worn=int%;\
/endif%;\
/if (set_worn=~"dex")\
	/send remove %{swap_int_dex}%;\
	/send wear %{swap_dex_int}%;\
	/send wield staff of lerethin%;\
	/set set_worn=int%;\
/endif

/def -i swap_to_dex=\
/if (set_worn=~"dex")\
	/echo -aB % DEX already worn?%;\
/endif%;\
/if (set_worn=~"int")\
	/send remove %{swap_dex_int}%;\
	/send remove staff of lerethin%;\
	/send wear %{swap_int_dex}%;\
	/set set_worn=dex%;\
/endif%;\
/if (set_worn=~"spr")\
	/send remove %{swap_dex_spr}%;\
	/send wear %{swap_spr_dex}%;\
	/set set_worn=dex%;\
/endif

;; summary of sets

;; 		SPR				INT				DEX
;; ------------------------------------------------------------------------------
;; amulet: tiburcio amulet
;; arm 1 : wristbands         -> armbands			-> wristbands
;; arm 2 : -"-			-> -"-			-> -"-
;; belt  : ethereal power     -> 				-> feral power
;; brac 1: bracelets          -> bracelets		-> despair
;; brac 2: -"-                -> -"-			-> despair
;; cloak : magic cloak        -> black cloak		-> magic cloak
;; fngr 1: ruby ring          -> ruby ring	   	-> ring of oystria
;; fngr 2: grey ring          -> grey ring 		-> ring of oystria
;; foot 1: radium boots       -> sapphire boots   	-> yellow boots
;; foot 2: -"-			-> -"-			-> -"-
;; hand 1: red glove          -> gloves	      	-> flute
;; hand 2: red glove          -> -"-               	-> flute
;; head  : glasses            -> crown			-> glasses
;; held 1: necro staff        -> necro staff		-> olympus staff
;; held 2: wand of magic      -> wand of magic	-> olympus staff
;; leg  1: dirty leggings     -> kilt			-> dirty leggings
;; leg  2: -"-			-> -"-			-> -"-
;; neck  : crystal pendant
;; torso : leather shirt