pascal
/
luaedit
Mirror von https://github.com/luaforge/luaedit


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305
							<html>	
	<head>
		  <title>
		  		 Lier une Dll &agrave; LuaEdit (Tutoriel) - Contr&ocirc;ler et Lier le Jeu
		  </title>	
		  <link rel="stylesheet" href="..\Tutorial.css" type="text/css">
	</head>

	<body bgcolor="#FFFFFF" vlink="silver" alink="navy" link="navy">
		 <table width="100%" border="0" cellpadding="0" cellspacing="0" summary="">
				<tr> 
					<td valign="bottom">													  
						<div align="left">
							<b><font face="Tahoma" size="3" color="navy">Contr&ocirc;ler et Lier le Jeu</font></b>
						</div>	
					</td> 
					<td>
						<font face="Tahoma" size="1" color="silver">  
						<div align="right" valign="top">
							 <a href="http://www.lua.org">Page d'accueuil Lua</a>
						</div>	
						</font>
					</td>
				</tr>
				<tr valign="top">
					<td colspan="2">
						  <hr size="1" color="#000000">
						  <br>
						  <br>
						  <font face="Tahoma" size="2">
						  <p style="text-align:justify">
							 Maintenant que nous avons un bon "quelque chose" avec quoi d&eacute;marrer, c'est le temps de vraiment contr&ocirc;ler
							 le jeu &agrave; travers la boucle principale pr&eacute;cemment cr&eacute;&eacute;e.
						  </p>
						  <br> 
						  </font>
					</td>
				</tr> 
				<tr>
					<td colspan="2"> 	
						  <font face="Tahoma" size="2">	
						  <p style="text-align:justify"> 
						  	 Avant l'appel &agrave; la fonction simon.Create() pr&eacute;c&eacute;demment ajout&eacute;, nous allons ajouter un nouvel appel
							 &agrave; la fonction simon.SetMediaPath(). Ceci sp&eacute;cifiera au moteur du jeu d'analyser le r&eacute;pertoire
							 sp&eacute;cifi&eacute; pour trouver ses fichiers multim&eacute;dia (*.wav). Voici comment &agrave; quoi la boucle compl&egrave;te devrait
							 ressembler &agrave;:
						  </p> 
						  <br>
					</td>
				</tr>
				<tr>
					<td class="code" colspan="2">
						<br>
						<blockquote>
							-- Show Simon game main form<br>
							simon.SetMediaPath("C:\\Prog\\Delphi\\MNet\\Bin\\Medias")<br>
							simon.Create()<br><br>
							
							-- Main processing loop<br>
							while simon.GetPowerStatus() == 1 do<br>
								&nbsp;&nbsp;&nbsp;&nbsp;if simon.GetPlayStatus() == 1 then<br>
									&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;simon:Initialize()<br><br>
									
									&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-- Game processing loop<br>
									&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while GameState do<br>
										&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;UserSequenceCount = 0<br>
										&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;simon:AddSequence()<br>
										&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;simon:DisplayMessage("Simon's Turn!", "clRed", 750)<br>
										&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;simon:PlaySequence(MainSequence)<br><br>
										
										&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;simon:DisplayMessage("Your Turn!", "clLime", 1000)<br>
										&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GameState = simon.GetUserSequence(SequenceCount, 2000)<br><br>
										
										&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if simon:GetScore() > 1000 then<br>
											&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;simon:DisplayMessage("You Win!", "clAqua", -1)<br>
											&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GameState = false<br>
										&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end<br>
									&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end<br>
								&nbsp;&nbsp;&nbsp;&nbsp;end<br><br>
								
								&nbsp;&nbsp;&nbsp;&nbsp;-- Make sure the processor doesn't runs for no reason<br>
								&nbsp;&nbsp;&nbsp;&nbsp;Sleep(10)<br>
							end<br><br>
							
							simon.Destroy()<br>
						</blockquote>
					</td>						  
				</tr> 
				<tr>
					<td colspan="2"> 	
						  <font face="Tahoma" size="2">	
						  <br>
						  <br>	
						  <p style="text-align:justify"> 
						  	 La fonction simon.GetPowerStatus() est utilis&eacute; pour d&eacute;terminer si "l'allimentation" (dans notre 
							 cas virtuel) est toujours "ouverte". Si cette fonction retourne 1, cela signifie que "l'alimentation"
							 est toujours "ouverte". La fonction simon.GetPlayerStatus() retourne 1 si le joueur &agrave; appuy&eacute; sur le boutton "play".
							 Appeler simon.DisplayMessage() affichera la cha&icirc;ne de caract&egrave;res sp&eacute;cifi&eacute;e en utilisant la couleur sp&eacute;cifi&eacute;e 
							 (pour les codes de couleurs, jettez un coup d'oeil &agrave; la colonne "Delphi/C++ Builder" de ce
							 <a href="http://www.iocomp.com/support/helpvcl/ioc01592.htm">site web</a>) et
							 et la longueur sp&eacute;cifi&eacute;e en milisecondes. Dans notre cas, ceci sera utilis&eacute; afin de faire savoir au joueur &agrave; quel tour il s'agit.
							 La fonction simon.GetUserSequence() demandera au joueur d'entrer sa s&eacute;quence. Le premier argument
							 sp&eacute;cifie la dur&eacute;e de la s&eacute;quence &agrave; obtenir et le deuxi&egrave;me sp&eacute;cifie la valeur du "timeout"
							 en milisecondes &agrave; utiliser avant de consid&eacute;rer le tour comme &eacute;chec. En terme d'ex&eacute;cution,
							 dans la script Lua, cet appel devrait &ecirc;tre suspendre le code en attedant la r&eacute;ponse du joueur.
							 mais eventuellement d&eacute;clanchera un appel automatique du moteur du jeu &agrave; la fonction simon:OnButtonClick() chaque fois
							 le joueur appuiera un boutton depuis le jeu. Cette fonction retourne &eacute;gallement l'&eacute;tat de la partie
							 (false == "game over"). Maintenant, ce qui suit devrait bri&egrave;vement expliquer comment configurer la dll
							 en C++/Delphi pour actuellement permettre &agrave; LuaEdit de se lier &agrave; votre code, dans ce cas-ci: simon.dll. (La source
							 compl&egrave;te du code est disponible dans les sources du tutoriel mais pour des raison de temps et de complexit&eacute; ne sera pas expliqu&eacute; compl&egrave;tement en d&eacute;tails
							 comme la script simon.lua. Seul la partie "initializer" le sera.)
						  </p> 	
						  <p style="text-align:justify"> 
						  	 Comme discut&eacute; dans <a href=".\Page1_En.html">l'&eacute;tape 1</a> de ce tutoriel, votre dll DOIT exporter la
							 fonction sp&eacute;cifique LuaDebug_Initializer(). Cette fonction sera appel&eacute;e par LuaEdit juste avant de d&eacute;marrer
							 une session de d&eacute;bug. Nous allons ensuite utiliser ce "hook"/"callback" afin d'enregister toute les fonctions du
							 moteur du jeu pr&eacute;c&eacute;demment d&eacute;crite. Ceci tracera les fonctions en Lua et pr&eacute;viendra LuaEdit de notifier
							 des erreurs parce qu'il ne trouve peut trouver une r&eacute;f&eacute;rence &agrave; la fonction dans le script. De cette mani&egrave;re, le d&eacute;buggage en temps r&eacute;el
							 sera dispnible &agrave; travers LuaEdit.
						  </p>
						  <br>
						  <b>Delphi:</b> (Cette fonction doit &ecirc;tre ajout&eacute; dans l'instruction "exports" de votre code tout comme chacune des fonctions enregistr&eacute; &agrave; l'environnement Lua qui se trouve &agrave; l'int&eacute;rieur de celle-ci)
						  <br>
						  <br>
					</td>
				</tr>
				<tr>
					<td class="code" colspan="2">
						<br>
						<blockquote>						
								// Register a c function in a specified table<br>
								procedure LuaRegisterCustom(L: PLua_State; ndx: Integer; funcname: String; func: lua_CFunction);<br>
								begin<br>
									&nbsp;&nbsp;&nbsp;&nbsp;lua_pushstring(L, funcname);<br>
									&nbsp;&nbsp;&nbsp;&nbsp;lua_pushcfunction(L, func);<br>
									&nbsp;&nbsp;&nbsp;&nbsp;lua_rawset(L, ndx - 2);<br>
								end;<br><br>
												
								// Register a c function using the globalsindex constant<br>
								procedure LuaRegister(L: PLua_State; funcname: String; func: lua_CFunction);<br>
								begin<br>
									&nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, LUA_GLOBALSINDEX, funcname, func);<br>
								end;<br><br>
														
								// LuaEdit is calling this function everytime a script with a project<br>
								// specifying this dll as the initializer when debugging<br>
								function LuaDebug_Initializer(L: PLua_State): Integer;<br>
								begin<br>
								  	 &nbsp;&nbsp;&nbsp;&nbsp;// Create new table on the lua stack<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;lua_newtable(L);<br><br>
								
									 &nbsp;&nbsp;&nbsp;&nbsp;// Register delphi functions in that new table<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'SetMediaPath', SetMediaPath);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'SetLight', SetLight);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'Create', Create);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'Destroy', Destroy);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'GetUserSequence', GetUserSequence);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'GetPowerStatus', GetPowerStatus);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'GetPlayStatus', GetPlayStatus);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'SetScore', SetScore);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'GetScore', GetScore);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'LockControls', LockControls);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'UnlockControls', UnlockControls);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, 'DisplayMessage', DisplayMessage);<br><br>
									
									 &nbsp;&nbsp;&nbsp;&nbsp;// Register other miscalleneous functions<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegister(L, 'Sleep', LuaSleep);<br><br>
									
									 &nbsp;&nbsp;&nbsp;&nbsp;// Assing "simon" lua global variable to the new table<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;lua_setglobal(L, 'simon');<br>
								end;<br>
						</blockquote>
					</td>						  
				</tr>
				<tr>
					<td colspan="2"> 	
						  <font face="Tahoma" size="2">	
						  <br>
						  <br>
						  <b>C/C++:</b> (Cette fonction doit &ecirc;tre ajout&eacute; dans l'instruction "EXPORTS" de votre fichier *.def tout comme chacune des fonctions enregistr&eacute; &agrave; l'environnement Lua qui se trouve &agrave; l'int&eacute;rieur de celle-ci)
						  <br>
						  <br>
					</td>
				</tr> 
				<tr>
					<td class="code" colspan="2">
						<br>
						<blockquote>						
								// Register a c function in a specified table<br>
								void LuaRegisterCustom(lua_State *L, long ndx, const char* funcname, lua_CFunction func)<br>
								{<br>
									&nbsp;&nbsp;&nbsp;&nbsp;lua_pushstring(L, funcname);<br>
									&nbsp;&nbsp;&nbsp;&nbsp;lua_pushcfunction(L, func);<br>
									&nbsp;&nbsp;&nbsp;&nbsp;lua_rawset(L, ndx - 2);<br>
								}<br><br>
												
								// Register a c function using the globalsindex constant<br>
								void LuaRegister(lua_State *L, const char* funcname, lua_CFunction func)<br>
								{<br>
									&nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, LUA_GLOBALSINDEX, funcname, func);<br>
								}<br><br>
														
								// LuaEdit is calling this function everytime a script with a project<br>
								// specifying this dll as the initializer when debugging<br>
								int LuaDebug_Initializer(lua_State *L)<br>
								{<br>
								  	 &nbsp;&nbsp;&nbsp;&nbsp;// Create new table on the lua stack<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;lua_newtable(L);<br><br>
								
									 &nbsp;&nbsp;&nbsp;&nbsp;// Register delphi functions in that new table<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "SetMediaPath", SetMediaPath);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "SetLight", SetLight);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "Create", Create);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "Destroy", Destroy);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "GetUserSequence", GetUserSequence);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "GetPowerStatus", GetPowerStatus);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "GetPlayStatus", GetPlayStatus);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "SetScore", SetScore);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "GetScore", GetScore);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "LockControls", LockControls);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "UnlockControls", UnlockControls);<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegisterCustom(L, -1, "DisplayMessage", DisplayMessage);<br><br>
									
									 &nbsp;&nbsp;&nbsp;&nbsp;// Register other miscalleneous functions<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;LuaRegister(L, "Sleep", LuaSleep);<br><br>
									
									 &nbsp;&nbsp;&nbsp;&nbsp;// Assing "simon" lua global variable to the new table<br>
									 &nbsp;&nbsp;&nbsp;&nbsp;lua_setglobal(L, "simon");<br>
								}<br>
						</blockquote>
					</td>						  
				</tr>
				<tr>
					<td colspan="2"> 	
						  <font face="Tahoma" size="2">	
						  <br>
						  <br>	
						  <p style="text-align:justify"> 
						  	 Les fonctions LuaRegisterCustom() et LuaRegister() simplifieront la complexit&eacute; du code
							 &eacute;tant donn&eacute; le fait que nous aurions &agrave; r&eacute;p&eacute;ter ces 3 lignes de code pour chaque fonction qui
							 a besoins d'&ecirc;tre enregistr&eacute; &agrave; l'environnement Lua. Maintenant, pour compl&eacute;t&eacute; ce projet/turotiel,
							 tout ce dont vous avez besoins de faire est de vous inspirer du code fournis et de terminer cette dll. Comme mentionn&eacute;
							 ci-haut, cette partie ne sera pas expliqu&eacute; en d&eacute;tails.
						  </p>
						  <br>
						  <p style="text-align:justify">
						  	 Maintenant, vous devriez en avoir suffisamment vue pour savoir comment Lua interragit avec LuaEdit pour &eacute;ventuellement
							 b&acirc;tir votre propre projet de cette mani&egrave;re afin que le code Lua soit une chose facile &agrave; d&eacute;bogger.
							 J'esp&egrave;re grandement que ce tutoriel vous a aider de plusieurs mani&egrave;re. Si vous avez toujours des questions, vous pouvez toujours
							 poster une nouvelle "thread" dans la <a href="">section "Tutorial"</a> de notre forum ou sentez &agrave; l'aiser de
							 me contacter &agrave; l'addresse courriel suivante: <a href="mailto:[email protected]?subject=&Agrave; propos de Lier une Dll &agrave; LuaEdit (Tutoriel)...">
							 [email protected]</a>. Merci d'avoir utilis&eacute; ce tutoriel et bonne chance dans vos futur projets!
						  </p>
					</td>
				</tr>
				<tr>	  
					<td colspan="2">
							<font face="Tahoma" size="2">
					 	  	<br>
							<br>
							<b>Hints:</b>
							<ul type="square">		
								<li>Essayez le d&eacute;boggage en temps r&eacute;el avec la script que vous venez juste d'accomplir en utilisant le fichiers compil&eacute; simon.dll
									et lua.dll situ&eacute;s dans le r&eacute;pertoire bin du tutoriel. Copiez et collez le projet et la script Lua que venez
									de cr&eacute;er dans ce m&ecirc;me r&eacute;pertoire, lancez LuaEdit, ajoutez un "breakpoint" sur n'importe quelle ligne de code (pas de commentaire...)
									et appuyez sur "play".</li>				 
								<li>Essayez d'ajouter une logique de "Level" dans le code Lua en modifiant certaines variantes du jeu
								    comme la vitesse d'affichage de la s&eacute;quence, le "timeout" du joueur, le nombre d'item ajout&eacute;
									&agrave; la s&eacute;quence par tour, etc...</li>
								<li>D&eacute;fiez vos amis/amies avec une script modifi&eacute; "impossible &agrave; gagner"! :P</li>
								<li>Pour des utilisateurs plus avanc&eacute;, essayez d'ajouter un moteur multijoueur pour joueur sur un LAN.</li>
								<li>Impl&eacute;mentez une application *.exe qui lancera la dll de la m&ecirc;me mani&egrave;re que LuaEdit
									en appelant d'abord la fonction LuaDebug_Initializer() et ensuite en chargant
									la script Lua en utilisant l'API luaL_loadbuffer(). Jettez un coup d'oeil au code Delphi du projet SimonExec.</li>
							</ul>
						  </p> 
					</td>
				</tr> 
				<tr> 
					<td valign="bottom">													  
						<font face="Tahoma" size="2">
						<div align="left" valign="bottom">
							<a href=".\Page3_Fr.html">&lt;&lt; Pr&eacute;c&eacute;dent</a>
						</div>	
					</td>
				</tr>
				<tr>
					<td colspan="2">
						<font face="Tahoma" size="1" color="silver">
						<hr size="1" color="#000000">
							<div align="right">			  
								<a href="http://www.luaedit.org">www.luaedit.org</a>
								<br>
								&copy; Copyright 2004-2005 LuaEdit
								<br>
								Lier une Dll &agrave; LuaEdit (Tutoriel)
							</div>
						</font>
					</td>
				</tr>
		  </table>
	</body>
</html>