Kirjautuminen

Haku

Tehtävät

Koodit: QB: Roolipelinimigeneraattori

Kirjoittaja: Antti Laaksonen

Kirjoitettu: 14.02.2002 – 14.02.2002

Tagit: teksti, koodi näytille, vinkki

Tämä ohjelma tekee halutun määrän roolipeleihin sopivia nimiä, tyyliin

Humber, Defgos, Cebforiv

Voi käyttää omien lempinimien keksimiseen tai vaikka jossain pelissä örkkien nimeäjänä.

RANDOMIZE TIMER

v$ = "aeiouy"
k$ = "bcdfghjklmnpqrstvwxz"

CLS
INPUT "Kuinka monta nimeä luodaan (oletus 10)? ", m%
IF m% = 0 THEN m% = 10

FOR i = 1 TO m%
  nimi$ = ""
  GOSUB arvok
  nimi$ = UCASE$(nimi$)
  GOSUB arvov
  GOSUB arvok
  GOSUB arvok
  GOSUB arvov
  GOSUB arvok
  IF INT(RND * 2) = 1 THEN
    GOSUB arvov
    GOSUB arvok
  END IF
  PRINT nimi$
NEXT

END

arvok:
nimi$ = nimi$ + MID$(k$, INT(RND * LEN(k$)) + 1, 1)
RETURN

arvov:
nimi$ = nimi$ + MID$(v$, INT(RND * LEN(v$)) + 1, 1)
RETURN

Kommentit

jpweb [15.02.2002 16:13:21]

#

Ihan hieno

arcatan [02.04.2002 17:34:00]

#

Kyllä toi nyt toimii mutta nuo nimet eivät ole kovin kummoisia.

(nimetön) [15.04.2002 16:24:09]

#

varsinkaan jos nimeks tulee ölfgjö

Mv [19.09.2002 21:21:41]

#

Hyldyllinen ohjelma, mutta todella arvaamaton. Milloin vain voi tulla nimestä täysi sekamelka. Kuitenkin mainio ohjelma!

(nimetön) [15.10.2002 16:34:05]

#

Ihan nokkela ohjelma. Voisin vaikka vaihtaa nimekseni Maknal. Nimistä saa johdonmukaisempia kun rajaa älyttömimmät aakkoset pois.

moptim [09.09.2007 08:40:01]

#

Hei älkääs ny aliarvioiko noita nimiä. Ölfgjö on loistonimi. Muuten, onks tän tuottamat nimet public domainia?

laillinen [19.10.2011 14:21:38]

#

moro,en oikeen keksi hyvii ja omaperäisii nimii tohon yhteen roolipeliin joten auttakaas vähä :D

Kirjoita kommentti

Muista lukea kirjoitusohjeet.
Tietoa sivustosta