# 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 2,000 rubles.' act 'Leave':gt 'torgcentr' end if boulwin > 10 and boulvar = 2: set money += 5000 'You won and received 5,000 rubles.' act 'Leave':gt 'torgcentr' end if boulwin <= 10 and boulvar = 1: set picrand = 14 if money >= 2000: 'You lose and have to pay 2,000 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 ---------------------------------