megazeux/param.cpp

/* $Id$
 * MegaZeux
 *
 * Copyright (C) 1996 Greg Janson
 * Copyright (C) 1998 Matthew D. Williams - dbwilli@scsn.net
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of
 * the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

/* PARAM.CPP- Millions of dialog boxes for inputting parameters of
          a specified id. If a parameter is already available,
          it is edited. Special functions are called in other
          files for robots, scrolls, and signs. */

#include <string.h>

#include "helpsys.h"
#include "graphics.h"
#include "intake.h"
#include "scrdisp.h"
#include "error.h"
#include "param.h"
#include "window.h"
#include "data.h"
#include "edit.h"
#include "robot.h"
#include "robo_ed.h"
#include "rasm.h"
#include "event.h"

// Default parameters (-2 = 0 and no edit, -3 = character, -4 = board)
int def_params[128] =
{
  -2, -2, -2, -2, -2, -3, -2, -3, -2, -2, -3, -2, -3, -2, -2, -2, // 0x00 - 0x0F
  -2, -3, -2, -2, -2, -2, -2, -2, -2, -2, -2,  0, -2, -2, 10,  0, // 0x10 - 0x1F
   0, -2, -2,  5,  0,128, 32, -2, -2,  0, -2, -4, -4, -2, -2,  0, // 0x20 - 0x2F
  -2,  0, -2, -3, -3, -3, -3, 17,  0, -2, -2, -2,  0,  4,  0, -2, // 0x30 - 0x3F
  -2, -2, -2, -4, -4, -4, -4, -2,  0, -2, 48,  0, -3, -3,  0,127, // 0x40 - 0x4F
  32, 26,  2,  1,  0,  2, 65,  2, 66,  2,129, 34, 66, 66, 12, 10, // 0x50 - 0x5F
  -2,194, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, // 0x60 - 0x6F
  -2, -2, -2, -2, -2, -2, -2, -2, -2, -2,  0,  0,  0,  0,  0, -2  // 0x70 - 0x7F
};

