24 réponses à ce sujet

[elendell]

C'est peut-être connu mais comme je viens juste de le remarquer et que je n'ai pas trouvé cette info, je le signale :

Contrairement au PJ, si un PNJ ou une créature se déplace, "GetAngle z" ne donnera pas son nouvel angle mais toujours celui qu'il avait dans sa position d'origine. Même s'il est ensuite à l'arrêt. De même, si on fait tourner un PNJ/créature avec "Face, x, y", il se tourne bien dans la direction indiquée mais un "GetAngle z" donnera son ancien angle et pas le nouveau.

Quitter la cellule et revenir ne change rien à ce que renvoie "GetAngle". Le seul moyen que j'ai trouvé pour avoir son nouvel angle est de faire un "placeatme" d'un objet quelconque qui lui, sera positionné dans le nouvel angle du PNJ. Et donc, de tester "GetAngle" sur l'objet, pour connaitre le nouvel angle du PNJ.  

[alliop]

  ... le tesc2 est décidément une machine extraordinaire : on y gambade allègrement de surprise en surprise, plus merveilleuses les unes que les autres.

[Finraïl]

  Trop fort.
Finalement, c'est assez simple à résumer : toutes les fonctions non utilisés par Beth sont bugguées.  

[Snaïpe]

j'avais fait cette constatation quand j'avais essayé de faire un bateau qui suivait les mouvements d'un PNJ avec marche sur l'eau pour faire des voyages; le bateau ne tournait pas...

Citation

Le seul moyen que j'ai trouvé pour avoir son nouvel angle est de faire un "placeatme" d'un objet quelconque qui lui, sera positionné dans le nouvel angle du PNJ. Et donc, de tester "GetAngle" sur l'objet, pour connaitre le nouvel angle du PNJ.

je n'avais jamais essayé je sens que je vais reprendre mon idée de départ !

[elendell]

Snaïpe, le 24.04.2009 à 20:17, dit :

je n'avais jamais essayé je sens que je vais reprendre mon idée de départ !

Pour tester l'angle de cette manière, tu dois faire le "PlaceItem" dans une autre frame que celle où tu fais pivoter le PNJ.
Frame 1 : Il pivote  Frame 2 : Il fait "PlaceItem"  Frame 3 : GetAngle sur l'objet placé et SetAngle sur celui qui doit suivre.

Mais d'après ce que tu expliques, il serait plus simple d'utiliser "PlaceItem" directement pour placer une nouvelle instance de l'objet qui doit suivre le déplacement du PNJ. Tu n'aurais même pas besoin de tester l'angle. Tu peux toutes les 4 ou 5 frames remplacer ainsi le bateau qui adoptera l'angle du PNJ. Dans les frames intermédiaires, tu relèves la position du PNJ avec "GetPos" et fait "SetPos" sur ton bateau à ces coordonnées.

Sans oublier bien sûr un "GetDisabled/SetDelete" dans son script qui "delete" chaque instance au fur et à mesure. Pour commander les "disable", juste avant de faire "PlaceItem", le script du PNJ met une variable globale à x. Quand le script du bateau relève que cette variable est à x, il replace la variable à z et fait le "disable". C'est juste une question de synchroniser les étapes et l'état de la variable pour qu'il en reste toujours un exemplaire.

Ce que je dis là suppose que tu places le bateau au même endroit que le PNJ (mêmes centres). S'il doit le suivre à distance, il te faut effectivement relever l'angle.

[alliop]

Hello.

Il y a peut être des réponses utiles pour vous dans le script de Mortim pour le tapis volant.

Je ne sais pas si vous connaissez l'objet et son fonctionnement in game : il avance tout seul et on reste placé dessus, les touches q et d commandent la direction, activer le tapis (le cliquer quand on est en vol dessus) commande alternativement montée/horizontal/descente et visse-versa, selon un angle constant pour la montée et la descente.
Il a de plus un effet d'inclinaison dans les virages, comme une planche à surf littéralement.

Le tapis se place toujours strictement dans l'axe du PJ défini par les touches q /d, alors que comme on le voit dans le script, le seul angle testé est sur "Z" (il semble donc que ["Player"->GetAngle Z] fonctionne) : les directions du tapis dans le plan horizontal ne sont données que par des enregistrements/comparaisons GetPos X, Y / Last_PosX, LastPos_y (la limite du procédé étant qu'il ne fonctionne que s'il y a déplacement du pj évidemment).

Ce modèle est utilisable pour un bateau (sauf "montée ou descente à l'activation", à moins de vouloir faire un sous-marin, un hydravion ou un engin Dwemer polyvalent).

Voilà le script :

Spoiler

Begin NM_MIS_TapisVolant

float xp
float yp
float zp
float last_xp
float last_yp
float last_zp
float inclinaison
float ap
float at
short stop
short OnPCDrop
short OnPCAdd
short pret

if ( OnPCDrop )

	setScale 1.30
	set OnPCDrop to 0
	set pret to 1

endif

if ( OnPCAdd )

	set OnPCAdd to 0
	set pret to 0
	"player"->removeSpell "_TAP_vol"; c'est une capacité constante de lévitation

endif

if ( Menumode ==1 )
	return
endif

if ( cellchanged == 1 )
	if ( pret == 1 )
		startscript NM_GLO_tapisvolant; replacement du tapis sous le joueur à chaque changement de cell
		set voltap to 1
		disable
		setdelete 1
	endif
endif

if ( voltap == 1 )

	setScale 1.30
	set xp to "player"->getPos X
	set yp to "player"->getPos Y
	set zp to "player"->getPos Z
	setPos X xp
	setPos Y yp
	setPos Z zp
	set voltap to 2
	set pret to 1
	if ( "tap_direction" == -1 )
		setAngle Y -15
	else
		setAngle Y 15
	endif

endif

if ( OnActivate == 1 )

	if ( voltap == 2 )

		if ( "tap_direction" == 0 )
			set "tap_direction" to ( "tap_direction" + "tap_sens" )
			if ( "tap_direction" == -1 )
				setAngle Y -15
			else
				setAngle Y 15
			endif
		elseif ( "tap_direction" == 1 )
			set "tap_direction" to 0
			setAngle Y 0
			set "tap_sens" to -1
		elseif ( "tap_direction" == -1 )
			set "tap_direction" to 0
			setAngle Y 0
			set "tap_sens" to 1
		endif
	else
		Activate
		"player"->removeSpell "_TAP_vol"
		set voltap to 0
	endif

endif

if ( "player"->getSpellEffects "_TAP_activer" )

	if ( pret == 0 )

		return

	endif

	if ( voltap == 0 )

		if ( getDistance player < 300 )

			set xp to "player"->getPos X
			set yp to "player"->getPos Y
			set zp to "player"->getPos Z
			setPos X xp
			setPos Y yp
			setPos Z zp
			set voltap to 2
			"player"->addSpell "_TAP_vol"
			set "tap_direction" to 1
			setAngle Y 15

		endif

	elseif ( voltap == 3 )

		set voltap to 2

	else

		set voltap to 3

	endif

endif

