- Workaround on FreePascal textfiles parsing bug (indefinite loop while "read(f, a, b, c)")
- Update Makefile
/*
* Hedgewars, a worms-like game
* Copyright (c) 2005 Andrey Korotaev <unC0Rr@gmail.com>
*
* Distributed under the terms of the BSD-modified licence:
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* with the Software without restriction, including without limitation the
* rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
* sell copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* 1. Redistributions of source code must retain the above copyright notice,
* this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright notice,
* this list of conditions and the following disclaimer in the documentation
* and/or other materials provided with the distribution.
* 3. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
* EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <QtGui>
#include <QStringList>
#include <QProcess>
#include <QDir>
#include <QPixmap>
#include <QRegExp>
#include <QIcon>
#include <QFile>
#include <QTextStream>
#include "hwform.h"
#include "sdlkeys.h"
#include "hwconsts.h"
HWForm::HWForm(QWidget *parent)
: QMainWindow(parent)
{
ui.setupUi(this);
TeamNameEdit = new QLineEdit(ui.GBoxTeam);
TeamNameEdit->setGeometry(QRect(10, 20, 141, 20));
TeamNameEdit->setMaxLength(15);
for(int i = 0; i < 8; i++)
{
HHNameEdit[i] = new QLineEdit(ui.GBoxHedgehogs);
HHNameEdit[i]->setGeometry(QRect(10, 20 + i * 30, 141, 20));
HHNameEdit[i]->setMaxLength(15);
}
QStringList binds;
for(int i = 0; strlen(sdlkeys[i][1]) > 0; i++)
{
binds << sdlkeys[i][1];
}
quint16 widind = 0, top = 0;
for(quint8 i = 0; i < BINDS_NUMBER; i++)
{
LBind[i] = new QLabel(ui.BindsBox->widget(widind));
LBind[i]->setGeometry(QRect(10, top + 3, 70, 20));
LBind[i]->setText(cbinds[i].name);
LBind[i]->setAlignment(Qt::AlignRight);
CBBind[i] = new QComboBox(ui.BindsBox->widget(widind));
CBBind[i]->setGeometry(QRect(90, top, 80, 20));
CBBind[i]->addItems(binds);
if (cbinds[i].chwidget)
{
top = 0;
widind++;
} else
{
top += 28;
}
}
QDir tmpdir;
tmpdir.cd(DATA_PATH);
tmpdir.cd("Forts");
tmpdir.setFilter(QDir::Files);
ui.CBFort->addItems(tmpdir.entryList(QStringList("*L.png")).replaceInStrings(QRegExp("^(.*)L.png"), "\\1"));
tmpdir.cd("../Graphics/Graves");
QStringList list = tmpdir.entryList(QStringList("*.png"));
for (QStringList::Iterator it = list.begin(); it != list.end(); ++it )
{
ui.CBGrave->addItem((*it).replace(QRegExp("^(.*).png"), "\\1"));
}
cfgdir.setPath(cfgdir.homePath());
if (!cfgdir.exists(".hedgewars"))
{
if (!cfgdir.mkdir(".hedgewars"))
{
QMessageBox::critical(this,
tr("Error"),
tr("Cannot create directory %1").arg("/.hedgewars"),
tr("Quit"));
return ;
}
}
cfgdir.cd(".hedgewars");
list = cfgdir.entryList(QStringList("*.cfg"));
if(list.empty()) {
HWTeam defaultTeam("DefaultTeam");
defaultTeam.SetCfgDir(cfgdir.absolutePath());
defaultTeam.SaveToFile();
list.push_back("DefaultTeam");
}
pts=new TeamSelWidget(ui.Pages->widget(ID_PAGE_SINGLEPLAYER));
for (QStringList::Iterator it = list.begin(); it != list.end(); ++it )
{
QString tmpTeamStr=(*it).replace(QRegExp("^(.*).cfg$"), "\\1");
pts->addTeam(tmpTeamStr);
ui.CBTeamName->addItem(tmpTeamStr);
}
QFile settings(cfgdir.absolutePath() + "/options");
if (settings.open(QIODevice::ReadOnly))
{
QTextStream stream(&settings);
stream.setCodec("UTF-8");
QString str;
while (!stream.atEnd())
{
str = stream.readLine();
if (str.startsWith(";")) continue;
if (str.startsWith("resolution "))
{
ui.CBResolution->setCurrentIndex(str.mid(11).toLong());
} else
if (str.startsWith("fullscreen "))
{
ui.CBFullscreen->setChecked(str.mid(11).toLong());
} else
if (str.startsWith("nick "))
{
ui.editNetNick->setText(str.mid(5));
}
}
settings.close();
}
connect(ui.BtnSPBack, SIGNAL(clicked()), this, SLOT(GoToMain()));
connect(ui.BtnDemosBack, SIGNAL(clicked()), this, SLOT(GoToMain()));
connect(ui.BtnSetupBack, SIGNAL(clicked()), this, SLOT(GoToMain()));
connect(ui.BtnMPBack, SIGNAL(clicked()), this, SLOT(GoToMain()));
connect(ui.BtnNetBack, SIGNAL(clicked()), this, SLOT(GoToMain()));
connect(ui.BtnSinglePlayer, SIGNAL(clicked()), this, SLOT(GoToSinglePlayer()));
connect(ui.BtnSetup, SIGNAL(clicked()), this, SLOT(GoToSetup()));
connect(ui.BtnMultiplayer, SIGNAL(clicked()), this, SLOT(GoToMultiplayer()));
connect(ui.BtnDemos, SIGNAL(clicked()), this, SLOT(GoToDemos()));
connect(ui.BtnNet, SIGNAL(clicked()), this, SLOT(GoToNet()));
connect(ui.BtnNetCFGBack, SIGNAL(clicked()), this, SLOT(GoToNetChat()));
connect(ui.BtnNewTeam, SIGNAL(clicked()), this, SLOT(NewTeam()));
connect(ui.BtnEditTeam, SIGNAL(clicked()), this, SLOT(EditTeam()));
connect(ui.BtnTeamSave, SIGNAL(clicked()), this, SLOT(TeamSave()));
connect(ui.BtnTeamDiscard, SIGNAL(clicked()), this, SLOT(TeamDiscard()));
connect(ui.BtnSimpleGame, SIGNAL(clicked()), this, SLOT(SimpleGame()));
connect(ui.BtnSaveOptions, SIGNAL(clicked()), this, SLOT(SaveOptions()));
connect(ui.BtnPlayDemo, SIGNAL(clicked()), this, SLOT(PlayDemo()));
connect(ui.BtnNetConnect, SIGNAL(clicked()), this, SLOT(NetConnect()));
connect(ui.BtnNetChatDisconnect, SIGNAL(clicked()), this, SLOT(NetDisconnect()));
connect(ui.BtnNetChatJoin, SIGNAL(clicked()), this, SLOT(NetJoin()));
connect(ui.BtnNetChatCreate, SIGNAL(clicked()), this, SLOT(NetCreate()));
connect(ui.BtnNetCFGAddTeam, SIGNAL(clicked()), this, SLOT(NetAddTeam()));
connect(ui.BtnNetCFGGo, SIGNAL(clicked()), this, SLOT(NetStartGame()));
connect(ui.CBGrave, SIGNAL(activated(const QString &)), this, SLOT(CBGrave_activated(const QString &)));
connect(ui.CBFort, SIGNAL(activated(const QString &)), this, SLOT(CBFort_activated(const QString &)));
ui.Pages->setCurrentIndex(ID_PAGE_MAIN);
}
void HWForm::GoToMain()
{
ui.Pages->setCurrentIndex(ID_PAGE_MAIN);
}
void HWForm::GoToSinglePlayer()
{
ui.Pages->setCurrentIndex(ID_PAGE_SINGLEPLAYER);
pts->resize(500, 350);
pts->show();
}
void HWForm::GoToSetup()
{
ui.Pages->setCurrentIndex(ID_PAGE_SETUP);
}
void HWForm::GoToMultiplayer()
{
ui.Pages->setCurrentIndex(ID_PAGE_MULTIPLAYER);
}
void HWForm::GoToDemos()
{
QDir tmpdir;
tmpdir.cd(DATA_PATH);
tmpdir.cd("Demos");
tmpdir.setFilter(QDir::Files);
ui.DemosList->clear();
ui.DemosList->addItems(tmpdir.entryList(QStringList("*.hwd_1")).replaceInStrings(QRegExp("^(.*).hwd_1"), "\\1"));
ui.Pages->setCurrentIndex(ID_PAGE_DEMOS);
}
void HWForm::GoToNet()
{
ui.Pages->setCurrentIndex(ID_PAGE_NET);
}
void HWForm::GoToNetChat()
{
ui.Pages->setCurrentIndex(ID_PAGE_NETCHAT);
}
void HWForm::NewTeam()
{
tmpTeam = new HWTeam("unnamed");
tmpTeam->SetCfgDir(cfgdir.absolutePath());
tmpTeam->SetToPage(this);
ui.Pages->setCurrentIndex(ID_PAGE_SETUP_TEAM);
}
void HWForm::EditTeam()
{
tmpTeam = new HWTeam(ui.CBTeamName->currentText());
tmpTeam->SetCfgDir(cfgdir.absolutePath());
tmpTeam->LoadFromFile();
tmpTeam->SetToPage(this);
ui.Pages->setCurrentIndex(ID_PAGE_SETUP_TEAM);
}
void HWForm::TeamSave()
{
tmpTeam->GetFromPage(this);
tmpTeam->SaveToFile();
delete tmpTeam;
ui.Pages->setCurrentIndex(ID_PAGE_SETUP);
}
void HWForm::TeamDiscard()
{
ui.Pages->setCurrentIndex(ID_PAGE_SETUP);
}
void HWForm::SimpleGame()
{
game = new HWGame(ui.CBResolution->currentIndex(), ui.CBFullscreen->isChecked());
game->AddTeam("DefaultTeam");
game->AddTeam("DefaultTeam");
game->StartLocal();
}
void HWForm::CBGrave_activated(const QString & gravename)
{
QPixmap pix(QString(DATA_PATH) + "/Graphics/Graves/" + gravename + ".png");
ui.GravePreview->setPixmap(pix.copy(0, 0, 32, 32));
}
void HWForm::CBFort_activated(const QString & fortname)
{
QPixmap pix(QString(DATA_PATH) + "/Forts/" + fortname + "L.png");
ui.FortPreview->setPixmap(pix);
}
void HWForm::SaveOptions()
{
QFile settings(cfgdir.absolutePath() + "/options");
if (!settings.open(QIODevice::WriteOnly))
{
QMessageBox::critical(this,
tr("Error"),
tr("Cannot save options to file %1").arg(settings.fileName()),
tr("Quit"));
return ;
}
QTextStream stream(&settings);
stream.setCodec("UTF-8");
stream << "; Generated by Hedgewars, do not modify" << endl;
stream << "resolution " << ui.CBResolution->currentIndex() << endl;
stream << "fullscreen " << ui.CBFullscreen->isChecked() << endl;
stream << "nick " << ui.editNetNick->text() << endl;
settings.close();
}
void HWForm::PlayDemo()
{
QListWidgetItem * curritem = ui.DemosList->currentItem();
if (!curritem)
{
QMessageBox::critical(this,
tr("Error"),
tr("Please, select demo from the list above"),
tr("OK"));
return ;
}
game = new HWGame(ui.CBResolution->currentIndex(), ui.CBFullscreen->isChecked());
game->PlayDemo(QString(DATA_PATH) + "/Demos/" + curritem->text() + ".hwd_1");
}
void HWForm::NetConnect()
{
hwnet = new HWNet(ui.CBResolution->currentIndex(), ui.CBFullscreen->isChecked());
connect(hwnet, SIGNAL(Connected()), this, SLOT(GoToNetChat()));
connect(hwnet, SIGNAL(AddGame(const QString &)), this, SLOT(AddGame(const QString &)));
connect(hwnet, SIGNAL(EnteredGame()), this, SLOT(NetGameEnter()));
connect(hwnet, SIGNAL(ChangeInTeams(const QStringList &)), this, SLOT(ChangeInNetTeams(const QStringList &)));
hwnet->Connect("172.19.5.168", 6667, ui.editNetNick->text());
}
void HWForm::NetDisconnect()
{
hwnet->Disconnect();
GoToNet();
}
void HWForm::AddGame(const QString & chan)
{
ui.ChannelsList->addItem(chan);
}
void HWForm::NetGameEnter()
{
ui.Pages->setCurrentIndex(ID_PAGE_NETCFG);
}
void HWForm::NetJoin()
{
hwnet->JoinGame("#hw");
}
void HWForm::NetCreate()
{
hwnet->JoinGame("#hw");
}
void HWForm::NetAddTeam()
{
HWTeam team("DefaultTeam");
team.SetCfgDir(cfgdir.absolutePath());
team.LoadFromFile();
hwnet->AddTeam(team);
}
void HWForm::NetStartGame()
{
hwnet->StartGame();
}
void HWForm::ChangeInNetTeams(const QStringList & teams)
{
ui.listNetTeams->clear();
ui.listNetTeams->addItems(teams);
}