// Returns parameter or -1 for ESC. Must pass a legit parameter, or -1 to
// use default or load up a new robot/scroll/sign.
int edit_param(World *mzx_world, int id, int param)
{
  if(def_params[id] == -2)
  {
    // No editing allowed
    // If has a param, return it, otherwise return 0
    if(param > -1)
      return param;

    return 0;
  }

  if(def_params[id] == -3)
  {
    int new_param;
    // Character
    if(param < 0)
      param = 177;
    new_param = char_selection(param);
    if(new_param < 0)
      new_param = param;
    return new_param;
  }

  if(def_params[id] == -4)
  {
    int new_param;
    // Board
    if(param < 0)
      param = 0;
    new_param = choose_board(mzx_world, param,
     "Choose destination board", 0);
    if(new_param < 0)
      new_param = param;

    return new_param;
  }

  if(param < 0)
    param = def_params[id];

  // Switch according to thing
  switch(id)
  {
    case 27: // Chest
    {
      param = pe_chest(mzx_world, param);
      break;
    }

    case 30: // Health
    case 35: // Ammo
    {
      param = pe_health(mzx_world, param);
      break;
    }

    case 31: // Ring
    case 32: // Potion
    {
      param = pe_ring(mzx_world, param);
      break;
    }

    case 36: // Bomb
    {
      param = pe_bomb(mzx_world, param);
      break;
    }

    case 37: // Lit bomb
    {
      param = pe_lit_bomb(mzx_world, param);
      break;
    }

    case 38: // Explosion
    {
      param = pe_explosion(mzx_world, param);
      break;
    }

    case 41: // Door
    {
      param = pe_door(mzx_world, param);
      break;
    }

    case 47: // Gate
    {
      param = pe_gate(mzx_world, param);
      break;
    }

    case 49: // Transport
    {
      param = pe_transport(mzx_world, param);
      break;
    }

    case 55: // Pouch
    {
      param = pe_pouch(mzx_world, param);
      break;
    }

    case 56: // Pusher
    case 62: // Missile
    case 75: // Spike
    {
      param = pe_pusher(mzx_world, param);
      break;
    }

    case 78: // Shooting fire
    {
      param = pe_pusher(mzx_world, param >> 1) << 1;
      break;
    }

    case 60: // Lazer gun
    {
      param = pe_lazer_gun(mzx_world, param);
      break;
    }

    case 61: // Bullet
    {
      param = pe_bullet(mzx_world, param);
      break;
    }

    case 72: // Ricochet panel
    {
      param = pe_ricochet_panel(mzx_world, param);
      break;
    }

    case 74: // Mine
    {
      param = pe_mine(mzx_world, param);
      break;
    }

    case 80: // Snake
    {
      param = pe_snake(mzx_world, param);
      break;
    }

    case 81: // Eye
    {
      param = pe_eye(mzx_world, param);
      break;
    }

    case 82: // Thief
    {
      param = pe_thief(mzx_world, param);
      break;
    }

    case 83: // Slime blob
    {
      param = pe_slime_blob(mzx_world, param);
      break;
    }

    case 84: // Runner
    {
      param = pe_runner(mzx_world, param);
      break;
    }

    case 85: // Ghost
    {
      param = pe_ghost(mzx_world, param);
      break;
    }

    case 86: // Dragon
    {
      param = pe_dragon(mzx_world, param);
      break;
    }

    case 87: // Fish
    {
      param = pe_fish(mzx_world, param);
      break;
    }

    case 88: // Shark
    case 91: // Spitting tiger
    {
      param = pe_shark(mzx_world, param);
      break;
    }

    case 89: // Spider
    {
      param = pe_spider(mzx_world, param);
      break;
    }

    case 90: // Goblin
    {
      param = pe_goblin(mzx_world, param);
      break;
    }

    case 92: // Bullet gun
    case 93: // Spinning gun
    {
      param = pe_bullet_gun(mzx_world, param);
      break;
    }

    case 94: // Bear
    {
      param = pe_bear(mzx_world, param);
      break;
    }

    case 95: // Bear cub
    {
      param = pe_bear_cub(mzx_world, param);
      break;
    }

    case 97: // Missile gun
    {
      param = pe_missile_gun(mzx_world, param);
      break;
    }
  }
  // Return param
  return param;
}

// Communial dialog
#define MAX_ELEMS 6
char di_types[MAX_ELEMS] = { DE_BUTTON, DE_BUTTON };
char di_xs[MAX_ELEMS] = { 15, 37 };
char di_ys[MAX_ELEMS] = { 15, 15 };
char *di_strs[MAX_ELEMS] = { "OK", "Cancel" };
int di_p1s[MAX_ELEMS] = { 0, -1 };
int di_p2s[MAX_ELEMS] = { 0, 0 };
void *di_storage[MAX_ELEMS] = { NULL, NULL };
dialog di =
{
  10, 5, 69, 22, "Choose settings", 3, di_types, di_xs, di_ys,
  di_strs, di_p1s, di_p2s, di_storage, 2
};

// Internal- Reset dialog to above settings

void reset_di(void)
{
  int i;

  for(i = 2; i < MAX_ELEMS; i++)
  {
    di_types[i] = 0;
    di_xs[i] = 0;
    di_ys[i] = 0;
    di_p1s[i] = 0;
    di_p2s[i] = 0;
    di_strs[i] = NULL;
    di_storage[i] = NULL;
  }
  di.curr_element = 2;
  di.num_elements = 3;
}

#define do_dialog() run_dialog(mzx_world, &di, 0, 2)

char *potion_fx =
 "No Effect   \0"
 "Invinco     \0"
 "Blast       \0"
 "Health x10  \0"
 "Health x50  \0"
 "Poison      \0"
 "Blind       \0"
 "Kill Enemies\0"
 "Lava Walker \0"
 "Detonate    \0"
 "Banish      \0"
 "Summon      \0"
 "Avalanche   \0"
 "Freeze Time \0"
 "Wind        \0"
 "Slow Time";

