Subversion Repositories vaca_plus

Rev

Rev 20 | Blame | Compare with Previous | Last modification | View Log | RSS feed

/*
 VERY IMPORTANT!
 This file is designed to convert any user maps you have made to combatibility with Vaca+
 This will move the numbers of certain sounds and change the tile numbers of certain sprites.
 
 It has already been run on the maps included with Vaca+ (Life's a Beach, Dukematch, Shark's Cove, Zoo).
 
 To use, open the console in Mapster32 and type:
 include vfix
 enableevent all
 
 Then change to 3D mode and back to 2D mode.  Wait for about five seconds for the script to run through all the sprites and sectors.
 Save your map.  Open your next map, switch to 3D mode, etc.  Repeat.  You do not have to type the commands again.
  
 Not following these directions will fuck up your maps.
 
 ALWAYS MAKE BACKUPS OF YOUR MAPS!
*/

include DEFS.CON
include VacaDefs.con

gamevar i 0 0
gamevar j 0 0
gamevar k 0 0

onevent EVENT_DRAW2DSCREEN
// Fixing sounds.

        for i allsprites, ifactor MUSICANDSFX
        {
                 switch .lotag

// fixing ambient sounds
                        case 91
                        case 308
                        case 501
                                set .lotag 944
                                break

                        case 95 set .lotag 950 break
                        case 180 set .lotag 951 break
                        case 181 set .lotag 952 break
                        case 187 set .lotag 953 break
                        case 188 set .lotag 954 break
                        case 189 set .lotag 955 break
                        case 190 set .lotag 956 break
                        case 192 set .lotag 957 break
                        case 193 set .lotag 958 break
                        case 281 set .lotag 959 break
                        
                        case 309 set .lotag 900 break
                        case 310 set .lotag 901 break
                        case 311 set .lotag 902 break
                        case 312 set .lotag 903 break
                        case 313 set .lotag 904 break
                        case 314 set .lotag 905 break
                        case 315 set .lotag 906 break
                        case 316 set .lotag 907 break
                        case 317 set .lotag 908 break
                        case 318 set .lotag 909 break
                        case 319 set .lotag 910 break
                        case 320 set .lotag 911 break
                        case 321 set .lotag 912 break
                        case 322 set .lotag 913 break
                        case 323 set .lotag 914 break
                        case 324 set .lotag 915 break
                        case 325 set .lotag 916 break
                        case 326 set .lotag 917 break
                        case 327 set .lotag 918 break
                        case 343 set .lotag 919 break
                        case 344 set .lotag 920 break
                        case 347 set .lotag 921 break
                        case 417 set .lotag 922 break
                        case 418 set .lotag 923 break
                        case 419 set .lotag 924 break
                        case 420 set .lotag 925 break
                        case 421 set .lotag 926 break
                        case 422 set .lotag 927 break
                        case 423 set .lotag 928 break
                        case 424 set .lotag 929 break
                        case 425 set .lotag 930 break
                        case 432 set .lotag 931 break
                        case 433 set .lotag 932 break
                        case 434 set .lotag 933 break
                        case 435 set .lotag 934 break
                        case 426 set .lotag 935 break
                        case 427 set .lotag 936 break
                        case 428 set .lotag 937 break
                        case 429 set .lotag 938 break
                        case 430 set .lotag 939 break
                        case 431 set .lotag 940 break
                        case 436 set .lotag 941 break
                        case 437 set .lotag 942 break
                        case 438 set .lotag 943 break
                        
                endswitch

// fixing triggered sounds (e.g. elevators)
                sectgetlotag
                ifvarn LOTAG 0
                {
                        switch .hitag
                                case 95 set .hitag 950 break
                                case 180 set .hitag 951 break
                                case 181 set .hitag 952 break
                                case 187 set .hitag 953 break
                                case 188 set .hitag 954 break
                                case 189 set .hitag 955 break
                                case 190 set .hitag 956 break
                                case 192 set .hitag 957 break
                                case 193 set .hitag 958 break
                                case 281 set .hitag 959 break
                                
                                case 309 set .hitag 900 break
                                case 310 set .hitag 901 break
                                case 311 set .hitag 902 break
                                case 312 set .hitag 903 break
                                case 313 set .hitag 904 break
                                case 314 set .hitag 905 break
                                case 315 set .hitag 906 break
                                case 316 set .hitag 907 break
                                case 317 set .hitag 908 break
                                case 318 set .hitag 909 break
                                case 319 set .hitag 910 break
                                case 320 set .hitag 911 break
                                case 321 set .hitag 912 break
                                case 322 set .hitag 913 break
                                case 323 set .hitag 914 break
                                case 324 set .hitag 915 break
                                case 325 set .hitag 916 break
                                case 326 set .hitag 917 break
                                case 327 set .hitag 918 break
                                case 343 set .hitag 919 break
                                case 344 set .hitag 920 break
                                case 347 set .hitag 921 break
                                case 417 set .hitag 922 break
                                case 418 set .hitag 923 break
                                case 419 set .hitag 924 break
                                case 420 set .hitag 925 break
                                case 421 set .hitag 926 break
                                case 422 set .hitag 927 break
                                case 423 set .hitag 928 break
                                case 424 set .hitag 929 break
                                case 425 set .hitag 930 break
                                case 432 set .hitag 931 break
                                case 433 set .hitag 932 break
                                case 434 set .hitag 933 break
                                case 435 set .hitag 934 break
                                case 426 set .hitag 935 break
                                case 427 set .hitag 936 break
                                case 428 set .hitag 937 break
                                case 429 set .hitag 938 break
                                case 430 set .hitag 939 break
                                case 431 set .hitag 940 break
                                case 436 set .hitag 941 break
                                case 437 set .hitag 942 break
                                case 438 set .hitag 943 break
                        endswitch
                }
        }
