1
0
anjuna krokus 4 өдөр өмнө
parent
commit
099e32d708

+ 74 - 74
locations/komp_camgirl.qsrc

@@ -55,7 +55,7 @@ if $ARGS[0] = 'start':
 			gs 'arousal', 'end'
 			gs 'arousal', 'end'
 			gs 'stat'
 			gs 'stat'
 			gt 'Komp','browse'
 			gt 'Komp','browse'
-		end	
+		end
 	end
 	end
 end
 end
 
 
@@ -126,9 +126,9 @@ if $ARGS[0] = 'waitclients':
 	else
 	else
 		img_source = 6
 		img_source = 6
 	end
 	end
-	
+
 	'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore' + img_source + '.jpg"></center>'
 	'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore' + img_source + '.jpg"></center>'
-	
+
 	if camclients = 0:
 	if camclients = 0:
 		'You take a moment of rest, unfortunately, you currently have no viewers.'
 		'You take a moment of rest, unfortunately, you currently have no viewers.'
 	else
 	else
@@ -183,7 +183,7 @@ if $ARGS[0] = 'waitclients':
 			*clr & cla
 			*clr & cla
 
 
 			mfcclients += rand(-1,1)
 			mfcclients += rand(-1,1)
-			minut += 5	
+			minut += 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'komp_camgirl', 'donate'
 			gs 'komp_camgirl', 'donate'
 			gs 'stat'
 			gs 'stat'