int pe_chest(World *mzx_world, int param)
{
  int type = param & 0x0F;
  int var = param >> 4;
  // First, pick chest contents
  type = list_menu
  (
    "Empty   \0"
    "Key     \0"
    "Coins   \0"
    "Lives   \0"
    "Ammo    \0"
    "Gems    \0"
    "Health  \0"
    "Potion  \0"
    "Ring    \0"
    "Lo Bombs\0"
    "Hi Bombs", 9, "Choose chest contents", type, 11, 33
  );

  if(type < 0)
    return -1;

  switch(type)
  {
    case 0: // Empty
    {
      var = 0;
      break;
    }

    case 1: // Key
    {
      var = color_selection(var, 0);
      if(var > 0)
        var = var & 0x0F;
      break;
    }

    case 7:
    case 8: // Ring/potion
    {
      var = list_menu(potion_fx, 13, "Choose effect", var, 16, 31);
      break;
    }

    default: // Number
    {
      reset_di();
      if(type == 3)
        di_types[2] = DE_NUMBER;
      else
        di_types[2] = DE_FIVE;
      di_xs[2] = 5;
      di_ys[2] = 6;
      if(type == 3)
        di_strs[2] = "Number of lives: ";
      else
        di_strs[2] = "Amount (multiple of five): ";
      di_p1s[2] = 0;
      di_p2s[2] = 15;
      di_storage[2] = &var;
      if(do_dialog())
        var = -1;
      break;
    }
  }

  if(var < 0)
    return -1;

  return (var << 4) | type;
}

int pe_health(World *mzx_world, int param)
{
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Amount: ";
  di_p1s[2] = 0;
  di_p2s[2] = 255;
  di_storage[2] = &param;
  if(do_dialog())
    return -1;

  return param;
}

int pe_ring(World *mzx_world, int param)
{
  return list_menu(potion_fx, 13, "Choose effect", param, 16, 31);
}

int pe_bomb(World *mzx_world, int param)
{
  int rad = param;
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Low strength bomb\nHigh strength bomb";
  di_p1s[2] = 2;
  di_p2s[2] = 18;
  di_storage[2] = &rad;
  if(do_dialog())
    return -1;

  return rad;
}

int pe_lit_bomb(World *mzx_world, int param)
{
  int rad = param >> 7;
  int stage = 7 - (param & 0x3F);
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Low strength bomb\nHigh strength bomb";
  di_p1s[2] = 2;
  di_p2s[2] = 18;
  di_storage[2] = &rad;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 9;
  di_strs[3] = "Fuse length: ";
  di_p1s[3] = 1;
  di_p2s[3] = 7;
  di_storage[3] = &stage;
  di.num_elements = 4;
  if(do_dialog())
    return -1;

  return (rad << 7) | (7 - stage);
}

int pe_explosion(World *mzx_world, int param)
{
  int size = param >> 4;
  int stage = (param & 0x0F) + 1;
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Explosion stage: ";
  di_p1s[2] = 1;
  di_p2s[2] = 4;
  di_storage[2] = &stage;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 8;
  di_strs[3] = "Explosion size:  ";
  di_p1s[3] = 0;
  di_p2s[3] = 15;
  di_storage[3] = &size;
  di.num_elements = 4;
  if(do_dialog())
    return -1;

  return (size << 4) | (stage - 1);
}

int pe_door(World *mzx_world, int param)
{
  int hv = param&1;
  int opens = (param >> 1) & 0x03;
  int locked = param >> 3;
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 3;
  di_strs[2] = "Horizontal\nVertical";
  di_p1s[2] = 2;
  di_p2s[2] = 18;
  di_storage[2] = &hv;
  di_types[3] = DE_RADIO;
  di_xs[3] = 15;
  di_ys[3] = 6;
  di_strs[3] = "Opens N/W\nOpens N/E\nOpens S/W\nOpens S/E";
  di_p1s[3] = 4;
  di_p2s[3] = 9;
  di_storage[3] = &opens;
  di_types[4] = DE_CHECK;
  di_xs[4] = 15;
  di_ys[4] = 11;
  di_strs[4] = "Locked door";
  di_p1s[4] = 1;
  di_p2s[4] = 11;
  di_storage[4] = &locked;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return hv | (opens << 1) | (locked << 3);
}

