1
0

NewCloShop 1.1 KB

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