| … | |
… | |
| 200 | # move number, only in variations it seems. oh my. |
200 | # move number, only in variations it seems. oh my. |
| 201 | push @r, [movenum => dec_ZSTRING]; |
201 | push @r, [movenum => dec_ZSTRING]; |
| 202 | |
202 | |
| 203 | } elsif ($type == 26) { |
203 | } elsif ($type == 26) { |
| 204 | push @r, [type_26 => dec_U8]; # sets a flag (?) |
204 | push @r, [type_26 => dec_U8]; # sets a flag (?) |
| 205 | warn "unknown tree node 26, PLEASE REPORT AND INCLUDE THE GAME\n"; |
205 | warn "unknown tree node 26, please ignore\n"; |
|
|
206 | # possibly marks moves done while editing, as opposed to game-moves(?) |
| 206 | |
207 | |
| 207 | } elsif ($type == 25) { |
208 | } elsif ($type == 25) { |
| 208 | push @r, [result => dec_result]; |
209 | push @r, [result => dec_result]; |
| 209 | |
210 | |
| 210 | } elsif ($type == 23) { |
211 | } elsif ($type == 23) { |
| … | |
… | |
| 280 | open XTYPE, "|xtype"; print XTYPE $old_data; close XTYPE; |
281 | open XTYPE, "|xtype"; print XTYPE $old_data; close XTYPE; |
| 281 | warn "unknown tree type $type, PLEASE REPORT and include the game you wanted to watch. thx."; |
282 | warn "unknown tree type $type, PLEASE REPORT and include the game you wanted to watch. thx."; |
| 282 | |
283 | |
| 283 | } |
284 | } |
| 284 | |
285 | |
| 285 | push @{$r[-1]}, offset => sprintf "0x%x", $ofs;#d# |
286 | #push @{$r[-1]}, offset => sprintf "0x%x", $ofs;#d# |
| 286 | |
287 | |
| 287 | } |
288 | } |
| 288 | # print STDERR KGS::Listener::Debug::dumpval(\@r);#d# |
289 | # print STDERR KGS::Listener::Debug::dumpval(\@r);#d# |
| 289 | # return [];#d# |
290 | # return [];#d# |
| 290 | \@r; |
291 | \@r; |
