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

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

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

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

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

1731705578144.png

Have fun with Hobby BASIC.
 
xqtr είπε:
Εγω εχω ακομα μια, με 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 φόρουμ.

1731942631322.png

Μετά τα έκανα 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

1731942796708.png

Τώρα, όλα είναι ξεκάθαρα :lol:
 
Blue Max είπε:
Έπαιζα εχθές βράδυ λίγο με τα 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 <- Ασπρο κειμενο, μαυρο φοντο.

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

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

1732140976063.png +1732141194294.png = ♥


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

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

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

1732187817751.png


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

1732141930424.png

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

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

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

RYGAR_EATS_CAKE.gif
 
Να φτιάξεις ένα με τον Uskoke να κυνηγάει πουλιά για να τα φωτογραφίσει και αυτά να τον κουτσουλάνε. Το κόνσεπτ είναι να αποφεύγει τις κουτσουλιές.
 
΄Ενα νέο παιχνίδι γραμμένο στην Hobby BASIC, το Mandy Crush.

Στo Mandy Crush έχετε τον έλεγχο ενός χαρακτήρα που αλλάζει θέσεις με τα αντικείμενα.
Σκοπός σας, να κάνετε οριζόντιες ή κάθετες τριάδες (η παραπάνω) από ίδια αντικείμενα.
Το παζλ έχει 16 δωμάτια, με αυξανόμενο βαθμό δυσκολίας.
Είναι remake ενός παιχνιδιού της PuzzleScript.

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

Windows 10 console screensshot.

1732409184188.png

Have fun with Hobby BASIC.
 
Be water, my friend. ~ Bruce Lee

Το Flow είναι ένα παζλ με πρωταγωνιστή το νερό.
Σκοπός σας να οδηγήσετε το νερό σε συγκεκριμένους στόχους.
Το νερό αλλάζει σχήμα όταν συναντάει εμπόδια.
Το παζλ έχει 20 δωμάτια, με αυξανόμενο βαθμό δυσκολίας.

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

Windows 10 console screensshot.

1732821222010.png

FLOW.gif

Have fun with Hobby BASIC.
 
Πολύ καιρό πριν, το Ξεχασμένο Βασίλειο ευημερούσε κάτω από την προστασία ενός αρχαίου μαγικού αντικειμένου: της Πέτρινης Καρδιάς. Ωστόσο, όταν ένας σκοτεινός μάγος προσπάθησε να ελέγξει τη δύναμή του, το βασίλειο καταράστηκε και η Καρδιά μεταμορφώθηκε σε μαγικά κλειδιά, το καθένα κρυμμένο μέσα στα επικίνδυνα μπουντρούμια του κάστρου του μάγου. Εσύ, που επιλέχτηκες από τη μοίρα, έχεις την αποστολή να ανακτήσεις αυτά τα κλειδιά για να αποκαταστήσεις την Καρδιά και να σώσεις το βασίλειο από το αιώνιο σκοτάδι.

Ένα νέο παζλ γραμμένο στην Hobby BASIC έκδοση 2.0.2.

Το Heartstone είναι ένα block-pushing παζλ που λαμβάνει μέρος στα μπουντρούμια ενός πύργου.
Τα παζλ γίνονται πιο δύσκολα σταδιακά, έτσι ώστε ο παίκτης να απολαμβάνει το παιχνίδι.

Στο παιχνίδι υπάρχει η αίσθηση της περιπέτειας αφού το storyline θέλει τον ήρωα να μαζεύει κλειδιά ώστε να ξεκλειδώνει τις πόρτες στα μπουντρούμια αλλά και να μαζεύει experience points. Το γραφικά είναι σχεδιασμένα στο DRAW (το σχεδιαστικό πρόγραμμα που είναι γραμμένο στην Hobby BASIC), το storyline έγινε με την βοήθεια ChatGPT, και το παιχνίδι ντύνεται με επιβλητικό soundtrack.

Σε αντίθεση με τα coffee project που συχνά παρουσιάζω, και απαιτούν μερικές ώρες ελεύθερου χρόνου (αυτό μεταφράζεται σε 1, ή το πολύ 2 μέρες), για το Heartstone χρειάστηκα περίπου 1 εβδομάδα.

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

Windows 10 console screensshot.

1733438884479.png

HEARTSTONE_.gif

Have fun with Hobby BASIC.
 
Τελευταία επεξεργασία:
Ένα νέο παζλ γραμμένο στην Hobby BASIC έκδοση 2.0.2.

Το Gravibox είναι ένα παζλ τύπου block-pushing για την κονσόλα των Windows 10.

Στο παιχνίδι, θα βρείτε τα κλασικά κιβώτια που πρέπει να τοποθετηθούν στις σωστές θέσεις, καθώς και "βαρυτικά" κιβώτια που κινούνται σε τέσσερις κατευθύνσεις. Αυτά τα κιβώτια, μόλις βρουν ελεύθερο χώρο, συνεχίζουν να κινούνται ασταμάτητα, προσφέροντας μια επιπλέον πρόκληση στους γρίφους.

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

