2019年神奈山県立ハイ高等学校は 地盤が弱く校舎の老朽化も進んだため、 とうとう廃校にする以外方法がなく なってしまった。

ところで大変な情報を手に入れた。 それは、

「ハイ高校にＡＴＯＭＩＣ ＢＯＭＢが仕掛けられている。」

と、いうものだ。 どうやらハイ高が廃校になった時、 気が狂った理科の先生がＡＴＯＭＩＣ ＢＯＭＢを 学校のどこかに仕掛けてしまったらしい。

お願いだ。我が母校のコナゴナになった 姿を見たくはない。 早くＡＴＯＭＩＣ ＢＯＭＢを取り除いてくれ……！！

行動は英語で、“<動詞>” 或いは、“<動詞>”+“<目的語>“のように入れていただきたい。 例えば、”look room”と入れれば部屋の様子を見ることが出来るという訳だ。

それでは Ｇｏｏｄ Ｌｕｃｋ！！！…………

PalmOS版のハイハイスクールアドベンチャーです。 既にPalmOSネイティブのデバイスは販売されておりませんが、もし実行環境をお持ちの方がいらっしゃれば、是非、トライしてみてください。 なお、NDKを使用しており、ARMプロセッサーのモデル以外では動作しません。 解像度は320×320を推奨しますが、160×160のデバイスでも動かないことはないです。

アプリケーションとデータをこちらからダウンロードしてください。 展開して出てきた high.prc および全てのpdbファイルを HotSync でデバイスにインストールしてください。

PalmOSはもともとモトローラの68KをCPUとして採用したデバイス向けのものだったが、ARMを採用した際に互換性のための68Kエミュレーションとは別に、ARMネイティブで動作する高速なサービスを組み込めるように NDKをリリースした。

68Kむけのバイナリコードを動かすのとはことなり、インターフェイスなどに制約はあるものの、ARMネイティブで動くコードは高速で、ハイハイスクールアドベンチャーも、グラフィックス周りをNDKによりARMネイティブ化できたことでリリースのめどが立った。

一応、68Kのコードもあるので、非ARMのデバイスで動かすこともできなくはないが、絶望的に遅いので全く推奨はしない。

なお、画面への描画の途中経過は見えず、最後にばっと表示される。 これは移植されたほとんどの環境でそうなのだが¹⁾、これを見た Hayamiに「ダサイ」と言われた。

モダンなグラフィックライブラリは大体ダブルバッファ使っていたりするし、レンダリングは一気に行われるスタイルだったり、UI用のスレッド以外では表示の更新ができなかったりという制約の中でやっているので、そんなことをいわれてもどうにもならないのだ。

high.h

/*
 * High High School Adventure
 *
 *    Copyright(c)1985 ZOBplus
 *    Copyright(c)2002,2025 ZOBplus hiro <hiro@zob.ne.jp>
 */
 
#ifndef HIGH_H
#define HIGH_H
 
#define ZAMA_CREATOR_ID   'ZAMA'
#define ZAMA_PREFS_ID     (0)
#define ZAMA_PREFS_VER    (100)
 
#define ZAMA_ITEM_NUMBERS (12)
#define ZAMA_CMD_INVALID  (0)
#define ZAMA_CMD_END      (61)
 
#define ZAMA_SILK_NOTIFY  (1)
 
#define ZAMA_CODE_ISAKO   (135)
 
#define ZAMA_GLOBAL_VAR   (5000)
#define ZAMA_GRAPH_VAR    (5001)
 
enum ZamaDirection {
  DirInvalid = -1,
  DirNorth, DirSouth, DirWest, DirEast, DirUp, DirDown, DirEnter, DirExit,
  DirMax
};
 
enum ZamaSex {
  SexInvalid = 0,
  SexBoy,
  SexGirl,
  SexMax
};
 
enum ActType {
  ActComp = 0,
  ActAction
};
 
enum CmpOperator {
  CMP_NOP = 0,
  CMP_EQ,
  CMP_NE,
  CMP_GT,
  CMP_GE,
  CMP_LT,
  CMP_LE,
};
 
enum ActOperator {
  ACT_NOP = 0,
  ACT_MOVE,
  ACT_ASGN,
  ACT_MESG,
  ACT_DLOG,
  ACT_LOOK,
  ACT_SND,
  ACT_OVER,
};
 
enum RuleValueType {
  TYPE_NONE = 0,
  TYPE_FACT,
  TYPE_PLACE,
  TYPE_SYSTEM,
  TYPE_VECTOR,
};
 
typedef struct CmdHeaderType {
  UInt16 _act:1;
  UInt16 _op:3;
  UInt16 _pad:4;
  UInt16 _type:3;
  UInt16 _id:5;
} CmdHeaderType;
typedef CmdHeaderType *CmdHeaderPtr;
 
typedef struct CmdBodyType {
  UInt16 _type:3;
  UInt16 _id:5;
  UInt16 _value:8;
} CmdBodyType;
typedef CmdBodyType *CmdBodyPtr;
 
typedef struct CmdBlkType {
  CmdHeaderType _head;
  CmdBodyType   _body;
} CmdBlkType;
typedef CmdBlkType *CmdBlkPtr;
 
typedef struct RuleType {
  UInt8 _mapId;
  UInt8 _cmdN;
  UInt8 _objN;
  UInt8 _pad;
  UInt8 _args[44];
} RuleType;
typedef RuleType *RulePtr;
 
#define EndOfRule (0xff)
 
typedef struct ZamaPrefsType {
  UInt8   _lastSaved;
  Boolean _suspended;
  FontID  _curFont;
  Boolean _linedraw;
  Boolean _sound;
} ZamaPrefsType;
typedef ZamaPrefsType *ZamaPrefsPtr;
 
typedef struct ZamaMapType {
  UInt8 graphic[0x400];
  UInt8 reaction[0x100];
  UInt8 mesg[0x300];
} ZamaMapType;
typedef ZamaMapType *ZamaMapPtr;
 
typedef struct ZamaUserDataType {
  UInt8   vector[87][8];
  UInt8   place[ZAMA_ITEM_NUMBERS];
  UInt8   fact[15];
  union {
    struct {
      UInt8 mapID, mapW, cmdN, objN, dret, rand, dlogOk, dmesg;
    } n;
    UInt8 ary[8]; /* 0: mapID 1: mapW  2: cmdN 3: objN 4: dret 5: rand */
                  /* 6: dlogOk 7: dmesg 8: reserved */
  } sys;
} ZamaUserDataType;
typedef ZamaUserDataType *ZamaUserDataPtr;
 
typedef struct ZamaWordType {
  Char  word[4];
  UInt8 number;
} ZamaWordType;
typedef ZamaWordType *ZamaWordPtr;
 
typedef struct ZamaMesgType {
  UInt8 len;
  Char  mesg[1];
} ZamaMesgType;
typedef ZamaMesgType *ZamaMesgPtr;
 
typedef struct ZamaReactionType {
  UInt16 action;
  UInt8  number;
} ZamaReactionType;
typedef ZamaReactionType *ZamaReactionPtr;
 
#ifndef stdSilkHeight
#define stdSilkHeight (65)
#endif /* stdSilkHeight */
 
#endif /* HIGH_H */

high.c

/*
 * High-High School Adventure
 *   Copyright(c)2002-2003 ZOBplus hiro <hiro@zob.ne.jp>
 *   Copyright(c)ZOBplus
 */
 
#include <PalmOS.h>
#include <SonyCLIE.h>
#include <SmallFontSupport.h>
#ifdef USE_GRAPH2
#include "graph2.h"
#else /* USE_GRAPH2 */
#include "graph.h"
#endif /* USE_GRAPH2 */
#include "high.h"
#include "highrsc.h"
 
typedef struct {
  ZamaMapType      map;
  ZamaUserDataType user;
  UInt8            object[0x200];
  ZamaPrefsType    prefs;
 
  Char             cmd[5];
  Char             obj[5];
 
  RectangleType    pict;
  UInt16           _silkr; /* silk control */
  UInt32           _silkVer;
  Boolean          _resized; /* resized */
  Boolean          _ignoreKey;
 
  UInt32           _startup;
  Boolean          _over;
 
/* tsPatch support */
  Boolean          tsPatch;
  UInt32           tinyFontID;
  UInt32           tinyBoldFontID;
  UInt32           smallFontID;
  UInt32           smallSymbolFontID;
  UInt32           smallSymbol11FontID;
  UInt32           smallSymbol7FontID;
  UInt32           smallLedFontID;
  UInt32           smallBoldFontID;
} ZamaGlobalVarType;
 
static
ZamaGlobalVarType *
CreateGlobalVariables()
{
  ZamaGlobalVarType *ptr = NULL;
  Err err;
  if ((err = FtrPtrNew(ZAMA_CREATOR_ID, ZAMA_GLOBAL_VAR, sizeof(ZamaGlobalVarType), &ptr)) != errNone)
  {
    return NULL;
  }
  return ptr;
}
 
static
void
DeleteGlobalVariables()
{
  FtrPtrFree(ZAMA_CREATOR_ID, ZAMA_GLOBAL_VAR);
}
 
static
ZamaGlobalVarType *
GetGlobalVariables()
{
  ZamaGlobalVarType *ptr = NULL;
  Err err;
  if ((err = FtrGet(ZAMA_CREATOR_ID, ZAMA_GLOBAL_VAR, &ptr)) != errNone)
  {
    return NULL;
  }
  return ptr;
}
 
static
MemPtr
GetObjectPtr(UInt16 id)
{
  FormPtr form;
  form = FrmGetActiveForm();
  return FrmGetObjectPtr(form, FrmGetObjectIndex(form, id));
}
 
static
DmOpenRef
OpenDatabase(Char *name_)
{
  LocalID     dbID;
  DmOpenRef   dbP;
  Err         err;
  UInt16      cardNo;
 
  if ((err = SysCurAppDatabase(&cardNo, &dbID)) != errNone) {
    cardNo = 0;
  }
  if ((dbID = DmFindDatabase(cardNo, name_)) == 0) {
    /* error */
    return NULL;
  }
  if ((dbP = DmOpenDatabase(cardNo, dbID, dmModeReadOnly)) == 0) {
    /* error */
    return NULL;
  }
  return dbP;
}
 
