[DOF TERMINÉ] 4 roses (Williams 1962 )

Hello 
La table est presque finie j'ai remarqué 2 soucis:
   -si l'on perd la dernière ball avec un flipper encore activé , son contacteur et son sound "buzz" reste actif .
   -les crédits de la table ne restent pas en mémoire dans la table.
Sinon pour moi le reste semble OK , j'ai juste isolé en plus un son à la ligne 256 car celui ci restait en permanence actif pendant le jeu (c'est horrible) 
    
  sub Motor_Timer
    'If GameStart=1 then playsound "motor"

       End Sub
Voici le lien pour les nouveaux fichiers de la table:https://drive.google.com/drive/folders/1n1jy8jo7H9rncsnvSQk6CRFi7YvFu9R_?usp=sharing 

Help 

Tu ne peux pas partager ton vbs ?

Je ne sais pas d'ailleurs si tu travailles comme ça, mais c'est beaucoup plus facile.
Au cas où je rapelle ce que nous avais montré Arngrim, tu gardes le fichier vpx, dans le même dossier tu as un fichier .vbs (ton script) du nom de la table, et quand tu lances VPX il utilise le vbs.
ça permet de faire les modifications de script sans toucher au fichier de la table.
(bien entendu une fois terminé il faut fusionner les 2, et impossible de ne pas passer par le .vpx quand on ajoute des trigger par exemple).

Quand on ne modifie que le script, on peut donner tout simplement le fichier vbs à l'auteur de la table, beaucoup plus facile pour les mises à jour !

Désolé si tu fais déjà comme ça, l'info pourra servir à d'autres !

Je ne trouve pas le fichier VBS de cette table ,peux tu me guider car rien vu dans "c>visual pinball>script"

Ah j'ai bien fait de te poser la question !

Pour bosser "plus proprement", c'est à toi de créer ce fichier .vbs (et pas dans le dossier script)
Tu ouvre la table avec vpx, tu copie le script intégralement et tu colle tout ça dans un fichier (par exemple avec le bloc note).
Le fichier doit s'apeller nom_exact_de_la_table.vbs

Ce fichier tu l'enregistre dans le dossier "tables" de vpx, avec le reste (le fichier table et le fichier b2s, ç fait donc 3 fichiers avec le même nom).
Comme ça, tu bosses facilement sur le vbs sans avoir à ouvrir vpx.

Quand tu lances vpx et ta table, il va utiliser ce fichier en priorité.
Si tu veux vérifier si ça fonctionne, tu ouvre le script (dans VPX)  et en haut de la fenêtre tu as un message qui t'indique où il choppe la source.


edit :
attention si tu enregistres la table sur VPX, il va te proposer d'enregistrer le script contenu dans ton VBS sur le script du fichier VPX !
Moi je n'enregistre le tout que quand mon script est terminé !

edit 2 : gros avantage, tu peux bosser sur ton fichier vbs avec un éditeur un peu plus souple que le bloc note ou l'éditeur de VPX.
Arngrim m'a conseillé ça et ça fonctionne super bien : https://code.visualstudio.com/

J'ai mis le fichier VBS dans mon lien Google
Edit: Pour le logiciel , c'est une tuerie 

Bonjour, il y a Notepad++ ou Atom qui sont vraiment bien aussi pour l'édition, mais bon, chacun ses préférences.
J'espère un jour avoir le temps de m'y coller aussi histoire de vous aider un peu dans cette montagne de taf, mais c'est pas gagné

Hello !
Donc avec le script j'ai regardé très rapidement le DOF.

Attention il n'y a pas de DOFOff sur les contacteurs de flipper quand la table tilt (ou alors je n'ai pas trouvé).
ça veut dire que si tu tilte avec un flipper en position haute, le contacteur reste enclenché... Pas bon !

Arngrim colle simplement un
DOF 101, DOFOff
DOF 102, DOFOff

Je ne sais pas où le placer par contre. Arngrim va nous aiguiller au mieux.

On pourrais peut-être tout simplement ajouter une routine. Il y a la dim "tilt" qui est utilisé.
Du genre :

Code:

Sub DOFTilt
  if tilt > 0 Then
  DOF 101, DOFOff
  DOF 102, DOFOff
End sub

Attention j'écris probablement une grosse connerie, je réfléchis "à écriture haute".  

C'est là où je coince ,je ne sais pas où le mettre ainsi que la ligne qui va bien pour garder en mémoire les crédits lorsque l'on ferme la table mais ça c'est moins gênant

Ah pardon je n'avais pas relu les infos de départ !
Donc faudrait réussir à caser tout ça....

 DOF 101, DOFOff
 DOF 102, DOFOff
 stopsound "buzzl"
 stopsound "buzz"

Au pire ça peut se mettre dans le
Sub Drain_Hit()
mais faut attendre que le bille retombe complètement, ça peut être long si ça tilte quand elle est en haut...

Ou dans la subroutine
Sub TiltTimer_Timer ? Non ?

EDIT :
Pour le flipper figé, en fin de partie je pense qu'il y a un bug :
Lignes 220 et suivantes

