-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathvs.hsp
30640 lines (30621 loc) · 835 KB
/
vs.hsp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
#pack "keydef_eng.d"
#pack "keydef_jpn.d"
#epack "vsbutton.bmp"
#packopt name "vocalshifter"
#packopt icon "vocalshifter.ico"
#include "hsp3utf.as"
// #include "vsaudio.as"
// #include "vsconfig.as"
// #include "vscore.as"
// #include "vsedit.as"
// #include "vsgui.as"
// #include "vsmidi.as"
// #include "vsproject.as"
// #include "vsutil.as"
// #include "vsvst.as"
#uselib "kernel32.dll"
#func LoadLibraryA "LoadLibraryA" str
#func GetProcAddress "GetProcAddress" int, sptr
#func FreeLibrary "FreeLibrary" int
#func lstrlenA "lstrlenA" sptr
#func CreateMutexA "CreateMutexA" int, int, int
#func ReleaseMutex "ReleaseMutex" int
#func CloseHandle "CloseHandle" int
#cfunc GetLastError "GetLastError"
#func GetTempPathA "GetTempPathA" int, var
#cfunc GetTickCount "GetTickCount"
#func CopyFileA "CopyFileA" sptr, sptr, int
#cfunc CreateProcessA "CreateProcessA" int, sptr, int, int, int, int, int, int, var, var
#cfunc WaitForSingleObject "WaitForSingleObject" int, int
#cfunc GetEnvironmentVariableA "GetEnvironmentVariableA" var, var, int
#cfunc CreatePipe "CreatePipe" var, var, var, int
#cfunc PeekNamedPipe "PeekNamedPipe" int, int, int, int, int, int
#cfunc ReadFile "ReadFile" int, var, int, var, int
#cfunc GetCurrentProcessId "GetCurrentProcessId"
#func GetFileTime "GetFileTime" int, int, int, int
#func FileTimeToLocalFileTime "FileTimeToLocalFileTime" int, int
#func FileTimeToSystemTime "FileTimeToSystemTime" int, int
#cfunc CreateFileMappingA "CreateFileMappingA" int, int, int, int, int, sptr
#cfunc MapViewOfFile "MapViewOfFile" int, int, int, int, int
#func UnmapViewOfFile "UnmapViewOfFile" int
#uselib "vslib.dll"
#cfunc GetLibVersion "_GetLibVersion@0"
#cfunc CheckVsCode "_CheckVsCode@16" int, int, int, int
#func CreateProject "_CreateProject@4" var
#func OpenProject "_OpenProject@8" var, sptr
#func OpenProjectEx "_OpenProjectEx@16" var, sptr, var, int
#func func_2 "_SaveProject@8" int, sptr
#func DeleteProject "_DeleteProject@4" int
#cfunc GetPrjSampFreq "_GetPrjSampFreq@4" int
#func SetPrjSampFreq "_SetPrjSampFreq@8" int, int
#func GetPrjExpFormat "_GetPrjExpFormat@16" int, var, var, var
#func SetPrjExpFormat "_SetPrjExpFormat@16" int, int, int, int
#func GetPrjMasterVolume "_GetPrjMasterVolume@8" int, var
#func SetPrjMasterVolume "_SetPrjMasterVolume@12" int, double
#cfunc GetPrjMeasure "_GetPrjMeasure@4" int
#func SetPrjMeasure "_SetPrjMeasure@8" int, int
#cfunc GetPrjMeasBase "_GetPrjMeasBase@4" int
#func SetPrjMeasBase "_SetPrjMeasBase@8" int, int
#func GetPrjTempo "_GetPrjTempo@8" int, var
#func SetPrjTempo "_SetPrjTempo@12" int, double
#cfunc GetPrjSaveOption "_GetPrjSaveOption@4" int
#func SetPrjSaveOption "_SetPrjSaveOption@8" int, int
#cfunc GetTrackNum "_GetTrackNum@4" int
#func func_3 "_AddTrack@4" int
#func func_4 "_CopyTrack@16" int, var, int, int
#func func_5 "_UpTrack@8" int, int
#func func_6 "_DownTrack@8" int, int
#func func_7 "_DeleteTrack@8" int, int
#func GetTrackVolume "_GetTrackVolume@12" int, int, var
#func SetTrackVolume "_SetTrackVolume@16" int, int, double
#func GetTrackPan "_GetTrackPan@12" int, int, var
#func SetTrackPan "_SetTrackPan@16" int, int, double
#cfunc GetTrackInvertFlg "_GetTrackInvertFlg@8" int, int
#func SetTrackInvertFlg "_SetTrackInvertFlg@12" int, int, int
#cfunc GetTrackMuteFlg "_GetTrackMuteFlg@8" int, int
#func SetTrackMuteFlg "_SetTrackMuteFlg@12" int, int, int
#cfunc GetTrackSoloFlg "_GetTrackSoloFlg@8" int, int
#func SetTrackSoloFlg "_SetTrackSoloFlg@12" int, int, int
#func GetTrackName "_GetTrackName@12" int, int, var
#func SetTrackName "_SetTrackName@12" int, int, sptr
#cfunc GetTrackColor "_GetTrackColor@8" int, int
#func SetTrackColor "_SetTrackColor@12" int, int, int
#cfunc func_8 "_GetTrackSelFlg@8" int, int
#func func_9 "_SetTrackSelFlg@12" int, int, int
#cfunc GetTrackMorphingGroup "_GetTrackMorphingGroup@8" int, int
#func SetTrackMorphingGroup "_SetTrackMorphingGroup@12" int, int, int
#cfunc GetTrackOption "_GetTrackOption@8" int, int
#func func_10 "_SetTrackOption@12" int, int, int
#cfunc GetPrjItemNum "_GetPrjItemNum@4" int
#func AddPrjItem "_AddPrjItem@12" int, sptr, var
#func CopyPrjItem "_CopyPrjItem@16" int, var, int, int
#func DeletePrjItem "_DeletePrjItem@8" int, int
#cfunc GetPrjItem "_GetPrjItem@8" int, int
#cfunc GetPrjItemTrackNum "_GetPrjItemTrackNum@8" int, int
#func SetPrjItemTrackNum "_SetPrjItemTrackNum@12" int, int, int
#func GetPrjItemOffset "_GetPrjItemOffset@12" int, int, var
#func SetPrjItemOffset "_SetPrjItemOffset@16" int, int, double
#cfunc GetPrjItemOffsetAdd "_GetPrjItemOffsetAdd@8" int, int
#func SetPrjItemOffsetAdd "_SetPrjItemOffsetAdd@12" int, int, int
#cfunc GetPrjItemSelFlg "_GetPrjItemSelFlg@8" int, int
#func SetPrjItemSelFlg "_SetPrjItemSelFlg@12" int, int, int
#cfunc GetPrjItemId "_GetPrjItemId@8" int, int
#cfunc GetItemNumId "_GetItemNumId@8" int, int
#func GetPrjItemFreqA4 "_GetPrjItemFreqA4@12" int, int, var
#func SetPrjItemFreqA4 "_SetPrjItemFreqA4@16" int, int, double
#cfunc GetPrjItemKey "_GetPrjItemKey@8" int, int
#func SetPrjItemKey "_SetPrjItemKey@12" int, int, int
#cfunc GetPrjItemKeyType "_GetPrjItemKeyType@8" int, int
#func SetPrjItemKeyType "_SetPrjItemKeyType@12" int, int, int
#cfunc GetPrjItemOption "_GetPrjItemOption@8" int, int
#func SetPrjItemOption "_SetPrjItemOption@12" int, int, int
#cfunc GetPrjItemTune "_GetPrjItemTune@8" int, int
#func SetPrjItemTune "_SetPrjItemTune@12" int, int, int
#func GetPrjItemBaseFreq "_GetPrjItemBaseFreq@20" int, int, var, var, var
#func SetPrjItemBaseFreq "_SetPrjItemBaseFreq@24" int, int, int, int, double
#func GetPrjItemMeasOffset "_GetPrjItemMeasOffset@12" int, int, var
#func SetPrjItemMeasOffset "_SetPrjItemMeasOffset@16" int, int, double
#func GetPrjItemUserTune "_GetPrjItemUserTune@12" int, int, var
#func SetPrjItemUserTune "_SetPrjItemUserTune@12" int, int, var
#func AddPrjItemInit "_AddPrjItemInit@16" int, sptr, var, var
#func AddPrjItemAnalyze "_AddPrjItemAnalyze@8" int, var
#func AddPrjItemTerm "_AddPrjItemTerm@8" int, var
#func SetAnalyzeInfo "_SetAnalyzeInfo@20" var, int, int, int, int
#func GetAnalyzeProgress "_GetAnalyzeProgress@12" var, var, var
#func CopyPrjItemEditPrm "_CopyPrjItemEditPrm@12" int, int, int
#cfunc GetMixSample "_GetMixSample@4" int
#func GetMixDataEx "_GetMixDataEx@52" int, var, int, int, int, int, int, int, int, int, int, double
#func ExportMixFile "_ExportMixFile@12" int, sptr, int
#func ExportMixFileInit "_ExportMixFileInit@16" int, var, sptr, int
#func ExportMixFileExp "_ExportMixFileExp@16" int, var, var, var
#func ExportMixFileTerm "_ExportMixFileTerm@8" int, var
#func CheckMixVolume "_CheckMixVolume@16" int, int, var, var
#func FadeWaveData "_FadeWaveData@16" var, int, int, int
#func GetFFTSpectrum "_GetFFTSpectrum@16" int, var, int, int
#func ReloadDoutWaveFile "_ReloadDoutWaveFile@12" int, int, sptr
#func CloseDoutWaveFile "_CloseDoutWaveFile@8" int, int
#cfunc GetII_orgSample "_GetII_orgSample@4" int
#func GetII_waveFormat "_GetII_waveFormat@20" int, var, var, var, var
#cfunc GetII_sampFreq "_GetII_sampFreq@4" int
#cfunc GetII_channel "_GetII_channel@4" int
#func GetII_fileName "_GetII_fileName@8" int, var
#cfunc GetII_SMFFlag "_GetII_SMFFlag@4" int
#cfunc GetII_editSample "_GetII_editSample@4" int
#func GetII_waveRange "_GetII_waveRange@24" int, int, int, int, int, var
#func GetII_waveRangeEx "_GetII_waveRangeEx@24" int, int, int, int, int, var
#cfunc GetII_ctrlPntPs "_GetII_ctrlPntPs@4" int
#cfunc GetII_nCtrlPnt "_GetII_nCtrlPnt@4" int
#cfunc GetII_nTctrlPrm "_GetII_nTctrlPrm@4" int
#cfunc GetII_AnalyzePrm "_GetII_AnalyzePrm@12" int, var, var
#cfunc GetII_AnalyzePrmEx "_GetII_AnalyzePrmEx@16" int, var, var, var
#cfunc GetIP_synthMode "_GetIP_synthMode@4" int
#func SetIP_synthMode "_SetIP_synthMode@8" int, int
#cfunc GetIP_synthOption "_GetIP_synthOption@4" int
#func SetIP_synthOption "_SetIP_synthOption@8" int, int
#cfunc GetIP_fadeInSample "_GetIP_fadeInSample@4" int
#func SetIP_fadeInSample "_SetIP_fadeInSample@8" int, int
#cfunc GetIP_fadeOutSample "_GetIP_fadeOutSample@4" int
#func SetIP_fadeOutSample "_SetIP_fadeOutSample@8" int, int
#func GetIP_EqGain "_GetIP_EqGain@12" int, var, var
#func SetIP_EqGain "_SetIP_EqGain@12" int, var, var
#func GetIP_HeqGain "_GetIP_HeqGain@8" int, var
#func SetIP_HeqGain "_SetIP_HeqGain@8" int, var
#func GetIP_tctrlTime "_GetIP_tctrlTime@16" int, int, var, var
#func SetIP_tctrlTime "_SetIP_tctrlTime@24" int, int, double, double
#func AddIP_tctrlTime "_AddIP_tctrlTime@20" int, double, double
#func DelIP_tctrlTime "_DelIP_tctrlTime@8" int, int
#cfunc GetIP_attackThr "_GetIP_attackThr@4" int
#func SetIP_attackThr "_SetIP_attackThr@8" int, int
#func DetectAttackTctrl "_DetectAttackTctrl@8" int, int
#cfunc GetIP_nNote "_GetIP_nNote@4" int
#func GetIP_noteData "_GetIP_noteData@24" int, int, var, var, var, var
#func SetIP_noteData "_SetIP_noteData@24" int, int, int, int, int, int
#func AddIP_noteData "_AddIP_noteData@16" int, int, int, int
#func DelIP_noteData "_DelIP_noteData@8" int, int
#func SetNotePitch "_SetNotePitch@4" int
#func func_11 "_DetectNote@4" int
#func CreateNoteWeight "_CreateNoteWeight@20" int, var, int, int, var
#cfunc GetIP_nLabel "_GetIP_nLabel@4" int
#func GetIP_label "_GetIP_label@24" int, int, var, var, var, var
#func SetIP_label "_SetIP_label@24" int, int, int, int, var, int
#func AddIP_label "_AddIP_label@16" int, int, int, var
#func DelIP_label "_DelIP_label@8" int, int
#func SortIP_label "_SortIP_label@4" int
#cfunc GetICP_pit_analyze "_GetICP_pit_analyze@12" int, int, int
#func SetICP_pit_analyze "_SetICP_pit_analyze@16" int, int, int, int
#cfunc GetICP_pit_org "_GetICP_pit_org@8" int, int
#func SetICP_pit_org "_SetICP_pit_org@12" int, int, int
#cfunc GetICP_pit_edit "_GetICP_pit_edit@8" int, int
#func SetICP_pit_edit "_SetICP_pit_edit@12" int, int, int
#cfunc GetICP_frm "_GetICP_frm@8" int, int
#func SetICP_frm "_SetICP_frm@12" int, int, int
#cfunc GetICP_breathiness "_GetICP_breathiness@8" int, int
#func SetICP_breathiness "_SetICP_breathiness@12" int, int, int
#cfunc GetICP_brightness "_GetICP_brightness@8" int, int
#func SetICP_brightness "_SetICP_brightness@12" int, int, int
#cfunc GetICP_clearness "_GetICP_clearness@8" int, int
#func SetICP_clearness "_SetICP_clearness@12" int, int, int
#cfunc GetICP_Heq "_GetICP_Heq@8" int, int
#func SetICP_Heq "_SetICP_Heq@12" int, int, int
#func GetICP_dyn_org "_GetICP_dyn_org@12" int, int, var
#func SetICP_dyn_org "_SetICP_dyn_org@16" int, int, double
#func GetICP_dyn_edit "_GetICP_dyn_edit@12" int, int, var
#func SetICP_dyn_edit "_SetICP_dyn_edit@16" int, int, double
#func GetICP_vol "_GetICP_vol@12" int, int, var
#func SetICP_vol "_SetICP_vol@16" int, int, double
#func GetICP_pan "_GetICP_pan@12" int, int, var
#func SetICP_pan "_SetICP_pan@16" int, int, double
#cfunc GetICP_fix_org "_GetICP_fix_org@8" int, int
#func SetICP_fix_org "_SetICP_fix_org@12" int, int, int
#cfunc GetICP_fix_edit "_GetICP_fix_edit@8" int, int
#func SetICP_fix_edit "_SetICP_fix_edit@12" int, int, int
#func GetICP_wave "_GetICP_wave@12" int, int, var
#func GetStretchOrgSmp "_GetStretchOrgSmp@20" int, double, var, var
#func GetStretchEdtSmp "_GetStretchEdtSmp@20" int, double, var, var
#func GetStretchOrgSec "_GetStretchOrgSec@20" int, double, var, var
#func GetStretchEdtSec "_GetStretchEdtSec@20" int, double, var, var
#func func_12 "_CopyItemEditPrm@8" int, int
#func GetIP_fixThrDyn "_GetIP_fixThrDyn@12" int, var, var
#func SetIP_fixThrDyn "_SetIP_fixThrDyn@12" int, int, int
#func func_13 "_AnalyzeFixFlg@12" int, int, int
#func UpdateRhythmTimeCtrl "_UpdateRhythmTimeCtrl@4" int
#func ReleaseItemSpcData "_ReleaseItemSpcData@4" int
#func InitItemSpcData "_InitItemSpcData@24" int, int, int, int, int, var
#func AnalyzeItemSpc "_AnalyzeItemSpc@12" int, int, int
#cfunc GetSpcRatio "_GetSpcRatio@4" int
#func SetSpcRatio "_SetSpcRatio@8" int, int
#cfunc GetSpcBlock "_GetSpcBlock@4" int
#func DrawGraph "_DrawGraph@36" bmscr, int, var, int, int, int, double, var
#func InitializeColorTable "_InitializeColorTable@0"
#func SetColorTable "_SetColorTable@8" int, int
#cfunc GetColorTable "_GetColorTable@4" int
#func SetWaveDecodeInfo "_SetWaveDecodeInfo@8" int, sptr
#func MergeSort_int "_MergeSort_int@12" var, var, int
#func MergeSort_double "_MergeSort_double@12" var, var, int
#func vslibSaveFile "_vslibSaveFile@12" sptr, var, int
#cfunc GetMidiInProcPtr "_GetMidiInProcPtr@0"
#cfunc GetMidiTime "_GetMidiTime@8" int, var
#func WaveCheckFormat "_WaveCheckFormat@16" sptr, var, var, var
#func GetWaveFormatError "_GetWaveFormatError@8" var, int
#func func_14 "_LoadSMF@16" sptr, int, int, int
#func AddLogData "_AddLogData@4" sptr
#cfunc GetLogDataMax "_GetLogDataMax@0"
#func GetLogData "_GetLogData@12" int, var, var
#func SetVsTempPath "_SetVsTempPath@8" sptr, int
#func LoadEngineDll "_LoadEngineDll@8" int, sptr
#func FreeEngineDll "_FreeEngineDll@0"
#func ClearItemTable "_ClearItemTable@0"
#cfunc CheckItemTable "_CheckItemTable@4" int
#cfunc UpdateItemTable "_UpdateItemTable@4" int
#cfunc WaitUpdateItemTable "_WaitUpdateItemTable@8" int, var
#uselib "user32.dll"
#func GetSystemMetrics "GetSystemMetrics" int
#func EnableWindow "EnableWindow" int, int
#func CreateMenu "CreateMenu"
#func CreatePopupMenu "CreatePopupMenu"
#func AppendMenuA "AppendMenuA" int, int, int, sptr
#func SetMenu "SetMenu" int, int
#func DrawMenuBar "DrawMenuBar" int
#func CheckMenuItem "CheckMenuItem" int, int, int
#func EnableMenuItem "EnableMenuItem" int, int, int
#func TrackPopupMenuEx "TrackPopupMenuEx" int, int, int, int, int, int
#func DestroyMenu "DestroyMenu" int
#func DeleteMenu "DeleteMenu" int, int, int
#func RemoveMenu "RemoveMenu" int, int, int
#func SetTimer "SetTimer" int, int, int, int
#func KillTimer "KillTimer" int, int
#func GetWindowLongW "GetWindowLongW" int, int
#func SetWindowLongW "SetWindowLongW" int, int, int
#func SetWindowPos "SetWindowPos" int, int, int, int, int, int, int
#func func_15 "GetWindowLongW" int, int
#func func_16 "SetWindowLongW" int, int, int
#func func_17 "SetWindowPos" int, int, int, int, int, int, int
#func GetWindowPlacement "GetWindowPlacement" int, var
#func LoadCursorA "LoadCursorA" int, int
#func SetClassLongA "SetClassLongA" int, int, int
#func SetCursor "SetCursor" int
#func CreateWindowExA "CreateWindowExA" int, int, int, int, int, int, int, int, int, int, int, int
#func SendMessageA "SendMessageA" int, int, int, int
#func DestroyWindow "DestroyWindow" int
#func SetFocus "SetFocus" int
#func GetWindow "GetWindow" int, int
#func IsWindow "IsWindow" int
#func GetWindowTextA "GetWindowTextA" int, int, int
#func GetClassNameA "GetClassNameA" int, int, int
#func func_21 "GetWindowPlacement" int, var
#func func_25 "GetSystemMetrics" int
#func func_33 "SetFocus" int
#func func_34 "SetFocus" int
#uselib "gdi32.dll"
#func GetTextExtentPoint32A "GetTextExtentPoint32A" int, sptr, int, var
#func GetTextFaceA "GetTextFaceA" int, int, int
#func func_35 "GetTextExtentPoint32A" int, sptr, int, var
#func func_36 "GetTextExtentPoint32A" int, sptr, int, var
#uselib "KERNEL32.DLL"
#func Sleep "Sleep" int
#uselib "comdlg32.dll"
#func GetOpenFileNameA "GetOpenFileNameA" sptr
#func GetOpenFileNameW "GetOpenFileNameW" sptr
#func GetSaveFileNameA "GetSaveFileNameA" sptr
#func GetSaveFileNameW "GetSaveFileNameW" sptr
#uselib "Kernel32.dll"
#func WideCharToMultiByte "WideCharToMultiByte" int, int, int, int, int, int, int, int
#func MultiByteToWideChar "MultiByteToWideChar" int, int, int, int, int, int
#func CreateFileA "CreateFileA" int, int, int, int, int, int, int
#func CreateFileW "CreateFileW" int, int, int, int, int, int, int
#func func_18 "CloseHandle" int
#cfunc func_19 "GetLastError"
#func func_27 "WideCharToMultiByte" int, int, int, int, int, int, int, int
#func func_28 "MultiByteToWideChar" int, int, int, int, int, int
#func func_29 "CreateFileA" int, int, int, int, int, int, int
#func func_30 "CreateFileW" int, int, int, int, int, int, int
#func func_31 "CloseHandle" int
#cfunc func_32 "GetLastError"
#uselib "shell32.dll"
#cfunc SHBrowseForFolder "SHBrowseForFolder" int
#func SHGetPathFromIDList "SHGetPathFromIDList" int, int
#func DragAcceptFiles "DragAcceptFiles" int, int
#func DragQueryFileA "DragQueryFileA" int, int, int, int
#func DragQueryFileW "DragQueryFileW" int, int, int, int
#func DragQueryPoint "DragQueryPoint" int, int
#func DragFinish "DragFinish" int
#uselib "ole32.dll"
#func CoTaskMemFree "CoTaskMemFree" int
#uselib "comdlg32"
#cfunc ChooseColorA "ChooseColorA" int
#uselib "winmm.dll"
#func waveOutOpen "waveOutOpen" int, int, int, int, int, int
#func waveOutPrepareHeader "waveOutPrepareHeader" int, int, int
#func waveOutUnprepareHeader "waveOutUnprepareHeader" int, int, int
#func waveOutWrite "waveOutWrite" int, int, int
#func waveOutReset "waveOutReset" int
#func waveOutClose "waveOutClose" int
#func waveOutGetPosition "waveOutGetPosition" int, int, int
#func waveOutPause "waveOutPause" int
#func waveOutRestart "waveOutRestart" int
#func waveOutGetNumDevs "waveOutGetNumDevs"
#func waveOutGetDevCapsA "waveOutGetDevCapsA" int, int, int
#func midiInGetNumDevs "midiInGetNumDevs"
#func midiInGetDevCapsA "midiInGetDevCapsA" int, int, int
#func func_39 "midiInOpen" int, int, int, int, int
#func func_40 "midiInClose" int
#func func_41 "midiInStart" int
#func func_42 "midiInStop" int
#func midiOutGetNumDevs "midiOutGetNumDevs"
#func midiOutGetDevCapsA "midiOutGetDevCapsA" int, int, int
#func midiOutOpen "midiOutOpen" int, int, int, int, int
#func midiOutClose "midiOutClose" int
#func midiOutReset "midiOutReset" int
#func midiOutShortMsg "midiOutShortMsg" int, int
#func midiOutLongMsg "midiOutLongMsg" int, int, int
#func midiOutPrepareHeader "midiOutPrepareHeader" int, int, int
#func midiOutUnprepareHeader "midiOutUnprepareHeader" int, int, int
#uselib "comctl32.dll"
#func InitCommonControlsEx "InitCommonControlsEx" int
#uselib "Shlwapi.dll"
#cfunc PathIsDirectoryA "PathIsDirectoryA" sptr
#cfunc func_22 "PathIsDirectoryA" sptr
#cfunc func_26 "PathIsDirectoryA" sptr
#uselib "psapi.dll"
#func EnumProcesses "EnumProcesses" var, int, var
#uselib "user32"
#cfunc GetWindowLongA "GetWindowLongA" int, int
#func SetWindowLongA "SetWindowLongA" int, int, int
#func func_37 "SetWindowPos" int, nullptr, nullptr, nullptr, nullptr, nullptr, int
#uselib "GDI32.DLL"
#cfunc CreateSolidBrush "CreateSolidBrush" int
#func SetTextColor "SetTextColor" int, int
#func SetBkColor "SetBkColor" int, int
var_0 = 0
goto *label_014
#deffunc dll_getfunc var prm_5, str prm_6, int prm_7
if ( prm_7 & (-256) ) {
var_1 = prm_7
}
else {
var_1 = var_2(prm_7)
}
GetProcAddress var_1, prm_6
prm_5 = stat
if ( prm_5 == 0 ) {
dialog "can not find '" + prm_6 + "'\ndll=" + prm_7
}
return
#deffunc _init_llmod
if ( var_2 ) {
return
}
var_3 = 0
sdim var_4, 64, 16
var_4(0) = "kernel32"
var_4(1) = "user32"
var_4(2) = "shell32"
var_4(3) = "comctl32"
var_4(4) = "comdlg32"
var_4(5) = "gdi32"
repeat 6
LoadLibraryA var_4(cnt)
var_2(cnt) = stat
loop
var_4 = "GetActiveWindow"
repeat 1
GetProcAddress var_2(1), var_4(cnt)
var_5(cnt) = stat
loop
sdim var_4, 64
return
#deffunc dllproc str prm_8, array prm_9, int prm_10, int prm_11
if ( prm_11 & (-256) ) {
var_1 = prm_11
}
else {
var_1 = var_2(prm_11)
}
GetProcAddress var_1, prm_8
var_6 = stat
if ( var_6 ) {
var_7 = callfunc(prm_9, var_6, prm_10)
}
else {
dialog "can not find '" + prm_8 + "'\ndll=" + prm_11
getkey var_8, 16
if ( var_8 ) {
end
}
}
return var_7
#deffunc getmjrdll var prm_12, int prm_13
prm_12 = var_2(prm_13)
return
#deffunc getmjrfunc var prm_14, int prm_15
prm_14 = var_5(prm_15)
return
#deffunc _get_active_window var prm_16
prm_16 = callfunc(var_9, var_5(0), 0)
return
#deffunc setwndlong var prm_17, int prm_18
if ( prm_18 ) {
var_4 = "G"
var_8 = 2
}
else {
var_4 = "S"
var_8 = 3
}
var_4 += "etWindowLongA"
dllproc var_4, prm_17, var_8, 1
return
#deffunc _null_sep_str var prm_19, int prm_20
var_10 = strlen(prm_19)
var_8 = 0
var_9 = 0
repeat var_10
var_8 = peek(prm_19, cnt)
if ( var_8 == prm_20 ) {
poke prm_19, cnt, 0
var_9++
}
loop
return var_9
#deffunc _makewnd array prm_21, str prm_22
pos prm_21(0), prm_21(1)
winobj prm_22, "", prm_21(6), prm_21(4), prm_21(2), prm_21(3), 0, 0
prm_21 = stat
return
#deffunc _is_wnd int prm_23
var_11 = prm_23
dllproc "IsWindow", var_11, 1, 1
return
#deffunc _hspobjhandle int prm_24
return objinfo(prm_24, 2)
#deffunc _hspobjid int prm_25
mref var_12, 67
var_7 = -1
if ( prm_25 == 0 ) {
return -1
}
repeat var_12(72)
if ( prm_25 == objinfo(cnt, 2) ) {
var_7 = cnt
break
}
loop
return var_7
#deffunc charupper var prm_26
var_13 = varptr(prm_26)
dllproc "CharUpperA", var_13, 1, 1
return
#deffunc charlower var prm_27
var_13 = varptr(prm_27)
dllproc "CharLowerA", var_13, 1, 1
return
*label_014
_init_llmod
goto *label_019
#deffunc sel_udbtn int prm_28
var_14 = var_15
var_15 = prm_28
return
#deffunc udset int prm_29, int prm_30, int prm_31
var_16 = prm_30
var_17 = prm_31
if ( prm_29 == 0 ) {
var_18 = 1129
var_17 = 0
_hspobjhandle prm_30
if ( stat ) {
var_16 = stat
}
else {
_is_wnd var_16
if ( stat == 0 ) {
return -1
}
}
}
if ( prm_29 == 1 ) {
var_17 = var_16 << 16 | var_17
var_18 = 1125
var_16 = 0
}
if ( prm_29 == 2 ) {
var_18 = 1127
var_17 = var_16
var_16 = 0
}
if ( prm_29 == 3 ) {
var_18 = 1133
var_17 = 0
if ( var_16 ) {
var_16 = 10
}
else {
var_16 = 16
}
}
if ( prm_29 == 4 ) {
var_18 = 1131
}
sendmsg objinfo(var_15, 2), var_18, var_16, var_17
var_19 = stat
if ( prm_29 == 0 ) {
_hspobjid var_19
if ( stat != (-1) ) {
var_19 = stat
}
}
return var_19
#deffunc udget int prm_32, int prm_33, int prm_34
var_18 = 1130, 1126, 1128, 1134, 1132
var_18 = var_18(prm_32)
if ( prm_32 == 2 ) {
prm_34 = prm_33
prm_33 = 0
}
sendmsg objinfo(var_15, 2), var_18, prm_33, prm_34
var_19 = stat
if ( prm_32 == 0 ) {
_hspobjid var_19
if ( stat >= 0 ) {
var_19 = stat
}
}
return var_19
#deffunc udbtn int prm_35, int prm_36, int prm_37, int prm_38
var_20 = prm_37
if ( var_20 == 0 ) {
var_20 = var_21
}
var_20 = var_20 | 1342177282
sdim var_18, 64
var_18 = ginfo(22), ginfo(23), prm_35, prm_36, var_20, 0, 512
_makewnd var_18, "msctls_updown32"
var_15 = var_18
udset 0, prm_38
return var_15
*label_019
goto *label_028
#deffunc get_icon var prm_39, str prm_40, int prm_41, int prm_42
var_22 = strlen(prm_40)
if ( var_22 >= 64 ) {
sdim var_23, var_22 + 1
}
var_23 = prm_40
var_24 = varptr(var_23)
var_25(0) = var_24
var_25(1) = prm_41
var_25(2) = 0
var_25(3) = 0
if ( prm_41 != (-1) ) {
var_24 = varptr(prm_39)
if ( prm_42 ) {
var_25(3) = var_24
}
else {
var_25(2) = var_24
}
}
dll_getfunc var_26, "ExtractIconExA", 2
if ( prm_41 != (-2) ) {
var_25(4) = 1
}
else {
var_22 = var_25, -1, 0, 0, 0
var_22 = varptr(var_23)
var_27 = callfunc(var_22, var_26, 5)
var_25(4) = var_27
var_25(1) = 0
}
var_27 = callfunc(var_25, var_26, 5)
sdim var_23, 64
return var_27
#deffunc draw_icon int prm_43, int prm_44, int prm_45, int prm_46
var_28 = prm_43
sdim var_25, 68
var_25(0) = hdc, prm_44, prm_45, prm_43, 0, 0, 0, 0, 3
dllproc "DrawIconEx", var_25, 9, 1
var_28 = stat
if ( prm_46 == 0 ) {
redraw
}
sdim var_25, 64
return var_28
#deffunc get_fileicon var prm_47, str prm_48, int prm_49
var_22 = 1, 2, 65536, 32768, 4096, 512, 1024
var_29 = prm_48
var_30 = prm_49
if ( var_30 < 16 ) {
var_25 = 0
repeat 5
if ( 1 << cnt & var_30 ) {
var_25 += var_22(cnt)
}
loop
var_30 = var_25 | 256
}
else {
repeat 3, 4
if ( var_30 >> cnt & 1 ) {
var_30 = cnt
break
}
loop
var_30 = var_22(var_30)
}
sdim var_22, 352
var_25(0) = 0, 0, 0, 352, var_30
var_25(0) = varptr(var_29)
var_25(2) = varptr(var_22)
dllproc "SHGetFileInfoA", var_25, 5, 2
if ( var_30 & 4096 | (var_30 & 512) ) {
memcpy prm_47, var_22, 260, 0, 12
}
else {
if ( var_30 & 1024 ) {
memcpy prm_47, var_22, 80, 0, 272
}
else {
prm_47 = lpeek(var_22, 0)
}
}
sdim var_22, 64
return
#deffunc create_imglist int prm_50, int prm_51, int prm_52, int prm_53
var_25 = prm_50, prm_51, prm_52, prm_53, 0
dllproc "ImageList_Create", var_25, 5, 3
return
#deffunc destroy_imglist array prm_54, int prm_55
var_29 = prm_55
if ( var_29 == 0 ) {
var_29 = 1
}
dll_getfunc var_22, "ImageList_Destroy", 3
repeat var_29
var_25 = prm_54(cnt)
var_27 = callfunc(var_25, var_22, 1)
loop
return
#deffunc addicon_imglist int prm_56, int prm_57
var_25 = prm_56, prm_57
dllproc "ImageList_AddIcon", var_25, 2, 3
return
#deffunc draw_imglist int prm_58, int prm_59, int prm_60, int prm_61
var_25 = prm_58, prm_59, hdc, prm_60, prm_61, 0
dllproc "ImageList_Draw", var_25, 6, 3
return
#deffunc getinfo_imglist var prm_62, int prm_63, int prm_64, int prm_65
var_31 = prm_65
var_25 = prm_63, prm_64
var_25(2) = varptr(var_22)
dllproc "ImageList_GetImageInfo", var_25, 3, 3
if ( var_31 ) {
var_31--
prm_62 = var_22(var_31)
}
else {
prm_62 = var_22(6), var_22(7)
}
return
*label_028
goto *label_035
#deffunc objgray int prm_66, int prm_67
var_32 = prm_66
_hspobjhandle var_32
if ( stat ) {
var_32 = stat
}
var_33 = var_32, prm_67
if ( prm_67 < 0 ) {
dllproc "IsWindowEnabled", var_33, 1, 1
}
else {
dllproc "EnableWindow", var_33, 2, 1
}
return
#deffunc p_scrwnd var
var_34 = "ScreenToClient"
goto *label_032
#deffunc p_wndscr var prm_69
var_34 = "ClientToScreen"
*label_032
var_33(1) = varptr(prm_69)
var_33 = hwnd
dllproc var_34, var_33, 2, 1
return
#deffunc getobjsize array prm_70, int prm_71
var_35 = prm_71
_hspobjhandle var_35
if ( stat ) {
var_35 = stat
}
var_34 = varptr(prm_70(2))
var_33 = var_35, var_34
dllproc "GetWindowRect", var_33, 2, 1
var_33 = stat
prm_70 = prm_70(4) - prm_70(2), prm_70(5) - prm_70(3)
p_scrwnd prm_70(2)
p_scrwnd prm_70(4)
return var_33
#deffunc resizeobj int prm_72, array prm_73, int prm_74
var_32 = prm_72
_hspobjhandle var_32
if ( stat ) {
var_32 = stat
}
var_36 = var_32, prm_73(2), prm_73(3), prm_73, prm_73(1), 1
if ( prm_74 ) {
getobjsize var_37, var_36
if ( stat == (-1) ) {
return -1
}
if ( prm_74 == 1 ) {
var_36(1) = var_37(2), var_37(3)
}
if ( prm_74 == 2 ) {
var_36(3) = var_37, var_37(1)
}
}
dllproc "MoveWindow", var_36, 6, 1
return
*label_035
goto *label_042
#deffunc trackbox int prm_75, int prm_76, int prm_77
var_38 = prm_77
if ( var_38 == 0 ) {
var_38 = var_39
}
var_38 = var_38 | 1342177280
dim var_40, 7
var_40 = ginfo(22), ginfo(23), prm_75, prm_76, var_38, 0, 512
_makewnd var_40, "msctls_trackbar32"
var_41 = var_40
return var_41
#deffunc sel_trackbox int prm_78
var_42 = var_41
var_41 = prm_78
return var_42
#deffunc trackpos int prm_79, int prm_80
var_43 = prm_79
if ( prm_80 ) {
var_40 = 1024
var_38 = 0
}
else {
var_40 = 1029
var_38 = 1
}
sendmsg objinfo(var_41, 2), var_40, var_38, var_43
return
#deffunc trackrng int prm_81, int prm_82, int prm_83
if ( prm_83 ) {
if ( prm_81 ) {
var_40 = 1025
}
else {
var_40 = 1026
}
sendmsg objinfo(var_41, 2), var_40, 0, 0
var_44 = stat
}
else {
sendmsg objinfo(var_41, 2), 1031, 1, prm_81
sendmsg objinfo(var_41, 2), 1032, 1, prm_82
var_44 = 0
}
return var_44
#deffunc trackmrk int prm_84, int prm_85, int prm_86
var_43 = prm_84
var_45 = prm_85
if ( var_45 ) {
var_40 = 0, 1040, 1044, 1027, 1033
var_40 = var_40(var_45)
if ( var_45 == 4 ) {
var_43 = prm_86 ^ 1
}
else {
if ( var_45 == 2 ) {
var_45 = prm_86
}
}
}
else {
var_40 = 1028
var_45 = var_43
var_43 = 0
}
sendmsg objinfo(var_41, 2), var_40, var_43, var_45
return
#deffunc tracksel int prm_87, int prm_88, int prm_89
var_43 = prm_87
var_45 = prm_88
var_38 = prm_89
if ( var_43 == var_45 ) {
if ( var_43 ) {
var_40 = 1042
}
else {
var_40 = 1041
}
var_43 = 0
var_45 = 0
}
else {
var_46 = var_38 >> 4 ^ 1
var_38 = var_38 & 15
if ( var_38 ) {
var_40 = 0, 1035, 1036, 1043
var_40 = var_40(var_38)
if ( var_38 == 3 ) {
var_45 = 0
}
else {
if ( var_38 == 1 ) {
var_45 = var_43
}
}
var_43 = var_46
}
else {
sendmsg objinfo(var_41, 2), 1035, var_46, var_43
sendmsg objinfo(var_41, 2), 1036, var_46, var_45
return 0
}
}
sendmsg objinfo(var_41, 2), var_40, var_43, var_45
return
*label_042
goto *label_044
#deffunc msgdlg str prm_90, str prm_91, int prm_92, int prm_93
var_47 = strlen(prm_90)
if ( var_47 >= 64 ) {
sdim var_48, var_47 + 1
}
var_47 = strlen(prm_91)
if ( var_47 >= 64 ) {
sdim var_49, var_47 + 1
}
var_50 = prm_93
var_48 = prm_90
var_49 = prm_91
dim var_51, 37
var_51(0) = 148
var_52 = varptr(var_51)
dllproc "GetVersionExA", var_52, 1, 0
var_47 = 0
if ( var_50 & 256 ) {
var_47 = 48
var_50 = var_50 - 256
}
dllproc "MessageBeep", var_47, 1, 1
var_53(0) = 40
_get_active_window var_47
var_53(1) = var_47
var_47 = hinstance
var_53(2) = var_47
var_53(3) = varptr(var_48)
var_53(4) = varptr(var_49)
if ( var_50 == 5 ) {
var_50 = 128
}
else {
var_50 = var_50 << 4
}
var_53(5) = prm_92 + var_50
var_53(6) = 128
var_52 = varptr(var_53)
dllproc "MessageBoxIndirectA", var_52, 1, 1
var_52 = stat
sdim var_48, 64
sdim var_49, 64
return var_52
*label_044
goto *label_062
#defcfunc vslib_getprjmastervolume int prm_635
var_54 = 1.0
GetPrjMasterVolume prm_635, var_54
return var_54
#defcfunc vslib_getprjtempo int prm_636
var_55 = 120.0
GetPrjTempo prm_636, var_55
return var_55
#defcfunc vslib_gettrackvolume int prm_637, int prm_638
var_54 = 1.0
GetTrackVolume prm_637, prm_638, var_54
return var_54
#defcfunc vslib_gettrackpan int prm_639, int prm_640
var_56 = 0.0
GetTrackPan prm_639, prm_640, var_56
return var_56
#defcfunc vslib_gettrackname int prm_641, int prm_642
sdim var_57, 260
GetTrackName prm_641, prm_642, var_57
return var_57
#defcfunc vslib_getprjitemoffset int prm_643, int prm_644
var_58 = 0.0
GetPrjItemOffset prm_643, prm_644, var_58
return var_58
#defcfunc vslib_getprjitemfreqa4 int prm_645, int prm_646
var_59 = 0.0
GetPrjItemFreqA4 prm_645, prm_646, var_59
return var_59
#defcfunc vslib_getprjitemmeasoffset int prm_647, int prm_648
var_60 = 0.0
GetPrjItemMeasOffset prm_647, prm_648, var_60
return var_60
#defcfunc vslib_getii_filename int prm_649
sdim var_57, 260
GetII_fileName prm_649, var_57
return var_57
#defcfunc vslib_geticp_dyn_org int prm_650, int prm_651
var_61 = 0.0
GetICP_dyn_org prm_650, prm_651, var_61
return var_61
#defcfunc vslib_geticp_dyn_edit int prm_652, int prm_653
var_61 = 0.0
GetICP_dyn_edit prm_652, prm_653, var_61
return var_61
#defcfunc vslib_geticp_vol int prm_654, int prm_655
var_54 = 0.0
GetICP_vol prm_654, prm_655, var_54
return var_54
#defcfunc vslib_geticp_pan int prm_656, int prm_657
var_56 = 0.0
GetICP_pan prm_656, prm_657, var_56
return var_56
#defcfunc vslib_getstretchorgsmp int prm_658, double prm_659, var prm_660
var_62 = 0.0
GetStretchOrgSmp prm_658, prm_659, var_62, prm_660
return var_62
#defcfunc vslib_getstretchedtsmp int prm_661, double prm_662, var prm_663
var_63 = 0.0
GetStretchEdtSmp prm_661, prm_662, var_63, prm_663
return var_63
#defcfunc vslib_getstretchorgsec int prm_664, double prm_665, var prm_666
var_64 = 0.0
GetStretchOrgSec prm_664, prm_665, var_64, prm_666
return var_64
#defcfunc vslib_getstretchedtsec int prm_667, double prm_668, var prm_669
var_65 = 0.0
GetStretchEdtSec prm_667, prm_668, var_65, prm_669
return var_65
*label_062