if ( voltap >= 2 )

	set last_xp to "player"->getPos X
	set last_yp to "player"->getPos Y
	set xp to getPos X
	set yp to getPos Y

	if ( xp != last_xp )
		setPos X last_xp
	endif
	if ( yp != last_yp )
		setPos Y last_yp
	endif

	set ap to "player"->getAngle Z
	set ap to ( ap - 90 )
	set zp to "player"->getPos Z

	if ( "tap_direction" == 1 )
		set zp to ( zp + 10 )
		"player"->setPos Z zp
	elseif ( "tap_direction" == -1 )
		set zp to ( zp - 10 )
		"player"->setPos Z zp
	endif

	if ( ap < getAngle Z - 1 )

		if ( inclinaison < 20 )
			set inclinaison to ( inclinaison + 2 )
		endif

		setAngle X inclinaison
		set timer to 0

	elseif ( ap > getAngle Z + 1 )

		if ( inclinaison > -20 )
			set inclinaison to ( inclinaison - 2 )
		endif

		setAngle X inclinaison
		set timer to 0

	else

		if ( inclinaison < 0 )
			set inclinaison to ( inclinaison + 1 )
		elseif ( inclinaison > 0 )
			set inclinaison to ( inclinaison - 1 )
		endif

		setAngle X inclinaison

	endif

	setAngle Z ap

	if ( voltap != 3 )
		Move X 350
		set xp to getPos X
		set yp to getPos Y
		"player"->setPos X xp
		"player"->setPos Y yp
	endif

	setPos Z zp

endif

End

Il est possible d'ajouter des variations de vitesse à partir de l'algo du levelling de la méditation (qui assure une incrémentation par 1 de 0 à 100 à faible coût de calcul -au moyen de 8 blocs test/commandes légers seulement- ), en remplaçant les capacités augmentant la régénération de magie par des augmentations de "speed", et le niveau par un chiffre incrémenté tant qu'une commande du bateau est activée par clic par exemple, ou qu'une vitesse est préalablement choisie par messagebox ou dialogue et appliquée avec des modificateurs selon "GetWindSpeed" par ex

Pour la méditation tout se passe en une frame puisqu'il s'agit d'appliquer un levelling, mais ça peut aussi bien se décomposer par state et timer ou framecount pour obtenir une accélération ou une décélération progressives.

Pour mémoire voilà cet algo :

Spoiler

if ( meditation >= 64 )
	player->addspell "_MED_Meditation64"; capacité "régénération de magie" de valeur 64
	set meditation to ( meditation - 64 )
endif
if ( meditation >= 32 )
	player->addspell "_MED_Meditation32"; "   "	"   "   "   "  "   "   "  "	 "	de valeur 32
	set meditation to ( meditation - 32 )
endif
if ( meditation >= 16 )
	player->addspell "_MED_Meditation16"; etc....
	set meditation to ( meditation - 16 )
endif
if ( meditation >= 8 )
	player->addspell "_MED_Meditation8"
	set meditation to ( meditation - 8 )
endif
if ( meditation >= 4 )
	player->addspell "_MED_Meditation4"
	set meditation to ( meditation - 4 )
endif
if ( meditation >= 2 )
	player->addspell "_MED_Meditation2"
	set meditation to ( meditation - 2 )
endif
if ( meditation >= 1 )
	player->addspell "_MED_Meditation1"
	set meditation to ( meditation - 1 )
endif
set meditation to 0

Modifié par alliop, 25 avril 2009 - 09:39.

[elendell]

Bonjour alliop,

Je connais le tapis car je m'en servais dans mon jeu (même si je devais systématiquement mettre la distance de vision au minimum avec FPS Optimiser avant de changer de cellule, sous peine de retour bureau).

Ce que je signale par ce sujet, c'est justement la différence entre l'application de "GetAngle" sur le PJ  et la même fonction sur un PNJ.
Le script du tapis ne fonctionnerait pas avec un PNJ car "GetAngle z" ne retournerait pas son angle courant pendant son déplacement mais toujours celui qu'il avait lors de son positionnement initial dans la cellule.

Quand à utiliser ce genre de script (parfait pour un tapis) sur un bateau, j'en ai testé un qui fonctionnait sur ce principe et je n'ai pas trouvé le résultat heureux. Ou alors, il faudrait ajouter une temporisation lors des changements d'angle du PJ pour que que le bateau ne prenne pas immédiatement le même angle que le PJ mais au contraire, qu'il ne l'adopte que petit à petit. Voir un bateau qui passe de 0 à 180° d'un coup est assez curieux. C'est pour ça que pour mon bateau, j'ai adopté un pilotage indépendant de l'angle du PJ.

Pour cet ancien projet de Snaïpe, ça dépend de ce qu'il souhaitait faire exactement.

Je regarderai plus tard l'algo de méditation car je ne suis pas assez réveillé pour examiner sérieusement ses utilisations possibles.  

[Von Zeeple]

Citation

Ou alors, il faudrait ajouter une temporisation lors des changements d'angle du PJ pour que que le bateau ne prenne pas immédiatement le même angle que le PJ mais au contraire, qu'il ne l'adopte que petit à petit. Voir un bateau qui passe de 0 à 180° d'un coup est assez curieux. C'est pour ça que pour mon bateau, j'ai adopté un pilotage indépendant de l'angle du PJ.

C'est un effet que je cherche également dans un script d'automobile, une voiture ne peut tourner sur place, mais uniquement en roulant, et le rayon de courbure dépendant de la vitesse.

[alliop]

elendell, le 25.04.2009 à 11:57, dit :

Ce que je signale par ce sujet, c'est justement la différence entre l'application de "GetAngle" sur le PJ  et la même fonction sur un PNJ.
[....]
Je regarderai plus tard l'algo de méditation car je ne suis pas assez réveillé pour examiner sérieusement ses utilisations possibles.  

.... et moi je n'avais plus les yeux suffisamment en face des trous à 5h du mat, j'avais cru lire l'inverse.  

Cet algo permet d'incrémenter de façon continue ce qu'on veut de 1 point dans des fourchettes importantes en fixant des limites variables, sans faire un bloc par point (8 blocs au lieu de 100 pour aller de 0 à 100).  

Vous avez raison, un bateau ne peut pas virer sur place bien sûr, à moins d'être un ovni flottant.

Bonnes suites

Modifié par alliop, 25 avril 2009 - 14:48.

[elendell]

Von Zeeple, le 25.04.2009 à 12:51, dit :

C'est un effet que je cherche également dans un script d'automobile, une voiture ne peut tourner sur place, mais uniquement en roulant, et le rayon de courbure dépendant de la vitesse.

C'est exactement ce que j'ai dû faire avec le bateau. La valeur donnée à "Rotate" est une vitesse de rotation. La proportionner suivant la vitesse du véhicule est donc obligatoire. Voici un extrait du script :

	if ( etape == 2 )
		if ( barre == 0 )
			set rotation to 0
		else
			if ( barre < 0 )
				set rotation to ( ( barre * -1 ) * vitesse )
			elseif ( barre > 0 )
				set rotation to ( vitesse * barre )
			endif
			set rotation to ( rotation / 600 )
			if ( rotation < 1.5 )
				set rotation to 1.5
			endif
		endif
		set gouvern to 0
	endif

