.
je compte meme plus le nombre de fois que j'ai compilé la demo lors des réglages des timers.
Code : Tout sélectionner
#scrw = 1024
#scrh = 768
#scrd = 32
;-------- Initialisation --------
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0 or initsound() = 0 or UseOGGSoundDecoder() = 0 or UsePNGImageDecoder() = 0
MessageRequester("Erreur", "problème à l'initialisation !", #PB_MessageRequester_Ok|#MB_ICONERROR)
End
EndIf
If OpenScreen(#scrw,#scrh,#scrd,"Blood_money") = 0
MessageRequester("Erreur", "impossible d'ouvrir l'écran", #PB_MessageRequester_Ok|#MB_ICONERROR)
End
EndIf
LoadFont(#font,"Cooper Black",10,#PB_Font_HighQuality )
if catchsprite(#Amiga,?amiga,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#ecran,?ecran,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#kickstart,?kickstart,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#Disk,?disk,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#menace,?menace,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#psygnosis,?psygnosis,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#dma,?dma,#PB_Sprite_AlphaBlending)=0
end
endif
if catchsprite(#presentateur,?presentateur,#PB_Sprite_AlphaBlending)=0
End
endif
If CatchSprite(#fond_nebuleuse,?fond,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#vaisseau,?vaisseau,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#vaisseau_atteri,?vaisseau,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#cockpit,?interieur_vaisseau,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#cockpit_anim,?manche_vaisseau)=0
End
EndIf
If CatchSprite(#dollar,?dollar,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite (#titre, ?blood_money_titre,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#asteroid,?asteroid)=0
End
EndIf
If CatchSprite(#asteroid_part2,?asteroid)=0
End
EndIf
If CatchSprite (#terre, ?terre)=0
End
EndIf
If CatchSprite (#lune, ?lune)=0
End
EndIf
If CatchSprite(#effet_tv,?tv,#PB_Sprite_AlphaBlending)=0
End
EndIf
If catchsprite(#laser,?laser_image,#PB_Sprite_PixelCollision)=0
End
endif
If catchsprite(#ship,?ship)=0
End
endif
If catchsprite(#planete,?planete1)=0
End
endif
If catchsprite(#planete2,?planete2)=0
End
endif
If catchsprite(#planete3,?planete3)=0
End
endif
If CatchSprite(#ball,?ball,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#boss,?ball2,#PB_Sprite_PixelCollision)=0
End
EndIf
If CatchSprite(#mouse,?curseur,#PB_Sprite_AlphaBlending)=0
End
EndIf
if catchsprite(#ars,?ars,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#cooldji,?cooldji,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#djes,?djes,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#dobro,?dobro,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#falsam,?falsam,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#grom,?grom,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#huitbit,?huitbit,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#majikeyric,?majikeyric,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#raven,?raven,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#greetings,?greet,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#explosion,?explo,#PB_Sprite_AlphaBlending)=0
End
endif
;----------- Music ---------------------
if Catchsound(#intro,?intro,?introfin-?intro)=0
End
endif
if Catchsound(#lecteur,?lecteur,?lecteurfin-?lecteur)=0
end
endif
if Catchsound(#presente,?presente,?presentefin-?presente)=0
End
endif
longueur_du_son=?music_fin-?music
If CatchSound( #music,?music,longueur_du_son) = 0
End
EndIf
longueur_du_son2=?music_fin2-?music2
If CatchSound(#music_ingame,?music2,longueur_du_son2) = 0
End
EndIf
if Catchsound(#son_laser,?son_laser,?son_laserfin-?son_laser)=0
End
endif
if Catchsound(#son_laser2,?son_laser2,?son_laserfin2-?son_laser2)=0
End
endif
if Catchsound(#son_explosion,?son_explosion,?son_explosionfin-?son_explosion)=0
End
endif
Bien joué !
,j'ai commencé à attaqué la demo après le punch,étudié du code,rip de gfx avec winuae pour le vaisseau et le blood copter.
.