int pe_gate(World *mzx_world, int param)
{
  int locked = param;
  reset_di();
  di_types[2] = DE_CHECK;
  di_xs[2] = 15;
  di_ys[2] = 7;
  di_strs[2] = "Locked gate";
  di_p1s[2] = 1;
  di_p2s[2] = 11;
  di_storage[2] = &locked;
  if(do_dialog())
    return -1;

  return locked;
}

int pe_transport(World *mzx_world, int param)
{
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "North\nSouth\nEast\nWest\nAll";
  di_p1s[2] = 5;
  di_p2s[2] = 5;
  di_storage[2] = &param;
  if(do_dialog())
    return -1;

  return param;
}

int pe_pouch(World *mzx_world, int param)
{
  int coins = param >> 4;
  int gems = param & 0x0F;
  reset_di();
  di_types[2] = DE_FIVE;
  di_xs[2] = 6;
  di_ys[2] = 6;
  di_strs[2] = "Number of gems (mult. of 5):  ";
  di_p1s[2] = 0;
  di_p2s[2] = 15;
  di_storage[2] = &gems;
  di_types[3] = DE_FIVE;
  di_xs[3] = 6;
  di_ys[3] = 8;
  di_strs[3] = "Number of coins (mult. of 5): ";
  di_p1s[3] = 0;
  di_p2s[3] = 15;
  di_storage[3] = &coins;
  di.num_elements = 4;
  if(do_dialog())
    return -1;

  return(coins << 4) | gems;
}

int pe_pusher(World *mzx_world, int param)
{
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "North\nSouth\nEast\nWest";
  di_p1s[2] = 4;
  di_p2s[2] = 5;
  di_storage[2] = &param;
  if(do_dialog())
    return -1;

  return param;
}

int pe_lazer_gun(World *mzx_world, int param)
{
  int dir = param & 0x03;
  int start = ((param >> 2) & 0x07) + 1;
  int end = (param >> 5) + 1;
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 4;
  di_strs[2] = "North\nSouth\nEast\nWest";
  di_p1s[2] = 4;
  di_p2s[2] = 5;
  di_storage[2] = &dir;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 9;
  di_strs[3] = "Start time: ";
  di_p1s[3] = 1;
  di_p2s[3] = 8;
  di_storage[3] = &start;
  di_types[4] = DE_NUMBER;
  di_xs[4] = 15;
  di_ys[4] = 11;
  di_strs[4] = "Length on:  ";
  di_p1s[4] = 1;
  di_p2s[4] = 7;
  di_storage[4] = &end;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return dir | ((start - 1) << 2) + ((end - 1) << 5);
}

int pe_bullet(World *mzx_world, int param)
{
  int dir = param & 0x03;
  int type = param >> 2;
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 5;
  di_strs[2] = "North\nSouth\nEast\nWest";
  di_p1s[2] = 4;
  di_p2s[2] = 5;
  di_storage[2] = &dir;
  di_types[3] = DE_RADIO;
  di_xs[3] = 15;
  di_ys[3] = 10;
  di_strs[3] = "Player\nNeutral\nEnemy";
  di_p1s[3] = 3;
  di_p2s[3] = 7;
  di_storage[3] = &type;
  di.num_elements = 4;
  if(do_dialog())
    return -1;

  return dir | (type << 2);
}

int pe_ricochet_panel(World *mzx_world, int param)
{
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 7;
  di_strs[2] = "Orientation \\\nOrientation /";
  di_p1s[2] = 2;
  di_p2s[2] = 13;
  di_storage[2] = &param;
  if(do_dialog())
    return -1;

  return param;
}

int pe_mine(World *mzx_world, int param)
{
  param >>= 4;
  param--;
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 7;
  di_strs[2] = "Blast radius:  ";
  di_p1s[2] = 1;
  di_p2s[2] = 8;
  di_storage[2] = &param;
  if(do_dialog())
    return -1;

  return (param - 1) << 4;
}

