# bouling
$sexloc = $CURLOC
gs 'stat'
'
Bowling'
'
'
act 'Leave':gt 'torgcentr'
if hour >= 8 and hour <= 20:
act 'Play 300 rubles (1:00)':
if money < 300:
'You have no money'
else
money -= 300
minut += 60
boulvar = 0
boulingnav += rand(0, 3)
boulrand = rand(0, 9)
if boulrand = 0:
cla
'To suit you two guys and offer to play with them'
act 'Gamble, bet 2000':boulvar = 1 & gt 'bouling', 'randwin'
act 'Leave':gt 'torgcentr'
elseif boulrand = 1:
cla
'To suit you two girls and offer to play with them against two guys prize 5000, at a loss of sex.'
act 'Play':boulvar = 2 & gt 'bouling', 'randwin'
act 'Leave':gt 'torgcentr'
elseif boulrand > 1:
cla
'You played billiards'
act 'Leave':gt 'torgcentr'
end
end
end
if money >= 300:
act 'Play for money (300 rubles)':
money -= 300
minut += 60
boulvar = 0
gt 'bouling', 'randwin'
end
end
end
if $ARGS[0] = 'randwin':
cla
if boulingnav < 10:boulwin = rand(0, 10)
if boulingnav >= 10 and boulingnav < 20:boulwin = rand(0, 12)
if boulingnav >= 20 and boulingnav < 30:boulwin = rand(0, 14)
if boulingnav >= 30 and boulingnav < 40:boulwin = rand(0, 16)
if boulingnav >= 40 and boulingnav < 50:boulwin = rand(0, 18)
if boulingnav >= 50 and boulingnav < 60:boulwin = rand(0, 20)
if boulingnav >= 60 and boulingnav < 70:boulwin = rand(0, 22)
if boulingnav >= 70 and boulingnav < 80:boulwin = rand(0, 24)
if boulingnav >= 80 and boulingnav < 90:boulwin = rand(0, 26)
if boulingnav >= 90:boulwin = rand(0, 28)
if boulwin > 10 and boulvar = 0:
money += 300
'You won and received 300 rubles.'
act 'Get_Away':gt 'torgcentr'
elseif boulwin > 10 and boulvar = 1:
money += 2000
'You won and received 2,000 rubles.'
act 'Leave':gt 'torgcentr'
elseif boulwin > 10 and boulvar = 2:
money += 5000
'You won and received 5,000 rubles.'
act 'Leave':gt 'torgcentr'
elseif boulwin <= 10 and boulvar = 0:
money -= 300
'You lost and paid 300 rubles.'
act 'Leave':gt 'torgcentr'
elseif boulwin <= 10 and boulvar = 1:
picrand = 14
if money >= 2000:
'You lose and have to pay 2,000 rubles.'
act 'Offer in-kind':xgt 'sexdvoe', 'var'
act 'Pay':
money -= 2000
gt 'torgcentr'
end
else
'You lost, but you do not have money to pay, only one payment method.'
act 'In kind':xgt 'sexdvoe', 'var'
end
elseif boulwin <= 10 and boulvar = 2:
picrand = 11
'You lose, will push the legs.'
act 'Pay':gt 'sexorg', 'var'
end
end
if $ARGS[0] = 'start':
'Bowling'
'
'
act 'Leave':gt 'bouling'
end
--- bouling ---------------------------------