361_FSstart 770 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. # FSstart
  2. minut += 1
  3. nosave = 1
  4. gs 'stat'
  5. '<center><B>Albida</B></center>'
  6. '.'
  7. '<B>Your current character</B>'
  8. '<<$FSpers>>'
  9. if FSpers = 1: act 'Load a saved game': gt 'KGZgame'
  10. act 'Play a new game':
  11. cls
  12. FSfemin = 0
  13. FSfigur = 0
  14. FScolor = 0
  15. FSface = 0
  16. FSskin = 0
  17. FShvost = 0
  18. dicktipe = 0
  19. FSdick = 18
  20. FSvagina = 0
  21. FStits = 0
  22. FStitsLine = 0
  23. FSpers = 1
  24. FSday = 0
  25. FShour = 8
  26. FSsup = 1
  27. FSplace = 0
  28. FSgem = 0
  29. FSmedkit = 0
  30. FSlvl = 1
  31. FSexp = 0
  32. FSstren = 10
  33. FSspeed = 10
  34. FSagil = 10
  35. FSreakt = 10
  36. FSvital = 10
  37. FSHP = FSvital * 10
  38. FSbrona = 0
  39. FSweaponDam = 0
  40. $FSname = input("Enter nickname")
  41. if $FSname <= 0:$FSname = 'Player'
  42. 'Character Name <<$FSname>>'
  43. act 'Play': gt 'FSgame'
  44. end
  45. act 'Exit': nosave = 0 & gt 'Komp','start'
  46. --- FSstart ---------------------------------