123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316 |
- # events
- if $ARGS[0] = 'street_cum':
- if spdirtyc > 0 or spdirtyv > 0:
- 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 spdirtyc = 0 and spdirtyv = 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
- '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
- '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)
- if tanga = 1:tanga = 0
- if snkz = 1:
- hour += 2
- gt'gdk'
- end
- if snkz = 2:
- hour += 2
- gt'gskver'
- end
- if snkz = 3:
- hour += 2
- gt'bedrPar'
- end
- if snkz = 4:
- hour += 2
- gt'gopskver'
- end
- if snkz = 5:
- hour += 2
- gt 'vokmantoiev', '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 their point of Ozersk. To which the man replied, that is not the point, but it can organize your tab and you will be left in place Bookmark money.'
- 'Price rise, taking into account the complexities twice and will link two pieces equals.'
- 'And then he looked menacingly at you and said, you if you cheat death.'
- 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 scared nodded, they agree.'
- 'Guy added, that bookmarks will be on the train/train station from the platform. '
- act 'Leave':gt'narkopriton'
- end
- end
- if $ARGS[0] = 'snarkozaka':
- cls
- minut += 20
- money -= 2000
- StrongNarkota += 25
- SNarkTimes += 1
- narkozakday=day
- gs'stat'
- '<center><B>Pavlovsk train station</B></center>'
- '<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg"></center>'
- 'You buy the drugs and without thinking twice you shoot up.'
- act 'Leave':gt 'events', 'snkayf'
- end
- if $ARGS[0] = 'snkayf1':
- snkz = RAND(1,6)
- if tanga = 1:tanga = 0
- 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 ---------------------------------
|