Notes : "Barre" correspond au braquage (de -40 à 40 pour moi). Si le joueur appui une fois sur une touche de direction gauche/droite, le braquage change de 1 (ou -1) ; si la touche est maintenue appuyée + de 0.5s, le braquage change de 1 toutes les 0.06s (pour que le braquage soit continu mais qu'il ne se fasse pas trop vite en cas de framerate élevé). 600 est la vitesse maximale du bateau. "Rotation" donne la valeur à appliquer à "Rotate". Pour le bateau, j'ai mis une vitesse minimale de rotation mais ce n'est peut-être pas à faire pour une voiture. La partie du script qui fait la rotation elle-même ne s'exécute pas si la vitesse du véhicule = 0.

Si tu veux examiner mon script, n'hésite pas à me le demander.  

alliop, le 25.04.2009 à 15:38, dit :

Cet algo permet d'incrémenter de façon continue ce qu'on veut de 1 point dans des fourchettes importantes en fixant des limites variables, sans faire un bloc par point (8 blocs au lieu de 100 pour aller de 0 à 100).

Pratique, effectivement. Pour un but similaire (si j'ai bien compris), j'ai utilisé "while".

				while ( mouvement < vitesse )
					if ( ( vitesse - mouvement ) < 10 )
						move y 1
						set mouvement to ( mouvement + 1 )
					endif
					if ( ( vitesse - mouvement ) < 100 )
						move y 10
						set mouvement to ( mouvement + 10 )
					endif
					if ( ( vitesse - mouvement ) < 300 )
						if ( ( vitesse - mouvement ) >= 100 )
							move y 100
							set mouvement to ( mouvement + 100 )
						endif
					endif
					if ( ( vitesse - mouvement ) >= 300 )
						move y 300
						set mouvement to ( mouvement + 300 )
					endif
				endwhile
				set mouvement to 0

J'ai mis des tranches (centaine, dixaine, unité) pour qu'il n'y ait pas trop de boucles risquant de de geler l'écran. J'ai remarqué que les valeurs des "move" se cumulaient. Donc, si la vitesse est par exemple de 521 unités/s, j'obtiens "move y 521" en 6 boucles dans la même frame.

Je fais la même chose pour décélérer et pour tourner. J'ai adopté ce système parce que "Move" et "Rotate" n'acceptent pas les variables en argument.  

[Von Zeeple]

Citation

J'ai mis des tranches (centaine, dixaine, unité) pour qu'il n'y ait pas trop de boucles risquant de de geler l'écran. J'ai remarqué que les valeurs des "move" se cumulaient. Donc, si la vitesse est par exemple de 521 unités/s, j'obtiens "move y 521" en 6 boucles dans la même frame.

Je fais la même chose pour décélérer et pour tourner. J'ai adopté ce système parce que "Move" et "Rotate" n'acceptent pas les variables en argument. smile.gif

Très bonne idée!

Mais qu'en est-il des collisions avec le rivage ou des récifs?
je n'ai jamais compris comment la barque du mod "Galion Ultime" fonctionnait pour ça.

[Kira]

Bonjour Von Zeeple...

Les collisions sont déterminées par des pnj invisibles, placés à l'avant et à l'arrière du vaisseau....

[elendell]

Von Zeeple, le 25.04.2009 à 22:38, dit :

Mais qu'en est-il des collisions avec le rivage ou des récifs?
je n'ai jamais compris comment la barque du mod "Galion Ultime" fonctionnait pour ça.

J'utilise des détecteurs de collision qui sont des créatures (après de nombreux essais divers faits avec l'aide de Kira). Une à l'avant et une à l'arrière (+ depuis hier, une au milieu quand le bateau est à l'arrêt pour les collisions dûes à la dérive, qui peut être latérale). Quand le bateau est ancré, c'est un activateur mais quand l'ancre est levée, c'est un misc. Les créatures peuvent donc se superposer au bateau ; ce qui permet de n'utiliser que 2 détecteurs qui couvrent tout l'avant et tout l'arrière et en hauteur, celle du mat. Le script de chaque détecteur calcule les "Setpos" à lui appliquer au fur et à mesure pour garder sa position par rapport au centre du bateau.

Comme c'est une créature, on ne peut pas lui donner l'angle du bateau avec "SetAngle z variable". Donc, toutes les 5 frames, le détecteur est remplacé à l'aide d'un "placeItem" qui lui, accepte les variables pour l'angle.

La première frame sert à la mise en place. Ensuite, en début de chaque frame, le script du détecteur relève sa position réelle et la compare avec celle qui avait été établie à la frame précédente (et donnée avec "SetPos"). Si la distance entre les positions ordonnée et réelle est supérieure à 0.1 ou si la hauteur du détecteur a changé, c'est que la créature n'a pas pu s'y placer. Ça peut arriver sans collision mais si ça arrive deux frames de suite, c'est qu'il y a collision. (Suivant le cas, il faut compter plus de frames pour valider la collision).

Dans ce cas, le script du bateau le fait repartir dans le sens inverse jusqu'à ce qu'il n'y ait plus collision (et un peu plus). C'est le "retour de choc".
Sans ce retour, le détecteur suivant qui le remplacera serait placé à l'intérieur de l'obstacle et ça, ça ne génère pas d'écart de positionnement.

Spoiler

begin SG_Scr_Detecteur02

; Script d'Elendell (elendell@wiwiland.com)
; Calculs de trigonométrie selon JDGBOLT (source : MSfD)

float boatX
float boatY
float boatAngle
float newX
float newY
float newZ
float oldX
float oldY
float ax1
float ax2
float ay1
float ay2
float angle
float angle_source
float angle_temp
float angle_temp2
float angledec
float axfinal
float ayfinal
float angconvx1
float angconvy1
float angconvx2
float angconvy2
float distX
float distY
float distZ
float distance
short collision
short collisionZ
short frame
short etape
short angleshort
short anglequad

if ( menumode == 1 )
	return
endif

set frame to ( frame + 1 )

if ( GetDisabled == 1 )
	if ( frame >= 4 )
		SetDelete 1
	endIf
	return
endIf

SkipAnim

if ( SG_Glo_Detecteurs == 0 )
	set frame to 0
	disable
	return
endif

if ( etape == 0 )
	SetParalysis 1
	SetInvisible 1
	set oldX to getpos, x
	set oldY to getpos, y
	SetPos z -0.5
	set etape to 1
endif

;-------------------------------------------------------------------------
; Récupère les coordonnées actuelles du bateau et du détecteur
;-------------------------------------------------------------------------
set boatX to SG_Glo_BatX 
set boatY to SG_Glo_BatY
set boatAngle to SG_Glo_BatAngleZ
set newX to GetPos, x
set newY to GetPos, y
set newZ to GetPos, z
;-------------------------------------------------------------------------
; Calcule sinus et cosinus de l'angle du bateau
;-------------------------------------------------------------------------
set angle_source to ( boatAngle + 8.5 )

;GetAngle renvoie des valeurs comprises entre -180 et +180, on doit donc compenser pour calculer à partir de valeurs
;comprises entre 0 et 360°:
if ( angle_source < 0 )
	set angle_source to ( 360 + angle_source )
endif
set angle to angle_source
;-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
;détermine le quadrant. De cette façon, on a seulement besoin de calculer le sinus et le cosinus pour 0-90°
if ( angle <= 90 )
	set angle_temp2 to angle
	set anglequad to 1
elseif ( angle <= 180 )
	set angle_temp2 to ( 180 - angle )
	set anglequad to 2
elseif ( angle <= 270 )
	set angle_temp2 to ( angle - 180 )
	set anglequad to 3
elseif ( angle <= 360 )
	set angle_temp2 to ( 360 - angle )
	set anglequad to 4
endif
;récupère la partie décimale de l’angle
set angleshort to angle_temp2
set angledec to ( angle_temp2 - angleshort ); la différence entre le float et le short correspond à la partie décimale
set angle_temp to angleshort
;-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
; les valeurs qui suivent correspondent aux valeurs pré-calculées de sinus et cosinus:
if ( angle_temp <= 10 ); on arrange les angles en paquets de 10 pour la vitesse (et la limite des blocs if ?)
	if ( angle_temp == 0 )
		set ax1 to 0.000000; sinus
		set ay1 to 1.000000;cosinus
		set ax2 to 0.017452; sinus de angletemp+1
		set ay2 to 0.999847;cosinus de angletemp+1
	elseif ( angle_temp == 1 )
		set ax1 to 0.017452
		set ay1 to 0.999847
		set ax2 to 0.034899
		set ay2 to 0.999390
	elseif ( angle_temp == 2 )
		set ax1 to 0.034899
		set ay1 to 0.999390
		set ax2 to 0.052333
		set ay2 to 0.998629
	elseif ( angle_temp == 3 )
		set ax1 to 0.052333
		set ay1 to 0.998629
		set ax2 to 0.069756
		set ay2 to 0.997564
	elseif ( angle_temp == 4 )
		set ax1 to 0.069756
		set ay1 to 0.997564
		set ax2 to 0.087155
		set ay2 to 0.996194
	elseif ( angle_temp == 5 )
		set ax1 to 0.087155
		set ay1 to 0.996194
		set ax2 to 0.104528
		set ay2 to 0.994521
	elseif ( angle_temp == 6 )
		set ax1 to 0.104528
		set ay1 to 0.994521
		set ax2 to 0.121869
		set ay2 to 0.992546
	elseif ( angle_temp == 7 )
		set ax1 to 0.121869
		set ay1 to 0.992546
		set ax2 to 0.139173
		set ay2 to 0.990268
	elseif ( angle_temp == 8 )
		set ax1 to 0.139173
		set ay1 to 0.990268
		set ax2 to 0.156434
		set ay2 to 0.987688
	elseif ( angle_temp == 9 )
		set ax1 to 0.156434
		set ay1 to 0.987688
		set ax2 to 0.173648
		set ay2 to 0.984807
	elseif ( angle_temp == 10 )
		set ax1 to 0.173648
		set ay1 to 0.984807
		set ax2 to 0.190808
		set ay2 to 0.981627
	endif
elseif ( angle_temp <= 20 ); etc...…
	if ( angle == 11 )
		set ax1 to 0.190808
		set ay1 to 0.981627
		set ax2 to 0.207911
		set ay2 to 0.978147
	elseif ( angle_temp == 12 )
		set ax1 to 0.207911
		set ay1 to 0.978147
		set ax2 to 0.224951
		set ay2 to 0.974370
	elseif ( angle_temp == 13 )
		set ax1 to 0.224951
		set ay1 to 0.974370
		set ax2 to 0.241921
		set ay2 to 0.970295
	elseif ( angle_temp == 14 )
		set ax1 to 0.241921
		set ay1 to 0.970295
		set ax2 to 0.258819
		set ay2 to 0.965925
	elseif ( angle_temp == 15 )
		set ax1 to 0.258819
		set ay1 to 0.965925
		set ax2 to 0.275637
		set ay2 to 0.961261
	elseif ( angle_temp == 16 )
		set ax1 to 0.275637
		set ay1 to 0.961261
		set ax2 to 0.292371
		set ay2 to 0.956304
	elseif ( angle_temp == 17 )
		set ax1 to 0.292371
		set ay1 to 0.956304
		set ax2 to 0.309016
		set ay2 to 0.951056
	elseif ( angle_temp == 18 )
		set ax1 to 0.309016
		set ay1 to 0.951056
		set ax2 to 0.325568
		set ay2 to 0.945518
	elseif ( angle_temp == 19 )
		set ax1 to 0.325568
		set ay1 to 0.945518
		set ax2 to 0.342020
		set ay2 to 0.939692
	elseif ( angle_temp == 20 )
		set ax1 to 0.342020
		set ay1 to 0.939692
		set ax2 to 0.358367
		set ay2 to 0.933580
	endif
elseif ( angle_temp <= 30 )
	if ( angle_temp == 21 )
		set ax1 to 0.358367
		set ay1 to 0.933580
		set ax2 to 0.374606
		set ay2 to 0.927183
	elseif ( angle_temp == 22 )
		set ax1 to 0.374606
		set ay1 to 0.927183
		set ax2 to 0.390731
		set ay2 to 0.920504
	elseif ( angle_temp == 23 )
		set ax1 to 0.390731
		set ay1 to 0.920504
		set ax2 to 0.406736
		set ay2 to 0.913545
	elseif ( angle_temp == 24 )
		set ax1 to 0.406736
		set ay1 to 0.913545
		set ax2 to 0.422618
		set ay2 to 0.906307
	elseif ( angle_temp == 25 )
		set ax1 to 0.422618
		set ay1 to 0.906307
		set ax2 to 0.438371
		set ay2 to 0.898794
	elseif ( angle_temp == 26 )
		set ax1 to 0.438371
		set ay1 to 0.898794
		set ax2 to 0.453990
		set ay2 to 0.891006
	elseif ( angle_temp == 27 )
		set ax1 to 0.453990
		set ay1 to 0.891006
		set ax2 to 0.469471
		set ay2 to 0.882947
	elseif ( angle_temp == 28 )
		set ax1 to 0.469471
		set ay1 to 0.882947
		set ax2 to 0.484809
		set ay2 to 0.874619
	elseif ( angle_temp == 29 )
		set ax1 to 0.484809
		set ay1 to 0.874619
		set ax2 to 0.500000
		set ay2 to 0.866025
	elseif ( angle_temp == 30 )
		set ax1 to 0.500000
		set ay1 to 0.866025
		set ax2 to 0.515038
		set ay2 to 0.857167
	endif
elseif ( angle_temp <= 40 )
	if ( angle_temp == 31 )
		set ax1 to 0.515038
		set ay1 to 0.857167
		set ax2 to 0.529919
		set ay2 to 0.848048
	elseif ( angle_temp == 32 )
		set ax1 to 0.529919
		set ay1 to 0.848048
		set ax2 to 0.544639
		set ay2 to 0.838670
	elseif ( angle_temp == 33 )
		set ax1 to 0.544639
		set ay1 to 0.838670
		set ax2 to 0.559192
		set ay2 to 0.829037
	elseif ( angle_temp == 34 )
		set ax1 to 0.559192
		set ay1 to 0.829037
		set ax2 to 0.573576
		set ay2 to 0.819152
	elseif ( angle_temp == 35 )
		set ax1 to 0.573576
		set ay1 to 0.819152
		set ax2 to 0.587785
		set ay2 to 0.809016
	elseif ( angle_temp == 36 )
		set ax1 to 0.587785
		set ay1 to 0.809016
		set ax2 to 0.601815
		set ay2 to 0.798635
	elseif ( angle_temp == 37 )
		set ax1 to 0.601815
		set ay1 to 0.798635
		set ax2 to 0.615661
		set ay2 to 0.788010
	elseif ( angle_temp == 38 )
		set ax1 to 0.615661
		set ay1 to 0.788010
		set ax2 to 0.629320
		set ay2 to 0.777145
	elseif ( angle_temp == 39 )
		set ax1 to 0.629320
		set ay1 to 0.777145
		set ax2 to 0.642787
		set ay2 to 0.766044
	elseif ( angle_temp == 40 )
		set ax1 to 0.642787
		set ay1 to 0.766044
		set ax2 to 0.656059
		set ay2 to 0.754709
	endif
elseif ( angle_temp <= 50 )
	if ( angle_temp == 41 )
		set ax1 to 0.656059
		set ay1 to 0.754709
		set ax2 to 0.669130
		set ay2 to 0.743144
	elseif ( angle_temp == 42 )
		set ax1 to 0.669130
		set ay1 to 0.743144
		set ax2 to 0.681998
		set ay2 to 0.731353
	elseif ( angle_temp == 43 )
		set ax1 to 0.681998
		set ay1 to 0.731353
		set ax2 to 0.694658
		set ay2 to 0.719339
	elseif ( angle_temp == 44 )
		set ax1 to 0.694658
		set ay1 to 0.719339
		set ax2 to 0.707106
		set ay2 to 0.707106
	elseif ( angle_temp == 45 )
		set ax1 to 0.707106
		set ay1 to 0.707106
		set ax2 to 0.719339
		set ay2 to 0.694658
	elseif ( angle_temp == 46 )
		set ax1 to 0.719339
		set ay1 to 0.694658
		set ax2 to 0.731353
		set ay2 to 0.681998
	elseif ( angle_temp == 47 )
		set ax1 to 0.731353
		set ay1 to 0.681998
		set ax2 to 0.743144
		set ay2 to 0.669130
	elseif ( angle_temp == 48 )
		set ax1 to 0.743144
		set ay1 to 0.669130
		set ax2 to 0.754709
		set ay2 to 0.656059
	elseif ( angle_temp == 49 )
		set ax1 to 0.754709
		set ay1 to 0.656059
		set ax2 to 0.766044
		set ay2 to 0.642787
	elseif ( angle_temp == 50 )
		set ax1 to 0.766044
		set ay1 to 0.642787
		set ax2 to 0.777145
		set ay2 to 0.629320
	endif
elseif ( angle_temp <= 60 )
	if ( angle == 51 )
		set ax1 to 0.777145
		set ay1 to 0.629320
		set ax2 to 0.788010
		set ay2 to 0.615661
	elseif ( angle_temp == 52 )
		set ax1 to 0.788010
		set ay1 to 0.615661
		set ax2 to 0.798635
		set ay2 to 0.601815
	elseif ( angle_temp == 53 )
		set ax1 to 0.798635
		set ay1 to 0.601815
		set ax2 to 0.809016
		set ay2 to 0.587785
	elseif ( angle_temp == 54 )
		set ax1 to 0.809016
		set ay1 to 0.587785
		set ax2 to 0.819152
		set ay2 to 0.573576
	elseif ( angle_temp == 55 )
		set ax1 to 0.819152
		set ay1 to 0.573576
		set ax2 to 0.829037
		set ay2 to 0.559192
	elseif ( angle_temp == 56 )
		set ax1 to 0.829037
		set ay1 to 0.559192
		set ax2 to 0.838670
		set ay2 to 0.544639
	elseif ( angle_temp == 57 )
		set ax1 to 0.838670
		set ay1 to 0.544639
		set ax2 to 0.848048
		set ay2 to 0.529919
	elseif ( angle_temp == 58 )
		set ax1 to 0.848048
		set ay1 to 0.529919
		set ax2 to 0.857167
		set ay2 to 0.515038
	elseif ( angle_temp == 59 )
		set ax1 to 0.857167
		set ay1 to 0.515038
		set ax2 to 0.866025
		set ay2 to 0.500000
	elseif ( angle_temp == 60 )
		set ax1 to 0.866025
		set ay1 to 0.500000
		set ax2 to 0.874619
		set ay2 to 0.484809
	endif
elseif ( angle_temp <= 70 )
	if ( angle_temp == 61 )
		set ax1 to 0.874619
		set ay1 to 0.484809
		set ax2 to 0.882947
		set ay2 to 0.469471
	elseif ( angle_temp == 62 )
		set ax1 to 0.882947
		set ay1 to 0.469471
		set ax2 to 0.891006
		set ay2 to 0.453990
	elseif ( angle_temp == 63 )
		set ax1 to 0.891006
		set ay1 to 0.453990
		set ax2 to 0.898794
		set ay2 to 0.438371
	elseif ( angle_temp == 64 )
		set ax1 to 0.898794
		set ay1 to 0.438371
		set ax2 to 0.906307
		set ay2 to 0.422618
	elseif ( angle_temp == 65 )
		set ax1 to 0.906307
		set ay1 to 0.422618
		set ax2 to 0.913545
		set ay2 to 0.406736
	elseif ( angle_temp == 66 )
		set ax1 to 0.913545
		set ay1 to 0.406736
		set ax2 to 0.920504
		set ay2 to 0.390731
	elseif ( angle_temp == 67 )
		set ax1 to 0.920504
		set ay1 to 0.390731
		set ax2 to 0.927183
		set ay2 to 0.374606
	elseif ( angle_temp == 68 )
		set ax1 to 0.927183
		set ay1 to 0.374606
		set ax2 to 0.933580
		set ay2 to 0.358367
	elseif ( angle_temp == 69 )
		set ax1 to 0.933580
		set ay1 to 0.358367
		set ax2 to 0.939692
		set ay2 to 0.342020
	elseif ( angle_temp == 70 )
		set ax1 to 0.939692
		set ay1 to 0.342020
		set ax2 to 0.945518
		set ay2 to 0.325568
	endif
elseif ( angle_temp <= 80 )
	if ( angle_temp == 71 )
		set ax1 to 0.945518
		set ay1 to 0.325568
		set ax2 to 0.951056
		set ay2 to 0.309016
	elseif ( angle_temp == 72 )
		set ax1 to 0.951056
		set ay1 to 0.309016
		set ax2 to 0.956304
		set ay2 to 0.292371
	elseif ( angle_temp == 73 )
		set ax1 to 0.956304
		set ay1 to 0.292371
		set ax2 to 0.961261
		set ay2 to 0.275637
	elseif ( angle_temp == 74 )
		set ax1 to 0.961261
		set ay1 to 0.275637
		set ax2 to 0.965925
		set ay2 to 0.258819
	elseif ( angle_temp == 75 )
		set ax1 to 0.965925
		set ay1 to 0.258819
		set ax2 to 0.970295
		set ay2 to 0.241921
	elseif ( angle_temp == 76 )
		set ax1 to 0.970295
		set ay1 to 0.241921
		set ax2 to 0.974370
		set ay2 to 0.224951
	elseif ( angle_temp == 77 )
		set ax1 to 0.974370
		set ay1 to 0.224951
		set ax2 to 0.978147
		set ay2 to 0.207911
	elseif ( angle_temp == 78 )
		set ax1 to 0.978147
		set ay1 to 0.207911
		set ax2 to 0.981627
		set ay2 to 0.190808
	elseif ( angle_temp == 79 )
		set ax1 to 0.981627
		set ay1 to 0.190808
		set ax2 to 0.984807
		set ay2 to 0.173648
	elseif ( angle_temp == 80 )
		set ax1 to 0.984807
		set ay1 to 0.173648
		set ax2 to 0.987688
		set ay2 to 0.156434
	endif
elseif ( angle_temp <= 90 )
	if ( angle_temp == 81 )
		set ax1 to 0.987688
		set ay1 to 0.156434
		set ax2 to 0.990268
		set ay2 to 0.139173
	elseif ( angle_temp == 82 )
		set ax1 to 0.990268
		set ay1 to 0.139173
		set ax2 to 0.992546
		set ay2 to 0.121869
	elseif ( angle_temp == 83 )
		set ax1 to 0.992546
		set ay1 to 0.121869
		set ax2 to 0.994521
		set ay2 to 0.104528
	elseif ( angle_temp == 84 )
		set ax1 to 0.994521
		set ay1 to 0.104528
		set ax2 to 0.996194
		set ay2 to 0.087155
	elseif ( angle_temp == 85 )
		set ax1 to 0.996194
		set ay1 to 0.087155
		set ax2 to 0.997564
		set ay2 to 0.069756
	elseif ( angle_temp == 86 )
		set ax1 to 0.997564
		set ay1 to 0.069756
		set ax2 to 0.998629
		set ay2 to 0.052335
	elseif ( angle_temp == 87 )
		set ax1 to 0.998629
		set ay1 to 0.052335
		set ax2 to 0.999390
		set ay2 to 0.034899
	elseif ( angle_temp == 88 )
		set ax1 to 0.999390
		set ay1 to 0.034899
		set ax2 to 0.999847
		set ay2 to 0.017452
	elseif ( angle_temp == 89 )
		set ax1 to 0.999847
		set ay1 to 0.017452
		set ax2 to 1.000000
		set ay2 to 0.000000
	elseif ( angle_temp == 90 )
		set ax1 to 1.000000
		set ay1 to 0.000000
		set ax2 to 0.999847
		set ay2 to 0.017452
	endif
endif
;on utilise l’extrapolation linéaire simple pour approximer la valeur décimale de sinus et cosinus :
set angconvx1 to ( ax2 - ax1 ); calcule la distance entre sin(angle) et sin(angle+1)
set angconvy1 to ( ay2 - ay1 ); idem pour cos
set angconvx2 to ( angconvx1 * angledec ); calcule la fraction par le reste décimal (calculate a fraction by the decimal residue)
set angconvy2 to ( angconvy1 * angledec ); idem pour cosinus
set axfinal to ( ax1 + angconvx2 ); résultat final égale résultat + fraction
set ayfinal to ( ay1 + angconvy2 ); résultat final égale résultat + fraction
;correction pour le quadrant:
if ( anglequad == 1 )
	set axfinal to ( axfinal * 1 ); stocke le sinus final
	set ayfinal to ( ayfinal * 1 ); stocke le cosinus final
elseif ( anglequad == 2 )
	set axfinal to ( axfinal * 1 ); stocke le sinus final
	set ayfinal to ( ayfinal * -1 ); stocke le cosinus final
elseif ( anglequad == 3 )
	set axfinal to ( axfinal * -1 ); stocke le sinus final
	set ayfinal to ( ayfinal * -1 ); stocke le cosinus final
elseif ( anglequad == 4 )
	set axfinal to ( axfinal * -1 ); stocke le sinus final
	set ayfinal to ( ayfinal * 1 ); stocke le cosinus final
endif
;-------------------------------------------------------------------------
; Détecte les collisions
;-------------------------------------------------------------------------

set distX to ( oldX - newX )
set distY to ( oldY - newY )
set distX to ( distX * distX )
set distY to ( distY * distY )
set distance to ( distX + distY )
set distance to GetSquareRoot, distance

if ( frame >= 2 )
	if ( SG_Glo_DetectAV == 0 )

		if ( newZ != -0.50 )
			if ( collisionZ == 1 )
				set collisionZ to 0
				if ( SG_Glo_Collision == 0 )
					set SG_Glo_Collision to 1
					set SG_Glo_DetectAR to 2
					set frame to 5
				endif
			else
				set collisionZ to 1
			endif
		else
			if ( SG_Glo_DetectAR != 1 )
				if ( SG_Glo_Collision == 2 )
					if ( SG_Glo_DetectAR == 2 )
						 set collisionZ to ( collisionZ - 1 )
					endif
				else
					set collisionZ to 0
				endif
				if ( collisionZ == -3 )
					set SG_Glo_Collision to 3
					set frame to 5
				endif
			endif
		endif

		if ( distance > 0.1 )
			if ( collision == 1 )
				set collision to 0
				if ( SG_Glo_Collision == 0 )
					set SG_Glo_Collision to 1
					set SG_Glo_DetectAR to 1
					set frame to 5
				endif
			else
				set collision to 1
			endif
		else
			if ( SG_Glo_DetectAR != 2 )
				if ( SG_Glo_Collision == 2 )
					if ( SG_Glo_DetectAR == 1 )
						 set collision to ( collision - 1 )
					endif
				else
					set collision to 0
				endif
				if ( collision == -3 )
					set SG_Glo_Collision to 3
					set frame to 5
				endif
			endif
		endif

	endif
endif

;-------------------------------------------------------------------------
; Détermine les nouvelles coordonnées du détecteur
;-------------------------------------------------------------------------
set newX to ( boatX - ( 160 * axfinal ) )
set newY to ( boatY - ( 160 * ayfinal ) )
;-------------------------------------------------------------------------
; Place un nouveau détecteur pour lui donner le bon angle ou repositionne celui actuel
;-------------------------------------------------------------------------
if ( frame >= 5 )
	disable
	PlaceItem "SG_Cr_Detecteur02" newX, newY, newZ, boatAngle
	set frame to 0
else
	SetPos x newX
	SetPos y newY
	SetPos z -0.5

; Note la position du détecteur qui deviendra l'ancienne position dans la frame suivante
	set oldX to getpos, x
	set oldY to getpos, y
endif

end

Note : La détection d'écart de hauteur n'est pas forcement nécessaire. Elle ne l'est que si le véhicule peut rencontrer un obstacle en pente douce (une plage par exemple). Car dans ce cas, les "SetPos" x et y se font sans problème. Quand on fait un "SetPos", le jeu vérifie si la place est libre. Si non, il positionne la créature à l'endroit libre le plus proche. En cas de pente douce, il peut le positionner à x et y définis mais il décale par contre dans la hauteur.

[Von Zeeple]

Merci pour tout ces éclaircissements!

Mais alors, pourquoi ne pas faire de ton bateau une créature, au lieu d'un activateur ou d'un misc item?

[Kira]

Coucou, Von Zeeple, c'est encore moi....
Personnellement, c'est la première piste que j'avais explorée, surtout que ça permettait au bateau d'avoir une ombre....

Je ne sais plus pourquoi l'idée a été écartée, mais il me semble qu'il y avait une bonne raison....

***Edit***
Je crois qu'il y avait un problème de tressautement, mais Elendell doit mieux s'en rappeler, c'est lui qui a fait les tests....

[alliop]

elendell, le 25.04.2009 à 19:27, dit :

alliop, le 25.04.2009 à 15:38, dit :

Cet algo permet d'incrémenter de façon continue ce qu'on veut de 1 point dans des fourchettes importantes en fixant des limites variables, sans faire un bloc par point (8 blocs au lieu de 100 pour aller de 0 à 100).

Pratique, effectivement. Pour un but similaire (si j'ai bien compris), j'ai utilisé "while".
[.... code.....]
J'ai mis des tranches (centaine, dixaine, unité) pour qu'il n'y ait pas trop de boucles risquant de de geler l'écran. J'ai remarqué que les valeurs des "move" se cumulaient. Donc, si la vitesse est par exemple de 521 unités/s, j'obtiens "move y 521" en 6 boucles dans la même frame.

Euh.. mais si tout se passe dans la même frame, celà ne produit-il pas une accélération en une seule frame, c'est à dire pas d'accélération du tout mais un passage instantané à 512?
Pour qu'il y ait accélération il faut au contraire un incrément de un par frame jusqu'à 512, non?

Spoiler

Je mets en spoiler car c'est HS :
A part ça la procédure est un peu différente : le plus intéressant de l'algo de Mortim est son fondement sur la suite géométrique 1, 2, 4, 8, 16, 32, 64 (....)
En vérité j'ai avancé une bêtise en disant que cet algo était utile ici, puisqu'il est simple d'incrémenter un nombre de un point par frame comme tu l'as fait ou avec une décrémentation de frames en condition.
L'intéret essentiel de l'algo concerne des incrémentations d'effets portés par des objets-joueur comme les capacités ou malédictions (bref c'est utile surtout à créer des compétences sans utiliser "modStat" qui est on ne peut plus buguogène c'est bien connu -peut être ne l'est plus avec le Morrowind Code Patch ceci dit-).
En effet, si l'on utilise une base décimale, on va créer 10 capacités et il faudra en ajouter jusqu'à 9 sur le joueur pour chaque [dizaine - 1] (i.e. 29 == 20 +1 +1 +1 +1 +1 +1 +1 +1).
Avec cette suite, on échelonne le problème et il n'y a que dans les niveaux terminaux qu'on peut avoir une quantité importante d'ajouts d'effets mais toujours durant une seule valeur de niveau, avec un maximum de 8 effets pour la valeur totale 112 :
1 == 1
2 == 2
3 == 2 + 1 ; max
4 == 4
5 == 4 + 1
6 == 4 + 2
7 == 4 + 2 + 1 ; max
8 == 8
......
15 == 8 + 4 + 2 + 1 ; max
......
(29 == 16 + 8 + 4 + 1)
......
31 == 16 + 8 + 4 + 2 + 1 ; max
......
61 == 32 + 16 + 8 + 4 + 2 + 1 ; max
.....
(100 == 64 + 32 + 4)
......
112 == 64 + 32 + 16 + 8 + 4 + 2 + 1 ; max
On peut d'ailleurs sans doute, en se prenant un peu plus le chou, combiner des suites différentes tous les X décimales pour ne jamais avoir plus de 4 ou 5 ajouts (mais ce n'est pas très utile).
.... mais bon tant mieux si ça t'a suggéré une solution

EDIT (juste par intéret pour la pure spéculation!^^):
Oui, il serait assez simple de combiner la base décimale et la suite x'=x*2 :
en créant des effets 10, 20, 30, etc.. et la suite 1, 2, 4, 8 on n'a jamais que 4 ajouts au maximum :
17 == 10 + 1 + 2 + 4
18 == 10 + 8
19 == 10 + 8 + 1
20 == 20
Mais ce sera plus lourd à gérer que par les simples 8 blocs logiques logiquement enchaînés qu'implique la série stricte selon l'exemple de code de la méditation, et donc pas forcément intéressant.

Modifié par alliop, 26 avril 2009 - 02:49.

[elendell]

Von Zeeple, le 26.04.2009 à 01:52, dit :

Mais alors, pourquoi ne pas faire de ton bateau une créature, au lieu d'un activateur ou d'un misc item?

Kira, le 26.04.2009 à 02:10, dit :

Je crois qu'il y avait un problème de tressautement, mais Elendell doit mieux s'en rappeler, c'est lui qui a fait les tests....

Oui, le PJ se trouvait obligatoirement à l'intérieur de la créature/bateau. Les "SetPos" l'y maintenaient de force mais ça faisait des tremblements permanents de la créature qui essayait de rejeter la greffe de ce corps étranger.  
On a essayé d'autres systèmes en décalant le centre de la créature pour le placer hors du volume de collision du PJ mais l'effet était le même.

J'ai aussi essayé d'utiliser uniquement un activateur car, si mes souvenirs sont bons (ça remonte à fin 2008), avec "Move" et "Rotate" l'activateur permet de détecter la collision (mais pas avec "SetPos"). Seulement, ça fonctionnait en utilisant une petite barque mais avec un bateau plus grand (celui du meshe uilisé), ça faisait également des tremblements.

Du coup, je me suis orienté sur le Misc. La seule chose un peu gênante, c'est qu'un Misc doit obligatoirement avoir une icône. J'en ai faite une transparente mais même si on voit à travers, il y a quand même le carré sombre qui est visible quand le PJ se tourne vers le mat ou le pont.
Mais on l'oublie vite et je ne suis pas sûr que les aménagements que j'ai faits depuis auraient été possibles avec un activateur (comme le roulis lié à la vitesse quand il navigue).

alliop, le 26.04.2009 à 03:07, dit :

Euh.. mais si tout se passe dans la même frame, celà ne produit-il pas une accélération en une seule frame, c'est à dire pas d'accélération du tout mais un passage instantané à 512?
Pour qu'il y ait accélération il faut au contraire un incrément de un par frame jusqu'à 512, non?

La vitesse et la rotation en cours sont mémorisées mais les valeurs de "Move" et "Rotate" sont recalculées à chaque frame.
Je ne me souviens plus pourquoi j'avais dû faire ainsi. Peut-être parce que je fais jouer une valeur "d'inertie". Les changements de vitesse ne se font pas par paliers de 1. Plus la vitesse est grande et plus la valeur ajoutée augmente. Principe inverse pour le ralentissement.

Donc, au lieu d'avoir une vitesse qui augmente de façon linaire, on sent le voilier qui commence à prendre le vent, avec une certaine "lourdeur" au tout début et qui s'annule au fur et à mesure car on bénéficie pour aller encore plus vite, de la vitesse déjà acquise.
Pour le ralentissement, bien que je n'ai jamais fait de voile et ne sais donc pas ce qu'il en est en vrai, je trouvais mieux qu'il faille un certain temps pour vaincre la vitesse en cours car le voilier n'a pas de frein-moteur. Et même si c'est peut-être possible en vrai en jouant sur les voiles, ça oblige le joueur à prévoir un minimum le ralentissement nécessaire, pour arriver à vitesse minimale prêt du quai ou pour éviter les obstacles.

Pour les mêmes raisons ludiques, je ne lui permets pas de tourner instantanément à 90°. Comme ça, le joueur doit rester attentif et prévoyant s'il ne veut pas se payer un rocher ! J'ai un moment caressé l'idée de le faire chavirer s'il tournait trop brusquement mais je ne suis finalement pas allé jusque là.  

PS : Merci pour ton explication de l'algo. Je ne doute pas que ça me servira à l'occasion.  

[Not Quite Dead]

Bien le bonjour, comme j'ai un problème afférent et que celui d'elendell semble résolu, je me permets de poster ici.

Dans le cadre d'un piège faisant tomber des lances sur le sol, j'essaie de compenser les limitations SetAtStart par Get/SetAngle.

Voici ce qui devrait se passer dans le meilleur des mondes possibles:

Des activators avec un mesh de lance traversent en diagonale un couloir, blessant tout acteur touché, puis sont immédiatement replacés à leur position initiale lorsqu'ils touchent le sol et reprennent leur course. Chaque lance a sur les axes Y et Z une rotation (et donc une trajectoire) qui lui est propre. Le même script est attaché à chacune de ces lances.

Ayant constaté que SetAtStart tenait compte de la position X, Y, Z dans l'éditeur, mais pas de ses rotations X, Y, Z, j'ai essayé de compenser en me servant de GetAngle pour enregistrer les rotations propres aux lances en début de script, de manière à pouvoir les restaurer par la suite. Apparemment, ça ne fonctionne pas: comme avec SetAtStart, les rotations sont remises à 0 et non à leur position initiale dans l'éditeur.

Begin FoB_ThrownHurtingSpears

Short Setup
Float RotaY
Float RotaZ

if ( MenuMode == 1 )
	Return
endif

if ( Setup == 0 )
	Set RotaY to ( GetAngle, Y )
	Set RotaZ to ( GetAngle, Z )
	Set Setup to 1
endif

HurtCollidingActor 75

if ( GetPos Z <= -1300 )
	SetAtStart
	SetAngle, Y, RotaY
	SetAngle, Z, RotaZ
	MessageBox "reseté", "ok"
	Return
endif

Move Y 10

End FoB_ThrownHurtingSpears

Quelqu'un pourrait-il me dire où je fais erreur?

[alliop]

Je me souviens d'une très ancienne discussion sur un sujet voisin (il me semble), où Alree donnait pour solution de modifier l'axe 0 de l'item en l'axe voulu directement dans le .nif sous un éditeur 3D .

[elendell]

Salut !

Je n'ai jamais utilisé "SetAtStart" et découvre donc ses limitations (merci pour l'info).

