[added] SMS messages now store replies in a seperate variable. This means that the SMS message does not have to be rebuild after every reply, also opening up the way for randomly chosen messages.

locations/SMStext_builder.qsrc

@@ -9,7 +9,10 @@
 !		gs 'SMStext_builder', 'receive', [$text]
 !		...
 !		...
-!	
+!	You can send/receive an image using "send_img" and "receive_img". Optionally, you can add an alt-name to the image in case it does not load
+!		gs 'SMStext_builder', 'send_img', [$img_path], ([$img_name])
+!		gs 'SMStext_builder', 'receive_img', [$img_path], ([$img_name])
+!
 !	If you want Sveta to reply to this (and thus the player potentially having a choice):
 !		gs 'SMStext_builder', 'add_reply', [$text], [$file_name], [$file_args0], [$file_args1], ...
 !		gs 'SMStext_builder', 'add_reply', [$text], [$file_name], [$file_args0], [$file_args1], ...
@@ -29,7 +32,8 @@
 !				Then you would pass ARGS[2] (since you used $ARGS[0] and $ARGS[1]):
 !				gs 'SMStext_builder', 'add_sms', ARGS[2]
 !	
-!	Finally after the player has made a choice, you want to rebuild the SMS-history again (to get rid of the replies).
+!	Finally after the player has made a choice, everything but the replies are stored.
+!	If you want to reset the text (but not the end images), use gs 'SMStext_builder', 'reset'
 !	Starting fresh or having done your final update (even if you never updated it anyway)
 !	End it with:
 !		gs 'SMStext_builder', 'end'
@@ -43,8 +47,15 @@ if $ARGS[0] = 'start':
 elseif $ARGS[0] = 'end':
 	killvar '$temp_SMStext'
 	killvar '$temp_SMSreplies'
+	killvar '$temp_SMSimgs'
 	killvar 'stb_i'
 	killvar 'stb_maxi'
+	killvar '$temp_SMS_reset_flag'
+	killvar '$temp_SMSRepliestext'
+end
+
+if $ARGS[0] = 'reset':
+	$temp_SMS_reset_flag = 1
 end
 
 if $ARGS[0] = 'send':
@@ -98,30 +109,79 @@ if $ARGS[0] = 'add_reply':
 	killvar 'stb_i'
 	killvar 'stb_n_args'
 
-elseif $ARGS[0] = 'set_replies':
-	$temp_SMStext += '<table><tr><th> Reply</th></tr>'
+elseif $ARGS[0] = 'private_set_replies':
+	$temp_SMSRepliestext += '<table>'
 
 	stb_maxi = arrsize('temp_SMSreplies')
 	stb_i = 0
 	:SMS_reply_loop
-		$temp_SMStext += '<tr><td>' + $temp_SMSreplies[stb_i] + '</td></tr>'
+		$temp_SMSRepliestext += '<tr><td>' + $temp_SMSreplies[stb_i] + '</td></tr>'
 		stb_i += 1
 	if stb_i < stb_maxi: jump 'SMS_reply_loop'
-	$temp_SMStext += '</table>'
+	$temp_SMSRepliestext += '</table>'
 
 	killvar '$temp_SMSreplies'
 	killvar 'stb_i'
 	killvar 'stb_maxi'
 end
 
+
+if $ARGS[0] = 'add_end_img':
+	if $temp_imgs[0] = '':
+		$temp_SMSimgs[0] = $ARGS[1]
+	elseif $temp_imgs[1] = '':
+		$temp_SMSimgs[1] = $ARGS[1]
+	elseif $temp_imgs[2] = '':
+		$temp_SMSimgs[2] = $ARGS[1]
+	elseif $temp_imgs[3] = '':
+		$temp_SMSimgs[3] = $ARGS[1]
+	end
+end
+
+if $ARGS[0] = 'private_set_end_img':
+	stb_i = 0
+	:stb_psei_loop
+	if stb_i < arrsize('temp_SMSimgs'):
+		if $SMSPicture1[ARGS[1]] = '':
+			$SMSPicture1[ARGS[1]] = $temp_SMSimgs[stb_i]
+		elseif $SMSPicture2[ARGS[1]] = '':
+			$SMSPicture2[ARGS[1]] = $temp_SMSimgs[stb_i]
+		elseif $SMSPicture3[ARGS[1]] = '':
+			$SMSPicture3[ARGS[1]] = $temp_SMSimgs[stb_i]
+		elseif $SMSPicture4[ARGS[1]] = '':
+			$SMSPicture4[ARGS[1]] = $temp_SMSimgs[stb_i]
+		end
+		stb_i += 1
+	end
+	killvar 'stb_i'
+	killvar '$temp_SMSimgs'
+end
+
 if $ARGS[0] = 'add_sms':
