943,580 Members | Top Members by Rank

Software Development > Pascal and Delphi > Animation in pascal
Ad:
Permalink
Mar 24th, 2009
0

Animation in pascal

Expand Post »
so i have this animation (yes i know its very long):

Pascal and Delphi Syntax (Toggle Plain Text)
  1. begin;            {main program starts}
  2. clrscr;           {clears screen of any text}
  3. textcolor(9);     {turns the text blue for the logo animation}
  4. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');        {logo animation starts}
  5. delay(logo);
  6. writeln('MMMMMMMMM                     MMMMMMMMMM');
  7. delay(logo);
  8. writeln('MMMMMMM                         MMMMMMMM');
  9. delay(logo);
  10. writeln('MMMMM8                          ..MMMMMM');
  11. delay(logo);
  12. writeln('MMMM.                              MMMMM');
  13. delay(logo);
  14. writeln('MMM,                                MMMM');
  15. delay(logo);
  16. writeln('MMM                                 :MMM');
  17. delay(logo);
  18. writeln('MM                                   MMM');
  19. delay(logo);
  20. writeln('M8                                    MM');
  21. delay(logo);
  22. writeln('M                    _     _          MM');
  23. delay(logo);
  24. writeln('7         /\  /\    | \   |_|         IZ');
  25. delay(logo);
  26. writeln('I        /  \/  \ . |_/ . |           ?7');
  27. delay(logo);
  28. writeln('M       Max Demajo Programming        MM');
  29. delay(logo);
  30. writeln('M7                                    MM');
  31. delay(logo);
  32. writeln('MM                                   MMM');
  33. delay(logo);
  34. writeln('MMZ            Presents              MMM');
  35. delay(logo);
  36. writeln('MMM                                 MMMM');
  37. delay(logo);
  38. writeln('MMMM                               MMMMM');
  39. delay(logo);
  40. writeln('MMMMM,                           .MMMMMM');
  41. delay(logo);
  42. writeln('MMMMMMM                         MMMMMMMM');
  43. delay(logo);
  44. writeln('MMMMMMMMM                     MMMMMMMMMM');
  45. delay(logo);
  46. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  47. delay(600);
  48. clrscr;
  49. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  50. writeln('MMMMMMMMM                     MMMMMMMMMM');
  51. writeln('MMMMMMM                         MMMMMMMM');
  52. writeln('MMMMM8                          ..MMMMMM');
  53. writeln('MMMM.                              MMMMM');
  54. writeln('MMM,                                MMMM');
  55. writeln('MMM                                 :MMM');
  56. writeln('MM                                   MMM');
  57. writeln('M8                                    MM');
  58. writeln('M                    _     _          MM');
  59. writeln('7         /\  /\    | \   |_|         IZ');
  60. writeln('I        /  \/  \ . |_/ . |           ?7');
  61. writeln('M        ax Demajo Programming        MM');
  62. writeln('M7                                    MM');
  63. writeln('MM                                   MMM');
  64. writeln('MMZ            Presents              MMM');
  65. writeln('MMM                                 MMMM');
  66. writeln('MMMM                               MMMMM');
  67. writeln('MMMMM,                           .MMMMMM');
  68. writeln('MMMMMMM                         MMMMMMMM');
  69. writeln('MMMMMMMMM                     MMMMMMMMMM');
  70. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  71. delay(log);
  72. clrscr;
  73. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  74. writeln('MMMMMMMMM                     MMMMMMMMMM');
  75. writeln('MMMMMMM                         MMMMMMMM');
  76. writeln('MMMMM8                          ..MMMMMM');
  77. writeln('MMMM.                              MMMMM');
  78. writeln('MMM,                                MMMM');
  79. writeln('MMM                                 :MMM');
  80. writeln('MM                                   MMM');
  81. writeln('M8                                    MM');
  82. writeln('M                    _     _          MM');
  83. writeln('7         /\  /\    | \   |_|         IZ');
  84. writeln('I        /  \/  \ . |_/ . |           ?7');
  85. writeln('M       M x Demajo Programming        MM');
  86. writeln('M7                                    MM');
  87. writeln('MM                                   MMM');
  88. writeln('MMZ            Presents              MMM');
  89. writeln('MMM                                 MMMM');
  90. writeln('MMMM                               MMMMM');
  91. writeln('MMMMM,                           .MMMMMM');
  92. writeln('MMMMMMM                         MMMMMMMM');
  93. writeln('MMMMMMMMM                     MMMMMMMMMM');
  94. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  95. delay(log);
  96. clrscr;
  97. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  98. writeln('MMMMMMMMM                     MMMMMMMMMM');
  99. writeln('MMMMMMM                         MMMMMMMM');
  100. writeln('MMMMM8                          ..MMMMMM');
  101. writeln('MMMM.                              MMMMM');
  102. writeln('MMM,                                MMMM');
  103. writeln('MMM                                 :MMM');
  104. writeln('MM                                   MMM');
  105. writeln('M8                                    MM');
  106. writeln('M                    _     _          MM');
  107. writeln('7         /\  /\    | \   |_|         IZ');
  108. writeln('I        /  \/  \ . |_/ . |           ?7');
  109. writeln('M       Ma  Demajo Programming        MM');
  110. writeln('M7                                    MM');
  111. writeln('MM                                   MMM');
  112. writeln('MMZ            Presents              MMM');
  113. writeln('MMM                                 MMMM');
  114. writeln('MMMM                               MMMMM');
  115. writeln('MMMMM,                           .MMMMMM');
  116. writeln('MMMMMMM                         MMMMMMMM');
  117. writeln('MMMMMMMMM                     MMMMMMMMMM');
  118. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  119. delay(log);
  120. clrscr;
  121. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  122. writeln('MMMMMMMMM                     MMMMMMMMMM');
  123. writeln('MMMMMMM                         MMMMMMMM');
  124. writeln('MMMMM8                          ..MMMMMM');
  125. writeln('MMMM.                              MMMMM');
  126. writeln('MMM,                                MMMM');
  127. writeln('MMM                                 :MMM');
  128. writeln('MM                                   MMM');
  129. writeln('M8                                    MM');
  130. writeln('M                    _     _          MM');
  131. writeln('7         /\  /\    | \   |_|         IZ');
  132. writeln('I        /  \/  \ . |_/ . |           ?7');
  133. writeln('M       Max Demajo Programming        MM');
  134. writeln('M7                                    MM');
  135. writeln('MM                                   MMM');
  136. writeln('MMZ            Presents              MMM');
  137. writeln('MMM                                 MMMM');
  138. writeln('MMMM                               MMMMM');
  139. writeln('MMMMM,                           .MMMMMM');
  140. writeln('MMMMMMM                         MMMMMMMM');
  141. writeln('MMMMMMMMM                     MMMMMMMMMM');
  142. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  143. delay(log);
  144. clrscr;
  145. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  146. writeln('MMMMMMMMM                     MMMMMMMMMM');
  147. writeln('MMMMMMM                         MMMMMMMM');
  148. writeln('MMMMM8                          ..MMMMMM');
  149. writeln('MMMM.                              MMMMM');
  150. writeln('MMM,                                MMMM');
  151. writeln('MMM                                 :MMM');
  152. writeln('MM                                   MMM');
  153. writeln('M8                                    MM');
  154. writeln('M                    _     _          MM');
  155. writeln('7         /\  /\    | \   |_|         IZ');
  156. writeln('I        /  \/  \ . |_/ . |           ?7');
  157. writeln('M       Max  emajo Programming        MM');
  158. writeln('M7                                    MM');
  159. writeln('MM                                   MMM');
  160. writeln('MMZ            Presents              MMM');
  161. writeln('MMM                                 MMMM');
  162. writeln('MMMM                               MMMMM');
  163. writeln('MMMMM,                           .MMMMMM');
  164. writeln('MMMMMMM                         MMMMMMMM');
  165. writeln('MMMMMMMMM                     MMMMMMMMMM');
  166. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  167. delay(log);
  168. clrscr;
  169. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  170. writeln('MMMMMMMMM                     MMMMMMMMMM');
  171. writeln('MMMMMMM                         MMMMMMMM');
  172. writeln('MMMMM8                          ..MMMMMM');
  173. writeln('MMMM.                              MMMMM');
  174. writeln('MMM,                                MMMM');
  175. writeln('MMM                                 :MMM');
  176. writeln('MM                                   MMM');
  177. writeln('M8                                    MM');
  178. writeln('M                    _     _          MM');
  179. writeln('7         /\  /\    | \   |_|         IZ');
  180. writeln('I        /  \/  \ . |_/ . |           ?7');
  181. writeln('M       Max D majo Programming        MM');
  182. writeln('M7                                    MM');
  183. writeln('MM                                   MMM');
  184. writeln('MMZ            Presents              MMM');
  185. writeln('MMM                                 MMMM');
  186. writeln('MMMM                               MMMMM');
  187. writeln('MMMMM,                           .MMMMMM');
  188. writeln('MMMMMMM                         MMMMMMMM');
  189. writeln('MMMMMMMMM                     MMMMMMMMMM');
  190. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  191. delay(log);
  192. clrscr;
  193. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  194. writeln('MMMMMMMMM                     MMMMMMMMMM');
  195. writeln('MMMMMMM                         MMMMMMMM');
  196. writeln('MMMMM8                          ..MMMMMM');
  197. writeln('MMMM.                              MMMMM');
  198. writeln('MMM,                                MMMM');
  199. writeln('MMM                                 :MMM');
  200. writeln('MM                                   MMM');
  201. writeln('M8                                    MM');
  202. writeln('M                    _     _          MM');
  203. writeln('7         /\  /\    | \   |_|         IZ');
  204. writeln('I        /  \/  \ . |_/ . |           ?7');
  205. writeln('M       Max De ajo Programming        MM');
  206. writeln('M7                                    MM');
  207. writeln('MM                                   MMM');
  208. writeln('MMZ            Presents              MMM');
  209. writeln('MMM                                 MMMM');
  210. writeln('MMMM                               MMMMM');
  211. writeln('MMMMM,                           .MMMMMM');
  212. writeln('MMMMMMM                         MMMMMMMM');
  213. writeln('MMMMMMMMM                     MMMMMMMMMM');
  214. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  215. delay(log);
  216. clrscr;
  217. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  218. writeln('MMMMMMMMM                     MMMMMMMMMM');
  219. writeln('MMMMMMM                         MMMMMMMM');
  220. writeln('MMMMM8                          ..MMMMMM');
  221. writeln('MMMM.                              MMMMM');
  222. writeln('MMM,                                MMMM');
  223. writeln('MMM                                 :MMM');
  224. writeln('MM                                   MMM');
  225. writeln('M8                                    MM');
  226. writeln('M                    _     _          MM');
  227. writeln('7         /\  /\    | \   |_|         IZ');
  228. writeln('I        /  \/  \ . |_/ . |           ?7');
  229. writeln('M       Max Dem jo Programming        MM');
  230. writeln('M7                                    MM');
  231. writeln('MM                                   MMM');
  232. writeln('MMZ            Presents              MMM');
  233. writeln('MMM                                 MMMM');
  234. writeln('MMMM                               MMMMM');
  235. writeln('MMMMM,                           .MMMMMM');
  236. writeln('MMMMMMM                         MMMMMMMM');
  237. writeln('MMMMMMMMM                     MMMMMMMMMM');
  238. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  239. delay(log);
  240. clrscr;
  241. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  242. writeln('MMMMMMMMM                     MMMMMMMMMM');
  243. writeln('MMMMMMM                         MMMMMMMM');
  244. writeln('MMMMM8                          ..MMMMMM');
  245. writeln('MMMM.                              MMMMM');
  246. writeln('MMM,                                MMMM');
  247. writeln('MMM                                 :MMM');
  248. writeln('MM                                   MMM');
  249. writeln('M8                                    MM');
  250. writeln('M                    _     _          MM');
  251. writeln('7         /\  /\    | \   |_|         IZ');
  252. writeln('I        /  \/  \ . |_/ . |           ?7');
  253. writeln('M       Max Dema o Programming        MM');
  254. writeln('M7                                    MM');
  255. writeln('MM                                   MMM');
  256. writeln('MMZ            Presents              MMM');
  257. writeln('MMM                                 MMMM');
  258. writeln('MMMM                               MMMMM');
  259. writeln('MMMMM,                           .MMMMMM');
  260. writeln('MMMMMMM                         MMMMMMMM');
  261. writeln('MMMMMMMMM                     MMMMMMMMMM');
  262. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  263. delay(log);
  264. clrscr;
  265. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  266. writeln('MMMMMMMMM                     MMMMMMMMMM');
  267. writeln('MMMMMMM                         MMMMMMMM');
  268. writeln('MMMMM8                          ..MMMMMM');
  269. writeln('MMMM.                              MMMMM');
  270. writeln('MMM,                                MMMM');
  271. writeln('MMM                                 :MMM');
  272. writeln('MM                                   MMM');
  273. writeln('M8                                    MM');
  274. writeln('M                    _     _          MM');
  275. writeln('7         /\  /\    | \   |_|         IZ');
  276. writeln('I        /  \/  \ . |_/ . |           ?7');
  277. writeln('M       Max Demaj  Programming        MM');
  278. writeln('M7                                    MM');
  279. writeln('MM                                   MMM');
  280. writeln('MMZ            Presents              MMM');
  281. writeln('MMM                                 MMMM');
  282. writeln('MMMM                               MMMMM');
  283. writeln('MMMMM,                           .MMMMMM');
  284. writeln('MMMMMMM                         MMMMMMMM');
  285. writeln('MMMMMMMMM                     MMMMMMMMMM');
  286. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  287. delay(log);
  288. clrscr;
  289. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  290. writeln('MMMMMMMMM                     MMMMMMMMMM');
  291. writeln('MMMMMMM                         MMMMMMMM');
  292. writeln('MMMMM8                          ..MMMMMM');
  293. writeln('MMMM.                              MMMMM');
  294. writeln('MMM,                                MMMM');
  295. writeln('MMM                                 :MMM');
  296. writeln('MM                                   MMM');
  297. writeln('M8                                    MM');
  298. writeln('M                    _     _          MM');
  299. writeln('7         /\  /\    | \   |_|         IZ');
  300. writeln('I        /  \/  \ . |_/ . |           ?7');
  301. writeln('M       Max Demajo Programming        MM');
  302. writeln('M7                                    MM');
  303. writeln('MM                                   MMM');
  304. writeln('MMZ            Presents              MMM');
  305. writeln('MMM                                 MMMM');
  306. writeln('MMMM                               MMMMM');
  307. writeln('MMMMM,                           .MMMMMM');
  308. writeln('MMMMMMM                         MMMMMMMM');
  309. writeln('MMMMMMMMM                     MMMMMMMMMM');
  310. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  311. delay(log);
  312. clrscr;
  313. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  314. writeln('MMMMMMMMM                     MMMMMMMMMM');
  315. writeln('MMMMMMM                         MMMMMMMM');
  316. writeln('MMMMM8                          ..MMMMMM');
  317. writeln('MMMM.                              MMMMM');
  318. writeln('MMM,                                MMMM');
  319. writeln('MMM                                 :MMM');
  320. writeln('MM                                   MMM');
  321. writeln('M8                                    MM');
  322. writeln('M                    _     _          MM');
  323. writeln('7         /\  /\    | \   |_|         IZ');
  324. writeln('I        /  \/  \ . |_/ . |           ?7');
  325. writeln('M       Max Demajo  rogramming        MM');
  326. writeln('M7                                    MM');
  327. writeln('MM                                   MMM');
  328. writeln('MMZ            Presents              MMM');
  329. writeln('MMM                                 MMMM');
  330. writeln('MMMM                               MMMMM');
  331. writeln('MMMMM,                           .MMMMMM');
  332. writeln('MMMMMMM                         MMMMMMMM');
  333. writeln('MMMMMMMMM                     MMMMMMMMMM');
  334. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  335. delay(log);
  336. clrscr;
  337. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  338. writeln('MMMMMMMMM                     MMMMMMMMMM');
  339. writeln('MMMMMMM                         MMMMMMMM');
  340. writeln('MMMMM8                          ..MMMMMM');
  341. writeln('MMMM.                              MMMMM');
  342. writeln('MMM,                                MMMM');
  343. writeln('MMM                                 :MMM');
  344. writeln('MM                                   MMM');
  345. writeln('M8                                    MM');
  346. writeln('M                    _     _          MM');
  347. writeln('7         /\  /\    | \   |_|         IZ');
  348. writeln('I        /  \/  \ . |_/ . |           ?7');
  349. writeln('M       Max Demajo P ogramming        MM');
  350. writeln('M7                                    MM');
  351. writeln('MM                                   MMM');
  352. writeln('MMZ            Presents              MMM');
  353. writeln('MMM                                 MMMM');
  354. writeln('MMMM                               MMMMM');
  355. writeln('MMMMM,                           .MMMMMM');
  356. writeln('MMMMMMM                         MMMMMMMM');
  357. writeln('MMMMMMMMM                     MMMMMMMMMM');
  358. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  359. delay(log);
  360. clrscr;
  361. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  362. writeln('MMMMMMMMM                     MMMMMMMMMM');
  363. writeln('MMMMMMM                         MMMMMMMM');
  364. writeln('MMMMM8                          ..MMMMMM');
  365. writeln('MMMM.                              MMMMM');
  366. writeln('MMM,                                MMMM');
  367. writeln('MMM                                 :MMM');
  368. writeln('MM                                   MMM');
  369. writeln('M8                                    MM');
  370. writeln('M                    _     _          MM');
  371. writeln('7         /\  /\    | \   |_|         IZ');
  372. writeln('I        /  \/  \ . |_/ . |           ?7');
  373. writeln('M       Max Demajo Pr gramming        MM');
  374. writeln('M7                                    MM');
  375. writeln('MM                                   MMM');
  376. writeln('MMZ            Presents              MMM');
  377. writeln('MMM                                 MMMM');
  378. writeln('MMMM                               MMMMM');
  379. writeln('MMMMM,                           .MMMMMM');
  380. writeln('MMMMMMM                         MMMMMMMM');
  381. writeln('MMMMMMMMM                     MMMMMMMMMM');
  382. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  383. delay(log);
  384. clrscr;
  385. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  386. writeln('MMMMMMMMM                     MMMMMMMMMM');
  387. writeln('MMMMMMM                         MMMMMMMM');
  388. writeln('MMMMM8                          ..MMMMMM');
  389. writeln('MMMM.                              MMMMM');
  390. writeln('MMM,                                MMMM');
  391. writeln('MMM                                 :MMM');
  392. writeln('MM                                   MMM');
  393. writeln('M8                                    MM');
  394. writeln('M                    _     _          MM');
  395. writeln('7         /\  /\    | \   |_|         IZ');
  396. writeln('I        /  \/  \ . |_/ . |           ?7');
  397. writeln('M       Max Demajo Pro ramming        MM');
  398. writeln('M7                                    MM');
  399. writeln('MM                                   MMM');
  400. writeln('MMZ            Presents              MMM');
  401. writeln('MMM                                 MMMM');
  402. writeln('MMMM                               MMMMM');
  403. writeln('MMMMM,                           .MMMMMM');
  404. writeln('MMMMMMM                         MMMMMMMM');
  405. writeln('MMMMMMMMM                     MMMMMMMMMM');
  406. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  407. delay(log);
  408. clrscr;
  409. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  410. writeln('MMMMMMMMM                     MMMMMMMMMM');
  411. writeln('MMMMMMM                         MMMMMMMM');
  412. writeln('MMMMM8                          ..MMMMMM');
  413. writeln('MMMM.                              MMMMM');
  414. writeln('MMM,                                MMMM');
  415. writeln('MMM                                 :MMM');
  416. writeln('MM                                   MMM');
  417. writeln('M8                                    MM');
  418. writeln('M                    _     _          MM');
  419. writeln('7         /\  /\    | \   |_|         IZ');
  420. writeln('I        /  \/  \ . |_/ . |           ?7');
  421. writeln('M       Max Demajo Prog amming        MM');
  422. writeln('M7                                    MM');
  423. writeln('MM                                   MMM');
  424. writeln('MMZ            Presents              MMM');
  425. writeln('MMM                                 MMMM');
  426. writeln('MMMM                               MMMMM');
  427. writeln('MMMMM,                           .MMMMMM');
  428. writeln('MMMMMMM                         MMMMMMMM');
  429. writeln('MMMMMMMMM                     MMMMMMMMMM');
  430. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  431. delay(log);
  432. clrscr;
  433. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  434. writeln('MMMMMMMMM                     MMMMMMMMMM');
  435. writeln('MMMMMMM                         MMMMMMMM');
  436. writeln('MMMMM8                          ..MMMMMM');
  437. writeln('MMMM.                              MMMMM');
  438. writeln('MMM,                                MMMM');
  439. writeln('MMM                                 :MMM');
  440. writeln('MM                                   MMM');
  441. writeln('M8                                    MM');
  442. writeln('M                    _     _          MM');
  443. writeln('7         /\  /\    | \   |_|         IZ');
  444. writeln('I        /  \/  \ . |_/ . |           ?7');
  445. writeln('M       Max Demajo Progr mming        MM');
  446. writeln('M7                                    MM');
  447. writeln('MM                                   MMM');
  448. writeln('MMZ            Presents              MMM');
  449. writeln('MMM                                 MMMM');
  450. writeln('MMMM                               MMMMM');
  451. writeln('MMMMM,                           .MMMMMM');
  452. writeln('MMMMMMM                         MMMMMMMM');
  453. writeln('MMMMMMMMM                     MMMMMMMMMM');
  454. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  455. delay(log);
  456. clrscr;
  457. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  458. writeln('MMMMMMMMM                     MMMMMMMMMM');
  459. writeln('MMMMMMM                         MMMMMMMM');
  460. writeln('MMMMM8                          ..MMMMMM');
  461. writeln('MMMM.                              MMMMM');
  462. writeln('MMM,                                MMMM');
  463. writeln('MMM                                 :MMM');
  464. writeln('MM                                   MMM');
  465. writeln('M8                                    MM');
  466. writeln('M                    _     _          MM');
  467. writeln('7         /\  /\    | \   |_|         IZ');
  468. writeln('I        /  \/  \ . |_/ . |           ?7');
  469. writeln('M       Max Demajo Progra ming        MM');
  470. writeln('M7                                    MM');
  471. writeln('MM                                   MMM');
  472. writeln('MMZ            Presents              MMM');
  473. writeln('MMM                                 MMMM');
  474. writeln('MMMM                               MMMMM');
  475. writeln('MMMMM,                           .MMMMMM');
  476. writeln('MMMMMMM                         MMMMMMMM');
  477. writeln('MMMMMMMMM                     MMMMMMMMMM');
  478. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  479. delay(log);
  480. clrscr;
  481. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  482. writeln('MMMMMMMMM                     MMMMMMMMMM');
  483. writeln('MMMMMMM                         MMMMMMMM');
  484. writeln('MMMMM8                          ..MMMMMM');
  485. writeln('MMMM.                              MMMMM');
  486. writeln('MMM,                                MMMM');
  487. writeln('MMM                                 :MMM');
  488. writeln('MM                                   MMM');
  489. writeln('M8                                    MM');
  490. writeln('M                    _     _          MM');
  491. writeln('7         /\  /\    | \   |_|         IZ');
  492. writeln('I        /  \/  \ . |_/ . |           ?7');
  493. writeln('M       Max Demajo Program ing        MM');
  494. writeln('M7                                    MM');
  495. writeln('MM                                   MMM');
  496. writeln('MMZ            Presents              MMM');
  497. writeln('MMM                                 MMMM');
  498. writeln('MMMM                               MMMMM');
  499. writeln('MMMMM,                           .MMMMMM');
  500. writeln('MMMMMMM                         MMMMMMMM');
  501. writeln('MMMMMMMMM                     MMMMMMMMMM');
  502. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  503. delay(log);
  504. clrscr;
  505. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  506. writeln('MMMMMMMMM                     MMMMMMMMMM');
  507. writeln('MMMMMMM                         MMMMMMMM');
  508. writeln('MMMMM8                          ..MMMMMM');
  509. writeln('MMMM.                              MMMMM');
  510. writeln('MMM,                                MMMM');
  511. writeln('MMM                                 :MMM');
  512. writeln('MM                                   MMM');
  513. writeln('M8                                    MM');
  514. writeln('M                    _     _          MM');
  515. writeln('7         /\  /\    | \   |_|         IZ');
  516. writeln('I        /  \/  \ . |_/ . |           ?7');
  517. writeln('M       Max Demajo Programming        MM');
  518. writeln('M7                                    MM');
  519. writeln('MM                                   MMM');
  520. writeln('MMZ            Presents              MMM');
  521. writeln('MMM                                 MMMM');
  522. writeln('MMMM                               MMMMM');
  523. writeln('MMMMM,                           .MMMMMM');
  524. writeln('MMMMMMM                         MMMMMMMM');
  525. writeln('MMMMMMMMM                     MMMMMMMMMM');
  526. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  527. delay(log);
  528. clrscr;
  529. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  530. writeln('MMMMMMMMM                     MMMMMMMMMM');
  531. writeln('MMMMMMM                         MMMMMMMM');
  532. writeln('MMMMM8                          ..MMMMMM');
  533. writeln('MMMM.                              MMMMM');
  534. writeln('MMM,                                MMMM');
  535. writeln('MMM                                 :MMM');
  536. writeln('MM                                   MMM');
  537. writeln('M8                                    MM');
  538. writeln('M                    _     _          MM');
  539. writeln('7         /\  /\    | \   |_|         IZ');
  540. writeln('I        /  \/  \ . |_/ . |           ?7');
  541. writeln('M       Max Demajo Programm ng        MM');
  542. writeln('M7                                    MM');
  543. writeln('MM                                   MMM');
  544. writeln('MMZ            Presents              MMM');
  545. writeln('MMM                                 MMMM');
  546. writeln('MMMM                               MMMMM');
  547. writeln('MMMMM,                           .MMMMMM');
  548. writeln('MMMMMMM                         MMMMMMMM');
  549. writeln('MMMMMMMMM                     MMMMMMMMMM');
  550. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  551. delay(log);
  552. clrscr;
  553. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  554. writeln('MMMMMMMMM                     MMMMMMMMMM');
  555. writeln('MMMMMMM                         MMMMMMMM');
  556. writeln('MMMMM8                          ..MMMMMM');
  557. writeln('MMMM.                              MMMMM');
  558. writeln('MMM,                                MMMM');
  559. writeln('MMM                                 :MMM');
  560. writeln('MM                                   MMM');
  561. writeln('M8                                    MM');
  562. writeln('M                    _     _          MM');
  563. writeln('7         /\  /\    | \   |_|         IZ');
  564. writeln('I        /  \/  \ . |_/ . |           ?7');
  565. writeln('M       Max Demajo Programmi g        MM');
  566. writeln('M7                                    MM');
  567. writeln('MM                                   MMM');
  568. writeln('MMZ            Presents              MMM');
  569. writeln('MMM                                 MMMM');
  570. writeln('MMMM                               MMMMM');
  571. writeln('MMMMM,                           .MMMMMM');
  572. writeln('MMMMMMM                         MMMMMMMM');
  573. writeln('MMMMMMMMM                     MMMMMMMMMM');
  574. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  575. delay(log);
  576. clrscr;
  577. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  578. writeln('MMMMMMMMM                     MMMMMMMMMM');
  579. writeln('MMMMMMM                         MMMMMMMM');
  580. writeln('MMMMM8                          ..MMMMMM');
  581. writeln('MMMM.                              MMMMM');
  582. writeln('MMM,                                MMMM');
  583. writeln('MMM                                 :MMM');
  584. writeln('MM                                   MMM');
  585. writeln('M8                                    MM');
  586. writeln('M                    _     _          MM');
  587. writeln('7         /\  /\    | \   |_|         IZ');
  588. writeln('I        /  \/  \ . |_/ . |           ?7');
  589. writeln('M       Max Demajo Programmin         MM');
  590. writeln('M7                                    MM');
  591. writeln('MM                                   MMM');
  592. writeln('MMZ            Presents              MMM');
  593. writeln('MMM                                 MMMM');
  594. writeln('MMMM                               MMMMM');
  595. writeln('MMMMM,                           .MMMMMM');
  596. writeln('MMMMMMM                         MMMMMMMM');
  597. writeln('MMMMMMMMM                     MMMMMMMMMM');
  598. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  599. delay(log);
  600. clrscr;
  601. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  602. writeln('MMMMMMMMM                     MMMMMMMMMM');
  603. writeln('MMMMMMM                         MMMMMMMM');
  604. writeln('MMMMM8                          ..MMMMMM');
  605. writeln('MMMM.                              MMMMM');
  606. writeln('MMM,                                MMMM');
  607. writeln('MMM                                 :MMM');
  608. writeln('MM                                   MMM');
  609. writeln('M8                                    MM');
  610. writeln('M                    _     _          MM');
  611. writeln('7         /\  /\    | \   |_|         IZ');
  612. writeln('I        /  \/  \ . |_/ . |           ?7');
  613. writeln('M       Max Demajo Programming        MM');
  614. writeln('M7                                    MM');
  615. writeln('MM                                   MMM');
  616. writeln('MMZ            Presents              MMM');
  617. writeln('MMM                                 MMMM');
  618. writeln('MMMM                               MMMMM');
  619. writeln('MMMMM,                           .MMMMMM');
  620. writeln('MMMMMMM                         MMMMMMMM');
  621. writeln('MMMMMMMMM                     MMMMMMMMMM');
  622. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  623.  
  624. index:=0;
  625.  
  626. repeat
  627. index:=index+1;
  628. delay(300);
  629. clrscr;
  630. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  631. writeln('MMMMMMMMM                     MMMMMMMMMM');
  632. writeln('MMMMMMM                         MMMMMMMM');
  633. writeln('MMMMM8                          ..MMMMMM');
  634. writeln('MMMM.                              MMMMM');
  635. writeln('MMM,                                MMMM');
  636. writeln('MMM                                 :MMM');
  637. writeln('MM                                   MMM');
  638. writeln('M8                                    MM');
  639. writeln('M                    _     _          MM');
  640. writeln('7         /\  /\    | \   |_|         IZ');
  641. writeln('I        /  \/  \ . |_/ . |           ?7');
  642. writeln('M       Max Demajo Programming        MM');
  643. writeln('M7                                    MM');
  644. writeln('MM                                   MMM');
  645. writeln('MMZ                                  MMM');
  646. writeln('MMM                                 MMMM');
  647. writeln('MMMM                               MMMMM');
  648. writeln('MMMMM,                           .MMMMMM');
  649. writeln('MMMMMMM                         MMMMMMMM');
  650. writeln('MMMMMMMMM                     MMMMMMMMMM');
  651. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  652. delay(300);
  653. clrscr;
  654. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  655. writeln('MMMMMMMMM                     MMMMMMMMMM');
  656. writeln('MMMMMMM                         MMMMMMMM');
  657. writeln('MMMMM8                          ..MMMMMM');
  658. writeln('MMMM.                              MMMMM');
  659. writeln('MMM,                                MMMM');
  660. writeln('MMM                                 :MMM');
  661. writeln('MM                                   MMM');
  662. writeln('M8                                    MM');
  663. writeln('M                    _     _          MM');
  664. writeln('7         /\  /\    | \   |_|         IZ');
  665. writeln('I        /  \/  \ . |_/ . |           ?7');
  666. writeln('M       Max Demajo Programming        MM');
  667. writeln('M7                                    MM');
  668. writeln('MM                                   MMM');
  669. writeln('MMZ            Presents              MMM');
  670. writeln('MMM                                 MMMM');
  671. writeln('MMMM                               MMMMM');
  672. writeln('MMMMM,                           .MMMMMM');
  673. writeln('MMMMMMM                         MMMMMMMM');
  674. writeln('MMMMMMMMM                     MMMMMMMMMM');
  675. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  676. until index=3;             {logo animation ends}
  677.  
  678. delay(1000);