int pe_snake(World *mzx_world, int param)
{
  int dir = param & 0x3;
  int intel = (param >> 4) + 1;
  int speed = ((param >> 2) & 1) ^ 1;
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 4;
  di_strs[2] = "North\nSouth\nEast\nWest";
  di_p1s[2] = 4;
  di_p2s[2] = 5;
  di_storage[2] = &dir;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 9;
  di_strs[3] = "Intellegence: ";
  di_p1s[3] = 1;
  di_p2s[3] = 8;
  di_storage[3] = &intel;
  di_types[4] = DE_CHECK;
  di_xs[4] = 15;
  di_ys[4] = 11;
  di_strs[4] = "Fast movement";
  di_p1s[4] = 1;
  di_p2s[4] = 13;
  di_storage[4] = &speed;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return dir | ((speed ^ 1) << 2) | ((intel - 1) << 4);
}

int pe_eye(World *mzx_world, int param)
{
  int intel = (param & 0x07) + 1;
  int radius = ((param >> 3) & 0x07) + 1;
  int speed = (param >> 6) ^ 1;
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Intellegence: ";
  di_p1s[2] = 1;
  di_p2s[2] = 8;
  di_storage[2] = &intel;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 8;
  di_strs[3] = "Blast radius: ";
  di_p1s[3] = 1;
  di_p2s[3] = 8;
  di_storage[3] = &radius;
  di_types[4] = DE_CHECK;
  di_xs[4] = 15;
  di_ys[4] = 10;
  di_strs[4] = "Fast movement";
  di_p1s[4] = 1;
  di_p2s[4] = 13;
  di_storage[4] = &speed;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return (intel - 1) | ((radius - 1) << 3) | ((speed ^ 1) << 6);
}

int pe_thief(World *mzx_world, int param)
{
  int intel = (param & 0x07) + 1;
  int speed = ((param >> 3) & 0x03) + 1;
  int gems = (param >> 7) + 1;
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Intellegence:   ";
  di_p1s[2] = 1;
  di_p2s[2] = 8;
  di_storage[2] = &intel;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 8;
  di_strs[3] = "Movement speed: ";
  di_p1s[3] = 1;
  di_p2s[3] = 4;
  di_storage[3] = &speed;
  di_types[4] = DE_NUMBER;
  di_xs[4] = 15;
  di_ys[4] = 10;
  di_strs[4] = "Gems stolen:    ";
  di_p1s[4] = 1;
  di_p2s[4] = 2;
  di_storage[4] = &gems;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return (intel - 1) | ((speed - 1) << 3) | ((gems - 1) << 7);
}

int pe_slime_blob(World *mzx_world, int param)
{
  int speed = (param & 0x07) + 1;
  char chk[2] = { (param >> 6) & 0x01, (param >> 7) & 0x01 };
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Spread speed: ";
  di_p1s[2] = 1;
  di_p2s[2] = 8;
  di_storage[2] = &speed;
  di_types[3] = DE_CHECK;
  di_xs[3] = 15;
  di_ys[3] = 8;
  di_strs[3] = "Hurts player\nInvincible";
  di_p1s[3] = 2;
  di_p2s[3] = 12;
  di_storage[3] = chk;
  di.num_elements = 4;
  if(do_dialog())
    return -1;

  return (speed - 1) | (chk[0] << 6) | (chk[1] << 7);
}

int pe_runner(World *mzx_world, int param)
{
  int dir = param & 0x03;
  int hp = (param >> 6) + 1;
  int speed = ((param >> 2) & 3) + 1;
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 4;
  di_strs[2] = "North\nSouth\nEast\nWest";
  di_p1s[2] = 4;
  di_p2s[2] = 5;
  di_storage[2] = &dir;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 9;
  di_strs[3] = "Hit points:\t";
  di_p1s[3] = 1;
  di_p2s[3] = 4;
  di_storage[3] = &hp;
  di_types[4] = DE_NUMBER;
  di_xs[4] = 15;
  di_ys[4] = 11;
  di_strs[4] = "Movement speed: ";
  di_p1s[4] = 1;
  di_p2s[4] = 4;
  di_storage[4] = &speed;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return dir | ((speed - 1) << 2) | ((hp - 1) << 6);
}

