home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2000 February / DPPCPRO0200.ISO / ps10.dxr / Scripts_17_hPrintForm.ls < prev    next >
Encoding:
Text File  |  1999-10-26  |  9.7 KB  |  202 lines
  1. on hPrintForm
  2.   sFont = "Arial"
  3.   iFontSize = 6
  4.   sFontStyle = "normal"
  5.   doc = new(xtra("PrintOMatic"))
  6.   setMargins(doc, rect(18, 36, 18, 36))
  7.   iUnderlineWidth = 534
  8.   newPage(doc)
  9.   setTextFont(doc, sFont)
  10.   setTextSize(doc, iFontSize)
  11.   setTextStyle(doc, sFontStyle)
  12.   setLineWeight(doc, 0)
  13.   setTextStyle(doc, "bold")
  14.   drawText(doc, "TELL US ABOUT YOUR BAND", point(0, 0))
  15.   setTextStyle(doc, sFontStyle)
  16.   drawText(doc, "Name of the band:", point(0, 12))
  17.   drawText(doc, "Location (city, country):", point(189, 12))
  18.   drawText(doc, "When was the band formed?", point(310, 12))
  19.   drawText(doc, "Contact person:", point(414, 12))
  20.   drawLine(doc, point(0, 13), point(iUnderlineWidth, 13))
  21.   drawText(doc, "Address:", point(0, 27))
  22.   drawLine(doc, point(0, 28), point(iUnderlineWidth, 28))
  23.   drawText(doc, "Phone:", point(189, 42))
  24.   drawText(doc, "Fax:", point(310, 42))
  25.   drawText(doc, "Email:", point(414, 42))
  26.   drawLine(doc, point(0, 43), point(iUnderlineWidth, 43))
  27.   setTextStyle(doc, "bold")
  28.   drawText(doc, "DO YOU PRESENTLY HAVE A:", point(0, 57))
  29.   setTextStyle(doc, sFontStyle)
  30.   drawText(doc, "Band Manager (name and contact details):", point(89, 57))
  31.   drawLine(doc, point(0, 58), point(iUnderlineWidth, 58))
  32.   drawText(doc, "Lawyer representing the band (name and contact details):", point(0, 72))
  33.   drawLine(doc, point(0, 73), point(iUnderlineWidth, 73))
  34.   setTextStyle(doc, "bold")
  35.   drawText(doc, "DO YOU HAVE A:", point(0, 87))
  36.   setTextStyle(doc, sFontStyle)
  37.   drawText(doc, "Publishing deal: Y/N", point(54, 87))
  38.   drawText(doc, "Record contract: Y/N", point(189, 87))
  39.   drawText(doc, "(If so please provide details on a separate sheet)", point(270, 87))
  40.   drawLine(doc, point(0, 88), point(iUnderlineWidth, 88))
  41.   setTextSize(doc, 5)
  42.   drawText(doc, "Note: If you are not the legal owner of the copyright of the music you submit (which normally is the case if you submit cover versions or if you already have been signed onto a publishing deal or record contract) you cannot join peoplesound.com", point(0, 96))
  43.   drawText(doc, "without the prior written consent of the copyright holder. It's your responsibility to get this authorisation and attach it to the New Artist Signup Form.", point(0, 102))
  44.   setTextSize(doc, iFontSize)
  45.   setTextStyle(doc, "bold")
  46.   drawText(doc, "TELL US ABOUT YOUR MUSIC:", point(0, 117))
  47.   setTextStyle(doc, sFontStyle)
  48.   drawText(doc, "We need to be able to represent your music correctly to the A&R managers and fans who'll be visiting your site. To do that it is critical that you tell us 2 things about you", point(93, 117))
  49.   setTextStyle(doc, "bold")
  50.   drawText(doc, "WHAT IS THE MAIN GENRE OF MUSIC YOU PLAY?", point(0, 132))
  51.   setTextStyle(doc, sFontStyle)
  52.   drawText(doc, "(up to 3 in order of relevance to your music)  1.", point(147, 132))
  53.   drawText(doc, "2.", point(351, 132))
  54.   drawText(doc, "3.", point(445, 132))
  55.   drawLine(doc, point(0, 133), point(iUnderlineWidth, 133))
  56.   setTextStyle(doc, "bold")
  57.   drawText(doc, "WHICH ARE THE ARTISTS OR BANDS THAT HAVE INFLUENCED YOUR MUSIC MOST (minimum 3)", point(0, 147))
  58.   setTextStyle(doc, sFontStyle)
  59.   drawText(doc, "1.", point(0, 162))
  60.   drawText(doc, "2.", point(189, 162))
  61.   drawText(doc, "3.", point(378, 162))
  62.   drawLine(doc, point(0, 163), point(iUnderlineWidth, 163))
  63.   drawText(doc, "4.", point(0, 177))
  64.   drawText(doc, "5.", point(189, 177))
  65.   drawText(doc, "6.", point(378, 177))
  66.   drawLine(doc, point(0, 178), point(iUnderlineWidth, 178))
  67.   setTextStyle(doc, "bold")
  68.   drawText(doc, "SUBMISSION DETAILS:", point(0, 192))
  69.   setTextStyle(doc, sFontStyle)
  70.   drawText(doc, "Would you like us to sell your music if someone asks to buy it?", point(68, 192))
  71.   drawRect(doc, rect(236, 184, 245, 193), 0)
  72.   setTextStyle(doc, "bold")
  73.   drawText(doc, "YES", point(247, 192))
  74.   setTextStyle(doc, sFontStyle)
  75.   drawRect(doc, rect(267, 184, 276, 193), 0)
  76.   setTextStyle(doc, "bold")
  77.   drawText(doc, "NO", point(278, 192))
  78.   setTextStyle(doc, sFontStyle)
  79.   drawText(doc, "What price should we charge for your CDs", point(296, 192))
  80.   drawRect(doc, rect(411, 184, 420, 193), 0)
  81.   setTextStyle(doc, "bold")
  82.   drawText(doc, "┬ú3.99*", point(422, 192))
  83.   setTextStyle(doc, sFontStyle)
  84.   drawRect(doc, rect(442, 184, 451, 193), 0)
  85.   setTextStyle(doc, "bold")
  86.   drawText(doc, "┬ú6.99", point(453, 192))
  87.   setTextStyle(doc, sFontStyle)
  88.   drawRect(doc, rect(473, 184, 482, 193), 0)
  89.   setTextStyle(doc, "bold")
  90.   drawText(doc, "┬ú8.99", point(484, 192))
  91.   setTextStyle(doc, sFontStyle)
  92.   drawRect(doc, rect(504, 184, 513, 193), 0)
  93.   setTextStyle(doc, "bold")
  94.   drawText(doc, "┬ú11.99", point(515, 192))
  95.   setTextStyle(doc, sFontStyle)
  96.   iFontSize = 5
  97.   drawText(doc, "* EPs/CDs with 4 tracks or less", point(420, 207))
  98.   setTextStyle(doc, "bold")
  99.   drawText(doc, "ROYALTY PAYMENT DETAILS:", point(0, 207))
  100.   setTextStyle(doc, sFontStyle)
  101.   drawText(doc, "(Please give details of the bank account into which you would like us to pay your royalties)", point(90, 207))
  102.   drawText(doc, "Bank:", point(0, 222))
  103.   drawText(doc, "Bank Address:", point(189, 222))
  104.   drawLine(doc, point(0, 223), point(iUnderlineWidth, 223))
  105.   drawText(doc, "Account Name:", point(0, 237))
  106.   drawText(doc, "Account Number:", point(189, 237))
  107.   drawText(doc, "Sort Code:", point(342, 237))
  108.   drawLine(doc, point(0, 238), point(iUnderlineWidth, 238))
  109.   setTextStyle(doc, "bold")
  110.   drawText(doc, "TRACK DETAILS:", point(0, 252))
  111.   setTextStyle(doc, sFontStyle)
  112.   drawText(doc, "For promotional download (min 2) place Y/N in the box for each track", point(52, 252))
  113.   drawText(doc, "Title", point(2, 267))
  114.   drawText(doc, "Genre", point(74, 267))
  115.   drawText(doc, "Description/comment (to appear on your web site)", point(119, 267))
  116.   drawText(doc, "Title", point(272, 267))
  117.   drawText(doc, "Genre", point(344, 267))
  118.   drawText(doc, "Description/comment (to appear on your web site)", point(389, 267))
  119.   drawLine(doc, point(0, 268), point(iUnderlineWidth, 268))
  120.   drawLine(doc, point(0, 283), point(iUnderlineWidth, 283))
  121.   drawLine(doc, point(0, 298), point(iUnderlineWidth, 298))
  122.   drawLine(doc, point(0, 313), point(iUnderlineWidth, 313))
  123.   drawLine(doc, point(0, 328), point(iUnderlineWidth, 328))
  124.   drawLine(doc, point(0, 343), point(iUnderlineWidth, 343))
  125.   drawLine(doc, point(0, 268), point(0, 343))
  126.   drawLine(doc, point(72, 268), point(72, 343))
  127.   drawLine(doc, point(117, 268), point(117, 343))
  128.   drawLine(doc, point(270, 268), point(270, 343))
  129.   drawLine(doc, point(342, 268), point(342, 343))
  130.   drawLine(doc, point(387, 268), point(387, 343))
  131.   drawLine(doc, point(534, 268), point(534, 343))
  132.   drawText(doc, "1", point(2, 282))
  133.   drawRect(doc, rect(259, 272, 268, 281), 0)
  134.   drawText(doc, "6", point(272, 282))
  135.   drawRect(doc, rect(523, 272, 532, 281), 0)
  136.   drawText(doc, "2", point(2, 297))
  137.   drawRect(doc, rect(259, 287, 268, 296), 0)
  138.   drawText(doc, "7", point(272, 297))
  139.   drawRect(doc, rect(523, 287, 532, 296), 0)
  140.   drawText(doc, "3", point(2, 312))
  141.   drawRect(doc, rect(259, 302, 268, 311), 0)
  142.   drawText(doc, "8", point(272, 312))
  143.   drawRect(doc, rect(523, 302, 532, 311), 0)
  144.   drawText(doc, "4", point(2, 327))
  145.   drawRect(doc, rect(259, 317, 268, 326), 0)
  146.   drawText(doc, "9", point(272, 327))
  147.   drawRect(doc, rect(523, 317, 532, 326), 0)
  148.   drawText(doc, "5", point(2, 342))
  149.   drawRect(doc, rect(259, 332, 268, 341), 0)
  150.   drawText(doc, "10", point(272, 342))
  151.   drawRect(doc, rect(523, 332, 532, 341), 0)
  152.   setTextStyle(doc, "bold")
  153.   drawText(doc, "Continue on a blank page if necessary", point(426, 357))
  154.   setTextStyle(doc, sFontStyle)
  155.   drawText(doc, "Once your web site is set up, you will need a unique ID and Password to gain access and update your site. Each needs to be alphanumeric and 6-9 characters", point(0, 372))
  156.   setTextStyle(doc, "bold")
  157.   drawText(doc, "USER ID (eg. Band name):", point(0, 387))
  158.   drawText(doc, "PASSWORD:", point(230, 387))
  159.   setTextStyle(doc, sFontStyle)
  160.   drawLine(doc, point(0, 388), point(iUnderlineWidth, 388))
  161.   setTextStyle(doc, "bold")
  162.   drawText(doc, "REFERAL CODE OF AGENT: (if applicable)", point(0, 402))
  163.   setTextStyle(doc, sFontStyle)
  164.   drawLine(doc, point(0, 403), point(395, 403))
  165.   setTextSize(doc, 8)
  166.   drawText(doc, " C  D ", point(400, 402))
  167.   drawRect(doc, rect(0, 407, 7, 414), 0)
  168.   setTextStyle(doc, sFontStyle)
  169.   setTextSize(doc, 5)
  170.   drawText(doc, "Tick box if you do not want your details made available to other related organisations for promotional purposes", point(10, 412))
  171.   setTextSize(doc, iFontSize)
  172.   drawPicture(doc, member("banner"), point(540, 0))
  173.   newFrame(doc, rect(0, 440, 180, 770), 0)
  174.   newFrame(doc, rect(190, 440, 370, 770), 1)
  175.   newFrame(doc, rect(380, 440, 560, 770), 1)
  176.   setTextSize(doc, 6)
  177.   append(doc, the text of field "content1")
  178.   drawText(doc, "I hereby agree with and accept all the terms laid out in this agreement.", point(380, 660))
  179.   drawText(doc, "Signed for and behalf of Artist/Band", point(380, 670))
  180.   drawText(doc, "Date:", point(485, 670))
  181.   drawLine(doc, point(500, 671), point(560, 671))
  182.   drawLine(doc, point(380, 691), point(560, 691))
  183.   drawText(doc, "Print Signatory's Name:", point(380, 710))
  184.   drawLine(doc, point(443, 711), point(560, 711))
  185.   drawText(doc, "Print Address:", point(380, 730))
  186.   drawLine(doc, point(420, 731), point(560, 731))
  187.   drawLine(doc, point(380, 751), point(560, 751))
  188.   drawText(doc, "Print Name of Band:", point(380, 770))
  189.   drawLine(doc, point(435, 771), point(560, 771))
  190.   setTextSize(doc, 6)
  191.   setTextStyle(doc, "bold")
  192.   drawText(doc, "Send the completed artist sign up form and the signed artist agreement along with your band details and CD to:", point(118, 780))
  193.   setTextSize(doc, 7)
  194.   drawText(doc, "peoplesound.com ltd., A&R Department, 20 Orange Street, London WC2H 7ED Tel 0207 766 4002", point(115, 790))
  195.   setTextSize(doc, 14)
  196.   setTextStyle(doc, "bold")
  197.   drawText(doc, "peoplesound.com limited - Artist Agreement", point(120, 430))
  198.   if doJobSetup(doc) = 1 then
  199.     print(doc)
  200.   end if
  201. end
  202.