-	if arrsize('temp_SMSreplies') > 0: gs 'SMStext_builder', 'set_replies'
-	gs 'telefon', 'add_sms', $ARGS[1], $temp_SMStext, $ARGS[2], $ARGS[3], $ARGS[4], $ARGS[5]
+	if arrsize('temp_SMSreplies') > 0: 
+		gs 'SMStext_builder', 'private_set_replies'
+	else
+		$temp_SMSRepliestext = ''
+	end
+	gs 'telefon', 'add_sms', $ARGS[1], $temp_SMStext, $temp_SMSRepliestext, $temp_SMSimgs[0], $temp_SMSimgs[1], $temp_SMSimgs[2], $temp_SMSimgs[3]
+	
+	killvar '$temp_SMSRepliestext'
 
 elseif $ARGS[0] = 'show_sms':
-	if arrsize('temp_SMSreplies') > 0: gs 'SMStext_builder', 'set_replies'
-	$SMSMessage[ARGS[1]] = $temp_SMStext
-	gs 'telefon', 'show_sms', ARGS[1], $ARGS[2], $ARGS[3], $ARGS[4], $ARGS[5]
+	if arrsize('temp_SMSreplies') > 0:
+		gs 'SMStext_builder', 'private_set_replies'
+	else
+		killvar '$temp_SMSRepliestext'
+	end
+	if arrsize('temp_SMSimgs') > 0: gs 'SMStext_builder', 'private_set_end_img', ARGS[1]
+	if temp_SMS_reset_flag = 1: $SMSMessage[ARGS[1]] = ''
+
+	$SMSMessage[ARGS[1]] += $temp_SMStext
+	$SMSReplies[ARGS[1]] = $temp_SMSRepliestext
+	gs 'telefon', 'show_sms', ARGS[1]
+
+	killvar 'temp_SMS_reset_flag'
+	killvar '$temp_SMSRepliestext'
 end
 
 ! $ARGS[1] = displayed text

locations/band_tour_anushka_SMS.qsrc

@@ -112,8 +112,6 @@ if $ARGS[0] = 'Week1':
 		if arrpos('$contact', 'A144') = -1: gs 'telefon', 'AddContact', 'A144', 'images/characters/shared/headshots_main/big144.jpg', "", "1 = 0", "", "", 0
 
 		gs 'SMStext_builder', 'start'
-			gs 'SMStext_builder', 'receive', $SMSTree[ '0']
-			gs 'SMStext_builder', 'receive_img', 'images/characters/pavlovsk/school/girl/anushka/tour/week1.jpg'
 			gs 'SMStext_builder', 'send', $SMSTree['a1']
 			gs 'SMStext_builder', 'show_sms', ARGS[2]
 		gs 'SMStext_builder', 'end'
@@ -128,7 +126,7 @@ elseif $ARGS[0] = 'Week2':
 		gs 'SMStext_builder', 'start'
 			gs 'SMStext_builder', 'receive', $SMSTree[ '0']
 			gs 'SMStext_builder', 'receive_img', 'images/characters/pavlovsk/school/girl/anushka/tour/week2.jpg'
-			gs 'SMStext_builder', 'add_sms', 'A144', 'images/characters/pavlovsk/school/girl/anushka/tour/week2.jpg'
+			gs 'SMStext_builder', 'add_sms', 'A144'
 		gs 'SMStext_builder', 'end'
 	end
 
@@ -169,6 +167,7 @@ elseif $ARGS[0] = 'Week5':
 		gs 'SMStext_builder', 'start'
 			gs 'SMStext_builder', 'receive', $SMSTree[ '0']
 			gs 'SMStext_builder', 'receive_img', 'images/characters/pavlovsk/school/girl/anushka/tour/week5.jpg'
+			gs 'SMStext_builder', 'add_sms', 'A144'
 		gs 'SMStext_builder', 'end'
 	end
 

locations/booty_call_sms.qsrc

@@ -351,8 +351,6 @@ if $ARGS[0] = 'SMS_Base':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
-		gs 'SMStext_builder', 'send', $SMSTree['1']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 		wait 500
 
@@ -368,9 +366,6 @@ if $ARGS[0] = 'Choice_a':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
-		gs 'SMStext_builder', 'send', $SMSTree['1']
-		gs 'SMStext_builder', 'receive', $SMSTree['2']
 		gs 'SMStext_builder', 'send', $SMSTree['a3']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 		wait 500
