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 και μετά. Αλήθεια, πόσοι το γνωρίζουν;

 

[Blue Max]

Όλοι γνωρίζουμε την αγάπη του φίλτατου Rygar για τα κέικ.
Το αποτέλεσμα της υπερβολική κατανάλωσης των κέικ, είναι αυτό που βλέπετε στο avatar του.

+ = ♥


Στο Rygar eats Cake πρέπει να βοηθήσετε τον Rygan να φάει τα αγαπημένα του κέικ και να φτάσει σπίτι.

Το πρώτο μέρος του παιχνιδιού έχει μικρό βαθμό δυσκολίας, είναι φτιαγμένο περισσότερο για το fun της υπόθεσης.
Πρόκειται για push-pull Sokoban, δηλαδή σπρώχνεις, αλλά και τραβάς κουτιά, αλλάζοντας κατάσταση με το spacebar.
Διαθέτει 7 δωμάτια, κίνηση με το πληκτρολόγιο, αναίρεση τελευταίας κίνησης (undo move), ήχους.

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




Τα γραφικά του παιχνιδιού είναι σχεδιασμένα στο Draw, το σχεδιαστικό πρόγραμμα που είναι γραμμένο στην Hobby BASIC.



Have fun with Hobby BASIC.

 

[Uskoke]

και μπορούμε να συνδυάσουμε και το δικό μου χόμπι, να βγάλουμε φωτογραφία τον Rygar να τρώει κέικ, ενώ παίζει το παιχνίδι σου!

 

[Rygar]

Ρε δε μπάτε από δω χάμω!

Εγώ πάντως το παιχνίδι δεν το παίζω πριν διαβάσω ριβγιούζ στο μετακρίτικ και σίγουρα πριν βγει το ντέι ουάν πάτς.

 

[Blue Max]

Το συμβόλαιο πάντως αναφέρει και για δεύτερο μέρος.
Να αναφέρω όμως, για να μην υπάρχουν παρεξηγήσεις, πως ρώτησα τον φίλο Rygar αν μπορώ να δώσω τίτλο στο παζλ O Rygar και το Κέικ πριν κάνω την ανάρτηση.

Δύο ή τρία ακόμα παζλ έχω στα σκαριά, τώρα που έχω πάρει φόρα. Έχω αρκετό επαναχρησιμοποιήσιμο BASIC κώδικα, κάτι που μου λύνει τα χέρια. Μετά -μάλλον- θα συνεχιστεί η ανάπτυξη της Hobby BASIC.