# 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'
if money >= 300:
set money -= 300
set boulingnav += rand(0,3)
set minut += 60
set boulrand = rand(0,9)
set boulvar = 0
if boulrand = 0:
cla
'To suit you two guys and offer to play with them'
act 'Gamble, bet 2000': set boulvar = 1 & gt 'bouling','randwin'
act 'Leave': gt 'torgcentr'
end
if 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': set boulvar = 2 & gt 'bouling','randwin'
act 'Leave': gt 'torgcentr'
end
if boulrand > 1:
cla
'You played billiards'
act 'Leave': gt 'torgcentr'
end
end
end
if money >= 300:
act 'Play for money':
set money -= 300
set minut += 60
set boulvar = 0
gt 'bouling','randwin'
end
end
end
if $ARGS[0] = 'randwin':
cla
if boulingnav < 10: set boulwin = rand(0,10)
if boulingnav >= 10 and boulingnav < 20: set boulwin = rand(0,12)
if boulingnav >= 20 and boulingnav < 30: set boulwin = rand(0,14)
if boulingnav >= 30 and boulingnav < 40: set boulwin = rand(0,16)
if boulingnav >= 40 and boulingnav < 50: set boulwin = rand(0,18)
if boulingnav >= 50 and boulingnav < 60: set boulwin = rand(0,20)
if boulingnav >= 60 and boulingnav < 70: set boulwin = rand(0,22)
if boulingnav >= 70 and boulingnav < 80: set boulwin = rand(0,24)
if boulingnav >= 80 and boulingnav < 90: set boulwin = rand(0,26)
if boulingnav >= 90: set boulwin = rand(0,28)
if boulwin > 10 and boulvar = 1:
set money += 2000
'You won and received 2000 rubles.'
act 'Leave': gt 'torgcentr'
end
if boulwin > 10 and boulvar = 2:
set money += 5000
'You won and received 5000 rubles.'
act 'Leave': gt 'torgcentr'
end
if boulwin <= 10 and boulvar = 1:
set picrand = 14
if money >= 2000:
'You lose and have to pay 2000 rubles.'
act 'Offer in-kind': xgt 'sexdvoe','var'
act 'Pay':
set money -= 2000
gt 'torgcentr'
end
end
if money < 2000:
'You lost, but you do not have money to pay, only one payment method.'
act 'In kind': xgt 'sexdvoe','var'
end
end
if boulwin <= 10 and boulvar = 2:
set picrand = 11
'You lose, will push the legs.'
act 'Pay': gt 'sexorg','var'
end
if boulwin > 10 and boulvar = 0:
set money += 300
'You won and got 300 rubles.'
act 'Leave': gt 'torgcentr'
end
if boulwin <= 10 and boulvar = 0:
!set money -= 300
'You lost and paid 300 rubles.'
act 'Leave': gt 'torgcentr'
end
end
if $ARGS[0] = 'start':
'Bowling'
'
'
act 'Leave': gt 'bouling'
end
--- bouling ---------------------------------