home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / ecard.arj / SHOP.C95 < prev    next >
Encoding:
Text File  |  1996-07-09  |  2.4 KB  |  120 lines
  1. >colors BEACH1.GIF
  2. ;
  3. ; The following are the shopping items
  4. ; Replace each ITEM.GIF file with a gif or bmp of
  5. ; the item you want to sell.  Include price in
  6. ; image for display.  See below to add prices.
  7. ;
  8. >actor ITEM3
  9. #ITEM3
  10. >pause 99
  11. ITEM3.GIF
  12. >repeat 9999
  13. >end ITEM3
  14.  
  15. >actor ITEM2
  16. #ITEM2
  17. >pause 99
  18. ITEM2.GIF
  19. >repeat 9999
  20. >end ITEM2
  21.  
  22.  
  23. >actor ITEM1
  24. #ITEM1
  25. >pause 99
  26. ITEM1.GIF
  27. >repeat 9999
  28. >end ITEM1
  29. ;
  30. ; end of shopping items
  31. ;
  32. >actor CART
  33. #CART
  34. >pause 99
  35. CART.GIF
  36. >repeat 9999
  37. >end CART
  38.  
  39. >actor DONE
  40. >click 0 0 140 70 context loop #DONE2
  41. #DONE
  42. >pause 99
  43. DONE.GIF
  44. >repeat 9999
  45. #DONE2
  46. >resume 0
  47. >loop #DONE
  48. >end DONE
  49.  
  50. >visual
  51. BEACH1.GIF
  52. >bigtext "Drag items to the shopping cart side of page.  When"
  53. >bigtext "you have completed your selection, hit Done."
  54. >bigtext "After entering address, hit Done again to print order."
  55. >bigtext ""
  56. >bigtext "Be sure to include check for full amount."
  57. >bigtext ""
  58. >bigtext "Mail order to:   Shop-Smart"
  59. >bigtext "                            101 Main Street"
  60. >bigtext "                             Anytown, USA 00000"
  61. >text 0 size 16 color 0 0 0 at 242 87 bigtext
  62. >bigtext "Shop-Smart"
  63. >bigtext "     Electronic Mall"
  64. >text 1 size 30 bold color 255 0 128 at 297 19 bigtext
  65. >start 18 CART at  472 276 0 0
  66. >start 19 DONE at 252 355 0 0
  67. ;
  68. ; >start & >grabbable commands for shopping items:
  69. ;
  70. >start 1 ITEM1 at  68 286 0 0
  71. >grabbable 1
  72. >start 2 ITEM2 at  43 10 0 0
  73. >grabbable 2
  74. >start 3 ITEM3 at  32 151 0 0
  75. >grabbable 3
  76.  
  77. >delay 999
  78. #2
  79. WHITE1.GIF
  80. ;
  81. ; Ungrabbable ea. item so it can't be moved after price computation
  82. ;
  83. >ungrabbable 1
  84. >ungrabbable 2
  85. >ungrabbable 3
  86.  
  87. >text 8 size 16 bold color 0 0 0 at 272 260 ""
  88. >text 9 size 16 color 0 0 0 at 221 261 "Ship to:"
  89. ;
  90. ; Total price computation
  91. ; Change the price of items as appropriate
  92. ; To add additional items, up to #17 max,
  93. ; add: 
  94. ;      >xyvec item# 0
  95. ;      >if x>250 >set total total+#  (where # is price)    
  96. ;
  97. >set total 0
  98. >xyvec 1 0
  99. >if x>250 >set total total+7
  100. >xyvec 2 0
  101. >if x>250 >set total total+14
  102. >xyvec 3 0
  103. >if x>250 >set total total+9
  104. >text 7 size 16 bold color 0 0 0 at 483 416 "Total is $ `total "
  105. ;
  106. ; end of pricing
  107. ;
  108. >text 1 size 30 bold color 255 0 128 at 220 232 "Enter name & address:"
  109. DING.MID
  110. >edit 8
  111. >delay 999 seconds
  112. #3
  113. WHITE1.GIF
  114. >clear 19
  115. >text 1 size 30 bold color 255 0 128 at 229 28 "Thank you for your order!"
  116. >print
  117. CHORD.MID
  118. >delay 999 seconds
  119.  
  120.