as some cash item like storage box and this will help
and also i have deleted sendStart and getStart as storageAuto and getAuto should be always happened when storage is opened
Also i have added to check $storage{opened} instead of the previous condition to gain advantage on using storage box but not closing it to get/put while OK is attacking or routing or something in that map.
I put in pastebin to have the perl syntax when viewing it
http://pastebin.com/0EQARPqe
**a mistake there: missing a closing bracket
** added delete $storage{opened}; into sub initMapChangeVars
