/q create dungeons.deepcatacombs.mirror
/q e n A strange room
/q e d There’s something off about this room, but you can’t quite put your finger on what. Actually, doing just that seems like the right idea..
/q e ToFind OnEnterRegion dungeons.deepcatabmirror
/q e OnFind DoPotionEffect blindness 1 2400
/q e OnFind DoFind dungeons.deepcatacombs.mirror.100
/q e OnFind DoFind dungeons.deepcatacombs.mirror.200
/q e OnFind DoFind dungeons.deepcatacombs.mirror.275

/q create dungeons.deepcatacombs.mirror.100
/q e v false
/q e ToAdvance OnClickBlock 35:11
/q e ToAdvance IfInRegion dungeons.deepcatamirrorzone
/q e OnComplete DoFindRandomChild dungeons.deepcatacombs.mirror.prize

/q create dungeons.deepcatacombs.mirror.200
/q e v false
/q e ToAdvance OnClickBlock 198
/q e ToAdvance IfInRegion dungeons.deepcatamirrorcure
/q e OnComplete DoCmd /effect {p} clear
/q e OnComplete DoFind +

/q create dungeons.deepcatacombs.mirror.250
/q e n Your sight returns

/q create dungeons.deepcatacombs.mirror.275
/q e v false
/q e ToAdvance OnSecond 120
/q e OnComplete DoUnfind dungeons.deepcatacombs.mirror.200

/q create dungeons.deepcatacombs.mirror.prize
/q e v false

/q create dungeons.deepcatacombs.mirror.prize.100
/q e v false
/q e OnFind DoGiveMoney 25

/q create dungeons.deepcatacombs.mirror.prize.200
/q e v false
/q e OnFind DoGiveMoney 50

/q create dungeons.deepcatacombs.mirror.prize.300
/q e v false
/q e OnFind DoGiveMoney 75

/q create dungeons.deepcatacombs.mirror.prize.400
/q e v false
/q e OnFind DoGiveMoney 100