Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdegames@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 424 insertions, 0 deletions

diff --git a/ksokoban/LevelCollection.cpp b/ksokoban/LevelCollection.cpp
new file mode 100644
index 00000000..7f5db852
--- /dev/null
+++ b/ksokoban/LevelCollection.cpp
@@ -0,0 +1,424 @@
+#include "LevelCollection.h"
+
+#include "Map.h"
+
+#include <qfile.h>
+#include <stdio.h>
+
+#include <assert.h>
+#include <unistd.h>
+#include <string.h>
+#include <kconfig.h>
+#include <kapplication.h>
+
+static inline unsigned long
+forward(unsigned long a, unsigned long b, unsigned long c, unsigned long d)
+{
+  unsigned long x=(a^b)&0xfffffffful;
+  return (((x<<c)|(x>>((32ul-c)&31ul)))*d)&0xfffffffful;
+}
+
+static inline unsigned long
+backward(unsigned long a, unsigned long b, unsigned long c, unsigned long d)
+{
+  unsigned long x=(a*b)&0xfffffffful;
+  return (((x<<c)|(x>>((32ul-c)&31ul)))^d)&0xfffffffful;
+}
+
+
+void
+LevelCollection::indexTextCollection() {
+  enum states {
+    BEFORE_NONE, BEFORE_VALID, BEFORE_INVALID,
+    DURING_NONE, DURING_VALID, DURING_INVALID
+  } state = BEFORE_NONE;
+
+  int levelstart=0, levelend=0;
+  for (unsigned pos=0; pos<(data_.size()-1); pos++) {
+    switch (state) {
+    case BEFORE_NONE:
+      switch (data_[pos]) {
+      case '#': case '.': case '$': case '+': case '*': case '@':
+	state = BEFORE_VALID;
+	break;
+
+      case ' ': case '\t': case '\r':
+	break;
+
+      case '\n':
+	levelstart = pos + 1;
+	break;
+
+      default:
+	state = BEFORE_INVALID;
+	break;
+      }
+      break;
+
+    case BEFORE_VALID:
+      switch (data_[pos]) {
+      case '#': case '.': case '$': case '+': case '*': case '@':
+      case ' ': case '\t': case '\r':
+	break;
+
+      case '\n':
+	addLevel(&data_[levelstart]);
+	levelend = levelstart;
+	state = DURING_NONE;
+	break;
+
+      default:
+	state = BEFORE_INVALID;
+	break;
+      }
+      break;
+
+    case BEFORE_INVALID:
+      switch (data_[pos]) {
+      case '\n':
+	levelstart = pos + 1;
+	state = BEFORE_NONE;
+	break;
+      }
+      break;
+
+    case DURING_NONE:
+      switch (data_[pos]) {
+      case '#': case '.': case '$': case '+': case '*': case '@':
+	state = DURING_VALID;
+	break;
+
+      case ' ': case '\t': case '\r':
+	break;
+
+      case '\n':
+	data_[levelend] = '\0';
+	levelstart = pos + 1;
+	state = BEFORE_NONE;
+	break;
+
+      default:
+	state = DURING_INVALID;
+	break;
+      }
+      break;
+
+    case DURING_VALID:
+      switch (data_[pos]) {
+      case '#': case '.': case '$': case '+': case '*': case '@':
+      case ' ': case '\t': case '\r':
+	break;
+
+      case '\n':
+	levelend = pos;
+	state = DURING_NONE;
+	break;
+
+      default:
+	state = DURING_INVALID;
+	break;
+      }
+      break;
+
+    case DURING_INVALID:
+      switch (data_[pos]) {
+      case '\n':
+	data_[levelend] = '\0';
+	levelstart = pos + 1;
+	state = BEFORE_NONE;
+	break;
+      }
+      break;
+
+    default:
+      assert(0);
+    }
+  }
+
+  if (state==DURING_NONE || state==DURING_INVALID) {
+    data_[levelend] = '\0';
+  }
+}
+
+void
+LevelCollection::loadPrefs() {
+  if (id_ >= 0) {
+    KConfig *cfg=(KApplication::kApplication())->config();
+    cfg->setGroup("settings");
+
+    QString key;
+    key.sprintf("level%d", id_);
+    level_ = cfg->readNumEntry(key, 0);
+
+    key.sprintf("status%d", id_);
+    unsigned long x = cfg->readUnsignedLongNumEntry(key, 0);
+
+    x = backward(x, 0xc1136a15ul, 0x12ul, 0x80ff0b94ul);
+    x = backward(x, 0xd38fd2ddul, 0x01ul, 0xd4d657b4ul);
+    x = backward(x, 0x59004eeful, 0x1eul, 0xf6c75e2cul);
+    x = backward(x, 0x366c3e25ul, 0x0aul, 0x61ebc208ul);
+    x = backward(x, 0x20a784c9ul, 0x15ul, 0x207d488bul);
+    x = backward(x, 0xc02864abul, 0x09ul, 0x709e62a3ul);
+    x = backward(x, 0xe2a60f19ul, 0x0eul, 0x8bb02c07ul);
+    x = backward(x, 0x3b0e11f3ul, 0x13ul, 0x608aef3ful);
+
+    completedLevels_ = x>>16 & 0x3ff;
+    if (!cfg->hasKey(key)) completedLevels_ = 0;
+    if (((x>>26) & 0x3ful) != (unsigned long) id_) completedLevels_ = 0;
+    if ((x & 0xfffful) != (unsigned long) getuid()) completedLevels_ = 0;
+    if (completedLevels_ > noOfLevels_) completedLevels_ = 0;
+
+    if (level_ > completedLevels_) level_ = completedLevels_;
+    if (level_ >= noOfLevels_) level_ = noOfLevels_-1;
+    if (level_ < 0) level_ = 0;
+  } else {
+    level_ = 0;
+    completedLevels_ = noOfLevels_;
+  }
+}
+
+void
+LevelCollection::addLevel(const char* _level) {
+  unsigned s = index_.size();
+  index_.resize(s + 1);
+  index_.insert(s, _level);
+}
+
+void
+LevelCollection::addData(const char* _data, unsigned _len) {
+  unsigned pos = data_.size();
+  data_.resize(pos + _len);
+  memcpy(data_.data() + pos, _data, _len);
+}
+
+void
+LevelCollection::addSeparator() {
+  unsigned pos = data_.size();
+  data_.resize(pos + 1);
+  data_[pos] = '\0';
+}
+
+LevelCollection::LevelCollection(const char *_def, int _len,
+				 const QString &_name, int _id) :
+  level_(0), completedLevels_(0), noOfLevels_(0),
+  name_(_name), id_(_id) {
+
+  addData(_def, _len);
+  addSeparator();
+
+  indexTextCollection();
+
+  noOfLevels_ = index_.size();
+
+  loadPrefs();
+}
+
+LevelCollection::LevelCollection(const QString &_path, const QString &_name,
+				 int _id) :
+  level_(0), completedLevels_(0), noOfLevels_(0),
+  name_(_name), path_(_path), id_(_id) {
+
+  char buf[1024];
+  int len;
+
+  QFile file(path_);
+  if (file.open(IO_Raw | IO_ReadOnly)) {
+    while ((len = file.readBlock(buf, 1024)) > 0) {
+      addData((const char *) buf, len);
+    }
+    file.close();
+    addSeparator();
+  }
+
+  indexTextCollection();
+
+  noOfLevels_ = index_.size();
+
+  loadPrefs();
+
+}
+
+LevelCollection::~LevelCollection() {
+  if (id_ >= 0) {
+    KConfig *cfg=(KApplication::kApplication())->config();
+    cfg->setGroup ("settings");
+
+    QString key;
+    key.sprintf("level%d", id_);
+    cfg->writeEntry(key, level_, true, false, false);
+  }
+}
+
+
+void
+LevelCollection::levelCompleted() {
+  if (completedLevels_ < (level_+1)) completedLevels_ = level_+1;
+
+  if (id_ >= 0) {
+    unsigned long x=(((unsigned long) getuid()) & 0xfffful);
+    x |= ((unsigned long) id_)<<26;
+    x |= ((unsigned long) completedLevels_)<<16;
+
+    x = forward(x, 0x608aef3ful, 0x0dul, 0xfb00ef3bul);
+    x = forward(x, 0x8bb02c07ul, 0x12ul, 0x2a37dd29ul);
+    x = forward(x, 0x709e62a3ul, 0x17ul, 0x23607603ul);
+    x = forward(x, 0x207d488bul, 0x0bul, 0xc31fd579ul);
+    x = forward(x, 0x61ebc208ul, 0x16ul, 0xbcffadadul);
+    x = forward(x, 0xf6c75e2cul, 0x02ul, 0xa2baa00ful);
+    x = forward(x, 0xd4d657b4ul, 0x1ful, 0x7e129575ul);
+    x = forward(x, 0x80ff0b94ul, 0x0eul, 0x92fc153dul);
+
+    QString key;
+    key.sprintf("status%d", id_);
+
+    KConfig *cfg=(KApplication::kApplication())->config();
+    cfg->setGroup("settings");
+    cfg->writeEntry(key, x, true, false, false);
+    cfg->sync();
+  }
+}
+
+
+void
+LevelCollection::level(int _level) {
+  assert(_level >= 0 && _level < noOfLevels_);
+
+  level_ = _level;
+  if (level_ > completedLevels_) level_ = completedLevels_;
+  if (level_ >= noOfLevels_) level_ = noOfLevels_ - 1;
+  if (level_ < 0) level_ = 0;
+}
+
+static int
+minX(const char *def) {
+  int min_x = 10000;
+
+  int x=0;
+  for (int pos=0; def[pos]; pos++) {
+    switch(def[pos]) {
+    case '\n':
+      x = 0;
+      break;
+
+    case ' ':
+      x++;
+      break;
+
+    case '\t':
+      x = (x+8) & ~7;
+      break;
+
+    case '\r':
+      break;
+
+    default:
+      if (x < min_x) min_x = x;
+      break;
+    }
+  }
+
+  return min_x == 10000 ? -1 : min_x;
+}
+
+
+bool
+LevelCollection::loadLevel(Map *_map) {
+  _map->clearMap();
+
+  const char *def = index_[level_];
+  bool goodMap = true;
+  int x=0, y=0, goalsLeft=0;
+
+  int min_x = minX(def);
+  if (min_x < 0) {
+    min_x = 0;
+    goodMap = false;
+  }
+
+
+  _map->xpos_ = -1;
+  _map->ypos_ = -1;
+
+  for (int pos=0; def[pos]; pos++) {
+    switch(def[pos]) {
+    case '\n':
+      y++;
+      x = 0;
+      break;
+
+    case ' ':
+      x++;
+      break;
+
+    case '\t':
+      x = (x+8) & ~7;
+      break;
+
+    case '@':
+      if (x-min_x > MAX_X || y > MAX_Y) goodMap = false;
+      else {
+	_map->xpos_ = x-min_x;
+	_map->ypos_ = y;
+      }
+      x++;
+      break;
+
+    case '$':
+      if (x-min_x > MAX_X || y > MAX_Y) goodMap = false;
+      else _map->map(x-min_x, y, OBJECT);
+      x++;
+      break;
+
+    case '.':
+      if (x-min_x > MAX_X || y > MAX_Y) goodMap = false;
+      else {
+	_map->map(x-min_x, y, GOAL);
+	goalsLeft++;
+      }
+      x++;
+      break;
+
+    case '#':
+      if (x-min_x > MAX_X || y > MAX_Y) goodMap = false;
+      else _map->map(x-min_x, y, WALL);
+      x++;
+      break;
+
+    case '+':
+      if (x-min_x > MAX_X || y > MAX_Y) goodMap = false;
+      else {
+	_map->xpos_ = x-min_x;
+	_map->ypos_ = y;
+	_map->map(x-min_x, y, GOAL);
+	goalsLeft++;
+      }
+      x++;
+      break;
+
+    case '*':
+      if (x-min_x > MAX_X || y > MAX_Y) goodMap = false;
+      else _map->map(x-min_x, y, OBJECT|GOAL);
+      x++;
+      break;
+
+    case '\r':
+      break;
+
+    default:
+      goodMap = false;
+      break;
+    }
+  }
+
+  if (_map->objectsLeft() != goalsLeft) goodMap = false;
+  if (_map->completed()) goodMap = false;
+
+  if (_map->badCoords(_map->xpos_, _map->ypos_)) goodMap = false;
+  else {
+    if (!_map->empty(_map->xpos_, _map->ypos_)) goodMap = false;
+    else if (!_map->fillFloor(_map->xpos_, _map->ypos_)) goodMap = false;
+  }
+
+  return goodMap;
+}
+