Il est possible que, comme tu utilises "SetAtStart" et "SetAngle" dans la même frame, la limitation de la première empêche l'action de la deuxième.

A ta place, j'essaierais deux choses :

1) Utiliser une frame supplémentaire après le "SetAtStart", consacrée aux "SetAngle". Ils s'appliqueront alors sur l'objet déjà replacé à x, y, z d'origine.

2) Ne pas utiliser du tout "SetAtStart" mais "GetPos" et "SetPos" à la place.


Question : Pourquoi l'angle y ? Ne serait-ce pas l'angle x qu'il faudrait réinitialiser (ou les deux si la lance a une lame plate qui doit avoir un angle précis) ?

PS : Rappelles-moi à l'occasion de ne jamais me promener dans tes couloirs...  

[Not Quite Dead]

Après des tests, il semblerait que seul setangle Z fonctionne comme il faut.

En farfouillant sur le net, je suis tombé sur cet article qui confirme mes soupçons: les axes des x et des y ne sont probablement pas ceux du monde mais ceux de l'objet, de sorte que setangle Y fait tournoyer la lance sur elle-même au lieu de l'incliner en direction du sol comme le fait dans le tescs une rotation sur l'axe des Y.

Il va me falloir comprendre ces histoires de rapporteur dont parle Simpleton pour voir si j'arrive à tirer de la fonction ce dont j'ai besoin (orienter les lances sur l'axe des y).

[edit] Après d'autres tests ingame, j'ai pu expérimenter ce qui se passe a priori avec les setangle:

SetAngle X contrôle le tangage: un SetAngle X positif fait piquer du nez le mesh alors qu'un négatif le fait remonter.

Spoiler

SetAngle Y contrôle le roulis: un SetAngle Y positif incline le mesh sur sa gauche alors qu'un négatif l'incline sur sa droite.

Spoiler

SetAngle Z contrôle le lacet: un SetAngle Z positif fait pivoter le mesh sur sa droite alors qu'un négatif le fait pivoter sur sa gauche.

Spoiler

Trouver un script générique qui fonctionne pour toutes les lances risque d'être compliqué...[/edit]

[elendell]

Not Quite Dead, le 02.05.2009 à 16:31, dit :

les axes des x et des y ne sont probablement pas ceux du monde mais ceux de l'objet, de sorte que setangle Y fait tournoyer la lance sur elle-même au lieu de l'incliner en direction du sol comme le fait dans le tescs une rotation sur l'axe des Y.

Je confirme. C'était la raison de ma question :

elendell dit :

Pourquoi l'angle y ? Ne serait-ce pas l'angle x qu'il faudrait réinitialiser (ou les deux si la lance a une lame plate qui doit avoir un angle précis)

Si tu veux donner une inclinaison vers le sol, c'est l'angle x que tu dois utiliser et sur le côté (pour pencher à gauche par ex.), c'est l'angle y.

Mais c'est la même chose pour "SetAngle z". Quand tu utilises "SetAngle z", tu ne donnes pas une inclinaison vers la hauteur mais tu fais pivoter "autour" de l'axe z. Le point central de l'objet étant le point de pivot (où passe la ligne z).
Avec "SetAngle", tu dois considérer l'axe donné comme le pivot. Alors qu'avec "Move", le déplacement se fait le long de l'axe.

Avec les deux fonctions, les axes sont ceux de l'objet et nom du monde. Note : "GetAngle" retourne l'angle par rapport au monde car il ne peut pas retourner l'angle de l'objet par rapport à l'objet. Il serait toujours de 0.

EDIT :

Citation

Trouver un script générique qui fonctionne pour toutes les lances risque d'être compliqué...

Je ne vois pas pourquoi puisqu'il s'agit de replacer la lance à sa position d'origine avec son angle d'origine...

[Not Quite Dead]

elendell, le 02.05.2009 à 18:08, dit :

Not Quite Dead, le 02.05.2009 à 16:31, dit :

les axes des x et des y ne sont probablement pas ceux du monde mais ceux de l'objet, de sorte que setangle Y fait tournoyer la lance sur elle-même au lieu de l'incliner en direction du sol comme le fait dans le tescs une rotation sur l'axe des Y.

Je confirme. C'était la raison de ma question :

elendell dit :

Pourquoi l'angle y ? Ne serait-ce pas l'angle x qu'il faudrait réinitialiser (ou les deux si la lance a une lame plate qui doit avoir un angle précis)

Si tu veux donner une inclinaison vers le sol, c'est l'angle x que tu dois utiliser et sur le côté (pour pencher à gauche par ex.), c'est l'angle y.

Mais c'est la même chose pour "SetAngle z". Quand tu utilises "SetAngle z", tu ne donnes pas une inclinaison vers la hauteur mais tu fais pivoter "autour" de l'axe z. Le point central de l'objet étant le point de pivot (où passe la ligne z).
Avec "SetAngle", tu dois considérer l'axe donné comme le pivot. Alors qu'avec "Move", le déplacement se fait le long de l'axe.

Ne connaissant pas cette particularité de SetAngle, je m'étais mépris sur le sens de ta question. Je croyais jusqu'alors que SetAngle avait le même effet que la rotation. Du coup j'ai un peu l'impression d'avoir enfoncé des portes ouvertes.

elendell, le 02.05.2009 à 18:08, dit :

Citation

Trouver un script générique qui fonctionne pour toutes les lances risque d'être compliqué...

Je ne vois pas pourquoi puisqu'il s'agit de replacer la lance à sa position d'origine avec son angle d'origine...

Je vais me livrer à quelques essais (si possible ce soir) et te tiendrai au courant de mon succès ou de mes difficultés.

[elendell]

J'ai pris la liberté de faire quelques essais de mon côté. Je reconnais que la situation est troublante et j'ai mis pas mal de temps pour comprendre pourquoi ça ne fonctionnait pas.

En fait, tu n'as pas besoin de "SetAngle", et "SetAtStart" fonctionne très bien, si on considère qu'elle est destinée à replacer un objet à ses coordonnées d'origine (y compris les angles). Seulement, si elle redonne bien les angles donnés à l'objet, elle les redonne selon les angles du monde (comme les récupère "GetAngle").

Quand tu places un objet dans le Tescs, les plans changent car ils sont interdépendants. Par exemple : Tu poses une lance et ses angles sont de 0, 0, 0. Puis tu lui donnes une inclinaison en fixant l'angle x à 20. Si après ça tu donnes 260 à l'angle z, l'objet ne se positionnera pas à 260 de l'angle z du monde. Ceci car l'axe z n'est plus perpendiculaire au plan x0, y0 du monde.

Quand tu as incliné l'objet avec x 20, tu as incliné tout le plan. Donc l'axe z s'est incliné avec lui et le z 260 que tu as fait par la suite s'est fait sur ce nouveau plan incliné. A chaque fois que tu modifies un angle (dans le Tescs), tu modifies tout le plan. C'est pour cela que tu peux placer deux objets exactement au même endroit, en leur donnant pourtant des angles différents.

Par contre, quand tu fais "SetAtStart", il récupère les valeurs des angles prédéfinies ("GetAngle") et redonne chaque angle à l'objet par rapport à ses coordonnées locales mais selon le plan fixe du monde ! (Merci Bethesda pour cette différence  )

Concrètement, ce script suffit pour ton bonheur :

Begin FoB_ThrownHurtingSpears

Short Setup

if ( MenuMode == 1 )
	Return
endif

HurtCollidingActor 75

if ( Setup == 0 )
	SetAtStart
	Set Setup to 1
elseif ( GetPos Z <= -1300)
	Set Setup to 0
	Return
endif

Move Y 40

End FoB_ThrownHurtingSpears

Mais, pour placer chaque lance dans le Tescs, il faut traiter chaque angle un après l'autre. Par exemple : D'abord, tu lui donnes l'inclinaison souhaitée avec x, tu notes cet angle x et tu le remets à 0. Puis, avec tous les angles à 0, tu changes l'angle z pour l'orienter. Une fois qu'elle est bien orientée, tu lui redonnes l'angle x que tu avais noté.

Tu constates qu'elle n'a pas l'inclinaison que tu avais choisie quand z était à 0 mais cela n'a aucune importance (sauf que c'est un peu plus difficile pour visualiser le résultat) car le "SetAtStart" de la frame 0 va la placer dans la bonne position. Voili...

PS : J'ai testé avec une lance et non un activateur mais je ne vois pas pourquoi cela ferait une différence, sauf que je ne me suis pas préoccupé de "HurtCollidingActor".

[Not Quite Dead]

Cela fonctionne parfaitement, elendell.

Je te suis très reconnaissant d'être parvenu à résoudre en deux coups de cuillère à pot ce problème sur lequel je m'arrachais les cheveux depuis une bonne semaine. Comme ma femme me reproche une légère tendance à la calvitie, je me permets de te remercier également de sa part.

J'ai ajouté un son d'arbalète et augmenté leur vitesse. Lorsque j'aurai terminé la cellule, je posterai sans doute une petite vidéo sur le thread du mod, histoire que vous voyiez le résultat.