Browse Source

Added Spells "Shower" and "Cosmetica". "Shower" does basic cleaning. "Cosmetica" is a more advanced version that does thorough cleaning including enema, hair and makeup, and shaving.

KeyMasterOfGozer 5 years ago
parent
commit
53a5525eda
2 changed files with 85 additions and 1 deletions
  1. 61 0
      locations/spell.qsrc
  2. 24 1
      locations/spellList.qsrc

+ 61 - 0
locations/spell.qsrc

@@ -144,6 +144,67 @@ if $ARGS[0] = 'berserk':
 	killvar 'staminPercent'
 end
 
+if $ARGS[0] = 'shower':
+	if SuccessValue > 0:
+		! Take a Shower
+		gs 'cum_cleanup'
+		lactation['lactmess'] = 0
+		pcs_sweat = 10
+		! Brush Teeth
+		pcs_breath = 1
+		'<b><font color = green>You feel clean and refreshed.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+end
+
+if $ARGS[0] = 'cosmetica':
+	if SuccessValue > 0:
+		! Take a Shower
+		gs 'cum_cleanup'
+		lactation['lactmess'] = 0
+		pcs_sweat = 10
+		! Brush Teeth
+		pcs_breath = 1
+		! Remove graffiti from self
+		body_write = 0
+		face_write = 0
+		! Enema
+		klismaday = daystart
+		klismaday1 = 1
+		! Brush hair
+		pcs_hairbsh = 1
+		! Apply Makeup
+		pcs_makeup = 3
+		!if shave_menu = 0:nothing
+		!if shave_menu = 1:legs and pussy
+		!if shave_menu = 2:pussy only
+		!if shave_menu = 3:legs only
+		if shave_menu = 1 or shave_menu = 3:
+			! Shave Legs
+			pcs_leghair = 0
+		end
+		if shave_menu = 1 or shave_menu = 2:
+			! Shave Pubes
+			if pubestyle = 1:
+				pcs_pubes = 0
+			elseif pubestyle >= 2 and pubestyle <= 7:
+				pcs_pubes = 11
+			elseif pubestyle = 8:
+				pcs_pubes = 16
+			elseif pubestyle = 9:
+				pcs_pubes = 21
+			elseif pubestyle = 10:
+				pcs_pubes = 26
+			end
+		end
+
+		'<b><font color = green>You feel beautiful.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+end
+
 if $ARGS[0] = 'reset':
 	cla
 	!Create mist

+ 24 - 1
locations/spellList.qsrc

@@ -13,6 +13,7 @@
 ! There are also defined lists of spells grouped together
 !	$combatSpells = Spells that can be used in Combat
 !	$nonComSpells = Non-Combat Spells, ones that can be executed in any location.
+!	---
 !	$basicSpells = basic spells that are taught by Tatiana
 !	$fireSpells = Fire-based spells
 !	$electSpells = Electricity based spells
@@ -20,7 +21,13 @@
 !	$airSpells = Air based spells
 !	$waterSpells = Water based spells
 !
-! To create a new spell, fill out the meta-data as listed above, then create a matching section in the "spell" location for it
+! To create a new spell...
+!	1) fill out the meta-data as listed above, this describes stats abotu the spell, cost, difficulty, desc, etc.
+!	2) Typically, a spell will be in one of $combatSpells or $nonComSpells (this picks how the spell is executed
+!		by the user), andcalso in one other of the lists ($basicSpells, $fireSpells, etc.), which picks where you
+!		learn the spells.
+!	3) Then create a matching section in the "spell" location for it.  This function in "spell" describes what the
+!		spell actually does in game mechanics
 
 
 !teleport
@@ -47,6 +54,18 @@ spellTime['berserk'] = 1
 spellDiff['berserk'] = 30
 $spellName['berserk'] = "Berserker Rage"
 $spellDesc['berserk'] = "Enrage yourself with supernatural strength, speed, and endurance."
+!shower
+spellMana['shower'] = 500
+spellTime['shower'] = 1
+spellDiff['shower'] = 1
+$spellName['shower'] = "Shower"
+$spellDesc['shower'] = "Clean and refresh yourself as if you have taken a shower."
+!cosmetica
+spellMana['cosmetica'] = 10000
+spellTime['cosmetica'] = 5
+spellDiff['cosmetica'] = 50
+$spellName['cosmetica'] = "Cosmetica"
+$spellDesc['cosmetica'] = "Clean and tidy yourself, completely beautifying yourself; hair, makeup, grooming of all kinds."
 !glamour
 spellMana['glamour'] = 500
 spellTime['glamour'] = 1
@@ -314,6 +333,8 @@ $nonComSpells[0] = 'heal'
 $nonComSpells[1] = 'regenerate'
 $nonComSpells[2] = 'painblock'
 $nonComSpells[3] = 'berserk'
+$nonComSpells[4] = 'shower'
+$nonComSpells[5] = 'cosmetica'
 
 
 ! Basic Spells
@@ -327,6 +348,8 @@ $basicSpells[6] = 'haste'
 $basicSpells[7] = 'regenerate'
 $basicSpells[8] = 'painblock'
 $basicSpells[9] = 'berserk'
+$basicSpells[10] = 'shower'
+$basicSpells[11] = 'cosmetica'
 
 
 ! Elemental Spell Groups