Windows 10 console screensshot.

1733698511672.png

Have fun with Hobby BASIC.
 
To coffee project της ημέρας.

Πρόκειται για ένα μίνιμαλ push-pull Sokoban. γραμμένο στην Hobby BASIC έκδοση 2.0.3.

Διαθέτει 15 δωμάτια, κίνηση με το πληκτρολόγιο, αναίρεση τελευταίας κίνησης (undo move), ήχους.

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

Windows 10 console screensshot.

1733866337368.png

Have fun with Hobby BASIC.
 
To ΚΑΙΜΑ είναι ένα arcade παζλ, γραμμένο στην Hobby BASIC έκδοση 2.0.3.

Οδηγίες:
  • Περάστε από όλα τα πλακίδια σε κάθε περιοχή πριν χρησιμοποιήσετε το portal για να τηλεμεταφερθείτε στην επόμενη περιοχή.
  • Μην αφήσετε τους ήρωες να σας σκοτώσουν! Πατήστε το X την κατάλληλη στιγμή για να τους εξουδετερώσετε.
  • Οποιοδήποτε portal μπορεί να σας μεταφέρει στην επόμενη περιοχή.
Λίγα λόγια για το παιχνίδι:

Το ΚΑΙΜΑ αποτελεί ένα ακόμα παράδειγμα των δυνατοτήτων του μικρού BASIC διερμηνευτή που έχω αναπτύξει.
Η Hobby BASIC, σε συνδυασμό με το DRAW, καθιστά ιδιαίτερα εύκολη τη δημιουργία απλών παιχνιδιών με γραφικά για την κονσόλα.

Τους τελευταίους μήνες, οι ενημερώσεις στον διερμηνευτή επικεντρώνονται κυρίως σε διορθώσεις σφαλμάτων (bug fixes), ενώ ο βασικός κορμός παραμένει σταθερός. Ωστόσο, βρήκα τον χρόνο να εξερευνήσω περαιτέρω τις δυνατότητές του και να δημιουργήσω πιο καλά παραδείγματα.

Το ΚΑΙΜΑ, όπως και τα προηγούμενα, είναι ένα από αυτά τα παραδείγματα.

Windows 10 console screensshot.

1734391636954.png

Have fun with Hobby BASIC.
 
To coffee project της ημέρας.

2D World Generation γραμμένο στην Hobby BASIC έκδοση 2.0.3.

Δοκιμάζω να δω τι μπορώ να κάνω με τη Hobby BASIC.
Έγραψα ένα μικρό πρόγραμμα που δημιουργεί τυχαίους κόσμους.
Δεν υπάρχει κάποιος στόχος – απλά εξερευνήστε.

Χρησιμοποιήστε τα βελάκια για να κινηθείτε.
Πατήστε το spacebar για να δημιουργήστε έναν νέο κόσμο.

Στον φάκελο EXAMPLES\MISC\2DWORLD.BAS θα βρείτε τον κώδικα του παιχνιδιού.

Windows 10 console screensshot.

1734606495409.png

2DWORLD.gif

Have fun with Hobby BASIC.
 
Blue Max είπε:
To coffee project της ημέρας.

2D World Generation γραμμένο στην Hobby BASIC έκδοση 2.0.3.

Δοκιμάζω να δω τι μπορώ να κάνω με τη Hobby BASIC.
Έγραψα ένα μικρό πρόγραμμα που δημιουργεί τυχαίους κόσμους.
Δεν υπάρχει κάποιος στόχος – απλά εξερευνήστε.

Χρησιμοποιήστε τα βελάκια για να κινηθείτε.
Πατήστε το spacebar για να δημιουργήστε έναν νέο κόσμο.

Στον φάκελο EXAMPLES\MISC\2DWORLD.BAS θα βρείτε τον κώδικα του παιχνιδιού.

Windows 10 console screensshot.

Προβολή συνημμένου 289525

Προβολή συνημμένου 289523

Have fun with Hobby BASIC.
Κάντε κλικ για μεγέθυνση ...

Τι ωραίο φίλε αυτό το πρόγραμμα που έφτιαξες και με τα γραφικά 2D είναι πολύ γλυκα. Εντυπωσιακές οι δυνατότητες της Hobby Basic όσο εξελίσσεται!

Το να φτιάχνει η Hobby Basic μόνη της τυχαίους κόσμους είναι συναρπαστικό!

Πες με φαντασμένο αλλά... Το να αρχίζει και να ενεργεί και να δημιουργεί διαφορετικούς κόσμους μόνη της η Hobby Basic μου μοιάζει σαν να έχει εξελίξει η ΗΒ μια βασική ΑΙ νοημοσύνη
 
Τελευταία επεξεργασία:
Πρέπει να συνδεθείτε ή να εγγραφείτε για να απαντήσετε εδώ.
Πίσω
Μπλουζα