# 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
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"
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"