Hardware (Question) SuperCard DSONE SDHC Real-Time-Game-Guide

KirgoPlayer007

Well-Known Member
OP
Member
Joined
Sep 25, 2021
Messages
122
Trophies
0
XP
642
Country
Romania
(I know this card is old AND I know this might be covered somewhere else but I can't find where)

I just can't set up the Real-Time Game Guide on my DSONE. I don't know where I should put the .txt file. It has the Evolution OS (The latest one). Can someone help me? (I can give other details if necessary)
 
Last edited by KirgoPlayer007,

DanTheManMS

aka Ricochet Otter
Member
Joined
Jun 2, 2007
Messages
4,453
Trophies
1
Age
34
Location
Georgia
XP
752
Country
United States
It's been a long time since I used the in-game guide feature. Does the conversion tool word-wrap properly now? Or do you still need to pre-format the text file to word-wrap it properly before running it through the conversion tool?

There's a Perl script that can help word-wrap text files if needed. I mentioned it here: https://gbatemp.net/threads/is-ther...ng-of-the-sort-for-the-ds.429369/post-6420775

As those file links are no longer valid, I've attached the script in question here. I'd recommend finding a way to run the Perl script on your computer, not going through the hassle of DSLinux as I was talking about in that post.

And just in case that file dies, here's the script itself. Save it as "wrapper.pl" or whatever you want really.

Perl:
#!/usr/local/perl/bin/perl

if(scalar(@ARGV) < 2) { die "Usage: $0 inputfile wrap-length\n"; }

open(FIN, "<@ARGV[0]") || die "Couldn't open input file: $!";
open(FOUT, ">@ARGV[0].wrap") || die "Couldn't created output file: $!";

my $str = "";
while(<FIN>) { $str .= $_; }

print FOUT WrapLines($str, @ARGV[1]);

sub WrapLines {
    local($input,$cols) = @_;

    local(@lines) = split(/\n\r|\r\n|\r|\n/,$input);

    local($output,$linebuf,$rest);

    foreach $line (@lines) {
        while (length($line) > $cols) {

            ($linebuf,$line) = ($line =~ /^(.{$cols})(.*)$/);

            $rest = "";
            if ($linebuf =~ /^(.*)\s+(\S*)$/) {
                ($linebuf,$rest) = ($1,$2);
            }

            $line = $rest . $line;
            $output .= "$linebuf\n";
        }
        $output .= "$line\n"
    }

    return $output;
}
 

Attachments

  • wrapper and perl.zip
    442.3 KB · Views: 31

Site & Scene News

Popular threads in this forum

General chit-chat
Help Users
  • No one is chatting at the moment.
    BigOnYa @ BigOnYa: Interesting. The macphone +2