🚀 go-pugleaf

Hi Everyone,

Thanks for all the comments.
I have modified the code to address some of them.
( some were too advanced for me at this stage )

More comments welcome!

Thank you,

KezL

\ CHATTERBOX PROGRAM WITH A MOOD SETTING
\ INTERACTING WITH IT CHANGES THE MOOD
\ AND GIVES OUTPUT DEPENDING ON MOOD
\ AND INPUT. USES NON-STANDARD WORD ,"

0 CONSTANT HAPPY
1 CONSTANT SAD
2 CONSTANT BORED
3 CONSTANT ANGRY

0 CONSTANT INSULT
1 CONSTANT FLATTER
2 CONSTANT BORE
3 CONSTANT AMUSE

\ NEWSTATES: STATE TRANSITION TABLE 4 X 4 X 1 CELLS
\ Current Mood: HAPPY SAD BORED ANGRY
                                                                             
                  \ INPUT:
CREATE NEWSTATES  ANGRY , SAD ,  SAD ,  ANGRY , \ INSULT ME
           HAPPY , HAPPY , SAD ,  BORED , \ FLATTER ME
           BORED , SAD ,  BORED , ANGRY , \ BORE ME
           HAPPY , HAPPY , ANGRY , BORED , \ AMUSE ME

\ COMMENTS: OUTPUT TABLE 4 X 4 X 40 BYTES
CREATE COMMENTS  ," I DON'T LIKE YOU ANY MORE!             "
   ," KICK ME WHEN I'M DOWN THEN YOU FIEND!  "
   ," LEAVE ME ALONE!                        "
   ," GO TO HECK!                            "
   ," THANK YOU                              "
   ," I FEEL BETTER NOW                      "
   ," I KNOW YOU DON'T MEAN IT               "
   ," YEAH RIGHT WHATEVER                    "
   ," YAWN                                   "
   ," SIGH                                   "
   ," I'M SO BORED                           "
   ," GET LOST!                              "
   ," HE HE                                  "
   ," THANKS FOR CHEERING ME UP              "
   ," I'M NOT IN THE MOOD FOR JOKES          "
   ," YOU'RE SO FUNNY - NOT!                 "

VARIABLE MOOD
HAPPY MOOD !

: INDEX ( input entrysize rowlength -- offset )
  ROT * MOOD @ + * ;
: OUTPUT ( input -- input entrysize rowlength ) 40 4 ;
: NEWSTATE ( input -- input entrysize rowlength ) 4 4 ;

: COMMENT ( input -- input)
 CR DUP
 OUTPUT INDEX COMMENTS +
 COUNT TYPE
;
: SET-MOOD ( input -- )
 NEWSTATE INDEX NEWSTATES +
 @ MOOD !
;

: REPORT ( -- )  \ REPORTS MOOD. USAGE: REPORT
 CR ." I AM "
 CASE MOOD @
  HAPPY OF ." HAPPY" ENDOF
  SAD OF ." SAD" ENDOF
  BORED OF ." BORED" ENDOF
  ANGRY OF ." ANGRY" ENDOF
 ENDCASE
 CR
;


: ME ( input -- ) \ INTERACT. USAGE INSULT|FLATTER|BORE|AMUSE ME
 COMMENT SET-MOOD REPORT ;