/*
 To begin, type in the console:
 
 include dump_toilets
 enableevent all
 
 Open your map, and from 2D mode press CTRL+D.
 With pk_quickmapcycling enabled, Ctrl-(LShift-)X loads the next (previous) map in a directory.

 The results will be printed in mapster32.log.
*/

include names.h

definequote 0
definequote 1
definequote 2 %ld,%ld,%ld,%ld,%ld,%ld

definequote 100 Dumping toilets...
definequote 101 Format: picnum,id,x,y,z,ang
definequote 102 Toilet dump finished.

gamevar variable 0 0
gamevar flag 0 0
gamevar input 0 0

// these long "ife" list exists because switch/case is broken

defstate toilet_identify
    ife input TOILET set flag 1
    ife input STALL set flag 1
ends

defstate toilet_search
    quote 100
    quote 101

    for variable allsprites
    {
        set flag 0
        set input .picnum
        state toilet_identify
        ife flag 1
            {
                qsprintf 0 2 .picnum I .x .y .z .ang
                quote 0
            }
    }

    quote 102
ends

onevent EVENT_KEYS2D
    ifeitherctrl
        ifhitkey KEY_D state toilet_search
endevent