FSstart.qsrc 875 B

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