FSstart.qsrc 888 B

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