Seeded Willpower in Lovers and Telephone. Some comments on spellList

locations/spellList.qsrc

@@ -42,6 +42,8 @@ spellTime['teleport'] = 20
 spellDiff['teleport'] = 20
 $spellName['teleport'] = 'Teleport'
 $spellDesc['teleport'] = 'You can move from one Fairy Circle to another.'
+$spellOptDesc['teleport'] = '$treeCircName'
+$spellOptVal['teleport'] = '$tpLocations'
 !regenerate
 spellMana['regenerate'] = 500
 spellTime['regenerate'] = 1
@@ -367,6 +369,9 @@ $spellName['greatflood'] = 'Great Flood'
 $spellDesc['greatflood'] = 'A huge flood of water fills the area absorbing mana from the enemy and giving you additional protection.'
 
 
+!-------------------------------------------------------------------------------------------
+! Pick Execution points for the spells
+
 ! List Combat Spells for use in fight scenerios
 $combatSpells[0] = 'fog'
 $combatSpells[1] = 'clone'
@@ -416,6 +421,8 @@ $nonComSpells[7] = 'shower'
 $nonComSpells[8] = 'makeup'
 $nonComSpells[9] = 'cosmetica'
 
+!-------------------------------------------------------------------------------------
+! Pick Learning Location for Spells
 
 ! Basic Spells
 $basicSpells[0] = 'fog'
@@ -480,6 +487,9 @@ $waterSpells[3] = 'sharkrockets'
 $waterSpells[4] = 'greatflood'
 
 
+!-------------------------------------------------------------------------------------------
+! Helper procedure to build Action bar for Learning Spells.
+
 if $ARGS[0] = 'teacherActions':
 	! Make Actions for learning spells
 	!	$ARGS[1] = the name of the array of spells

locations/telefon.qsrc

@@ -430,12 +430,31 @@ if $ARGS[0] = 'SvetaCallsNPC':
 		end
 	end
 
-	act 'I think we should break up...':
-		cla
-		'<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
-		gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
+	!!Willpower checks for resistance
+	if npc_rel[$Call4Date["NPC"]] <= 25:
+		$Call4Date["loverResist"] = 'easy'
+	elseif npc_rel[$Call4Date["NPC"]] <= 50:
+		$Call4Date["loverResist"] = 'medium'
+	else
+		$Call4Date["loverResist"] = 'hard'
+	end
+	gs 'willpower', 'misc', 'self', $Call4Date["loverResist"]
 
-		act 'Hangup':gt 'telefon', 'fin'
+	if will_cost <= pcs_willpwr:
+		act 'I think we should break up... (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+
+			'<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
+			gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
+
+			act 'Hang up': gt 'telefon', 'fin'
+		end
+	else
+		act 'I think we should break up... (<font color="red"><<will_cost>> Willpower</font>)':
+			'<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 	end
 
 	act 'Hangup':gt 'telefon', 'fin'
@@ -453,6 +472,18 @@ if $ARGS[0] = 'NPCCallsForDate':
 	Call4Date["ContactIndex"] = ARGS[1]
 	$Call4Date["NPC"] = $contact[Call4Date['ContactIndex']]
 
+	if npc_gender[$Call4Date["NPC"]] = 0:
+		$Call4Date["NPC-he"] = 'he'
+		$Call4Date["NPC-He"] = 'He'
+		$Call4Date["NPC-his"] = 'his'
+		$Call4Date["NPC-His"] = 'His'
+	else
+		$Call4Date["NPC-he"] = 'her'
+		$Call4Date["NPC-He"] = 'Her'
+		$Call4Date["NPC-his"] = 'hers'
+		$Call4Date["NPC-His"] = 'Hers'
+	end
+
 	!!Pick a nickname that caller will use for Sveta
 	$DateNickName[0] = 'cutie'
 	$DateNickName[1] = 'honey'
@@ -514,13 +545,34 @@ if $ARGS[0] = 'NPCCallsForDate':
 			act 'Hang up': gt 'telefon', 'fin'
 		end
 
-		act 'I think we should break up...':
-			cla
-			'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
-			gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
 
-			act 'Hang up': gt 'telefon', 'fin'
+		!!Willpower checks for resistance
+		if npc_rel[$Call4Date["NPC"]] <= 25:
+			$Call4Date["loverResist"] = 'easy'
+		elseif npc_rel[$Call4Date["NPC"]] <= 50:
+			$Call4Date["loverResist"] = 'medium'
+		else
+			$Call4Date["loverResist"] = 'hard'
+		end
+		gs 'willpower', 'misc', 'self', $Call4Date["loverResist"]
+
+		if will_cost <= pcs_willpwr:
+			act 'I think we should break up... (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+
+				'<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
+				gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
+
+				act 'Hang up': gt 'telefon', 'fin'
+			end
+		else
+			act 'I think we should break up... (<font color="red"><<will_cost>> Willpower</font>)':
+				'<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 		end
+
 	end
 
 	act 'Hang up (end relationship)':