int pe_ghost(World *mzx_world, int param)
{
  int intel = (param & 0x07) + 1;
  int speed = ((param >> 4) & 0x03) + 1;
  int invinco = ((param >> 3) & 0x01);
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Intellegence:  ";
  di_p1s[2] = 1;
  di_p2s[2] = 8;
  di_storage[2] = &intel;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 8;
  di_strs[3] = "Movement speed: ";
  di_p1s[3] = 1;
  di_p2s[3] = 4;
  di_storage[3] = &speed;
  di_types[4] = DE_CHECK;
  di_xs[4] = 15;
  di_ys[4] = 10;
  di_strs[4] = "Invincible";
  di_p1s[4] = 1;
  di_p2s[4] = 10;
  di_storage[4] = &invinco;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return (intel - 1) | ((speed - 1) << 4) | (invinco << 3);
}

int pe_dragon(World *mzx_world, int param)
{
  int fire_rate = (param & 0x03) + 1;
  int hp = ((param >> 5) & 0x03) + 1;
  int moves = ((param >> 2) & 0x01);
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Firing rate: ";
  di_p1s[2] = 1;
  di_p2s[2] = 4;
  di_storage[2] = &fire_rate;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 8;
  di_strs[3] = "Hit points:  ";
  di_p1s[3] = 1;
  di_p2s[3] = 8;
  di_storage[3] = &hp;
  di_types[4] = DE_CHECK;
  di_xs[4] = 15;
  di_ys[4] = 10;
  di_strs[4] = "Moves";
  di_p1s[4] = 1;
  di_p2s[4] = 5;
  di_storage[4] = &moves;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return (fire_rate - 1) | ((hp - 1) << 5) | (moves << 2);
}

int pe_fish(World *mzx_world, int param)
{
  int intel = (param & 0x07) + 1;
  char chk[4] =
  {
    (param >> 6) & 0x01, (param >> 5) & 0x01,
    (param >> 7) & 0x01, ((param >> 3) & 0x01) ^ 1
  };

  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 5;
  di_strs[2] = "Intellegence: ";
  di_p1s[2] = 1;
  di_p2s[2] = 8;
  di_storage[2] = &intel;
  di_types[3] = DE_CHECK;
  di_xs[3] = 15;
  di_ys[3] = 7;
  di_strs[3] = "Hurts player\nAffected by current\n2 hit points\nFast movement";
  di_p1s[3] = 4;
  di_p2s[3] = 19;
  di_storage[3] = chk;
  di.num_elements = 4;
  if(do_dialog())
    return -1;

  return (intel - 1) | (chk[0] << 6) | (chk[1] << 5) |
   (chk[2] << 7) | ((chk[3] ^1) << 3);
}

int pe_shark(World *mzx_world, int param)
{
  int intel = (param & 0x03) + 1;
  int fire_rate = ((param >> 5) & 0x03) + 1;
  int fires = ((param >> 3) & 0x03);
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 4;
  di_strs[2] = "Intellegence: ";
  di_p1s[2] = 1;
  di_p2s[2] = 8;
  di_storage[2] = &intel;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 6;
  di_strs[3] = "Firing rate:  ";
  di_p1s[3] = 1;
  di_p2s[3] = 8;
  di_storage[3] = &fire_rate;
  di_types[4] = DE_RADIO;
  di_xs[4] = 15;
  di_ys[4] = 8;
  di_strs[4] = "Fires bullets\nFires seekers\nFires fire\nFires nothing";
  di_p1s[4] = 4;
  di_p2s[4] = 13;
  di_storage[4] = &fires;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return (intel - 1) | ((fire_rate - 1) << 5) | (fires << 3);
}

int pe_spider(World *mzx_world, int param)
{
  int intel = (param & 0x03) + 1;
  int web = ((param >> 3) & 0x03);
  char chk[2] = { ((param >> 5) & 0x01) ^ 1, ((param >> 7) & 0x01) };
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 3;
  di_strs[2] = "Intellegence: ";
  di_p1s[2] = 1;
  di_p2s[2] = 8;
  di_storage[2] = &intel;
  di_types[3] = DE_RADIO;
  di_xs[3] = 15;
  di_ys[3] = 5;
  di_strs[3] = "Thin web only\nThick web only\nAny web\nAnywhere";
  di_p1s[3] = 4;
  di_p2s[3] = 14;
  di_storage[3] = &web;
  di_types[4] = DE_CHECK;
  di_xs[4] = 15;
  di_ys[4] = 10;
  di_strs[4] = "Fast movement\n2 hit points\n";
  di_p1s[4] = 2;
  di_p2s[4] = 13;
  di_storage[4] = chk;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return (intel - 1) | (web << 3) | ((chk[0] ^ 1) << 5) | (chk[1] << 7);
}