@@ -387,11 +382,6 @@ elseif $ARGS[0] = 'Choice_aa':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
-		gs 'SMStext_builder', 'send', $SMSTree['1']
-		gs 'SMStext_builder', 'receive', $SMSTree['2']
-		gs 'SMStext_builder', 'send', $SMSTree['a3']
-		gs 'SMStext_builder', 'receive', $SMSTree['a4']
 		gs 'SMStext_builder', 'send', $SMSTree['aa5']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 
@@ -412,11 +402,6 @@ elseif $ARGS[0] = 'Choice_ab':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
-		gs 'SMStext_builder', 'send', $SMSTree['1']
-		gs 'SMStext_builder', 'receive', $SMSTree['2']
-		gs 'SMStext_builder', 'send', $SMSTree['a3']
-		gs 'SMStext_builder', 'receive', $SMSTree['a4']
 		gs 'SMStext_builder', 'send', $SMSTree['ab5']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 
@@ -441,9 +426,6 @@ if $ARGS[0] = 'Choice_b':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
-		gs 'SMStext_builder', 'send', $SMSTree['1']
-		gs 'SMStext_builder', 'receive', $SMSTree['2']
 		gs 'SMStext_builder', 'send', $SMSTree['b3']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 		wait 500
@@ -460,11 +442,6 @@ elseif $ARGS[0] = 'Choice_ba':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
-		gs 'SMStext_builder', 'send', $SMSTree['1']
-		gs 'SMStext_builder', 'receive', $SMSTree['2']
-		gs 'SMStext_builder', 'send', $SMSTree['b3']
-		gs 'SMStext_builder', 'receive', $SMSTree['b4']
 		gs 'SMStext_builder', 'send', $SMSTree['ba5']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 
@@ -485,11 +462,6 @@ elseif $ARGS[0] = 'Choice_bb':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
-		gs 'SMStext_builder', 'send', $SMSTree['1']
-		gs 'SMStext_builder', 'receive', $SMSTree['2']
-		gs 'SMStext_builder', 'send', $SMSTree['b3']
-		gs 'SMStext_builder', 'receive', $SMSTree['b4']
 		gs 'SMStext_builder', 'send', $SMSTree['bb5']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 
@@ -529,7 +501,6 @@ if $ARGS[0] = 'Choice2_a':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
 		gs 'SMStext_builder', 'send', $SMSTree['a1']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 	gs 'SMStext_builder', 'end'
@@ -541,7 +512,6 @@ if $ARGS[0] = 'Choice2_b':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
 		gs 'SMStext_builder', 'send', $SMSTree['b1']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 
@@ -559,9 +529,6 @@ elseif $ARGS[0] = 'Choice2_ba':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
-		gs 'SMStext_builder', 'send', $SMSTree['b1']
-		gs 'SMStext_builder', 'receive', $SMSTree['b2']
 		gs 'SMStext_builder', 'send', $SMSTree['ba3']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 
@@ -581,9 +548,6 @@ elseif $ARGS[0] = 'Choice2_bb':
 	gs 'booty_call_sms', $ARGS[1], $ARGS[2]
 
 	gs 'SMStext_builder', 'start'
-		gs 'SMStext_builder', 'receive', $SMSTree['0']
-		gs 'SMStext_builder', 'send', $SMSTree['b1']
-		gs 'SMStext_builder', 'receive', $SMSTree['b2']
 		gs 'SMStext_builder', 'send', $SMSTree['bb3']
 		gs 'SMStext_builder', 'show_sms', ARGS[3]
 

locations/nerd_game_night.qsrc

@@ -1515,8 +1515,6 @@ if $ARGS[0] = 'summer_invite_sms':
 		end
 
 		gs 'SMStext_builder', 'start'
-			gs 'SMStext_builder', 'receive', $SMSTree[ '0']
-			gs 'SMStext_builder', 'send', $SMSTree['a1']
 			gs 'SMStext_builder', 'show_sms', ARGS[2]
 			wait 1000
 
@@ -1536,8 +1534,6 @@ if $ARGS[0] = 'summer_invite_sms':
 		nerd_game['game_day'] = daystart - week + val(mid(nerd_game['lot'],1,1))
 
 		gs 'SMStext_builder', 'start'
