Advertisement
TheFastFish

SB golf: fantasy name generator

Oct 28th, 2015
407
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. DEF N(L)C$="hybcdfgjklmnpqrstvwxzaeiou"J=L/2 K=-1IF L MOD 2THEN K=RND(J)
  2. FOR I=0TOJ-1O$=O$+CHR$(ASC(C$[RND(21)])-32*!I)+C$[RND(5)+21]+C$[RND(2)]*(K==I)NEXT RETURN O$END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement