afegit intèrpret ascii, doc d'API i fonts Pascal originals

2026-05-15 09:56:56 +02:00
parent 6d6ee4b635
commit 503d25440b
61 changed files with 10929 additions and 0 deletions
@@ -0,0 +1,156 @@
+unit input;
+
+interface
+
+uses jinput;
+
+const
+ T_UP    = KeyQ;
+ T_DOWN  = KeyA;
+ T_LEFT  = KeyO;
+ T_RIGHT = KeyP;
+ T_OK    = KeySPACE;
+ T_NOK   = KeyM;
+
+ retard_tecla = 10; { per a controlar les pulsacions de tecles }
+
+var
+ tecla   : word;    { per a controlar les pulsacions de tecles }
+ J_OK : boolean;    { indica la disponibilitat del Gamepad     }
+
+procedure Check_Joystick;
+{ Funcio: Coloca en la variable global J_OK si esta el gamepad conectat }
+function i_amunt:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+function i_avall:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+function i_esquerra:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+function i_dreta:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+function i_ok:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+function i_nok:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+function i_esc:boolean;
+{ Funcio: mira si hem pulsat ESC }
+
+implementation
+{############################################################################
+ #####                C H E C K   J O Y S T I C K                       #####
+ ############################################################################}
+procedure Check_Joystick;
+{ Funcio: Coloca en la variable global J_OK si esta el gamepad conectat }
+begin
+ if (joyavaliable(joystick1)) then J_OK := TRUE else J_OK := FALSE;
+end;
+{############################################################################
+ #####                         A M U N T                                #####
+ ############################################################################}
+function i_amunt:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+begin
+ i_amunt := FALSE;
+ if tecla=0 then
+  if ((J_OK) and (joystick(joystick1_Y)=joy1_MIN_Y))
+     or (TeclaPuls(T_UP)) then
+    begin
+     i_amunt := TRUE;
+     tecla := retard_tecla;
+    end;
+end;
+{############################################################################
+ #####                         A V A L L                                #####
+ ############################################################################}
+function i_avall:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+begin
+ i_avall := FALSE;
+ if tecla=0 then
+  if ((J_OK) and (joystick(joystick1_Y)=joy1_MAX_Y))
+     or (TeclaPuls(T_DOWN)) then
+    begin
+     i_avall := TRUE;
+     tecla := retard_tecla;
+    end;
+end;
+{############################################################################
+ #####                        D R E T A                                 #####
+ ############################################################################}
+function i_dreta:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+begin
+ i_dreta := FALSE;
+ if tecla=0 then
+  if ((J_OK) and (joystick(joystick1_X)=joy1_MAX_X))
+     or (TeclaPuls(T_RIGHT)) then
+  begin
+   i_dreta := TRUE;
+   tecla := retard_tecla;
+  end;
+end;
+{############################################################################
+ #####                       E S Q U E R R A                            #####
+ ############################################################################}
+function i_esquerra:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+begin
+ i_esquerra := FALSE;
+ if tecla=0 then
+  if ((J_OK) and (joystick(joystick1_X)=joy1_MIN_X))
+     or (TeclaPuls(T_LEFT)) then
+    begin
+     i_esquerra := TRUE;
+     tecla := retard_tecla;
+    end;
+end;
+{############################################################################
+ #####                       B O T O   O K                             #####
+ ############################################################################}
+function i_ok:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+begin
+ i_ok := FALSE;
+ if tecla=0 then
+  if ((J_OK) and (jbotons(button1_2)<>0))
+     or (TeclaPuls(T_OK)) then
+    begin
+     i_ok := TRUE;
+     tecla := retard_tecla+5;
+    end;
+end;
+{############################################################################
+ #####                       B O T O   N O K                            #####
+ ############################################################################}
+function i_nok:boolean;
+{ Funcio: mira si hem pulsat la tecla o el Gamepad }
+begin
+ i_nok := FALSE;
+ if tecla=0 then
+  if ((J_OK) and (jbotons(button1_1)<>0))
+     or (TeclaPuls(T_NOK)) then
+    begin
+     i_nok := TRUE;
+     tecla := retard_tecla+5;
+    end;
+end;
+{############################################################################
+ #####                       B O T O   E S C                            #####
+ ############################################################################}
+function i_esc:boolean;
+{ Funcio: mira si hem pulsat el ESC }
+begin
+ i_esc := FALSE;
+ if TeclaPuls(KeyESC) then
+  i_esc := TRUE;
+end;
+{############################################################################}
+
+begin
+
+ Joy1_MAX_X := 144;
+ Joy1_MIN_X :=  17;
+ Joy1_MAX_Y := 144;
+ Joy1_MIN_Y :=  17;
+
+end.