diff --git a/Programs.pas b/Programs.pas index 574b4ee..343d194 100644 --- a/Programs.pas +++ b/Programs.pas @@ -64,10 +64,9 @@ 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); until FindNext(rFileDesc) <> 0; FindClose(rFileDesc); end; @@ -102,7 +101,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 } 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