it uses constants for log and logo. as you can see, i used a loop for the last part where 'presents' flashes. is it possible to make the beggining a loop aswel using goto x,y or something? because its a real lot of text and i would like to make it smaller. any help?
Similar Threads
Reputation Points: 10
Solved Threads: 1
Light Poster
killhha is offline Offline
26 posts
since Mar 2009
Permalink
Mar 24th, 2009
0

Re: Animation in pascal

how many times you want to run this procedure?
Reputation Points: 132
Solved Threads: 138
Posting Pro
FlamingClaw is offline Offline
559 posts
since Feb 2009
Permalink
Mar 24th, 2009
0

Re: Animation in pascal

Looks like fun. Reminds me of the ASCII movie version of Star Wars.
Reputation Points: 10
Solved Threads: 1
Light Poster
m610 is offline Offline
40 posts
since Oct 2008
Permalink
Mar 24th, 2009
0

Re: Animation in pascal

It looks like only a few lines actually change. Why don't you put the graphic in a loop with the few lines that change as a separate method? You can use counters to keep track of when to begin or change the lines that require it.
Reputation Points: 11
Solved Threads: 11
Junior Poster in Training
jsosnowski is offline Offline
68 posts
since Nov 2007
Permalink
Mar 25th, 2009
0

Re: Animation in pascal

