--- a/QTfrontend/campaign.cpp Sat Jul 27 04:20:49 2013 +0200
+++ b/QTfrontend/campaign.cpp Sat Jul 27 17:23:26 2013 +0300
@@ -17,47 +17,77 @@
*/
#include "campaign.h"
-
#include "hwconsts.h"
-
+#include "DataManager.h"
#include <QSettings>
-
+#include <QObject>
+#include <QLocale>
-QStringList getCampMissionList(QString & campaign)
-{
- QSettings campfile("physfs://Missions/Campaign/" + campaign + "/campaign.ini", QSettings::IniFormat, 0);
- campfile.setIniCodec("UTF-8");
- unsigned int mNum = campfile.value("MissionNum", 0).toInt();
-
- QStringList missionList;
- for (unsigned int i = 0; i < mNum; i++)
- {
- missionList += campfile.value(QString("Mission %1/Name").arg(i + 1)).toString();
- }
- return missionList;
-}
-
-unsigned int getCampProgress(QString & teamName, QString & campName)
+QList<MissionInfo> getCampMissionList(QString & campaignName, QString & teamName)
{
- QSettings teamfile(cfgdir->absolutePath() + "/Teams/" + teamName + ".hwt", QSettings::IniFormat, 0);
+ QList<MissionInfo> missionInfoList;
+ QSettings teamfile(cfgdir->absolutePath() + "/Teams/" + teamName + ".hwt", QSettings::IniFormat, 0);
teamfile.setIniCodec("UTF-8");
- return teamfile.value("Campaign " + campName + "/Progress", 0).toInt();
-}
+ int progress = teamfile.value("Campaign " + campaignName + "/Progress", 0).toInt();
+ int unlockedMissions = teamfile.value("Campaign " + campaignName + "/UnlockedMissions", 0).toInt();
+
+ QSettings campfile("physfs://Missions/Campaign/" + campaignName + "/campaign.ini", QSettings::IniFormat, 0);
+ campfile.setIniCodec("UTF-8");
+
+ DataManager & dataMgr = DataManager::instance();
+ // get locale
+ QSettings settings(dataMgr.settingsFileName(),
+ QSettings::IniFormat);
+ QString loc = settings.value("misc/locale", "").toString();
+ if (loc.isEmpty())
+ loc = QLocale::system().name();
+ QString campaignDescFile = QString("physfs://Locale/campaigns_" + loc + ".txt");
+ // if file is non-existant try with language only
+ if (!QFile::exists(campaignDescFile))
+ campaignDescFile = QString("physfs://Locale/campaigns_" + loc.remove(QRegExp("_.*$")) + ".txt");
+
+ // fallback if file for current locale is non-existant
+ if (!QFile::exists(campaignDescFile))
+ campaignDescFile = QString("physfs://Locale/campaigns_en.txt");
-QString getCampaignScript(QString campaign, unsigned int mNum)
-{
- QSettings campfile("physfs://Missions/Campaign/" + campaign + "/campaign.ini", QSettings::IniFormat, 0);
- campfile.setIniCodec("UTF-8");
- return campfile.value(QString("Mission %1/Script").arg(mNum)).toString();
+ QSettings m_info(campaignDescFile, QSettings::IniFormat, 0);
+ m_info.setIniCodec("UTF-8");
+
+ if(progress>=0 and unlockedMissions==0)
+ {
+ for(unsigned int i=progress+1;i>0;i--)
+ {
+ MissionInfo missionInfo;
+ missionInfo.name = campfile.value(QString("Mission %1/Name").arg(i)).toString();
+ QString script = campfile.value(QString("Mission %1/Script").arg(i)).toString();
+ missionInfo.script = script;
+ missionInfo.description = m_info.value(campaignName+"-"+ script.replace(QString(".lua"),QString("")) + ".desc",
+ QObject::tr("No description available")).toString();
+ QString image = campfile.value(QString("Mission %1/Script").arg(i)).toString().replace(QString(".lua"),QString(".png"));
+ missionInfo.image = ":/res/campaign/"+campaignName+"/"+image;
+ if (!QFile::exists(missionInfo.image))
+ missionInfo.image = ":/res/CampaignDefault.png";
+ missionInfoList.append(missionInfo);
+ }
+ }
+ else if(unlockedMissions>0)
+ {
+ for(int i=1;i<=unlockedMissions;i++)
+ {
+ QString missionNum = QString("%1").arg(i);
+ int missionNumber = teamfile.value("Campaign " + campaignName + "/Mission"+missionNum, -1).toInt();
+ MissionInfo missionInfo;
+ missionInfo.name = campfile.value(QString("Mission %1/Name").arg(missionNumber)).toString();
+ QString script = campfile.value(QString("Mission %1/Script").arg(missionNumber)).toString();
+ missionInfo.script = script;
+ missionInfo.description = m_info.value(campaignName+"-"+ script.replace(QString(".lua"),QString("")) + ".desc",
+ QObject::tr("No description available")).toString();
+ QString image = campfile.value(QString("Mission %1/Script").arg(missionNumber)).toString().replace(QString(".lua"),QString(".png"));
+ missionInfo.image = ":/res/campaign/"+campaignName+"/"+image;
+ if (!QFile::exists(missionInfo.image))
+ missionInfo.image = ":/res/CampaignDefault.png";
+ missionInfoList.append(missionInfo);
+ }
+ }
+ return missionInfoList;
}
-
-QString getCampaignImage(QString campaign, unsigned int mNum)
-{
- return getCampaignScript(campaign,mNum).replace(QString(".lua"),QString(".png"));
-}
-
-QString getCampaignMissionName(QString campaign, unsigned int mNum)
-{
- return getCampaignScript(campaign,mNum).replace(QString(".lua"),QString(""));
-}
-
--- a/QTfrontend/campaign.h Sat Jul 27 04:20:49 2013 +0200
+++ b/QTfrontend/campaign.h Sat Jul 27 17:23:26 2013 +0300
@@ -20,12 +20,16 @@
#define CAMPAIGN_H
#include <QString>
-#include <QStringList>
-QStringList getCampMissionList(QString & campaign);
-unsigned int getCampProgress(QString & teamName, QString & campName);
-QString getCampaignScript(QString campaign, unsigned int mNum);
-QString getCampaignImage(QString campaign, unsigned int mNum);
-QString getCampaignMissionName(QString campaign, unsigned int mNum);
+class MissionInfo
+{
+ public:
+ QString name;
+ QString description;
+ QString script;
+ QString image;
+};
+
+QList<MissionInfo> getCampMissionList(QString & campaignName, QString & teamName);
#endif
--- a/QTfrontend/hedgewars.qrc Sat Jul 27 04:20:49 2013 +0200
+++ b/QTfrontend/hedgewars.qrc Sat Jul 27 17:23:26 2013 +0300
@@ -38,12 +38,15 @@
<file>res/campaign/A_Classic_Fairytale/queen.png</file>
<file>res/campaign/A_Classic_Fairytale/enemy.png</file>
<file>res/campaign/A_Classic_Fairytale/epil.png</file>
+ <file>res/campaign/A_Space_Adventure/cosmos.png</file>
+ <file>res/campaign/A_Space_Adventure/moon01.png</file>
<file>res/bonus.png</file>
<file>res/Hedgehog.png</file>
<file>res/net.png</file>
<file>res/About.png</file>
<file>res/SimpleGame.png</file>
<file>res/Campaign.png</file>
+ <file>res/CampaignDefault.png</file>
<file>res/Multiplayer.png</file>
<file>res/Trainings.png</file>
<file>res/Background.png</file>
--- a/QTfrontend/hwform.cpp Sat Jul 27 04:20:49 2013 +0200
+++ b/QTfrontend/hwform.cpp Sat Jul 27 17:23:26 2013 +0300
@@ -199,6 +199,7 @@
UpdateTeamsLists();
InitCampaignPage();
UpdateCampaignPage(0);
+ UpdateCampaignPageMission(0);
UpdateWeapons();
// connect all goBack signals
@@ -306,6 +307,7 @@
connect(ui.pageTraining, SIGNAL(startMission(const QString&)), this, SLOT(startTraining(const QString&)));
connect(ui.pageCampaign->BtnStartCampaign, SIGNAL(clicked()), this, SLOT(StartCampaign()));
+ connect(ui.pageCampaign->btnPreview, SIGNAL(clicked()), this, SLOT(StartCampaign()));
connect(ui.pageCampaign->CBTeam, SIGNAL(currentIndexChanged(int)), this, SLOT(UpdateCampaignPage(int)));
connect(ui.pageCampaign->CBCampaign, SIGNAL(currentIndexChanged(int)), this, SLOT(UpdateCampaignPage(int)));
connect(ui.pageCampaign->CBMission, SIGNAL(currentIndexChanged(int)), this, SLOT(UpdateCampaignPageMission(int)));
@@ -1721,13 +1723,9 @@
void HWForm::StartCampaign()
{
CreateGame(0, 0, 0);
-
- QComboBox *combo = ui.pageCampaign->CBMission;
QString camp = ui.pageCampaign->CBCampaign->currentText().replace(QString(" "),QString("_"));
- unsigned int mNum = combo->count() - combo->currentIndex();
- QString miss = getCampaignScript(camp, mNum);
+ QString miss = campaignMissionInfo[ui.pageCampaign->CBMission->currentIndex()].script;
QString campTeam = ui.pageCampaign->CBTeam->currentText();
-
game->StartCampaign(camp, miss, campTeam);
}
@@ -1892,85 +1890,34 @@
}
}
-
void HWForm::UpdateCampaignPage(int index)
{
Q_UNUSED(index);
-
HWTeam team(ui.pageCampaign->CBTeam->currentText());
- ui.pageCampaign->CBMission->clear();
-
QString campaignName = ui.pageCampaign->CBCampaign->currentText().replace(QString(" "),QString("_"));
- QStringList missionEntries = getCampMissionList(campaignName);
- QString tName = team.name();
- unsigned int n = missionEntries.count();
- unsigned int m = getCampProgress(tName, campaignName);
-
- // if the campaign name changes update the campaignMissionDescriptions list
- // this will be used later in UpdateCampaignPageMission() to update
- // the mission description in the campaign page
- bool updateMissionList = false;
- QSettings * m_info;
- if(previousCampaignName.compare(campaignName)!=0 ||
- previousTeamName.compare(tName) != 0)
+ QString tName = team.name();
+
+ campaignMissionInfo = getCampMissionList(campaignName,tName);
+ ui.pageCampaign->CBMission->clear();
+
+ for(int i=0;i<campaignMissionInfo.size();i++)
{
- if (previousTeamName.compare(tName) != 0 &&
- previousTeamName.compare("") != 0)
- index = qMin(m + 1, n);
- previousCampaignName = campaignName;
- previousTeamName = tName;
- updateMissionList = true;
- // the following code was based on pagetraining.cpp
- DataManager & dataMgr = DataManager::instance();
- // get locale
- QSettings settings(dataMgr.settingsFileName(),
- QSettings::IniFormat);
- QString loc = settings.value("misc/locale", "").toString();
- if (loc.isEmpty())
- loc = QLocale::system().name();
- QString campaignDescFile = QString("physfs://Locale/campaigns_" + loc + ".txt");
- // if file is non-existant try with language only
- if (!QFile::exists(campaignDescFile))
- campaignDescFile = QString("physfs://Locale/campaigns_" + loc.remove(QRegExp("_.*$")) + ".txt");
-
- // fallback if file for current locale is non-existant
- if (!QFile::exists(campaignDescFile))
- campaignDescFile = QString("physfs://Locale/campaigns_en.txt");
-
- m_info = new QSettings(campaignDescFile, QSettings::IniFormat, this);
- m_info->setIniCodec("UTF-8");
- campaignMissionDescriptions.clear();
- ui.pageCampaign->CBMission->clear();
- }
-
- for (unsigned int i = qMin(m + 1, n); i > 0; i--)
- {
- if(updateMissionList)
- {
- campaignMissionDescriptions += m_info->value(campaignName+"-"+ getCampaignMissionName(campaignName,i) + ".desc",
- tr("No description available")).toString();
- }
- ui.pageCampaign->CBMission->addItem(QString("Mission %1: ").arg(i) + QString(missionEntries[i-1]), QString(missionEntries[i-1]));
- }
- if(updateMissionList)
- delete m_info;
-
- UpdateCampaignPageMission(index);
+ // Maybe not enforce the prefix Mission %1, isn't so nice for the misison with no
+ // specific order
+ ui.pageCampaign->CBMission->addItem(QString("Mission %1: ").arg(campaignMissionInfo.size()-i) + QString(campaignMissionInfo[i].name), QString(campaignMissionInfo[i].name));
+ }
}
void HWForm::UpdateCampaignPageMission(int index)
{
- // update thumbnail
+ // update thumbnail and description
QString campaignName = ui.pageCampaign->CBCampaign->currentText().replace(QString(" "),QString("_"));
- unsigned int mNum = ui.pageCampaign->CBMission->count() - ui.pageCampaign->CBMission->currentIndex();
- QString image = getCampaignImage(campaignName,mNum);
- ui.pageCampaign->btnPreview->setIcon(QIcon((":/res/campaign/"+campaignName+"/"+image)));
- // update description
// when campaign changes the UpdateCampaignPageMission is triggered with wrong values
// this will cause segfault. This check prevents illegal memory reads
- if(index > -1 && index < campaignMissionDescriptions.count()) {
+ if(index > -1 && index < campaignMissionInfo.count()) {
ui.pageCampaign->lbltitle->setText("<h2>"+ui.pageCampaign->CBMission->currentText()+"</h2>");
- ui.pageCampaign->lbldescription->setText(campaignMissionDescriptions[index]);
+ ui.pageCampaign->lbldescription->setText(campaignMissionInfo[index].description);
+ ui.pageCampaign->btnPreview->setIcon(QIcon(campaignMissionInfo[index].image));
}
}
--- a/QTfrontend/hwform.h Sat Jul 27 04:20:49 2013 +0200
+++ b/QTfrontend/hwform.h Sat Jul 27 17:23:26 2013 +0300
@@ -34,6 +34,7 @@
#include "ui_hwform.h"
#include "SDLInteraction.h"
#include "bgwidget.h"
+#include "campaign.h"
#ifdef __APPLE__
#include "InstallController.h"
@@ -194,8 +195,8 @@
AmmoSchemeModel * ammoSchemeModel;
QStack<int> PagesStack;
QString previousCampaignName;
- QString previousTeamName;
- QStringList campaignMissionDescriptions;
+ QString previousTeamName;
+ QList<MissionInfo> campaignMissionInfo;
QTime eggTimer;
BGWidget * wBackground;
QSignalMapper * pageSwitchMapper;
Binary file QTfrontend/res/CampaignDefault.png has changed
Binary file QTfrontend/res/campaign/A_Space_Adventure/cosmos.png has changed
Binary file QTfrontend/res/campaign/A_Space_Adventure/moon01.png has changed
--- a/share/hedgewars/Data/Locale/campaigns_en.txt Sat Jul 27 04:20:49 2013 +0200
+++ b/share/hedgewars/Data/Locale/campaigns_en.txt Sat Jul 27 17:23:26 2013 +0300
@@ -17,3 +17,9 @@
A_Classic_Fairytale-enemy.desc="What a great twist! Leaks a lot has to fight side by side with the… “cannibals” against the common enemy. The evil cyborgs!"
A_Classic_Fairytale-epil.desc="Congratulations! Leaks a lot can finally leave in peace and get praised by his new friends and his tribe. Be proud for what you succeed! You can play again previous missions and see the other possible endings."
+
+A_Space_Adventure-cosmos.desc="Hogera, the planet of hogs is about to be hit by a gigantic meteorite. In this race for survival you have to lead PAoTH's best pilot, Hog Solo, in a space trip around the neighbor planets to collect all the 4 pieces of the long lost anti gravity device!"
+A_Space_Adventure-moon01.desc="Hog Solo has landed on the moon to refuel his saucer but professor Hogevil has gone there first and set an ambush! Rescue the catpured PAoTH researchers and drive professor Hogevil away!"
+A_Space_Adventure-ice.desc="ICE TEST"
+
+
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/CMakeLists.txt Sat Jul 27 17:23:26 2013 +0300
@@ -0,0 +1,9 @@
+file(GLOB Config *.ini)
+file(GLOB Missions *.lua)
+file(GLOB Packs *.hwp)
+
+install(FILES
+ ${Config}
+ ${Missions}
+ ${Packs}
+ DESTINATION "${SHAREPATH}Data/Missions/Campaign/A_Space_Adventure")
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/campaign.ini Sat Jul 27 17:23:26 2013 +0300
@@ -0,0 +1,22 @@
+MissionNum=5
+ResetRetry=1
+
+[Mission 1]
+Name=The Spacetrip
+Script=cosmos.lua
+
+[Mission 2]
+Name=The First Stop
+Script=moon01.lua
+
+[Mission 3]
+Name=FRUIT
+Script=fruit.lua
+
+[Mission 4]
+Name=DESERT
+Script=desert.lua
+
+[Mission 5]
+Name=A White Day
+Script=ice01.lua
Binary file share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/cosmos.hwp has changed
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/cosmos.lua Sat Jul 27 17:23:26 2013 +0300
@@ -0,0 +1,438 @@
+------------------- ABOUT ----------------------
+--
+-- This map works as a menu for the hero hog to
+-- navigate through planets. It portrays the hogs
+-- planet and above the planets that he'll later
+-- visit.
+
+-- TODO
+-- Save and Load All Check Points
+-- Save hero health
+-- Decide and implement if hero will use gas bombs...
+-- ofc add custom stats page
+-- PROBLEM : What if one makes a bad choice and wants to replay it map, how to reset?
+-- POSSIBLE SOLUTIONS: In game function keys, frontend button...
+
+HedgewarsScriptLoad("/Scripts/Locale.lua")
+HedgewarsScriptLoad("/Scripts/Animate.lua")
+
+----------------- VARIABLES --------------------
+-- globals
+local campaignName = loc("A Space Adventure")
+local missionName = loc("Cosmos")
+local timeForGuard1ToTurn = 1000 * 5 -- 5 sec
+local timeForGuard1ToTurnLeft = timeForGuard1ToTurn
+local saucerAcquired = false
+local checkPointReached = 1 -- 1 is start of the game
+-- dialogs
+local dialog01 = {}
+local dialog02 = {}
+local dialog03 = {}
+local dialog04 = {}
+local dialog05 = {}
+local dialog06 = {}
+-- mission objectives
+local goals = {
+ [dialog01] = {missionName, loc("Getting ready"), loc("Go and collect the crate on top of the column").."|"..loc("Use the sleep gas bomb if the guards spot you!"), 1, 4500},
+ [dialog02] = {missionName, loc("The adventure begins!"), loc("Use the saucer and fly to the moon").."|"..loc("Drive carefully as your fuels are limited"), 1, 4500},
+ [dialog03] = {missionName, loc("An unexpected event!"), loc("Use the saucer and fly away or use the gas bomb to neutralize the guards").."|"..loc("Beware, any damage taken will stay until you take some medicine or visit moon"), 1, 7000}
+}
+-- crates
+local saucerX = 3270
+local saucerY = 1500
+-- hogs
+local hero = {}
+local director = {}
+local doctor = {}
+local guard1 = {}
+local guard2 = {}
+-- teams
+local teamA = {}
+local teamB = {}
+local teamC = {}
+-- hedgehogs values
+hero.name = loc("Hog Solo")
+hero.x = 1450
+hero.y = 1550
+director.name = loc("H")
+director.x = 1350
+director.y = 1550
+doctor.name = loc("Dr.Cornelius")
+doctor.x = 1300
+doctor.y = 1550
+guard1.name = loc("Bob")
+guard1.x = 3350
+guard1.y = 1800
+guard1.turn = false
+guard1.keepTurning = true
+guard2.name = loc("Sam")
+guard2.x = 3400
+guard2.y = 1800
+teamA.name = loc("PAoTH")
+teamA.color = tonumber("FF0000",16) -- red
+teamB.name = loc("Guards")
+teamB.color = tonumber("0033FF",16) -- blue
+teamC.name = loc("Hog Solo")
+teamC.color = tonumber("38D61C",16) -- green
+
+-------------- LuaAPI EVENT HANDLERS ------------------
+function onGameInit()
+ Seed = 35
+ GameFlags = gfSolidLand + gfDisableWind
+ TurnTime = 40000
+ CaseFreq = 0
+ MinesNum = 0
+ Explosives = 0
+ Delay = 5
+ Map = "cosmos_map" -- custom map included in file
+ Theme = "Nature"
+ -- I had originally hero in PAoTH team and changed it, may reconsider though
+ -- PAoTH
+ AddTeam(teamC.name, teamC.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ hero.gear = AddHog(hero.name, 0, 100, "war_desertgrenadier1")
+ AnimSetGearPosition(hero.gear, hero.x, hero.y)
+ HogTurnLeft(hero.gear, true)
+ AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ director.gear = AddHog(director.name, 0, 100, "hair_yellow")
+ AnimSetGearPosition(director.gear, director.x, director.y)
+ doctor.gear = AddHog(doctor.name, 0, 100, "Glasses")
+ AnimSetGearPosition(doctor.gear, doctor.x, doctor.y)
+ -- Guards
+ AddTeam(teamB.name, teamB.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ guard1.gear = AddHog(guard1.name, 1, 100, "policecap")
+ AnimSetGearPosition(guard1.gear, guard1.x, guard1.y)
+ guard2.gear = AddHog(guard2.name, 1, 100, "policecap")
+ AnimSetGearPosition(guard2.gear, guard2.x, guard2.y)
+
+ -- get the check point
+ if tonumber(GetCampaignVar("CosmosCheckPoint")) then
+ checkPointReached = tonumber(GetCampaignVar("CosmosCheckPoint"))
+ end
+ -- do checkpoint stuff needed before game starts
+ if checkPointReached == 1 then
+ -- Start of the game
+ elseif checkPointReached == 2 then
+ -- Hero on the column, just took space ship unnoticed
+ AnimSetGearPosition(hero.gear, saucerX, saucerY)
+ elseif checkPointReached == 3 then
+ -- Hero near column, without space ship unnoticed
+ elseif checkPointReached == 4 then
+ -- Hero visited moon for fuels
+ AnimSetGearPosition(hero.gear, 1110, 850)
+ elseif checkPointReached == 5 then
+ -- Hero has visited a planet, he has plenty of fuels and can change planet
+ if GetCampaignVar("Planet") == "moon" then
+ AnimSetGearPosition(hero.gear, 1110, 850)
+ elseif GetCampaignVar("Planet") == "desertPlanet" then
+ AnimSetGearPosition(hero.gear, 3670, 270)
+ elseif GetCampaignVar("Planet") == "fruitPlanet" then
+ AnimSetGearPosition(hero.gear, 2400, 375)
+ elseif GetCampaignVar("Planet") == "icePlanet" then
+ AnimSetGearPosition(hero.gear, 1440, 260)
+ end
+ end
+
+ AnimInit()
+ AnimationSetup()
+end
+
+function onGameStart()
+ -- wait for the first turn to start
+ AnimWait(hero.gear, 3000)
+
+ FollowGear(hero.gear)
+ ShowMission(loc("A Space Adventure"), loc("Cosmos"), loc("Help Hog Solo to find all the parts of the anti-gravity device.")..
+ "|"..loc("Travel to all the neighbor planets and collect all the pieces"), -amSkip, 0)
+
+ -- do checkpoint stuff needed after game starts
+ if checkPointReached == 1 then
+ AddAnim(dialog01)
+ AddAmmo(hero.gear, amGasBomb, 5)
+ AddAmmo(hero.gear, amRope, 2)
+ -- Added for dev/debug purposes, remove before release
+ AddAmmo(hero.gear, amJetpack, 2)
+ AddAmmo(guard1.gear, amDEagle, 2)
+ AddAmmo(guard2.gear, amDEagle, 2)
+ SpawnAmmoCrate(saucerX, saucerY, amJetpack)
+ -- EVENT HANDLERS
+ AddEvent(onHeroBeforeTreePosition, {hero.gear}, heroBeforeTreePosition, {hero.gear}, 0)
+ AddEvent(onHeroAtSaucerPosition, {hero.gear}, heroAtSaucerPosition, {hero.gear}, 0)
+ AddEvent(onHeroOutOfGuardSight, {hero.gear}, heroOutOfGuardSight, {hero.gear}, 0)
+ elseif checkPointReached == 2 then
+ AddAmmo(hero.gear, amJetpack, 1)
+ AddAnim(dialog02)
+ elseif checkPointReached == 3 then
+ -- Hero near column, without space ship unnoticed
+ elseif checkPointReached == 4 then
+ -- Hero visited moon for fuels
+ AddAnim(dialog05)
+ elseif checkPointReached == 5 then
+ -- Hero has visited a planet, he has plenty of fuels and can change planet
+ AddAmmo(hero.gear, amJetpack, 99)
+ end
+
+ AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 0)
+ AddEvent(onNoFuelAtLand, {hero.gear}, noFuelAtLand, {hero.gear}, 0)
+ -- always check for landings
+ if GetCampaignVar("Planet") ~= "moon" then
+ AddEvent(onMoonLanding, {hero.gear}, moonLanding, {hero.gear}, 0)
+ end
+ if GetCampaignVar("Planet") ~= "desertPlanet" then
+ AddEvent(onDesertPlanetLanding, {hero.gear}, desertPlanetLanding, {hero.gear}, 0)
+ end
+ if GetCampaignVar("Planet") ~= "fruitPlanet" then
+ AddEvent(onFruitPlanetLanding, {hero.gear}, fruitPlanetLanding, {hero.gear}, 0)
+ end
+ if GetCampaignVar("Planet") ~= "icePlanet" then
+ AddEvent(onIcePlanetLanding, {hero.gear}, icePlanetLanding, {hero.gear}, 0)
+ end
+end
+
+function onGameTick()
+ -- maybe alert this to avoid timeForGuard1ToTurnLeft overflow
+ if timeForGuard1ToTurnLeft == 0 and guard1.keepTurning then
+ guard1.turn = not guard1.turn
+ HogTurnLeft(guard1.gear, guard1.turn)
+ timeForGuard1ToTurnLeft = timeForGuard1ToTurn
+ end
+ timeForGuard1ToTurnLeft = timeForGuard1ToTurnLeft - 1
+ AnimUnWait()
+ if ShowAnimation() == false then
+ return
+ end
+ ExecuteAfterAnimations()
+ CheckEvents()
+end
+
+function onPrecise()
+ if GameTime > 3000 then
+ SetAnimSkip(true)
+ end
+end
+
+function onAmmoStoreInit()
+ SetAmmo(amJetpack, 0, 0, 0, 1)
+end
+
+function onNewTurn()
+ if CurrentHedgehog == director.gear or CurrentHedgehog == doctor.gear then
+ TurnTimeLeft = 0
+ end
+ if guard1.keepTurning then
+ AnimSwitchHog(hero.gear)
+ TurnTimeLeft = -1
+ end
+end
+
+-------------- EVENTS ------------------
+
+function onHeroBeforeTreePosition(gear)
+ if GetHealth(hero.gear) and GetX(gear) > 2350 then
+ return true
+ end
+ return false
+end
+
+function onHeroAtSaucerPosition(gear)
+ if GetHealth(hero.gear) and GetX(gear) >= saucerX-25 and GetX(gear) <= saucerX+32 and GetY(gear) >= saucerY-32 and GetY(gear) <= saucerY+32 then
+ saucerAcquired = true
+ end
+ if saucerAcquired and GetHealth(hero.gear) and StoppedGear(gear) then
+ return true
+ end
+ return false
+end
+
+function onHeroOutOfGuardSight(gear)
+ if GetHealth(hero.gear) and GetX(gear) < 3100 and GetY(gear) > saucerY-25 and StoppedGear(gear) and not guard1.keepTurning then
+ return true
+ end
+ return false
+end
+
+-- TODO somehow make it to count fall damage
+function onMoonLanding(gear)
+ if GetHealth(hero.gear) and GetX(gear) > 1010 and GetX(gear) < 1220 and GetY(gear) < 1300 and GetY(gear) > 750 and StoppedGear(gear) then
+ return true
+ end
+ return false
+end
+
+function onFruitPlanetLanding(gear)
+ if GetHealth(hero.gear) and GetX(gear) > 2240 and GetX(gear) < 2540 and GetY(gear) < 1100 and StoppedGear(gear) then
+ return true
+ end
+ return false
+end
+
+function onDesertPlanetLanding(gear)
+ if GetHealth(hero.gear) and GetX(gear) > 3568 and GetX(gear) < 4052 and GetY(gear) < 500 and StoppedGear(gear) then
+ return true
+ end
+ return false
+end
+
+function onIcePlanetLanding(gear)
+ if GetHealth(hero.gear) and GetX(gear) > 1330 and GetX(gear) < 1650 and GetY(gear) < 500 and StoppedGear(gear) then
+ return true
+ end
+ return false
+end
+
+function onNoFuelAtLand(gear)
+ if GetHealth(hero.gear) and GetY(gear) > 1400 and GetAmmoCount(gear, amJetpack) == 0 and StoppedGear(gear) then
+ return true
+ end
+ return false
+end
+
+function onHeroDeath(gear)
+ if not GetHealth(gear) then
+ return true
+ end
+ return false
+end
+
+-------------- OUTCOMES ------------------
+
+function heroBeforeTreePosition(gear)
+ AnimSay(gear,loc("Now I have to climb the trees"), SAY_SAY, 4000)
+ AnimCaption(hero.gear, loc("Use the rope to get to the crate"), 4000)
+end
+
+function heroAtSaucerPosition(gear)
+ TurnTimeLeft = 0
+ -- save check point
+ SaveCampaignVar("CosmosCheckPoint", "2")
+ AddAnim(dialog02)
+ -- check if he was spotted by the guard
+ if guard1.turn then
+ guard1.keepTurning = false
+ AddAnim(dialog03)
+ end
+end
+
+function heroOutOfGuardSight(gear)
+ guard1.keepTurning = true
+ AddAnim(dialog04)
+end
+
+function moonLanding(gear)
+ AnimCaption(hero.gear,loc("Welcome to the moon!"))
+ SaveCampaignVar("Planet", "moon")
+ if checkPointReached ~= 5 then
+ SaveCampaignVar("CosmosCheckPoint", "4")
+ SaveCampaignVar("HeroHealth",GetHealth(hero.gear))
+ end
+ SaveCampaignVar("UnlockedMissions", "2")
+ SaveCampaignVar("Mission1", "2")
+ SaveCampaignVar("Mission2", "1")
+ EndGame()
+end
+
+function fruitPlanetLanding(gear)
+ if checkPointReached < 5 then
+ AddAnim(dialog06)
+ end
+end
+
+function desertPlanetLanding(gear)
+ if checkPointReached < 5 then
+ AddAnim(dialog06)
+ end
+end
+
+function icePlanetLanding(gear)
+ if checkPointReached < 5 then
+ AddAnim(dialog06)
+ else
+ AnimCaption(hero.gear,loc("Welcome to the planet of ice!"))
+ SaveCampaignVar("Planet", "icePlanet")
+ SaveCampaignVar("UnlockedMissions", "2")
+ SaveCampaignVar("Mission1", "5")
+ SaveCampaignVar("Mission2", "1")
+ EndGame()
+ end
+end
+
+function noFuelAtLand(gear)
+ AddAnim(dialog06)
+end
+
+function heroDeath(gear)
+ EndGame()
+end
+
+-------------- ANIMATIONS ------------------
+
+function Skipanim(anim)
+ if goals[anim] ~= nil then
+ ShowMission(unpack(goals[anim]))
+ end
+ if CurrentHedgehog ~= hero.gear and anim ~= dialog03 then
+ AnimSwitchHog(hero.gear)
+ elseif anim == dialog03 then
+ startCombat()
+ elseif anim == dialog05 or anim == dialog06 then
+ EndGame()
+ end
+end
+
+function AnimationSetup()
+ -- DIALOG 01 - Start
+ AddSkipFunction(dialog01, Skipanim, {dialog01})
+ table.insert(dialog01, {func = AnimWait, args = {doctor.gear, 3000}})
+ --table.insert(dialog01, {func = AnimWait, args = {hero.gear, 2500}, skipFunc = Skipanim, skipArgs = dialog01})
+ table.insert(dialog01, {func = AnimCaption, args = {hero.gear, loc("Near secret base 17 of PAoTH in the rural Hogland..."), 4000}})
+ table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("So Hog Solo, here we are..."), SAY_SAY, 2000}})
+ table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("Behind these trees on the East there is secret base 17"), SAY_SAY, 4000}})
+ table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("You have to continue alone from now on."), SAY_SAY, 3000}})
+ table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("Be careful, the future of Hogera is in your hands!"), SAY_SAY, 7200}})
+ table.insert(dialog01, {func = AnimSay, args = {doctor.gear, loc("We'll use our communicators to contact you"), SAY_SAY, 2600}})
+ table.insert(dialog01, {func = AnimSay, args = {doctor.gear, loc("In am also entrusting you with a rope and a sleep gas bomb"), SAY_SAY, 5000}})
+ table.insert(dialog01, {func = AnimSay, args = {doctor.gear, loc("You may find them handy"), SAY_SAY, 2300}})
+ table.insert(dialog01, {func = AnimSay, args = {hero.gear, loc("Thank you Dr.Cornelius"), SAY_SAY, 1600}})
+ table.insert(dialog01, {func = AnimSay, args = {hero.gear, loc("I'll make good use of them"), SAY_SAY, 4500}})
+ table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("It would be wiser to steal the space ship while PAoTH guards are taking a brake!"), SAY_SAY, 7000}})
+ table.insert(dialog01, {func = AnimSay, args = {director.gear, loc("Remember! Many will seek the anti-gravity device! Now go, hurry up!"), SAY_SAY, 4000}})
+ table.insert(dialog01, {func = AnimSwitchHog, args = {hero.gear}})
+ -- DIALOG 02 - Hero got the saucer
+ AddSkipFunction(dialog02, Skipanim, {dialog02})
+ table.insert(dialog02, {func = AnimWait, args = {hero.gear, 500}})
+ table.insert(dialog02, {func = AnimCaption, args = {hero.gear, loc("CheckPoint reached!"), 4000}})
+ table.insert(dialog02, {func = AnimSay, args = {hero.gear, loc("Got the saucer!"), SAY_SHOUT, 2000}})
+ table.insert(dialog02, {func = AnimSay, args = {director.gear, loc("Nice!"), SAY_SHOUT, 1000}})
+ table.insert(dialog02, {func = AnimSay, args = {director.gear, loc("Now use it and go to the moon PAoTH station to get more fuels!"), SAY_SHOUT, 5000}})
+ table.insert(dialog02, {func = AnimGearWait, args = {hero.gear, 500}})
+ -- DIALOG 03 - Hero got spotted by guard
+ AddSkipFunction(dialog03, Skipanim, {dialog03})
+ table.insert(dialog03, {func = AnimWait, args = {guard1.gear, 4000}})
+ table.insert(dialog03, {func = AnimCaption, args = {guard1.gear, loc("Prepare to battle or flee!"), 4000}})
+ table.insert(dialog03, {func = AnimSay, args = {guard1.gear, loc("Hey").." "..guard2.name.."! "..loc("Look, someone is stealing the saucer!"), SAY_SHOUT, 4000}})
+ table.insert(dialog03, {func = AnimSay, args = {guard2.gear, loc("I'll get him!"), SAY_SAY, 4000}})
+ table.insert(dialog03, {func = startCombat, args = {guard1.gear}})
+ -- DIALOG 04 - Hero out of sight
+ AddSkipFunction(dialog04, Skipanim, {dialog04})
+ table.insert(dialog04, {func = AnimCaption, args = {guard1.gear, loc("You are out of danger, time to go to the moon!"), 4000}})
+ table.insert(dialog04, {func = AnimSay, args = {guard1.gear, loc("I guess we lost him!"), SAY_SAY, 3000}})
+ table.insert(dialog04, {func = AnimSay, args = {guard2.gear, loc("We should better report this and continue our watch!"), SAY_SAY, 5000}})
+ table.insert(dialog04, {func = AnimSwitchHog, args = {hero.gear}})
+ -- DIALOG 05 - Hero returned from moon without fuels
+ AddSkipFunction(dialog05, Skipanim, {dialog05})
+ table.insert(dialog05, {func = AnimSay, args = {hero.gear, loc("I guess I can't go far without fuels!"), SAY_THINK, 6000}})
+ table.insert(dialog05, {func = AnimSay, args = {hero.gear, loc("Go to go back"), SAY_THINK, 2000}})
+ table.insert(dialog05, {func = EndGame, args = {hero.gear}})
+ -- DIALOG 06 - Landing on wrong planet or on earth if not enough fuels
+ AddSkipFunction(dialog06, Skipanim, {dialog06})
+ table.insert(dialog06, {func = AnimCaption, args = {hero.gear, loc("You have to try again!"), 5000}})
+ table.insert(dialog06, {func = AnimSay, args = {hero.gear, loc("Hm... Now I run out of fuels..."), SAY_THINK, 3000}})
+ table.insert(dialog06, {func = EndGame, args = {hero.gear}})
+end
+
+------------------- custom "animation" functions --------------------------
+
+function startCombat()
+ -- use this so guard2 will gain control
+ AnimSwitchHog(hero.gear)
+ TurnTimeLeft = 0
+end
Binary file share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/ice01.hwp has changed
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/ice01.lua Sat Jul 27 17:23:26 2013 +0300
@@ -0,0 +1,232 @@
+------------------- ABOUT ----------------------
+--
+-- In this cold planet hero seeks for a part of the
+-- antigravity device. He has to capture Icy Pit who
+-- knows where the device is hidden. Hero will be
+-- able to use only the ice gun for this mission.
+
+-- TODO
+-- alter map so hero may climb to the higher place
+-- maybe use rope challenge to go there
+-- add checkpoints
+-- fix the stats
+-- add mines to the higher place/final stage
+
+HedgewarsScriptLoad("/Scripts/Locale.lua")
+HedgewarsScriptLoad("/Scripts/Animate.lua")
+
+----------------- VARIABLES --------------------
+-- globals
+local heroAtAntiFlyArea = false
+local heroVisitedAntiFlyArea = false
+local heroAtFinaleStep = false
+-- crates
+local icegunY = 1950
+local icegunX = 260
+-- hogs
+local hero = {}
+local ally = {}
+local bandit1 = {}
+local bandit2 = {}
+local bandit3 = {}
+local bandit4 = {}
+local bandit5 = {}
+-- teams
+local teamA = {}
+local teamB = {}
+local teamC = {}
+local teamD = {}
+-- hedgehogs values
+hero.name = "Hog Solo"
+hero.x = 340
+hero.y = 1840
+hero.dead = false
+ally.name = "Paul McHoggy"
+ally.x = 300
+ally.y = 1840
+bandit1.name = "Thanta"
+bandit1.x = 3240
+bandit1.y = 1280
+bandit2.name = "Billy Frost"
+bandit2.x = 1480
+bandit2.y = 1990
+bandit3.name = "Ice Jake"
+bandit3.x = 1860
+bandit3.y = 1150
+bandit4.name = "John Snow"
+bandit4.x = 3250
+bandit4.y = 970
+bandit5.name = "White Tee"
+bandit5.x = 3300
+bandit5.y = 600
+teamA.name = loc("Allies")
+teamA.color = tonumber("FF0000",16) -- red
+teamB.name = loc("Frozen Bandits")
+teamB.color = tonumber("0033FF",16) -- blues
+teamC.name = loc("Hog Solo")
+teamC.color = tonumber("38D61C",16) -- green
+
+-------------- LuaAPI EVENT HANDLERS ------------------
+
+function onGameInit()
+ Seed = 1
+ --GameFlags = gfDisableWind
+ TurnTime = 25000
+ CaseFreq = 0
+ MinesNum = 0
+ MinesTime = 3000
+ Explosives = 0
+ Delay = 5
+ Map = "ice01_map"
+ Theme = "Snow"
+
+ -- Hog Solo
+ AddTeam(teamC.name, teamC.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ hero.gear = AddHog(hero.name, 0, 100, "war_desertgrenadier1")
+ AnimSetGearPosition(hero.gear, hero.x, hero.y)
+ HogTurnLeft(hero.gear, true)
+ -- Ally
+ AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ ally.gear = AddHog(ally.name, 0, 100, "tophats")
+ AnimSetGearPosition(ally.gear, ally.x, ally.y)
+ -- Frozen Bandits
+ AddTeam(teamB.name, teamB.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ bandit1.gear = AddHog(bandit1.name, 1, 100, "tophats")
+ AnimSetGearPosition(bandit1.gear, bandit1.x, bandit1.y)
+ HogTurnLeft(bandit1.gear, true)
+ bandit2.gear = AddHog(bandit2.name, 1, 100, "tophats")
+ AnimSetGearPosition(bandit2.gear, bandit2.x, bandit2.y)
+ bandit3.gear = AddHog(bandit3.name, 1, 100, "tophats")
+ AnimSetGearPosition(bandit3.gear, bandit3.x, bandit3.y)
+ bandit4.gear = AddHog(bandit4.name, 1, 100, "tophats")
+ AnimSetGearPosition(bandit4.gear, bandit4.x, bandit4.y)
+ HogTurnLeft(bandit4.gear, true)
+ bandit5.gear = AddHog(bandit5.name, 1, 100, "tophats")
+ AnimSetGearPosition(bandit5.gear, bandit5.x, bandit5.y)
+ HogTurnLeft(bandit5.gear, true)
+
+ AnimInit()
+ AnimationSetup()
+end
+
+function onGameStart()
+ AnimWait(hero.gear, 3000)
+ FollowGear(hero.gear)
+
+ AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 1)
+ AddEvent(onHeroFinalStep, {hero.gear}, heroFinalStep, {hero.gear}, 0)
+ AddEvent(onAntiFlyArea, {hero.gear}, antiFlyArea, {hero.gear}, 1)
+ AddEvent(onNonAntiFlyArea, {hero.gear}, nonAntiFlyArea, {hero.gear}, 1)
+
+ AddAmmo(hero.gear, amJetpack, 99)
+ AddAmmo(hero.gear, amBazooka, 1)
+ AddAmmo(bandit1.gear, amBazooka, 5)
+ AddAmmo(bandit2.gear, amBazooka, 4)
+ AddAmmo(bandit3.gear, amMine, 2)
+ AddAmmo(bandit3.gear, amGrenade, 3)
+ AddAmmo(bandit4.gear, amBazooka, 5)
+ AddAmmo(bandit5.gear, amBazooka, 5)
+ SpawnAmmoCrate(icegunX, icegunY, amIceGun)
+
+end
+
+function onNewTurn()
+ -- round has to start if hero goes near the column
+ if not heroVisitedAntiFlyArea and CurrentHedgehog ~= hero.gear then
+ TurnTimeLeft = 0
+ elseif not heroVisitedAntiFlyArea and CurrentHedgehog == hero.gear then
+ TurnTimeLeft = -1
+ elseif not heroAtFinaleStep and (CurrentHedgehog == bandit1.gear or CurrentHedgehog == bandit4.gear or CurrentHedgehog == bandit5.gear) then
+ AnimSwitchHog(hero.gear)
+ TurnTimeLeft = 0
+ elseif CurrentHedgehog == ally.gear then
+ TurnTimeLeft = 0
+ end
+end
+
+function onGameTick()
+ AnimUnWait()
+ if ShowAnimation() == false then
+ return
+ end
+ ExecuteAfterAnimations()
+ CheckEvents()
+end
+
+function onAmmoStoreInit()
+ SetAmmo(amIceGun, 0, 0, 0, 8)
+end
+
+function onGearDelete(gear)
+ if gear == hero.gear then
+ hero.dead = true
+ end
+end
+
+-------------- EVENTS ------------------
+
+function onAntiFlyArea(gear)
+ if not hero.dead and (GetX(gear) > 860 or GetY(gear) < 1400) and not heroAtAntiFlyArea then
+ return true
+ end
+ return false
+end
+
+function onNonAntiFlyArea(gear)
+ if not hero.dead and (GetX(gear) < 860 and GetY(gear) > 1400) and heroAtAntiFlyArea then
+ return true
+ end
+ return false
+end
+
+function onHeroDeath(gear)
+ if hero.dead then
+ return true
+ end
+ return false
+end
+
+function onHeroFinalStep(gear)
+ if not hero.dead and GetY(gear) < 900 and GetX(gear) > 1400 then
+ return true
+ end
+ return false
+end
+
+-------------- OUTCOMES ------------------
+
+function antiFlyArea(gear)
+ heroAtAntiFlyArea = true
+ if TurnTimeLeft < -1 then
+ heroVisitedAntiFlyArea = true
+ TurnTimeLeft = 0
+ FollowGear(hero.gear)
+ AddAmmo(hero.gear, amJetpack, 0)
+ AnimSwitchHog(bandit1.gear)
+ FollowGear(hero.gear)
+ TurnTimeLeft = 0
+ else
+ AddAmmo(hero.gear, amJetpack, 0)
+ end
+end
+
+function nonAntiFlyArea(gear)
+ heroAtAntiFlyArea = false
+ AddAmmo(hero.gear, amJetpack, 99)
+end
+
+function heroDeath(gear)
+ SendStat('siGameResult', loc("Hog Solo lost, try again!")) --1
+ -- more custom stats
+ EndGame()
+end
+
+function heroFinalStep(gear)
+ heroAtFinaleStep = true
+end
+
+-------------- ANIMATIONS ------------------
+
+function AnimationSetup()
+
+end
Binary file share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/moon01.hwp has changed
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/moon01.lua Sat Jul 27 17:23:26 2013 +0300
@@ -0,0 +1,449 @@
+------------------- ABOUT ----------------------
+--
+-- This is the first stop of hero's journey.
+-- Here he'll get fuels to continue traveling.
+-- However, the PAoTH allies of the hero have
+-- been taken hostages by professor Hogevil.
+-- So hero has to get whatever available equipement
+-- there is and rescue them.
+
+-- TODO
+-- Fix some glitches when gaining control on animations, on skip I get control of the talking hog
+-- Round time after check point 2
+-- Check if enemy weapons are good
+-- Stats
+-- check points
+-- add a dialog at the end and second event if all minions are dead
+
+HedgewarsScriptLoad("/Scripts/Locale.lua")
+HedgewarsScriptLoad("/Scripts/Animate.lua")
+
+----------------- VARIABLES --------------------
+-- globals
+local campaignName = loc("A Space Adventure")
+local missionName = loc("Moon, stop for fuels!")
+local weaponsAcquired = false
+local battleZoneReached = false
+local checkPointReached = 1 -- 1 is start of the game
+-- dialogs
+local dialog01 = {}
+local dialog02 = {}
+local dialog03 = {}
+local dialog04 = {}
+-- mission objectives
+local goals = {
+ [dialog01] = {missionName, loc("Getting ready"), loc("Go to the upper platform and get the weapons in the crates!"), 1, 4500},
+ [dialog02] = {missionName, loc("Prepare to fight"), loc("Go down and save these PAoTH hogs!"), 1, 5000},
+ [dialog03] = {missionName, loc("The fight begins!"), loc("Neutralize your enemies and be careful!"), 1, 5000},
+ [dialog04] = {missionName, loc("The fight begins!"), loc("Neutralize your enemies and be careful!"), 1, 5000}
+}
+-- crates
+local weaponsY = 100
+local bazookaX = 70
+local parachuteX = 110
+local grenadeX = 160
+local deserteagleX = 200
+-- hogs
+local hero = {}
+local paoth1 = {}
+local paoth2 = {}
+local paoth3 = {}
+local paoth4 = {}
+local professor = {}
+local minion1 = {}
+local minion2 = {}
+local minion3 = {}
+local minion4 = {}
+-- teams
+local teamA = {}
+local teamB = {}
+local teamC = {}
+local teamD = {}
+-- hedgehogs values
+hero.name = "Hog Solo"
+hero.x = 1380
+hero.y = 1750
+hero.dead = false
+paoth1.name = "Joe"
+paoth1.x = 1430
+paoth1.y = 1750
+paoth2.name = "Bruce"
+paoth2.x = 3760
+paoth2.y = 1800
+paoth3.name = "Helena"
+paoth3.x = 3800
+paoth3.y = 1800
+paoth4.name = "Boris"
+paoth4.x = 3860
+paoth4.y = 1800
+professor.name = "Pr.Hogevil"
+professor.x = 3800
+professor.y = 1600
+professor.dead = false
+professor.health = 100
+minion1.name = "Minion"
+minion1.x = 2460
+minion1.y = 1450
+minion2.name = "Minion"
+minion2.x = 2450
+minion2.y = 1900
+minion3.name = "Minion"
+minion3.x = 3500
+minion3.y = 1750
+teamA.name = loc("PAoTH")
+teamA.color = tonumber("FF0000",16) -- red
+teamB.name = loc("Minions")
+teamB.color = tonumber("0033FF",16) -- blue
+teamC.name = loc("Professor")
+teamC.color = tonumber("0033FF",16) -- blue
+teamD.name = loc("Hog Solo")
+teamD.color = tonumber("38D61C",16) -- green
+
+-------------- LuaAPI EVENT HANDLERS ------------------
+
+function onGameInit()
+ Seed = 1
+ GameFlags = gfSolidLand + gfDisableWind
+ TurnTime = 25000
+ CaseFreq = 0
+ MinesNum = 0
+ MinesTime = 3000
+ Explosives = 0
+ Delay = 5
+ Map = "moon01_map"
+ Theme = "Cheese" -- Because ofc moon is made of cheese :)
+ -- Hog Solo
+ AddTeam(teamD.name, teamD.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ if GetCampaignVar("HeroHealth") and string.len(GetCampaignVar("HeroHealth")) > 0 then
+ hero.gear = AddHog(hero.name, 0, tonumber(GetCampaignVar("HeroHealth")), "war_desertgrenadier1")
+ else
+ hero.gear = AddHog(hero.name, 0, 100, "war_desertgrenadier1")
+ end
+ AnimSetGearPosition(hero.gear, hero.x, hero.y)
+ -- PAoTH
+ AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ paoth1.gear = AddHog(paoth1.name, 0, 100, "scif_2001O")
+ AnimSetGearPosition(paoth1.gear, paoth1.x, paoth1.y)
+ HogTurnLeft(paoth1.gear, true)
+ paoth2.gear = AddHog(paoth2.name, 0, 100, "scif_2001Y")
+ AnimSetGearPosition(paoth2.gear, paoth2.x, paoth2.y)
+ HogTurnLeft(paoth2.gear, true)
+ paoth3.gear = AddHog(paoth3.name, 0, 100, "hair_purple")
+ AnimSetGearPosition(paoth3.gear, paoth3.x, paoth3.y)
+ HogTurnLeft(paoth3.gear, true)
+ paoth4.gear = AddHog(paoth4.name, 0, 100, "scif_2001Y")
+ AnimSetGearPosition(paoth4.gear, paoth4.x, paoth4.y)
+ HogTurnLeft(paoth4.gear, true)
+ -- Professor
+ AddTeam(teamC.name, teamC.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ professor.gear = AddHog(professor.name, 0, 120, "tophats")
+ AnimSetGearPosition(professor.gear, professor.x, professor.y)
+ HogTurnLeft(professor.gear, true)
+ -- Minions
+ AddTeam(teamB.name, teamB.color, "Bone", "Island", "HillBilly", "cm_birdy")
+ minion1.gear = AddHog(minion1.name, 1, 50, "Gasmask")
+ AnimSetGearPosition(minion1.gear, minion1.x, minion1.y)
+ HogTurnLeft(minion1.gear, true)
+ minion2.gear = AddHog(minion2.name, 1, 50, "Gasmask")
+ AnimSetGearPosition(minion2.gear, minion2.x, minion2.y)
+ HogTurnLeft(minion2.gear, true)
+ minion3.gear = AddHog(minion3.name, 1, 50, "Gasmask")
+ AnimSetGearPosition(minion3.gear, minion3.x, minion3.y)
+ HogTurnLeft(minion3.gear, true)
+
+ -- get the check point
+ if tonumber(GetCampaignVar("Moon01CheckPoint")) then
+ checkPointReached = tonumber(GetCampaignVar("Moon01CheckPoint"))
+ end
+
+ if checkPointReached == 1 then
+ -- Start of the game
+ elseif checkPointReached == 2 then
+ AnimSetGearPosition(hero.gear, parachuteX, weaponsY)
+ end
+
+ AnimInit()
+ AnimationSetup()
+end
+
+function onGameStart()
+ -- wait for the first turn to start
+ AnimWait(hero.gear, 3000)
+ FollowGear(hero.gear)
+
+ ShowMission(campaignName, missionName, loc("Hog Solo has to refuel his saucer.")..
+ "|"..loc("Rescue the imprisoned PAoTH team and get your fuels!"), -amSkip, 0)
+
+ AddAmmo(minion1.gear, amDEagle, 10)
+ AddAmmo(minion2.gear, amDEagle, 10)
+ AddAmmo(minion3.gear, amDEagle, 10)
+ AddAmmo(minion1.gear, amBazooka, 2)
+ AddAmmo(minion2.gear, amBazooka, 2)
+ AddAmmo(minion3.gear, amBazooka, 2)
+ AddAmmo(minion1.gear, amGrenade, 2)
+ AddAmmo(minion2.gear, amGrenade, 2)
+ AddAmmo(minion3.gear, amGrenade, 2)
+
+ -- check for death has to go first
+ AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 0)
+ AddEvent(onProfessorDeath, {professor.gear}, professorDeath, {professor.gear}, 0)
+ AddEvent(onMinionsDeath, {professor.gear}, minionsDeath, {professor.gear}, 0)
+ AddEvent(onBattleZone, {hero.gear}, battleZone, {hero.gear}, 0)
+ AddEvent(onProfessorHit, {professor.gear}, professorHit, {professor.gear}, 1)
+
+ if checkPointReached == 1 then
+ AddAmmo(hero.gear, amRope, 2)
+ SpawnAmmoCrate(bazookaX, weaponsY, amBazooka)
+ SpawnAmmoCrate(parachuteX, weaponsY, amParachute)
+ SpawnAmmoCrate(grenadeX, weaponsY, amGrenade)
+ SpawnAmmoCrate(deserteagleX, weaponsY, amDEagle)
+ AddEvent(onWeaponsPlatform, {hero.gear}, weaponsPlatform, {hero.gear}, 0)
+ TurnTimeLeft = 0
+ AddAnim(dialog01)
+ elseif checkPointReached == 2 then
+ AddAmmo(hero.gear, amBazooka, 3)
+ AddAmmo(hero.gear, amParachute, 1)
+ AddAmmo(hero.gear, amGrenade, 6)
+ AddAmmo(hero.gear, amDEagle, 4)
+ SetWind(60)
+ GameFlags = bor(GameFlags,gfDisableWind)
+ weaponsAcquired = true
+ TurnTimeLeft = 0
+ AddAnim(dialog02)
+ end
+
+ SendHealthStatsOff()
+end
+
+function onAmmoStoreInit()
+ SetAmmo(amBazooka, 0, 0, 0, 3)
+ SetAmmo(amParachute, 0, 0, 0, 1)
+ SetAmmo(amGrenade, 0, 0, 0, 6)
+ SetAmmo(amDEagle, 0, 0, 0, 4)
+end
+
+function onGameTick()
+ AnimUnWait()
+ if ShowAnimation() == false then
+ return
+ end
+ ExecuteAfterAnimations()
+ CheckEvents()
+ if CurrentHedgehog ~= hero.gear and not battleZone then
+ TurnTimeLeft = 0
+ end
+end
+
+function onNewTurn()
+ -- rounds start if hero got his weapons or got near the enemies
+ if not weaponsAcquired and not battleZoneReached and CurrentHedgehog ~= hero.gear then
+ TurnTimeLeft = 0
+ elseif weaponsAcquired and not battleZoneReached and CurrentHedgehog ~= hero.gear then
+ battleZoneReached = true
+ AddAnim(dialog04)
+ elseif not weaponsAcquired and not battleZoneReached and CurrentHedgehog == hero.gear then
+ TurnTimeLeft = -1
+ elseif CurrentHedgehog == paoth1.gear or CurrentHedgehog == paoth2.gear
+ or CurrentHedgehog == paoth3.gear or CurrentHedgehog == paoth4.gear then
+ TurnTimeLeft = 0
+ elseif CurrentHedgehog == professor.gear then
+ AnimSwitchHog(hero.gear)
+ TurnTimeLeft = 0
+ end
+end
+
+function onPrecise()
+ if GameTime > 3000 then
+ SetAnimSkip(true)
+ end
+end
+
+function onGearDelete(gear)
+ if gear == hero.gear then
+ hero.dead = true
+ elseif gear == professor.gear then
+ professor.dead = true
+ end
+end
+
+-------------- EVENTS ------------------
+
+function onWeaponsPlatform(gear)
+ if not hero.dead and GetX(gear) > bazookaX-200 and GetX(gear) < deserteagleX+400
+ and GetY(gear) < weaponsY+150 and StoppedGear(gear) then
+ return true
+ end
+ return false
+end
+
+function onHeroDeath(gear)
+ if hero.dead then
+ return true
+ end
+ return false
+end
+
+function onBattleZone(gear)
+ if not battleZoneReached and not hero.dead and GetX(gear) > 1900 and StoppedGear(gear) then
+ return true
+ end
+ return false
+end
+
+function onProfessorHit(gear)
+ if GetHealth(gear) then
+ if CurrentHedgehog ~= hero.gear and GetHealth(gear) < professor.health then
+ professor.health = GetHealth(gear)
+ return true
+ elseif GetHealth(gear) < professor.health then
+ professor.health = GetHealth(gear)
+ end
+ end
+ return false
+end
+
+function onProfessorDeath(gear)
+ if professor.dead then
+ return true
+ end
+ return false
+end
+
+function onMinionsDeath(gear)
+ if not (GetHealth(minion1.gear) or GetHealth(minion2.gear) or GetHealth(minion3.gear)) then
+ return true
+ end
+ return false
+end
+
+-------------- OUTCOMES ------------------
+
+function weaponsPlatform(gear)
+ SaveCampaignVar("Moon01CheckPoint", "2")
+ SaveCampaignVar("HeroHealth",GetHealth(hero.gear))
+ TurnTimeLeft = 0
+ weaponsAqcuired = true
+ SetWind(60)
+ GameFlags = bor(GameFlags,gfDisableWind)
+ AddAnim(dialog02)
+end
+
+function heroDeath(gear)
+ SendStat('siGameResult', loc("Hog Solo lost, try again!")) --1
+ SendStat('siCustomAchievement', loc("You have to get the weapons and rescue the PAoTH researchers")) --11
+ SendStat('siPlayerKills','1',teamC.name)
+ SendStat('siPlayerKills','0',teamD.name)
+ EndGame()
+end
+
+function battleZone(gear)
+ TurnTimeLeft = 0
+ battleZoneReached = true
+ if weaponsAqcuired then
+ AddAnim(dialog04)
+ else
+ AddAnim(dialog03)
+ end
+end
+
+function professorHit(gear)
+ if currentHedgehog ~= hero.gear then
+ AnimSay(professor.gear,loc("Don't hit me you fools!"), SAY_SHOUT, 2000)
+ end
+end
+
+function professorDeath(gear)
+ if GetHealth(minion1.gear) then
+ AnimSay(minion1.gear, loc("The boss has fallen! Retreat!"), SAY_SHOUT, 6000)
+ elseif GetHealth(minion2.gear) then
+ AnimSay(minion2.gear, loc("The boss has fallen! Retreat!"), SAY_SHOUT, 6000)
+ elseif GetHealth(minion3.gear) then
+ AnimSay(minion3.gear, loc("The boss has fallen! Retreat!"), SAY_SHOUT, 6000)
+ end
+ ParseCommand("teamgone " .. teamB.name)
+ AnimCaption(hero.gear, loc("Congrats! You made them run away!"), 6000)
+ AnimWait(hero.gear,5000)
+
+ SendStat('siGameResult', loc("Hog Solo win, conrgatulations!")) --1
+ SendStat('siCustomAchievement', loc("Eliminated the professor Hogevil")) --11
+ SendStat('siCustomAchievement', loc("Drove the minions away")) --11
+ SendStat('siPlayerKills','1',teamD.name)
+ SendStat('siPlayerKills','0',teamC.name)
+ SaveCampaignVar("CosmosCheckPoint", "5") -- hero got fuels
+ EndGame()
+end
+
+function minionsDeath(gear)
+ -- do staffs here
+ AnimSay(professor.gear, loc("I may lost that battle, but I haven't lost the war yet!"), SAY_SHOUT, 6000)
+ ParseCommand("teamgone " .. teamC.name)
+ AnimCaption(hero.gear, loc("Congrats! You won!"), 6000)
+ AnimWait(hero.gear,5000)
+
+ SendStat('siGameResult', loc("Hog Solo win, conrgatulations!")) --1
+ SendStat('siCustomAchievement', loc("Eliminated the evil minions")) --11
+ SendStat('siCustomAchievement', loc("Drove the professor away")) --11
+ SendStat('siPlayerKills','1',teamD.name)
+ SendStat('siPlayerKills','0',teamC.name)
+ SaveCampaignVar("CosmosCheckPoint", "5") -- hero got fuels
+ EndGame()
+end
+
+-------------- ANIMATIONS ------------------
+
+function Skipanim(anim)
+ if goals[anim] ~= nil then
+ ShowMission(unpack(goals[anim]))
+ end
+ if anim == dialog03 then
+ startCombat()
+ else
+ AnimSwitchHog(hero.gear)
+ end
+end
+
+function AnimationSetup()
+ -- DIALOG 01 - Start, welcome to moon
+ AddSkipFunction(dialog01, Skipanim, {dialog01})
+ table.insert(dialog01, {func = AnimWait, args = {hero.gear, 3000}})
+ table.insert(dialog01, {func = AnimCaption, args = {hero.gear, loc("Near PAoTH base at moon..."), 4000}})
+ table.insert(dialog01, {func = AnimSay, args = {paoth1.gear, loc("Hey Hog Solo! Finaly you have come..."), SAY_SAY, 2000}})
+ table.insert(dialog01, {func = AnimSay, args = {paoth1.gear, loc("It seems that Professor Hogevil learned for your arrival!"), SAY_SAY, 4000}})
+ table.insert(dialog01, {func = AnimSay, args = {paoth1.gear, loc("Now he have captured the rest of the PAoTH team and awaits to capture you!"), SAY_SAY, 5000}})
+ table.insert(dialog01, {func = AnimSay, args = {paoth1.gear, loc("We have to hurry! Are you armed?"), SAY_SAY, 4300}})
+ table.insert(dialog01, {func = AnimWait, args = {hero.gear, 500}})
+ table.insert(dialog01, {func = AnimSay, args = {hero.gear, loc("No, I am afraid I had to travel light"), SAY_SAY, 2500}})
+ table.insert(dialog01, {func = AnimWait, args = {paoth1.gear, 500}})
+ table.insert(dialog01, {func = AnimSay, args = {paoth1.gear, loc("Ok, then you have to go and take some of the waepons we have hidden in case of an emergency!"), SAY_SAY, 7000}})
+ table.insert(dialog01, {func = AnimSay, args = {paoth1.gear, loc("They are up there! Take that rope and hurry!"), SAY_SAY, 7000}})
+ table.insert(dialog01, {func = AnimSay, args = {hero.gear, loc("Ehm... ok..."), SAY_SAY, 2500}})
+ table.insert(dialog01, {func = AnimSwitchHog, args = {hero.gear}})
+ -- DIALOG 02 - To the weapons platform
+ AddSkipFunction(dialog02, Skipanim, {dialog02})
+ table.insert(dialog02, {func = AnimCaption, args = {hero.gear, loc("Checkpoint reached!"), 4000}})
+ table.insert(dialog02, {func = AnimSay, args = {hero.gear, loc("I've made it! YEAAAAAH!"), SAY_SHOUT, 4000}})
+ table.insert(dialog02, {func = AnimSay, args = {paoth1.gear, loc("Nice! Now hurry up and get down! You have to rescue my friends!"), SAY_SHOUT, 7000}})
+ table.insert(dialog02, {func = AnimSwitchHog, args = {hero.gear}})
+ -- DIALOG 03 - Hero spotted and has no weapons
+ AddSkipFunction(dialog03, Skipanim, {dialog03})
+ table.insert(dialog03, {func = AnimCaption, args = {hero.gear, loc("Get ready to fight!"), 4000}})
+ table.insert(dialog03, {func = AnimSay, args = {minion1.gear, loc("Look boss! There is the target!"), SAY_SHOUT, 4000}})
+ table.insert(dialog03, {func = AnimSay, args = {professor.gear, loc("Prepare for battle!"), SAY_SHOUT, 4000}})
+ table.insert(dialog03, {func = AnimSay, args = {hero.gear, loc("Oops, I've been spotted and I have no weapons! I am doomed!"), SAY_THINK, 4000}})
+ table.insert(dialog03, {func = startCombat, args = {hero.gear}})
+ -- DIALOG 04 - Hero spotted and *HAS* weapons
+ AddSkipFunction(dialog04, Skipanim, {dialog04})
+ table.insert(dialog04, {func = AnimCaption, args = {hero.gear, loc("Get ready to fight!"), 4000}})
+ table.insert(dialog04, {func = AnimSay, args = {minion1.gear, loc("Look boss! There is the target!"), SAY_SHOUT, 4000}})
+ table.insert(dialog04, {func = AnimSay, args = {professor.gear, loc("Prepare for battle!"), SAY_SHOUT, 4000}})
+ table.insert(dialog04, {func = AnimSay, args = {hero.gear, loc("Here we go!"), SAY_THINK, 4000}})
+ table.insert(dialog04, {func = startCombat, args = {hero.gear}})
+end
+
+------------------- custom "animation" functions --------------------------
+
+function startCombat()
+ -- use this so guard2 will gain control
+ AnimSwitchHog(minion3.gear)
+ TurnTimeLeft = 0
+end
--- a/share/hedgewars/Data/Missions/Campaign/CMakeLists.txt Sat Jul 27 04:20:49 2013 +0200
+++ b/share/hedgewars/Data/Missions/Campaign/CMakeLists.txt Sat Jul 27 17:23:26 2013 +0300
@@ -1,4 +1,5 @@
add_subdirectory("A_Classic_Fairytale")
+add_subdirectory("A_Space_Adventure")
file(GLOB Scripts *.lua)