# bordel $sexloc = $CURLOC gs 'stat' '
Brothel
' '
' if vnesh < 0: '"Listen, you have some sort of infection, get it treated."' act 'Leave':gt 'down' elseif vnesh < 100: '"Look at you, no one will pay for such a product, get cleaned up and come back."' act 'Leave':gt 'down' else act 'In the room':gt 'bordel', 'start' end if $ARGS[0] = 'start': $metkaM = $ARGS[0] $locM = $CURLOC cla *clr gs 'stat' '
Your room in a brothel
' '
' 'In a brothel there is a lot of competition, in order to avoid a massacre they introduced a rule - no more than two clients per day' 'In the middle is a huge bed, there is a small side door to the bathroom.' act 'Leave': if ($clothingworntype ! 'naughty' and CloQuality ! 2) and $clothingworntype ! 'nude': gt 'down' else cla 'You need to change into suitable clothes.' act 'Go to the bathroom':gt 'bordel', 'dysh' end end act 'Go to the reception room and wait for customers': if $clothingworntype = 'naughty' and CloQuality = 2: cla 'You need to change into something more appropriate, all you need is in the locker in the bathroom.' act 'Go to the bathroom':gt 'bordel', 'dysh' end if arrsize('sparrloc') > 0 or mop < 2 or leghair > 0 or lobok > 0 or sweat > 0 or hapri = 0: cla 'You need to freshen up.' act 'Go to the bathroom':gt 'bordel', 'dysh' else gt 'bordel', 'var' end end end if $ARGS[0] = 'dysh': $metka = $ARGS[0] $loc = $CURLOC $metkaM = $ARGS[0] $locM = $CURLOC cla *clr gs 'stat' '
' act 'Go to your room':gt 'bordel', 'start' act 'Bathroom': bordysh = 1 gt 'vann', 'start' end act 'Mirror': borMir = 1 gt 'mirror', 'start' end act 'Change your clothes': gt 'clothing_QV', 'list' end end if $ARGS[0] = 'var': if borsexkol >= 2:gt 'bordel', 'start' $boy = 'Client' $boy1 = 'Client 2' minut += 30 borrand = rand(0, 10) if borrand = 0: 'Customer orders one girl (1,000 ).' act 'Refuse':gt 'bordel', 'start' act 'Agree': borsexkol += 1 money += 1000 slutty += 1 bordelslutty += 1 minut += 10 zpprand = rand(0, 100) if zpprand >= 70:dynamic $venerasiak gt 'sex', 'start' end elseif borrand = 1: 'Customer orders two girls (1,000 ).' act 'Refuse':gt 'bordel', 'start' act 'Agree': borsexkol += 1 money += 1000 slutty += 1 bordelslutty += 1 minut += 10 zpprand = rand(0, 100) if zpprand >= 70:dynamic $venerasiak gt 'podrsex', 'start' end elseif borrand = 2: 'Two clients book one girl (1,500 ).' act 'Refuse':gt 'bordel', 'start' act 'Agree': borsexkol += 1 money += 1500 slutty += 1 bordelslutty += 1 minut += 10 zpprand = rand(0, 100) if zpprand >= 70:dynamic $venerasiak gt 'sexdvoe', 'start' end elseif borrand = 3: 'Two clients book two girls (1,500 ).' act 'Refuse':gt 'bordel', 'start' act 'Agree': borsexkol += 1 money += 1500 slutty += 1 bordelslutty += 1 minut += 10 zpprand = rand(0, 100) if zpprand >= 70:dynamic $venerasiak gt 'sexdvanadva', 'start' end elseif borrand = 4: 'Group of customers order one girl, price 2,000 .' act 'Refuse':gt 'bordel', 'start' act 'Agree': borsexkol += 1 money += 2000 slutty += 1 bordelslutty += 1 minut += 10 zpprand = rand(0, 100) if zpprand >= 70:dynamic $venerasiak guy += 3 dynamic $clrboy dynamic $CatName, 'Bordel client' dynamic $CatName, 'Bordel client', '$boy1' dynamic $CatName, 'Bordel client', '$boy2' $boy[1] = $boy1 $boy[2] = $boy2 gt 'paysex', 'start' end elseif borrand > 4: 'You are not chosen.' act 'Go to your room':gt 'bordel', 'start' act 'Wait for another':gt 'bordel', 'var' end end --- bordel ---------------------------------