Zelaron Gaming Forum - View Single Post

Lenny · 03:34 PM

Like.. mad libs? I'm not sure what you're asking for here, but it doesn't sound like something that would be typically done with RPG Maker.

INPUT NAME

John Doe The Third

(*)Male
( )Female

---

1) [Name] is a stupid moron. Yes [he/she] is.
2) [Name] is currently on fire.
3) I would like to punch [Name] in [his/her] face.

---

You can pretty much write a QBASIC program for that.. (Threw this one together in a few minutes, probably has some error somewhere, but you get the point:)

Code:

REM --------------Declare Variables-----------------


DIM YName AS STRING
DIM Gender AS STRING
DIM HeShe AS STRING
DIM HimHer AS STRING
DIM HisHer AS STRING


REM --------------Input Stuff-----------------

NameInput:
INPUT "Input a name:      "; YName$



GenderInput:
INPUT "Input a gender (M/F)    "; Gender$
Gender = UCASE$(Gender)
Gender = LEFT$(Gender, 1)


IF NOT ((Gender = "M") OR (Gender = "F")) THEN GOTO GenderInput


REM --------- Set gender-specific words ------------

IF Gender = "M" THEN HeShe = "he" ELSE HeShe = "she"
IF Gender = "M" THEN HimHer = "him" ELSE HimHer = "her"
IF Gender = "M" THEN HisHer = "his" ELSE HeShe = "her"


REM ------------------Output-------------------

CLS

PRINT "1) "; YName; " is a moron.   Yes "; HeShe; " is."
PRINT "2) "; YName; " is currently on fire."
PRINT "3) I would like to punch "; YName; " in "; HisHer; " face."

Edit: Fixed again..