static
Boolean
SaveGame(UInt16 fileno_)
{
  LocalID     dbID;
  DmOpenRef   dbP;
  MemHandle   rec;
  UInt16      err, i, index, attr, version;
  MemPtr      p;
  Boolean     res = true;
  UInt16      cardNo;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if ((err = SysCurAppDatabase(&cardNo, &dbID)) != errNone) {
    cardNo = 0;
  }
  while ((dbID = DmFindDatabase(cardNo, "ZAMAuser")) == 0) {
    /* create database */
    err = DmCreateDatabase(cardNo, "ZAMAuser", ZAMA_CREATOR_ID, 'data', false);
    if (err) {
      FrmAlert(ZAMA_SAVE_ALERT);
      return false;
    }
  }
  DmDatabaseInfo(cardNo, dbID, NULL, &attr, &version,
                 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
  attr |= dmHdrAttrBackup;
  version = 0x100; /* version 1.00 */
  DmSetDatabaseInfo(cardNo, dbID, NULL, &attr, &version,
                    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
  if ((dbP = DmOpenDatabase(cardNo, dbID, dmModeReadWrite)) == 0) {
    /* error */
    FrmAlert(ZAMA_SAVE_ALERT);
    return false;
  }
  for (i = 0 ; i < 4 ; i++) {
    if (DmQueryRecord(dbP, i) == NULL) {
      if ((rec = DmNewHandle(dbP, sizeof(ZamaUserDataType))) == NULL) {
        FrmAlert(ZAMA_SAVE_ALERT);
        res = false;
        goto _done;
      }
      index  = i;
      if (DmAttachRecord(dbP, &index, rec, NULL) != errNone) {
        FrmAlert(ZAMA_SAVE_ALERT);
        res = false;
        goto _done;
      }
    }
  }
  if ((rec = DmGetRecord(dbP, fileno_)) == NULL) {
    FrmAlert(ZAMA_SAVE_ALERT);
    res = false;
    goto _done;
  }
  p = MemHandleLock(rec);
 
  DmWrite(p, 0, &z->user, sizeof(ZamaUserDataType));
 
  MemHandleUnlock(rec);
  DmReleaseRecord(dbP, fileno_, true);
  if (fileno_ != 0) {
    z->prefs._lastSaved = fileno_;
  }
 _done:;
  DmCloseDatabase(dbP);
  return res;
}
 
static
Boolean
LoadGame(UInt16 fileno_)
{
  DmOpenRef   dbP;
  MemHandle   rec;
  Char        sid[16];
  MemPtr      p;
  Boolean     res = true;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if ((dbP = OpenDatabase("ZAMAuser")) == NULL) {
    FrmCustomAlert(ZAMA_NODATA_ALERT, StrIToA(sid, fileno_), NULL, NULL);
    return false;
  }
  if ((rec = DmQueryRecord(dbP, fileno_)) == NULL) {
    FrmCustomAlert(ZAMA_NODATA_ALERT, StrIToA(sid, fileno_), NULL, NULL);
    res = false;
    goto _done;
  }
  p = MemHandleLock(rec);
 
  MemMove((MemPtr)&z->user, p, sizeof(ZamaUserDataType));
 
  MemHandleUnlock(rec);
  z->prefs._lastSaved = fileno_;
 _done:;
  DmCloseDatabase(dbP);
  return res;
}
 
#ifdef USE_GRAPH2
static
FontID
ZamaFontSelect(FontID curFont_)
{
  FormPtr       formP;
  UInt16        ret;
  Coord         x, y;
  WinHandle     hWin;
  RectangleType bounds;
  FontID        font;
  UInt16        small, fnt;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  formP = FrmInitForm(ZAMA_FONT_FORM);
  GGetDisplayExtent(&x, &y, false);
  if (y > 160) {
    /* silk turned off */
    hWin = FrmGetWindowHandle(formP);
    WinGetBounds(hWin, &bounds);
    bounds.topLeft.y += stdSilkHeight;
    if (bounds.topLeft.y + bounds.extent.y >= y) {
      bounds.topLeft.y = y - bounds.extent.y;
    }
    WinSetBounds(hWin, &bounds);
  }
  small = FrmGetObjectIndex(formP, ZAMA_SMALL_FONT);
  font = curFont_;
  if (font & fntAppFontCustomBase) {
    font -= fntAppFontCustomBase;
    CtlSetValue(FrmGetObjectPtr(formP, small), true);
  }
  switch (font) {
  case stdFont:       fnt = ZAMA_STD_FONT;        break;
  case boldFont:      fnt = ZAMA_BOLD_FONT;       break;
  case largeFont:     fnt = ZAMA_LARGE_FONT;      break;
  case largeBoldFont: fnt = ZAMA_LARGE_BOLD_FONT; break;
  default:
    CtlSetValue(FrmGetObjectPtr(formP, small), true);
    if (font == z->tinyFontID) {
      fnt = ZAMA_STD_FONT;
    } else if (font == z->tinyBoldFontID) {
      fnt = ZAMA_BOLD_FONT;
    } else if (font == z->smallFontID) {
      fnt = ZAMA_LARGE_FONT;
    } else if (font == z->smallBoldFontID) {
      fnt = ZAMA_LARGE_BOLD_FONT;
    } else {
      fnt = ZAMA_STD_FONT;
    }
    break;
  }
  fnt = FrmGetObjectIndex(formP, fnt);
  CtlSetValue(FrmGetObjectPtr(formP, fnt), true);
  FrmUpdateForm(ZAMA_FONT_FORM, frmRedrawUpdateCode);
  ret = FrmDoDialog(formP);
  fnt = FrmGetControlGroupSelection(formP, ZAMA_FONT_SELECT);
  if (fnt == frmNoSelectedControl) {
    ret = ZAMA_BUTTON_CANCEL;
  }
  if (fnt == FrmGetObjectIndex(formP, ZAMA_STD_FONT)) {
    fnt = stdFont;
  } else if (fnt == FrmGetObjectIndex(formP, ZAMA_BOLD_FONT)) {
    fnt = boldFont;
  } else if (fnt == FrmGetObjectIndex(formP, ZAMA_LARGE_FONT)) {
    fnt = largeFont;
  } else if (fnt == FrmGetObjectIndex(formP, ZAMA_LARGE_BOLD_FONT)) {
    fnt = largeBoldFont;
  } else {
    ret = ZAMA_BUTTON_CANCEL;
  }
  if (CtlGetValue(FrmGetObjectPtr(formP, small))) {
    if (z->tsPatch) {
      switch (fnt) {
      case stdFont:      fnt = z->tinyFontID; break;
      case boldFont:     fnt = z->tinyBoldFontID; break;
      case largeFont:    fnt = z->smallFontID; break;
      case largeBoldFont: fnt = z->smallBoldFontID; break;
      }
    } else {
      fnt += fntAppFontCustomBase;
    }
  }
  FrmDeleteForm(formP);
  return (ret == ZAMA_BUTTON_OK) ? fnt : curFont_;
}
#endif /* USE_GRAPH2 */
 
static
Boolean
ZamaSndPlay(UInt16 id)
{
  UInt16  volRefNum;
  Err     err;
  Char    *pathFmt =  = "/Palm/PROGRAMS/high/%d.wav";
  Char    pathName[1024];
  FileRef dbFileRef;
  UInt32  size;
  SndPtr  bufP;
  UInt32  vIterator;
  ZamaGlobalVarType *z = CreateGlobalVariables();
  if (z->prefs._sound) {
    /* play sound */
    StrPrintF(pathName, pathFmt, id);
    vIterator = vfsIteratorStart;
     err = VFSVokumeEnumerate(&volRefNum, &vIterator);
    if (err != errNone) {
      return false;
    }
    if (VFSFileOpen(volRefNum, pathName, vfsModeRead, &dbFileRef) != errNone) {
      return false;
    }
    VFSFileSize(dbFileRef, &size);
  }
  return true;
}
 
static
void
VOSplit(Char *srcP_)
{
  Char   *p;
  UInt16  i;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  StrCopy(z->cmd, "!!!!");
  StrCopy(z->obj, "!!!!");
  for (p = srcP_ ; *p && *p == ' ' ; p++); /* skip heading space */
  for (i = 0 ; *p && *p != ' ' && i < 4 ; i++) {
    z->cmd[i] = 1 + *p++;
  }
  for ( ; *p && *p != ' ' ; p++); /* skip until space */
  for ( ; *p && *p == ' ' ; p++); /* skip space */
  for (i = 0 ; *p && *p != ' ' && i < 4 ; i++) {
    z->obj[i] = 1 + *p++;
  }
}
 
static
UInt16
SearchWord(Char *word_, Boolean verb_)
{
  DmOpenRef   dbP;
  MemHandle   rec;
  ZamaWordPtr p;
  UInt16      index;
  UInt16      i, n;
 
  if (word_ == NULL || StrCompare("!!!!", word_) == 0) {
    return 0;
  }
  if ((dbP = OpenDatabase("ZAMAdict")) == NULL) {
    FrmCustomAlert(ZAMA_FATAL_ALERT, "����", NULL, NULL);
    return 0;
  }
  index = (verb_) ? 0 : 1;
  n = 0;
  if ((rec = DmQueryRecord(dbP, index)) == NULL) {
    FrmCustomAlert(ZAMA_FATAL_ALERT, "����", NULL, NULL);
    goto _done;
  }
  p = (ZamaWordPtr)MemHandleLock(rec);
  for (i = 0 ; p[i].word[0] ; i++) {
    if (StrNCaselessCompare(word_, p[i].word, 4) == 0) {
      n = p[i].number;
      break;
    }
  }
  MemHandleUnlock(rec);
 _done:;
  DmCloseDatabase(dbP);
  return n;
}
 
static
MemHandle
SearchFixedMessage(UInt16 mesgId_)
{
  ZamaMesgPtr  p = NULL;
  UInt16       i;
  DmOpenRef    dbP;
  MemHandle    rec, mesg;
  ZamaMesgPtr  mesgP;
 
  if ((dbP = OpenDatabase("ZAMAdict")) == NULL) {
    /* error */
    FrmCustomAlert(ZAMA_FATAL_ALERT, "����", NULL, NULL);
    return 0;
  }
  mesg = 0;
  if ((rec = DmQueryRecord(dbP, 2)) == NULL) {
    FrmCustomAlert(ZAMA_FATAL_ALERT, "����", NULL, NULL);
    goto _done;
  }
  mesgId_ &= 0x7f;
  p = (ZamaMesgPtr)MemHandleLock(rec);
  for (i = 0 ; p->len > 0 && i < mesgId_ - 1 ; i++) {
    p = (ZamaMesgPtr)(p->mesg + p->len);
  }
  if (p && p->len) {
    mesg = MemHandleNew(sizeof(ZamaMesgType) + p->len - 1);
    mesgP = (ZamaMesgPtr)MemHandleLock(mesg);
    MemMove(mesgP, p, sizeof(ZamaMesgType) + p->len - 1);
    MemHandleUnlock(mesg);
  }
 
  MemHandleUnlock(rec);
 _done:;
  DmCloseDatabase(dbP);
  return mesg;
}
 
static
MemHandle
SearchMapMessage(UInt16 cmdN_, UInt16 objN_)
{
  ZamaMesgPtr      p = NULL;
  int              i;
  int              n = 0;
  ZamaReactionType mp;
  UInt8           *rp = map.reaction;
  MemHandle        mesg;
  ZamaMesgPtr      mesgP;
 
  cmdN_ = (cmdN_ << 8) | objN_;
  for (i = 0 ; *rp ; i++) {
    mp.action = (rp[0] << 8) | rp[1];
    mp.number = rp[2];
    if (cmdN_ == mp.action) {
      p = (ZamaMesgPtr)map.mesg;
      for (n = 0 ; p->len > 0 && n < mp.number - 1 ; n++) {
        p = (ZamaMesgPtr)(p->mesg + p->len);
      }
      break;
    }
    rp += 3;
  }
  mesg = 0;
  if (p && p->len) {
    mesg = MemHandleNew(sizeof(ZamaMesgType) + p->len - 1);
    mesgP = (ZamaMesgPtr)MemHandleLock(mesg);
    MemMove(mesgP, p, sizeof(ZamaMesgType) + p->len - 1);
    MemHandleUnlock(mesg);
  } else {
    cmdN_ >>= 8; /* restore Command ID */
    i = 0;
    if (cmdN_ <= 0x0e && cmdN_ >= 0x0b) {
      i = cmdN_ - 8;
    } else if (cmdN_ == 7 || cmdN_ == 8) {
      i = cmdN_ - 6;
    } else if (cmdN_ >= 0x11 && cmdN_ <= 0x18) {
      i = cmdN_ - 9;
    } else if (cmdN_ == 0x1c || cmdN_ == 0x1d) {
      i = cmdN_ - 12;
    } else if (cmdN_ == 0x20 || cmdN_ == 0x21) {
      i = cmdN_ - 14;
    } else if (cmdN_ == 0x26) {
      i = 0x14;
    } else if (cmdN_ == 0x28 || cmdN_ == 0x2f) {
      i = 0x15;
    } else if (cmdN_ == 0x29) {
      i = 7;
    } else if (objN_ == 0) {
      i = 0x30 + (SysRandom(0) % 4);
    }
    if (i) {
      mesg = SearchFixedMessage(i);
    }
  }
  return mesg;
}
 
static
void
ScrollMessageField(void)
{
  Int16        lines, pos, min, max, page;
  UInt16       scrollPos, textHeight, fieldHeight;
  FieldPtr     fldP;
  ScrollBarPtr scrP;
  fldP = GetObjectPtr(ZAMA_MESSAGE_FIELD);
  scrP = GetObjectPtr(ZAMA_SCROLL_BAR);
  SclGetScrollBar(scrP, &pos, &min, &max, &page);
  FldGetScrollValues(fldP, &scrollPos, &textHeight, &fieldHeight);
  lines = (pos - scrollPos) /** GScale()*/;
  if (lines > 0) {
    FldScrollField(fldP, lines, winDown);
  } else if (lines < 0) {
    FldScrollField(fldP, -lines, winUp);
  }
  FldSetDirty(fldP, true);
#ifdef USE_GRAPH2
  if (tsPatch) {
    FldDrawField(fldP);
  } else {
    GFldDrawField(fldP);
  }
#else /* USE_GRAPH2 */
  ZamaFldDrawField(fldP);
#endif /* USE_GRAPH2 */
}
 
static
void
UpdateMessageFieldScrollbar(void)
{
  UInt16       scrollPos, textHeight, fieldHeight;
  Int16        maxValue;
  FieldPtr     fldP;
  ScrollBarPtr scrP;
 
  fldP = GetObjectPtr(ZAMA_MESSAGE_FIELD);
  scrP = GetObjectPtr(ZAMA_SCROLL_BAR);
  maxValue = 0;
  FldGetScrollValues(fldP,&scrollPos, &textHeight, &fieldHeight);
  /* fieldHeight *= GScale(); */
  if (textHeight > fieldHeight) {
    maxValue = (textHeight - fieldHeight) + FldGetNumberOfBlankLines(fldP);
  } else if (scrollPos) {
    maxValue = scrollPos;
  }
  SclSetScrollBar(scrP, scrollPos, 0, maxValue, fieldHeight - 1);
}
 
static
void
CleanMessageField(void)
{
  FieldPtr  fldP;
  MemHandle hText;
 
  fldP = GetObjectPtr(ZAMA_MESSAGE_FIELD);
#ifdef USE_GRAPH2
  if (tsPatch) {
    FldEraseField(fldP);
  } else {
    GFldEraseField(fldP);
  }
#else /* USE_GRAPH2 */
  ZamaFldEraseField(fldP);
#endif /* USE_GRAPH2 */
  if ((hText = FldGetTextHandle(fldP)) != NULL) {
    FldSetTextHandle(fldP, NULL);
    MemHandleFree(hText);
    FldSetDirty(fldP, true);
  }
  UpdateMessageFieldScrollbar();
#ifdef USE_GRAPH2
  if (tsPatch) {
    FldDrawField(fldP);
  } else {
    GFldDrawField(fldP);
  }
#else /* USE_GRAPH2 */
  ZamaFldDrawField(fldP);
#endif /* USE_GRAPH2 */
}
 
static
void
PutMessageToField(Char *strP_, UInt16 len_)
{
  FieldPtr      fldP;
  MemHandle     hText;
  Char          *textP;
  UInt16        max;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  fldP  = GetObjectPtr(ZAMA_MESSAGE_FIELD);
  max   = FldGetTextLength(fldP);
  hText = FldGetTextHandle(fldP);
  FldSetTextHandle(fldP, NULL);
  if (hText == NULL) {
    hText = MemHandleNew(len_ + 1);
    textP = MemHandleLock(hText);
  } else {
    MemHandleResize(hText, max + len_ + 2);
    textP = MemHandleLock(hText);
    textP[max++] = '\n'; /* add newline */
    textP[max]   = 0;
  }
  MemMove(&textP[max], strP_, len_);
  textP[max + len_] = 0;
  MemHandleUnlock(hText);
 
  FldSetTextHandle(fldP, hText);
  FldSetDirty(fldP, true);
#ifdef USE_GRAPH2
  if (z->tsPatch) {
    FldDrawField(fldP);
  } else {
    GFldDrawField(fldP);
  }
#else /* USE_GRAPH2 */
  ZamaFldDrawField(fldP);
#endif /* USE_GRAPH2 */
  UpdateMessageFieldScrollbar();
}
 
static
void
DrawMessage(UInt16 mesgId_, UInt16 cmdN_, UInt16 objN_)
{
  Char          *strP;
  UInt16        len;
  MemHandle     mesg;
  ZamaMesgPtr   mesgP;
 
  if (mesgId_ & 0x80) {
    mesg = SearchFixedMessage(mesgId_ & 0x7f);
  } else {
    if (mesgId_ == 1) {
      mesgP = (ZamaMesgPtr)map.mesg;
      mesg  = MemHandleNew(sizeof(ZamaMesgType) + mesgP->len - 1);
      MemMove(MemHandleLock(mesg), mesgP, sizeof(ZamaMesgType) + mesgP->len - 1);
      MemHandleUnlock(mesg);
    } else {
      mesg = SearchMapMessage(cmdN_, objN_);
    }
  }
  strP = "�_��";
  len  = StrLen(strP);
  if (mesg) {
    mesgP = (ZamaMesgPtr)MemHandleLock(mesg);
    strP  = mesgP->mesg;
    len   = mesgP->len;
  }
  PutMessageToField(strP, len);
  if (mesg) {
    MemHandleUnlock(mesg);
    MemHandleFree(mesg);
  }
}
 
static
Boolean
LoadInitData(void)
{
  DmOpenRef dbP;
  MemHandle rec;
  MemPtr    p;
  Boolean   res = true;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if ((dbP = OpenDatabase("ZAMAinit")) == NULL) {
    /* error */
    FrmCustomAlert(ZAMA_FATAL_ALERT, "�����f�[�^", NULL, NULL);
    return false;
  }
  if ((rec = DmQueryRecord(dbP, 0)) == NULL) {
    FrmCustomAlert(ZAMA_FATAL_ALERT, "�����f�[�^", NULL, NULL);
    res = false;
    goto _done;
  }
  p   = (MemPtr)MemHandleLock(rec);
  MemMove(&z->user.vector, p, sizeof(z->user.vector));
  MemHandleUnlock(rec);
 
  if ((rec = DmQueryRecord(dbP, 1)) == NULL) {
    FrmCustomAlert(ZAMA_FATAL_ALERT, "�����f�[�^", NULL, NULL);
    res = false;
    goto _done;
  }
  p   = (MemPtr)MemHandleLock(rec);
  MemMove(&z->user.place, p, sizeof(z->user.place));
  MemHandleUnlock(rec);
 
  if ((rec = DmQueryRecord(dbP, 2)) == NULL) {
    FrmCustomAlert(ZAMA_FATAL_ALERT, "�����f�[�^", NULL, NULL);
    res = false;
    goto _done;
  }
  p   = (MemPtr)MemHandleLock(rec);
  MemMove(&z->user.fact, p, sizeof(z->user.fact));
  MemHandleUnlock(rec);
 _done:;
  DmCloseDatabase(dbP);
  return res;
}
 
static
Boolean
LoadMapData(UInt16 id)
{
  DmOpenRef dbP;
  MemHandle rec;
  MemPtr    p;
  Boolean   res = true;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if ((dbP = OpenDatabase("ZAMAmap")) == NULL) {
    /* error */
    FrmCustomAlert(ZAMA_FATAL_ALERT, "�n�}", NULL, NULL);
    return false;
  }
  if ((rec = DmQueryRecord(dbP, id)) == NULL) {
    FrmCustomAlert(ZAMA_FATAL_ALERT, "�n�}", NULL, NULL);
    res = false;
    goto _done;
  }
  p   = (MemPtr)MemHandleLock(rec);
  MemMove(&z->map, p, sizeof(ZamaMapType));
  MemHandleUnlock(rec);
 _done:;
  DmCloseDatabase(dbP);
  return true;
}
 
static
Boolean
LoadObjectData(UInt16 id)
{
  DmOpenRef dbP;
  MemHandle rec;
  MemPtr    p;
  Boolean   res = true;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if ((dbP = OpenDatabase("ZAMAobj")) == NULL) {
    /* error */
    FrmCustomAlert(ZAMA_FATAL_ALERT, "��̉摜", NULL, NULL);
    return false;
  }
  if ((rec = DmQueryRecord(dbP, id)) == NULL) {
    FrmCustomAlert(ZAMA_FATAL_ALERT, "��̉摜", NULL, NULL);
    res = false;
    goto _done;
  }
  p   = (MemPtr)MemHandleLock(rec);
  MemMove(z->object, p, 0x200);
  MemHandleUnlock(rec);
 _done:;
  DmCloseDatabase(dbP);
  return true;
}
 
static
UInt16
WinDrawOutline(RectanglePtr bP, UInt8 *data,
#ifdef USE_GRAPH2
               GColorName c
#else /* USE_GRAPH2 */
               ZamaColorName c
#endif /* USE_GRAPH2 */
               )
{
  Coord  x0, y0, x1, y1;
  UInt16 i = 0;
 
  x0 = data[i++];
  y0 = data[i++];
  for (;;) {
    x1 = data[i++];
    y1 = data[i++];
    if (y1 == 0xff) {
      if (x1 == 0xff) {
        /* end of line data */
        break;
      }
      /* reset line */
      x0 = data[i++];
      y0 = data[i++];
      continue;
    }
#ifdef USE_GRAPH2
    GDrawLine(NULL,
              bP->topLeft.x + x0, bP->topLeft.y + y0,
              bP->topLeft.x + x1, bP->topLeft.y + y1, c);
#else /* USE_GRAPH2 */
    ZamaDrawLine(bP->topLeft.x + x0, bP->topLeft.y + y0,
                 bP->topLeft.x + x1, bP->topLeft.y + y1, c);
#endif /* USE_GRAPH2 */
    x0 = x1; y0 = y1;
  }
  return i;
}
 
static
void
DrawObject(Boolean pre, UInt8 *data)
{
  UInt16           o = 0;
  Coord            xs, ys;
  UInt8            b, c;
  RectangleType    r;
 
  b  = data[o++];
  xs = (data[o++] / 2) + 32;
  ys = data[o++] + 32;
  RctSetRectangle(&r, xs, ys, 32 + 256 - xs, 32 + 152 - ys);
  WinPushDrawState();
#ifdef USE_GRAPH2
  o += WinDrawOutline(&r, &data[o], (pre)? gColorDarkYellow : b);
#else /* USE_GRAPH2 */
  o += WinDrawOutline(&r, &data[o], (pre)? DarkYellow : b);
#endif /* USE_GRAPH2 */
  xs = data[o++];
  ys = data[o++];
  while (xs != 0xff || ys != 0xff) {
    c = data[o++];
    /* in order to avoid paint loss */
#ifdef USE_GRAPH2
    GPaint(&r, xs, ys, (pre)? gColorDarkGray : c, (pre)? gColorDarkYellow : b);
#else /* USE_GRAPH2 */
    ZamaPaint(&r, xs, ys, (pre) ? DarkGray : c, (pre) ? DarkYellow : b);
#endif /* USE_GRAPH2 */
    xs = data[o++];
    ys = data[o++];
  }
  WinPopDrawState();
}
 
static
void
ObjectCheck(UInt16 mapID, Boolean msgOut)
{
  int              i;
  int              o = 0;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  for (i = 0 ; i < 12 ; i++) {
    if (z->user.place[i] == mapID && LoadObjectData(i + 1)) {
      /* draw object bitmap */
      o = 0;
      if (i == 1 /* Uniform */) {
        o = (z->user.fact[0] == 1) ? 0 : 256;
      }
      DrawObject(true,  &object[o]);
      DrawObject(false, &object[o]);
      if (msgOut) DrawMessage(0x96 + i, 0, 0);
    }
  }
}
 
static
void
DrawTeacher(void)
{
  Coord             x0, y0, x1, y1, oy;
  UInt16            i, j, k;
  UInt8             c = 0;
  UInt16            rep[] = { 18, 24, 2, 2, 2, 22, 9, 0xffff };
  UInt16            rep2[] = { 148, 14, 126, 6, 0, 0 };
  RectangleType     r, wr;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  oy = 32;
  if (LoadObjectData(15)) {
    RctSetRectangle(&r, 0, 0, 320, 320);
    y0 = 63;
    for (i = 0 ; i <= 172 ; i += 2) {
      x0 = z->object[i + 0];
      x1 = z->object[i + 1];
#ifdef USE_GRAPH2
    GDrawLine(NULL, x0, oy + y0, x1, oy + y0, gColorBlue);
#else /* USE_GRAPH2 */
    ZamaDrawLine(x0, oy + y0, x1, oy + y0, Blue);
#endif /* USE_GRAPH2 */
      ++y0;
    }
    for (j = 0 ; rep[j] != 0xffff ; j++) {
#ifdef USE_GRAPH2
      c  = z->object[i++];
      if (c == gColorRed) {
        c = gColorDarkRed;
      }
#else /* USE_GRAPH2 */
      c  = z->object[i++];
      if (c == Red) {
        c = DarkRed;
      }
#endif /* USE_GRAPH2 */
      x0 = z->object[i++];
      y0 = z->object[i++];
      for (k = 0 ; k <= rep[j] + 1 ; k++) {
        x1 = z->object[i++];
        y1 = z->object[i++];
#ifdef USE_GRAPH2
        GDrawLine(NULL, x0, oy + y0, x1, oy + y1, c);
#else /* USE_GRAPH2 */
        ZamaDrawLine(x0, oy + y0, x1, oy + y1, c);
#endif /* USE_GRAPH2 */
        x0 = x1;
        y0 = y1;
      }
      x0 = z->object[i++];
      y0 = z->object[i++];
      WinPushDrawState();
#ifdef USE_GRAPH2
      GPaint(&r, x0, oy + y0, c, c);
#else /* USE_GRAPH2 */
      ZamaPaint(&r, x0, oy + y0, c, c);
#endif /* USE_GRAPH2 */
      WinPopDrawState();
    }
    x0 = z->object[i++];
    y0 = z->object[i++];
#ifdef USE_GRAPH2
    GPaint(&r, x0, oy + y0, c, c);
#else /* USE_GRAPH2 */
    ZamaPaint(&r, x0, oy + y0, c, c);
#endif /* USE_GRAPH2 */
    for (j = 120 ; j < 124 ; j++) {
#ifdef USE_GRAPH2
      GDrawLine(NULL, j, oy + 64, j + 8, oy + 110, gColorYellow);
      GDrawLine(NULL, j + 9, oy + 110, j + 11, oy + 126, gColorWhite);
#else /* USE_GRAPH2 */
      ZamaDrawLine(j, oy + 64, j + 8, oy + 110, Yellow);
      ZamaDrawLine(j + 9, oy + 110, j + 11, oy + 126, White);
#endif /* USE_GRAPH2 */
    }
#ifdef USE_GRAPH2
    GDrawLine(NULL, 125, oy + 111, 133, oy + 109, gColorRed);
    GDrawLine(NULL, 133, oy + 109, 134, oy + 110, gColorRed);
    GDrawLine(NULL, 134, oy + 110, 125, oy + 112, gColorRed);
    GDrawLine(NULL, 125, oy + 112, 125, oy + 111, gColorRed);
    GDrawLine(NULL, 120, oy +  65, 123, oy +  64, gColorWhite);
    GDrawLine(NULL, 123, oy +  64, 121, oy +  62, gColorWhite);
    GDrawLine(NULL, 121, oy +  62, 120, oy +  65, gColorWhite);
    GPaint(&r, 122,oy +  63, gColorWhite, gColorWhite);
#else /* USE_GRAPH2 */
    ZamaDrawLine(125, oy + 111, 133, oy + 109, Red);
    ZamaDrawLine(133, oy + 109, 134, oy + 110, Red);
    ZamaDrawLine(134, oy + 110, 125, oy + 112, Red);
    ZamaDrawLine(125, oy + 112, 125, oy + 111, Red);
    ZamaDrawLine(120, oy +  65, 123, oy +  64, White);
    ZamaDrawLine(123, oy +  64, 121, oy +  62, White);
    ZamaDrawLine(121, oy +  62, 120, oy +  65, White);
    ZamaPaint(&r, 122,oy +  63, White, White);
#endif /* USE_GRAPH2 */
    for (k = 0 ; rep2[k + 1] != 0 ; k += 2) {
      for (j = 0, x0 = rep2[k] ; j < rep2[k + 1] ; j += 2) {
        y0 = z->object[i++];
        y1 = z->object[i++];
#ifdef USE_GRAPH2
        GDrawLine(NULL, x0, oy + y0, x0, oy + y1, gColorMagenta); ++x0;
        GDrawLine(NULL, x0, oy + y0, x0, oy + y1, gColorYellow);  ++x0;
#else /* USE_GRAPH2 */
        ZamaDrawLine(x0, oy + y0, x0, oy + y1, Magenta); ++x0;
        ZamaDrawLine(x0, oy + y0, x0, oy + y1, Yellow);  ++x0;
#endif /* USE_GRAPH2 */
        y0 = z->object[i++];
        y1 = z->object[i++];
#ifdef USE_GRAPH2
        GDrawLine(NULL, x0, oy + y0, x0, oy + y1, gColorWhite);   ++x0;
#else /* USE_GRAPH2 */
        ZamaDrawLine(x0, oy + y0, x0, oy + y1, White);   ++x0;
#endif /* USE_GRAPH2 */
      }
    }
 
#ifdef USE_GRAPH2
    RctSetRectangle(&wr, 149, oy + 78, 16, 6);
    GDrawRectangle(&wr, gColorBlack);
    RctSetRectangle(&wr, 150, oy + 79, 14, 4);
    GDrawRectangle(&wr, gColorWhite);
    RctSetRectangle(&wr, 156, oy + 78,  2, 6);
    GDrawRectangle(&wr, gColorBlack);
#else /* USE_GRAPH2 */
    RctSetRectangle(&wr, 149, oy + 78, 16, 6);
    ZamaDrawRectangle(&wr, Black);
    RctSetRectangle(&wr, 150, oy + 79, 14, 4);
    ZamaDrawRectangle(&wr, White);
    RctSetRectangle(&wr, 156, oy + 78,  2, 6);
    ZamaDrawRectangle(&wr, Black);
#endif /* USE_GRAPH2 */
 
    for (;;) {
      x1 = z->object[i++];
      y1 = z->object[i++];
      if (y1 == 0xff) {
        if (x1 == 0xff) {
          break;
        }
        x0 = z->object[i++];
        y0 = z->object[i++];
        continue;
      }
 
#ifdef USE_GRAPH2
      GDrawLine(NULL, x0, oy + y0, x1, oy + y1, gColorBlack);
#else /* USE_GRAPH2 */
      ZamaDrawLine(x0, oy + y0, x1, oy + y1, Black);
#endif /* USE_GRAPH2 */
      x0 = x1;
      y0 = y1;
    }
  }
}
 
static
void
CleanMap(
#ifdef USE_GRAPH2
         GColorName c_
#else /* USE_GRAPH2 */
         ZamaColorName c_
#endif /* USE_GRAPH2 */
)
{
  ZamaGlobalVarType *z = CreateGlobalVariables();
#ifdef USE_GRAPH2
  GDrawRectangle(&z->pict, c_);
#else /* USE_GRAPH2 */
  ZamaDrawRectangle(&z->pict, c_);
#endif /* USE_GRAPH2 */
}
 
static
void
DrawMap(Boolean putMesg_)
{
  UInt16        i = 0;
  Coord         x0, y0;
  UInt8         c;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  WinPushDrawState();
  i += z->map.graphic[i] * 3 + 1; /* skip HALF paint pattern */
 
  if (z->_startup == 0) {
    if (z->user.sys.n.mapID == 85 || z->user.sys.n.mapID == 84) {
      /* never draw */
#ifdef USE_GRAPH2
      CleanMap(gColorBlack);
#else /* USE_GRAPH2 */
      CleanMap(Black);
#endif /* USE_GRAPH2 */
      DrawMessage(0xcc, 0, 0);
      goto _done;
    }
  }
 
#ifdef USE_GRAPH2
  CleanMap(gColorBlue);
  /* draw outline */
  i += WinDrawOutline(&z->pict, &z->map.graphic[i], gColorWhite);
#else /* USE_GRAPH2 */
  CleanMap(Blue);
  /* draw outline */
  i += WinDrawOutline(&z->pict, &z->map.graphic[i], White);
#endif /* USE_GRAPH2 */
  /* paint */
  x0 = z->map.graphic[i++];
  y0 = z->map.graphic[i++];
  while (x0 != 0xff || y0 != 0xff) {
    c = z->map.graphic[i++];
#ifdef USE_GRAPH2
    GPaint(&z->pict, x0, y0, c, gColorWhite);
#else /* USE_GRAPH2 */
    ZamaPaint(&z->pict, x0, y0, c, White);
#endif /* USE_GRAPH2 */
    x0 = z->map.graphic[i++];
    y0 = z->map.graphic[i++];
  }
  if (z->map.graphic[i] == 0xff && z->map.graphic[i + 1] == 0xff) {
    i += 2;
  } else {
#ifdef USE_GRAPH2
    i += WinDrawOutline(&z->pict, &z->map.graphic[i], gColorWhite);
#else /* USE_GRAPH2 */
    i += WinDrawOutline(&z->pict, &z->map.graphic[i], White);
#endif /* USE_GRAPH2 */
  }
  if (z->map.graphic[i] == 0xff && z->map.graphic[i + 1] == 0xff) {
    i += 2;
  } else {
#ifdef USE_GRAPH2
    i += WinDrawOutline(&z->pict, &z->map.graphic[i], gColorBlack);
#else /* USE_GRAPH2 */
    i += WinDrawOutline(&z->pict, &z->map.graphic[i], Black);
#endif /* USE_GRAPH2 */
  }
  if (z->map.graphic[0]) {
#ifdef USE_GRAPH2
    GChromakeyPaint(&z->pict, &z->map.graphic[0], z->prefs._linedraw);
#else /* USE_GRAPH2 */
    ZamaChromakeyPaint(&z->pict, &z->map.graphic[0], z->prefs._linedraw);
#endif /* USE_GRAPH2 */
  }
  /* put message #0 */
  if (putMesg_) DrawMessage(1, 0, 0);
 _done:;
  WinPopDrawState();
}
 
static
void
GameInit(void)
{
  FormPtr    formP;
  ControlPtr btnP, chkP;
  FieldPtr   fldP;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  z->user.sys.n.mapID = 76;
  switch (z->_startup) {
  case ZAMA_CODE_ISAKO: z->user.sys.n.mapID = 84; break;
  default: break;
  }
 
  formP = FrmGetActiveForm();
  btnP  = GetObjectPtr(ZAMA_BUTTON_START);
  fldP  = GetObjectPtr(ZAMA_COMMAND_FIELD);
  chkP  = GetObjectPtr(ZAMA_CONTINUE);
 
  FldEraseField(fldP);
  FldSetUsable(fldP, false);
  CtlSetUsable(btnP, true);
  CtlShowControl(btnP);
  CtlSetUsable(chkP, z->prefs._suspended);
  CtlSetValue(chkP, z->prefs._suspended);
  if (z->prefs._suspended) {
    CtlShowControl(chkP);
  }
 
  FrmDrawForm(formP);
  CleanMessageField();
  LoadMapData(z->user.sys.n.mapID);
  DrawMap(false);
  PutMessageToField("�n�C�n�C�X�N�[���E�A�h�x���`���[", 52);
  PutMessageToField("   Copyright (c) 1985 ZOBplus   ", 52);
  PutMessageToField(" Copyright (c) 2002-2025 ZOBplus hiro", 52);
  z->_startup = 0; /* reset */
  z->_over = true; /* not yet started */
}
 
static
void
GameOver(void)
{
  FormPtr    formP;
  ControlPtr btnP, chkP;
  FieldPtr   fldP;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  formP = FrmGetActiveForm();
  btnP  = GetObjectPtr(ZAMA_BUTTON_START);
  fldP  = GetObjectPtr(ZAMA_COMMAND_FIELD);
  chkP  = GetObjectPtr(ZAMA_CONTINUE);
 
  z->prefs._suspended = false;
 
  FldEraseField(fldP);
  FldSetUsable(fldP, false);
  CtlSetUsable(btnP, true);
  CtlShowControl(btnP);
  CtlSetUsable(chkP, false);
  CtlSetValue(chkP, false);
 
  z->_over = true;
}
 
inline UInt8
getCond(UInt16 type_, UInt16 id_, UInt16 offset_)
{
  ZamaGlobalVarType *z = CreateGlobalVariables();
  UInt8 value;
  switch (type_) {
  case 0: value = 0; break;
  case 1: value = z->user.fact[id_]; break;
  case 2: value = z->user.place[id_]; break;
  case 3: value = z->user.sys.ary[id_]; break;
  case 4: value = z->user.vector[offset_ - 1][id_]; break;
  case 5:
  case 6:
  case 7:
  default: value = 0; break;
  }
  return value;
}
 
inline void
setStat(UInt16 type_, UInt16 id_, UInt16 offset_, UInt8 value_)
{
  ZamaGlobalVarType *z = CreateGlobalVariables();
  switch (type_) {
  case 0: break;
  case 1: z->user.fact[id_]   = value_; break;
  case 2: z->user.place[id_]  = value_; break;
  case 3: z->user.sys.ary[id_] = value_; break;
  case 4: z->user.vector[offset_ - 1][id_] = value_; break;
  case 5:
  case 6:
  case 7:
  default: break;
  }
}
 
static Boolean SexHandleEvent(EventPtr);
static Boolean FileHandleEvent(EventPtr);
static Boolean InvHandleEvent(EventPtr);
static Boolean CutHandleEvent(EventPtr);
 
static
Boolean
DialogHandler(UInt16 id_)
{
  FormPtr       formP;
  UInt16        ret;
  Boolean       redraw = false;
  ControlPtr    chkP;
  Coord         x, y;
  RectangleType bounds;
  WinHandle     hWin;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  do {
    formP = FrmInitForm(id_);
    if (z->_silkr) {
      if (z->_silkVer < 0x02) {
        SilkLibDisableResize(z->_silkr);
      } else {
        VskSetState(z->_silkr, vskStateEnable, 0);
      }
      WinGetDisplayExtent(&x, &y);
      if (y > 160) {
        hWin = FrmGetWindowHandle(formP);
        WinGetBounds(hWin, &bounds);
        bounds.topLeft.y += stdSilkHeight;
        WinSetBounds(hWin, &bounds);
      }
    }
    switch(id_) {
    case ZAMA_SEX_FORM:
       FrmSetEventHandler(formP, SexHandleEvent);
      break;
    case ZAMA_FILE_FORM:
      FrmSetEventHandler(formP, FileHandleEvent);
      if (z->prefs._lastSaved) {
        ret  = FrmGetObjectIndex(formP, ZAMA_FILE_ID1 - 1 + z->prefs._lastSaved);
        chkP = FrmGetObjectPtr(formP, ret);
        CtlSetValue(chkP, true);
      }
      FrmDrawForm(formP);
      break;
    case ZAMA_INV_FORM:
      FrmSetEventHandler(formP, InvHandleEvent);
      FrmEraseForm(formP);
      for (ret = 0 ; ret < ZAMA_ITEM_NUMBERS ; ret++) {
        if (z->user.place[ret] == 0xff) {
          FrmShowObject(formP, FrmGetObjectIndex(formP, ZAMA_INV_BASE + ret));
        } else {
          FrmHideObject(formP, FrmGetObjectIndex(formP, ZAMA_INV_BASE + ret));
        }
      }
      FrmDrawForm(formP);
      break;
    case ZAMA_CUT_FORM:
      FrmSetEventHandler(formP, CutHandleEvent);
      break;
    }
    z->user.sys.n.dlogOk = false;
    z->user.sys.n.dmesg  = 0;
    ret = FrmDoDialog(formP);
    if (z->user.sys.n.dmesg) {
      CleanMessageField();
      DrawMessage(user.sys.n.dmesg, 0, 0);
    }
    FrmDeleteForm(formP);
    if (z->_silkr) {
      if (z->_silkVer < 0x02) {
        SilkLibEnableResize(z->_silkr);
      } else {
        VskSetState(z->_silkr, vskStateEnable, 1);
      }
    }
  } while (!z->user.sys.n.dlogOk);
  if (z->user.sys.n.dmesg == 0) {
    CleanMessageField();
  }
  switch (id_) {
  case ZAMA_SEX_FORM:
    z->user.sys.n.mapID = 3; /* enter to the room */
    redraw = true;
    break;
  case ZAMA_FILE_FORM:
    if (z->user.sys.n.dret) {
      if (z->user.sys.n.cmdN == 0xf) {
        SaveGame(z->user.sys.n.dret);
      } else {
        redraw = LoadGame(z->user.sys.n.dret);
        if (redraw) {
#ifdef USE_GRAPH2
          GPaletteChange(gColorInvalid); /* initialize palette */
#else /* USE_GRAPH2 */
          ZamaPaletteChange(InvalidColor); /* initialize palette */
#endif /* USE_GRAPH2 */
        }
      }
    }
    break;
  case ZAMA_INV_FORM: /* restore message field */
#ifdef USE_GRAPH2
    if (z->tsPatch) {
      FldDrawField(GetObjectPtr(ZAMA_MESSAGE_FIELD));
    } else {
      GFldDrawField(GetObjectPtr(ZAMA_MESSAGE_FIELD));
    }
#else /* USE_GRAPH2 */
    ZamaFldDrawField(GetObjectPtr(ZAMA_MESSAGE_FIELD));
#endif /* USE_GRAPH2 */
    break;
  case ZAMA_CUT_FORM: /* cut red or yellow */
    if (z->user.sys.n.dret == 0 || z->user.place[11] != 0xff) { /* fail */
      if (z->user.place[11] != 0xff) { /* no pinces */
        DrawMessage(0xe0, 0, 0);
      }
      /* color change to red */
#ifdef USE_GRAPH2
      GPaletteChange(gColorRed);
#else /* USE_GRAPH2 */
      ZamaPaletteChange(Red);
#endif /* USE_GRAPH2 */
      DrawMessage(0xc7, 0, 0);
      GameOver();
    } else {
      /* correctly choosen */
      z->user.place[11] = 0;
      z->user.sys.n.mapID = 74;
      ZamaSndPlay(3);
      redraw = true;
    }
    break;
  }
  return redraw;
}
 
static
Boolean
DarknessCheck(void)
{
  Boolean redraw = false;
  ZamaGlobalVarType *z = CreateGlobalVariables();
  if (z->user.sys.n.mapID != 84 && z->user.sys.n.mapID != 85) {
    if ((z->user.sys.n.mapID >= 47 && z->user.sys.n.mapID <= 49)||
        (z->user.sys.n.mapID >= 67 && z->user.sys.n.mapID <= 71)||
         z->user.sys.n.mapID == 61 || z->user.sys.n.mapID == 64 ||
         z->user.sys.n.mapID == 75 || z->user.sys.n.mapID == 65 ||
         z->user.sys.n.mapID == 74 || z->user.sys.n.mapID == 77) {
      if (z->user.fact[7] != 0) {
        if (z->user.fact[6] != 0) {
          /* semi-blue out */
#ifdef USE_GRAPH2
          GPaletteChange(gColorBlue);
#else /* USE_GRAPH2 */
          ZamaPaletteChange(Blue);
#endif /* USE_GRAPH2 */
        }
      } else {
        z->user.sys.n.mapW  = z->user.sys.n.mapID;
        z->user.sys.n.mapID = 84;
        redraw = true;
      }
    } else {
      if (z->user.fact[6] != 0) {
        /* normal state */
#ifdef USE_GRAPH2
        GPaletteChange(gColorInvalid);
#else /* USE_GRAPH2 */
        ZamaPaletteChange(InvalidColor);
#endif /* USE_GRAPH2 */
      }
    }
  }
  return redraw;
}
 
static
Boolean
RuleInterpreter(UInt16 cmdN_, UInt16 objN_)
{
  Boolean    res, ok, redraw;
  UInt16     i;
  RulePtr    rule;
  CmdBlkPtr  blk;
  UInt16     v1, v2;
  DmOpenRef  dbP;
  MemHandle  rec;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  res = false;
  if ((dbP = OpenDatabase("ZAMArule")) == NULL) {
    /* error */
    FrmCustomAlert(ZAMA_FATAL_ALERT, "���[��", NULL, NULL);
    return false;
  }
  if ((rec = DmQueryRecord(dbP, 0)) == NULL) {
    FrmCustomAlert(ZAMA_FATAL_ALERT, "���[��", NULL, NULL);
    goto _done;
  }
  rule = (RulePtr)MemHandleLock(rec);
 
  for (i = 0 ; rule[i]._mapId != EndOfRule ; i++) {
    if (rule[i]._mapId && rule[i]._mapId != z->user.sys.n.mapID) continue;
    if (rule[i]._cmdN  && rule[i]._cmdN  != cmdN_)            continue;
    if (rule[i]._objN  && rule[i]._objN  != objN_)            continue;
    /* check condition block */
    ok = true;
    for (blk = (CmdBlkPtr)rule[i]._args ; blk->_head._act == ActComp ; blk++) {
      v1 = getCond(blk->_head._type, blk->_head._id,
                   (blk->_body._type << 5) | blk->_body._id);
      if (blk->_head._type == TYPE_SYSTEM && blk->_head._id == 5) {
        z->user.sys.n.rand = SysRandom(0) % 256; /* update random number */
      }
      v2 = blk->_body._value;
      if (blk->_body._type && blk->_head._type != TYPE_VECTOR) {
        v2 = getCond(blk->_body._type, blk->_body._id, 0);
        if (blk->_body._type == TYPE_SYSTEM && blk->_body._id == 5) {
          z->user.sys.n.rand = SysRandom(0) % 256; /* update random number */
        }
      }
      switch (blk->_head._op) {
      case CMP_EQ: ok = ok && (v1 == v2); break;
      case CMP_NE: ok = ok && (v1 != v2); break;
      case CMP_GT: ok = ok && (v1 >  v2); break;
      case CMP_GE: ok = ok && (v1 >= v2); break;
      case CMP_LT: ok = ok && (v1 <  v2); break;
      case CMP_LE: ok = ok && (v1 <= v2); break;
      default:
        ok = false; /* no defalut operation is defined */
      }
      if (!ok) break; /* short circuit */
    }
    if (ok) break;
  }
  if (ok) {
    /* do action */
    redraw = false;
    ok  = false;
    for ( ; blk->_head._op ; blk++) {
      switch (blk->_head._op) {
      case ACT_MOVE:
        if (z->user.vector[z->user.sys.n.mapID - 1][blk->_body._value]) {
          /* moveable */
          z->user.sys.n.mapID =
            z->user.vector[z->user.sys.n.mapID - 1][blk->_body._value];
          redraw = true;
          res = true;
        } else {
          /* teacher check */
          if (z->user.fact[1] == z->user.sys.n.mapID && z->user.sys.n.rand > 85) {
            /* teacher catches you */
            DrawMessage(0xb5, 0, 0);
            /* game over */
            z->user.fact[1] = 0; /* teacher gone */
            GameOver();
            res = true;
          } else {
            /* you cannot move */
            DrawMessage(0xb6, 0, 0);
          }
          z->user.sys.n.rand = SysRandom(0) % 256;
          res = true;
        }
        break;
      case ACT_ASGN:
        v1 = (blk->_body._type << 5) | blk->_body._id;
        v2 = blk->_body._value;
        if (blk->_body._type && blk->_head._type != TYPE_VECTOR) {
          v2 = getCond(blk->_body._type, blk->_body._id, 0);
        }
        setStat(blk->_head._type, blk->_head._id, v1, v2);
        if (blk->_head._type == TYPE_PLACE || blk->_head._type == TYPE_FACT) {
          if (blk->_head._type == TYPE_PLACE) {
            if (v2 == 0xff) {
              redraw = true;
            } else {
              ObjectCheck(z->user.sys.n.mapID, true);
            }
          }
          ok = true;
        } else if(blk->_head._type == TYPE_SYSTEM) {
          if (blk->_head._id == 0) {
            redraw = true;
          } else if (blk->_head._id == 5) {
            z->user.sys.n.rand = SysRandom(0) % 256; /* update random number */
          }
        }
        res = true;
        break;
      case ACT_MESG:
        DrawMessage(blk->_body._value, 0, 0);
        res = true;
        break;
      case ACT_DLOG:
        redraw = DialogHandler(ZAMA_DIALOG_BASE + blk->_body._value);
        res = true;
        break;
      case ACT_LOOK:
        if (blk->_body._value == 0) { /* look back */
          z->user.sys.n.mapID = z->user.sys.n.mapW;
          z->user.sys.n.mapW  = 0;
        } else {
          z->user.sys.n.mapW  = z->user.sys.n.mapID;
          z->user.sys.n.mapID = blk->_body._value;
        }
        redraw = true;
        res = true;
        break;
      case ACT_SND:
        ZamaSndPlay(blk->_body._value);
        break;
      case ACT_OVER:
        ok = false;
        switch(blk->_body._value) {
        case 0: /* simply put dialog */
          z->user.fact[1] = 0; /* teacher gone */
          PutMessageToField("�f�������n������", 16);
          break;
        case 1: /* screen to red */
          PutMessageToField("�f�������n������", 16);
#ifdef USE_GRAPH2
          GPaletteChange(gColorRed);
#else /* USE_GRAPH2 */
          ZamaPaletteChange(Red);
#endif /* USE_GRAPH2 */
          break;
        case 2: /* game clear */
          PutMessageToField("�e����������", 12);
#ifdef USE_GRAPH2
          GPaletteChange(gColorInvalid);
#else /* USE_GRAPH2 */
          ZamaPaletteChange(InvalidColor);
#endif /* USE_GRAPH2 */
          FrmHelp(ZAMA_CREDIT_STR); /* put credit */
          break;
        }
        GameOver();
        res = true;
        break;
      default:
        /* error */
        res = false;
        break;
      }
    }
    if (ok) {
      PutMessageToField("�n.�j.", 6);
    }
    if (z->user.sys.n.mapID == 74) {
      switch (++z->user.fact[13]) {
      case 4:   DrawMessage(0xe2, 0, 0); break;
      case 6:   DrawMessage(0xe3, 0, 0); break;
      case 10:  DrawMessage(0xe4, 0, 0); break;
      default:  break;
      }
    }
    redraw = DarknessCheck() || redraw;
    if (redraw) {
      LoadMapData(z->user.sys.n.mapID);
      DrawMap(true);
      ObjectCheck(z->user.sys.n.mapID, true);
    }
  }
  MemHandleUnlock(rec);
 _done:;
  DmCloseDatabase(dbP);
  return res;
}
 
static
Boolean
CommandLoop(void)
{
  MemHandle     hStr;
  Char         *strP;
  UInt16        end, rd;
  FieldPtr      fldP;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if ((hStr = FldGetTextHandle(GetObjectPtr(ZAMA_COMMAND_FIELD))) == NULL) {
    /* fail to get string */
    return false;
  }
  strP = (Char*)MemHandleLock(hStr);
  end  = StrLen(strP);
  VOSplit(strP);
  CleanMessageField();
 
  z->user.sys.n.cmdN = SearchWord(z->cmd, true);
  z->user.sys.n.objN = SearchWord(z->obj, false);
  z->user.sys.n.rand = SysRandom(0) % 256;
 
  /* status check */
  if (z->user.fact[5] == 2) {
    z->user.vector[ 9 - 1][6] = 4;
    z->user.vector[10 - 1][6] = 19;
    z->user.vector[11 - 1][6] = 6;
    z->user.vector[14 - 1][6] = 7;
    z->user.vector[16 - 1][6] = 17;
    z->user.vector[24 - 1][6] = 8;
    z->user.vector[25 - 1][6] = 20;
    z->user.vector[26 - 1][6] = 22;
    z->user.vector[28 - 1][6] = 21;
    z->user.vector[30 - 1][6] = 5;
    z->user.vector[37 - 1][6] = 32;
    z->user.vector[38 - 1][6] = 33;
    z->user.vector[39 - 1][6] = 34;
    z->user.vector[40 - 1][6] = 31;
    z->user.vector[42 - 1][6] = 35;
    z->user.vector[44 - 1][6] = 36;
    z->user.fact[5] = 1;
  }
  if (z->user.fact[3] > 0 && z->user.fact[7] == 1) { /* light on */
    --z->user.fact[3]; /* battery */
    if (z->user.fact[3] < 8 && z->user.fact[3] > 0) {
      z->user.fact[6] = 1;
      DrawMessage(0xd9, 0, 0);
    }
    if (z->user.fact[3] == 0) { /* battery wear out */
      z->user.fact[7] = 0;
      DrawMessage(0xc0, 0, 0);
    }
  }
  if (z->user.fact[11] > 0) { /* count down */
    --z->user.fact[11];
    if (z->user.fact[11] == 0) {
      ZamaSndPlay(2);
      DrawMessage(0xd8, 0, 0);
      if (z->user.place[7] == 48) {
        z->user.vector[75 - 1][0] = 77;
        z->user.vector[68 - 1][2] = 77;
        DrawMessage(0xda, 0, 0);
      }
      if (z->user.place[7] == 255 || z->user.place[7] == z->user.sys.n.mapID) {
        /* explosion within the room where you are */
        /* change screen to red */
#ifdef USE_GRAPH2
        GPaletteChange(gColorRed);
#else /* USE_GRAPH2 */
        ZamaPaletteChange(Red);
#endif /* USE_GRAPH2 */
        DrawMessage(0xcf, 0, 0);
        DrawMessage(0xcb, 0, 0);
        /* game over */
        GameOver();
        goto _done;
      } else {
        z->user.place[7] = 0; /* explosion ... lose bomber */
      }
    }
  }
 
  if (z->user.sys.n.cmdN == ZAMA_CMD_INVALID || z->user.sys.n.cmdN >= ZAMA_CMD_END) {
    DrawMessage(0xaf + z->user.sys.n.rand % 5, 0, 0);
    goto _done;
  }
  if (! RuleInterpreter(z->user.sys.n.cmdN, z->user.sys.n.objN)) {
    DrawMessage(0, z->user.sys.n.cmdN, z->user.sys.n.objN);
  }
 
  /* teacher check */
  if (!z->_over) {
    rd = 100 + z->user.sys.n.mapID + ((z->user.fact[1] > 0) ? 1000 : 0);
    if (rd < SysRandom(0) % 3000) {
      if (z->user.fact[1] == z->user.sys.n.mapID) {
        DrawMap(false); /* erase teacher */
      }
      z->user.fact[1] = 0;
    } else {
      z->user.fact[1] = z->user.sys.n.mapID; /* appear teacher */
    }
  }
  if ((z->user.sys.n.mapID >= 50 && z->user.sys.n.mapID <= 53) ||
      (z->user.sys.n.mapID >= 64 && z->user.sys.n.mapID <= 77) ||
       z->user.sys.n.mapID == 83 || z->user.sys.n.mapID == 48 ||
       z->user.sys.n.mapID == 61 || z->user.sys.n.mapID == 1 ||
       z->user.sys.n.mapID == 86) {
    z->user.fact[1] = 0;
  }
  if (z->user.fact[1] == z->user.sys.n.mapID) {
    DrawTeacher();
    ZamaSndPlay(6);
    DrawMessage(0xb4, 0, 0);
  }
 _done:;
  MemHandleUnlock(hStr);
  fldP = GetObjectPtr(ZAMA_COMMAND_FIELD);
  FldDelete(fldP, 0, end);
  FldDrawField(fldP);
  return true;
}
 
static
Boolean
MainMenuEvent(EventPtr eventP)
{
  Boolean       handled = false;
  FormPtr       dlogP;
  FontID        id;
  UInt16        lines, plane, sound;
  Coord         x, y;
  FieldPtr      fldP;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  fldP = GetObjectPtr(ZAMA_COMMAND_FIELD);
  switch (eventP->data.menu.itemID) {
  case ZAMA_FONT_MENU:
    /* menu select */
#ifdef USE_GRAPH2
    id = ZamaFontSelect(prefs._curFont);
#else /* USE_GRAPH2 */
    id = ZamaFontSelect(prefs._curFont);
#endif /* USE_GRAPH2 */
    if (z->prefs._curFont != id) {
      z->prefs._curFont = id;
      fldP = GetObjectPtr(ZAMA_MESSAGE_FIELD);
      FldSetFont(fldP, id);
#ifdef USE_GRAPH2
      if (tsPatch) {
        FldDrawField(fldP);
      } else {
        GFldDrawField(fldP);
      }
#else /* USE_GRAPH2 */
      ZamaFldDrawField(fldP);
#endif /* USE_GRAPH2 */
      UpdateMessageFieldScrollbar();
    }
    handled = true;
    break;
  case ZAMA_PREF_MENU:
    /* pop-up prefs dialog */
    dlogP = FrmInitForm(ZAMA_PREF_FORM);
    lines = FrmGetObjectIndex(dlogP, ZAMA_DRAW_LINE);
    plane = FrmGetObjectIndex(dlogP, ZAMA_DRAW_PLANE);
    /* sound */
    sound = FrmGetObjectIndex(dlogP, ZAMA_SND_SWITCH);
    if (z->_silkr){
      WinGetDisplayExtent(&x, &y);
      if (y > 160) {
        RectangleType bounds;
        WinHandle     hWin;
        hWin = FrmGetWindowHandle(dlogP);
        WinGetBounds(hWin, &bounds);
        bounds.topLeft.y += stdSilkHeight;
        WinSetBounds(hWin, &bounds);
      }
    }
#ifndef USE_GRAPH2
    if (!ZamaHR()) {
      /* not support line draw mode */
      CtlSetUsable(FrmGetObjectPtr(dlogP, lines), false);
      z->prefs._linedraw = false;
    }
#endif /* USE_GRAPH2 */
    CtlSetValue(FrmGetObjectPtr(dlogP, lines), z->prefs._linedraw);
    CtlSetValue(FrmGetObjectPtr(dlogP, plane), !z->prefs._linedraw);
    CtlSetValue(FrmGetObjectPtr(dlogP, sound), z->prefs._sound);
    if (FrmDoDialog(dlogP) == ZAMA_BUTTON_OK) {
      /* change status */
#ifndef USE_GRAPH2
      if (ZamaHR()) {
#endif /* USE_GRAPH2 */
        z->prefs._linedraw =
            (FrmGetControlGroupSelection(dlogP, ZAMA_DRAW_STYLE) == lines);
#ifndef USE_GRAPH2
      }
#endif /* USE_GRAPH2 */
      z->prefs._sound = CtlGetValue(FrmGetObjectPtr(dlogP, sound));
    }
    FrmDeleteForm(dlogP);
    handled = true;
    break;
  case ZAMA_HELP_CMD:
    FrmHelp(ZAMA_HELP_STR);
    break;
  case ZAMA_ABOUT_CMD:
    dlogP = FrmInitForm(ZAMA_FRM_ABOUT);
    FrmDoDialog(dlogP);
    FrmDeleteForm(dlogP);
    break;
  }
  return handled;
}
 
static
Boolean
MainHeightChanged(EventPtr eventP)
{
  RectangleType bounds;
  FormPtr       formP;
  WinHandle     hWin;
  Int16         dy;
  Coord         nx, ny;
  UInt16        i, idx;
  FieldPtr      fldP;
  Boolean       res = true;
  UInt16        objs[] = {
    ZAMA_COMMAND_LABEL,
    ZAMA_BUTTON_START,
    ZAMA_CONTINUE,
    0
  };
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  formP = FrmGetActiveForm();
  hWin  = FrmGetWindowHandle(formP);
  WinGetBounds(hWin, &bounds);
  WinGetDisplayExtent(&nx, &ny);
  if (ny == bounds.topLeft.y + bounds.extent.y) {
    /* size has not changed */
    return res;
  }
  bounds.extent.y = ny - bounds.topLeft.y;
  bounds.extent.x = nx - bounds.topLeft.x;
  FrmEraseForm(formP);
  WinSetBounds(hWin, &bounds);
  /* relocate object */
  dy = (ny == 160) ? -stdSilkHeight : stdSilkHeight;
  /* GSI */
  for (i = 0 ; i < FrmGetNumberOfObjects(formP) ; i++) {
    if (FrmGetObjectType(formP, i) == frmGraffitiStateObj) {
      /* found GSI */
      FrmGetObjectPosition(formP, i, &nx, &ny);
      ny += dy;
      FrmSetObjectPosition(formP, i, nx, ny);
      break; /* needless to search any more */
    }
  }
  for (i = 0 ; objs[i] ; i++) {
    idx = FrmGetObjectIndex(formP, objs[i]);
    FrmGetObjectBounds(formP, idx, &bounds);
    bounds.topLeft.y += dy;
    FrmSetObjectBounds(formP, idx, &bounds);
  }
  /* move command field */
  fldP = FrmGetObjectPtr(formP, FrmGetObjectIndex(formP, ZAMA_COMMAND_FIELD));
  FldGetBounds(fldP, &bounds);
  bounds.topLeft.y += dy;
  FldSetBounds(fldP, &bounds);
  FrmSetFocus(formP, FrmGetObjectIndex(formP, ZAMA_COMMAND_FIELD));
  FldDrawField(fldP);
  /* extent message field */
  fldP = FrmGetObjectPtr(formP, FrmGetObjectIndex(formP, ZAMA_MESSAGE_FIELD));
  FldGetBounds(fldP, &bounds);
  bounds.extent.y += dy * 2;
  FldSetBounds(fldP, &bounds);
  /* update scrollbar */
  idx = FrmGetObjectIndex(formP, ZAMA_SCROLL_BAR);
  FrmGetObjectBounds(formP, idx, &bounds);
  bounds.extent.y += dy;
  FrmSetObjectBounds(formP, idx, &bounds);
  /* update */
  UpdateMessageFieldScrollbar();
  FrmDrawForm(formP);
#ifdef USE_GRAPH2
  if (tsPatch) {
    FldDrawField(fldP);
  } else {
    GFldDrawField(fldP);
  }
#else /* USE_GRAPH2 */
  ZamaFldDrawField(fldP);
#endif /* USE_GRAPH2 */
  DrawMap(false);
  ObjectCheck(z->user.sys.n.mapID, false);
 
  return res;
}
 
static
Boolean
MainHandleEvent(EventPtr eventP)
{
  Boolean       handled = false;
  FormPtr       formP;
  FieldPtr      fldP;
  ControlPtr    btnP, chkP;
  UInt16        lines;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  formP = FrmGetActiveForm();
  /* resize check */
  if (z->_silkr && z->_resized && MainHeightChanged(eventP)) {
    z->_resized = false;
  }
  if (eventP->eType == frmOpenEvent) {
    GameInit();
    handled = true;
  } else if (eventP->eType == frmUpdateEvent) {
    FrmDrawForm(formP);
#ifdef USE_GRAPH2
    if (z->tsPatch) {
      FldDrawField(GetObjectPtr(ZAMA_MESSAGE_FIELD));
    } else {
      GFldDrawField(GetObjectPtr(ZAMA_MESSAGE_FIELD));
    }
#else /* USE_GRAPH2 */
    ZamaFldDrawField(GetObjectPtr(ZAMA_MESSAGE_FIELD));
#endif /* USE_GRAPH2 */
    DrawMap(false); /* maybe re-draw map */
    ObjectCheck(z->user.sys.n.mapID, true);
    FrmSetFocus(formP, FrmGetObjectIndex(formP, ZAMA_COMMAND_FIELD));
    handled = true;
  } else if (eventP->eType == ctlSelectEvent) {
    switch (eventP->data.ctlSelect.controlID) {
    case ZAMA_BUTTON_START:
      /* enable command field and disable start button */
      btnP = GetObjectPtr(ZAMA_BUTTON_START);
      fldP = GetObjectPtr(ZAMA_COMMAND_FIELD);
      chkP = GetObjectPtr(ZAMA_CONTINUE);
      FrmEraseForm(formP);
      CleanMessageField();
      CtlSetUsable(btnP, false);
      CtlSetUsable(chkP, false);
      FldSetUsable(fldP, true);
      /* init game */
#ifdef USE_GRAPH2
      GPaletteChange(gColorInvalid); /* initialize palette */
#else /* USE_GRAPH2 */
      ZamaPaletteChange(InvalidColor); /* initialize palette */
#endif /* USE_GRAPH2 */
      if (CtlGetValue(chkP)) { /* load */
        LoadGame(0);
        DarknessCheck();    /* need to check of darkness */
      } else {
        LoadInitData();
        z->user.sys.n.mapID = 1; /* set map to start point */
        SaveGame(0);        /* clear suspended data */
      }
      z->_over = false; /* start game */
      FldDrawField(fldP);
      FrmDrawForm(formP);
      FrmSetFocus(formP, FrmGetObjectIndex(formP, ZAMA_COMMAND_FIELD));
      CleanMessageField();
      LoadMapData(z->user.sys.n.mapID);
      DrawMap(true);
      ObjectCheck(z->user.sys.n.mapID, true);
      if (z->user.fact[1] == z->user.sys.n.mapID) { /* teacher check */
        DrawTeacher();
        DrawMessage(0xb4, 0, 0);
      }
      z->prefs._suspended = true; /* continuable */
      handled = true;
      break;
    }
  } else if (eventP->eType == keyDownEvent) {
    fldP  = GetObjectPtr(ZAMA_MESSAGE_FIELD);
    lines = FldGetVisibleLines(fldP) - 1;
    switch (eventP->data.keyDown.chr) {
    case pageUpChr:
      if (FldScrollable(fldP, winUp)) {
        FldScrollField(fldP, lines, winUp);
        UpdateMessageFieldScrollbar();
      }
      handled = true;
      break;
    case pageDownChr:
      if (FldScrollable(fldP, winDown)) {
        FldScrollField(fldP, lines, winDown);
        UpdateMessageFieldScrollbar();
      }
      handled = true;
      break;
    }
  } else if (eventP->eType == fldChangedEvent) {
    /* update scrollbar */
    if (eventP->data.fldChanged.fieldID == ZAMA_MESSAGE_FIELD) {
      UpdateMessageFieldScrollbar();
      handled = true;
    }
  } else if (eventP->eType == sclRepeatEvent || eventP->eType == sclExitEvent){
    ScrollMessageField();
    handled = true;
  } else if (eventP->eType == menuOpenEvent) {
    handled = true;
  } else if (eventP->eType == menuEvent) {
    handled = MainMenuEvent(eventP);
  } else if (eventP->eType == appStopEvent) {
    FrmEraseForm(formP);
    FrmDeleteForm(formP);
    handled = true;
  }
  return handled;
}
 
static
Boolean
SexHandleEvent(EventPtr eventP)
{
  UInt16  sid;
  Boolean handled = false;
  FormPtr formP   = FrmGetActiveForm();
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if (eventP->eType == ctlSelectEvent) {
    switch (eventP->data.ctlSelect.controlID) {
    case ZAMA_BUTTON_OK:
      sid = FrmGetControlGroupSelection(formP, ZAMA_SEX_GROUP);
      if (sid == FrmGetObjectIndex(formP, ZAMA_SEX_BOY)) {
        z->user.sys.n.dret   = z->user.fact[0] = 1;
        z->user.sys.n.dlogOk = true;
        z->user.sys.n.dmesg  = 0;
      } else if (sid == FrmGetObjectIndex(formP, ZAMA_SEX_GIRL)) {
        z->user.sys.n.dret   = z->user.fact[0] = 2;
        z->user.sys.n.dlogOk = true;
        z->user.sys.n.dmesg = 0;
      } else {
        z->user.sys.n.dret   = 0;
        z->user.sys.n.dlogOk = false;
        z->user.sys.n.dmesg  = 0xbc;
      }
      break;
    }
  }
  return handled;
}
 
static
Boolean
FileHandleEvent(EventPtr eventP)
{
  Boolean handled = false;
  UInt16  fid;
  FormPtr formP = FrmGetActiveForm();
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if (eventP->eType == ctlSelectEvent) {
    switch (eventP->data.ctlSelect.controlID) {
    case ZAMA_BUTTON_OK:
      fid = FrmGetControlGroupSelection(formP, ZAMA_FILE_GROUP);
      if (fid == FrmGetObjectIndex(formP, ZAMA_FILE_ID1)) {
        z->user.sys.n.dret = 1;
      } else if (fid == FrmGetObjectIndex(formP, ZAMA_FILE_ID2)) {
        z->user.sys.n.dret = 2;
      } else if (fid == FrmGetObjectIndex(formP, ZAMA_FILE_ID3)) {
        z->user.sys.n.dret = 3;
      } else {
        z->user.sys.n.dret = 0;
      }
      z->user.sys.n.dlogOk = true;
      break;
    }
  }
  return handled;
}
 
static
Boolean
InvHandleEvent(EventPtr eventP)
{
  Boolean handled = false;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if (eventP->eType == ctlSelectEvent) {
    switch (eventP->data.ctlSelect.controlID) {
    case ZAMA_BUTTON_OK:
      z->user.sys.n.dlogOk = true;
      break;
    }
  }
  return handled;
}
 
static
Boolean
CutHandleEvent(EventPtr eventP)
{
  UInt16  color;
  Boolean handled = false;
  FormPtr formP = FrmGetActiveForm();
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if (eventP->eType == ctlSelectEvent) {
    switch (eventP->data.ctlSelect.controlID) {
    case ZAMA_BUTTON_OK:
      z->user.sys.n.dlogOk = true; /* no time kidding */
      color = FrmGetControlGroupSelection(formP, ZAMA_CUT_GROUP);
      if (color == FrmGetObjectIndex(formP, ZAMA_CUT_RED)) {
        z->user.sys.n.dret = 1;
      } else {
        z->user.sys.n.dret = 0;
      }
      break;
    }
  }
  return handled;
}
 
static
Boolean
MainKeyHandleEvent(EventPtr eventP, UInt32 keys)
{
  Boolean handled = false;
  EventType event;
 
  if (FrmGetWindowHandle(FrmGetActiveForm()) != WinGetActiveWindow()) {
    /* maybe menu or another widget popping up */
    return false;
  }
 
  if (eventP->eType == nilEvent) { /* Game PAD */
    if (keys & (keyBitPageUp | keyBitPageDown | keyBitHard1 | keyBitHard2)) {
      /* move direction */
      char *dir = NULL;
      if (keys & keyBitPageUp) {
        dir = "n";
      } else if (keys & keyBitPageDown) {
        dir = "s";
      } else if (keys & keyBitHard1) {
        dir = "w";
      } else if (keys & keyBitHard2) {
        dir = "e";
      }
      if (dir) {
        FldInsert(GetObjectPtr(ZAMA_COMMAND_FIELD), dir, StrLen(dir));
        event.eType = keyDownEvent;
        event.data.keyDown.chr = chrLineFeed;
        EvtAddEventToQueue(&event);
        handled = true;
      }
    }
  }
 
  return handled;
}
 
static
Boolean
KeyHandleEvent(EventPtr eventP)
{
  UInt32       keys;
  Boolean      handled = false;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if ((keys = KeyCurrentState()) == 0) { /* no key has been pressed */
    return false;
  }
  switch (FrmGetActiveFormID()) {
  case ZAMA_MAIN_FORM:
    handled = MainKeyHandleEvent(eventP, keys);
    break;
  default:
    handled = false;
    break;
  }
  if (!handled) {
    EventType event;
    MemSet(&event, 0, sizeof(EventType));
    if (eventP->eType == nilEvent && keys & (keyBitHard3 | keyBitHard4)) {
      event.eType = keyDownEvent;
      event.data.keyDown.chr =(keys & keyBitHard3) ? vchrJogPush : vchrJogBack;
      EvtAddEventToQueue(&event);
      handled = true;
    } else if (eventP->eType == nilEvent &&
               keys & (keyBitPageUp | keyBitPageDown)) {
      event.eType = keyDownEvent;
      event.data.keyDown.chr = (keys & keyBitPageUp) ? vchrJogUp : vchrJogDown;
      EvtAddEventToQueue(&event);
      handled = true;
    }
  }
  z->_ignoreKey = handled;
  return handled;
}
 
static
Boolean
AppHandleEvent(EventPtr eventP)
{
  UInt16  formId;
  FormPtr formP;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  Boolean handled = false;
  if (eventP->eType == frmLoadEvent) {
    formId = eventP->data.frmLoad.formID;
    formP  = FrmInitForm(formId);
    FrmSetActiveForm(formP);
    FldSetFont(GetObjectPtr(ZAMA_MESSAGE_FIELD), z->prefs._curFont);
    switch (formId) {
    case ZAMA_MAIN_FORM:
      FrmSetEventHandler(formP, MainHandleEvent);
#ifdef USE_GRAPH2
      if (!tsPatch) {
        GFldModifyField(GetObjectPtr(ZAMA_MESSAGE_FIELD));
      }
#else /* USE_GRAPH2 */
      ZamaFldModifyField(GetObjectPtr(ZAMA_MESSAGE_FIELD));
#endif /* USE_GRAPH2 */
      handled = true;
      break;
    default:
      break;
    }
  }
  return handled;
}
 
void
EventLoop(void)
{
  EventType event;
  UInt16    err;
  UInt16    formID;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  z->_ignoreKey = false;
  do {
    formID = FrmGetActiveFormID();
    EvtGetEvent(&event, evtWaitForever);
    if (!z->_ignoreKey && KeyHandleEvent(&event)) {
      continue;
    }
    z->_ignoreKey = false;
    if (event.eType == keyDownEvent && event.data.keyDown.chr == chrLineFeed) {
      /* accept command */
      if (formID == ZAMA_MAIN_FORM) {
        CommandLoop();
        continue;
      }
    }
    //    if (_silkr && event.eType == menuEvent) SilkLibDisableResize(_silkr);
    if (!SysHandleEvent(&event)) {
      if (!MenuHandleEvent(NULL, &event, &err)) {
#if 0
        if (event.eType == menuCmdBarOpenEvent) {
          /* command stroke */
          event.data.menuCmdBarOpen.preventFieldButtons = true;
        }
#endif
        if(!AppHandleEvent(&event)) {
          if (z->_silkr) {
            if (z->_silkVer < 0x02) {
              SilkLibDisableResize(z->_silkr);
            } else {
              VskSetState(z->_silkr, vskStateEnable, 0);
            }
          }
          FrmDispatchEvent(&event);
          if (z->_silkr) {
            if (z->_silkVer < 0x02) {
              SilkLibEnableResize(z->_silkr);
            } else {
              VskSetState(z->_silkr, vskStateEnable, 1);
            }
          }
        }
      }
    }
    //    if (_silkr) SilkLibEnableResize(_silkr);
  } while (event.eType != appStopEvent);
}
/* notification & silk */
static
Err
SilkHeightChange(SysNotifyParamType *paramP_)
{
  FormPtr       formP, afrmP;
  Coord         nx, ny;
  RectangleType bounds;
  Boolean      *resized;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  afrmP = FrmGetActiveForm();
  formP = FrmGetFormPtr(ZAMA_MAIN_FORM);
  WinGetBounds(FrmGetWindowHandle(formP), &bounds);
  WinGetDisplayExtent(&nx, &ny);
  if (afrmP != formP || ny == bounds.topLeft.y + bounds.extent.y) {
    /* works only for display hight change */
    if (paramP_) paramP_->handled = false;
    return errNone;
  }
  z->_resized = true; /* notify size has changed */
  GrfCleanState();
  GrfInitState();
  GsiInitialize();
  GsiSetShiftState(0, gsiShiftNone);
  if (paramP_) {
    resized = paramP_->userDataP;
    if (resized) *resized = true;
  }
  if (paramP_) paramP_->handled = true;
  return errNone;
}
 
static
Boolean
SilkStart(void)
{
  Err                err;
  LocalID            codeResId;
  SonySysFtrSysInfoP sonySysFtrSysInfoP;
  UInt16             cardNo;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  z->_silkr = 0;
  if ((err = FtrGet(sonySysFtrCreator,
                    sonySysFtrNumSysInfoP,
                    (UInt32*)&sonySysFtrSysInfoP))) {
    return false;
  }
  if ((sonySysFtrSysInfoP->extn & sonySysFtrSysInfoExtnSilk) &&
      (sonySysFtrSysInfoP->libr & sonySysFtrSysInfoLibrSilk)) {
    if ((err = SysLibFind(sonySysLibNameSilk, &z->_silkr))) {
      if (err == sysErrLibNotFound) {
        err = SysLibLoad('libr', sonySysFileCSilkLib, &z->_silkr);
      }
    }
  }
  z->_resized = false;
  if (err || z->_silkr == 0) {
    z->_silkr = 0;
    return false;
  }
  if (SilkLibOpen(z->_silkr) == errNone) {
    if ((z->_silkVer = VskGetAPIVersion(z->_silkr)) < 0x02) {
      SilkLibEnableResize(z->_silkr);
    } else {
      VskSetState(z->_silkr, vskStateEnable, 1);
      VskSetState(z->_silkr, vskStateResize, vskResizeMax);
    }
  }
 
  if ((err = SysCurAppDatabase(&cardNo, &codeResId)) != errNone) {
    return false;
  }
  err = SysNotifyRegister(cardNo, codeResId, sysNotifyDisplayChangeEvent,
                          SilkHeightChange,
                          sysNotifyNormalPriority,
                          &z->_resized);
  return err == errNone;
}
 
static
Boolean
SilkStop(void)
{
  Err     err;
  LocalID codeResId;
  UInt16  cardNo;
  Boolean res = true;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  if ((err = SysCurAppDatabase(&cardNo, &codeResId)) != errNone) {
    res = false;
  }
  if (res) {
    err = SysNotifyUnregister(cardNo, codeResId, sysNotifyDisplayChangeEvent,
                              sysNotifyNormalPriority);
  }
  if (z->_silkr) {
    if (z->_silkVer < 0x02) {
      SilkLibResizeDispWin(z->_silkr, silkResizeNormal);
      SilkLibDisableResize(z->_silkr);
    } else {
      VskSetState(z->_silkr, vskStateResize, vskResizeMax);
      VskSetState(z->_silkr, vskStateEnable, 0);
    }
    SilkLibClose(z->_silkr);
  }
  return res && err == errNone;
}
 
static
void
ZamaMapInit(void)
{
  ZamaGlobalVarType *z = CreateGlobalVariables();
  MemSet(z->map.graphic,  sizeof(z->map.graphic),  0xff);
  MemSet(z->map.reaction, sizeof(z->map.reaction), 0);
  MemSet(z->map.mesg,     sizeof(z->map.mesg),     0);
}
 
static
Boolean
InitTsPatch(void)
{
  UInt32  ver;
  Boolean ok = false;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
  z->tinyFontID = stdFont;
  z->tinyBoldFontID = boldFont;
  z->smallFontID = largeFont;
  z->smallSymbolFontID = symbolFont;
  z->smallSymbol11FontID = symbol11Font;
  z->smallSymbol7FontID = symbol7Font;
  z->smallLedFontID = ledFont;
  z->smallBoldFontID = largeBoldFont;
 
  if (FtrGet(SmallFontAppCreator, SMF_FTR_SMALL_FONT_SUPPORT, &ver) == errNone) {
    FtrGet(SmallFontAppCreator, SMF_FTR_TINY_FONT, &z->tinyFontID);
    FtrGet(SmallFontAppCreator, SMF_FTR_TINY_BOLD_FONT, &z->tinyBoldFontID);
    FtrGet(SmallFontAppCreator, SMF_FTR_SMALL_FONT, &z->smallFontID);
    FtrGet(SmallFontAppCreator, SMF_FTR_SYMBOL_FONT, &z->smallSymbolFontID);
    FtrGet(SmallFontAppCreator, SMF_FTR_SYMBOL11_FONT, &z->smallSymbol11FontID);
    FtrGet(SmallFontAppCreator, SMF_FTR_SYMBOL7_FONT, &z->smallSymbol7FontID);
    FtrGet(SmallFontAppCreator, SMF_FTR_LED_FONT, &z->smallLedFontID);
    FtrGet(SmallFontAppCreator, SMF_FTR_SMALL_BOLD_FONT, &z->smallBoldFontID);
    ok = true;
  }
  return ok;
}
 
static
Boolean
StartApplication(void)
{
  UInt16  size, ver;
  Boolean res = false;
  ZamaGlobalVarType *z = CreateGlobalVariables();
 
#ifdef USE_GRAPH2
  if (!GInit()) {
    return false;
  }
#else /* USE_GRAPH2 */
  if (!ZamaGraphInit()) {
    return false;
  }
#endif /* USE_GRAPH2 */
  res = true;
  RctSetRectangle(&z->pict, 32, 32, 256, 152);
  LoadInitData();
  size = sizeof(ZamaPrefsType);
  MemSet(&z->prefs, size, 0);
  z->prefs._linedraw = true;
  FtrGet(sysFtrCreator, sysFtrDefaultFont, (UInt32*)&z->prefs._curFont);
#ifndef USE_GRAPH2
  if (ZamaHR()) {
    z->prefs._curFont += hrStdFont;
  }
#endif /* USE_GRAPH2 */
  ZamaMapInit();
  ver = PrefGetAppPreferences(ZAMA_CREATOR_ID,
                              ZAMA_PREFS_ID,
                              &z->prefs, &size, true);
  if (ver != ZAMA_PREFS_VER) {
    /* upgrade ? */
  }
  SilkStart();
  z->tsPatch = InitTsPatch();
  return res;
}
 
static
Boolean
StopApplication(void)
{
  ZamaGlobalVarType *z = GetGlobalVariables();
#ifdef USE_GRAPH2
  GFinalize();
#else /* USE_GRAPH2 */
  ZamaGraphClean();
#endif /* USE_GRAPH2 */
  if (z->user.sys.n.mapID != 76) { /* not opening/clear screen */
    SaveGame(0);
  }
  PrefSetAppPreferences(ZAMA_CREATOR_ID,
                        ZAMA_PREFS_ID,
                        ZAMA_PREFS_VER,
                        &z->prefs,
                        sizeof(ZamaPrefsType), true);
  SilkStop();
  DeleteGlobalVariables();
  return true;
}
 
static void
ZamaSearchDrawName(const Char *strP_, Coord x_, Coord y_, UInt16 width_)
{
  Char *ptr = StrChr(strP_, linefeedChr);
  UInt16 titleLen = (ptr == NULL) ? StrLen(strP_) : (UInt16)(ptr - strP_);
  if (FntWidthToOffset(strP_, titleLen, width_, NULL, NULL) == titleLen) {
    WinDrawChars(strP_, titleLen, x_, y_);
  } else {
    Int16 titleWidth;
    titleLen = FntWidthToOffset(strP_, titleLen,
                                width_ - FntCharWidth(chrEllipsis),
                                NULL, &titleWidth);
    WinDrawChars(strP_, titleLen, x_, y_);
    WinDrawChar (chrEllipsis, x_ + titleWidth, y_);
  }
}
 
static void
ZamaSearch(FindParamsPtr findParams)
{
  MemHandle     recH;
  Char          *headerP;
  Boolean       done, match;
  RectangleType r;
  UInt16        pos, matchLength;
  UInt32        longPos;
 
  recH = DmGetResource(strRsc, ZAMA_SEARCH_HEADER);
  headerP = MemHandleLock(recH);
  done = FindDrawHeader(findParams, headerP);
  MemHandleUnlock(recH);
  DmReleaseResource(recH);
  if (done) return;
  findParams->more = false;
  if (findParams->recordNum == ZAMA_CODE_ISAKO && EvtSysEventAvail(true)) {
    findParams->more = true;
    return;
  }
  match = TxtFindString("������",
                        findParams->strToFind,
                        &longPos, &matchLength);
  pos = longPos;
  if (match) {
    done = FindSaveMatch(findParams, ZAMA_CODE_ISAKO,
                         pos, 0, matchLength, 0, 0);
    if (!done) {
      FindGetLineBounds(findParams, &r);
      ZamaSearchDrawName("������",
                         r.topLeft.x + 1, r.topLeft.y, r.extent.x - 2);
      ++findParams->lineNumber;
    }
  }
}
 
UInt32
PilotMain(UInt16 cmd, void *cmdPBP, UInt16 launchFlags)
{
  if (cmd == sysAppLaunchCmdNormalLaunch || cmd == sysAppLaunchCmdGoTo) {
    _startup = 0;
    if (cmd == sysAppLaunchCmdGoTo) {
      _startup = ((GoToParamsPtr)cmdPBP)->recordNum;
    }
    if (StartApplication()) {
      FrmGotoForm(ZAMA_MAIN_FORM);
      EventLoop();
      FrmCloseAllForms();
      StopApplication();
    }
  } else if (cmd == sysAppLaunchCmdFind) {
    ZamaSearch((FindParamsPtr)cmdPBP);
  } else if (cmd == sysAppLaunchCmdNotify) {
    SilkHeightChange(cmdPBP);
  }
  return 0;
}