home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / TOMB.ARC / CHRGEN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  48 lines
  1. 10 REMCHARACTER MAKER FOR ESCAPE FROM TIAMAT'S TOMB BY TIAMAT KAM'EN'EHAR
  2. 20 REM RELEASE 2.0
  3. 100 CLR:POKE53280,0:POKE53281,0:PRINT"[147]"
  4. 110 DIMX%(9),Y%(12):H1=0:H2=0:H3=0
  5. 190 GOSUB400
  6. 200 X%(0)=INT(RND(0)*10)+10
  7. 205 PRINT"STRENGTH    ",X%(0)
  8. 210 X%(1)=INT(RND(0)*10)+10
  9. 215 PRINT"AGILITY     ",X%(1)
  10. 220 X%(2)=INT(RND(0)*10)+10
  11. 225 PRINT"HIT POINTS  ",X%(2)
  12. 230 X%(3)=INT(RND(0)*10)+10
  13. 235 PRINT"INTELLIGENCE",X%(3)
  14. 240 X%(9)=X%(2)
  15. 250 Y%(0)=1:Y%(2)=1:Y%(10)=INT(RND(0)*10)+10:Y%(11)=INT(RND(0)*10)+10
  16. 255 PRINT
  17. 260 PRINT"FOOD        ",Y%(10)
  18. 265 PRINT"ZORKMIDS    ",Y%(11)
  19. 270 H3=1500+Y%(10)*10+Y%(11)
  20. 275 PRINT
  21. 280 PRINT"[197]DIT NAME"
  22. 283 PRINT"[204]OAD GAME
  23. 285 [153]"(null)AKE A NEW CHARACTER
  24. 290 PRINT"[211]AVE CHARACTER TO DISK
  25. 293 [153]"(null)UIT PROGRAM"
  26. 295 [153]
  27. 300 [161]A$:[139]A$[178]""[167]300
  28. 310 [139]A$[178]"E"[167][141]400
  29. 320 [139]A$[178]"L"[167]1000
  30. 330 [139]A$[178]"M"[167]100
  31. 340 [139]A$[178]"S"[167][141]600
  32. 345 [139]A$[178]"Q"[167][128]
  33. 350 [137]300
  34. 400 [133]"(null)AME>";B$:[139][195](B$)[177]12[167][153]"(null)NLY 12 CHARACTERS":[137]400
  35. 410 [142]
  36. 600 [159]8,8,8,"CHR."[170]B$[170]",S,W"
  37. 605 X%(5)[178]1:X%(6)[178]2
  38. 610 [152]8,H1:[152]8,H2:[152]8,H3
  39. 620 [129]X[178]0[164]9:[152]8,X%(X):[130]
  40. 630 [129]X[178]0[164]12:[152]8,Y%(X):[130]
  41. 640 [152]8,[199](255);[199](255);[199](255);[199](255);[199](6);[199](5)
  42. 650 [160]8:[142]
  43. 1000 [143] LOAD GAME
  44. 1010 [133]"(null)AVE THIS CHARACTER (Y/N)";A$
  45. 1020 [139]A$[178]"Y"[167][141]600
  46. 1030 [153]"LOAD"[170][199](34)[170]"TIAMAT'S TOMB"[170][199](34)[170]",8,1":[153]"ONONONON"
  47. 1040 [151]198,1:[151]631,131:[162]
  48.