-			gs 'SMStext_builder', 'receive', $SMSTree[ '0']
-			gs 'SMStext_builder', 'send', $SMSTree['b1']
 			gs 'SMStext_builder', 'show_sms', ARGS[2]
 			wait 1000
 
@@ -1556,8 +1552,6 @@ if $ARGS[0] = 'summer_invite_sms':
 		nerd_game['game_day'] = daystart - week + val(mid(nerd_game['lot'],2,1))
 
 		gs 'SMStext_builder', 'start'
-			gs 'SMStext_builder', 'receive', $SMSTree[ '0']
-			gs 'SMStext_builder', 'send', $SMSTree['c1']
 			gs 'SMStext_builder', 'show_sms', ARGS[2]
 			wait 1000
 
@@ -1625,8 +1619,6 @@ if $ARGS[0] = 'summer2_invite_sms':
 		end
 
 		gs 'SMStext_builder', 'start'
-			gs 'SMStext_builder', 'receive', $SMSTree[ '0']
-			gs 'SMStext_builder', 'send', $SMSTree['a1']
 			gs 'SMStext_builder', 'show_sms', ARGS[2]
 			wait 1000
 
@@ -1646,8 +1638,6 @@ if $ARGS[0] = 'summer2_invite_sms':
 		nerd_game['fixed_uni_day'] = 2
 		
 		gs 'SMStext_builder', 'start'
-			gs 'SMStext_builder', 'receive', $SMSTree[ '0']
-			gs 'SMStext_builder', 'send', $SMSTree['b1']
 			gs 'SMStext_builder', 'show_sms', ARGS[2]
 			wait 1000
 
@@ -1666,8 +1656,6 @@ if $ARGS[0] = 'summer2_invite_sms':
 		nerd_game['fixed_uni_day'] = 4
 		
 		gs 'SMStext_builder', 'start'
-			gs 'SMStext_builder', 'receive', $SMSTree[ '0']
-			gs 'SMStext_builder', 'send', $SMSTree['c1']
 			gs 'SMStext_builder', 'show_sms', ARGS[2]
 			wait 1000
 

locations/telefon.qsrc

@@ -1681,6 +1681,7 @@ end
 	telefon['UnreadSMS'] = number of unread SMS messages
 	$SMSContact[] = NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms
 	$SMSMessage[] = text for the sms message
+	$SMSReplies[] = text for the replies
 	$SMSTime[] = date time the message was received
 	$SMSPicture1[] = url for first picture sent as part of the message
 	$SMSPicture2[] = url for second picture sent as part of the message
@@ -1737,19 +1738,21 @@ end &! --- Phone_sms ---
 	If NPC is not in the contacts list of the phone it will be displayed as unknown until the contact has been added
 	$ARGS[1] = NPC code for contact. ('A129', 'A29', 'B13', 'C14')
 	$ARGS[2] = Message text to be displayed
-	$ARGS[3] = path to a picture to be displayed (optional)
+	$ARGS[3] = Replies to the message (optional)
 	$ARGS[4] = path to a picture to be displayed (optional)
 	$ARGS[5] = path to a picture to be displayed (optional)
 	$ARGS[6] = path to a picture to be displayed (optional)
+	$ARGS[7] = path to a picture to be displayed (optional)
 }
 if $ARGS[0] = 'add_sms':
 	$SMSContact[telefon['SMSCount']] = $ARGS[1]
 	$SMSMessage[telefon['SMSCount']] = $ARGS[2]
+	$SMSReplies[telefon['SMSCount']] = $ARGS[3]
 	$SMSTime[telefon['SMSCount']] = '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
-	$SMSPicture1[telefon['SMSCount']] = $ARGS[3]
-	$SMSPicture2[telefon['SMSCount']] = $ARGS[4]
-	$SMSPicture3[telefon['SMSCount']] = $ARGS[5]
-	$SMSPicture4[telefon['SMSCount']] = $ARGS[6]
+	$SMSPicture1[telefon['SMSCount']] = $ARGS[4]
+	$SMSPicture2[telefon['SMSCount']] = $ARGS[5]
+	$SMSPicture3[telefon['SMSCount']] = $ARGS[6]
+	$SMSPicture4[telefon['SMSCount']] = $ARGS[7]
 	SMSMessageRead[telefon['SMSCount']] = 0
 	telefon['SMSCount'] += 1
 	telefon['UnreadSMS'] += 1
@@ -1759,6 +1762,7 @@ if $ARGS[0] = 'delete_sms':
 	telefon['SMSid'] = ARGS[1]
 	killvar '$SMSContact', telefon['SMSid']
 	killvar '$SMSMessage', telefon['SMSid']