int pe_goblin(World *mzx_world, int param)
{
  int intel = ((param >> 6) & 0x03) + 1;
  int rest_len = (param & 0x03) + 1;
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 7;
  di_strs[2] = "Intellegence: ";
  di_p1s[2] = 1;
  di_p2s[2] = 4;
  di_storage[2] = &intel;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 9;
  di_strs[3] = "Rest length:  ";
  di_p1s[3] = 1;
  di_p2s[3] = 4;
  di_storage[3] = &rest_len;
  di.num_elements = 4;
  if(do_dialog())
    return -1;

  return (rest_len - 1) | ((intel - 1) << 6);
}

int pe_bullet_gun(World *mzx_world, int param)
{
  int dir = (param >> 3) & 0x03;
  int intel = ((param >> 5) & 0x03) + 1;
  int fire_rate = (param & 0x07) + 1;
  int type = (param >> 7);
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 2;
  di_strs[2] = "North\nSouth\nEast\nWest";
  di_p1s[2] = 4;
  di_p2s[2] = 5;
  di_storage[2] = &dir;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 7;
  di_strs[3] = "Intellegence: ";
  di_p1s[3] = 1;
  di_p2s[3] = 4;
  di_storage[3] = &intel;
  di_types[4] = DE_NUMBER;
  di_xs[4] = 15;
  di_ys[4] = 9;
  di_strs[4] = "Firing rate:  ";
  di_p1s[4] = 1;
  di_p2s[4] = 8;
  di_storage[4] = &fire_rate;
  di_types[5] = DE_RADIO;
  di_xs[5] = 15;
  di_ys[5] = 11;
  di_strs[5] = "Fires bullets\nFires fire";
  di_p1s[5] = 2;
  di_p2s[5] = 13;
  di_storage[5] = &type;
  di.num_elements = 6;
  if(do_dialog())
    return -1;

  return (fire_rate - 1) | (dir << 3) + ((intel - 1) << 5) + (type << 7);
}

int pe_bear(World *mzx_world, int param)
{
  int sens = (param & 0x07) + 1;
  int speed = ((param >> 3) & 0x03) + 1;
  int hp = (param >> 7);
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Sensitivity:   ";
  di_p1s[2] = 1;
  di_p2s[2] = 8;
  di_storage[2] = &sens;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 8;
  di_strs[3] = "Movement speed: ";
  di_p1s[3] = 1;
  di_p2s[3] = 4;
  di_storage[3] = &speed;
  di_types[4] = DE_CHECK;
  di_xs[4] = 15;
  di_ys[4] = 10;
  di_strs[4] = "2 hit points";
  di_p1s[4] = 1;
  di_p2s[4] = 12;
  di_storage[4] = &hp;
  di.num_elements = 5;
  if(do_dialog())
    return -1;

  return (sens - 1) | ((speed - 1) << 3) | (hp << 7);
}

int pe_bear_cub(World *mzx_world, int param)
{
  int intel = (param & 0x03) + 1;
  int switch_rate = ((param >> 2) & 0x03) + 1;
  reset_di();
  di_types[2] = DE_NUMBER;
  di_xs[2] = 15;
  di_ys[2] = 7;
  di_strs[2] = "Intellegence: ";
  di_p1s[2] = 1;
  di_p2s[2] = 4;
  di_storage[2] = &intel;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 9;
  di_strs[3] = "Switch rate:  ";
  di_p1s[3] = 1;
  di_p2s[3] = 4;
  di_storage[3] = &switch_rate;
  di.num_elements = 4;
  if(do_dialog())
    return -1;

  return (intel - 1) | ((switch_rate - 1) << 2);
}

