/*
 To begin, type in the console:
 
 include dump_pickups
 enableevent all
 
 Open your map, then change to 3D mode and back to 2D mode.
 The script will run before entering 3D mode, so once you return back to 2D mode you will know that the job has been completed.
 Repeat for all maps being processed.

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

include DEFS.CON

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

definequote 100 Dumping pickups...
definequote 101 Format: picnum,id,x,y,z,ang
definequote 102 Pickup 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 pickup_identify
    ife input AMMO set flag 1
    ife input SHOTGUNAMMO set flag 1
    ife input BATTERYAMMO set flag 1
    ife input RPGAMMO set flag 1
    ife input HEAVYHBOMB set flag 1
    ife input FREEZEAMMO set flag 1
    ife input GROWAMMO set flag 1
    ife input CRYSTALAMMO set flag 1
    ife input DEVISTATORAMMO set flag 1
    ife input HBOMBAMMO set flag 1
    ife input COLA set flag 1
    ife input SIXPAK set flag 1
    ife input FIRSTAID set flag 1
    ife input SHIELD set flag 1
    ife input STEROIDS set flag 1
    ife input AIRTANK set flag 1
    ife input JETPACK set flag 1
    ife input HEATSENSOR set flag 1
    ife input ACCESSCARD set flag 1
    ife input BOOTS set flag 1
    ife input ATOMICHEALTH set flag 1
    ife input HOLODUKE set flag 1
    ife input FIRSTGUNSPRITE set flag 1
    ife input CHAINGUNSPRITE set flag 1
    ife input RPGSPRITE set flag 1
    ife input FREEZESPRITE set flag 1
    ife input SHRINKERSPRITE set flag 1
    ife input TRIPBOMBSPRITE set flag 1
    ife input SHOTGUNSPRITE set flag 1
    ife input DEVISTATORSPRITE set flag 1
    ife input GROWSPRITEICON set flag 1
    ife input 58 set flag 1 // space suit
ends

onevent EVENT_ENTER3DMODE

    quote 100
    quote 101

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

    quote 102

endevent