+	killvar '$SMSReplies', telefon['SMSid']
 	killvar '$SMSTime', telefon['SMSid']
 	killvar '$SMSPicture1', telefon['SMSid']
 	killvar '$SMSPicture2', telefon['SMSid']
@@ -1803,22 +1807,26 @@ if $ARGS[0] = 'show_sms':
 	<font size=6>SMS</font><br>
 	<img src="images/system/phone/theme/<<$phonetheme_name[pcs_phonetheme]>>/<<iif(telefon[''UnreadSMS'']=0,''icon_sms.png'',''icon_sms_new.gif'')>>" height="80" width="80"><br>'
 
-	$telefon['body'] += '<TABLE cellspacing="0" width="80%">'
-	$telefon['body'] += '<TR><TD><img height=100 src="<<$telefonCon[''Icon'']>>"></TD><TD><<$telefonCon[''NPCName'']>></TD></TR>'
-	$telefon['body'] += '<TR><TD colspan="2"><<$SMSMessage[telefon[''SMSid'']]>></TD></TR>'
+	$telefon['body'] += '<table cellspacing="0" width="80%">'
+	$telefon['body'] += '<tr><tr><img height=100 src="<<$telefonCon[''Icon'']>>"></td><td><<$telefonCon[''NPCName'']>></td></tr>'
+	$telefon['body'] += '<tr><td colspan="2"><<$SMSMessage[telefon[''SMSid'']]>></td></tr>'
+	if $SMSReplies[telefon['SMSid']] <> '':
+		$telefon['body'] += '<tr><th colspan="2">Reply</th><tr>'
+		$telefon['body'] += '<tr><td colspan="2"><<$SMSReplies[telefon[''SMSid'']]>></td></tr>'
+	end
 	if $SMSPicture1[telefon['SMSid']] <> '':
-		$telefon['body'] += '<TR><TD colspan="2"><img src="<<$SMSPicture1[telefon[''SMSid'']]>>"></TD></TR>'
+		$telefon['body'] += '<tr><td colspan="2"><img src="<<$SMSPicture1[telefon[''SMSid'']]>>"></td></tr>'
 	end
 	if $SMSPicture2[telefon['SMSid']] <> '':
-		$telefon['body'] += '<TR><TD colspan="2"><img src="<<$SMSPicture2[telefon[''SMSid'']]>>"></TD></TR>'
+		$telefon['body'] += '<tr><td colspan="2"><img src="<<$SMSPicture2[telefon[''SMSid'']]>>"></td></tr>'
 	end
 	if $SMSPicture3[telefon['SMSid']] <> '':
-		$telefon['body'] += '<TR><TD colspan="2"><img src="<<$SMSPicture3[telefon[''SMSid'']]>>"></TD></TR>'
+		$telefon['body'] += '<tr><td colspan="2"><img src="<<$SMSPicture3[telefon[''SMSid'']]>>"></td></tr>'
 	end
 	if $SMSPicture4[telefon['SMSid']] <> '':
-		$telefon['body'] += '<TR><TD colspan="2"><img src="<<$SMSPicture4[telefon[''SMSid'']]>>"></TD></TR>'
+		$telefon['body'] += '<tr><td colspan="2"><img src="<<$SMSPicture4[telefon[''SMSid'']]>>"></td></tr>'
 	end
-	$telefon['body'] += '</TABLE><br>'
+	$telefon['body'] += '</table><br>'
 	$telefon['backButton'] = 'gs ''telefon'', ''Phone_sms'' '
 	dynamic $telefon['print']
 end
@@ -1963,12 +1971,12 @@ end
 
 
 !{
-Add a new message that can be sent by the player
-$ARGS[1] NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms
-$ARGS[2] text for the sms message
-$ARGS[3] Code to execute when the sms is sent
-ARGS[4] 0 delete option after send, 1 dont delete option
-$ARGS[5] id passed by the caller to identify the option to be deleted if it needs to be removed from the options
+	Add a new message that can be sent by the player
+	$ARGS[1] NPC code for contact. ('A129', 'A29', 'B13', 'C14') that sent the sms
+	$ARGS[2] text for the sms message
+	$ARGS[3] Code to execute when the sms is sent
+	 ARGS[4] 0 delete option after send, 1 dont delete option
+	$ARGS[5] id passed by the caller to identify the option to be deleted if it needs to be removed from the options
 }
 if $ARGS[0] = 'add_sms_to_send':
 	i = arrsize('$SMSSendContact')