artstudia 1.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. # artstudia
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. if $ARGS[0] = 'bodimod1':
  5. cla
  6. *clr
  7. gs'stat'
  8. '<center><b><font color = maroon>Patio</font></b></center>'
  9. '<center><img src="images/lmps/artsudvor.jpg"></center>'
  10. '...'
  11. act 'Escape':gt'ugol'
  12. if arts = 1:
  13. '...'
  14. act '':gt'artstudia','bodimod2' & artsb = 1
  15. end
  16. end
  17. if $ARGS[0] = 'bodimod2':
  18. cla
  19. *clr
  20. gs'stat'
  21. '<center><b><font color = maroon>The studio of the artist</font></b></center>'
  22. '<center><img src="images/lmps/artscor.jpg"></center>'
  23. '...'
  24. act 'Escape':gt'artstudia','bodimod1'
  25. end
  26. if $ARGS[0] = 'bodimod3':
  27. cla
  28. *clr
  29. gs'stat'
  30. '<center><b><font color = maroon>The studio of the artist</font></b></center>'
  31. '<center><img src="images/lmps/downud.jpg"></center>'
  32. '...'
  33. act 'Escape':gt'down'
  34. end
  35. if $ARGS[0] = 'bodimod4':
  36. cla
  37. *clr
  38. gs'stat'
  39. '<center><b><font color = maroon>The studio of the artist</font></b></center>'
  40. '<center><img src="images/lmps/downud.jpg"></center>'
  41. '...'
  42. act 'Escape':gt'down'
  43. end
  44. --- artstudia ---------------------------------