Blitz and windows

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|581\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Blitz and windows
Fri, 01 Jul 2011, 15:28
dna	Has B2D been officially tested on windows 7? How about B3D? -=-=- DNA
Fri, 01 Jul 2011, 15:49
Jayenkai	I'm trying to remember if I've actually played any of my older Blitz3D games in Win7. Can't remember which are which anymore!! I'm pretty sure I have, though. JNKPlat3D09's a B3D game, so.. yeah, should be fine. -=-=- ''Load, Next List!''
Fri, 01 Jul 2011, 16:04
j\\'ordos	blitz3d works fine here on win7 64bit
Sat, 02 Jul 2011, 03:06
spinal	Blitz 2D (IDE 1.68 - Linker V1.23 - Runtime V1.68) working on my 64bit win7 laptop And here is an old C64 snow routine ; Snow test Graphics 512,382,0,2 Graphics 256,192,0,3 Dim binary(256,8) Dim frames(60) Dim flkimage(104) Dim flakesx(300) Dim flakesy(300) Dim flakesf(300) Dim flakest(300) Dim flakess(300) SeedRnd MilliSecs() For loops = 0 To 299 flakess(loops) = Rand(1,4) flakest(loops) = Rand(0,5) flakesx(loops) = Rand(0,31)8 flakesy(loops) = Rand(0,190) Next For t = 0 To 59 Read frames(t) Next For t = 0 To 103 Read flkimage(t) Next ; set up the binary lookup (there has to be a better way than this!) t=0 For t1=0 To 1 For t2=0 To 1 For t3=0 To 1 For t4=0 To 1 For t5=0 To 1 For t6=0 To 1 For t7=0 To 1 For t8=0 To 1 binary(t,0)=t1 binary(t,1)=t2 binary(t,2)=t3 binary(t,3)=t4 binary(t,4)=t5 binary(t,5)=t6 binary(t,6)=t7 binary(t,7)=t8 t=t+1 Next Next Next Next Next Next Next Next SetBuffer BackBuffer() ClsColor 128,128,128 While Not KeyHit(1) Cls For loops = 0 To 299 flakesy(loops) = flakesy(loops) + flakess(flakest(loops)) If flakesy(loops) > 192 Then flakesy(loops) = 0 flakesf(loops) = flakesf(loops) + 1 If flakesf(loops) = 8 Then flakesf(loops) = 0 drawFlake(flakesx(loops), flakesy(loops), flakest(loops), flakesf(loops)) Next Flip Wend End Function drawFlake(x1,y1,flaketype, frame) For y = 0 To 3 For x = 0 To 7 Color 255,255,255 If binary(flkimage(y+frames(frame+(flaketype8))),x) = 0 Then Color 128,128,128 Plot x+x1,y+y1 Next Next End Function ;frames Data 4,8,12,16,12,8,4,0 Data 24,20,24,28,32,36,32,28 Data 56,52,48,44,40,44,48,52 Data 44,48,52,56,52,48,44,40 Data 64,68,72,76,80,76,72,68 Data 64,60,76,80,76,72,68,64 Data 60,64,68,72,96,100,96,92 Data 88,84,88,92 ;flkimage Data 192,224,96,0,0,96,112,48 Data 0,0,60,24,0,6,14,12 Data 3,7,6,0,128,192,64,0 Data 0,64,96,32,0,0,24,24 Data 0,2,6,4,1,3,2,0 Data 192,128,0,0,0,192,64,0 Data 0,0,48,0,0,12,8,0 Data 12,4,0,0,128,128,0,0 Data 0,128,64,0,0,0,96,0 Data 0,0,48,0,0,16,32,0 Data 16,16,0,0,128,0,0,0 Data 0,128,0,0,0,0,64,0 Data 0,32,0,0,32,0,0,0 --v -=-=- Check out my excellent homepage!