123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141 |
- # HotelRoom
- CLOSE ALL
- if $ARGS[0] = 'normal':
- $metkaM = 'normal'
- $locM = 'HotelRoom'
- $metka = 'normal'
- $loc = 'HotelRoom'
- $location_type = 'private'
- cla
- *clr
- FColor = RGB(0,0,0)
- BColor = RGB(255,255,255)
- LColor = RGB(106,90,205)
- '<center><b><font color = maroon>Your normal hotel room</font></b></center>'
- '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
- '<center><img src="images/nigma/gor/hotel/hotel.room.normal.jpg"></center>'
- 'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) stands near the entrance of the room. Next to the door, you can find a <a href="exec:GT ''mirror'',''start''">mirror</a>. The door to the <a href="exec:GT ''hotelroom'',''shower1''">bathroom</a> is to the right.'
- 'Your hotel room also has a <a href="exec:GT ''HotelRoom'',''tv''">TV</a>.'
- act'Go to the hotel lobby':
- if $clothingworntype ! 'nude':
- gt'hotelHole'
- else
- msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
- gt'HotelRoom','normal'
- end
- end
- end
- if $ARGS[0] = 'better':
- $metkaM = 'better'
- $locM = 'HotelRoom'
- $metka = 'better'
- $loc = 'HotelRoom'
- $location_type = 'private'
- cla
- *clr
- FColor = RGB(0,0,0)
- BColor = RGB(255,255,255)
- LColor = RGB(106,90,205)
- '<center><b><font color = maroon>Your luxury room</font></b></center>'
- '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
- '<center><img src="images/nigma/gor/hotel/hotel.room.better.jpg"></center>'
- 'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) stands near the entrance of the room. Next to the door, you can find a <a href="exec:GT ''mirror'',''start''">mirror</a>. The door to the <a href="exec:GT ''hotelroom'',''shower1''">bathroom</a> is to the right.'
- 'Your hotel room also has a small flat-screen <a href="exec:GT ''HotelRoom'',''tv''">TV</a>, right across the bed.'
- act'Go to the hotel lobby':
- if $clothingworntype ! 'nude':
- gt'hotelHole'
- else
- msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
- gt'HotelRoom','better'
- end
- end
- end
- if $ARGS[0] = 'best':
- $metkaM = 'best'
- $locM = 'HotelRoom'
- $metka = 'best'
- $loc = 'HotelRoom'
- $location_type = 'private'
- cla
- *clr
- FColor = RGB(0,0,0)
- BColor = RGB(255,255,255)
- LColor = RGB(106,90,205)
- '<center><b><font color = maroon>Your royal suite</font></b></center>'
- '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
- '<center><img src="images/nigma/gor/hotel/hotel.room.best.jpg"></center>'
- 'Your hotel room is quite spacious, and is beautifully furnished. For a second, you wonder why a hotel in a town like Pavlovsk even has such a luxurious suite. The room is filled with expensive appliances. The gorgeous <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) stands near the entrance of the room. Next to the door, you can find a <a href="exec:GT ''mirror'',''start''">mirror</a>. The door to the <a href="exec:GT ''hotelroom'',''shower1''">bathroom</a> is to the right.'
- 'Your hotel room also has a huge flat-screen <a href="exec:GT ''HotelRoom'',''tv''">TV</a>, right across the bed.'
- act'Go to the hotel lobby':
- if $clothingworntype ! 'nude':
- gt'hotelHole'
- else
- msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
- gt'HotelRoom','best'
- end
- end
- end
- if $args[0] = 'shower1':
- $location_type = 'bathroom'
- act 'Return to your room':
- if hotelroom = 1:gt'HotelRoom','normal'
- if hotelroom = 2:gt'HotelRoom','better'
- if hotelroom = 3:gt'HotelRoom','best'
- end
- $metkaM = 'shower1'
- $locM = 'HotelRoom'
- $metka = 'shower1'
- $loc = 'HotelRoom'
- clr
- minut = minut + 1
- gs'stat'
- FColor = RGB(0,0,0)
- BColor = RGB(255,255,255)
- LColor = RGB(106,90,205)
- '<center><b><font color = maroon>The bathroom of your hotel room</font></b></center>'
- if hotelroom = 1:'<center><img src="images/nigma/gor/hotel/hotel.room.normal1.jpg"></center>'&'A small and unpretentious bathroom, that is nevertheless quite stylish and has everything you need.'
- if hotelroom = 2:'<center><img src="images/nigma/gor/hotel/hotel.room.better1.jpg"></center>'&'A nice looking and spacious bathroom, with separate bath tub.'
- if hotelroom = 3:'<center><img src="images/nigma/gor/hotel/hotel.room.best1.jpg"></center>'&'A very luxurious and spacious bathroom, fit for a king.'
- gs 'din_van', 'private'
- end
- if $ARGS[0] = 'tv':
- gs'stat'
- if hotelroom=1:'<center><img src="images/nigma/gor/hotel/tv1.jpg"></center>'
- if hotelroom=2:'<center><img src="images/nigma/gor/hotel/tv2.jpg"></center>'
- if hotelroom=3:'<center><img src="images/nigma/gor/hotel/tv3.jpg"></center>'
- 'You turn on the TV and make yourself comfortable on the bed.'
- $din_wath_tv_h2 = {
- cls
- minut += 60
- willpower += RAND(5,10)
- manna += RAND(10,50)
- gs'stat'
- '<center><img src="images/nigma/gor/hotel/tv0,'+rand(0,4)+'.jpg"></center>'
- 'You are watching the country''s main television channel. None of their programs are really worth watching, but the distraction is welcome anyway.'
- act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
- act 'Get up from the bed':gt $locM, $metkaM
- }
- act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
- act 'Get up from the bed':gt $locM, $metkaM
- end
- --- HotelRoom ---------------------------------
|