@@ -206,7 +206,7 @@ if $ARGS[0] = 'waitclients':
 			end
 			end
 		else
 		else
 			act 'Refuse to take off your bra (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			act 'Refuse to take off your bra (<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
 	end
 	if backmfc = 1 and clientask >= 81 and clientask < 91:
 	if backmfc = 1 and clientask >= 81 and clientask < 91:
 		*clr & cla
 		*clr & cla
@@ -216,7 +216,7 @@ if $ARGS[0] = 'waitclients':
 			*clr & cla
 			*clr & cla
 			mfcclients -= 1
 			mfcclients -= 1
 			backmfc = 0
 			backmfc = 0
-			minut += 5	
+			minut += 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'komp_camgirl', 'donate'
 			gs 'komp_camgirl', 'donate'
 			gs 'stat'
 			gs 'stat'
@@ -257,7 +257,7 @@ if $ARGS[0] = 'waitclients':
 			*clr & cla
 			*clr & cla
 
 
 			mfcclients += rand(-1,1)
 			mfcclients += rand(-1,1)
-			minut += 5	
+			minut += 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'komp_camgirl', 'donate'
 			gs 'komp_camgirl', 'donate'
 			gs 'stat'
 			gs 'stat'
@@ -269,7 +269,7 @@ if $ARGS[0] = 'waitclients':
 			gs 'stat'
 			gs 'stat'
 			act 'Continue': gt 'komp_camgirl','waitclients'
 			act 'Continue': gt 'komp_camgirl','waitclients'
 		end
 		end
-		
+
 		gs 'willpower', 'exhib', 'resist', 'hard'
 		gs 'willpower', 'exhib', 'resist', 'hard'
 		if will_cost <= pcs_willpwr:
 		if will_cost <= pcs_willpwr:
 			act 'Refuse to take off your panties (<<will_cost>> Willpower)':
 			act 'Refuse to take off your panties (<<will_cost>> Willpower)':
@@ -280,7 +280,7 @@ if $ARGS[0] = 'waitclients':
 			end
 			end
 		else
 		else
 			act 'Refuse to take off your panties (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			act 'Refuse to take off your panties (<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
 	end
 	if topmfc = 0 and clientask >= 95 and clientask < 99:
 	if topmfc = 0 and clientask >= 95 and clientask < 99:
 		menu_off = 1
 		menu_off = 1
@@ -291,7 +291,7 @@ if $ARGS[0] = 'waitclients':
 			mfcclients = 0
 			mfcclients = 0
 
 
 			backmfc = 0
 			backmfc = 0
-			minut += 5	
+			minut += 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'komp_camgirl', 'donate'
 			gs 'komp_camgirl', 'donate'
 			gs 'stat'
 			gs 'stat'
@@ -325,7 +325,7 @@ if $ARGS[0] = 'waitclients':
 			*clr & cla
 			*clr & cla
 			mfcclients = 0
 			mfcclients = 0
 
 
-			minut += 5	
+			minut += 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'komp_camgirl', 'donate'
 			gs 'komp_camgirl', 'donate'
 			gs 'stat'
 			gs 'stat'
@@ -345,7 +345,7 @@ if $ARGS[0] = 'waitclients':
 			end
 			end
 			act 'Continue': gt 'komp_camgirl','waitclients'
 			act 'Continue': gt 'komp_camgirl','waitclients'
 		end
 		end
-		
+
 		gs 'willpower', 'exhib', 'resist', 'hard'
 		gs 'willpower', 'exhib', 'resist', 'hard'
 		if will_cost <= pcs_willpwr:
 		if will_cost <= pcs_willpwr:
 			act 'Ignore him (<<will_cost>> Willpower)':
 			act 'Ignore him (<<will_cost>> Willpower)':
@@ -365,7 +365,7 @@ if $ARGS[0] = 'waitclients':
 		act 'Show him your vagina':
 		act 'Show him your vagina':
 			*clr & cla
 			*clr & cla
 			mfcclients = 0
 			mfcclients = 0
-			minut += 5	
+			minut += 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'komp_camgirl', 'donate'
 			gs 'komp_camgirl', 'donate'
 			gs 'stat'
 			gs 'stat'
@@ -400,7 +400,7 @@ if $ARGS[0] = 'waitclients':
 			end
 			end
 		else
 		else
 			act 'Ignore him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			act 'Ignore him (<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
 	end
 	if backmfc = 0 and pcs_ass >= 30 and webpopular >= 50 and clientask = 80:
 	if backmfc = 0 and pcs_ass >= 30 and webpopular >= 50 and clientask = 80:
 		menu_off = 1
 		menu_off = 1
@@ -411,7 +411,7 @@ if $ARGS[0] = 'waitclients':
 			mfcclients = 0
 			mfcclients = 0
 
 
 			backmfc = 0
 			backmfc = 0
-			minut += 5	
+			minut += 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'komp_camgirl', 'donate'
 			gs 'komp_camgirl', 'donate'
 			gs 'stat'
 			gs 'stat'
@@ -425,7 +425,7 @@ if $ARGS[0] = 'waitclients':
 					'Oh no! Your face turns a deep red... you''re so ashamed right now! You try to calm the chat down, but the vulgar comments just keep coming and coming.'
 					'Oh no! Your face turns a deep red... you''re so ashamed right now! You try to calm the chat down, but the vulgar comments just keep coming and coming.'
 					'At least the viewer who promised to donate did, so you''re a few tokens richer.'
 					'At least the viewer who promised to donate did, so you''re a few tokens richer.'
 
 
-					gs 'arousal', 'porn', -5 
+					gs 'arousal', 'porn', -5
 					gs 'stat'
 					gs 'stat'
 
 
 				else
 				else
@@ -460,7 +460,7 @@ if $ARGS[0] = 'waitclients':
 			end
 			end
 		else
 		else
 			act 'Ignore him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			act 'Ignore him (<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
 	end
 
 
 	if webpopular >= 15 and pcs_ass >= 15 and clientask = 89:
 	if webpopular >= 15 and pcs_ass >= 15 and clientask = 89:
@@ -486,7 +486,7 @@ if $ARGS[0] = 'waitclients':
 		*clr & cla
 		*clr & cla
 		gt 'kompMFCtwo', 86
 		gt 'kompMFCtwo', 86
 	end
 	end
-	
+
 	if webpopular >= 50 and pcs_vag + pcs_ass > 0 and alko >= 4 and clientask = 85:
 	if webpopular >= 50 and pcs_vag + pcs_ass > 0 and alko >= 4 and clientask = 85:
 		menu_off = 1
 		menu_off = 1
 		*clr & cla
 		*clr & cla
@@ -540,7 +540,7 @@ if $ARGS[0] = 'waitclients':
 		act 'Dance':
 		act 'Dance':
 			menu_off = 1
 			menu_off = 1
 			*clr & cla
 			*clr & cla
-			minut += 5	
+			minut += 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'stat'
 			gs 'stat'
 			if topmfc = 1 and backmfc = 1:
 			if topmfc = 1 and backmfc = 1:
@@ -562,7 +562,7 @@ if $ARGS[0] = 'waitclients':
 			gs 'stat'
 			gs 'stat'
 			act 'Continue': gt 'komp_camgirl','waitclients'
 			act 'Continue': gt 'komp_camgirl','waitclients'
 		end
 		end
-	end	
+	end
 
 
 	if topmfc = 1 and backmfc = 1 and clientask < 74:
 	if topmfc = 1 and backmfc = 1 and clientask < 74:
 		act 'Perform a striptease':
 		act 'Perform a striptease':
@@ -581,11 +581,11 @@ if $ARGS[0] = 'waitclients':
 			gs 'stat'
 			gs 'stat'
 			act 'Continue': gt 'komp_camgirl','waitclients'
 			act 'Continue': gt 'komp_camgirl','waitclients'
 		end
 		end
-	end	
+	end
 
 
 	if topmfc = 1 and clientask < 74:
 	if topmfc = 1 and clientask < 74:
 		act 'Take off your bra':
 		act 'Take off your bra':
-			menu_off = 1 
+			menu_off = 1
 			*clr & cla
 			*clr & cla
 			topmfc = 0
 			topmfc = 0
 			minut += 5
 			minut += 5
@@ -614,7 +614,7 @@ if $ARGS[0] = 'waitclients':
 			*clr & cla
 			*clr & cla
 			minut += 5
 			minut += 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
 			gs 'internet_mobile', 'use_internet', $subs, 5
-            gs 'komp_camgirl', 'views'
+			gs 'komp_camgirl', 'views'
 			gs 'komp_camgirl', 'donate'
 			gs 'komp_camgirl', 'donate'
 			gs 'stat'
 			gs 'stat'
 
 
@@ -761,78 +761,78 @@ if $ARGS[0] = 'IncreaseFame':
 	gs 'komp_camgirl', 'UpdateCamBonus'
 	gs 'komp_camgirl', 'UpdateCamBonus'
 	FameIncMin = CamBonus / 30
 	FameIncMin = CamBonus / 30
 	FameIncMax = CamBonus / 15
 	FameIncMax = CamBonus / 15
-    fame['city_social'] += rand(FameIncMin, FameIncMax)
-    fame['city_sexind'] += rand(FameIncMin, FameIncMax)
+	fame['city_social'] += rand(FameIncMin, FameIncMax)
+	fame['city_sexind'] += rand(FameIncMin, FameIncMax)
 	webpopular = (fame['city_sexind'] + fame['city_social']) / 5
 	webpopular = (fame['city_sexind'] + fame['city_social']) / 5
 	killvar 'FameIncMin'
 	killvar 'FameIncMin'
 	killvar 'FameIncMax'
 	killvar 'FameIncMax'
 end
 end
 
 
 if $ARGS[0] = 'danceviewer':
 if $ARGS[0] = 'danceviewer':
-    gs 'komp_camgirl', 'IncreaseFame'
-    minClient = (pcs_dancero/30) + (webpopular / 50) + (CamBonus/30)
-    maxClient = (pcs_dancero/10) + (webpopular / 50) + (CamBonus/20)
-    camclients += rand(minClient, maxClient)
+	gs 'komp_camgirl', 'IncreaseFame'
+	minClient = (pcs_dancero/30) + (webpopular / 50) + (CamBonus/30)
+	maxClient = (pcs_dancero/10) + (webpopular / 50) + (CamBonus/20)
+	camclients += rand(minClient, maxClient)
 	if rand(1,3) = 1:
 	if rand(1,3) = 1:
-        maxRegview = (camclients + CamBonus) / 200
-    end
-    regview += rand(0, maxRegview)
+		maxRegview = (camclients + CamBonus) / 200
+	end
+	regview += rand(0, maxRegview)
 end
 end
 
 
 if $ARGS[0] = 'views':
 if $ARGS[0] = 'views':
-    gs 'komp_camgirl', 'IncreaseFame'
-    maxClient = (CamBonus / 10) - (mfcclients*2)
-    minClient = (CamBonus / 15) - (mfcclients*2)
-    camclients += rand(minClient, maxClient)
-    if rand(1,3) = 1:
-        maxRegview = (camclients + CamBonus) / 200
-    end
-    regview += rand(0, maxRegview)
+	gs 'komp_camgirl', 'IncreaseFame'
+	maxClient = (CamBonus / 10) - (mfcclients*2)
+	minClient = (CamBonus / 15) - (mfcclients*2)
+	camclients += rand(minClient, maxClient)
+	if rand(1,3) = 1:
+		maxRegview = (camclients + CamBonus) / 200
+	end
+	regview += rand(0, maxRegview)
 end
 end
 
 
 if $ARGS[0] = 'UpdateCamBonus':
 if $ARGS[0] = 'UpdateCamBonus':
-    CamBonus = (pcs_apprnc + webpopular + (fame['city_sexind']/2)+ pcs_exhib + (fame['city_performer']/2) + (fame['city_social']/2) + (regview/2) + (pcs_mood*2)) / 12
-    if topmfc = 0: CamBonus += 10
-    if backmfc = 0: CamBonus += 15
+	CamBonus = (pcs_apprnc + webpopular + (fame['city_sexind']/2)+ pcs_exhib + (fame['city_performer']/2) + (fame['city_social']/2) + (regview/2) + (pcs_mood*2)) / 12
+	if topmfc = 0: CamBonus += 10
+	if backmfc = 0: CamBonus += 15
 end
 end
 
 
 if $ARGS[0] = 'donate':
 if $ARGS[0] = 'donate':
-    gs 'komp_camgirl', 'UpdateCamBonus'
-    minChance = CamBonus / 4
-    chancetips = rand(minChance, 100)
-    minTokens = (CamBonus + camclients) / 50
-    maxTokens = (CamBonus + camclients) / 20
-    chance = 100 - minTokens
-    if chancetips >= chance:
-        tokens_made = rand(minTokens, maxTokens)
+	gs 'komp_camgirl', 'UpdateCamBonus'
+	minChance = CamBonus / 4
+	chancetips = rand(minChance, 100)
+	minTokens = (CamBonus + camclients) / 50
+	maxTokens = (CamBonus + camclients) / 20
+	chance = 100 - minTokens
+	if chancetips >= chance:
+		tokens_made = rand(minTokens, maxTokens)
 		if tokens_made  >= 1:'<font color="green">+<<tokens_made>>Tokens</font>'
 		if tokens_made  >= 1:'<font color="green">+<<tokens_made>>Tokens</font>'
 		tokens += tokens_made
 		tokens += tokens_made
-    end
-    tokenpay = tokens * 2
+	end
+	tokenpay = tokens * 2
 end
 end
 
 
 if $ARGS[0] = 'clientrequest':
 if $ARGS[0] = 'clientrequest':
-    if topmfc = 1 and backmfc = 1:
-        if pcs_apprnc < 100:
-            clientask = rand(20, 100)
-        else
-            clientask = rand(30, 100)
-        end
-    end
-    if (topmfc = 0 and backmfc = 1) or (topmfc = 1 and backmfc = 0):
-        if pcs_apprnc < 100:
-            clientask = rand(30, 100)
-        else
-            clientask = rand(35, 100)
-        end
-    end
-    if topmfc = 0 and backmfc = 0:
-        if pcs_apprnc < 100:
-            clientask = rand(35, 100)
-        else
-            clientask = rand(45, 100)
-        end
-    end
+	if topmfc = 1 and backmfc = 1:
+		if pcs_apprnc < 100:
+			clientask = rand(20, 100)
+		else
+			clientask = rand(30, 100)
+		end
+	end
+	if (topmfc = 0 and backmfc = 1) or (topmfc = 1 and backmfc = 0):
+		if pcs_apprnc < 100:
+			clientask = rand(30, 100)
+		else
+			clientask = rand(35, 100)
+		end
+	end
+	if topmfc = 0 and backmfc = 0:
+		if pcs_apprnc < 100:
+			clientask = rand(35, 100)
+		else
+			clientask = rand(45, 100)
+		end
+	end
 end
 end