437_FSstart 804 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  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 ---------------------------------