NewCloShop 1.2 KB

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