From 0fb0a8ef6e83e86f7e895d39f047f7f08389906a Mon Sep 17 00:00:00 2001 From: agreatnate Date: Mon, 21 Oct 2019 20:24:43 -0400 Subject: [PATCH 1/3] Fixed Path Delimiters in Programs.pas for Windows --- Programs.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Programs.pas b/Programs.pas index 574b4ee..1082fa3 100644 --- a/Programs.pas +++ b/Programs.pas @@ -64,7 +64,7 @@ procedure TfPrograms.FormShow(Sender: TObject); begin // load program list lstPrgFile.Items.Clear; - if FindFirst(sG_AppPath+'players/*.trp', faAnyFile, rFileDesc) = 0 then begin + if FindFirst(sG_AppPath+'players'+PathDelim+'*.trp', faAnyFile, rFileDesc) = 0 then begin repeat lstPrgFile.Items.Add(rFileDesc.Name); writeln(rfileDesc.Name); @@ -102,7 +102,7 @@ procedure TfPrograms.lstPrgFileClick(Sender: TObject); begin if lstPrgFile.ItemIndex<0 then exit; txtPrgDesc.Clear; - AssignFile(fTRP,sG_AppPath+'players/'+lstPrgFile.Items[lstPrgFile.ItemIndex]); + AssignFile(fTRP,sG_AppPath+'players'+PathDelim+lstPrgFile.Items[lstPrgFile.ItemIndex]); Reset(fTRP); try // read initial comment delimited by { and } From 9d3ab9848ca95033e66c0dd027863f9c015098d0 Mon Sep 17 00:00:00 2001 From: McNew Date: Mon, 21 Oct 2019 20:49:49 -0400 Subject: [PATCH 2/3] Remove Console output from Programs.pas (Doesn't work in Windows) --- Programs.pas | 1 - 1 file changed, 1 deletion(-) diff --git a/Programs.pas b/Programs.pas index 1082fa3..343d194 100644 --- a/Programs.pas +++ b/Programs.pas @@ -67,7 +67,6 @@ procedure TfPrograms.FormShow(Sender: TObject); if FindFirst(sG_AppPath+'players'+PathDelim+'*.trp', faAnyFile, rFileDesc) = 0 then begin repeat lstPrgFile.Items.Add(rFileDesc.Name); - writeln(rfileDesc.Name); until FindNext(rFileDesc) <> 0; FindClose(rFileDesc); end; From e5adfba44f68d6e81f6e238030fe05bc6548ef61 Mon Sep 17 00:00:00 2001 From: McNew Date: Mon, 21 Oct 2019 20:51:01 -0400 Subject: [PATCH 3/3] Include default TurboRisk.INI file for first run --- TurboRisk.INI | 160 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 160 insertions(+) create mode 100644 TurboRisk.INI diff --git a/TurboRisk.INI b/TurboRisk.INI new file mode 100644 index 0000000..1abea8a --- /dev/null +++ b/TurboRisk.INI @@ -0,0 +1,160 @@ +[News] +LastRead=20191021 + +[Windows] +MainTop=237 +MainLeft=476 +StatsTop=0 +StatsLeft=0 +StatsVisible=0 +StatsTer=1 +StatsArm=1 +StatsCon=1 +StatsCar=1 +StatsCTIV=1 +LogTop=0 +LogLeft=0 +LogWidth=100 +LogHeight=100 +LogVisible=0 +HistoryTop=0 +HistoryLeft=0 +HistoryWidth=500 +HistoryHeight=400 + +[Pref] +ShowToolbar=1 +Toolbar=011111000000000 +ExpertAttack=0 +MapHooverOn=1 +MapSelectedOn=1 +MapHooverP=-20 +MapSelectedP=-20 +ConfirmAbort=1 +CheckUpdate=0 + +[Map] +File=std_map_small.trm + +[Rules] +Assignment=0 +InitArmies2=40 +InitArmies3=35 +InitArmies4=30 +InitArmies5=25 +InitArmies6=20 +InitArmies7=20 +InitArmies8=20 +InitArmies9=20 +InitArmies10=20 +CardUsage=1 +ArtSetValue=4 +InfSetValue=6 +CavSetValue=8 +DifSetValue=10 +TradeValue1=4 +TradeValue2=6 +TradeValue3=8 +TradeValue4=10 +TradeValue5=12 +TradeValue6=15 +TradeValue7=20 +TradeValue8=25 +TradeValueInc=5 +MaxHeldCards=5 +TradeCapturedCards=1 +AllowAttackAfterMove=1 + +[Player1] +Name=human +Active=1 +Color=16711680 +Computer=0 +Log=0 +AutoCards=1 +PrgFile= + +[Player2] +Name=napoleon +Active=1 +Color=255 +Computer=1 +Log=0 +AutoCards=1 +PrgFile=napoleon.trp + +[Player3] +Name=rambo +Active=1 +Color=32768 +Computer=1 +Log=0 +AutoCards=1 +PrgFile=rambo.trp + +[Player4] +Name=simple +Active=1 +Color=65535 +Computer=1 +Log=0 +AutoCards=1 +PrgFile=simple.trp + +[Player5] +Name= +Active=0 +Color=16776960 +Computer=0 +Log=0 +AutoCards=1 +PrgFile= + +[Player6] +Name= +Active=0 +Color=16711935 +Computer=0 +Log=0 +AutoCards=1 +PrgFile= + +[Player7] +Name= +Active=0 +Color=65280 +Computer=0 +Log=0 +AutoCards=1 +PrgFile= + +[Player8] +Name= +Active=0 +Color=15793151 +Computer=0 +Log=0 +AutoCards=1 +PrgFile= + +[Player9] +Name= +Active=0 +Color=128 +Computer=0 +Log=0 +AutoCards=1 +PrgFile= + +[Player10] +Name= +Active=0 +Color=8388736 +Computer=0 +Log=0 +AutoCards=1 +PrgFile= + +[PlSets] +Count=5 +Set=1