mirror of
https://github.com/antoinevignau/source.git
synced 2025-02-19 01:30:47 +00:00
v0.1
This commit is contained in:
Antoine Vignau
parent
84362578b1
commit
3abf70a292
@ -17,42 +17,42 @@ OK 10 image de fond
|
||||
OK 11 image de fond avec ic™nes
|
||||
|
||||
SONS
|
||||
1cemonsi
|
||||
1safemme
|
||||
1lechame
|
||||
1smala
|
||||
2coinfli
|
||||
2kararab
|
||||
2karbret
|
||||
2gensnan
|
||||
3BOPARLE
|
||||
3FAITFRA
|
||||
3PASMILI
|
||||
3UNPEUPE
|
||||
4algefra
|
||||
4algesah
|
||||
4sousoff
|
||||
5haine
|
||||
5terrfra
|
||||
5collabo
|
||||
5clepen
|
||||
5antifra
|
||||
5abrutis
|
||||
fx_batte
|
||||
fx_beat
|
||||
fx_boing
|
||||
fx_couic
|
||||
fx_cuivr
|
||||
fx_dehem
|
||||
fx_dzoin
|
||||
fx_flute
|
||||
fx_glin1
|
||||
fx_glin2
|
||||
fx_guita
|
||||
fx_hey
|
||||
fx_siren
|
||||
fx_synth
|
||||
fx_tromp
|
||||
1cemonsi
|
||||
1safemme
|
||||
OK 1lechame
|
||||
1smala
|
||||
2coinfli
|
||||
2kararab
|
||||
2karbret
|
||||
2gensnan
|
||||
3BOPARLE
|
||||
3FAITFRA
|
||||
3PASMILI
|
||||
3UNPEUPE
|
||||
4algefra
|
||||
4algesah
|
||||
4sousoff
|
||||
5haine
|
||||
5terrfra
|
||||
5collabo
|
||||
5clepen
|
||||
OK 5antifra
|
||||
5abrutis
|
||||
fx_batte
|
||||
OK fx_beat
|
||||
OK fx_boing
|
||||
fx_couic
|
||||
OK fx_cuivr
|
||||
OK fx_dehem
|
||||
fx_dzoin
|
||||
fx_flute
|
||||
OK fx_glin1
|
||||
OK fx_glin2
|
||||
fx_guita
|
||||
OK fx_hey
|
||||
fx_siren
|
||||
fx_synth
|
||||
fx_tromp
|
||||
|
||||
LES PECHES CAPITAUX
|
||||
Orgueil
|
||||
|
||||
Binary file not shown.
@ -722,6 +722,7 @@ PROCEDURE presentation
|
||||
carre("… la famille paspire...",100,180,"555")
|
||||
ENDSELECT
|
||||
RETURN
|
||||
'
|
||||
PROCEDURE carre(texte$,x%,y%,couleur$)
|
||||
SETCOLOR 0,0,0,0 !FOND DE L'ECRAN EN NOIR
|
||||
SETCOLOR 15,7,7,5 !TEXTE EN JAUNE
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -19,6 +19,130 @@
|
||||
jsr carre
|
||||
eom
|
||||
|
||||
*-----------------------
|
||||
* GESTION DES ICONES
|
||||
*-----------------------
|
||||
|
||||
test_icone
|
||||
lda #0 ; from 1
|
||||
]lp pha
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
tax
|
||||
lda taskWHERE+2 ; compare le X
|
||||
cmp coordonnees_peches,x
|
||||
bcc icone_ko
|
||||
lda coordonnees_peches+4,x
|
||||
cmp taskWHERE+2
|
||||
bcc icone_ko
|
||||
|
||||
lda taskWHERE ; et le Y
|
||||
cmp coordonnees_peches+2,x
|
||||
bcc icone_ko
|
||||
lda coordonnees_peches+6,x
|
||||
cmp taskWHERE
|
||||
bcc icone_ko
|
||||
|
||||
pla ; on a notre ic™ne
|
||||
inc
|
||||
* sta instruction2
|
||||
rts
|
||||
|
||||
icone_ko
|
||||
pla
|
||||
inc
|
||||
cmp #nombre_objets-1 ; et non plus nombre_icones
|
||||
bcc ]lp
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
efface_icone ; X is object
|
||||
cpx #0
|
||||
beq ei1
|
||||
jsr set_icone
|
||||
|
||||
_HideCursor
|
||||
PushLong #iconParamPtr
|
||||
_PaintPixels
|
||||
_ShowCursor
|
||||
ei1 rts
|
||||
|
||||
*---
|
||||
|
||||
affiche_icone ; X is object
|
||||
cpx #0
|
||||
beq ai1
|
||||
jsr set_icone
|
||||
|
||||
_HideCursor
|
||||
PushLong #fondParamPtr
|
||||
_PaintPixels
|
||||
_ShowCursor
|
||||
ai1 rts
|
||||
|
||||
*---
|
||||
|
||||
set_icone txa
|
||||
dec
|
||||
asl
|
||||
asl
|
||||
asl ; because we are 16-bit
|
||||
tax
|
||||
lda coordonnees_peches+2,x
|
||||
sta iconToSourceRect
|
||||
sta iconToDestPoint
|
||||
lda coordonnees_peches,x
|
||||
sta iconToSourceRect+2
|
||||
sta iconToDestPoint+2
|
||||
lda coordonnees_peches+6,x
|
||||
sta iconToSourceRect+4
|
||||
lda coordonnees_peches+4,x
|
||||
sta iconToSourceRect+6
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
fondParamPtr
|
||||
adrl fondToSourceLocInfo
|
||||
adrl iconToDestLocInfo
|
||||
adrl iconToSourceRect
|
||||
adrl iconToDestPoint
|
||||
dw $0000 ; mode copy
|
||||
ds 4
|
||||
|
||||
iconParamPtr
|
||||
adrl iconToSourceLocInfo
|
||||
adrl iconToDestLocInfo
|
||||
adrl iconToSourceRect
|
||||
adrl iconToDestPoint
|
||||
dw $0000 ; mode copy
|
||||
ds 4
|
||||
|
||||
fondToSourceLocInfo
|
||||
dw mode_320 ; mode 320
|
||||
ds 4 ; ptrFOND - $0000 on entry, high set after _NewHandle
|
||||
dw 160
|
||||
dw 0,0,199,319
|
||||
|
||||
iconToSourceLocInfo
|
||||
dw mode_320 ; mode 320
|
||||
adrl $8000 ; ptrICON - $8000 on entry, high set after _NewHandle
|
||||
dw 160
|
||||
dw 0,0,199,319
|
||||
|
||||
iconToDestLocInfo
|
||||
dw mode_320 ; mode 320
|
||||
adrl ptrE12000
|
||||
dw 160
|
||||
dw 0,0,199,319
|
||||
|
||||
iconToSourceRect
|
||||
dw 3,0,109,272
|
||||
iconToDestPoint
|
||||
dw 3,0
|
||||
|
||||
*-----------------------
|
||||
* set_language
|
||||
*-----------------------
|
||||
|
||||
@ -30,6 +30,24 @@
|
||||
use 4/Util.Macs
|
||||
use 4/Window.Macs
|
||||
|
||||
*-----------------------
|
||||
* macros
|
||||
*-----------------------
|
||||
|
||||
@loadfile mac
|
||||
lda ]1
|
||||
ldx ]2+2
|
||||
ldy ]2
|
||||
jsr loadFILE
|
||||
eom
|
||||
|
||||
@fadein mac
|
||||
lda ]2
|
||||
ldx ]1+2
|
||||
ldy ]1
|
||||
jsr fadeIN
|
||||
eom
|
||||
|
||||
*----------------------------------- Constantes
|
||||
|
||||
*-------------- Softswitches
|
||||
@ -103,6 +121,11 @@ fgRESTART = 2
|
||||
|
||||
tdc
|
||||
sta myDP
|
||||
|
||||
lda #entryPOINT
|
||||
stal $300
|
||||
lda #^entryPOINT
|
||||
stal $302
|
||||
|
||||
*--- Version du systeme
|
||||
|
||||
@ -145,7 +168,7 @@ okMEM1 sty ptrIMAGE
|
||||
stx loadBACK1+3 ; with the toolbox
|
||||
rep #$10
|
||||
|
||||
*--- 64K pour la sauvegarde de l'écran
|
||||
*--- 64K pour les images du jeu
|
||||
|
||||
jsr make64KB
|
||||
bcs koMEM
|
||||
@ -153,7 +176,9 @@ okMEM1 sty ptrIMAGE
|
||||
sty ptrFOND
|
||||
stx ptrFOND+2
|
||||
stx ptrICONES+2
|
||||
|
||||
stx fondToSourceLocInfo+4 ; fond
|
||||
stx iconToSourceLocInfo+4 ; icon
|
||||
|
||||
*--- 64K pour les images compressees
|
||||
|
||||
jsr make64KB
|
||||
@ -162,7 +187,7 @@ okMEM1 sty ptrIMAGE
|
||||
sty ptrUNPACK
|
||||
stx ptrUNPACK+2
|
||||
|
||||
*--- 64K pour les INDEX des textes
|
||||
*--- 64K pour les REFERENCES des textes
|
||||
|
||||
jsr make64KB
|
||||
bcs koMEM
|
||||
@ -209,7 +234,14 @@ okTOOL _HideMenuBar
|
||||
pla
|
||||
|
||||
_InitCursor
|
||||
_HideCursor
|
||||
|
||||
PushLong #0
|
||||
PushWord #5 ; SetDeskPat
|
||||
PushWord #$4000
|
||||
PushWord #$0000
|
||||
_Desktop
|
||||
pla
|
||||
pla
|
||||
|
||||
PushLong #0
|
||||
_GetPort
|
||||
@ -230,8 +262,14 @@ okTOOL _HideMenuBar
|
||||
*-----------------------
|
||||
* MAIN
|
||||
*-----------------------
|
||||
* main
|
||||
|
||||
entryPOINT
|
||||
@loadfile #pFOND;ptrFOND
|
||||
@loadfile #pICONES;ptrICONES
|
||||
@fadein ptrFOND;#TRUE
|
||||
jsr waitEVENT
|
||||
@fadein ptrICONES;#TRUE
|
||||
|
||||
mainLOOP jsr teste_fin
|
||||
jsr demande_objet
|
||||
|
||||
@ -337,51 +375,12 @@ doMOUSEUP
|
||||
* bcc mup2 ; oui
|
||||
* rts
|
||||
*mup2 jsr aiguille ; on aiguille le joueur (1 ou 2 clics)
|
||||
* rts
|
||||
rts
|
||||
|
||||
*-----------------------------------
|
||||
* AUTRES ROUTINES
|
||||
*-----------------------------------
|
||||
|
||||
switch_320 lda #0 ; Switch to 320 mode
|
||||
ldy #screen_320
|
||||
bra switch_res
|
||||
|
||||
switch_640 lda #$80 ; Switch to 640 mode
|
||||
ldy #screen_640
|
||||
|
||||
*-----------
|
||||
|
||||
switch_res sty mainWIDTH
|
||||
pha
|
||||
pha
|
||||
_SetMasterSCB
|
||||
_SetAllSCBs
|
||||
_InitCursor
|
||||
PushLong mainPORT
|
||||
_InitPort
|
||||
_HideCursor
|
||||
|
||||
PushWord #0
|
||||
PushWord mainWIDTH
|
||||
PushWord #0
|
||||
PushWord #200
|
||||
_ClampMouse
|
||||
_HomeMouse
|
||||
* PushLong #monCURSEUR
|
||||
* _SetCursor
|
||||
_ShowCursor
|
||||
_WindNewRes
|
||||
_MenuNewRes
|
||||
_CtlNewRes
|
||||
rts
|
||||
|
||||
*-----------
|
||||
|
||||
mainWIDTH ds 2
|
||||
oldWIDTH ds 2
|
||||
mainPORT ds 4
|
||||
|
||||
*----------------------------------- Open
|
||||
|
||||
doLOAD
|
||||
@ -1041,16 +1040,14 @@ nowWAIT1 pha
|
||||
mainID ds 2 ; app ID
|
||||
myID ds 2 ; user ID
|
||||
myDP ds 2
|
||||
mainPORT ds 4 ; default grafport
|
||||
|
||||
SStopREC ds 4
|
||||
|
||||
ptrIMAGE ds 4 ; $0000: where a scene image is loaded
|
||||
|
||||
ptrFOND ds 4 ; $0000: fond de jeu
|
||||
ptrICONES adrl $8000 ; $0000: fond d'icônes du jeu
|
||||
|
||||
ptrUNPACK ds 4 ; $0000: where the background picture is laoded
|
||||
|
||||
ptrREF ds 4 ; les index des textes
|
||||
ptrTEXTES ds 4 ; les textes
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user