Bonjour,
D'abord un grand bravo pour ton logiciel Tacview. Il est tout ce que l'on peut attendre de ce type d'outil : efficace, rapide, simple à utiliser, puissant
et surtout ouvert afin de pouvoir inclure des textures, objets et graphiques pour l'enregistrement.
Voici rapidement ce que je fais : j'ai définit une zone de jeu (la Corse) sur laquelle se déroulent des missions militaires fictives face à 4 types
d'ennemis (Russes, Nazis, Aliens et Super-Soldats) . J'ai conçu plusieurs base ennemies et placé différents objets récupérés sur internet.
J'ai créé plusieurs campagnes militaires avec "Instant Mission Maker", plan de vol, documents de missions.
Je rejoue ces campagnes soit seul pour m'entrainer, soit en réseau avec d'autres.
L'appareil que j'utilise pour ces missions est "Airwolf" de la série du même nom revu et corrigé : Pas de limite de plafond, vitesse maximale Mach 4, ...
Évidement, tout ceci est fait dans un but non lucratif.
Pour répondre à ta question, soit tu utilises la valeur maximale de cette variable d'altitude (d'un point de vue informatique suivant son type)
soit une valeur de 100 000 pieds ferait l'affaire.
Sinon, j'ai créé une petite macro Excel pour la modification des objets soit par leur remplacement soit en modifiant sa couleur.
Voici ce code pour ceux qui seraient intéressés, il faudra réajuster les objets dans la fonction ListeObjets à vos objets.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Les_Missions_De_Pascal()
Dim l_lngMaxLig As Long, l_lngNumLig As Long
Dim l_strTexte As String
l_lngMaxLig = Range("A1", Range("A1").End(xlDown)).Rows.Count
For l_lngNumLig = l_lngMaxLig To 11 Step -1
l_strTexte = Range("A" & CStr(l_lngNumLig)).Text
If Left(l_strTexte, 1) = "-" Then
Rows(l_lngNumLig).Delete
Else
If InStr(1, l_strTexte, "Name=") > 0 Then
Range("A" & CStr(l_lngNumLig)) = ListeObjets(l_strTexte)
End If
End If
Next
End Sub
Function ListeObjets(ByVal p_strTexte As String) As String
If InStr(1, p_strTexte, "Name=AirWolf") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Air+Light+Rotorcraft", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=CS_Weapon_Flares") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Weapon+Light+Flare", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=CSWeapon_Temp") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Weapon+Medium+Missile", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=KC135RT") > 0 Then
p_strTexte = Replace(p_strTexte, "Name=KC135RT", "Name=C-135", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Parachutiste") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Misc+Minor+Parachutist", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Missile") > 0 Then
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=RQ-4A") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Weapon+Heavy+Missile", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Scud") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Medium+AntiAircraft", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=HX-1") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Air+Light+Rotorcraft", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Ka50") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Air+Light+Rotorcraft", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=AirForce 1") > 0 Then
p_strTexte = Replace(p_strTexte, "Name=AirForce 1", "Name=C-135 AirForce 1", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Aile") > 0 Then
p_strTexte = Replace(p_strTexte, "Name=Aile", "Name=B-2 Aile", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Avion Cargo") > 0 Then
p_strTexte = Replace(p_strTexte, "Name=Avion Cargo", "Name=C-135 Avion Cargo", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Avion") > 0 Then
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Chasseur") > 0 Then
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=MiG") > 0 Then
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Sukhoi") > 0 Then
p_strTexte = Replace(p_strTexte, "Name=Sukhoi SU-34A", "Name=MiG-29", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Zeppelin") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Air+Heavy+AircraftCarrier", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Porte-Avion") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Sea+Heavy+AircraftCarrier", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Cuirasse") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Sea+Heavy+Warship", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Croiseur") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Sea+Heavy+Warship", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Destroyer") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Sea+Medium+Warship", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Navire") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Sea+Heavy+Watercraft", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Sous-Marin") > 0 Then
p_strTexte = Replace(p_strTexte, "Name=Sous-Marin", "Name=Kilo Sous-Marin", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Camion") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Heavy+Vehicle", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Tank") > 0 Then
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Voiture") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Medium+Vehicle", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_Building") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Static+Building", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_ControlTower") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Static+Building", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_Bunker") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Static+Building", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_Transfo") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Static+Building", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_Chemistry") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Static+Building", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_Cuve") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Static+Building", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_Barrel") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Static+Building", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_Crane") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Static+Building", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_Truck") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Heavy+Vehicle", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_KS12") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Medium+AntiAircraft", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_SAM") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Light+AntiAircraft", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_VAB") > 0 Then
p_strTexte = Replace(p_strTexte, "Type=Air+FixedWing", "Type=Ground+Medium+AntiAircraft", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=FSXatWarPack1_Tank") > 0 Then
p_strTexte = Replace(p_strTexte, "Name=FSXatWarPack1_Tank", "Name=Tank ", 1, 1, vbTextCompare)
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
Else
If InStr(1, p_strTexte, "Name=Bomb") > 0 Then
p_strTexte = Replace(p_strTexte, "Color=Blue", "Color=Red", 1, 1, vbTextCompare)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
ListeObjets = p_strTexte
End Function