Browse Source

[added/fixed] Fixed the bug I introduced by having too many arguments to the `AddContact` function in `telefon`. Did this by splitting off the `SetCallSchedule` and `SetSMSSchedule` functions. Added support for checking the SMS schedule

anjuna krokus 6 months ago
parent
commit
c3a676d295

+ 2 - 1
locations/Katlake.qsrc

@@ -38,7 +38,8 @@ if $ARGS[0] = 'znakomstvo':
 		clr
 		katday = daystart
 		telkat += 1
-		gs 'telefon', 'AddContact', 'A219', 'icon_kat',"$telsob = 'Kate' & gt 'telefon', 'mobilaraz'", "hour >= 8 and hour <= 20", "","0", "", "0", "", "0", 0
+		gs 'telefon', 'AddContact', 'A219', 'icon_kat', 0
+		gs 'telefon', 'SetCallSchedule', 'A219', "$telsob = 'Kate' & gt 'telefon', 'mobilaraz'", "hour >= 8 and hour <= 20", "", "0"
 		kat = 1
 		npc_rel['A219'] += 1
 		minut += 30

+ 1 - 1
locations/band_tour_anushka_SMS.qsrc

@@ -109,7 +109,7 @@ if $ARGS[0] = 'Week1':
 	elseif $ARGS[1] = 'Choice_a':
 		!! Add Anushka to the contact list if she isn''t in it yet.
 		!! Is here to add it after reading the text.
-		if arrpos('$contact', 'A144') = -1: gs 'telefon', 'AddContact', 'A144', 'images/characters/shared/headshots_main/big144.jpg', "", "0", "", "0", "", "0", "", "0", 0
+		if arrpos('$contact', 'A144') = -1: gs 'telefon', 'AddContact', 'A144', 'images/characters/shared/headshots_main/big144.jpg', 0
 
 		gs 'SMStext_builder', 'start'
 			gs 'SMStext_builder', 'send', $SMSTree['a1']

+ 4 - 2
locations/lover.qsrc

@@ -158,7 +158,8 @@ if $ARGS[0] = 'add_fuckbuddy':
 	if arrpos('$fuckbuddy',$boy) = -1:
 		$fuckbuddy[] = $boy
 		$npc_rel_type[$boy] = 'fuckbuddy'
-		gs 'telefon', 'AddContact', $boy, $npc_pic[$boy],"","hour >= 8 and hour <= 22", "", "hour >= 8 and hour <= 22", "", "0", "", "0", 0
+		gs 'telefon', 'AddContact', $boy, $npc_pic[$boy], 0
+		gs 'telefon', 'SetCallSchedule', "", "hour >= 8 and hour <= 22", "", "hour >= 8 and hour <= 22"
 	end
 end
 
@@ -173,7 +174,8 @@ if $ARGS[0] = 'add_sugar_daddy':
 	if arrpos('$sugar_daddy',$boy) = -1:
 		$sugar_daddy[] = $boy
 		$npc_rel_type[$boy] = 'sugar_daddy'
-		gs 'telefon', 'AddContact', $boy, $npc_pic[$boy],'',"hour >= 8 and hour <= 22",'', "hour >= 8 and hour <= 22", "", "0", "", "0", 0
+		gs 'telefon', 'AddContact', $boy, $npc_pic[$boy], 0
+		gs 'telefon', 'SetCallSchedule', "", "hour >= 8 and hour <= 22", "", "hour >= 8 and hour <= 22"
 	end
 end
 

+ 7 - 6
locations/nastja.qsrc

@@ -44,7 +44,8 @@ if $ARGS[0] = 'pos1':
 			cla
 			*clr
 			npc_QW['A192'] = 1
-			gs 'telefon', 'AddContact', 'A192', 'icon_nastja', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0", "", "0", "", "0", 0
+			gs 'telefon', 'AddContact', 'A192', 'icon_nastja', 0
+			gs 'telefon', 'SetCallSchedule', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0"
 			minut += 60
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/city/anastasia/nastja.jpg"></center>'
@@ -82,7 +83,7 @@ if $ARGS[0] = 'pos5':
 	*clr
 	minut += 60
 	npc_QW['A192'] = 2
-	gs 'telefon', 'AddContact', 'A192', 'icon_nastja', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0", "", "0", "", "0", 0
+	gs 'telefon', 'SetCallSchedule', 'A192', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0"
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/anastasia/1party0.jpg"></center>'
 	'You arrive at a karaoke cafe called "Mast".'
