+ if (mode == CB_AREA_TO_BRUSH)
+ {
+ int from_lx, from_ly;
+
+ if (from_x > to_x)
+ swap_numbers(&from_x, &to_x);
+
+ if (from_y > to_y)
+ swap_numbers(&from_y, &to_y);
+
+ brush_width = to_x - from_x + 1;
+ brush_height = to_y - from_y + 1;
+
+ from_lx = from_x + level_xpos;
+ from_ly = from_y + level_ypos;
+
+ for (y=0; y<brush_height; y++)
+ {
+ for (x=0; x<brush_width; x++)
+ {
+ brush_buffer[x][y] = Feld[from_lx + x][from_ly + y];
+
+ if (button != 1)
+ DrawLineElement(from_x + x, from_y + y, new_element, TRUE);
+ }
+ }
+
+ if (button != 1)
+ CopyLevelToUndoBuffer(UNDO_IMMEDIATE);
+
+ delete_old_brush = FALSE;
+ }
+ else if (mode == CB_BRUSH_TO_CURSOR || mode == CB_DELETE_OLD_CURSOR ||
+ mode == CB_BRUSH_TO_LEVEL)
+ {
+ int cursor_x = (mode == CB_DELETE_OLD_CURSOR ? last_cursor_x : from_x);
+ int cursor_y = (mode == CB_DELETE_OLD_CURSOR ? last_cursor_y : from_y);
+ int cursor_from_x = cursor_x - brush_width / 2;
+ int cursor_from_y = cursor_y - brush_height / 2;
+ int border_from_x = cursor_x, border_from_y = cursor_y;
+ int border_to_x = cursor_x, border_to_y = cursor_y;
+
+ if (mode != CB_DELETE_OLD_CURSOR && delete_old_brush)
+ CopyBrushExt(0, 0, 0, 0, 0, CB_DELETE_OLD_CURSOR);
+
+ if (!IN_ED_FIELD(cursor_x, cursor_y) ||
+ !IN_LEV_FIELD(cursor_x + level_xpos, cursor_y + level_ypos))
+ {
+ delete_old_brush = FALSE;
+ return;
+ }
+
+ for (y=0; y<brush_height; y++)
+ {
+ for (x=0; x<brush_width; x++)
+ {
+ int sx = cursor_from_x + x;
+ int sy = cursor_from_y + y;
+ int lx = sx + level_xpos;
+ int ly = sy + level_ypos;
+ boolean change_level = (mode == CB_BRUSH_TO_LEVEL);
+ int element = (mode == CB_DELETE_OLD_CURSOR ? -1 :
+ mode == CB_BRUSH_TO_CURSOR || button == 1 ?
+ brush_buffer[x][y] : new_element);
+
+ if (IN_ED_FIELD(sx, sy) && IN_LEV_FIELD(lx, ly))
+ {
+ if (sx < border_from_x)
+ border_from_x = sx;
+ else if (sx > border_to_x)
+ border_to_x = sx;
+ if (sy < border_from_y)
+ border_from_y = sy;
+ else if (sy > border_to_y)
+ border_to_y = sy;
+
+ DrawLineElement(sx, sy, element, change_level);
+ }
+ }
+ }
+
+ if (mode != CB_DELETE_OLD_CURSOR)
+ DrawAreaBorder(border_from_x, border_from_y, border_to_x, border_to_y);
+
+ last_cursor_x = cursor_x;
+ last_cursor_y = cursor_y;
+ delete_old_brush = TRUE;
+ }
+}
+
+static void CopyAreaToBrush(int from_x, int from_y, int to_x, int to_y,
+ int button)
+{
+ CopyBrushExt(from_x, from_y, to_x, to_y, button, CB_AREA_TO_BRUSH);
+}
+
+static void CopyBrushToLevel(int x, int y, int button)
+{
+ CopyBrushExt(x, y, 0, 0, button, CB_BRUSH_TO_LEVEL);
+}
+
+static void CopyBrushToCursor(int x, int y)
+{
+ CopyBrushExt(x, y, 0, 0, 0, CB_BRUSH_TO_CURSOR);
+}
+
+static void DeleteBrushFromCursor()
+{
+ CopyBrushExt(0, 0, 0, 0, 0, CB_DELETE_OLD_CURSOR);
+}
+
+static void FloodFill(int from_x, int from_y, int fill_element)
+{
+ int i,x,y;
+ int old_element;
+ static int check[4][2] = { {-1,0}, {0,-1}, {1,0}, {0,1} };
+ static int safety = 0;
+
+ /* check if starting field still has the desired content */
+ if (Feld[from_x][from_y] == fill_element)
+ return;
+
+ safety++;
+
+ if (safety > lev_fieldx*lev_fieldy)
+ Error(ERR_EXIT, "Something went wrong in 'FloodFill()'. Please debug.");
+
+ old_element = Feld[from_x][from_y];
+ Feld[from_x][from_y] = fill_element;
+
+ for(i=0;i<4;i++)
+ {
+ x = from_x + check[i][0];
+ y = from_y + check[i][1];
+
+ if (IN_LEV_FIELD(x,y) && Feld[x][y] == old_element)
+ FloodFill(x, y, fill_element);
+ }
+
+ safety--;
+}
+
+/* values for DrawLevelText() modes */
+#define TEXT_INIT 0
+#define TEXT_SETCURSOR 1
+#define TEXT_WRITECHAR 2
+#define TEXT_BACKSPACE 3
+#define TEXT_NEWLINE 4
+#define TEXT_END 5
+#define TEXT_QUERY_TYPING 6
+
+static int DrawLevelText(int sx, int sy, char letter, int mode)
+{
+ static short delete_buffer[MAX_LEV_FIELDX];
+ static int start_sx, start_sy;
+ static int last_sx, last_sy;
+ static boolean typing = FALSE;
+ int letter_element = EL_CHAR_ASCII0 + letter;
+ int lx = 0, ly = 0;
+
+ /* map lower case letters to upper case and convert special characters */
+ if (letter >= 'a' && letter <= 'z')
+ letter_element = EL_CHAR_ASCII0 + letter + (int)('A' - 'a');
+ else if (letter == 'ä' || letter == 'Ä')
+ letter_element = EL_CHAR_AE;
+ else if (letter == 'ö' || letter == 'Ö')
+ letter_element = EL_CHAR_OE;
+ else if (letter == 'ü' || letter == 'Ü')
+ letter_element = EL_CHAR_UE;
+ else if (letter == '^')
+ letter_element = EL_CHAR_COPY;
+ else
+ letter_element = EL_CHAR_ASCII0 + letter;
+
+ if (mode != TEXT_INIT)
+ {
+ if (!typing)
+ return FALSE;
+
+ if (mode != TEXT_SETCURSOR)
+ {
+ sx = last_sx;
+ sy = last_sy;
+ }
+
+ lx = last_sx + level_xpos;
+ ly = last_sy + level_ypos;
+ }
+
+ switch (mode)
+ {
+ case TEXT_INIT:
+ if (typing)
+ DrawLevelText(0, 0, 0, TEXT_END);
+
+ typing = TRUE;
+ start_sx = last_sx = sx;
+ start_sy = last_sy = sy;
+ DrawLevelText(sx, sy, 0, TEXT_SETCURSOR);
+ break;
+
+ case TEXT_SETCURSOR:
+ DrawMiniElement(last_sx, last_sy, Feld[lx][ly]);
+ DrawAreaBorder(sx, sy, sx, sy);
+ last_sx = sx;
+ last_sy = sy;
+ break;
+
+ case TEXT_WRITECHAR:
+ if (letter_element >= EL_CHAR_START && letter_element <= EL_CHAR_END)
+ {
+ delete_buffer[sx - start_sx] = Feld[lx][ly];
+ Feld[lx][ly] = letter_element;
+
+ if (sx + 1 < ed_fieldx && lx + 1 < lev_fieldx)
+ DrawLevelText(sx + 1, sy, 0, TEXT_SETCURSOR);
+ else if (sy + 1 < ed_fieldy && ly + 1 < lev_fieldy)
+ DrawLevelText(start_sx, sy + 1, 0, TEXT_SETCURSOR);
+ else
+ DrawLevelText(0, 0, 0, TEXT_END);
+ }
+ break;
+
+ case TEXT_BACKSPACE:
+ if (sx > start_sx)
+ {
+ Feld[lx - 1][ly] = delete_buffer[sx - start_sx - 1];
+ DrawMiniElement(sx - 1, sy, Feld[lx - 1][ly]);
+ DrawLevelText(sx - 1, sy, 0, TEXT_SETCURSOR);
+ }
+ break;
+
+ case TEXT_NEWLINE:
+ if (sy + 1 < ed_fieldy - 1 && ly + 1 < lev_fieldy - 1)
+ DrawLevelText(start_sx, sy + 1, 0, TEXT_SETCURSOR);
+ else
+ DrawLevelText(0, 0, 0, TEXT_END);
+ break;
+
+ case TEXT_END:
+ CopyLevelToUndoBuffer(UNDO_IMMEDIATE);
+ DrawMiniElement(sx, sy, Feld[lx][ly]);
+ typing = FALSE;
+ break;
+
+ case TEXT_QUERY_TYPING:
+ break;
+
+ default:
+ break;
+ }
+
+ return typing;
+}
+
+static void SetTextCursor(int unused_sx, int unused_sy, int sx, int sy,
+ int element, boolean change_level)
+{
+ int lx = sx + level_xpos;
+ int ly = sy + level_ypos;
+
+ if (element == -1)
+ DrawMiniElement(sx, sy, Feld[lx][ly]);
+ else
+ DrawAreaBorder(sx, sy, sx, sy);
+}
+
+static void CopyLevelToUndoBuffer(int mode)
+{
+ static boolean accumulated_undo = FALSE;
+ boolean new_undo_buffer_position = TRUE;
+ int last_border_element;
+ int x, y;
+
+ switch (mode)
+ {
+ case UNDO_IMMEDIATE:
+ accumulated_undo = FALSE;
+ break;
+
+ case UNDO_ACCUMULATE:
+ if (accumulated_undo)
+ new_undo_buffer_position = FALSE;
+ accumulated_undo = TRUE;
+ break;
+
+ default:
+ break;
+ }
+
+ if (new_undo_buffer_position)
+ {
+ /* new position in undo buffer ring */
+ undo_buffer_position = (undo_buffer_position + 1) % NUM_UNDO_STEPS;
+
+ if (undo_buffer_steps < NUM_UNDO_STEPS - 1)
+ undo_buffer_steps++;
+ }
+
+ for(x=0; x<lev_fieldx; x++)
+ for(y=0; y<lev_fieldy; y++)
+ UndoBuffer[undo_buffer_position][x][y] = Feld[x][y];
+
+ /* check if drawing operation forces change of border style */
+ last_border_element = BorderElement;
+ SetBorderElement();
+ if (BorderElement != last_border_element)
+ DrawMiniLevel(ed_fieldx, ed_fieldy, level_xpos, level_ypos);
+
+#if 0
+#ifdef DEBUG
+ printf("level saved to undo buffer\n");
+#endif
+#endif
+}
+
+static void RandomPlacement(int new_element)
+{
+ static boolean free_position[MAX_LEV_FIELDX][MAX_LEV_FIELDY];
+ int num_free_positions;
+ int num_percentage;
+ int num_elements;
+ int x, y;
+
+ /* determine number of free positions for the new elements */
+ /* (maybe this statement should be formatted a bit more readable...) */
+ num_free_positions = 0;
+ for (x=0; x<lev_fieldx; x++)
+ for (y=0; y<lev_fieldy; y++)
+ if ((free_position[x][y] =
+ ((random_placement_background_restricted &&
+ Feld[x][y] == random_placement_background_element) ||
+ (!random_placement_background_restricted &&
+ Feld[x][y] != new_element))) == TRUE)
+ num_free_positions++;
+
+ /* determine number of new elements to place there */
+ num_percentage = num_free_positions * random_placement_value / 100;
+ num_elements = (random_placement_method == RANDOM_USE_PERCENTAGE ?
+ num_percentage : random_placement_value);
+
+ /* if not more free positions than elements to place, fill whole level */
+ if (num_elements >= num_free_positions)
+ {
+ for (x=0; x<lev_fieldx; x++)
+ for (y=0; y<lev_fieldy; y++)
+ Feld[x][y] = new_element;
+
+ DrawMiniLevel(ed_fieldx, ed_fieldy, level_xpos, level_ypos);
+ CopyLevelToUndoBuffer(UNDO_IMMEDIATE);
+ return;
+ }
+
+ while (num_elements > 0)
+ {
+ x = RND(lev_fieldx);
+ y = RND(lev_fieldy);
+
+ /* don't place element at the same position twice */
+ if (free_position[x][y])
+ {
+ free_position[x][y] = FALSE;
+ Feld[x][y] = new_element;
+ num_elements--;
+ }
+ }
+
+ DrawMiniLevel(ed_fieldx, ed_fieldy, level_xpos, level_ypos);
+ CopyLevelToUndoBuffer(UNDO_IMMEDIATE);
+}
+
+void WrapLevel(int dx, int dy)
+{
+ int wrap_dx = lev_fieldx - dx;
+ int wrap_dy = lev_fieldy - dy;
+ int x, y;
+
+ for(x=0; x<lev_fieldx; x++)
+ for(y=0; y<lev_fieldy; y++)
+ FieldBackup[x][y] = Feld[x][y];
+
+ for(x=0; x<lev_fieldx; x++)
+ for(y=0; y<lev_fieldy; y++)
+ Feld[x][y] =
+ FieldBackup[(x + wrap_dx) % lev_fieldx][(y + wrap_dy) % lev_fieldy];
+
+ DrawMiniLevel(ed_fieldx, ed_fieldy, level_xpos, level_ypos);
+ CopyLevelToUndoBuffer(UNDO_ACCUMULATE);
+}
+
+static void HandleDrawingAreas(struct GadgetInfo *gi)
+{
+ static boolean started_inside_drawing_area = FALSE;
+ int id = gi->custom_id;
+ boolean button_press_event;
+ boolean button_release_event;
+ boolean inside_drawing_area = !gi->event.off_borders;
+ boolean draw_level = (id == GADGET_ID_DRAWING_LEVEL);
+ int actual_drawing_function;
+ int button = gi->event.button;
+ int new_element = BUTTON_ELEMENT(button);
+ int sx = gi->event.x, sy = gi->event.y;
+ int min_sx = 0, min_sy = 0;
+ int max_sx = gi->drawing.area_xsize - 1, max_sy = gi->drawing.area_ysize - 1;
+ int lx = 0, ly = 0;
+ int min_lx = 0, min_ly = 0;
+ int max_lx = lev_fieldx - 1, max_ly = lev_fieldy - 1;
+ int x, y;
+
+ /* handle info callback for each invocation of action callback */
+ gi->callback_info(gi);
+
+ button_press_event = (gi->event.type == GD_EVENT_PRESSED);
+ button_release_event = (gi->event.type == GD_EVENT_RELEASED);
+
+ /* make sure to stay inside drawing area boundaries */
+ sx = (sx < min_sx ? min_sx : sx > max_sx ? max_sx : sx);
+ sy = (sy < min_sy ? min_sy : sy > max_sy ? max_sy : sy);
+
+ if (draw_level)
+ {
+ /* get positions inside level field */
+ lx = sx + level_xpos;
+ ly = sy + level_ypos;
+
+ if (!IN_LEV_FIELD(lx, ly))
+ inside_drawing_area = FALSE;
+
+ /* make sure to stay inside level field boundaries */
+ lx = (lx < min_lx ? min_lx : lx > max_lx ? max_lx : lx);
+ ly = (ly < min_ly ? min_ly : ly > max_ly ? max_ly : ly);
+
+ /* correct drawing area positions accordingly */
+ sx = lx - level_xpos;
+ sy = ly - level_ypos;
+ }
+
+ if (button_press_event)
+ started_inside_drawing_area = inside_drawing_area;
+
+ if (!started_inside_drawing_area)
+ return;
+
+ if (!button && !button_release_event)
+ return;
+
+ /* automatically switch to 'single item' drawing mode, if needed */
+ actual_drawing_function =
+ (draw_level ? drawing_function : GADGET_ID_SINGLE_ITEMS);
+
+ switch (actual_drawing_function)
+ {
+ case GADGET_ID_SINGLE_ITEMS:
+ if (draw_level)
+ {
+ if (button_release_event)