|
@@ -104,7 +104,7 @@ $santehnikend = {
|
|
|
if money >= 1500:
|
|
if money >= 1500:
|
|
|
act 'Pay':
|
|
act 'Pay':
|
|
|
money -= 1500
|
|
money -= 1500
|
|
|
- gt'kuhr'
|
|
|
|
|
|
|
+ gt $curloc
|
|
|
end
|
|
end
|
|
|
elseif money < 1500:
|
|
elseif money < 1500:
|
|
|
'You do not have enough cash on you.'
|
|
'You do not have enough cash on you.'
|
|
@@ -113,7 +113,7 @@ $santehnikend = {
|
|
|
act 'Pay':
|
|
act 'Pay':
|
|
|
money = money+stolmoney & stolmoney = 0
|
|
money = money+stolmoney & stolmoney = 0
|
|
|
money -= 1500
|
|
money -= 1500
|
|
|
- gt'kuhr'
|
|
|
|
|
|
|
+ gt $curloc
|
|
|
end
|
|
end
|
|
|
elseif money+stolmoney + karta >= 1500:
|
|
elseif money+stolmoney + karta >= 1500:
|
|
|
'You know that even with your stash in the apartment you are short, but you could get the extra from the ATM.'
|
|
'You know that even with your stash in the apartment you are short, but you could get the extra from the ATM.'
|
|
@@ -122,7 +122,7 @@ $santehnikend = {
|
|
|
money = money + stolmoney & stolmoney = 0
|
|
money = money + stolmoney & stolmoney = 0
|
|
|
karta -= (1500 - money)
|
|
karta -= (1500 - money)
|
|
|
money = 0
|
|
money = 0
|
|
|
- gt'kuhr'
|
|
|
|
|
|
|
+ gt $curloc
|
|
|
end
|
|
end
|
|
|
elseif money+stolmoney < 1500:
|
|
elseif money+stolmoney < 1500:
|
|
|
act 'I did not have enough money':
|
|
act 'I did not have enough money':
|
|
@@ -145,6 +145,9 @@ $santehnikend = {
|
|
|
gs 'stat'
|
|
gs 'stat'
|
|
|
|
|
|
|
|
act 'Continue':
|
|
act 'Continue':
|
|
|
|
|
+! here I need work around the direct return address and get from kuhr korr and from kuhr2x korr2x
|
|
|
|
|
+ $sexloc = 'korr' + $mid($curloc,5,2)
|
|
|
|
|
+
|
|
|
if pcs_apprnc < 60:
|
|
if pcs_apprnc < 60:
|
|
|
*clr & cla
|
|
*clr & cla
|
|
|
guy += 1
|
|
guy += 1
|
|
@@ -154,8 +157,9 @@ $santehnikend = {
|
|
|
gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
|
|
gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
|
|
|
gs 'arousal', 'end'
|
|
gs 'arousal', 'end'
|
|
|
gs 'stat'
|
|
gs 'stat'
|
|
|
|
|
+
|
|
|
|
|
|
|
|
- act 'Leave':gt 'korr'
|
|
|
|
|
|
|
+ act 'Leave':gt $sexloc
|
|
|
elseif pcs_apprnc >= 60:
|
|
elseif pcs_apprnc >= 60:
|
|
|
picrand = 90
|
|
picrand = 90
|
|
|
gt 'sex', 'minet'
|
|
gt 'sex', 'minet'
|
