123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104 |
- # gdkbibl
- $metka = $ARGS[0]
- $loc = $CURLOC
- <<<<<<< 243_gdkbibl
- frost = 0
- gs 'stat'
- fcolor = rgb(0,0,0)
- bcolor = rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- '<center><B><font color = maroon>House of Culture</font></B></center>'
- '<center><img src="images\qwest\alter\gdkbibl.jpg"></center>'
- =======
- frost=0
- gs'stat'
- fcolor=rgb(0,0,0)
- bcolor=rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- '<center><B><font color=maroon>The House of Culture</font></B></center>'
- '<center><img src="qwest/alter/gdkbibl.jpg" ></center>'
- >>>>>>> 243_gdkbibl
- 'A small library with lots of interesting books.'
- <<<<<<< 243_gdkbibl
- act 'Exit': gt 'gdk'
- if hour >= 8 and hour <= 18:
- act 'Read science book (1:00)':
- cls
- minut += 60
- if intel >= 50: intel += RAND(0,1)
- if intel < 50 and intel >= 25: intel += RAND(1,2)
- if intel < 25: intel += RAND(1,3)
- gs 'stat'
- 'You are reading a book for an hour trying to figure out all sorts of clever frazochki and understand the subject description.'
- act 'Put the book': gt $curloc
- end
- act 'Read entertaining book (1:00)':
- cls
- minut += 60
- manna += 100
- willpower += 100
- gs 'stat'
- 'You are in for an hour reading a book about the adventures.'
- act 'Put the book': gt $curloc
- end
- act 'Read the collected works of Leo Tolstoy (1:00)':
- cls
- minut += 60
- if will >= 50: will += RAND(0,1)
- if will < 50 and will >= 25: will += RAND(1,2)
- if will < 25: will += RAND(1,3)
- gs 'stat'
- 'You are in for an hour reading a book. Tolstoy classic course, no one denies, but he wrote tyagomotinu rare.'
- act 'Put the book': gt $curloc
- end
- else
- 'Library closes.'
- =======
- act'Go_Out':gt'gdk'
- if hour>=8 and hour<=18:
- act'Read science book 1 h':
- cls
- minut+=60
- if intel>=50:intel+=RAND(0,1)
- if intel<50 and intel>=25:intel+=RAND(1,2)
- if intel<25:intel+=RAND(1,3)
- gs'stat'
- 'You are within an hour reading a book trying to figure out all sorts of clever frazochki and understand the subject description.'
- act'put the book':gt $curloc
- end
-
- act'Read an entertaining book 1 h':
- cls
- minut+=60
- manna+=100
- willpower+=100
- gs'stat'
- 'You are within an hour reading a book about the adventures of.'
- act'put the book':gt $curloc
- end
-
- act'Read the collected works of Leo Tolstoy 1 h':
- cls
- minut+=60
- if will>=50:will+=RAND(0,1)
- if will<50 and will>=25:will+=RAND(1,2)
- if will<25:will+=RAND(1,3)
- gs'stat'
- 'You are within an hour reading a book. Tolstoy classic course, no one denies, but he wrote a rare tyagomotinu.'
- act'put the book':gt $curloc
- end
-
-
- else
- 'The library is closed.'
- >>>>>>> 243_gdkbibl
- end
- --- gdkbibl ---------------------------------
|