use the new notes ;)
[divverent/nexuiz.git] / misc / tools / midi2cfg.pl
1 #!/usr/bin/perl
2
3 # converter from Type 1 MIDI files to CFG files that control bots with the Tuba and other weapons for percussion (requires g_weaponarena all)
4 # usage:
5 #   perl midi2cfg.pl filename.mid basenote walktime "x y z" "x y z" "x y z" ... "/" "x y z" "x y z" ... > filename.cfg
6
7 use strict;
8 use warnings;
9 use MIDI;
10 use MIDI::Opus;
11
12 my ($filename, $transpose, $walktime, @coords) = @ARGV;
13 my @coords_percussion = ();
14 my @coords_tuba = ();
15 my $l = \@coords_tuba;
16 for(@coords)
17 {
18         if($_ eq '/')
19         {
20                 $l = \@coords_percussion;
21         }
22         else
23         {
24                 push @$l, [split /\s+/, $_];
25         }
26 }
27
28 my $opus = MIDI::Opus->new({from_file => $filename});
29 my $ticksperquarter = $opus->ticks();
30 my $tracks = $opus->tracks_r();
31 my @tempi = (); # list of start tick, time per tick pairs (calculated as seconds per quarter / ticks per quarter)
32 my $tick;
33
34 $tick = 0;
35 for($tracks->[0]->events())
36 {   
37     $tick += $_->[1];
38     if($_->[0] eq 'set_tempo')
39     {   
40         push @tempi, [$_->[1], $_->[2] * 0.000001 / $ticksperquarter];
41     }
42 }
43 sub tick2sec($)
44 {
45     my ($tick) = @_;
46     my $sec = 0;
47     my $curtempo = [0, 0.5 / $ticksperquarter];
48     for(@tempi)
49     {
50         if($_->[0] < $tick)
51         {
52                         # this event is in the past
53                         # we add the full time since the last one then
54                         $sec += ($_->[0] - $curtempo->[0]) * $curtempo->[1];
55         }   
56         else
57         {
58                         # if this event is in the future, we break
59                         last;
60         }
61                 $curtempo = $_;
62     }
63         $sec += ($tick - $curtempo->[0]) * $curtempo->[1];
64         return $sec;
65 }
66
67 # merge all to a single track
68 my @allmidievents = ();
69 my $sequence = 0;
70 for my $track(0..@$tracks-1)
71 {
72         $tick = 0;
73         for($tracks->[$track]->events())
74         {
75                 my ($command, $delta, @data) = @$_;
76                 $tick += $delta;
77                 push @allmidievents, [$command, $tick, $sequence++, $track, @data];
78         }
79 }
80 @allmidievents = sort { $a->[1] <=> $b->[1] or $a->[2] <=> $b->[2] } @allmidievents;
81
82
83
84
85
86 my @busybots_percussion = map { undef } @coords_percussion;
87 my @busybots_tuba       = map { undef } @coords_tuba;
88
89 my $notes = 0;
90 sub busybot_findfree($$$)
91 {
92         my ($time, $vchannel, $note) = @_;
93         my $l = ($vchannel < 16) ? \@busybots_tuba : \@busybots_percussion;
94         for(0..@$l-1)
95         {
96                 if(!$l->[$_])
97                 {
98                         my $bot = {id => $_ + 1, busy => 0, busytime => 0, channel => $vchannel, curtime => -$walktime, curbuttons => 0, noteoffset => 0};
99                         $l->[$_] = $bot;
100                         return $bot;
101                 }
102                 return $l->[$_] if
103                         $l->[$_]{channel} == $vchannel
104                         &&
105                         !$l->[$_]{busy}
106                         &&
107                         $time > $l->[$_]{busytime};
108         }
109         die "No free channel found ($notes notes active)\n";
110 }
111
112 sub busybot_find($$)
113 {
114         my ($vchannel, $note) = @_;
115         my $l = ($vchannel < 16) ? \@busybots_tuba : \@busybots_percussion;
116         for(0..@$l-1)
117         {
118                 return $l->[$_] if
119                         $l->[$_]
120                         &&
121                         $l->[$_]{busy}
122                         &&
123                         $l->[$_]{channel} == $vchannel
124                         &&
125                         defined $l->[$_]{note}
126                         &&
127                         $l->[$_]{note} == $note;
128         }
129         return undef;
130 }
131
132 sub busybot_advance($$)
133 {
134         my ($bot, $t) = @_;
135         my $t0 = $bot->{curtime};
136         if($t != $t0)
137         {
138                 #print "sv_cmd bot_cmd $bot->{id} wait @{[$t - $t0]}\n";
139                 print "sv_cmd bot_cmd $bot->{id} wait_until $t\n";
140         }
141         $bot->{curtime} = $t;
142 }
143
144 sub busybot_setbuttons($$)
145 {
146         my ($bot, $b) = @_;
147         my $b0 = $bot->{curbuttons};
148         my $press = $b & ~$b0;
149         my $release = $b0 & ~$b;
150         print "sv_cmd bot_cmd $bot->{id} releasekey attack1\n" if $release & 32;
151         print "sv_cmd bot_cmd $bot->{id} releasekey attack2\n" if $release & 64;
152         print "sv_cmd bot_cmd $bot->{id} releasekey forward\n" if $release & 1;
153         print "sv_cmd bot_cmd $bot->{id} releasekey backward\n" if $release & 2;
154         print "sv_cmd bot_cmd $bot->{id} releasekey left\n" if $release & 4;
155         print "sv_cmd bot_cmd $bot->{id} releasekey right\n" if $release & 8;
156         print "sv_cmd bot_cmd $bot->{id} releasekey crouch\n" if $release & 16;
157         print "sv_cmd bot_cmd $bot->{id} releasekey jump\n" if $release & 128;
158         print "sv_cmd bot_cmd $bot->{id} presskey forward\n" if $press & 1;
159         print "sv_cmd bot_cmd $bot->{id} presskey backward\n" if $press & 2;
160         print "sv_cmd bot_cmd $bot->{id} presskey left\n" if $press & 4;
161         print "sv_cmd bot_cmd $bot->{id} presskey right\n" if $press & 8;
162         print "sv_cmd bot_cmd $bot->{id} presskey crouch\n" if $press & 16;
163         print "sv_cmd bot_cmd $bot->{id} presskey jump\n" if $press & 128;
164         print "sv_cmd bot_cmd $bot->{id} presskey attack1\n" if $press & 32;
165         print "sv_cmd bot_cmd $bot->{id} presskey attack2\n" if $press & 64;
166         $bot->{curbuttons} = $b;
167 }
168
169 my %notes = (
170         -18 => '1lbc',
171         -17 => '1bc',
172         -16 => '1brc',
173         -13 => '1frc',
174         -12 => '1c',
175         -11 => '2lbc',
176         -10 => '1rc',
177         -9 => '1flc',
178         -8 => '1fc',
179         -7 => '1lc',
180         -6 => '1lb',
181         -5 => '1b',
182         -4 => '1br',
183         -3 => '2rc',
184         -2 => '2flc',
185         -1 => '1fl',
186         0 => '1',
187         1 => '2lb',
188         2 => '1r',
189         3 => '1fl',
190         4 => '1f',
191         5 => '1l',
192         6 => '2fr',
193         7 => '2',
194         8 => '1brj',
195         9 => '2r',
196         10 => '2fl',
197         11 => '2f',
198         12 => '2l',
199         13 => '2lbj',
200         14 => '1rj',
201         15 => '1flj',
202         16 => '1fj',
203         17 => '1lj',
204         18 => '2frj',
205         19 => '2j',
206         21 => '2rj',
207         22 => '2flj',
208         23 => '2fj',
209         24 => '2lj'
210 );
211
212 my $note_min = +99;
213 my $note_max = -99;
214 sub getnote($$)
215 {
216         my ($bot, $note) = @_;
217         $note_max = $note if $note_max < $note;
218         $note_min = $note if $note_min > $note;
219         $note -= $transpose;
220         $note -= $bot->{noteoffset};
221         my $s = $notes{$note};
222         return $s;
223 }
224
225 sub busybot_playnote($$)
226 {
227         my ($bot, $note) = @_;
228         my $s = getnote $bot => $note;
229         return (warn("note $note not found"), 0)
230                 unless defined $s;
231         my $buttons = 0;
232         $buttons |= 1 if $s =~ /f/;
233         $buttons |= 2 if $s =~ /b/;
234         $buttons |= 4 if $s =~ /l/;
235         $buttons |= 8 if $s =~ /r/;
236         $buttons |= 16 if $s =~ /c/;
237         $buttons |= 32 if $s =~ /1/;
238         $buttons |= 64 if $s =~ /2/;
239         $buttons |= 128 if $s =~ /j/;
240         busybot_setbuttons $bot => $buttons;
241         return 1;
242 }
243
244 sub busybot_stopnote($$)
245 {
246         my ($bot, $note) = @_;
247         my $s = getnote $bot => $note;
248         return 0
249                 unless defined $s;
250         my $buttons = $bot->{curbuttons};
251         $buttons &= ~(32 | 64);
252         #$buttons = 0;
253         busybot_setbuttons $bot => $buttons;
254         return 1;
255 }
256
257 sub note_on($$$)
258 {
259         my ($t, $channel, $note) = @_;
260         if(busybot_find($channel, $note))
261         {
262                 note_off($t, $channel, $note); # MIDI allows redoing a note-on for the same note
263         }
264         ++$notes;
265         if($channel == 10)
266         {
267                 $channel = 16 + $note; # percussion
268         }
269         my $bot = busybot_findfree($t, $channel, $note);
270         if($channel < 16)
271         {
272                 busybot_advance $bot => $t if getnote $bot => $note;
273                 if(busybot_playnote $bot => $note)
274                 {
275                         $bot->{busy} = 1;
276                         $bot->{note} = $note;
277                         $bot->{busytime} = $t + 0.25;
278                         busybot_stopnote $bot => $note;
279                 }
280         }
281         if($channel >= 16)
282         {
283                 print "sv_cmd bot_cmd $bot->{id} presskey attack1\n";
284                 print "sv_cmd bot_cmd $bot->{id} releasekey attack1\n";
285                 $bot->{busy} = 1;
286                 $bot->{note} = $note;
287                 $bot->{busytime} = $t + 1.5;
288         }
289 }
290
291 sub note_off($$$)
292 {
293         my ($t, $channel, $note) = @_;
294         --$notes;
295         if($channel == 10)
296         {
297                 $channel = 16 + $note; # percussion
298         }
299         my $bot = busybot_find($channel, $note)
300                 or return;
301         $bot->{busy} = 0;
302         if($channel < 16)
303         {
304                 busybot_advance $bot => $t;
305                 busybot_stopnote $bot => $note;
306                 $bot->{busytime} = $t + 0.25;
307         }
308 }
309
310 for(@allmidievents)
311 {
312         my $t = tick2sec $_->[1];
313         my $track = $_->[3];
314         if($_->[0] eq 'note_on')
315         {
316                 my $chan = $_->[4];
317                 note_on($t, $chan, $_->[5]);
318         }
319         elsif($_->[0] eq 'note_off')
320         {
321                 my $chan = $_->[4];
322                 note_off($t, $chan, $_->[5]);
323         }
324 }
325
326 print STDERR "Range of notes: $note_min .. $note_max\n";
327 print STDERR "Safe transpose range: @{[$note_max - 19]} .. @{[$note_min + 13]}\n";
328 print STDERR "Unsafe transpose range: @{[$note_max - 24]} .. @{[$note_min + 18]}\n";
329 printf STDERR "%d bots allocated for tuba, %d for percussion\n", int scalar grep { defined $_ } @busybots_tuba, int scalar grep { defined $_ } @busybots_percussion;
330
331 my $n = 0;
332 for(@busybots_percussion, @busybots_tuba)
333 {
334         ++$n if $_ && $_->{busy};
335 }
336 if($n)
337 {
338         die "$n channels blocked ($notes MIDI notes)";
339 }