# billiard $sexloc = $CURLOC cla *clr gs 'stat' '
Pool
' '
' 'Quite a large billiard room, there are plenty of tables in the hall, but there are tables in individual cubicles.' act 'Leave':gt 'torgcentr' if hour >= 8 and hour <= 20: if money >= 250: act 'Play 250 rubles (1:00)': set money -= 250 set billiardnav += rand(0, 3) set minut += 60 set billrand = rand(0, 5) set billvar = 0 if billrand = 0: cla 'It suits you and the guy offers to play with him' if money >= 1000:act 'Gamble, bet 1000':gt 'billiard', 'randwin' if DOM > 20 and strapon = 1: act 'Play on your ass, fuck me lose': set billvar = 1 gt 'billiard', 'randwin' end end act 'Leave':gt 'billiard' end if billrand = 1: cla 'It suits you and offer a couple of guys to play with them' if money >= 1000:act 'Gamble, bet 1000':gt 'billiard', 'randwin' if DOM > 20 and strapon = 1: act 'Play on your ass, fuck me lose': set billvar = 2 gt 'billiard', 'randwin' end end act 'Leave':gt 'billiard' end if billrand > 1: cla 'You played billiards' act 'Leave':gt 'billiard' end end end if money >= 300: act 'Play for money': set money -= 300 set minut += 60 set billvar = 3 gt 'billiard', 'randwin' end end end if $ARGS[0] = 'randwin': cla if billiardnav < 10:set billwin = rand(0, 10) if billiardnav >= 10 and billiardnav < 20:set billwin = rand(0, 12) if billiardnav >= 20 and billiardnav < 30:set billwin = rand(0, 14) if billiardnav >= 30 and billiardnav < 40:set billwin = rand(0, 16) if billiardnav >= 40 and billiardnav < 50:set billwin = rand(0, 18) if billiardnav >= 50 and billiardnav < 60:set billwin = rand(0, 20) if billiardnav >= 60 and billiardnav < 70:set billwin = rand(0, 22) if billiardnav >= 70 and billiardnav < 80:set billwin = rand(0, 24) if billiardnav >= 80 and billiardnav < 90:set billwin = rand(0, 26) if billiardnav >= 90:set billwin = rand(0, 28) if billwin > 10 and billvar = 0: set money += 1000 'You won and received 1,000 rubles.' act 'Leave':gt 'billiard' end if billwin > 10 and billvar = 1: *clr set DOM += 5 '
' 'You win, put a strap, and looked at the guy, "Well stand stoop, today you´re my bitch"' 'The guy dropped his pants and got cancer, you fucked his threesome.' act 'Leave':gt 'billiard' end if billwin > 10 and billvar = 2: set DOM += 8 '
' 'You won dressed strap, and looked at the guys:"Come on girls panties descend and rise at all, I now this whole harem going to fuck"' 'You fucked them all in turn.' act 'Leave':gt 'billiard' end if billwin <= 10 and billvar = 0: set money -= 1000 'You lost and paid 1,000 rubles.' act 'Leave':gt 'billiard' end if billwin <= 10 and billvar = 1: 'You lose, will push the legs.' set picrand = 16 act 'Pay':xgt 'sex', 'var' end if billwin <= 10 and billvar = 2: 'You lose, will push the legs.' act 'Pay':gt 'paysex', 'var' end if billwin > 10 and billvar = 3: set money += 300 'You won and got 300 rubles.' act 'Leave':gt 'billiard' end if billwin <= 10 and billvar = 3: !!set money -= 300 'You lost and paid 300 rubles.' act 'Leave':gt 'billiard' end end if $ARGS[0] = 'start': '
Pool
' '
' act 'Leave':gt 'billiard' end --- billiard ---------------------------------