home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / multimedia / scala / HELP / HELP-RUN.SCA < prev    next >
Text File  |  1996-05-14  |  4KB  |  194 lines
  1. !ScalaScript
  2. EVENT
  3. EVENT
  4. Group:
  5. string(descr,text[11],title,pagename,pagedescr,subnum,last,lastsub,prefix);
  6. string(layoutname[4],temp[5]);
  7. integer(block,max,morex,backx,arrowX,arrowY,BoxX,BoxY,BoxW,BoxH,BoxX.1,BoxY.1,BoxX.2,BoxY.2,angle,counter,indexx,exitx);
  8. subnum="1";prefix="Help:";last="";lastsub="0";wait();
  9. Sequence:
  10. :Main
  11. EVENT
  12. Group:
  13. angle=0;block=1;max=1;morex=-100;backx=-100;
  14. END
  15. EVENT
  16. Group:
  17. if((scriptname="sound")and(length(subnum)=1));
  18. Sequence:
  19. subnum=subnum+"a";
  20. END
  21. EVENT
  22. Group:
  23. if(not exists("Scala:\help\"+scriptname+subnum+".sca"));
  24. Sequence:
  25. scriptname="index";subnum="1";
  26. END
  27. Script("Scala:\help\"+scriptname+SubNum+".sca");
  28. goto(main);
  29. Resources:
  30. :SetUp
  31. EVENT
  32. EVENT
  33. Group:
  34. if(BoxX.2>0);
  35. Sequence:
  36. EVENT
  37. Group:
  38. if(BoxX=BoxX.1);
  39. Sequence:
  40. ArrowX=BoxW-21;ArrowY=5;angle=180;
  41. END
  42. EVENT
  43. Group:
  44. else();
  45. Sequence:
  46. ArrowX=5;ArrowY=BoxH-21;Angle=0;
  47. END
  48. END
  49. EVENT
  50. Group:
  51. else();
  52. Sequence:
  53. ArrowX=-999;ArrowY=-999;
  54. END
  55. END
  56. :DrawBox
  57. EVENT
  58. IndexX=999;
  59. ExitX=999;
  60. Use(DrawIndexExit);
  61. EVENT
  62. Group:
  63. if(BoxX.2=0);
  64. Sequence:
  65. Button(Wipe("SmallBlinds",Speed(8),Direction(270)),Normal(Box(BoxX,BoxY,BoxW,BoxH,Style(Info))));
  66. END
  67. EVENT
  68. Group:
  69. else();
  70. Sequence:
  71. Button(Normal(Box(BoxX,BoxY,BoxW,BoxH,Style(Info))));
  72. END
  73. Button(Normal(Clip(BoxX+ArrowX,BoxY+ArrowY,"Scala:\help\graphics\arrow-dl.gif",Face(On,Pen(4)),Operation(On,Rotate(angle)))),Highlight(Clip(BoxX+ArrowX,BoxY+ArrowY,"Scala:\help\graphics\arrow-dl.gif",Face(On,Pen(1)),Operation(On,Rotate(angle)))),Select(Clip(BoxX+ArrowX,BoxY+ArrowY,"Scala:\help\graphics\arrow-dl.gif",Operation(On,Rotate(angle))),use(MoveBox)));
  74. Text(BoxX+8,BoxY+7,"!Prefix !pagename",Style(Big));
  75. EVENT
  76. Group:
  77. if(scriptname="sound");
  78. Sequence:
  79. Text(BoxX+10,BoxY+27,"!pagedescr",Style(Small),Wrap(On,Auto(340)),Live(off));
  80. Text(BoxX+8,BoxY+125,"!title",Style(Mid));
  81. Text(BoxX+10,BoxY+140,"!descr",Style(Small),Wrap(On,Auto(340)));
  82. END
  83. EVENT
  84. Group:
  85. else();
  86. Sequence:
  87. Text(BoxX+10,BoxY+43,"!pagedescr",Style(Small),Wrap(On,Auto(340)));
  88. Text(BoxX+8,BoxY+83,"!title",Style(Mid));
  89. Text(BoxX+10,BoxY+106,"!descr",Style(Small),Wrap(On,Auto(340)));
  90. END
  91. IndexX=117;
  92. ExitX=50;
  93. Use(DrawIndexExit);
  94. END
  95. :DrawIndexExit
  96. EVENT
  97. Button(MatchSize(On),Normal(Text(BoxX+BoxW-IndexX,BoxY+BoxH-20,"INDEX",Style(Control1))),Highlight(Text(BoxX+BoxW-IndexX,BoxY+BoxH-20,"INDEX",Style(Control2))),Select(Text(BoxX+BoxW-IndexX,BoxY+BoxH-20,"INDEX",Style(Control3)),use(index)));
  98. Button(MatchSize(On),Normal(Text(BoxX+BoxW-ExitX,BoxY+BoxH-20,"EXIT",Style(Control1))),Highlight(Text(BoxX+BoxW-ExitX,BoxY+BoxH-20,"EXIT",Style(Control2))),Select(Text(BoxX+BoxW-ExitX,BoxY+BoxH-20,"EXIT",Style(Control3)),goto(leave)));
  99. END
  100. :MoveBox
  101. EVENT
  102. temp[0]=pagedescr;temp[1]=title;temp[2]=descr;temp[3]=pagename;temp[4]=prefix;pagedescr="";title="";descr="";pagename="";prefix="";
  103. Group:
  104. if(BoxX.2>0);
  105. Sequence:
  106. EVENT
  107. EVENT
  108. Group:
  109. if(BoxX=BoxX.1);
  110. Sequence:
  111. BoxX=BoxX.2;BoxY=BoxY.2;
  112. END
  113. EVENT
  114. Group:
  115. else();
  116. Sequence:
  117. BoxX=BoxX.1;BoxY=BoxY.1;
  118. END
  119. END
  120. Use(Setup);
  121. Use(DrawBox);
  122. pagedescr=temp[0];title=temp[1];descr=temp[2];pagename=temp[3];prefix=temp[4];
  123. Use(SetPos);
  124. END
  125. :SetPos
  126. EVENT
  127. EVENT
  128. Group:
  129. if(block<max);
  130. Sequence:
  131. morex=106;
  132. END
  133. EVENT
  134. Group:
  135. else();
  136. Sequence:
  137. morex=-999;
  138. END
  139. Button(MatchSize(On),Normal(Text(BoxX+morex,BoxY+BoxH-20,"MORE",Style(Control1))),Highlight(Text(BoxX+morex,BoxY+BoxH-20,"MORE",Style(Control2))),Select(Text(BoxX+morex,BoxY+BoxH-20,"MORE",Style(Control3)),use(domore)));
  140. EVENT
  141. Group:
  142. if(block>1);
  143. Sequence:
  144. backx=41;
  145. END
  146. EVENT
  147. Group:
  148. else();
  149. Sequence:
  150. backx=-999;
  151. END
  152. Button(MatchSize(On),Normal(Text(BoxX+backx,BoxY+BoxH-20,"BACK",Style(Control1))),Highlight(Text(BoxX+backx,BoxY+BoxH-20,"BACK",Style(Control2))),Select(Text(BoxX+backx,BoxY+BoxH-20,"BACK",Style(Control3)),use(doback)));
  153. END
  154. :DoMore
  155. EVENT
  156. Group:
  157. if(block<max);
  158. Sequence:
  159. block=block+1;descr=text[block];Use(SetPos);
  160. END
  161. :DoBack
  162. EVENT
  163. Group:
  164. if(block>1);
  165. Sequence:
  166. block=block-1;descr=text[block];Use(SetPos);
  167. END
  168. :Index
  169. EVENT
  170. last=scriptname;lastsub=subnum;scriptname="index";subnum="1";
  171. quit(1);
  172. END
  173. :Backtolast
  174. EVENT
  175. EVENT
  176. Group:
  177. if(last="");
  178. Sequence:
  179. quit(3);
  180. END
  181. EVENT
  182. Group:
  183. else();
  184. Sequence:
  185. scriptname=last;subnum=lastsub;last="";lastsub="";
  186. quit(1);
  187. END
  188. END
  189. :Leave
  190. quit(3);
  191. END
  192. END
  193.  
  194.