Hobby Basic, ένας μικρός διερμηνευτής για την κονσόλα των Windows

[Rygar]

Φίλε μου δεν έχω λόγια για αυτά που κάνεις.

 

[Blue Max]

Φίλε μου δεν έχω λόγια για αυτά που κάνεις.

Να 'σαι καλά, σε ευχαριστώ Rygar.

 

[Blue Max]

Το coffee project της ημέρας.

Tο Pullkoban ένα μίνιμαλ Sokoban, για την κονσόλα των Windows 10, γραμμένο στην Hobby BASIC.

Μπορεί να χρησιμεύσει ως οδηγός για μεγαλύτερο project.
Έχει την ιδιαιτερότητα πως πρόκειται για pull Sokoban, δηλαδή τραβάς αντί να σπρώχνεις κουτιά.
Διαθέτει 4 δωμάτια, κίνηση με το πληκτρολόγιο, αναίρεση τελευταίας κίνησης (undo move), ήχους.

Στον φάκελο GAMES\WIN10\PULLKOBAN.BAS θα βρείτε τον κώδικα του παιχνιδιού.



Have fun with Hobby BASIC.

 

[Blue Max]

Εγω εχω ακομα μια, με mystic bbs. Εννοειτε οτι η κινηση είναι χαλαρή εως ανύπαρκτη, αλλά τουλάχιστον κανω το κεφι μου. Το χω ρίξει και στο modding, οπότε, οποιαδηποτε κινηση προέρχεται απο εκεί ,μιας και έρχονται να δουν, να παρουν ιδεες και να κατεβασουν τα mods.

Αν θες ριξε μάτι ,θα δεις και το mod για το 16colo.rs. Η διευθυνση είναι :

telnet://andr01d.zapto.org:9999

Έπαιζα εχθές βράδυ λίγο με τα pipe colors της BBS. Επειδή με μπέρδευε λίγο το 0-15, 0-15 στην κονσόλα VS 00-15, 16-23 των pipes (ίσως επειδή είμαι πολλά χρόνια στην κονσόλα), αποφάσισα να το ξεδιαλύνω λίγο. Με την βοήθεια της Hobby BASIC.

Δημιούργησα ένα grid από τυχαία pipe colors.

    for y = 0 to 16
        for x = 0 to 5
            a$ = \
                '|' + PAD(STR(RND(15)+1),'0',2) + \
                '|' +PAD(STR(RND(7)+17),'0',2) + \
                ' ' + CHR(RND(26)+65)+ ' '
            print a$,
        next
        ? '|16'
    next

|15|18 F |12|21 Q |05|20 X |04|21 W |14|17 S |04|17 M |16
|01|23 R |14|23 N |06|22 R |15|21 U |11|23 B |09|18 E |16
|12|22 A |06|17 Q |01|19 X |10|21 D |08|17 W |13|22 W |16
|03|17 F |03|17 I |14|20 I |02|22 J |08|17 G |08|21 R |16
|11|17 I |02|19 G |10|21 A |03|21 S |11|17 X |07|19 C |16
|15|20 P |05|20 O |11|18 D |02|19 J |08|19 Q |09|18 N |16
|01|18 M |05|23 M |05|18 R |03|18 F |05|21 A |11|17 Q |16
|02|17 D |07|18 A |07|20 Y |04|23 Q |01|22 C |07|23 X |16
|11|17 F |14|23 Q |13|19 Q |02|17 R |05|18 Y |01|17 W |16
|04|20 M |05|17 Y |06|20 R |09|22 T |08|23 L |05|20 K |16
|06|20 F |15|17 M |01|23 S |08|19 R |15|21 Q |08|20 V |16
|13|23 D |06|21 N |08|19 M |13|18 Y |02|23 Y |09|23 F |16
|07|20 S |10|19 E |02|19 N |11|19 N |14|17 C |11|22 B |16
|13|22 Z |13|17 S |12|21 I |03|21 W |04|18 F |02|23 M |16
|08|23 J |05|19 Z |01|18 Y |11|22 K |09|21 C |06|17 T |16
|01|19 G |03|17 T |02|17 G |07|18 Q |11|20 D |02|22 N |16
|11|19 V |06|22 D |06|23 V |14|18 S |06|20 N |04|23 Y |16

Τo δοκίμασα στο BBS φόρουμ.



Μετά τα έκανα parse στην κονσόλα των Windows 10.

    %include "EXAMPLES\MISC\SCHEMES.BAS"
    change_theme(WINDOWS_NEW)

    path$ = PATH('OPEN')
    if LEN(path$) = 0 then end
    load path$,a$
    for i = 0 to LEN(a$)-1
        if MID(a$,i,1) = '|'
            v = VAL(MID(a$,i+1,2))
            if v < 16
                pen v
            else
                pen -1
                color v-16,V1
            endif
            i = i + 2
        endif
        if a$(i) <> '|' then print a$(i),
    next
    inkey

Τώρα, όλα είναι ξεκάθαρα

 

[xqtr]

Έπαιζα εχθές βράδυ λίγο με τα pipe colors της BBS. Επειδή με μπέρδευε λίγο το 0-15, 0-15 στην κονσόλα VS 00-15, 16-23 των pipes

Tα pipe colors 16-23, ειναι "εφευρεση" της mystic bbs και πιθανον αλλων bbs software, για να δεχονται σαν εντολη τα χρωματα. Σε αλλα προγραμματα εκαναν χρηση του δεκαεξαδικου συστηματος και ειχαν αντιστοιχα pipe colors του τυπου |FB <- foreground/background και χρησιμοποιουνταν σαν |0F <- Ασπρο κειμενο, μαυρο φοντο.

Βασικα ειναι θεμα συνηθειας... οσο πιο πολυ τα χρησιμοποιεις, τοσο πιο "φυσικο" σου φαινεται

 

[Blue Max]

Κάτι θα είχαν στο μυαλό τους. Tο FB μου φαίνεται λογικό και απλό σύστημα.

Τα Windows έχουν την color BF στην γραμμή εντολών από τα XP και μετά. Αλήθεια, πόσοι το γνωρίζουν;