// fixing one-time sector sounds
        for k allsectors
        {
                switch sector[k].lotag

                        case 10091
                        case 10308
                                set sector[k].lotag 10944
                                break
                        
                        case 10095 set sector[k].lotag 10950 break
                        case 10180 set sector[k].lotag 10951 break
                        case 10181 set sector[k].lotag 10952 break
                        case 10187 set sector[k].lotag 10953 break
                        case 10188 set sector[k].lotag 10954 break
                        case 10189 set sector[k].lotag 10955 break
                        case 10190 set sector[k].lotag 10956 break
                        case 10192 set sector[k].lotag 10957 break
                        case 10193 set sector[k].lotag 10958 break
                        case 10281 set sector[k].lotag 10959 break
                        
                        case 10309 set sector[k].lotag 10900 break
                        case 10310 set sector[k].lotag 10901 break
                        case 10311 set sector[k].lotag 10902 break
                        case 10312 set sector[k].lotag 10903 break
                        case 10313 set sector[k].lotag 10904 break
                        case 10314 set sector[k].lotag 10905 break
                        case 10315 set sector[k].lotag 10906 break
                        case 10316 set sector[k].lotag 10907 break
                        case 10317 set sector[k].lotag 10908 break
                        case 10318 set sector[k].lotag 10909 break
                        case 10319 set sector[k].lotag 10910 break
                        case 10320 set sector[k].lotag 10911 break
                        case 10321 set sector[k].lotag 10912 break
                        case 10322 set sector[k].lotag 10913 break
                        case 10323 set sector[k].lotag 10914 break
                        case 10324 set sector[k].lotag 10915 break
                        case 10325 set sector[k].lotag 10916 break
                        case 10326 set sector[k].lotag 10917 break
                        case 10327 set sector[k].lotag 10918 break
                        case 10343 set sector[k].lotag 10919 break
                        case 10344 set sector[k].lotag 10920 break
                        case 10347 set sector[k].lotag 10921 break
                        case 10417 set sector[k].lotag 10922 break
                        case 10418 set sector[k].lotag 10923 break
                        case 10419 set sector[k].lotag 10924 break
                        case 10420 set sector[k].lotag 10925 break
                        case 10421 set sector[k].lotag 10926 break
                        case 10422 set sector[k].lotag 10927 break
                        case 10423 set sector[k].lotag 10928 break
                        case 10424 set sector[k].lotag 10929 break
                        case 10425 set sector[k].lotag 10930 break
                        case 10432 set sector[k].lotag 10931 break
                        case 10433 set sector[k].lotag 10932 break
                        case 10434 set sector[k].lotag 10933 break
                        case 10435 set sector[k].lotag 10934 break
                        case 10426 set sector[k].lotag 10935 break
                        case 10427 set sector[k].lotag 10936 break
                        case 10428 set sector[k].lotag 10937 break
                        case 10429 set sector[k].lotag 10938 break
                        case 10430 set sector[k].lotag 10939 break
                        case 10431 set sector[k].lotag 10940 break
                        case 10436 set sector[k].lotag 10941 break
                        case 10437 set sector[k].lotag 10942 break
                        case 10438 set sector[k].lotag 10943 break
                        
                endswitch

// regain Atomic hitscan wall functionality, sacrificing v1.3D compatibility:
                switch sector[k].floorpicnum
                        case 3737 set sector[k].floorpicnum 4180 break
                        case 3738 set sector[k].floorpicnum 4181 break
                        case 3739 set sector[k].floorpicnum 4182 break
                        case 3740 set sector[k].floorpicnum 4183 break
                        case 3741 set sector[k].floorpicnum 4184 break
                        case 3742 set sector[k].floorpicnum 4185 break
                        case 3743 set sector[k].floorpicnum 4186 break
                        case 3744 set sector[k].floorpicnum 4187 break
                        case 3745 set sector[k].floorpicnum 4188 break
                        case 3746 set sector[k].floorpicnum 4189 break
                        case 3747 set sector[k].floorpicnum 4191 break
                        case 3748 set sector[k].floorpicnum 4192 break
                        case 3749 set sector[k].floorpicnum 4193 break
                        case 3750 set sector[k].floorpicnum 4194 break
                        case 3751 set sector[k].floorpicnum 4195 break
                        case 3752 set sector[k].floorpicnum 4196 break
                        case 3753 set sector[k].floorpicnum 4197 break
                        case 3754 set sector[k].floorpicnum 4198 break
                        case 3755 set sector[k].floorpicnum 4199 break
                endswitch

                switch sector[k].ceilingpicnum
                        case 3737 set sector[k].ceilingpicnum 4180 break
                        case 3738 set sector[k].ceilingpicnum 4181 break
                        case 3739 set sector[k].ceilingpicnum 4182 break
                        case 3740 set sector[k].ceilingpicnum 4183 break
                        case 3741 set sector[k].ceilingpicnum 4184 break
                        case 3742 set sector[k].ceilingpicnum 4185 break
                        case 3743 set sector[k].ceilingpicnum 4186 break
                        case 3744 set sector[k].ceilingpicnum 4187 break
                        case 3745 set sector[k].ceilingpicnum 4188 break
                        case 3746 set sector[k].ceilingpicnum 4189 break
                        case 3747 set sector[k].ceilingpicnum 4191 break
                        case 3748 set sector[k].ceilingpicnum 4192 break
                        case 3749 set sector[k].ceilingpicnum 4193 break
                        case 3750 set sector[k].ceilingpicnum 4194 break
                        case 3751 set sector[k].ceilingpicnum 4195 break
                        case 3752 set sector[k].ceilingpicnum 4196 break
                        case 3753 set sector[k].ceilingpicnum 4197 break
                        case 3754 set sector[k].ceilingpicnum 4198 break
                        case 3755 set sector[k].ceilingpicnum 4199 break
                endswitch
        }
        for k allwalls
        {
                switch wall[k].picnum
                        case 3737 set wall[k].picnum 4180 break
                        case 3738 set wall[k].picnum 4181 break
                        case 3739 set wall[k].picnum 4182 break
                        case 3740 set wall[k].picnum 4183 break
                        case 3741 set wall[k].picnum 4184 break
                        case 3742 set wall[k].picnum 4185 break
                        case 3743 set wall[k].picnum 4186 break
                        case 3744 set wall[k].picnum 4187 break
                        case 3745 set wall[k].picnum 4188 break
                        case 3746 set wall[k].picnum 4189 break
                        case 3747 set wall[k].picnum 4191 break
                        case 3748 set wall[k].picnum 4192 break
                        case 3749 set wall[k].picnum 4193 break
                        case 3750 set wall[k].picnum 4194 break
                        case 3751 set wall[k].picnum 4195 break
                        case 3752 set wall[k].picnum 4196 break
                        case 3753 set wall[k].picnum 4197 break
                        case 3754 set wall[k].picnum 4198 break
                        case 3755 set wall[k].picnum 4199 break
                endswitch
                switch wall[k].overpicnum
                        case 3737 set wall[k].overpicnum 4180 break
                        case 3738 set wall[k].overpicnum 4181 break
                        case 3739 set wall[k].overpicnum 4182 break
                        case 3740 set wall[k].overpicnum 4183 break
                        case 3741 set wall[k].overpicnum 4184 break
                        case 3742 set wall[k].overpicnum 4185 break
                        case 3743 set wall[k].overpicnum 4186 break
                        case 3744 set wall[k].overpicnum 4187 break
                        case 3745 set wall[k].overpicnum 4188 break
                        case 3746 set wall[k].overpicnum 4189 break
                        case 3747 set wall[k].overpicnum 4191 break
                        case 3748 set wall[k].overpicnum 4192 break
                        case 3749 set wall[k].overpicnum 4193 break
                        case 3750 set wall[k].overpicnum 4194 break
                        case 3751 set wall[k].overpicnum 4195 break
                        case 3752 set wall[k].overpicnum 4196 break
                        case 3753 set wall[k].overpicnum 4197 break
                        case 3754 set wall[k].overpicnum 4198 break
                        case 3755 set wall[k].overpicnum 4199 break
                endswitch
        }

// Fixing actors.

// fixing actors already in the map
        for j allsprites
        {
                switch .picnum
                        
                        case 1312 set .picnum 3650 break
                        case 2120 set .picnum 3585 break
                        case 2150 set .picnum 3646 break
                        case 2165 set .picnum 3670 break
                        case 3400 set .picnum 3660 break

                endswitch
        }
// fixing actors which spawn on triggers
        for i allsprites, ifactor RESPAWN
        {
                switch .hitag
                        
                        case 1312 set .hitag 3650 addlogvar .x addlogvar .y break
                        case 2120 set .hitag 3585 addlogvar .x addlogvar .y break
                        case 2150 set .hitag 3646 addlogvar .x addlogvar .y break
                        case 2165 set .hitag 3670 addlogvar .x addlogvar .y break
                        case 3400 set .hitag 3660 addlogvar .x addlogvar .y break
                        
                endswitch
        }
endevent