Home Internet Subscription
'
price = 900
if $home['current'] = 'parents_home':
$line = 'Your parents are paying for the internet at home, and you can''t take out a second internet subscriptions for the same address |
'
elseif home['internet_enabled'] = 0:
$line = 'You can''t buy an internet subscription for <<$home[''display'']>> |
'
elseif subscription[$home['current']] = 1:
$line = 'You have an active internet subscription at <<$home[''display'']>> that will renew next month on day <>-date'']>> for <> ₽ |
'
else
$line = 'Monthly internet subscription for <>₽ at your <<$home[''display'']>>. Automatically renews every month | '
if bankAccount = 0:
$line += 'No bank account |
'
elseif karta+bankDebtLimit >= price:
$line += 'Pay with Card | '
else
$line += 'Insufficient balance | '
end
end
'<<$title>><<$tables>><<$line>><<$tablec>>'
killvar 'line'
killvar 'title'
!! "Returns":
!! $property_code[], $property_name[], $property_status[], property__is_current_home[]
!! $property_stat values: 'rented', 'owned', 'tenants', 'no access'
gs 'homes_properties', 'get_internet_enabled_properties', 'home', 'hasaccess'
count = ARRSIZE('$property_name')
if count > 0:
:propertyloop
if property__is_current_home[i] = 0:
$title = 'Internet Subscription for your other properties
'
if $property_status[i] = 'tenants':
$line += 'You have rented out the <> and you don''t have to buy internet for our tenants. |
'
elseif subscription[$property_code[i]] = 0:
$line += 'Monthly internet subscription for <> ₽ at <>. Automatically renews every month | '
if bankAccount = 0:
$line += 'No bank account |
'
elseif karta+bankDebtLimit >= price:
$line += 'Pay with card | '
else
$line += 'Insufficient balance | '
end
elseif subscription[$property_code[i]] > 0:
line += 'You have an active internet subscription for the <> that will renew next month on day <>-date'']>> for <> ₽ |
'
end
end
killvar '$property'
i += 1
if i < count: jump 'propertyloop'
gs 'homes_properties', 'clean_up_property_data'
killvar 'i' & killvar 'count'
if $title ! '' : '<<$title>><<$tables>><<$line>><<$tablec>>'
killvar 'line' & killvar 'title'
end
$title = 'Mobile Internet Subscription
'
price = 1200
if subscription['mobile'] = 1:
$line = 'You have an active mobile internet subscription that will renew next month on day <> for <>₽ |
'
else
if subscription['metered_mobile'] > 0:
!! Every 12 minutes gives back 1 ₽
discount = subscription['metered_mobile'] / 12
discount_left = max(price - discount, 0)
$line = 'You still a have <> ₽ balance for your metered mobile internet which gives you a <> ₽ discount |
'
end
$line += 'Monthly mobile internet subscription for'+iif(discount > 0, ' <><>', ' <>')+'₽. Automatically renews every month | '
if bankAccount = 1 and karta+bankDebtLimit >= (price-discount): $line += 'Pay with card |
'
if bankAccount = 1 and karta+bankDebtLimit < (price-discount): $line += 'Insufficient funds | '
if bankAccount = 0: $line += 'No bank account | '
end
'<<$title>><<$tables>><<$line>><<$tablec>>'
killvar 'line'
killvar 'title'
$title = 'Metered Internet
'
if subscription['mobile'] = 1:
$line = 'You have an active mobile internet subscription for unlimited use, you can''t buy extra minutes |
'
$line += '300 minutes (5 hours) of mobile internet for 80 ₽ |
'
$line += '600 minutes (10 hours) of mobile internet for 155 ₽ |
'
$line += '1200 minutes (20 hours) of mobile internet for 295 ₽ |
'
$line += '3000 minutes (50 hours) of mobile internet for 695 ₽ |
'
else
$line = '300 minutes (5 hours) of mobile internet for 80₽ | '
if money > 80:
$line += 'Pay with cash | '
else
$line += 'Not enough cash | '
end
if bankAccount = 0:
$line += 'No bank account |
'
elseif karta+bankDebtLimit >= 80:
$line += 'Pay with card | '
else
$line += 'Insufficient balance | '
end
$line += '600 minutes (10 hours) of mobile internet for 115₽ | '
if money > 155:
$line += 'Pay with cash | '
else
$line += 'Not enough cash | '
end
if bankAccount = 0:
$line += 'No bank account |
'
elseif karta+bankDebtLimit >= 155:
$line += 'Pay with card | '
else
$line += 'Insufficient balance | '
end
$line += '1200 minutes (20 hours) of mobile internet for 295₽ | '
if money > 295:
$line += 'Pay with cash | '
else
$line += 'Not enough cash | '
end
if bankAccount = 0:
$line += 'No bank account |
'
elseif karta+bankDebtLimit >= 295:
$line += 'Pay with card | '
else
$line += 'Insufficient balance | '
end
$line += '3000 minutes (50 hours) of mobile internet for 695₽ | '
if money > 695:
$line += 'Pay with cash | '
else
$line += 'Not enough cash | '
end
if bankAccount = 0:
$line += 'No bank account |
'
elseif karta+bankDebtLimit >= 695:
$line += 'Pay with card | '
else
$line += 'Insufficient balance | '
end
end
'<<$title>><<$tables>><<$line>><<$tablec>>'
'You have <> minutes for mobile internet use'
killvar 'line'
killvar 'title'
$title = 'Mobile Calls and Texts
'
price = 800
if subscription['monthly_calls'] = 1:
$line += 'You have an active mobile subscription that will renew next month on day <> for <> ₽ |
'
else
if subscription['metered_calls'] > 0:
discount = subscription['metered_calls'] / 2
discount_left = max(price - discount, 0)
$line += 'You have <>₽ for mobile calls and text messages which gives you a <> ₽ discount |
'
end
$line += 'Monthly mobile subscription that allows you to make calls and send text messages for'+iif(discount > 0, '<> <>', ' <>')+'₽ Automatically renews every month | '
if bankAccount = 1 and karta+bankDebtLimit >= (price-discount): $line += 'Pay with card |
'
if bankAccount = 1 and karta+bankDebtLimit < (price-discount): $line += 'Insufficient funds | '
if bankAccount = 0: $line += 'No bank account | '
end
'<<$title>><<$tables>><<$line>><<$tablec>>'
killvar 'title'
killvar 'line'
$title = 'Metered Calls and Texts
'
if subscription['monthly_calls'] = 1:
$line += 'You have an active mobile subscription with unlimited minutes and texts, you can''t buy extra minutes |
'
else
$line += '60₽ call pack for your mobile phone that gives you 60 minutes of calltime and 120 text messages | '
if money >= 60:
$line += 'Pay with cash | '
else
$line += 'Not enough cash | '
end
if bankAccount = 0:
$line += 'No bank account |
'
elseif bankAccount = 1 and karta+bankDebtLimit >= 60:
$line += 'Pay with card | '
else
$line += 'Insufficient balance | '
end
$line += '115₽ call pack for your mobile phone that gives you 120 minutes of calltime and 240 text messages | '
if money >= 115:
$line += 'Pay with cash | '
else
$line += 'Not enough cash | '
end
if bankAccount = 0:
$line += 'No bank account |
'
elseif bankAccount = 1 and karta+bankDebtLimit >= 115:
$line += 'Pay with card | '
else
$line += 'Insufficient balance | '
end
$line += '170₽ call pack for your mobile phone that gives you 180 minutes of calltime and 360 text messages | '
if money >= 170:
$line += 'Pay with cash | '
else
$line += 'Not enough cash | '
end
if bankAccount = 0:
$line += 'No bank account |
'
elseif bankAccount = 1 and karta+bankDebtLimit >= 170:
$line += 'Pay with card | '
else
$line += 'Insufficient balance | '
end
$line += '225₽ call pack for your mobile phone that gives you 240 minutes of calltime and 480 text messages | '
if money >= 225:
$line += 'Pay with cash | '
else
$line += 'Not enough cash | '
end
if bankAccount = 0:
$line += 'No bank account |
'
elseif bankAccount = 1 and karta+bankDebtLimit >= 225:
$line += 'Pay with card | '
else
$line += 'Insufficient balance | '
end
end
'<<$title>><<$tables>><<$line>><<$tablec>>'
'You have <> minutes for mobile calls and <> text messages'
killvar 'title'
killvar 'line'
killvar 'discount'
killvar 'discount_left'
killvar 'price'
act 'Return to the supermarket':gt'shop','start'
end
if $shoplocation = 'Anya':
cla
'
> src="images/characters/pavlovsk/resident/anya/anyabusywork.jpg">'
gs 'sister_chat', 'checks'
'"Don''t disturb me at work, <<$pcs_nickname>>! Can''t you see that I have customers?""'
act 'Move away':gt'shop','start'
end
--- shop ---------------------------------