123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327 |
- # events
- if $ARGS[0] = 'street_cum':
- if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
- if hour >= 7 and hour <= 21:
- pcs_mood -= 5
- if face_write > 0:
- pcs_mood -= 5
- 'Passers puzzled turn around staring at you - one with surprise, and others with contempt. Someone smiles and shows a finger. Some of the pictures on your phone, absolutely not hiding and giggling at you. You clearly noticeable semen and bargain painted face.'
- else
- 'Puzzled passerbys turn around and stare at you. Some take pictures on their phones, not entirely hiding that they are giggling at you. The sperm on you is clearly noticeable.'
- end
- end
- elseif (cumloc[6] = 0 or cumloc[7] = 0) and cumloc[11] = 0 and face_write > 0:
- pcs_mood -= 5
- 'Surrounding look at you with surprise, grin or a slight contempt. Someone just point the finger and laughs. Someone photographed phone. Hair obviously can not hide "art" on your face.'
- end
- end
- if $ARGS[0] = 'read':
- act 'Read a book':
- cls
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
- if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0:'You scratch your head looking at the book you already read, thinking. "Damn, nothing to read, maybe I''ll take a walk or search the market for a new book?"'
- if f_book > 0:
- if fantasybook <= 0:fantasybook = 5 & f_book -= 1
- 'You still have <<f_book>> unread fantasy novels.'
- end
- if fantasybook > 0:
- act 'Read fantasy book. There are <<fantasybook * 100>> pages left (1:00)':
- cls
- fantasybook -= 1
- if fantasybook = 0:totalbook += 1
- minut += 60
- if pcs_nerd > 0:
- lastread = totminut
- lastreadday = daystart
- pcs_nerd += 1
- blizoruk += 1
- end
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
- if pcs_nerd > 0:
- pcs_mood = 100
- if pcs_stren > 1:stren_deg -= 1
- if pcs_vital > 5:vital_deg -= 1
- 'For an hour you enthusiastically read the book, completely immersed in the authors world.'
- else
- pcs_mood += 10
- 'For an hour you read the book.'
- end
- act 'Close the book':gt $loc, $Metka
- end
- end
- if w_book > 0:
- if womanbook <= 0:womanbook = 5 & w_book -= 1
- 'You still have <<w_book>> unread women''s novels.'
- end
- if womanbook > 0:
- act 'Read Women''s Novel. There are <<womanbook * 100>> pages left (1:00)':
- cls
- womanbook -= 1
- if womanbook = 0:totalbook += 1
- minut += 60
- if pcs_nerd > 0:
- lastread = totminut
- lastreadday = daystart
- pcs_nerd += 1
- blizoruk += 1
- end
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
- if pcs_nerd > 0:
- pcs_mood = 100
- pcs_horny += 10
- if pcs_stren > 1:stren_deg -= 1
- if pcs_vital > 5:vital_deg -= 1
- 'For an hour you enthusiastically read the book, completely immersed in the story.'
- else
- pcs_mood += 10
- pcs_horny += 3
- 'For an hour you read the book.'
- end
- act 'Close the book':gt $loc, $Metka
- end
- end
- act ' Close the book':gt $loc, $Metka
- end
- if cookmag = 0 and fashmag = 0 and compmag = 0 and biomag = 0 and knitmag = 0 and fitmag = 0:
- 'You have no magazines to read.'
- else
- act 'Read a magazine':
- cls
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
- if cookmag = 1:
- act 'Read your cooking magazine':
- cla
- cookmag = 0
- pcs_mood += 5
- minut += 30
- 'You relax for half an hour reading your cooking magazine.'
- act 'Return':gt $loc, $Metka
- end
- end
- if fashmag = 1:
- act 'Read your fashion magazine':
- cla
- fashmag = 0
- pcs_mood += 5
- minut += 30
- makupskl_exp += 1
- 'You relax for half an hour reading your fashion magazine.'
- act 'Return':gt $loc, $Metka
- end
- end
- if compmag = 1:
- act 'Read your computing magazine':
- cla
- compmag = 0
- pcs_mood += 5
- minut += 30
- compskl_exp += 1
- 'You relax for half an hour reading your computing magazine.'
- act 'Return':gt $loc, $Metka
- end
- end
- if biomag = 1:
- act 'Read your biographical magazine':
- cla
- biomag = 0
- pcs_mood += 5
- minut += 30
- 'You relax for half an hour reading your biographical magazine.'
- act 'Return':gt $loc, $Metka
- end
- end
- if knitmag = 1:
- act 'Read your knitting magazine':
- cla
- knitmag = 0
- pcs_mood += 5
- minut += 30
- if pcs_sewng <= 100: sewng_exp += rand(1,3)
- 'You relax for half an hour reading your knitting magazine.'
- act 'Return':gt $loc, $Metka
- end
- end
- if fitmag = 1:
- act 'Read your fitness magazine':
- cla
- fitmag = 0
- pcs_mood += 5
- minut += 30
- 'You relax for half an hour reading your fitness magazine.'
- act 'Return':gt $loc, $Metka
- end
- end
- act 'Return':gt $loc, $Metka
- end
- end
- end
- if $ARGS[0] = 'read_porn':
- act 'Read the porn magazine':
- cls
- '<center><img <<$set_imgh>> src="images/shared/accessories/magazines/porn.jpg"></center>'
- if pornMagazine = 1:
- '<font color="magenta">Boring</font>, you''ve memorized this magazine by heart, you think that is time to buy a new one.'
- else
- pornMagazine -= 1
- pcs_horny += 10
- minut += 5
- gs 'stat'
- 'You flip through the porno magazine, reading the stories and looking at the pictures. A small excitement begins to cover your body.'
- end
- act 'Put away':gt $loc, $Metka
- end
- end
- if $ARGS[0] = 'snkayf':
- snkz = RAND(1,6)
- gs 'underwear', 'remove'
- if snkz = 1:
- hour += 2
- gt'gdk'
- end
- if snkz = 2:
- hour += 2
- gt 'gskver', 'start'
- end
- if snkz = 3:
- hour += 2
- gt'bedrPar'
- end
- if snkz = 4:
- hour += 2
- gt'gopskver'
- end
- if snkz = 5:
- hour += 2
- gt 'pavtrainhall', 'female'
- end
- if snkz = 6:
- $clothingworntype = 'nude'
- hour += 2
- gt'Glake'
- end
- end
- if $ARGS[0] = 'narkozakladka':
- cls
- '<center><b>Shooting galleries</b></center>'
- '<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
- 'You decide to ask, and whether there are any dealers in Pavlovsk. To which the man replied, "Go to the train station platform, it will cost you though..."'
- 'And then he looks at you menacingly at you, "And if I hear that you''ve caused any trouble, well death will seem like a good escape."'
- act 'Agree':
- cls
- snarkozak = 1
- '<center><b>Shooting galleries</b></center>'
- '<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
- 'You gulp and stammer "I assure you there willl be no problems"'
- 'Guy nods, "Good then you can find a range of product at the end of the platform."'
- act 'Leave':gt'narkopriton'
- end
- end
- if $ARGS[0] = 'snarkozaka':
- cls
- minut += 20
- gs 'stat'
- '<center><B>Pavlovsk train station</B></center>'
- '<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg"></center>'
- 'You walk to the end of the platform and see a man hiding undercover smoking a cigarette'
- 'Walking up to him you ask him if he has anything'
- 'He turns and looks you up and down, "That depends on what you want little lady?"'
- act 'Heroin':
- money -= 1500
- StrongNarkota += 25
- SNarkTimes += 1
- narkozakday=day
- gs'stat'
- 'You buy the drugs and without thinking twice you shoot up.'
- gt 'events', 'snkayf'
- end
- act 'Amphetamines':
- money -= 1000
- amphetamine += 5
- gt $loc, $metka
- end
- act 'Leave': gt $loc, $metka
- end
- if $ARGS[0] = 'snkayf1':
- snkz = RAND(1,6)
- gs 'underwear', 'remove'
- if snkz = 1:
- hour += 2
- gt'park','start'
- end
- if snkz = 2:
- hour += 2
- gt'down'
- end
- if snkz = 3:
- hour += 2
- gt'nord'
- end
- if snkz = 4:
- hour += 2
- gt'street'
- end
- if snkz = 5:
- hour += 2
- gt'dachi'
- end
- if snkz = 6:
- hour += 2
- gt'lake','start'
- end
- end
- --- events ---------------------------------
|