# gdksport
$din_go_to_home_dance = {
act 'Drive back':
cls
minut += 15
gs 'stat'
'You called a taxi and you brought back to town.'
if cumface > 0:cumface = 0 & 'Along the way you wiped the sperm from the face wipes.'
act 'Leave':gt 'gorodok'
end
}
$din_beg_gor_sec = {
cls
gs 'stat'
'Subsriptions section running costs 100 rubles for 30 days.'
if money >= 100 and gsAboBeg = 0:
act 'Buy a subscription to the running section 100 rubles':
cls
money -= 100
gsAboBeg += 30
gs 'stat'
'You bought a ticket for 30 visits section running.'
act 'Leave':gt 'gdksport'
end
end
act 'Leave':gt 'gdksport'
}
$din_dance_gor_sec = {
cls
gs 'stat'
'Subscriptions section dancing costs 100 rubles for 10 days.'
if money >= 100 and gsAboDance = 0:
act 'Buy a ticket to the dance 100 rubles':
cls
money -= 100
gsAboDance += 10
gs 'stat'
'You bought a ticket for 10 visits dance section.'
act 'Leave':gt 'gdksport'
end
end
act 'Leave':gt 'gdksport'
}
$din_voll_gor_sec = {
cls
gs 'stat'
'Aboniment section volleyball costs 300 rubles for 30 days.'
if money >= 300 and gsAboVolley = 0:
act 'Buy a subscription for 300 rubles volleyball':
cls
money -= 300
gsAboVolley += 30
gs 'stat'
'You bought a ticket for 30 visits section volleyball.'
act 'Leave':gt 'gdksport'
end
end
act 'Leave':gt 'gdksport'
}
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
House of Culture'
''
'The house work culture section Racing, Dance and Volleyball.'
if kotovLoveQW > 0 and hour = 16:
'Do you see how the club is included Vitek Kotov with a large sports bag.'
elseif grupNPC[3] >= 80 and hour = 17 and ivansportday ! day:
'Do you see how the club included Ivan Prokhorov with a large sports bag.'
end
if grupNPC[5] >= 80 and fedorKozlovQW = 0 and GorSlut = 0 and UNSTARTER = 1:
!!event does not have to start over because they do not
cls
fedorKozlovQW = 1
numnpc = 5
gs 'stat'
'<<$npcName[numnpc]>> <<$npcSurName[numnpc]>>'
''
'The club you unexpectedly met Fedor Kozlov in your class. He smiled affably you "Hello <<$name>>. Hmm ... Here is the deal ... I have an extra ticket to the movies. Let''s go together."'
act 'Refuse':
cls
grupNPC[5] = 40
gs 'stat'
'<<$npcName[numnpc]>> <<$npcSurName[numnpc]>>'
''
'You refused to Fedor referring to employment. Fedor frowned. "Okay. Whereas some other time."'
act 'Leave':gt 'gdksport'
end
act 'Agree':
cls
fedorKozlovQW = 10
grupNPC[5] = 100
minut += 15
gs 'stat'
'<<$npcName[numnpc]>> <<$npcSurName[numnpc]>>'
''
'You agreed and delighted Fedor took you to a movie theater located in the park.'
act 'Watch a movie':
cls
minut += 100
manna += 100
gs 'stat'
'<<$npcName[numnpc]>> <<$npcSurName[numnpc]>>'
''
'Fedor gave tickets at the entrance and you went into the hall. Soon the lights went out and started the movie. Fedor sat motionless and only occasionally glancing at you. Movie was quite interesting and you watched it with pleasure. When the movie ended, the hall lights were turned on and Fedor became accompany you. "<<$name>>. I like you. Maybe we could meet?"'
act 'Refuse':
cls
grupNPC[5] = 40
fedorKozlovQW = 2
minut += 15
gs 'stat'
'<<$npcName[numnpc]>> <<$npcSurName[numnpc]>>'
''
'You refused to meet with him to Fedor and was invited to stay friends. Fedor visibly upand silently carried you home.'
act 'Leave':gt 'gorodok'
end
act 'Agree':
cls
minut += 15
gs 'stat'
'<<$npcName[numnpc]>> <<$npcSurName[numnpc]>>'
''
'You have agreed to meet with Fedor. Fedor was visibly delighted and escort you to the house on the way you viewed fun discussing movies.'
act 'Leave':gt 'gorodok'
end
end
end
exit
end
act 'Leave':gt 'gdk'
if albinaQWdance > 0 or gsAboDance > 0 or gsAboBeg > 0 or gsAboVolley > 0:
act 'Change clothes in the locker room':gt 'clothing', 'view_clothing_list', 'wardrobe'
if sweat >= 0:
act 'Wash in the shower':
cls
dynamic $showerdin
minut += 15
horny += 1
hapri = 1
mop = 1
sweat = -3
if frost > 0:frost = 0
gs 'stat'
''
if kotovVSprohorov = 1:
kotovVSprohorov = 2
'You entered the women''s shower and turning the water began to lather your body washcloth. Suddenly, the door creaked and you remember that you forgot to close it. You looked back and saw that standing in the doorway Ivan Prokhorov and treat you. "Hi <<$name>>. Can I join? And then the men''s shower place." Ivan smiled after these words.'
act 'expel Ivan':
cls
IvanShowerQW = 1
gs 'stat'
''
'You covered the chest hand and the other hand launched a washcloth in Ivan. He easily dodged the flying sponges and laughter came out of the shower. You locked the door and quickly domylis shower.'
act 'Get out of the shower':gt $locM, $metkaM
end
act 'Uh, what?':
cls
gs 'stat'
''
'Were you surprised like, and your insecurities Ivan regarded as consent. He went into the shower and closed the door behind him.'
act 'Escape from the shower':IvanShowerQW = 1 & gt $locM, $metkaM
act 'bathe together':
cls
minut += 5
horny += 10
gs 'stat'
''
'Ivan took off his boxer shorts and went under a jet shower. His muscular body was very close to yours. You tried not to look at him but his eyes involuntarily dropped to his groin where hung thick cock. Ivan winked "Want to soap?"'
act 'lather Ivan':
cls
minut += 5
horny += 20
gs 'stat'
''
'You took a washcloth and began to lather body of Ivan. His cock began to get up and touched your thigh. Ivan began to hug you and caress your body with your hands.'
act 'Give blowjob':
cls
minut += 5
horny += 20
bj += 1
if npcSex[3] = 0:npcSex[3] = 1 & guy += 1
gs 'stat'
''
'You slowly sank to his knees in front of Ivan and his cock was in front of your face. Ivan spent impatiently you head lips mouth open and you let his cock. Your lips tightly wraps solid rod Ivan and you sucked in the shower under the streams of water. Suddenly Ivan took a member of your mouth and taking you by the hand raised to his feet, he dug his lips to your breast and began to suck. You swept bliss. Ivan turned your back to him and pushed you back.'
act 'stand cancer':
cls
IvanShowerQW = 10
minut += 5
horny += 20
$boy = 'Ivan'
dick = 17
lubonus = 2
gs 'stat'
''
'You bent over and felt the hand of Ivan stroking your ass and anus.'
dynamic $analsex
'Ivan pulls a member of your buttocks and you feel like you are on the back and buttocks land warm trickle of sperm.'
act 'Get out of the shower':gt $locM, $metkaM
end
end
end
end
end
exit
end
'You entered the women''s shower and began soaping his body washcloth. After washed soap and washed hair with shampoo. Rinse off the shampoo you become completely clean. After showering you comb your hair and dressed.'
act 'Get out of the shower':gt $locM, $metkaM
end
end
end
if hour < 16 or hour > 20:
exit
end
if albinaQWdance > 0 and AlbinaBlokDance = 0 and ZvezdEnd = 0 and sport = 1:
act 'Train with Zvezdushkami':
cls
minut += 120
fat -= 5
if agil < 50: agil += rand(1, 3)
if agil >= 50 and agil < 80: agil += rand(0, 2)
if agil >= 80:agil += rand(0,1)
manna -= 5
sweat += 3
dancePRO += rand(1, 3)
gs 'stat'
''
if dancePRO < 20:
sub += 1
'You train together with sex of "Zvezdushek", you get bad and Albina constantly yelling at you and calling them bowlegged kolkhoz.'
elseif dancePRO >= 20 and dancePRO < 40:
sub += 1
'You train together with sex of "Zvezdushek" you sometimes get something, but most movements by Albina constantly yelling at you and calling them bowlegged kolkhoz.'
elseif dancePRO >= 40 and dancePRO < 60:
'You train together with sex of "Zvezdushek" you dance with sex getting in the general rhythm, but not happy Albina "<<$name>>, very sluggish, more life."'
elseif dancePRO >= 60 and dancePRO < 80:
'You train together with sex of "Zvezdushek" you normally get all but Albina regularly you niggles "<<$name>>, you are not at the funeral, raise your head and smile!"'
elseif dancePRO >= 80:
stardance += 1
'You dance beautifully and Albina you start to put an example to other girl.'
if stardance < 10:
if otkazDanceWhore = 1:
if AlbinaLast = 1:
AlbinaBlokDance = 1
'After training Albina withdraws you aside and starts berating. "You roundnose Kolhoz. Because of you I am losing customers. So fuck off, you are no longer uchavstvuesh in the team."'
else
AlbinaLast = 1
otkazDanceWhore = 0
if AlbFather = 0:AlbFather = 1
'After training Albina withdraws you aside and starts berating. "I know you''re young and stupid, but I explain to you in the first and last time. Again swept me with clients fly from Zvezdushek miserably. Entertain men is part of the business."'
end
end
if DanceWhoreT > 0:
DanceWhoreT = 0
if AlbFather = 0:AlbFather = 1
'Albina after training beckons you to her. "Good <<$name>>. Communicating with men of the business. Main keep his mouth shut. You''re doing fine, doing well. Stick with me and you will have all the money, cars and apartments."'
end
else
stardance = 0
albpayrand = rand(1, 5)
'Albina gathered girls. Today small halturka planned. Each will receive <> per job. The matter for a couple of hours.'
act 'Go part time':
cls
minut += 120
money += albpayrand * 1000
sweat = -3
profiDanceTime += 1
gs 'stat'
'You agreed and Albina phoned by phone. Soon the car came up to you. You sank with sex in the car and went somewhere. Soon you come to what that home in a large hall where people were sitting and pointed. You are dressed in costumes who sewed commissioned Albina, and went on stage to dance to the fiery music. You danced very well and everything went smoothly. You left the stage and Albina distributed money. You take turns on bystrenkomu took a shower.'
if vnesh >= 13:
if vnesh < 16:wealthmanrand = rand(0, 15)
if vnesh >= 16 and vnesh < 18:wealthmanrand = rand(0, 12)
if vnesh >= 18:wealthmanrand = rand(0, 10)
if wealthmanrand = 0:
kolvomanparty = 1
danceWhorePay = rand(3, 8)
'You see how a man came to Albina in a decent suit and began about something with her to talk quietly.'
elseif wealthmanrand = 1:
kolvomanparty = 2
danceWhorePay = rand(5, 10)
'You see how to Albina approached by two guys and started about something to talk to her.'
elseif wealthmanrand = 2:
kolvomanparty = 1
danceWhorePay = rand(4, 9)
'You see how to Albina came Caucasian and became what it is talking to her gesticulating.'
elseif wealthmanrand = 3:
kolvomanparty = 2
danceWhorePay = rand(6, 12)
'You see how to Albina came two Caucasians and become about something to talk to her.'
elseif wealthmanrand = 4:
kolvomanparty = 3
danceWhorePay = rand(8, 14)
'You see how to Albina came three Caucasians and became what it is talking to her.'
elseif wealthmanrand = 5:
kolvomanparty = 1
danceWhorePay = rand(5, 10)
'You see as a Negro came Albina and became about something to talk to her.'
elseif wealthmanrand = 6:
kolvomanparty = 2
danceWhorePay = rand(7, 15)
'You see how to Albina approached two blacks and became what it is talking to her.'
elseif wealthmanrand = 7:
kolvomanparty = 3
danceWhorePay = rand(10, 20)
'You see how to Albina approached three blacks and became what it is talking to her.'
end
if wealthmanrand <= 7:
'After talking Albina came to you. "<<$name>>, need to talk."'
act 'About what?':
cls
minut += 15
gs 'stat'
'You asked Albina what she wanted to talk.'
if kolvomanparty = 1:
'Albina came closer to you and quietly began to speak, "You see this guy? If you stay with him for an hour and be affectionate, you will be able to earn not bad. Obtain <> rubles."'
else
'Albina came closer to you and quietly began to speak, "You see these guys? If you stay with them for a couple of hours and be affectionate, you will be able to earn not bad. Obtain <> rubles."'
end
act 'Cancel and go back':
cls
minut += 15
otkazDanceWhore = 1
DanceWhoreT = 0
gs 'stat'
'You got in the car and soon, along with sex you brought back to town.'
act 'Leave':gt 'gorodok'
end
act 'Agree':
cls
money += danceWhorePay * 1000
DanceWhore += 1
DanceWhoreT += 1
otkazDanceWhore = 0
slutty += 1
gs 'stat'
'You agreed and Albina you counted the money.'
if wealthmanrand = 0:act 'Go with a man':gt 'DanceWhore1'
if wealthmanrand = 1:act 'Go with men':gt 'DanceWhore2'
if wealthmanrand = 2:act 'Go in Caucasians':gt 'DanceWhore3'
if wealthmanrand = 3:act 'Go with Caucasians':gt 'DanceWhore4'
if wealthmanrand = 4:act 'Go with Caucasians':gt 'DanceWhore5'
if wealthmanrand = 5:act 'Start with a black man':gt 'DanceWhore6'
if wealthmanrand = 6:act 'Go with blacks':gt 'DanceWhore7'
if wealthmanrand = 7:act 'Go with blacks':gt 'DanceWhore8'
end
end
exit
end
elseif vnesh < 13:
'After dancing Albina talked with some sort of men and what is agreed.'
end
act 'Drive back':
cls
minut += 15
gs 'stat'
'You got in the car and soon, along with sex you brought back to town.'
act 'Leave':gt 'gorodok'
end
end
end
end
act 'Leave':gt 'gdksport'
end
end
if gsAboDance > 0 and sport = 1:
act 'Section dance ticket is valid for <> visits':
cla
*clr
gsAboDance -= 1
minut += 120
fat -= 5
if agil< 50:agil += rand(1, 3)
if agil >= 50 and agil < 80:agil += rand(0, 2)
if agil >= 80:agil += rand(0, 1)
manna -= 5
sweat += 3
if dance < agil:dance += rand(5, 15)
gs 'stat'
''
if dance < 100:
'You studied modern dance club, which is very popular in discos.'
if dance < agil:
'You have to string up, but your agility and helps you hone some of what dance moves.'
else
'You do not have enough dexterity, that would successfully repeat all the movements.'
end
!place for use in events
if rand(0, 1) = 0:'It seems you see, that is interesting.'
elseif dance >= 100:
'You have tried something new in modern club dancing, but you all already know it.'
if albinaQWdance > 0:
!place for use in events
if rand(0, 1) = 0:'It seems you see, that is interesting.'
elseif albinaQWdance = 0 and StoryLine > 0:
'When the training is over you noticed how the room got a few girls and Albina Barlovskaya. Albina odnoklasnitsa you, but you almost nothing about her know.'
act 'Say hello to Albina':
cls
numnpc = 23
gs 'stat'
'<<$npcName[numnpc]>> <<$npcSurName[numnpc]>>'
''
'You are greeted with Albina. She raised an eyebrow haughtily. "And it''s you.''s Your name there? Oh yeah <<$name>>. Did you? Zanimaeshsya Dancing?" You nodded confirming the obvious. Albina dismissive laugh. "Well, how''s it going?" You said coldly Albina "Not bad." Albina gave you look arrogant "Not bad? Well, maybe in comparison with other local bowlegged and not bad. But I doubt that you can dance on a more or less professional level."'
act 'I do not care':
cls
numnpc = 23
dom += 1
grupNPC[numnpc] -= 5
gs 'stat'
'<<$npcName[numnpc]>> <<$npcSurName[numnpc]>>'
''
'You said scornfully as possible that you do not care and turned away from Albina. She said with a giggle. "Girls. Let''s train."'
act 'Leave':gt 'gdksport'
end
act 'I know how to dance':
cls
numnpc = 23
!!dom += 1
!!grupNPC[numnpc] -= 5
gs 'stat'
'<<$npcName[numnpc]>> <<$npcSurName[numnpc]>>'
''
'Albina you already began to annoy his arrogance. And you told her firmly that you know how to dance. Albina turned to the girls who came to her and said. "Girls. Let''s train." Then she turned to you and said with a slight grin. "You can sit and watch as the dance pros. Itself will understand everything"'
act 'Leave':gt 'gdksport'
act 'Watch':
cls
minut += 15
gs 'stat'
'Girls included stereo and started dancing. You once it became clear that they dance very well and professionally. You can hardly so. Albina also dances much better than you. And indeed very concerted action girls and waste, apparently they do not work out this dance for the first time. When the music ended Albina said, "Girls. While a little break." She came to you and said a little breathlessly, "We are the pros. We spent a dance troupe Zvezdushki. Dancing on holidays. Even in a music video filming."'
act 'Leave':gt 'gdksport'
act 'Ask for them in the community':
cls
minut += 15
gs 'stat'
'You are asked to dance group. Albina grinned "Can you? We then have all worked. Though vprchem. Show how you know how to dance." Albina included music and girls gathered to look at your dance.'
act 'Dance':
cls
minut += 5
gs 'stat'
'You began to dance to the music, trying as much as possible. When the music stopped you came Albina. "Collective Farm Style course. But nothing, you have some potential."'
act 'Well take me to your team?':
cls
albinaQWdance = 1
minut += 5
gs 'stat'
'You asked Albina, if she would take you to their team. Albina thought and answered you. "Okay, take it. Maybe from you and get anything worthwhile."'
act 'Leave':gt 'gdk'
end
end
end
end
end
end
end
end
act 'Leave':gt 'gdksport'
end
end
if gsAboBeg > 0 and sport = 1:
act 'Section races, subscription is valid for <> visits':
cla
*clr
gsAboBeg -= 1
minut += 120
speed += rand(1, 3)
manna -= 5
if salo > 0:salo -= 1
fat -= 5
sweat += 3
beg += rand(3, 6)
gs 'stat'
''
'You do run for two hours.'
act 'Leave':gt 'gdksport'
end
end
if gsAboVolley > 0 and volleysostav = 0 and sport = 1:
if week ! 5:
act 'Section volleyball ticket is valid for <> visits':
cla
*clr
gsAboVolley -= 1
minut += 120
if alko = 0:
volleyboll += 1
speed += rand(1, 3)
beg += rand(1, 2)
if agil < 50:agil += rand(1, 3)
if agil >= 50 and agil < 80:agil += rand(0, 2)
if agil >= 80:agil += rand(0, 1)
if stren < 10:stren += rand(1, 3)
if stren >= 10 and stren < 20:stren += rand(1, 2)
if stren >= 20 and stren < 30:stren += 1
if stren >= 30 and stren < 40:stren += rand(0, 1)
if vital < 10:vital += rand(1, 3)
if vital >= 10 and vital < 20:vital += rand(1, 2)
if vital >= 20 and vital < 30:vital += 1
if vital >= 30 and vital < 40:vital += rand(0, 1)
end
manna -= 5
fat -= 5
sweat += 3
gs 'stat'
''
if alko = 0:'At the beginning of the workout you ran a few laps around the room. After you press the jog and do abdominal exercises. Then began to practice reception and feeding the ball.'
if alko > 0:'You are trying to train, but your intoxication does not give you focus and you will suffer from garbage, than treneruetes.'
act 'Leave':gt 'gdksport'
act 'Go to coaching':gt 'Voltrener'
end
else
act 'Section volleyball ticket is valid for <> visits':
cla
*clr
gsAboVolley -= 1
minut += 120
if alko = 0:
volleyboll += 1
speed += rand(1, 2)
agil += rand(1, 2)
if stren < 40:stren += rand(1, 2)
if vital < 40:vital += rand(1, 2)
beg += rand(1, 2)
dom += 1
end
manna -= 5
fat -= 5
sweat += 3
gs 'stat'
''
'Fridays are usually held as the game in which to discover strengths and talented athletes.'
if alko = 0:
if volleyboll < 25:
'You are absolutely lousy play and constantly mistaken. Finally nerves coach not stand up and it removes you from the field.'
elseif volleyboll >= 25 and volleyboll < 50:
'You do not play very much. Sometimes make blunders. Coach is angry, but tolerates your antics.'
elseif volleyboll >= 50 and volleyboll < 75:
'You play well on the field and rarely wrong. Coach looks pleased you.'
elseif volleyboll >= 75:
'You play great on the field, easily replaying their rivals. Coach looks pleased with your game.'
if rand(0, 1) = 0:
if andGevknow = 0:$nameAndGev = 'Some guy'
if andGevknow > 0:$nameAndGev = 'Andrew'
'During the game you pushed <<$nameAndGev>>.'
end
end
else
'You took to the field, but failed to recapture myach, intoxication does not focus. The coach sees your status and remove you from the game.'
end
act 'Leave':gt 'gdksport'
act 'Go to coaching':gt 'Voltrener'
end
end
end
if volleysostav > 0 and sport = 1:
if week ! 6 and volkomday ! day:
act 'To engage with the team':
cla
*clr
volkomday = day
minut += 120
speed += rand(1, 3)
agil += rand(1, 3)
if stren < 50:stren += rand(1, 3)
if vital < 50:vital += rand(1, 3)
manna -= 5
fat -= 5
sweat += 3
beg += rand(1, 2)
volleyboll += 1
trenerepa += 1
dom += 1
gs 'stat'
''
'Number of games <>, Win - <>, lesions - <>, draws - <>.'
'At the beginning of the workout you ran a few laps around the room. After you press the jog and do abdominal exercises. Then began to practice reception and feeding the ball. At the end of the workout you had a game.'
act 'Leave':gt 'gdksport'
act 'Go to coaching':gt 'Voltrener'
end
elseif week = 6 and sorevday ! day:
act 'Check out the competition with a team':
cla
*clr
if poverkomand = 0:poverkomand = 600
volltime = 0
sorevday = day
minut += 180
speed += rand(1, 3)
agil += rand(1, 3)
if stren < 60:stren += rand(1, 3)
if vital < 60:vital += rand(1, 3)
manna -= 5
fat -= 5
sweat += 3
beg += rand(1, 2)
volleyboll += rand(1, 3)
dom += 1
trenerepa += 2
gs 'stat'
''
'You gathered their things together with other devchenki from the team and got on a bus that took you to a place where there will be a match.'
act 'Play':gt 'volley'
end
end
end
--- gdksport ---------------------------------