@@ -336,7 +337,7 @@ if $ARGS[0] = 'pos12':
 	minut += 10
 	pcs_mood += 40
 	npc_QW['A192'] = 3
-	gs 'telefon', 'AddContact', 'A192', 'icon_nastja', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0", "", "0", "", "0", 0
+	gs 'telefon', 'SetCallSchedule', 'A192', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0"
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/anastasia/tel_talk.jpg"></center>'
 	'It rings two, three, four times before Anastasia picks up.'
@@ -487,7 +488,7 @@ if $ARGS[0] = 'pos21':
 	*clr
 	minut += 20
 	npc_QW['A192'] = 5
-	gs 'telefon', 'AddContact', 'A192', 'icon_nastja', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0", "", "0", "", "0", 0
+	gs 'telefon', 'SetCallSchedule', 'A192', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0"
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/anastasia/2bslp.jpg"></center>'
 	'After running and jumping around like that in everybody''s plain view, sitting down and lying back topless isn''t enough to make you feel shy and neither you nor Nastya have any qualms about spreading your arms and showing off your bodies to everyone as you sunbathe once again.'
@@ -506,7 +507,7 @@ if $ARGS[0] = 'pos22':
 	minut += 10
 	pcs_mood += 50
 	npc_QW['A192'] = 6
-	gs 'telefon', 'AddContact', 'A192', 'icon_nastja', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0", "", "0", "", "0", 0
+	gs 'telefon', 'SetCallSchedule', 'A192', "gs 'nastja', 'start'", "hour >= 8 and hour < 20", "", "0"
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="images/characters/city/anastasia/tel_talk.jpg"></center>'
@@ -686,7 +687,7 @@ if $ARGS[0] = 'pos31':
 	minut += 10
 	pcs_mood += 50
 	npc_QW['A192'] = 7
-	gs 'telefon', 'AddContact', 'A192', 'icon_nastja', "gs 'nastja', 'start'", "hour >= 8 and hour <= 20", "", "0", "", "0", "", "0", 0
+	gs 'telefon', 'SetCallSchedule', 'A192', "gs 'nastja', 'start'", "hour >= 8 and hour <= 20", "", "0"
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="images/characters/city/anastasia/tel_talk.jpg"></center>'

+ 6 - 6
locations/nerd_game_night.qsrc

@@ -1510,7 +1510,7 @@ if $ARGS[0] = 'summer_invite_sms':
 		!! Add Feofan to the contact list if he isn''t in it yet.
 		!! Is here to add it after reading the text.
 		if nerd_game['first_SMS_received'] = 0:
-			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', "", "0", "", "0", "", "0", "", "0", 0
+			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', 0
 			nerd_game['first_SMS_received'] = 1
 		end
 
@@ -1528,7 +1528,7 @@ if $ARGS[0] = 'summer_invite_sms':
 		!! Add Feofan to the contact list if he isn''t in it yet.
 		!! Is here to add it after reading the text.
 		if nerd_game['first_SMS_received'] = 0:
-			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', "", "0", "", "0", "", "0", "", "0", 0
+			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', 0
 			nerd_game['first_SMS_received'] = 1
 		end
 
@@ -1547,7 +1547,7 @@ if $ARGS[0] = 'summer_invite_sms':
 		!! Add Feofan to the contact list if he isn''t in it yet.
 		!! Is here to add it after reading the text.
 		if nerd_game['first_SMS_received'] = 0:
-			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', "", "0", "", "0", "", "0", "", "0", 0
+			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', 0
 			nerd_game['first_SMS_received'] = 1
 		end
 
@@ -1617,7 +1617,7 @@ if $ARGS[0] = 'summer2_invite_sms':
 		!! Add Feofan to the contact list if he isn''t in it yet.
 		!! Is here to add it after reading the text.
 		if nerd_game['first_SMS_received'] = 0:
-			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', "", "0", "", "0", "", "0", "", "0", 0
+			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', 0
 			nerd_game['first_SMS_received'] = 1
 		end
 
@@ -1635,7 +1635,7 @@ if $ARGS[0] = 'summer2_invite_sms':
 		!! Add Feofan to the contact list if he isn''t in it yet.
 		!! Is here to add it after reading the text.
 		if nerd_game['first_SMS_received'] = 0:
-			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', "", "0", "", "0", "", "0", "", "0", 0
+			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', 0
 			nerd_game['first_SMS_received'] = 1
 		end
 