int pe_missile_gun(World *mzx_world, int param)
{
  int dir = (param >> 3) & 0x03;
  int intel = ((param >> 5) & 0x03) + 1;
  int fire_rate = (param & 0x07) + 1;
  int type = (param >> 7);
  reset_di();
  di_types[2] = DE_RADIO;
  di_xs[2] = 15;
  di_ys[2] = 2;
  di_strs[2] = "North\nSouth\nEast\nWest";
  di_p1s[2] = 4;
  di_p2s[2] = 5;
  di_storage[2] = &dir;
  di_types[3] = DE_NUMBER;
  di_xs[3] = 15;
  di_ys[3] = 7;
  di_strs[3] = "Intellegence: ";
  di_p1s[3] = 1;
  di_p2s[3] = 4;
  di_storage[3] = &intel;
  di_types[4] = DE_NUMBER;
  di_xs[4] = 15;
  di_ys[4] = 9;
  di_strs[4] = "Firing rate:  ";
  di_p1s[4] = 1;
  di_p2s[4] = 8;
  di_storage[4] = &fire_rate;
  di_types[5] = DE_RADIO;
  di_xs[5] = 15;
  di_ys[5] = 11;
  di_strs[5] = "Fires once\nFires multiple";
  di_p1s[5] = 2;
  di_p2s[5] = 14;
  di_storage[5] = &type;
  di.num_elements = 6;
  if(do_dialog())
    return -1;

  return (fire_rate - 1) | (dir << 3) | ((intel - 1) << 5) | (type << 7);
}

int edit_sensor(World *mzx_world, Sensor *cur_sensor)
{
  char sensor_name[15];
  char sensor_robot[15];
  char sensor_char = cur_sensor->sensor_char;

  set_context(94);
  strcpy(sensor_name, cur_sensor->sensor_name);
  strcpy(sensor_robot, cur_sensor->robot_to_mesg);
  reset_di();

  di_types[2] = DE_INPUT;
  di_xs[2] = 15;
  di_ys[2] = 6;
  di_strs[2] = "Sensor's name:    ";
  di_p1s[2] = 14;
  di_storage[2] = sensor_name;
  di_types[3] = DE_INPUT;
  di_xs[3] = 15;
  di_ys[3] = 8;
  di_strs[3] = "Robot to message: ";
  di_p1s[3] = 14;
  di_storage[3] = sensor_robot;
  di_types[4] = DE_CHAR;
  di_xs[4] = 15;
  di_ys[4] = 10;
  di_strs[4] = "Sensor character: ";
  di_p1s[4] = 1;
  di_storage[4] = &sensor_char;
  di.num_elements = 5;

  if(do_dialog())
  {
    pop_context();
    return -1;
  }

  strcpy(cur_sensor->sensor_name, sensor_name);
  strcpy(cur_sensor->robot_to_mesg, sensor_robot);
  cur_sensor->sensor_char = sensor_char;
  pop_context();
  return 0;
}

int edit_scroll(World *mzx_world, Scroll *cur_scroll)
{
  scroll_edit(mzx_world, cur_scroll, 2);
  return 0;
}

int edit_robot(World *mzx_world, Robot *cur_robot)
{
  int new_char;
  // First get name...
  m_hide();
  save_screen();
  draw_window_box(16, 12, 50, 14, EC_DEBUG_BOX, EC_DEBUG_BOX_DARK,
   EC_DEBUG_BOX_CORNER, 1, 1);
  write_string("Name for robot:", 18, 13, EC_DEBUG_LABEL, 0);
  m_show();

  if(intake(cur_robot->robot_name, 14, 34, 13, 15, 1, 0) != SDLK_ESCAPE)
  {
		restore_screen();
		save_screen();		
    // ...and character.
    new_char = char_selection(cur_robot->robot_char);
    if(new_char < 0)
    {
      // ESC means keep char but don't edit robot
      if(new_char == -256)
        new_char = 0;
      cur_robot->robot_char = -new_char;
    }
    else
    {
      cur_robot->robot_char = new_char;
      // Now edit the program.
      set_context(87);
      robot_editor(mzx_world, cur_robot);
    }
  }
  else
  {
    pop_context();
    restore_screen();
    return -1;
  }

  pop_context();
  restore_screen();
  return 0;
}