Advertisement
Guest User

s1hpd4rc.bas

a guest
Jun 6th, 2012
444
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include "fbgfx.bi"
  2. screen 1: setmouse ,,0: color 0,3: cls :'- 320x200 4 colours
  3. dim shared as integer x,y,i,u,x2,y2,ch,alen,iz,o,x2s,y2s,ocl,c,j,iq,jq,cq,iu,ju
  4. dim shared as string a_st,txo_st
  5.  
  6. line (0,0)-(319,199),1,bf
  7.  
  8. ocl=28:color ocl mod 16,int(ocl/16)
  9.  
  10. restore bmhdump
  11. for y2=0 to 7:for x2=0 to 31
  12.   read a_st
  13.   for y=0 to 7:for x=0 to 7 step 2
  14.     i=1+int((x+(y*8))/2)
  15.     u=val("&h"+mid$(a_st,i,1))
  16.     pset(x2*8+x,y2*8+y),int(u/4)
  17.     pset(x2*8+x+1,y2*8+y),u mod 4
  18.     next:next
  19.   next:next
  20.  
  21. dim shared as any ptr pattern(256)
  22. for i=0 to 255
  23.   x2=i mod 32:y2=int(i/32)
  24.   pattern(i)=imagecreate(8,8,0):get(x2*8,y2*8)-(x2*8+7,y2*8+7),pattern(i)
  25.   next
  26.  
  27. dim shared as any ptr sprite(64)
  28. for i=0 to 63
  29.   x2=i mod 16:y2=int(i/16)
  30.   sprite(i)=imagecreate(16,16,0):get(x2*16,y2*16)-(x2*16+15,y2*16+15),sprite(i)
  31.   next
  32.  
  33. dim shared as any ptr spriteb(32)
  34. for i=0 to 31
  35.   spriteb(i)=imagecreate(16,16,0)
  36.   next
  37.  
  38. declare sub printsb(xq as integer,yq as integer,oq as integer,a_st as string)
  39. sub printsb(xq as integer,yq as integer,oq as integer,a_st as string)
  40.   alen=len(a_st)
  41.   for iz=1 to alen
  42.     ch=(asc(mid(a_st,iz,1))+oq)mod 256
  43.     x2s=((xq+iz) mod 40)
  44.     y2s=(yq+int((xq+iz)/40))mod 25
  45.     put(x2s*8,y2s*8),pattern(ch),pset
  46.     next
  47.   end sub
  48.  
  49. for y2=0 to 24:for x2=0 to 39
  50.   ch=128+int(rnd(1)*128)
  51.   put(x2*8,y2*8),pattern(ch),pset
  52.   next:next
  53.  
  54. printsb(5,7,0,"LOREM IPSUM DOLOR SIT AMET")
  55.  
  56. loop01:
  57.  
  58. for y2=0 to 63
  59.   cq=y2
  60.  
  61.   'cq=int(rnd(1)*64)
  62.   'for iu=0 to 11
  63.   '  ju=2+((i mod 3)*2)+((int(i/3))*17)+((int(i/6))*6)
  64.   '  if cq=ju then cq=cq+1
  65.   '  next
  66.  
  67.   iq=cq mod 16
  68.   jq=(int(cq/16))mod 16
  69.   color iq,jq
  70.   txo_st="SPRITE: "+str(y2)+"  "
  71.   printsb(5,9,0,txo_st)
  72.   txo_st=str(cq)+"("+str(iq)+","+str(jq)+")  "
  73.   printsb(5,11,0,txo_st)
  74.   for x2=0 to 319-16 step 1
  75.     get(x2,100)-(x2+15,100+15),spriteb(0)
  76.     put(x2,100),sprite(y2),pset
  77.     screensync
  78.     put(x2,100),spriteb(0),pset
  79.     next:next
  80.  
  81. goto loop01
  82.  
  83. sleep
  84.  
  85. bmhdump:
  86. data "0002000200202022000A222220202022"
  87. data "020A22222020A2AA0A0A22AA2822A22A"
  88. data "0A2A2222A8A822220A2A2222A8A2222A"
  89. data "222AAAAAA222AAA22A2A22AA2AAAAA2A"
  90. data "2A2A2AA2AA2AAAAA2A2AAAAAAAA0AA00"
  91. data "0A2AA2AAAAAAAAA0AA00A00000000000"
  92. data "29A0AA00A00000000000000000000000"
  93. data "00000000000000000000000000000000"
  94. data "00020002000200020002000000000000"
  95. data "AA0AAAAAAAA2AAAAAAA22AAA2AAA2AAA"
  96. data "AA0AAA2AA2AA2A2AAAAAAA2AAA20AAA2"
  97. data "AA22AA2AAAA2AAA22A2AAA2AAA22AAAA"
  98. data "0000A000200000000000000000000000"
  99. data "2A002A00280028002800280020002800"
  100. data "022A02AA00A802A0022802A000A002A0"
  101. data "00290029002A00290029002900290029"
  102. data "A9A5A9995955599965A599A95A999999"
  103. data "A57F997F9A7F9ABF99BFA97F597F9997"
  104. data "FF59FF59FFD9FFDAFFD9FFF9FFF5FFF5"
  105. data "A595999959599999A595999959599999"
  106. data "800A8002A002A002A009A20A98029A01"
  107. data "000000008000A000A000A200A0009800"
  108. data "096A096A015209AA09AA019A0A5A095A"
  109. data "AAAAAAAAAAAAAAAA2AAAAAA9AAAAAAA9"
  110. data "A9AAA9AAAA9AAAAAA9AAAAA9AA9AAAAA"
  111. data "A5AAA9AAAA9AA99AA9A9A9AAAA9AAA99"
  112. data "A9AAA9AA9A9A9A9AA9AAA9A9AA999995"
  113. data "AAAAA9AA9AAAAA9AAAAAAAAAAA6AA9A2"
  114. data "AAAAAAAAAA9AAA9AAAAAAAA9AA9AAA2A"
  115. data "0A0A2AAA22A22A2A8AAAA2AAA2AAAA2A"
  116. data "2A2AAAAAA2AAAAAAAAA9AAAA9A9AAA9A"
  117. data "2A2AAAAAAAAAAAAA29AAAAA29AA89A2A"
  118. data "00000000000000000000000000000000"
  119. data "03C00FF00FF003C003C0000003C00000"
  120. data "0F3C0F3C0F3C00000000000000000000"
  121. data "0F3C0F3C3FFF0F3C3FFF0F3C0F3C0000"
  122. data "03C00FFC3C000FF0003C3FF003C00000"
  123. data "00003C0F3C3C00F003C00F0F3C0F0000"
  124. data "03F00F3C03F00FCF3CFC3C3C0FCF0000"
  125. data "00F000F003C000000000000000000000"
  126. data "00F003C00F000F000F0003C000F00000"
  127. data "0F0003C000F000F000F003C00F000000"
  128. data "00003C3C0FF0FFFF0FF03C3C00000000"
  129. data "000003C003C03FFC03C003C000000000"
  130. data "000000000000000003C000C003000000"
  131. data "0000000000003FFC0000000000000000"
  132. data "0000000000000000000003C003C00000"
  133. data "000F003C00F003C00F003C00F0000000"
  134. data "03F00C3C3C0F3C0F3C0F0F0C03F00000"
  135. data "00F003F000F000F000F000F00FFF0000"
  136. data "0FFC3C0F003F03FC0FF03F003FFF0000"
  137. data "0FFF003C00F003FC000F3C0F0FFC0000"
  138. data "00FC03FC0F3C3C3C3FFF003C003C0000"
  139. data "3FFC3C003FFC000F000F3C0F0FFC0000"
  140. data "03F00F003C003FFC3C0F3C0F0FFC0000"
  141. data "3FFF3C0F003C00F003C003C003C00000"
  142. data "0FF03C0C3F0C0FF030FF300F0FFC0000"
  143. data "0FFC3C0F3C0F0FFF000F003C0FF00000"
  144. data "0000000003C003C0000003C003C00000"
  145. data "000003C003C000000FC003C00F000000"
  146. data "00F003C00F003C000F0003C000F00000"
  147. data "000000003FFC00003FFC000000000000"
  148. data "0F0003C000F0003C00F003C00F000000"
  149. data "3FF0F03C003C03F00F0000000F000000"
  150. data "0FFC3C0F3CFF3CFF3CFF3C000FF00000"
  151. data "03F00F3C3C0F3C0F3FFF3C0F3C0F0000"
  152. data "3FFC3C0F3C0F3FFC3C0F3C0F3FFC0000"
  153. data "03FC0F0F3C003C003C000F0F03FC0000"
  154. data "3FF03C3C3C0F3C0F3C0F3C3C3FF00000"
  155. data "0FFF0F000F000FFC0F000F000FFF0000"
  156. data "3FFF3C003C003FFC3C003C003C000000"
  157. data "03FF0F003C003C3F3C0F0F0F03FF0000"
  158. data "3C0F3C0F3C0F3FFF3C0F3C0F3C0F0000"
  159. data "0FFF00F000F000F000F000F00FFF0000"
  160. data "000F000F000F000F000F3C0F0FFC0000"
  161. data "3C0F3C3C3CF03FC03FF03CFC3C3F0000"
  162. data "0F000F000F000F000F000F000FFF0000"
  163. data "3C0F3F3F3FFF3FFF3CCF3C0F3C0F0000"
  164. data "3C0F3F0F3FCF3FFF3CFF3C3F3C0F0000"
  165. data "0FFC3C0F3C0F3C0F3C0F3C0F0FFC0000"
  166. data "3FFC3C0F3C0F3C0F3FFC3C003C000000"
  167. data "0FFC3C0F3C0F3C0F3CFF3C3C0FF30000"
  168. data "3FFC3C0F3C0F3C3F3FF03CFC3C3F0000"
  169. data "0FF03C3C3C000FFC000F3C0F0FFC0000"
  170. data "0FFF00F000F000F000F000F000F00000"
  171. data "3C0F3C0F3C0F3C0F3C0F3C0F0FFC0000"
  172. data "3C0F3C0F3C0F3F3F0FFC03F000C00000"
  173. data "3C0F3C0F3CCF3FFF3FFF3F3F3C0F0000"
  174. data "3C0F3F3F0FFC03F00FFC3F3F3C0F0000"
  175. data "0F0F0F0F0F0F03FC00F000F000F00000"
  176. data "3FFF003F00FC03F00FC03F003FFF0000"
  177. data "0000000000000FF00FF0000000000000"
  178. data "0000000000003FFF3FFF000000000000"
  179. data "0000000000000000000003C003C00000"
  180. data "03C00FF00FF003C003C0000003C00000"
  181. data "0FF0300CC3F3CC03CC03C3F3300C0FF0"
  182. data "0228A2A8A0A022A80228A2A0A2A082A0"
  183. data "00000000000000000000000000000000"
  184. data "00000000000000000000000000000000"
  185. data "00000000000000000000000000000000"
  186. data "00000000000000000000000000000000"
  187. data "00000000000022000800020000200000"
  188. data "00000000000000000000000000000000"
  189. data "00000000000000000000000000000000"
  190. data "00000000000000000000000000000000"
  191. data "002A002A002A000A000A000A000A002A"
  192. data "2AA6AAAAAA99AA95AAA5AAAAAAA2AAA0"
  193. data "2AA6AA9A6018AAA2AA2AAAA2AAA02A80"
  194. data "0000A02200282022000A022200220222"
  195. data "298229A22AA029A209A229AAAA982A9A"
  196. data "0AA522A9AAA92A992AA92AA92AAA2AAA"
  197. data "AA2AAA2A9AAAAAAAAAAA99AA99AA95AA"
  198. data "2995A995AA59AA99AA99A9A99A55A99A"
  199. data "9AAAA9A95A9AAA992AA9AAAA62AAAAA9"
  200. data "95AAAAAA9A9A9A9A29AAA9A99AAA9AAA"
  201. data "02022020A000A222AA0AAA2AA820AAAA"
  202. data "0955095909550A7F02BF22BF027F027F"
  203. data "959599995A5959BFFFFFFFFFFFFFFFFF"
  204. data "A7E99F597F69FD95FDA7F595F575F955"
  205. data "576A555A555A779A5D557B9975757555"
  206. data "0AA9AAA9AAAAAAAAAAAA9AAA98A89A2A"
  207. data "A9A9A9A99A9AAA9A29A929A91A9AAA9A"
  208. data "A9A9A9A99A9AAA9AA9A9A9A99A9A9999"
  209. data "A989A9A99AA9AA95A9A5A9A99A9A9A99"
  210. data "A9A9A9AA6962A9A2A9A9A9A9A969A5A9"
  211. data "AAAAAAA95AAA9AA999A999A96A9AAAAA"
  212. data "A957A9B7AA55A9BFAA97AA979AA9999B"
  213. data "A999999959995999A5A5D9997D55D999"
  214. data "0220A2A0A2A0A2208A20A2A0A2A0A2A0"
  215. data "00000000000000000000000000000000"
  216. data "00000000000000000000000000000000"
  217. data "00000000000000000000000000000000"
  218. data "00000000000000000000000000000000"
  219. data "02000220202000000A00220020202222"
  220. data "00000000000000000000000000000000"
  221. data "00000000000000000000000000000000"
  222. data "00000000000000000000000000000000"
  223. data "000A000200000002000A000200000002"
  224. data "A9A8AA20AA20AAA0A6A0AAA0AAAAAAAA"
  225. data "0A802AA02AA02AA00AAA2AAA9AA8AAA0"
  226. data "0A0A220200002A222229A2A9029A02AA"
  227. data "2AAAAAAAA29A999A57FD99559AAA9AA0"
  228. data "2AAA2AAA2A9AAAA9AAA9AA99AAA92A99"
  229. data "A79A995A995A95599797995755559557"
  230. data "AA02A2A2A0AAA2AAA22A6AAA5AAA5A2A"
  231. data "2AAA2AAAA159AA992A2AA222A82AA02A"
  232. data "29A9A2AAA2AAAA2A2A2A222AA828AAA2"
  233. data "AA2AAAA29AA0AA22AA08AA22AA09AA27"
  234. data "097F09FF89FFA55927559D95F575F577"
  235. data "FFFFFFF5F5599555555755957555B755"
  236. data "975555BB79557BB757555BB775557BB5"
  237. data "57957B57557955575757B59559595797"
  238. data "AA2A9AAA5AAA99AA55AA59A975AA95A9"
  239. data "A9A9AAA9AA9AAA9AA9A9AA99695AA9AA"
  240. data "A9A9A9A99A999A9A99A9A99999999A99"
  241. data "A99999A99A5A9999A5A999A95A5A9999"
  242. data "9599999A59AA969999A6A99999999A96"
  243. data "A9AAA9AAA99AAA9999A99999595A999A"
  244. data "A9A5A9A99A9A999AA9A9A9A99A999A99"
  245. data "BD6DED9BBBB99DD59DEDABDB997D99B7"
  246. data "A200AAA0A220AA20AA20AA20A020AA20"
  247. data "00000000000000000000000000000000"
  248. data "00000000000000000000000000000000"
  249. data "00000000000000000000000000000000"
  250. data "00000000000000000000000000000000"
  251. data "0A082222202022220A0A22A22820222A"
  252. data "00000000000000000000000000000000"
  253. data "00000000000000000000000000000000"
  254. data "00000000000000000000000000000000"
  255. data "00000000000000000000000000000000"
  256. data "A9AAAAAAAAA8AAA82AA82AAA0AA82AA2"
  257. data "02A802A802A002AA02AA02AA2AA0AAA8"
  258. data "09A92AAA2AAA2AAA0A2A22AA002A0022"
  259. data "AA02AA22A022A22A0A2222A2AA22AAAA"
  260. data "0A2922A9A82A22222A2AA2222222AAAA"
  261. data "955799575955999A29AAA9AA209AA015"
  262. data "D5AA5AA2A0AA202A0AAB22A9A095AA95"
  263. data "AA2AA22AA2AA99AAD7AA59AA75A27FA2"
  264. data "AA2AAAA29AA8AAAA2AAAAAAAAAAA2AAA"
  265. data "8A9F297799759755A757977795759997"
  266. data "575755B555797B77575775555579B5D7"
  267. data "55975B557579B555555757977955BBB7"
  268. data "97975B57557957559597575B7975D579"
  269. data "975755557579795D97575BB575797557"
  270. data "57A9B5997959579955559B595575B575"
  271. data "A9A9A9AA6969A9A9A9A9A9A9596A95A9"
  272. data "A5999999599A5A99A9A5A9A96A5AAA99"
  273. data "A5A9A9999A599999A9A5999959599999"
  274. data "A5A999999959999AA59999995A999999"
  275. data "959999995959999995A5999959599B99"
  276. data "A5A5A9A95A999A99A5A999A9599A9999"
  277. data "A9ED9A9B59599995A595A9955A599995"
  278. data "AA08AA20AA202A20AA802AA02AA0AAA0"
  279. data "00000000000000000000000000000000"
  280. data "00000000000000000000000000000000"
  281. data "00000000000000000000000000000002"
  282. data "00000000000000000002000000202002"
  283. data "0A2A2AAA222A2AA2020A2AAA2AAA2A2A"
  284. data "0000A2002000202202002222A020A222"
  285. data "00002000002002200A0A220220200222"
  286. data "00000000000020000000200020002220"
  287. data "00000000000000000000000000000000"
  288. data "2AA22AAA2AAA2AAA2AAA0AAA2AAA0AA2"
  289. data "2A2AAAAA20AA2AAA2AAAAAAAAAAAAAAA"
  290. data "02A2A99AAA99AA022A0AAA22A822A222"
  291. data "AAAA2AAA6AAAAAAA2A2A2AAAA8AA22AA"
  292. data "2222AAAAA822AAAAAA2AAAAAAAAA2AAA"
  293. data "0A2B2229202A22AA0A2A22AA22A2A2AA"
  294. data "59A9A9A9A29AAAA9A929AAAAAA9AAAAA"
  295. data "5FDA99995AA2AA22A20AA222A020A222"
  296. data "2AAAA2AAAA9A2A9A0AAA22AA202A2222"
  297. data "AA97AA95AA79A9752957A95BA9559B75"
  298. data "57975B557555757B97955B5775557BB5"
  299. data "5D575B9555795757555597BB5555777B"
  300. data "97975B5B7575B5795F9F9B7BD57995DD"
  301. data "955757957979555D979757557979D5D7"
  302. data "57977B577575555755575BB75577B97F"
  303. data "59A959AA75AAF595FF69FF59FF79FF59"
  304. data "A9A5A9A9595A9A99A9A9A9999A599999"
  305. data "A9A59999999A99A9999999995959999A"
  306. data "A5A999A9D99A99AA97A9999A995A995A"
  307. data "65959B9B59599999A5A5A999AA59AA95"
  308. data "A59999A95959999995A5999959599595"
  309. data "95A5A99959599999A59599995999B999"
  310. data "2A00A9A0A2A0A2A0A9A8AAA8AA90AAAA"
  311. data "00000000002000200A02222220A2222A"
  312. data "00080022202020220A0A222228A222AA"
  313. data "02002022002022220A0AA2AA22A22AAA"
  314. data "0202222220A0A22A0A0AA222A2222AAA"
  315. data "2A2A2AAA2AAAAAAA2AAAAAAAAAAAAAAA"
  316. data "220AAA22A228AA222A2AAAAAAAA0AA22"
  317. data "0A222222A0AA222A2A2A2AAAAAA2222A"
  318. data "2A08AA22A2A02AA22A2AAAAAAAAAAAAA"
  319. data "00000000000000000000800080000000"
  320. data "0AAA2AAA2AAA2AAA0AAA0AAA0A9A0AAA"
  321. data "AAAAAAAAA82AA0220002022A22AAAAAA"
  322. data "8A0AA22A202022AA022AAAAAA2A8AAAA"
  323. data "2A2AA2AA22A8A2A22A2AAAAAA8A2A2AA"
  324. data "2AAAAAAAAAAA2AAA8AA922A9A820AAA2"
  325. data "2A2AAA22A0002000A00A99999A5AA2AA"
  326. data "AAAA022A0022022AAA0AB76A995AAAAA"
  327. data "0202222AA0A2A2220A0AA2222802A2A0"
  328. data "2A022222202022220A82A222A8AA2A22"
  329. data "2F5729552A55229D0815202B220A2A0A"
  330. data "9557DB955579779755D55BB775599777"
  331. data "959557575555B7B75757B9D95575B555"
  332. data "57979B955D79B55D57975BB55579B75B"
  333. data "979575575579555DB7B757957579B9D5"
  334. data "577F9B7F557F57FF9FFFD7FF77FF7FF7"
  335. data "FF55F5957555F7B7D795DB57757977DD"
  336. data "A9A999A95A99B99955A5B799797A57B9"
  337. data "A99599A9595A999995A5A9995A599999"
  338. data "A5A599995A99999995A5A99959599999"
  339. data "2AA5AAA95A9A9AAAA5AA99A059A099A0"
  340. data "A9555595595995B9299729990A590299"
  341. data "979599995955599995956B99B9799995"
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement