gdkbibl 1.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. # gdkbibl
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. frost = 0
  5. gs 'stat'
  6. fcolor = rgb(0, 0, 0)
  7. bcolor = rgb(255, 255, 255)
  8. lcolor = rgb(106, 90, 205)
  9. '<center><b><font color="maroon">House of Culture</font></b></center>'
  10. '<center><img src="images/qwest/alter/gdkbibl.jpg"></center>'
  11. 'A small library with lots of interesting books.'
  12. act 'Exit':gt 'gdk'
  13. if hour >= 8 and hour <= 18:
  14. act 'Read science book (1:00)':
  15. cls
  16. minut += 60
  17. if intel >= 50:intel += rand(0, 1)
  18. if intel < 50 and intel >= 25:intel += rand(1, 2)
  19. if intel < 25:intel += rand(1, 3)
  20. gs 'stat'
  21. 'You are reading a book for an hour trying to figure out all sorts of clever frazochki and understand the subject description.'
  22. act 'Put the book':gt $curloc
  23. end
  24. act 'Read entertaining book (1:00)':
  25. cls
  26. minut += 60
  27. manna += 100
  28. willpower += 100
  29. gs 'stat'
  30. 'You are in for an hour reading a book about the adventures.'
  31. act 'Put the book':gt $curloc
  32. end
  33. act 'Read the collected works of Leo Tolstoy (1:00)':
  34. cls
  35. minut += 60
  36. if will >= 50:will += rand(0, 1)
  37. if will < 50 and will >= 25:will += rand(1, 2)
  38. if will < 25:will += rand(1, 3)
  39. gs 'stat'
  40. 'You are in for an hour reading a book. Tolstoy classic course, no one denies, but he wrote tyagomotinu rare.'
  41. act 'Put the book':gt $curloc
  42. end
  43. else
  44. 'Library closes.'
  45. end
  46. --- gdkbibl ---------------------------------