home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TUC_TD10.ZIP / TUC_DEMO.DOC < prev    next >
Text File  |  1994-03-16  |  16KB  |  266 lines
  1.                           .   ·   ┌─┐ ·┌─┐  ·     .   
  2.                            ┌──────┴─┴──│ │───────┐
  3.                            └───┐ ┌┬─┬──│ │┐ ┌────┘
  4.                              · │ ││ │· │ ││ │  ·
  5.                           ·    │ ││ │ .│ ││ │     ·
  6.                              . │ ││ └──┘ ││ └────┐
  7.                             ·  └─┘└──────┘└──────┘
  8.                          ·       ·    ·       ·    . 
  9.                         TUC_DEMO  UNIT FOR TP/BP v7.0
  10.  
  11. ==============================================================================
  12. VERSION V1.0ß                   ■           RELEASE DATE: 16/03/1994 ■ 2:48
  13. ==============================================================================
  14.  
  15. Well .. here it is .. the ultimate TEXT BASED demo unit .. here are the first
  16. options of it .. and .. here is the color map for the HEX BASED colors ..
  17. Well .. also .. if you have hints ,or bug reports ,leave an message to freaker
  18. on one of the hq's .. or .. on the apply site .. (you will find the number in
  19. the TUC_REL.NFO !   == WE WILL BE HAPPY IF YOU SENT SOME WORK MADE WITH THIS
  20.                                    TPU TO ONE OF OUR HQ'S OR APPLY SITE ! ==
  21.  
  22.  
  23.      Color          Foreground Highlight   Background
  24.      ================================================
  25.      Black          00         08          00
  26.      Blue           01         09          10
  27.      Green          02         0A          20
  28.      Cyan           03         0B          30
  29.      Red            04         0C          40
  30.      Magenta        05         0D          50
  31.      Yellow/Brown   06         0E          60
  32.      White/gray     07         0F          70
  33.  
  34.      Example:  To make a highligted green character on a red background the
  35.                color code would be 0A+40=4A. To make the character blink add
  36.                +blink for the result.
  37.  
  38.  
  39. {                   (c) CopyRight 1993,94 by Freaker! ■ TuC
  40. ==============================================================================
  41. Help about command's
  42. ------------------------------------------------------------------------------
  43. {-} {procedure/function in TUC_TEST.PAS
  44. {*} {procedure/function in TUC_DEMO.TPU
  45. {/} {procedure/function of Turbo Pascal
  46. {!} {NEEDED procedure/function of TUC_DEMO.TPU
  47. ==============================================================================
  48. Internal procedures/functions ...
  49. ------------------------------------------------------------------------------
  50. procedure TUC_HSCINIT;                      [NEEDED when using HSC routines !]
  51.  ≡ Use this when you use the HSC routines (required)
  52.  
  53. procedure TUC_HSCCLOSE(fadehsc:boolean);  [CLOSE HSC ROUTINES/only if HSCINIT]
  54.  ≡ Use this to DEinitialize the hsc routines   (true=fade music/false=no fade)
  55.  
  56. procedure TUC_PLAYHSCBACK;                       [Play HSC file in background]
  57.  ≡ Use this to play the HSC file AFTER blockwrite !
  58.  
  59. ------------------------------------------------------------------------------
  60.  
  61. procedure TUC_FADEINIT;                  [NEEDED when using FADING ROUTINES !]
  62.  ≡ Use this when use of the FADING routines (required)
  63.  
  64. procedure TUC_FADECLOSE;              [CLOSE FADE ROUTINES · only if FADEINIT]
  65.  ≡ Use this to DEinitialize the fading routines
  66.  
  67. Procedure TUC_FADEOUT(Speed : Integer);                      [FADE screen out]
  68.  ≡ Fade out (delay in milliseconds)
  69.  
  70. Procedure TUC_FADEIN(Speed : Integer);                        [FADE screen in]
  71.  ≡ Fade in (delay in milliseconds)
  72.  
  73. ------------------------------------------------------------------------------
  74.  
  75. procedure TUC_FLUSHKEYBOARD;                           [Flush keyboard buffer]
  76.  ≡ flush keyboard buffer (after readkey/keypressed for example)
  77.  
  78. function  TUC_READKEY:char;                                          [READKEY]
  79.  ≡ READ key ,returns "char" as result
  80.  
  81. function  TUC_KEYPRESSED:boolean;                                 [KEYPRESSED]
  82.  ≡ KEYPRESSED ,returns TRUE if pressed any key
  83.  
  84. ------------------------------------------------------------------------------
  85.  
  86. PROCEDURE TUC_CURSOROFF;                                     [Turn cursor OFF]
  87.  ≡ Turn cursor OFF
  88.  
  89. PROCEDURE TUC_CURSORON;                                       [Turn cursor ON]
  90.  ≡ Turn cursor ON
  91.  
  92. ------------------------------------------------------------------------------
  93.  
  94. procedure TUC_TSCRESET;                            [TINY SCROLLER SPEED RESET]
  95.  ≡ RESET the speed of the TINY scroller
  96.  
  97.  
  98. procedure TUC_TSC(str:string;xloc,yloc:integer;rand:boolean);  [TINY SCROLLER]
  99.  ≡ put scroller on screen in following format:
  100.  
  101.    TUC_TSC("STRING TO SHOW",X-AXIS,Y-AXIS,TRUE/FALSE); where TRUE/FALSE is
  102.    random color scroller or just WHITE scroller
  103.          (or color defined with TUC_TSC_COLOR:=byte of color)
  104.  
  105.  
  106. procedure tuc_ssc_init;                                   [SMOOTHSCROLL RESET]
  107.  ≡ RESET ssc scroller (NECCESARY BEFORE STARTING THIS SCROLLER AGAIN !)
  108.  
  109. procedure tuc_ssc(txt:string;row,yax1,yax2,attr:byte);        [SMOOTHSCROLLER]
  110.  ≡ TUC_SSC("STRING TO SHOW",X-AXIS,Y-AXIS<to start>,Y-AXIS<to end>,attribute);
  111.  
  112. ------------------------------------------------------------------------------
  113.  
  114. procedure TUC_HILITE(OnOff:boolean);                            [BLINK on/off]
  115.  ≡ HILITE characters (blink on/off)
  116.  
  117. procedure TUC_QWRITE(xx,yy:byte;str:string;fc,bc:byte);           [QUICKWRITE]
  118.  ≡ QUICK WRITE (without CR)
  119.  
  120. procedure TUC_QWRITELN(xx,yy:byte;str:string;fc,bc:byte);       [QUICKWRITELN]
  121.  ≡ QUICK WRITE (with CR)
  122.    xx,yy is X-axis and Y-axis
  123.    str is the string to write
  124.    fc,bc are foreground color and background color
  125.  
  126. procedure TUC_SWITCHMAP;                                        [SWITCHCHRMAP]
  127.  
  128. Procedure TUC_SWITCHMAP_RESET;
  129.  
  130. ==============================================================================
  131.  
  132. Costumisable parameters
  133. ------------------------------------------------------------------------------
  134. const TUC_TSC_CHARDELAY : integer = 6;    (character delay TSC scroller in mS)
  135.       TUC_TSC_ENDDELAY  : integer = 800;   (enddelay after TSC scroller in mS)
  136.       TUC_TSC_COLOR     : byte    = 15;  (color of TSC scroller if non-random)
  137.     TUC_SWITCHMAP_STATUS: boolean = false;   (switchmap status / auto updated)
  138. }
  139.  
  140.  
  141.  
  142.  ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄           ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  143. ▀▓▓▒▒▒░░░░░░░░░░░▒▒▒▒▒░░▒░░░▒▒▒▒▒▒▒░░░░░░▒▒▓▓         ▄█▒▒▒▒▒░░▒░░░░▒▒▓▀
  144.   ▀▓▓▒▒▒░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▒▒▀  ▄     ▄▓▓▒░░░░░░░░▒░▒▒▓▓
  145.     ▀▓▓▒▒▒░▀▀▓▒░░░░░░▒▒▒▀▀▀▀▀▀▀▀▀▀▀▓▒▒▒▒▒▀  ▄▓▓▓░ ▄▓▓▒▒░░░▒▒█▒░░▒▒▓▓▀
  146.       ▀▓▓▒▀   ▓▒░░░░▒▒▀ ▄▓▄        ▀▓▓▒▀  ▄▓▓▒░▓▓ ▓▓▒▒░░░░▓▓▀▀▀▀▀▀▀▀
  147.         ▀     ▓▒░░░▒▓  ▄▓▒░░            ▄▓▓▒▒░▒▓ ▓▓▒▒░░░░▓
  148.               ▓▒░░░▒▒ ▓▓▒░░▓▓           ▓▓▓▒▒░▓▓ ▓▓▒▒░░░░▒
  149.               ▓▒░░░▒▒ ▓▓▒░░▒▒           ▓▓▓▒▒░▒▒ ▓▓▒▒░░░░▒         ▄▓▄
  150.               ▓▒░░░▒▒ ▓▓▒░░▒▒           ▓▓▓▒▒░▒▒ ▓▓▒▒░░░░▓▓▄     ▄▓▓▒▒░█
  151.               ▓▒░░░▒▒ ▓▓▒░░▒▒           ▓▓▓▒▒░▒▒ ▓▓▒▒░░░░▓▓▓▓▒▒▓▓▓▒▒░░▒▒▓▄
  152.               ▓▒░░░▒▒ ▓▓▒░░▓▒▓▄        ▄▓▓▓▒▒░▓▒  ▀▓▓▒▒░░░░▓▓▓▒▓▒▒░░░▒▓▓▀
  153.               ▀▓▓▒▒░░ ▓▓▒░░▓▓▓▓▓▓▓▒▒▓▓▓▓▓▒▒░░░▒▒▓    ▀▓▓▒▒░░░░▓▓▒░░░▒▒▓▀
  154.                 ▀▓▓▒▒  ▀▓▒░░▓░▓▓▓▓▓▒▒▓▓▒▒░░░▒▒▓▓▀      ▀▓▓▒▒░░░░▒▒▒▒▓▓
  155.  -Rising to the-  ▀▓▓   ▀▓▒░░░░░░░░░░░░░░░▒▒▓▓▀   Γhε   ▀▀▀▀▀▀▀▀▀▀▀▀
  156.      -T.O.P-        ▀     ▓▒▒▒▒▒▒▓▓▓▒▓▒▒▒▒▓▓▀     Undετwφτld
  157.                            ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀      Cφφτpφταtiφn
  158.  
  159.                      ▄█▀▄ ▄█▀▄ ▄█▀▀ ▄██▀▄ ▄█▀▀ ██▀▄ ███▄▀▀ ▄██▀▄
  160.                      ██▄▀ ██▄▀ ██▀ ▄ ▀▀▄  ██▀  ██ █   ██  ▄ ▀▀▄
  161.                      ██   ██ █ ▀█▄▄ ███▀  ▀█▄▄ ██ █   ██   ███▀
  162.                      ▌     ▌        ▐       ▌     █   ▐
  163.  
  164.  
  165.  
  166.   ┌─────────────────────────────────────────────────────────────────────────┐
  167.   │ ┌──────────────┐                                                        │
  168. ┌─│─┤ Senior Staff ├────────────────────────────────────────────────────────│─┐
  169. │ │ └──────────────┘                                                        │ │
  170. │ │            ∞ FrEaKeR!................PREZIDENT                          │ │
  171. │ │            ∞ Rover...................VICE PREZIDENT                     │ │
  172. │ │                                                                         │ │
  173. └─│─────────────────────────────────────────────────────────────────────────│─┘
  174.   │ ┌───────────────┐                                                       │
  175. ┌─│─┤ Council staff ├───────────────────────────────────────────────────────│─┐
  176. │ │ └───────────────┘ those guys takes with the Senior staff some decisions │ │
  177. │ │                                                                         │ │
  178. │ │ Freaker        (PreZ)               φ  Rover         (Vice-PreZ)        │ │
  179. │ │                                                                         │ │
  180. │ │ Black Panther  (Courier cordinator) φ  Willy Soft    (Rover's N° 1)     │ │
  181. │ │                                                                         │ │
  182. └─│─────────────────────────────────────────────────────────────────────────│─┘
  183.   │ ┌──────────┐                                                            │
  184. ┌─│─┤ Members  ├────────────────────────────────────────────────────────────│─┐
  185. │ │ └──────────┘                                                            │ │
  186. │ │                                                                         │ │
  187. │ │            Nemesis φ Soul Leader φ Night Shade φ Hellmaster             │ │
  188. │ │                                                                         │ │
  189. │ │         Lord Venger φ The Black Panther φ Malcar φ Willy Soft           │ │
  190. │ │                                                                         │ │
  191. │ │      Tasmaniac φ Hitler φ Nomadd φ Dr. No φ Death Stalker φ Mixer       │ │
  192. │ │                                                                         │ │
  193. │ │ Mister Minit φ Malcar φ Stone Killer φ Death Stalker φ Ramirez φ Zaphod │ │
  194. │ │                                                                         │ │
  195. │ │                                                                         │ │
  196. └─│─────────────────────────────────────────────────────────────────────────│─┘
  197.   │ ┌──────────┐                                                            │
  198. ┌─│─┤ Couriers ├────────────────────────────────────────────────────────────│─┐
  199. │ │ └──────────┘                                                            │ │
  200. │ │   Freaker φ Soul Leader φ Sonic Boost φ Hellmaster φ Hitler φ ZyXMoN    │ │
  201. │ │                                                                         │ │
  202. └─│─────────────────────────────────────────────────────────────────────────│─┘
  203. ┌─┘                                                                         └─┐
  204. │                     CONTACT US AT THESE BOARDS...                           │
  205. ├─────────────────┬─────────┬────────────────┬─────────────────┬──────────────│
  206. │  BoArD NaMe     │  Nodez  │   TuC-sTaTuS   │  Tha NuMBa'Z    │    SySoP     │
  207. ├─────────────────┴─────────┴────────────────┴─────────────────┴──────────────┤
  208. │ ToXiC DrEaMs      2 Lines   -* WoRlD HQ *-  +32-XXX-XXX-XXXX  Freaker       │
  209. │ ─────────────────────────────────────────────────────────────────────────── │
  210. │ Hell's Kitchen    1 Line    -* APPLY HQ *-  +32- 89- 71-6488  Lord Venger   │
  211. │ ─────────────────────────────────────────────────────────────────────────── │
  212. │ Rebel Alliance    4 Lines    -* US HQ *-     +1-XXX-XXX-XXXX  Night Shade   │
  213. │ The 7th Guest     1 Line    -* EuRo HQ *-   +32-XXX-XXX-XXXX  Rover         │
  214. │ Terra Pia         1 Line     -* BE HQ *-    +32-XXX-XXX-XXXX  Ramirez       │
  215. │ The Back Room     3 Lines  -* CoUrIeR HQ *-  +1-XXX-XXX-XXXX  Nomadd        │
  216. │ Styletron         1 Line    -* Amiga HQ *-   +1-XXX-XXX-XXXX  Malcar        │
  217. │ Thunder           2 Lines   -* IBMPc HQ *-  +32-XXX-XXX-XXXX  Black Panther │
  218. │ ─────────────────────────────────────────────────────────────────────────── │
  219. │ The Vengeance     1 Line   -* Dist/Site *-  +32-XXX-XXX-XXXX  Hellmaster    │
  220. │ Dark Site         1 Line   -* Dist/Site *-  +32-XXX-XXX-XXXX  Dr. No        │
  221. │ RoD               1 Line   -* Dist/Site *-   +1-XXX-XXX-XXXX  Zaphod        │
  222. │ FatAl EdGe        2 Lines  -* Dist/Site *-   +1-XXX-XXX-XXXX  Mixer         │
  223. │ GrOu∩D Zεro       1 Line   -* Dist/Site *-   +1-XXX-XXX-XXXX  Nemesis       │
  224. │                                                                             │
  225. └─┐ ┌──────────┐                                                            ┌─┘
  226. ┌─│─┤ On Trial ├────────────────────────────────────────────────────────────│─┐
  227. │ │ └──────────┘                                                            │ │
  228. │ │                                                                         │ │
  229. │ │                                                                         │ │
  230. └─│─────────────────────────────────────────────────────────────────────────│─┘
  231.   │ ┌──────────────┐                                                        │
  232. ┌─│─┤ Greetzzzzzzz ├────────────────────────────────────────────────────────│─┐
  233. │ │ └──────────────┘                                                        │ │
  234. │ │                                                                         │ │
  235. │ │  Black Panther φ Crazy Creep φ Oakland φ Willy Soft φ Killroy φ Felix   │ │
  236. │ │                                                                         │ │
  237. │ │   Hard Core φ Wolfric φ X-Bow φ Dinv φ Fat Pat φ TT φ Scorpio φ BOBO    │ │
  238. │ │                                                                         │ │
  239. │ │    Duelist φ Attitude φ Neon φ Gestapo φ Dark Inventor φ Lord Cyrix     │ │
  240. │ │                                                                         │ │
  241. │ │                                                                         │ │
  242. │ │ VSW φ RAZOR φ PTG φ NEXUS φ SLIVER φ UTG φ OTL φ ACiD φ iNC φ PWA φ AD  │ │
  243. │ │                                                                         │ │
  244. │ │ ┌──────────────┐                                                        │
  245. ┌─│─┤ And Fuckssss ├────────────────────────────────────────────────────────│─┐
  246. │ │ └──────────────┘                                                        │ │
  247. │ │                                                                         │ │
  248. │ │ DEATH DEALER whoehahaha ... bah ... fuck off ,and .. go to mommy !!!!!  │ │
  249. │ │                                                                         │ │
  250. └─│─────────────────────────────────────────────────────────────────────────│─┘
  251. ┌─┘                                                                         └─┐
  252. │    If you would have more info ,or want to support TuC ,then login at our   │
  253. │   TuC - Application site:  Hell's Kitchen      ┌────────────────────────┐   │
  254. │                    Numba:  +32-89-716488       │then leave an message to│   │
  255. │                 Login ID:  TUC                 │tha sysop or Freaker ,or│   │
  256. │                 Password:  APPLY               │upload tha applica. form│   │
  257. │                                                └────────────────────────┘   │
  258. └─────────────────────────────────────────────────────────────────────────────┘
  259. ┌─────────────────────────────────────────────────────────────────────────────┐
  260. │   If you like this program ,then please encourage to register/buy it ...    │
  261. │                    Support the hard working author's !                      │
  262. └─────────────────────────────────────────────────────────────────────────────┘
  263. ┌─────────────────────────────────────────────────────────────────────────────┐
  264. │               **  T∙u∙C iS LoOkInG FoR QuAlItY CoUrIeRs **                  │
  265. │            ** CoNtAcT Freaker! or Rover oN OnE Of ThE HQ's **               │
  266. └─────────────────────────────────────────────────────────────────────────────┘