From 2648bf52507205e7b00898cf2f5b6a3eb40e2229 Mon Sep 17 00:00:00 2001
From: mota23 <mota23@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 29 May 2007 16:57:11 +0000
Subject: Added: Support for Player Name Templates. Set Names in config.ini
 ([NameTemplate], Name1..12=text and recall in Name-Screens with F1..F12. Fix:
 All 12 player- and 3 teamnames are now saved in config.ini

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@237 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenName.pas        | 51 +++++++++++++++++++++++++
 Game/Code/Screens/UScreenPartyPlayer.pas | 65 ++++++++++++++++++++++++++++++++
 2 files changed, 116 insertions(+)

(limited to 'Game/Code/Screens')

diff --git a/Game/Code/Screens/UScreenName.pas b/Game/Code/Screens/UScreenName.pas
index e2a80687..1b90c570 100644
--- a/Game/Code/Screens/UScreenName.pas
+++ b/Game/Code/Screens/UScreenName.pas
@@ -32,6 +32,57 @@ begin
           Button[Interaction].Text[0].Text := Button[Interaction].Text[0].Text + chr(ScanCode);
         end;
 
+      // Templates for Names Mod
+      SDLK_F1:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[0];
+        end;
+      SDLK_F2:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[1];
+        end;
+      SDLK_F3:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[2];
+        end;
+      SDLK_F4:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[3];
+        end;
+      SDLK_F5:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[4];
+        end;
+      SDLK_F6:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[5];
+        end;
+      SDLK_F7:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[6];
+        end;
+      SDLK_F8:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[7];
+        end;
+      SDLK_F9:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[8];
+        end;
+      SDLK_F10:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[9];
+        end;
+      SDLK_F11:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[10];
+        end;
+      SDLK_F12:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[11];
+        end;
+
+
       SDLK_BACKSPACE:
         begin
           Button[Interaction].Text[0].DeleteLastL;
diff --git a/Game/Code/Screens/UScreenPartyPlayer.pas b/Game/Code/Screens/UScreenPartyPlayer.pas
index f6bcb0b7..e8607470 100644
--- a/Game/Code/Screens/UScreenPartyPlayer.pas
+++ b/Game/Code/Screens/UScreenPartyPlayer.pas
@@ -61,6 +61,56 @@ begin
           Button[Interaction].Text[0].Text := Button[Interaction].Text[0].Text + chr(ScanCode);
         end;
 
+      // Templates for Names Mod
+      SDLK_F1:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[0];
+        end;
+      SDLK_F2:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[1];
+        end;
+      SDLK_F3:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[2];
+        end;
+      SDLK_F4:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[3];
+        end;
+      SDLK_F5:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[4];
+        end;
+      SDLK_F6:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[5];
+        end;
+      SDLK_F7:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[6];
+        end;
+      SDLK_F8:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[7];
+        end;
+      SDLK_F9:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[8];
+        end;
+      SDLK_F10:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[9];
+        end;
+      SDLK_F11:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[10];
+        end;
+      SDLK_F12:
+        begin
+          Button[Interaction].Text[0].Text := Ini.NameTemplate[11];
+        end;
+
       SDLK_BACKSPACE:
         begin
           Button[Interaction].Text[0].DeleteLastL;
@@ -135,6 +185,21 @@ procedure TScreenPartyPlayer.onShow;
 var
   I:    integer;
 begin
+  // Templates for Names Mod
+  for I := 1 to 4 do
+    Button[I].Text[0].Text := Ini.Name[I-1];
+
+  for I := 6 to 9 do
+    Button[I].Text[0].Text := Ini.Name[I-2];
+
+  for I := 11 to 14 do
+    Button[I].Text[0].Text := Ini.Name[I-3];
+
+    Button[0].Text[0].Text := Ini.NameTeam[0];
+    Button[5].Text[0].Text := Ini.NameTeam[1];
+    Button[10].Text[0].Text := Ini.NameTeam[2];
+    // Templates for Names Mod end
+  
   If (PartySession.Teams.NumTeams>=1) then
   begin
     Button[0].Visible := True;
-- 
cgit v1.2.3