Extended ASCII characters - GameCreators Forum

Author

Message

Jaq

19

Years of Service

User Offline

Joined: 18th Jun 2007

Location:

Posted: 22nd May 2010 12:40 Edited at: 22nd May 2010 17:40

Link

I'm working on something reminiscent of an old DOS era game, but can't seem to get the IDE to accept input of DOS ASCII characters for menu borders and whatnot.

Example:

alt-201 should output "╔" for an upper left double border..

But instead I only get "+".

Is this a limitation of the IDE or am I missing something simple? I've tried copying the correct characters from notepad but they revert to the incorrect characters upon pasting.. any ideas?

edit: The same thing happens in the default editor and in BlueIDE.

Back to top

Profile PM

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 22nd May 2010 17:43 Edited at: 22nd May 2010 22:23

Link

This is a limitation of the IDE if you can't change the charset of the editor.

In DBP you will need to use the extra parameter for set text font: OEM_CHARSET 255

So you will need to type something along like

+ Code Snippet

set text font "SYSTEM", 255
set text size 26
print chr$(201)

wait key
end

Cheers!
Sven B

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 22nd May 2010 17:51 Edited at: 22nd May 2010 17:52

Link

I'm guessing someone (Jaq) asked a question and Sven answer it, but for some reason I can't see the post, anyone else?

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Jaq

19

Years of Service

User Offline

Joined: 18th Jun 2007

Location:

Posted: 22nd May 2010 18:08

Link

I edited the original post - it says new members must be approved..

Anyway, Sven's code does work well for inputting individual characters by ASCII code, but unfortunately the IDE is still being picky about doing it straight from print statements..

i.e. print "╔════════╗" for the top section of a small menu.

the IDE will instead display print "++++++++++"

Back to top

Profile PM

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 22nd May 2010 22:22 Edited at: 22nd May 2010 22:22

Link

Well I would suggest something along the lines of a function that "parses" a border:

set text font "Courier New", 255
set text size 26

print DoubleBorder("l-------t--------r")
print DoubleBorder("|") + " Hello " + DoubleBorder("|") + " World  " + DoubleBorder("|")
print DoubleBorder("b-------+--------d")
print DoubleBorder("|") + " With  " + DoubleBorder("|") + " Border " + DoubleBorder("|")
print DoubleBorder("L-------T--------R")

wait key
end

function DoubleBorder(s$)

remstart
        l = left top border
        r = right top border
        L = left bottom border
        R = right bottom border
        - = horizontal border
        | = vertical border
        + = cross section border
        b = T to the right
        d = T to the left
        t = T to the bottom
        T = T to the top
    remend

`Change all character that are known
    for i = 1 to len(s$)
        select mid$(s$, i)
            case "l" : ret$ = ret$ + chr$(201) : endcase
            case "r" : ret$ = ret$ + chr$(187) : endcase
            case "L" : ret$ = ret$ + chr$(200) : endcase
            case "R" : ret$ = ret$ + chr$(188) : endcase
            case "-" : ret$ = ret$ + chr$(205) : endcase
            case "|" : ret$ = ret$ + chr$(186) : endcase
            case "+" : ret$ = ret$ + chr$(206) : endcase
            case "b" : ret$ = ret$ + chr$(204) : endcase
            case "d" : ret$ = ret$ + chr$(185) : endcase
            case "t" : ret$ = ret$ + chr$(203) : endcase
            case "T" : ret$ = ret$ + chr$(202) : endcase
            case default
                ret$ = ret$ + mid$(s$, i)
            endcase
        endselect
    next i
endfunction ret$

+ Code Snippet

set text font "Courier New", 255
set text size 26

print DoubleBorder("l-------t--------r")
print DoubleBorder("|") + " Hello " + DoubleBorder("|") + " World  " + DoubleBorder("|")
print DoubleBorder("b-------+--------d")
print DoubleBorder("|") + " With  " + DoubleBorder("|") + " Border " + DoubleBorder("|")
print DoubleBorder("L-------T--------R")

wait key
end

function DoubleBorder(s$)

    remstart
        l = left top border
        r = right top border
        L = left bottom border
        R = right bottom border
        - = horizontal border
        | = vertical border
        + = cross section border
        b = T to the right
        d = T to the left
        t = T to the bottom
        T = T to the top
    remend

    `Change all character that are known
    for i = 1 to len(s$)
        select mid$(s$, i)
            case "l" : ret$ = ret$ + chr$(201) : endcase
            case "r" : ret$ = ret$ + chr$(187) : endcase
            case "L" : ret$ = ret$ + chr$(200) : endcase
            case "R" : ret$ = ret$ + chr$(188) : endcase
            case "-" : ret$ = ret$ + chr$(205) : endcase
            case "|" : ret$ = ret$ + chr$(186) : endcase
            case "+" : ret$ = ret$ + chr$(206) : endcase
            case "b" : ret$ = ret$ + chr$(204) : endcase
            case "d" : ret$ = ret$ + chr$(185) : endcase
            case "t" : ret$ = ret$ + chr$(203) : endcase
            case "T" : ret$ = ret$ + chr$(202) : endcase
            case default
                ret$ = ret$ + mid$(s$, i)
            endcase
        endselect
    next i
endfunction ret$

Of course I'm just playing with it here so you might want to use a different kind of parser.

Cheers!
Sven B

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Extended ASCII characters