PureBasic Forums - English

Code: Select all

; Enable or disable the 3D-Engine
#With3DEngine = #True ; #False ; 

Enumeration
	#Window
	#Sprite
	#Gradient
EndEnumeration

CompilerIf #With3DEngine
InitEngine3D()
CompilerEndIf
InitSprite()

UsePNGImageDecoder()

OpenWindow(#Window, 0, 0, 800, 600, "ScreenTitle", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(#Window), 0, 0, WindowWidth(#Window), WindowHeight(#Window), 0, 0, 0)
SpriteQuality(#PB_Sprite_BilinearFiltering)

CatchSprite(#Sprite, ?Shield, #PB_Sprite_AlphaBlending)

CompilerIf #With3DEngine
CreateCamera(#PB_Any, 0, 0, 100, 100)
CompilerEndIf

Repeat
	
	Repeat
		
		Select WindowEvent()
			Case #PB_Event_CloseWindow
				End
			Case #Null
				Break
		EndSelect
		
	ForEver
	
	ClearScreen(0)
	
	CompilerIf #With3DEngine
	RenderWorld()
	CompilerEndIf
	
	SpriteBlendingMode(#PB_Sprite_BlendSourceAlpha, #PB_Sprite_BlendInvertSourceAlpha)
	DisplayTransparentSprite(#Sprite, 300, 300, 128, $8080FF) ; Intensity and Color are ignored
	DisplayTransparentSprite(#Sprite, 320, 300, 128, $80FF80)
	DisplayTransparentSprite(#Sprite, 340, 300, 128, $FF8080)
	DisplayTransparentSprite(#Sprite, 360, 300, 128)
	
	FlipBuffers()
	
ForEver


DataSection
	Shield:
	Data.q $0A1A0A0D474E5089,$524448490D000000,$4000000040000000,$7169AA0000000608,$49427304000000DE
	Data.q $64087C0808080854,$5948700900000088,$1B0000AF1B000073,$00001C911A5E01AF,$6F53745845741900
	Data.q $7700657261777466,$63736B6E692E7777,$9B67726F2E657061,$49930B00001A3CEE,$7F5BED9C78544144
	Data.q $699BEEFE1655546C,$1A68614CA533A667,$5812A4C61A585206,$89631A8C6E9B2256,$62E31A2409B12EA0
	Data.q $103A6C6E246D618C,$208974368B593188,$EC62A85854826C21,$95108B151AC5362E,$33B74AE0D80954B2
	Data.q $A674B4CDB20549FD,$3BDAF7D1FECE6F33,$0FF4B4CCDF4DF7B7,$F7DEE6F37BC9C93D,$BCF73DEF73DDF7CE
	Data.q $6CCA2C97E11118FB,$6DB3012BF2DB301B,$5DEB009E2FCB6CC0,$D28E8CFEB0CB0678,$EAEB5498099012A9
	Data.q $12CCD269A679D3C0,$A9B96261ACC23320,$99CBE182CDC089EA,$3A79E29600866BAE,$3145CE8D634481F5
	Data.q $8A6C092931278FFA,$CA8DCE1330664840,$8F1601959519EAC9,$410CF5656546FFE2,$51009150D100F326
	Data.q $46F0CB15D51A3921,$E589CB1600CC208A,$5100190088C13D0D,$A27119320468E115,$A385C79D534032B1
	Data.q $92031AA612526911,$187BA32888D51681,$994E71A649022011,$9008C8A96F788640,$902D1DC2DA08B3B9
	Data.q $4F83C511973B2113,$71A6AAAEB9E2AAD6,$49FD689848EE08EE,$DE0F23F403C6605E,$F83279BF72B5D5A2
	Data.q $83C2F1AFD18F32F2,$4D31A0AAE72495E6,$154C133A4AC9D179,$9002CF03AFAD8B0A,$F9D3A70FFB9B9B95
	Data.q $A390072E773B9DCF,$73005CD38B8013A9,$B0A7BBABABABCD04,$BAFEE161617F70B0,$E5CA49E4007BBABA
	Data.q $73B9D9CFEA72F70A,$2F2F3A71C38772E7,$D11068983DBAEFEF,$BFB141A64A018D1B,$A296401B34E56AEA
	Data.q $0962C5AB2221FF28,$C763B1C769B4DA6D,$8B1576215EC98DFE,$6DBB5B5B595FEFDF,$D9D9D90009D47474
	Data.q $EAEADECAF2BCAFC3,$0AB9E2CEE890EFEA,$FF7EAF4FD3F4F620,$1972C58B1AFFF7FD,$0A200C5E3C78B163
	Data.q $4F64C310DE131460,$79778021985B349A,$7AD5AB6C801B699D,$C58C60003CD55541,$9CCE67C381E0781F
	Data.q $A7A9E587BB8C17F9,$91FD1F47D1F75A9E,$318C0C7B1EC79488,$B8DF163182363634,$1A787E1F87C36371
	Data.q $F07C1FCDDC7C5D93,$4444FE5A5A5A27C1,$2C58C1962C58000A,$6A8888D11F0346B6,$891125D3E51279E5
	Data.q $65112B22214888CA,$26E4445C88839113,$44C544445A2202A2,$1B4003EB66CDAF74,$9F200118C6246E37
	Data.q $112543434375F7CF,$899FD1122F444F3D,$AB55EAE6E6E6E5E8,$5954631880077D56,$8181A0DC6E374959
	Data.q $AD57F5E3FDFBF201,$11357373735DF55A,$6F9E88917DD5ACBD,$EB5F7CF9F4A86868,$66C80042D96CB7F5
	Data.q $8B4D9ABDD111F5B3,$830D0ECD9ADD1B34,$1807A2BC44C4C355,$6BB00367CB7A7A0D,$0F0F0E4EB972E39A
	Data.q $DFDFD00F83E0F92F,$0061E1E18FDFBF0F,$5A2D1707178BC5A0,$5DDDDDD28A28A034,$5CB82225E9D9D9D0
	Data.q $D1F478DBF6FDBC2E,$145028A28318C147,$2B75BAD8CDCDCD05,$2A2A28631810A142,$78F1E237BD7AF6EA
	Data.q $5C1830416BABABBC,$BDEF073399CD800C,$E572B08A8A8A1EF7,$0D0D0EFFCE9D384A,$28E9AC2003B80395
	Data.q $E8605EF007BA09E7,$10E5111B00F04C01,$444BC88879111E51,$76EFDD11056888CB,$A61F0F8740007FBB
	Data.q $F2A46C6C6A36B6B6,$6CE693EDDBB272F2,$2FA66F379B41C387,$18293B3B3A92FCBF,$F4F4F5175757520C
	Data.q $53F7F7F52F6F6F50,$E4B3ECFB3D2B6B6B,$42D96CB7F5A43870,$ECE8448914EDEDED,$0FF76EDC8004B3D9
	Data.q $46CD32D366BF7444,$03D0C1868E73668F,$B3659CFEF50489D2,$588434343000C2D9,$BEDF6C42C2C2862C
	Data.q $EFFBFEF81515151D,$2592C318C1060C11,$3B9DCC6AF57AB04B,$3C788AAAA8318C17,$103190DCC651450E
	Data.q $7CDF37885C2E1611,$2B6B6B40EC763B13,$65B2C318C03A3A3A,$E7E7E45AED76B0CB,$C1C18AAAA8145143
	Data.q $9767164366800041,$4DE7D4122A69B451,$76E02C4277FD0491,$BBBBA3F7F7F76FBB,$C78F108882AAAA1B
	Data.q $EE3A5A5A513A74E1,$FAB071D55551FAE2,$0FC3C2E5CB844651,$1EE124791E478C3F,$B700001D1D1D713C
	Data.q $6CC99014981B7DDB,$9848B8B4602D694F,$3B7B7B6F6F5EBC1D,$4C064809C63A3A3A,$00EDEDEDF2DD2D76
	Data.q $4C00C48BDBD7AF00,$C8273B49E11BEF36,$81000BD7CF9F3000,$418B1622AAAA0040,$F2D52D7B3504D555
	Data.q $4C366800035DAED7,$642404AA4918F019,$9D0003DB5DAED65D,$1F8884C881699D9D,$0CC0D9A00011FC7F
	Data.q $D70C8464CC529C6C,$451450186C361BE0,$C10A1425A6F379BD,$8D76A9D6E5A674E9,$5142F6F6F441C1C1
	Data.q $A4C0030D86C37514,$F2A649329928C720,$2D15CB976F6BA480,$BA5D2E1112082828,$E7F388F59B5BB194
	Data.q $74105050508883CF,$4849666D99515CB9,$C6865F85D6518046,$5B5A00197158AC57,$2F8F754F7FADA75B
	Data.q $5F9B3DA00002F8BE,$223049490972CB06,$E3F8FA8015780CC0,$A7178BC5C001B78F,$0B4B4B47BA33A07D
	Data.q $99485EBF367B4000,$57D218B8A8A4A304,$734B2D8C0E003680,$9B9B9F9AAAA9E401,$81C0F7246464707B
	Data.q $1F3F7309BD7AF003,$2D7467FD92D78AEE,$870E0CACACA00810,$2C58B45E850A1423,$06180108020C01B7
	Data.q $1432BE9145B18230,$D6A317803CA64317,$9F51962C5988018F,$373B9DCE001577CF,$535343162C5F53A3
	Data.q $58B55DF3E7C00013,$4A920BC8D7F2FC2C,$180289819F20833A,$4F8002BF27C9F27D,$3633A3A3A304F93E
	Data.q $03D7D7D4112245F5,$849E1E8BEA67B400,$0334262527041B19,$78F1E6D5DAED7746,$CFE7F38DBEDF6F7A
	Data.q $629FA7E9F00C58CF,$D777A78F1E006060,$01E891F3FA6D5DAE,$48896403C6609129,$FAFD644C2CF5F5BD
	Data.q $2334D4D4D000CDF5,$38FC7E38AAAA9F53,$04F9CFDE967B4000,$709004B3201994C8,$C2002383FA02EB2E
	Data.q $E863870E2D353535,$A797CBE5C27E9FA7,$E5716FDBF6FBEA7D,$9A9AA18E1C3815CA,$A01965FBAD8C169A
	Data.q $64AC4022980FDEA9,$6F3799182EEA0834,$8E0009ACACACA85E,$536D32244882391C,$007B3D9EC61C385F
	Data.q $CDE6F34D65656500,$7BC02EC403C2610B,$0162C80433702180,$3132D0820F8C0BBE,$F4F1E3D8FD1E8F47
	Data.q $D353A9D4E1F5F5F6,$60C10C763B1C0316,$A3D1E8F7A78F1E10,$66824C47E672631F,$80F795D0C8C9081C
	Data.q $1CE9D388C00031F1,$6363500187FDFBF2,$02FA9E327A7A7A23,$1FF7EFC9F7DE8081,$C5EB9C48439D3A76
	Data.q $B7D98BAFBEA9A804,$C1CA303D423946C3,$54D66B35BC803BC4,$85C2E161FEB6B6B4,$5A4E4E4E42AAAAA8
	Data.q $BEAFABC61C3850C1,$EFBBEEFB8020408A,$D044C3EC2E170BAB,$51864EA03CB18433,$A1836403C0C8100E
	Data.q $5F53B98CD61038D1,$7AFBF3F9FCEEFF5F,$A34441E0F0707A7A,$EA8A3468FC4794D1,$3F9FCC0102046AEA
	Data.q $700E5DFEBEBEAFBF,$9667E0D4DFFDC618,$34D1106CD1BC1100,$D56F4BA5D2CEE00C,$ABE1F6EDD8D5D5D5
	Data.q $4F291389C4E2AF57,$1B5B5B421D0E877D,$CD5D5D5D70FB76EC,$ABF322616F4BA5D2,$580BAA6FE8D92F3F
	Data.q $0964E53335ED7B5E,$1E2E2E2D04BFF146,$F99CCE67DDAD5AB1,$B1870E12A767677D,$C76EB53631F2F97C
	Data.q $F8E38F1E3CFD3F77,$28A2826A6A68E3F1,$73DCFB5EBFAFEBEA,$80F45F38B180FDCF,$02152120980F6E64
	Data.q $2800304936C9AE8C,$BFFFDFDFD9BD2D2D,$EBF5FAF6FD2E974B,$1292928CFF3FCFCA,$E5BD47EB4012C630
	Data.q $BEA28A2833ECFB3F,$FDDEEF76870BC2F0,$01F9E7DF3BFA2615,$8012021D27E0A530,$FAFD65C6E50AC0C9
	Data.q $6F9BEBB468D1DDF5,$10359757575DF9BE,$658B1604A4A4A008,$EF04646461110CBC,$AC88BC5E2E0EF3BC
	Data.q $6ADFD5555548ACAC,$FADEBC0C62CF6B6B,$36371FDF7697F4E2,$FBDFE716B2D2CD85,$766263B066626365
	Data.q $92BEDF6FB39001C8,$9B9C3870AACACACA,$C506799E678F9F9F,$03A3A3A18C60C5C5,$60B75BADC11C8E47
	Data.q $EED6F5BD6F43DBB7,$DE7568982B8A8A8A,$DFF8C48A3FBEF5F5,$641232012E9FDCF4,$03844F01BCF5CDAF
	Data.q $BD2F4593C9E4FD80,$C37E0606065FD2F4,$18C6043D0F43C318,$2C16111073FCFF3E,$CA7BFDFEFF7D7058
	Data.q $C0F0AB31313BCBCB,$55BE6BF96CBF7365,$27BC06C62F2ED8D3,$6C006C2245CFAFF0,$6EB75BAFB1DCEE77
	Data.q $71E3C536E773B9F3,$969696A28A28000B,$4E4E44FA7D3E9FD6,$F3FF5B2E04560F0E,$4601074FC094C079
	Data.q $AC0059A8837BC09E,$F77BBDF2C6F1BC6F,$D81DB6DB6D80056E,$A297462435FB7DBE,$3052BD8529FDD6CA
	Data.q $977C091531307E69,$7C48ADBFE815F7E0,$57E0C6BF22B7A585,$D2078319FDF7B279,$DC4DBEFC984D2CDF
	Data.q $2F7126831397A599,$2790A938CF8E5891,$F16ED9903C05A63B,$804C168F57E048A9,$A09B6565894B3711
	Data.q $BE640F0632A71B64,$0659D0A30488DE5D,$8CF019340897BF9E,$082C80BDFBD303C1,$ECBE413ED74D41D1
	Data.q $925EF4A083BA48B4,$322F92CACBE53263,$88C5F1332C66CB15,$405DE40275D209E8,$07A74CBB4F9D1A3F
	Data.q $926AD1B7E0D3DF8C,$99632654646EA317,$4C9AF26DEFC60209,$D1F933A188CD4664,$A832179BDA706E94
	Data.q $00466357C6EE5A63,$0083772ABB80C68C,$3FE2FCA2C0159923,$B66036D98095FC9C,$D4BEABD2726CFFE5
	Data.q $454900000000C4BC,$0000826042AE444E
EndDataSection