I would make each screen a separate procedure and let the main program loop call them when needed. Basically, you'll have a series of screens, then you write the script to display them whenever and for however long you want.

For fun, some procedures might only replace parts of previous screens. For example, just replace the text by going to the screen position and writing it. Or, if you have a background, then just overlay the new foreground image by doing a character-by-character comparison of the areas you want to display the new image at. Either way, it would cut down enormously on how much memory and related resources you have to use to store the strings.

Might as well use color while you are at it.
Reputation Points: 10
Solved Threads: 1
Light Poster
m610 is offline Offline
40 posts
since Oct 2008
Permalink
Mar 25th, 2009
0

Re: Animation in pascal

You can use these:
pascal Syntax (Toggle Plain Text)
  1. While (condition true) Do
  2.    Begin
  3.       {your codes here..}
  4.    End;
  5.  
  6. {Or}
  7.  
  8. Repeat
  9.    {your codes here...}
  10. Until (condition true);
  11.  
  12. {Or}
  13.  
  14. For i:=min To max Do
  15.    Begin
  16.       {your codes here...}
  17.    End;
  18.  
  19. {
  20. Do not forget about the 'Break' procedure,if you want to stopping these loops if needed
  21. }
Reputation Points: 132
Solved Threads: 138
Posting Pro
FlamingClaw is offline Offline
559 posts
since Feb 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.
Message:
Previous Thread in Pascal and Delphi Forum Timeline: BitMap-to-AVI, but not in real time.
Next Thread in Pascal and Delphi Forum Timeline: Please help me again





About Us | Contact Us | Advertise | Acceptable Use Policy
Forum Index | Build Custom RSS Feed


Follow us on Twitter


© 2011 DaniWeb® LLC