NewCloShop 1.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  1. # NewCloShop
  2. $location_type = 'event'
  3. if $ARGS[0] = 'start':
  4. $metka = 'start'
  5. $loc = 'NewCloShop'
  6. $metkaM = 'start'
  7. $locM = 'NewCloShop'
  8. clr
  9. mag = 1
  10. gs 'stat'
  11. if night_mode = 1:
  12. fcolor = rgb(255, 255, 255)
  13. bcolor = rgb(0, 0, 0)
  14. lcolor = rgb(106, 90, 205)
  15. else
  16. fcolor = rgb(0, 0, 0)
  17. bcolor = rgb(255, 255, 255)
  18. lcolor = rgb(106, 90, 205)
  19. end
  20. '<center><b><font color="maroon">Shop "Fashionista"</font></b></center>'
  21. act 'View Clothing':
  22. cla
  23. minut += 5
  24. gt 'NewCloShop', 'clothes'
  25. end
  26. act 'Leave':
  27. mag = 0
  28. minut += 15
  29. view
  30. gt 'torgcentr'
  31. end
  32. end
  33. if $ARGS[0] = 'clothes':
  34. $metka = 'clothes'
  35. $loc = 'NewCloShop'
  36. cls
  37. gs'stat'
  38. act 'Return':
  39. cla
  40. minut += 5
  41. gt 'NewCloShop', 'start'
  42. end
  43. i = Clothingstock +1
  44. if Clothingstock - 12 > 0:i -= 12
  45. :loopexpensive
  46. if expensive[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''shmotmag''"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a>'
  47. i += 12
  48. if i <= 150:jump 'loopexpensive'
  49. end
  50. if $ARGS[0] = 'shmotmag':
  51. cla
  52. if expensive[i] ! 0:
  53. msg 'You already own these clothes.'
  54. gt 'NewCloShop', 'clothes'
  55. end
  56. gt 'clothing', 'view_clothing_item', 'shop', 'expensive',i, 10000
  57. end
  58. --- NewCloShop ---------------------------------