Changeset 182
- Timestamp:
- Feb 9, 2018, 10:06:13 AM (7 years ago)
- Location:
- trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormPlayersStats.lfm
r181 r182 3 3 Height = 300 4 4 Top = 237 5 Width = 5965 Width = 697 6 6 Caption = 'Players stats' 7 7 ClientHeight = 300 8 ClientWidth = 5968 ClientWidth = 697 9 9 DesignTimePPI = 120 10 10 OnClose = FormClose … … 15 15 Height = 292 16 16 Top = 4 17 Width = 58817 Width = 689 18 18 Align = alClient 19 19 BorderSpacing.Around = 4 … … 21 21 item 22 22 Caption = 'Name' 23 Width = 100 24 end 25 item 26 Caption = 'Mode' 23 27 Width = 100 24 28 end … … 40 44 end> 41 45 OwnerData = True 46 PopupMenu = PopupMenu1 42 47 ReadOnly = True 43 48 RowSelect = True … … 46 51 OnData = ListView1Data 47 52 end 53 object PopupMenu1: TPopupMenu 54 left = 143 55 top = 110 56 object MenuItem1: TMenuItem 57 Action = ASpectate 58 end 59 end 60 object ActionList1: TActionList 61 left = 358 62 top = 111 63 object ASpectate: TAction 64 Caption = 'Spectate' 65 OnExecute = ASpectateExecute 66 end 67 end 48 68 end -
trunk/Forms/UFormPlayersStats.pas
r181 r182 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 9 UGame;9 Menus, ActnList, UGame; 10 10 11 11 type … … 14 14 15 15 TFormPlayersStats = class(TForm) 16 ASpectate: TAction; 17 ActionList1: TActionList; 16 18 ListView1: TListView; 19 MenuItem1: TMenuItem; 20 PopupMenu1: TPopupMenu; 21 procedure ASpectateExecute(Sender: TObject); 17 22 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 18 23 procedure FormShow(Sender: TObject); … … 43 48 with TPlayer(Players[Item.Index]) do begin 44 49 Item.Caption := Name; 50 Item.Data := Players[Item.Index]; 51 Item.SubItems.Add(PlayerModeText[Mode]); 45 52 Item.SubItems.Add(IntToStr(TotalCells)); 46 53 Item.SubItems.Add(IntToStr(TotalDiscovered)); … … 63 70 end; 64 71 72 procedure TFormPlayersStats.ASpectateExecute(Sender: TObject); 73 begin 74 if Assigned(ListView1.Selected) then 75 Core.Spectate(TPlayer(ListView1.Selected.Data)); 76 end; 77 65 78 procedure TFormPlayersStats.ReloadList; 66 79 begin -
trunk/Languages/xtactics.cs.po
r181 r182 522 522 msgstr "Počátečních jednotek:" 523 523 524 #: tformplayersstats.aspectate.caption 525 msgid "Spectate" 526 msgstr "Pozorovat" 527 524 528 #: tformplayersstats.caption 525 529 msgid "Players stats" … … 532 536 533 537 #: tformplayersstats.listview1.columns[1].caption 538 msgid "Mode" 539 msgstr "Režim" 540 541 #: tformplayersstats.listview1.columns[2].caption 534 542 msgid "Cells" 535 msgstr "Buňky"536 537 #: tformplayersstats.listview1.columns[2].caption538 msgid "Discovered"539 543 msgstr "Objevených" 540 544 541 545 #: tformplayersstats.listview1.columns[3].caption 542 546 msgctxt "tformplayersstats.listview1.columns[3].caption" 547 msgid "Discovered" 548 msgstr "Města" 549 550 #: tformplayersstats.listview1.columns[4].caption 551 msgctxt "tformplayersstats.listview1.columns[4].caption" 543 552 msgid "Cities" 544 msgstr "Města" 545 546 #: tformplayersstats.listview1.columns[4].caption 553 msgstr "Jednotky" 554 555 #: tformplayersstats.listview1.columns[5].caption 556 msgctxt "tformplayersstats.listview1.columns[5].caption" 547 557 msgid "Units" 548 558 msgstr "Jednotky" … … 690 700 691 701 #: uformhelp.scontent 692 msgid "" 693 "xTactics is a risk based strategic game. Main focus of the game is to offer player various possibilities to configure game conditions. Map for game is generated randomly for each play. Game is multiplayer so single player can play with other human opponents or with many computer opponents.\n" 702 msgid "xTactics is a risk based strategic game. Main focus of the game is to offer player various possibilities to configure game conditions. Map for game is generated randomly for each play. Game is multiplayer so single player can play with other human opponents or with many computer opponents.\n" 694 703 "\n" 695 704 "Each cell has defined number of units which can be instructed to attack enemy or neutral adjacent cells. Units can also defend against enemy attach from adjacent cells. You can move units inside your territory. \n" … … 697 706 "\n" 698 707 "Resolution of attack of units is determined by rule similar to one which is used in Risk game. Battle consist of several fights. Each fight attacker can use up to 3 units and defender up to 2 units. Number of units for each side determine number of dices. Both sides roll their dices and order them in descending order. Each side takes one dice with highest value. One who has dice with higher value wins. In case of tie, defender wins. Loser lose its unit and another pair of dices is evaluated. This process is calculated automatically and for each planned attack win probability is displayed.\n" 699 msgstr""700 "xTactics je strategická hra založena na hře Risk. Hlavní zaměření hry je nabídnout hráči různé možnosti k nastavení podmínek hry. Mapa hry je generována náhodně pro každou hru. Hra je pro více hráčů takže jeden hráč může hrát s dalšími lidskými protivníky nebo s mnoha počítačovými protivníky.\n"708 "" 709 msgstr "xTactics je strategická hra založena na hře Risk. Hlavní zaměření hry je nabídnout hráči různé možnosti k nastavení podmínek hry. Mapa hry je generována náhodně pro každou hru. Hra je pro více hráčů takže jeden hráč může hrát s dalšími lidskými protivníky nebo s mnoha počítačovými protivníky.\n" 701 710 "\n" 702 711 "Každá buňka má určitý počet jednotek, které mohou být použity k útoku na přilehlé nepřátelské nebo neutrální buňky. Jednotky se mohou bránit proti nepřátelském útoku z přilehlých buněk. Můžete přesouvat jednotky uvnitř území.\n" … … 704 713 "\n" 705 714 "Vyhodnocení útoku jednotek je určen pravidlem podobným tomu, které je použito u hry Risk. Bitva se skládá z několika bojů. Každá boj útočník může použít do 3 jednotek a obránce do 2 jednotek. Počet jednotek pro každou stranu určuje počet kostek. Obě strany házejí jejich kostkami a seřadí je v sestupném pořadí. Každá strana bere jednu kostku s nejvyšší hodnotou. Ten, který má kostku s vyšší hodnotou vyhrává. V případě remízy, vyhrává obránce. Prohrávající ztrácí své jednotky a další pár kostek je vyhodnocen. Tento proces je vypočítáván automaticky a pro každý plánovaný útok je zobrazena odhadovaná pravděpodobnost.\n" 715 "" 706 716 707 717 #: uformmain.sturn -
trunk/Languages/xtactics.po
r181 r182 507 507 msgstr "" 508 508 509 #: tformplayersstats.aspectate.caption 510 msgid "Spectate" 511 msgstr "" 512 509 513 #: tformplayersstats.caption 510 514 msgid "Players stats" … … 517 521 518 522 #: tformplayersstats.listview1.columns[1].caption 523 msgid "Mode" 524 msgstr "" 525 526 #: tformplayersstats.listview1.columns[2].caption 519 527 msgid "Cells" 520 msgstr ""521 522 #: tformplayersstats.listview1.columns[2].caption523 msgid "Discovered"524 528 msgstr "" 525 529 526 530 #: tformplayersstats.listview1.columns[3].caption 527 531 msgctxt "tformplayersstats.listview1.columns[3].caption" 532 msgid "Discovered" 533 msgstr "" 534 535 #: tformplayersstats.listview1.columns[4].caption 536 msgctxt "tformplayersstats.listview1.columns[4].caption" 528 537 msgid "Cities" 529 538 msgstr "" 530 539 531 #: tformplayersstats.listview1.columns[4].caption 540 #: tformplayersstats.listview1.columns[5].caption 541 msgctxt "tformplayersstats.listview1.columns[5].caption" 532 542 msgid "Units" 533 543 msgstr "" -
trunk/UCore.pas
r181 r182 91 91 //CurrentClient: TClient; 92 92 LocalClients: TObjectList; // TClient 93 procedure Spectate(Player: TPlayer); 93 94 procedure UpdateActions; 94 95 procedure Init; … … 359 360 360 361 procedure TCore.ANewSpectatorClientExecute(Sender: TObject); 361 var 362 Form: TFormClient; 363 begin 364 Form := TFormClient.Create(nil); 365 Form.Client := Game.Server.Clients.New(SSpectator); 366 //Form.Client.Form := Form; 367 Form.AZoomAll.Execute; 368 Form.Show; 362 begin 363 Spectate(nil); 369 364 end; 370 365 … … 480 475 end; 481 476 477 procedure TCore.Spectate(Player: TPlayer); 478 var 479 Form: TFormClient; 480 begin 481 Form := TFormClient.Create(nil); 482 Form.Client := Game.Server.Clients.New(SSpectator); 483 //Form.Client.Form := Form; 484 //Form.Client.ControlPlayer := Player; 485 Form.AZoomAll.Execute; 486 Form.Show; 487 end; 488 482 489 procedure TCore.StartNewGame; 483 490 begin
Note:
See TracChangeset
for help on using the changeset viewer.