# 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 ---------------------------------