@@ -1654,7 +1654,7 @@ if $ARGS[0] = 'summer2_invite_sms':
 		!! Add Feofan to the contact list if he isn''t in it yet.
 		!! Is here to add it after reading the text.
 		if nerd_game['first_SMS_received'] = 0:
-			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', "", "0", "", "0", "", "0", "", "0", 0
+			if arrpos('$contact', 'A152') = -1: gs 'telefon', 'AddContact', 'A152', 'images/characters/shared/headshots_main/big152.jpg', 0
 			nerd_game['first_SMS_received'] = 1
 		end
 

+ 2 - 1
locations/stat.qsrc

@@ -263,8 +263,9 @@ end
 ! Execute time based spells
 gs 'spellTimer', prevtotmin, totminut
 
-! Determine Incoming Telephone Calls
+! Determine Incoming Telephone Calls and SMS
 gs 'telefon', 'IncomingCheck', prevtotmin, totminut
+gs 'telefon', 'IncomingSMSCheck'
 
 !! deodorant
 if deodorant_on = 1 and totminut > deodorant_time: gs 'sweat', 'remove_deo'

+ 100 - 22
locations/telefon.qsrc

@@ -99,45 +99,109 @@ $telefon['contact'] = {
 if $ARGS[0] = 'AddContact':
 	!! $ARGS[1] = NPC Array identifier
 	!! $ARGS[2] = Icon
-	!! $ARGS[3] = Code to execute for Call out
-	!! $ARGS[4] = If statement code to determine schedule for outbound calls
-	!! $ARGS[5] = Code to execute for Incoming call
-	!! $ARGS[6] = if statement code for schedule of incoming calls
-	!! $ARGS[7] = Code to execute for SMS out
-	!! $ARGS[8] = If statement code to determine schedule for outbound SMS
-	!! $ARGS[9] = Code to execute for Incoming SMS
-	!! $ARGS[10] = if statement code for schedule of incoming SMS
-	!!  ARGS[11] = Anonymous? 0 if not, 1 if yes
+	!!  ARGS[3] = Anonymous? 0 if not, 1 if yes
+
 	$telefonCon['NPC'] = $ARGS[1]
 	$telefonCon['Icon'] = $ARGS[2]
-	$telefonCon['OutCode'] = $ARGS[3]
-	$telefonCon['OutSched'] = $ARGS[4]
-	$telefonCon['InCode'] = $ARGS[5]
-	$telefonCon['InSched'] = $ARGS[6]
-	$telefonCon['OutSMSCode'] = $ARGS[7]
-	$telefonCon['OutSMSSched'] = $ARGS[8]
-	$telefonCon['InSMSCode'] = $ARGS[9]
-	$telefonCon['InSMSSched'] = $ARGS[10]
-	telefonCon['Anonymous'] = ARGS[11]
+	telefonCon['Anonymous'] = ARGS[3]
+
 	telefonCon['ContactListID'] = arrpos('$contact', $telefonCon['NPC'])
 	if telefonCon['ContactListID'] = -1:
 		telefonCon['ContactListID'] = arrsize('$contact')
 		$contact[telefonCon['ContactListID']] = $telefonCon['NPC']
+		$contactOCode[telefonCon['ContactListID']] = ""
+		$contactOSche[telefonCon['ContactListID']] = "0"
+		$contactICode[telefonCon['ContactListID']] = ""
+		$contactISche[telefonCon['ContactListID']] = "0"
+		$contactOSMSCode[telefonCon['ContactListID']] = ""
+		$contactOSMSSche[telefonCon['ContactListID']] = "0"
+		$contactISMSCode[telefonCon['ContactListID']] = ""
+		$contactISMSSche[telefonCon['ContactListID']] = "0"
 	end
 	$contactIcon[telefonCon['ContactListID']] = $telefonCon['Icon']
+	contactAnon[telefonCon['ContactListID']] = telefonCon['Anonymous']
+
+	killvar 'telefonCon'
+	killvar '$telefonCon'
+end & ! --- AddContact ---
+
+if $ARGS[0] = 'SetCallSchedule':
+	!! $ARGS[1] = NPC Array identifier
+	!! $ARGS[2] = Code to execute for Call out
+	!! $ARGS[3] = If statement code to determine schedule for outbound calls
+	!! $ARGS[4] = Code to execute for Incoming call
+	!! $ARGS[5] = if statement code for schedule of incoming calls
+	$telefonCon['NPC'] = $ARGS[1]
+	telefonCon['ContactListID'] = arrpos('$contact', $telefonCon['NPC'])
+	if telefonCon['ContactListID'] = -1:
+		!! If the contact does not exist, create an anonymous contact.
+		gs 'telefon', 'AddContact', $telefonCon['NPC'], 'icon_na', 1
+	end
+
+	$telefonCon['OutCode'] = $ARGS[2]
+	if $ARGS[3] ! '': $telefonCon['OutSched'] = $ARGS[3] else $telefonCon['OutSched'] = "0"
+	$telefonCon['InCode'] = $ARGS[4]
+	if $ARGS[5] ! '': $telefonCon['InSched'] = $ARGS[5] else $telefonCon['InSched'] = "0"
+
 	$contactOCode[telefonCon['ContactListID']] = $telefonCon['OutCode']
 	$contactOSche[telefonCon['ContactListID']] = $telefonCon['OutSched']
 	$contactICode[telefonCon['ContactListID']] = $telefonCon['InCode']
 	$contactISche[telefonCon['ContactListID']] = $telefonCon['InSched']
+
+	killvar '$telefonCon'
+end & ! --- SetCallSchedule ---
+
+if $ARGS[0] = 'ClearCallSchedule':
+	$telefonCon['NPC'] = $ARGS[1]
+	telefonCon['ContactListID'] = arrpos('$contact', $telefonCon['NPC'])
+	if telefonCon['ContactListID'] = -1: exit
+	$contactOCode[telefonCon['ContactListID']] = ""
+	$contactOSche[telefonCon['ContactListID']] = "0"
+	$contactICode[telefonCon['ContactListID']] = ""
+	$contactISche[telefonCon['ContactListID']] = "0"
+
+	killvar '$telefonCon'
+end & ! --- ClearCallSchedule ---
+
+
+if $ARGS[0] = 'SetSMSSchedule':
+	!! $ARGS[1] = NPC Array identifier
+	!! $ARGS[2] = Code to execute for SMS out
+	!! $ARGS[3] = If statement code to determine schedule for outbound SMS
+	!! $ARGS[4] = Code to execute for Incoming SMS
+	!! $ARGS[5] = if statement code for schedule of incoming SMS
+
+	$telefonCon['NPC'] = $ARGS[1]
+	telefonCon['ContactListID'] = arrpos('$contact', $telefonCon['NPC'])
+	if telefonCon['ContactListID'] = -1:
+		!! If the contact does not exist, create an anonymous contact.
+		gs 'telefon', 'AddContact', $telefonCon['NPC'], 'icon_na', 1
+	end
+
+	$telefonCon['OutSMSCode'] = $ARGS[2]
+	if $ARGS[3] ! "": $telefonCon['OutSMSSched'] = $ARGS[3] else $telefonCon['OutSMSSched'] = "0"
+	$telefonCon['InSMSCode'] = $ARGS[4]
+	if $ARGS[5] ! "": $telefonCon['InSMSSched'] = $ARGS[5] else $telefonCon['InSMSSched'] = "0"
+
 	$contactOSMSCode[telefonCon['ContactListID']] = $telefonCon['OutSMSCode']
 	$contactOSMSSche[telefonCon['ContactListID']] = $telefonCon['OutSMSSched']
 	$contactISMSCode[telefonCon['ContactListID']] = $telefonCon['InSMSCode']
 	$contactISMSSche[telefonCon['ContactListID']] = $telefonCon['InSMSSched']
-	contactAnon[telefonCon['ContactListID']] = telefonCon['Anonymous']
 
-	killvar 'telefonCon'
 	killvar '$telefonCon'
-end &! --- AddContact ---
+end & ! --- SetSMSSchedule ---
+
+if $ARGS[0] = 'ClearSMSSchedule':
+	$telefonCon['NPC'] = $ARGS[1]
+	telefonCon['ContactListID'] = arrpos('$contact', $telefonCon['NPC'])
+	if telefonCon['ContactListID'] = -1: exit
+	$contactOSMSCode[telefonCon['ContactListID']] = ""
+	$contactOSMSSche[telefonCon['ContactListID']] = "0"
+	$contactISMSCode[telefonCon['ContactListID']] = ""
+	$contactISMSSche[telefonCon['ContactListID']] = "0"
+
+	killvar '$telefonCon'
+end & ! --- ClearSMSSchedule ---
 
 if $ARGS[0] = 'DeleteContact':
 	!! $ARGS[1] = NPC Array identifier
@@ -155,7 +219,6 @@ if $ARGS[0] = 'DeleteContact':
 		killvar '$contactISMSCode',	telefonCon['ContactListID']
 		killvar '$contactISMSSche',	telefonCon['ContactListID']
 		killvar 'contactAnon',		telefonCon['ContactListID']
-
 	end
 
 	killvar 'telefonCon'
@@ -1041,7 +1104,22 @@ if $ARGS[0] = 'delete_sms_send_id':
 end
 
 
+if $ARGS[0] = 'IncomingSMSCheck':
+	i=0
+	:telefonIncSMSLoop
+	if i < arrsize('$contact'):
+		if $contactISMSCode[i] ! "":
+			if dyneval('result = iif(<<$contactISMSSche[i]>>,1,0)') = 1:
+				dynamic $contactISMSCode[i]
+			end
+		end
+		i += 1
+		jump 'telefonIncSMSLoop'
+	end
+
 
+	killvar 'i'
+end
 
 
 

+ 5 - 4
locations/vladimirQW_loc.qsrc

@@ -73,7 +73,8 @@ if $ARGS[0] = 'qwnamedy':
 			cla
 			vladimirQW['stage'] = 20
 			vladimirQW['day'] = daystart
-			gs 'telefon', 'AddContact', 'A108', 'icon_na',"", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17", "", "0", "", "0", 1
+			gs 'telefon', 'AddContact', 'A108', 'icon_na', 1
+			gs 'telefon', 'SetCallSchedule', "", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17"
 			gs 'stat'
 			'You tell Vladmimir your phone number and he writes it down in a small notebook with a leather cover.'
 
@@ -106,7 +107,7 @@ if $ARGS[0] = '2':
 			cla
 			vladimirQW['stage'] = 21
 			vladimirQW['day'] = daystart
-			gs 'telefon', 'AddContact', 'A108', 'icon_na',"", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17 and week = 6", "", "0", "", "0", 1
+			gs 'telefon', 'SetCallSchedule', 'A108', "", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17 and week = 6"
 			'"I would like that," you tell him.'
 			'"Wonderful!" says Vladimir. "Then I''ll meet you at the restaurant at 20:00."'
 			'"I''ll see you then!"'
@@ -132,7 +133,7 @@ if $ARGS[0] = '3':
 		cla
 		vladimirQW['stage'] = 30
 		vladimirQW['day'] = daystart
-		gs 'telefon', 'AddContact', 'A108', 'icon_na',"", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17 and week = 6", "", "0", "", "0", 1
+		gs 'telefon', 'SetCallSchedule', 'A108', "", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17 and week = 6"
 		'"I''d like that." you tell him.'
 		'You can hear that Vladimir''s pleased over the phone. "Wonderful, my driver will come to pick you up."'
 
@@ -157,7 +158,7 @@ if $ARGS[0] = '4':
 		cla
 		vladimirQW['stage'] = 40
 		vladimirQW['day'] = daystart
-		gs 'telefon', 'AddContact', 'A108', 'icon_na',"", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17 and week = 6", "", "0", "", "0", 1
+		gs 'telefon', 'SetCallSchedule', 'A108', "", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17 and week = 6"
 		'"I''d like that." you tell him.'
 		'You can hear that Vladimir''s pleased over the phone. "Wonderful, my driver will come to pick you up."'
 

+ 2 - 1
locations/worksalon.qsrc

@@ -417,7 +417,8 @@ if $ARGS[0] = '2':
 		*clr
 		girl += 1
 		telalla = 1
-		!gs 'telefon', 'AddContact', 'Axxx', 'icon_ira1', "$telsob = 'Alla' & gt 'telefon', 'mobilaraz'","hour >= 8 and hour <= 20","","0", "", "0", "", "0", 0
+		!gs 'telefon', 'AddContact', 'Axxx', 'icon_ira1', 0
+		!gs 'telefon', 'SetCallSchedule', 'Axxx', "$telsob = 'Alla' & gt 'telefon', 'mobilaraz'", "hour >= 8 and hour <= 20", "", "0"
 		alla += 1
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/ira2.jpg"></center>'
 		'When you don''t object, she gets up and pushes you down in the chair. Pulling your clothes off, she exposes your pussy and pushes your legs apart. Dropping down to her hands and knees, her face goes between your legs, and her tongue darts out and starts licking you.'