API tools faq
paste
Guest User

string left to right

a guest
Sep 7th, 2012
200
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 11.20 KB | None | 0 0
raw download clone embed print report
  1. function regwrite(string, columnVar, rowVar) -- Write a string to the cords
  2.     term.setCursorPos( columnVar, rowVar )
  3.     write (string)
  4. end
  5.  
  6. function arcwrite(number, columnVar, rowVar) -- Write a number "right to left" to the cords
  7.     digits = math.ceil(math.log10(number))
  8.     if 10^digits == number then
  9.         digits = digits + 1
  10.     end
  11.     term.setCursorPos( columnVar, rowVar )
  12.     while digits > 1 do
  13.         digits = digits - 1
  14.         columnVar = columnVar - 1
  15.         term.setCursorPos( columnVar, rowVar )
  16.     end
  17.     write (number)
  18. end
  19.  
  20.  
  21.  
  22. -- Intro
  23. if Intro == true then
  24. term.clear()
  25. regwrite( [[
  26.            
  27.                                  d8
  28.                                  88    
  29.                                  Y8    
  30.                                  "Y
  31.                  
  32.                      
  33.                                  8
  34.                                 88                                                                                    
  35. ]] , 1, 3 )
  36. sleep(0.001)
  37. regwrite ( [[
  38.                              88888
  39.                             d88888
  40.                             888    
  41.                             Y88b    
  42.                              "Y888
  43.                  
  44.                                   d      
  45.                               88888
  46.                              888888
  47.  
  48. ]] , 1, 3 )
  49. sleep(0.001)
  50. regwrite( [[
  51.                            88888888
  52.                           d8888888
  53.                           888    
  54.                           Y88b    
  55.                            "Y888b.  
  56.                                Y88  
  57.                               d88Y      
  58.                           888888Y"
  59.                           8888888"
  60.  
  61. ]] , 1, 3 )
  62. sleep(0.001)
  63. regwrite( [[
  64.                         88888888 8
  65.                        d8888888  8
  66.                        888      
  67.                        Y88b      
  68.                         "Y888b.  
  69.                               Y88  
  70.                              d88Y      
  71.                          888888Y"
  72.                        8888888"
  73.  
  74. ]] , 1, 3 )
  75. sleep(0.001)
  76. regwrite( [[
  77.                       88888888 8888    
  78.                      d8888888  8888
  79.                      888          8
  80.                      Y88b         8
  81.                       "Y888b.     8
  82.                           Y88    8
  83.                          d88Y    8  
  84.                      888888Y"    8
  85.                      8888888"     8
  86. ]] , 1, 3 )
  87. sleep(0.001)
  88. regwrite( [[
  89.                  88888888 88888888    
  90.                 d8888888  88888888
  91.                 888          888
  92.                 Y88b         888
  93.                  "Y888b.     888
  94.                        Y88    888
  95.                       d88Y    888
  96.                   888888Y"    888
  97.                 8888888"     888
  98. ]] , 1, 3 )
  99. sleep(0.001)
  100. regwrite( [[
  101.                88888888 888888888 8    
  102.               d8888888  888888888 8
  103.               888          888    8
  104.               Y88b         888    8  
  105.                "Y888b.     888    8
  106.                    Y88    888    8
  107.                   d88Y    888    Y
  108.               888888Y"    888
  109.               8888888"     888
  110. ]] , 1, 3 )
  111. sleep(0.001)
  112. regwrite( [[
  113.          88888888 888888888 888    
  114.         d8888888  888888888 888
  115.         888          888    888
  116.         Y88b         888    888  
  117.          "Y888b.     888    888
  118.                Y88    888    888b
  119.               d88Y    888    Y888Y*
  120.           888888Y"    888     Y8888
  121.         8888888"     888      "888
  122. ]] , 1, 3 )
  123. sleep(0.001)
  124. regwrite( [[
  125.      88888888 888888888 888      8
  126.     d8888888  888888888 888      8
  127.     888          888    888      8
  128.     Y88b         888    888      8
  129.      "Y888b.     888    888b    d8
  130.            Y88    888    8888Y  Y88
  131.           d88Y    888    Y8888**888
  132.       888888Y"    888     Y88888888
  133.     8888888"     888      "8888888
  134. ]] , 1, 3 )
  135. sleep(0.001)
  136. regwrite( [[
  137.  88888888 888888888 888      888 8
  138. d8888888  888888888 888      888 8
  139. 888          888    888      888 8
  140. Y88b         888    888      888 8
  141.  "Y888b.     888    888b    d888 8
  142.        Y88    888    8888Y  Y8888 8
  143.       d88Y    888    Y8888**8888Y 8
  144.   888888Y"    888     Y88888888Y  8
  145. 8888888"     888      "888888P   8
  146. ]] , 1, 3 )
  147. sleep(0.001)
  148. regwrite( [[
  149. 888888 888888888 888      888 88888
  150. 88888  888888888 888      888 88888
  151.          888    888      888 888
  152. b         888    888      888 888
  153. 888b.     888    888b    d888 88888
  154.   Y88    888    8888Y  Y8888 88888
  155.  d88Y    888    Y8888**8888Y 888
  156. 8888Y"    888     Y88888888Y  888
  157. 8888"     888      "888888P   888
  158. ]] , 1, 3 )
  159. sleep(0.001)
  160. regwrite( [[
  161. 88 888888888 888      888 888888 88
  162. 8  888888888 888      888 888888 88
  163.       888    888      888 888    88
  164.       888    888      888 888    88
  165. .     888    888b    d888 88888  88
  166. 88    888    8888Y  Y8888 88888  88
  167. 8Y    888    Y8888**8888Y 888    88
  168. Y"    888     Y88888888Y  888    88
  169. "     888      "888888P   888    88
  170. ]] , 1, 3 )
  171. sleep(0.001)
  172. regwrite( [[
  173. 88888888 888      888 888888 888888
  174. 88888888 888      888 888888 888888
  175.  888    888      888 888    888
  176.  888    888      888 888    888
  177.  888    888b    d888 88888  888888
  178.  888    8888Y  Y8888 88888  888888
  179.  888    Y8888**8888Y 888    888
  180.  888     Y88888888Y  888    888
  181.  888      "888888P   888    888
  182. ]] , 1, 3 )
  183. sleep(0.001)
  184. regwrite( [[
  185. 8888 888      888 888888 8888888      
  186. 8888 888      888 888888 8888888  
  187. 8    888      888 888    888    
  188. 8    888      888 888    888    
  189. 8    888b    d888 88888  888888    
  190. 8    8888Y  Y8888 88888  888888    
  191. 8    Y8888**8888Y 888    888  
  192. 8     Y88888888Y  888    888
  193. 8      "888888P   888    888
  194. ]] , 1, 3 )
  195. sleep(0.001)
  196. regwrite( [[
  197. 888      888 888888 8888888      8                
  198. 888      888 888888 8888888      8
  199. 888      888 888    888          8
  200. 888      888 888    888          8
  201. 888b    d888 88888  888888       8
  202. 8888Y  Y8888 88888  888888       8
  203. Y8888**8888Y 888    888          8
  204.  Y88888888Y  888    888          8
  205.   "888888P   888    888          8
  206. ]] , 1, 3 )
  207. sleep(0.001)
  208. regwrite( [[
  209.       888 888888 8888888      888                
  210.       888 888888 8888888      888
  211.       888 888    888          888
  212.       888 888    888          888
  213.      d888 88888  888888       88888
  214.  Y  Y8888 88888  888888       888
  215.  8**8888Y 888    888          888
  216.  888888Y  888    888          888
  217.  88888P   888    888          888
  218. ]] , 1, 3 )
  219. sleep(0.001)
  220. regwrite( [[
  221.   888 888888 8888888      888   888              
  222.   888 888888 8888888      888   888
  223.   888 888    888          888   888
  224.   888 888    888          888   888
  225.  d888 88888  888888       888888888
  226. Y8888 88888  888888       888   888
  227. 8888Y 888    888          888   888
  228. 888Y  888    888          888   888
  229. 88P   888    888          888   888
  230. ]] , 1, 3 )
  231. sleep(0.001)
  232. regwrite( [[
  233. 8 888888 8888888      888   888              
  234. 8 888888 8888888      888   888
  235. 8 888    888          888   888
  236. 8 888    888          888   888  .d
  237. 8 88888  888888       888888888 d88
  238. 8 88888  888888       888   888 888
  239. Y 888    888          888   888 888
  240.   888    888          888   888 Y88
  241.   888    888          888   888  "Y
  242. ]] , 1, 3 )
  243. sleep(0.001)
  244. regwrite( [[
  245. 8888 8888888      888   888              
  246. 8888 8888888      888   888
  247. 8    888          888   888
  248. 8    888          888   888  .d8888
  249. 888  888888       888888888 d88P  Y
  250. 888  888888       888   888 888
  251. 8    888          888   888 888
  252. 8    888          888   888 Y88b  d
  253. 8    888          888   888  "Y8888
  254. ]] , 1, 3 )
  255. sleep(0.001)
  256. regwrite( [[
  257.  8888888      888   888              
  258.  8888888      888   888
  259.  888          888   888
  260.  888          888   888  .d88888b.
  261.  888888       888888888 d88P   Y88b
  262.  888888       888   888 888     888
  263.  888          888   888 888     888
  264.  888          888   888 Y88b   d88Y
  265.  888          888   888  "Y88888Y"    
  266. ]] , 1, 3 )
  267. sleep(0.001)
  268. regwrite( [[
  269. 8888      888   888             888          
  270. 8888      888   888             888
  271.           888   888             888
  272.           888   888  .d88888b.  888
  273. 888       888888888 d88P   Y88b 888
  274. 888       888   888 888     888 888
  275.           888   888 888     888 888
  276.           888   888 Y88b   d88Y 888
  277.           888   888  "Y88888Y"  888
  278. ]] , 1, 3 )
  279. sleep(0.001)
  280. regwrite( [[
  281.       888   888             888          
  282.       888   888             888
  283.       888   888             888
  284.       888   888  .d88888b.  888
  285.       888888888 d88P   Y88b 888
  286.       888   888 888     888 888
  287.       888   888 888     888 888
  288.       888   888 Y88b   d88Y 8888888
  289.       888   888  "Y88888Y"  8888888
  290. ]] , 1, 3 )
  291. sleep(0.001)
  292. regwrite( [[
  293.   888   888             888          
  294.   888   888             888
  295.   888   888             888
  296.   888   888  .d88888b.  888
  297.   888888888 d88P   Y88b 888
  298.   888   888 888     888 888
  299.   888   888 888     888 888
  300.   888   888 Y88b   d88Y 8888888888
  301.   888   888  "Y88888Y"  8888888888
  302. ]] , 1, 3 )
  303. sleep(0.001)
  304. regwrite( [[
  305. 8   888             888        888  
  306. 8   888             888        888
  307. 8   888             888        888
  308. 8   888  .d88888b.  888        888
  309. 8888888 d88P   Y88b 888        888
  310. 8   888 888     888 888        888
  311. 8   888 888     888 888        888
  312. 8   888 Y88b   d88Y 8888888888 888
  313. 8   888  "Y88888Y"  8888888888 888
  314. ]] , 1, 3 )
  315. sleep(0.001)
  316. regwrite( [[
  317. 888             888        8888888  
  318. 888             888        8888888
  319. 888             888        8888
  320. 888  .d88888b.  888        8888
  321. 888 d88P   Y88b 888        8888888
  322. 888 888     888 888        8888888
  323. 888 888     888 888        8888
  324. 888 Y88b   d88Y 8888888888 8888888
  325. 888  "Y88888Y"  8888888888 8888888
  326. ]] , 1, 3 )
  327. sleep(0.001)
  328. regwrite( [[
  329.             888        8888888  
  330.             888        8888888
  331.             888        8888
  332.  .d88888b.  888        8888
  333. d88P   Y88b 888        8888888
  334. 888     888 888        8888888
  335. 888     888 888        8888
  336. Y88b   d88Y 8888888888 8888888
  337.  "Y88888Y"  8888888888 8888888
  338. ]] , 1, 3 )
  339. sleep(0.001)
  340. regwrite( [[
  341.         888        8888888  
  342.         888        8888888
  343.         888        8888
  344. 8888b.  888        8888
  345.    Y88b 888        8888888
  346.     888 888        8888888
  347.     888 888        8888
  348.    d88Y 8888888888 8888888
  349. 8888Y"  8888888888 8888888
  350. ]] , 1, 3 )
  351. sleep(0.001)
  352. regwrite( [[
  353.    888        8888888  
  354.    888        8888888
  355.    888        8888
  356. b.  888        8888
  357. 88b 888        8888888
  358. 888 888        8888888
  359. 888 888        8888
  360. 88Y 8888888888 8888888
  361. Y"  8888888888 8888888
  362. ]] , 1, 3 )
  363. sleep(0.001)
  364. regwrite( [[
  365. 888        8888888  
  366. 888        8888888
  367. 888        8888
  368. 888        8888
  369. 888        8888888
  370. 888        8888888
  371. 888        8888
  372. 8888888888 8888888
  373. 8888888888 8888888
  374. ]] , 1, 3 )
  375. sleep(0.001)
  376. regwrite( [[
  377.        8888888  
  378.        8888888
  379.        8888
  380.        8888
  381.        8888888
  382.        8888888
  383.        8888
  384. 888888 8888888
  385. 888888 8888888
  386. ]] , 1, 3 )
  387. sleep(0.001)
  388. regwrite( [[
  389.    8888888  
  390.    8888888
  391.    8888
  392.    8888
  393.    8888888
  394.    8888888
  395.    8888
  396. 88 8888888
  397. 88 8888888
  398. ]] , 1, 3 )
  399. sleep(0.001)
  400. regwrite( [[
  401. 888888  
  402. 888888
  403. 888
  404. 888
  405. 888888
  406. 888888
  407. 888
  408. 888888
  409. 888888
  410. ]] , 1, 3 )
  411. sleep(0.001)
  412. regwrite( [[
  413. 88  
  414. 88
  415.  
  416.  
  417. 88
  418. 88
  419.  
  420. 88
  421. 88                        
  422. ]] , 1, 3 )
  423. term.clear()
  424. sleep(0.2)
  425. end
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!