Code:

Sub Table1_KeyUp(ByVal keycode)
   If keycode = PlungerKey Then
      Plunger.Fire
      PlaySound "Plunger"
   End If
   If keycode = LeftFlipperKey Then
      If Tilt=0 then
         If GameInProgress=1 then
            LeftFlipper.RotateToStart
            PlaySound SoundFXDOF("FlipperDown",101,DOFOff,DOFContactors)
            stopsound"buzzl"

On teste GameInProgress pour abaisser le flipper (gauche ou droit) quand FlipperKeyUp est appelé (bouton relaché).
Mais en fin de partie , dans DrainHIt

Code:

Sub Drain_Hit()
   ...
        ...
   BallstoPlay=BallstoPlay-1
   If BallstoPlay=0 then
      EndofGame()

On appelle EndOfGame() qui set GameInProgress à 0

Code:

Sub EndofGame()
   Dim numer0
   credittext.text=credits
   If B2SOn then Controller.B2SSetMatch Credits+1
   GameinProgress=0
        ...

A partir de là, le buttonUp devient inopérant sur le flipper.
C'est quand même chelou car il y a les lignes pour ramener les flippers après le EndOfGame()
Il faudrait peut être inverser dans DrainHit

Code:

Sub Drain_Hit()
   
   BallstoPlay=BallstoPlay-1
   If BallstoPlay=0 then
      `EndofGame()
      GameOver.SetValue 1
      LeftFlipper.RotateToStart
      RightFlipper.RotateToStart
      motor.enabled=False
                EndOfGame()

Ou alors (solution 2) il faudrait ramener le flipper en position basse / couper son buzz dans EndofGame.
La ou ça se complique c'est qu'il faut un check de la position avant de couper histoire d'éviter un double bruit.
La solution simple, pas forcément la meilleure, serait de tracker l'état des flips (peut être il y a un méthode associée à la classe flipper mais je ne connais rien à vpx, faudrait lire la doc...). Du genre (dans KeyDown)
Lignes 156 et suivantes

Code:

If keycode = LeftFlipperKey Then
  If Tilt=0 then
    If GameInProgress=1 then
      LeftFlipper.RotateToEnd
      PlaySound SoundFXDOF("FlipperUp",101,DOFOn,DOFContactors)
      playsound "buzzl",-1
      LeftFlipperUp = true
    End If
  End If
End If
If keycode = RightFlipperKey Then
  If Tilt=0 then
    If GameinProgress=1 then
      RightFlipper.RotateToEnd
      PlaySound SoundFXDOF("FlipperUp",102,DOFOn,DOFContactors)
      playsound"buzz",-1
      RightFlipperUp=true
    End If
  End If
End If

Idem dans KeyUp

Code:

RightFlipperUp = false
...
LeftFlipperUp = false

Et prendre les mesures qui s'imposent dans EndOfGame

Code:

Sub EndofGame()
   Dim numer0
   credittext.text=credits
   If B2SOn then Controller.B2SSetMatch Credits+1
   GameinProgress=0
        If RightFlipperUp Then RightFlippeRotateToStart + DOF sound etc...

A creuser la gestion du cas du tilt.

A noter que ce n'est plus du pur DOFfage mais de la correction d'un bug fonctionnel de la table

Je confirme que le bruit du moteur est insupportable.

foxyt a écrit:

C'est là où je coince ,je ne sais pas où le mettre ainsi que la ligne qui va bien pour garder en mémoire les crédits lorsque l'on ferme la table mais ça c'est moins gênant

Il me semble normal que tu ne retrouves pas tes crédits.

Dans le script, ligne 1466 :

Code:

savevalue "roses4", "credit", Credits

Dans le script, ligne 1478 :

Code:

temp = LoadValue("4roses4", "credit")

La valeur n'est donc pas enregistrée au même endroit qu'elle est lue.

En mettant "4roses4" dans le savevalue (comme pour toutes les autres données), ça devrait être ok. Un autre bug du script

J'ai essayé vos solutions mais hélas aucune ne corrige le problème (le sound+flip et les credits ) , cette table est en train de me rendre dingue

toujours ce problème de fin de partie avec les flippers (contacteurs et son "buzz" et les crédits qui ne sauvegarde pas .
Arngrim !! Au secours !!!

Voilà la table corrigée

https://drive.google.com/file/d/1MtnKTWLeGDetfHoRyPS88Zail_j5zIP_/view?usp=sharing

J'ai mis les code pour stopper les flippers, ses dof et ses sons dans le endofgame

DOF 101, DOFOff
DOF 102, DOFOff
LeftFlipper.RotateToStart
RightFlipper.RotateToStart
stopSound "buzzl"
stopSound "buzz"

j'ai nommé partout le savevalue et le LoadValue de la même façon, 4roses

j'ai aussi changé le son du plunger qui m'était insupportable

tiens les scores ils sont sauvegardés où exactement? je ne trouve pas tout de suite

Merci Arngrim 
Les sauvegardes des scores fonctionnent ,mon petit 720 est enregistré  je l'envoi à Balater