psiklin 1.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152
  1. # psiklin
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. if $ARGS[0]='start':
  5. cla
  6. *clr
  7. minut += 50
  8. gs'stat'
  9. gs 'outdoors'
  10. '<center><H4>Elite settlement<H4></center>'
  11. '<left><img src="images/lmps/np18.jpg" ></left>'
  12. if BDSMClub = 1 or BDSMmeet > 0:
  13. act 'BDSM-club':gt'BDSM_Club','start'
  14. end
  15. act 'Crazy Hospital':gt'psiklin','ps1'
  16. act 'By the park':gt'parks'
  17. end
  18. if $ARGS[0]='ps1':
  19. cla
  20. *clr
  21. minut += 5
  22. gs'stat'
  23. gs 'outdoors'
  24. '<center><H4>Loony bin<H4></center>'
  25. 'the inscription on the sign by the road - closed from outside the public'
  26. if psiklik = 0:'<center><img src="images/lmps/psiklin0.jpg" ></center>'
  27. if psiklik = 1:'<center><img src="images/lmps/psiklin1.jpg" ></center>'
  28. act 'Ago':gt'psiklin','start'
  29. end
  30. if $ARGS[0]='ps2':
  31. cla
  32. *clr
  33. minut += 5
  34. gs'stat'
  35. gs 'outdoors'
  36. '<center><H4>An old abandoned building<H4></center>'
  37. '<center><img src="images/lmps/rozval.jpg" ></center>'
  38. 'Abandoned building clinics spoiling appearance and intimidating local residents.'
  39. act 'Escape':gt'parks'
  40. end
  41. --- psiklin ---------------------------------