[DOF TERMINÉ] Conquest 200 (Playmatic 1976)

Messages : 190 Département : essonnes

Salut

J'ai un soucis pour doffer les chimes ,avez vous une idée car il n'y a pas de lignes qui différentient réellement les sons à part "1000" et "10000"? scratch

Code:: [size=14]Sub AddScore(Points)
If Tilted Then Exit Sub
Select Case Points
Case 10, 100, 1000, 10000
Score(CurrentPlayer) = Score(CurrentPlayer) + points
UpdateScore points
' sounds
If Points = 100 AND(Score(CurrentPlayer)MOD 10000) \ 1000 = 0 Then 'new reel 10000
PlaySound "10000"
ElseIf Points = 10 AND(Score(CurrentPlayer)MOD 1000) \ 100 = 0 Then 'new reel 1000
PlaySound "1000"
Else
PlaySound Points
End If
Case 20, 30, 40, 50
Add10 = Add10 + Points \ 10
AddScore10Timer.Enabled = TRUE
Case 200, 300, 400, 500
Add100 = Add100 + Points \ 100
AddScore100Timer.Enabled = TRUE
Case 2000, 3000, 4000, 5000
Add1000 = Add1000 + Points \ 1000
AddScore1000Timer.Enabled = TRUE
Case 20000, 30000, 40000, 50000
Add10000 = Add10000 + Points \ 10000
AddScore10000Timer.Enabled = TRUE
End Select[/size]

Messages : 1706 Département : 63

Ben oui !
JP appelle des sons qui s'appellent 1000 et 10000 : va écouter dans le sound manager pour savoir à quoi ça correspond.

Souvent le plus petit score a le son le plus aigu.
Exemple de code que cela pourrait donner :

Code:: Sub AddScore(Points)
   If Tilted Then Exit Sub
   Select Case Points
   Case 10, 100, 1000, 10000
   Score(CurrentPlayer) = Score(CurrentPlayer) + points
   UpdateScore points
   ' sounds
   If Points = 100 AND(Score(CurrentPlayer)MOD 10000) \ 1000 = 0 Then 'new reel 10000
   PlaySound SoundFXDOF ("10000",301,DOFPulse,DOFChimes)
   ElseIf Points = 10 AND(Score(CurrentPlayer)MOD 1000) \ 100 = 0 Then 'new reel 1000
   PlaySound SoundFXDOF ("1000",302,DOFPulse,DOFChimes)

Messages : 190 Département : essonnes

Sauf que cette ligne me sort tout les sons

Code:: PlaySound Points

Bon finalement j'ai tenter la simplicité et ça marche par contre je ne comprends pas comment marche la ligne du dessus scratch

du coup voici le code avec en commentaire les anciennes

Code:: If Points = 100 AND(Score(CurrentPlayer)MOD 10000) \ 1000 = 0 Then 'new reel 10000
'PlaySound "10000"
PlaySound SoundFXDOF ("10000",140,DOFPulse,DOFChimes)
ElseIf Points = 10 AND(Score(CurrentPlayer)MOD 1000) \ 100 = 0 Then 'new reel 1000
'PlaySound "1000"
PlaySound SoundFXDOF ("1000",141,DOFPulse,DOFChimes)
Else
'PlaySound Points
PlaySound SoundFXDOF ("100",142,DOFPulse,DOFChimes)

Messages : 1706 Département : 63

"Point" ce n'était pas une collection ?
Ça peut aussi tout simplement être une petite erreur de JP, j'en ai corrigé plusieurs sur ses tables.
Quand tu lui rendra la copie, précise lui ce que tu as fait, il vérifiera si c'était une boulette ou pas.
Ça y ressemble fortement en tout cas.

Messages : 190 Département : essonnes

Voici la table Doffer pour les test
J'ai modifié les sons des chimes qui n'était pas terrible.
https://drive.google.com/drive/folders/12xsoRjk6bfoZuKEF28Cvnl429EPX-mj0?usp=sharing

Modérateur Messages : 3125 Département : 30

Lorsque qu'on passe sur les 2 lignes de chaque côté des slingshots, les leds s'allument très occasionnellement. Peut-être lié à une condition particulière dans le script, je n'ai pas regardé scratch

[DOF TERMINÉ] Conquest 200 (Playmatic 1976) 1982470514

Les passages sur les rollovers dans les 2 lignes 'Add Bonus' à gauche et à droite sont inversés. Quand on passe à gauche, la led de droite s'allume et inversement.

WIP : 32'' 4K / 24''

Messages : 190 Département : essonnes

Salut
J'ai modifié le fichier VPX de la table par contre pour les rollovers de chaque côtés des slingshots je ne vois pas scratch

Edit :J'ai fait un essais en rajoutant un effet de knocker ,il claque à chaque passage donc il n'y a pas de soucis au niveau du script

Code:: ' outlanes

Sub Trigger001_Hit
   PlaySoundAt "fx_sensor", Trigger001
   If Tilted Then Exit Sub
   DOF 211, DOFPulse
   AddScore 5000 + 45000 * Light001.State
End Sub

Sub Trigger004_Hit
   PlaySoundAt "fx_sensor", Trigger004
   If Tilted Then Exit Sub
   DOF 214, DOFPulse
   AddScore 5000
   'check?
   If light002.State Then BonusMultiplier = 3:UpdateMultiplierLights
End Sub

' inlanes

Sub Trigger002_Hit
   PlaySoundAt "fx_sensor", Trigger002
   If Tilted Then Exit Sub
   DOF 212, DOFPulse
   AddScore 5000
   AddBonus 1
End Sub

Sub Trigger003_Hit
   PlaySoundAt "fx_sensor", Trigger003
   If Tilted Then Exit Sub
   DOF 213, DOFPulse
   AddScore 5000
   AddBonus 1
End Sub

Messages : 1706 Département : 63

foxyt a écrit:: J'ai modifié les sons des chimes qui n'était pas terrible.

euh alors là je me permet une remarque, c'est pas terrible comme idée !
JP utilise des "chimes" différents pour chaque marque.
Chaque marque avait ses sons propres, et donc sur chaque marque JP essaie de se rapprocher au maximum de ce que sortait la table.
Quand tu vois le temps passé en recherche et en discussion avec les proprios des vraies tables, je trouve ça un peu étrange comme décision.
Donc là tu fais carrément un MOD de la table...
Tu l'as envoyé à JP, tu lui as dit et il est ok ?

Messages : 190 Département : essonnes

Non , je ne l'ai pas envoyé à JPSalas ,je demande votre avis pour ça.donc je vais remettre le son d'origine .

Modérateur Messages : 3125 Département : 30

OK, c'est bon pour l'inversion mais c'est toujours occasionnel. A voir aussi si c'est mieux avec le Fade lorsque tu l'auras mis.

WIP : 32'' 4K / 24''

Messages : 1706 Département : 63

Et un DOF de plus terminé et publié sur une V4 de JPSalas, grâce à Foxyt !
[DOF TERMINÉ] Conquest 200 (Playmatic 1976) 3253257302

Message aux admin : merci de passer le sujet en "DOF terminé", ce serait bien cool !

» [DOF TERMINÉ] New World (Playmatic 1976)
» [DOF TERMINÉ] Speakeasy (Playmatic 1977)
» [DOF TERMINÉ] Torpedo (Petaco 1976)
» [DOF TERMINÉ] Underwater (Recel 1976)
» [DOF TERMINÉ] New York (Gottlieb 1976)