/**************************************************************************
Give pplayer technology ptech. Quietly returns A_NONE (zero) if
player already has this tech; otherwise returns the tech granted.
Use NULL for ptech to grant a random tech.
sends script signal "tech_researched" with the given reason
**************************************************************************/
Tech_Type *api_actions_give_technology(Player *pplayer, Tech_Type *ptech,
const char *reason)
{
Tech_type_id id;
Tech_Type *result;
if (ptech) {
id = advance_number(ptech);
} else {
if (get_player_research(pplayer)->researching == A_UNSET) {
choose_random_tech(pplayer);
}
id = get_player_research(pplayer)->researching;
}
if (player_invention_state(pplayer, id) != TECH_KNOWN) {
do_free_cost(pplayer, id);
found_new_tech(pplayer, id, FALSE, TRUE);
result = advance_by_number(id);
script_signal_emit("tech_researched", 3,
API_TYPE_TECH_TYPE, result,
API_TYPE_PLAYER, pplayer,
API_TYPE_STRING, reason);
return result;
} else {
return advance_by_number(A_NONE);
}
}
/****************************************************************************
Player has researched a new technology
****************************************************************************/
static void tech_researched(struct player *plr)
{
struct player_research *research = get_player_research(plr);
/* plr will be notified when new tech is chosen */
if (!is_future_tech(research->researching)) {
notify_embassies(plr, NULL, NULL, E_TECH_GAIN, FTC_SERVER_INFO, NULL,
_("The %s have researched %s."),
nation_plural_for_player(plr),
advance_name_researching(plr));
} else {
notify_embassies(plr, NULL, NULL, E_TECH_GAIN, FTC_SERVER_INFO, NULL,
_("The %s have researched Future Tech. %d."),
nation_plural_for_player(plr),
research->future_tech);
}
/* Deduct tech cost */
research->bulbs_researched =
MAX(research->bulbs_researched - total_bulbs_required(plr), 0);
/* cache researched technology for event signal, because found_new_tech() changes the research goal */
Tech_type_id researched_tech = research->researching;
/* do all the updates needed after finding new tech */
found_new_tech(plr, research->researching, TRUE, TRUE);
script_signal_emit("tech_researched", 3,
API_TYPE_TECH_TYPE,
advance_by_number(researched_tech),
API_TYPE_PLAYER, plr,
API_TYPE_STRING, "researched");
}
/**************************************************************************
Log player tech messages.
**************************************************************************/
void real_tech_log(const char *file, const char *function, int line,
enum log_level level, bool notify,
const struct player *pplayer, struct advance *padvance,
const char *msg, ...)
{
char buffer[500];
char buffer2[500];
va_list ap;
if (!valid_advance(padvance) || advance_by_number(A_NONE) == padvance) {
return;
}
fc_snprintf(buffer, sizeof(buffer), "%s::%s (want %d, dist %d) ",
player_name(pplayer),
advance_name_by_player(pplayer, advance_number(padvance)),
pplayer->ai_common.tech_want[advance_index(padvance)],
num_unknown_techs_for_goal(pplayer, advance_number(padvance)));
va_start(ap, msg);
fc_vsnprintf(buffer2, sizeof(buffer2), msg, ap);
va_end(ap);
cat_snprintf(buffer, sizeof(buffer), "%s", buffer2);
if (notify) {
notify_conn(NULL, NULL, E_AI_DEBUG, ftc_log, "%s", buffer);
}
do_log(file, function, line, FALSE, level, "%s", buffer);
}
/**************************************************************************
Log player tech messages.
**************************************************************************/
void TECH_LOG(int level, const struct player *pplayer,
struct advance *padvance, const char *msg, ...)
{
char buffer[500];
char buffer2[500];
va_list ap;
int minlevel = MIN(LOGLEVEL_TECH, level);
if (!valid_advance(padvance) || advance_by_number(A_NONE) == padvance) {
return;
}
if (BV_ISSET(pplayer->debug, PLAYER_DEBUG_TECH)) {
minlevel = LOG_TEST;
} else if (minlevel > fc_log_level) {
return;
}
my_snprintf(buffer, sizeof(buffer), "%s::%s (want %d, dist %d) ",
player_name(pplayer),
advance_name_by_player(pplayer, advance_number(padvance)),
pplayer->ai_data.tech_want[advance_index(padvance)],
num_unknown_techs_for_goal(pplayer, advance_number(padvance)));
va_start(ap, msg);
my_vsnprintf(buffer2, sizeof(buffer2), msg, ap);
va_end(ap);
cat_snprintf(buffer, sizeof(buffer), "%s", buffer2);
if (BV_ISSET(pplayer->debug, PLAYER_DEBUG_TECH)) {
notify_conn(NULL, NULL, E_AI_DEBUG, ftc_log, "%s", buffer);
}
freelog(minlevel, "%s", buffer);
}
/****************************************************************************
Give technologies to players with EFT_TECH_PARASITE (traditionally from
the Great Library).
****************************************************************************/
void do_tech_parasite_effect(struct player *pplayer)
{
int mod;
struct effect_list *plist = effect_list_new();
/* Note that two EFT_TECH_PARASITE effects will combine into a single,
* much worse effect. */
if ((mod = get_player_bonus_effects(plist, pplayer,
EFT_TECH_PARASITE)) > 0) {
char buf[512];
buf[0] = '\0';
effect_list_iterate(plist, peffect) {
if (buf[0] != '\0') {
sz_strlcat(buf, ", ");
}
get_effect_req_text(peffect, buf, sizeof(buf));
} effect_list_iterate_end;
advance_index_iterate(A_FIRST, i) {
if (player_invention_reachable(pplayer, i)
&& player_invention_state(pplayer, i) != TECH_KNOWN) {
int num_players = 0;
players_iterate(aplayer) {
if (player_invention_state(aplayer, i) == TECH_KNOWN) {
num_players++;
}
} players_iterate_end;
if (num_players >= mod) {
notify_player(pplayer, NULL, E_TECH_GAIN, FTC_SERVER_INFO, NULL,
_("%s acquired from %s!"),
advance_name_for_player(pplayer, i),
buf);
notify_embassies(pplayer, NULL, NULL, E_TECH_GAIN,
FTC_SERVER_INFO, NULL,
_("The %s have acquired %s from %s."),
nation_plural_for_player(pplayer),
advance_name_for_player(pplayer, i),
buf);
do_free_cost(pplayer, i);
found_new_tech(pplayer, i, FALSE, TRUE);
script_signal_emit("tech_researched", 3,
API_TYPE_TECH_TYPE,
advance_by_number(i),
API_TYPE_PLAYER, pplayer,
API_TYPE_STRING, "stolen");
break;
}
}
} advance_index_iterate_end;
/**************************************************************************
Mark as TECH_PREREQS_KNOWN each tech which is available, not known and
which has all requirements fullfiled.
If there is no such a tech mark A_FUTURE as researchable.
Recalculate research->num_known_tech_with_flag
Should always be called after player_invention_set()
**************************************************************************/
void player_research_update(struct player *pplayer)
{
enum tech_flag_id flag;
int researchable = 0;
struct player_research *research = player_research_get(pplayer);
/* This is set when the game starts, but not everybody finds out
* right away. */
player_invention_set(pplayer, A_NONE, TECH_KNOWN);
advance_index_iterate(A_FIRST, i) {
if (!player_invention_reachable(pplayer, i, FALSE)) {
player_invention_set(pplayer, i, TECH_UNKNOWN);
} else {
if (player_invention_state(pplayer, i) == TECH_PREREQS_KNOWN) {
player_invention_set(pplayer, i, TECH_UNKNOWN);
}
if (player_invention_state(pplayer, i) == TECH_UNKNOWN
&& player_invention_state(pplayer, advance_required(i, AR_ONE))
== TECH_KNOWN
&& player_invention_state(pplayer, advance_required(i, AR_TWO))
== TECH_KNOWN) {
player_invention_set(pplayer, i, TECH_PREREQS_KNOWN);
researchable++;
}
}
build_required_techs(pplayer, i);
} advance_index_iterate_end;
#ifdef DEBUG_TECH
advance_index_iterate(A_FIRST, i) {
char buf[advance_count() + 1];
advance_index_iterate(A_NONE, j) {
if (BV_ISSET(research->inventions[i].required_techs, j)) {
buf[j] = '1';
} else {
buf[j] = '0';
}
} advance_index_iterate_end;
buf[advance_count()] = '\0';
log_debug("%s: [%3d] %-25s => %s", player_name(pplayer), i,
advance_rule_name(advance_by_number(i)),
tech_state_name(player_invention_state(pplayer, i)));
log_debug("%s: [%3d] %s", player_name(pplayer), i, buf);
} advance_index_iterate_end;
PyObject* get_techs(int level) {
PyObject* list = PyList_New(0);
int num, i;
advance_index_iterate(A_FIRST, i) {
if (player_invention_reachable(client.conn.playing, i, FALSE)
&& TECH_KNOWN != player_invention_state(client.conn.playing, i)
&& (level > (num = num_unknown_techs_for_goal(client.conn.playing, i))
/*|| player_research_get(client.conn.playing) == research->tech_goal*/)) {
PyList_Append(list, Py_BuildValue("isi", i, advance_name_translation(advance_by_number(i)), num));
}
} advance_index_iterate_end;
return list;
}
/****************************************************************
...
*****************************************************************/
static int create_advances_list(struct player *pplayer,
struct player *pvictim, bool make_modal)
{
Widget spy_tech_form;
Widget close_command;
Dimension width1, width2;
int j;
static const char *advances_can_steal[A_LAST+1];
spy_tech_shell =
I_T(XtVaCreatePopupShell("spystealtechpopup",
(make_modal ? transientShellWidgetClass :
topLevelShellWidgetClass),
toplevel, NULL));
spy_tech_form = XtVaCreateManagedWidget("spystealtechform",
formWidgetClass,
spy_tech_shell,
NULL);
spy_advances_list_label =
I_L(XtVaCreateManagedWidget("spystealtechlistlabel", labelWidgetClass,
spy_tech_form, NULL));
spy_advances_list = XtVaCreateManagedWidget("spystealtechlist",
listWidgetClass,
spy_tech_form,
NULL);
close_command =
I_L(XtVaCreateManagedWidget("spystealtechclosecommand", commandWidgetClass,
spy_tech_form, NULL));
spy_steal_command =
I_L(XtVaCreateManagedWidget("spystealtechcommand", commandWidgetClass,
spy_tech_form,
XtNsensitive, False,
NULL));
XtAddCallback(spy_advances_list, XtNcallback, spy_select_tech_callback, NULL);
XtAddCallback(close_command, XtNcallback, spy_close_tech_callback, NULL);
XtAddCallback(spy_steal_command, XtNcallback, spy_steal_callback, NULL);
XtRealizeWidget(spy_tech_shell);
/* Now populate the list */
j = 0;
advances_can_steal[j] = _("NONE");
advance_type[j] = -1;
if (pvictim) { /* you don't want to know what lag can do -- Syela */
advance_index_iterate(A_FIRST, i) {
if(player_invention_state(pvictim, i)==TECH_KNOWN &&
(player_invention_state(pplayer, i)==TECH_UNKNOWN ||
player_invention_state(pplayer, i)==TECH_PREREQS_KNOWN)) {
advances_can_steal[j] = advance_name_translation(advance_by_number(i));
advance_type[j++] = i;
}
}
{
static struct astring str = ASTRING_INIT;
/* TRANS: %s is a unit name, e.g., Spy */
astr_set(&str, _("At %s's Discretion"),
unit_name_translation(game_unit_by_number(diplomat_id)));
advances_can_steal[j] = astr_str(&str);
advance_type[j++] = A_UNSET;
}
} advance_index_iterate_end;
if(j == 0) j++;
advances_can_steal[j] = NULL;
XtSetSensitive(spy_steal_command, FALSE);
XawListChange(spy_advances_list, (char **)advances_can_steal, 0, 0, 1);
XtVaGetValues(spy_advances_list, XtNwidth, &width1, NULL);
XtVaGetValues(spy_advances_list_label, XtNwidth, &width2, NULL);
XtVaSetValues(spy_advances_list, XtNwidth, MAX(width1,width2), NULL);
XtVaSetValues(spy_advances_list_label, XtNwidth, MAX(width1,width2), NULL);
return j;
}
static LONG APIENTRY HelpdlgWndProc(HWND hWnd,UINT uMsg,
UINT wParam,
LONG lParam)
{
PAINTSTRUCT ps;
HDC hdc;
switch (uMsg)
{
case WM_CREATE:
helpdlg_win=hWnd;
return 0;
case WM_DESTROY:
helpdlg_win=NULL;
break;
case WM_GETMINMAXINFO:
break;
case WM_SIZE:
break;
case WM_CLOSE:
DestroyWindow(hWnd);
break;
case WM_PAINT:
hdc=BeginPaint(hWnd,(LPPAINTSTRUCT)&ps);
if (drawn_unit_type)
help_draw_unit(hdc, drawn_unit_type);
EndPaint(hWnd,(LPPAINTSTRUCT)&ps);
break;
case WM_COMMAND:
switch (LOWORD(wParam))
{
case IDCANCEL:
DestroyWindow(hWnd);
break;
case ID_HELP_TECH_LINK:
case ID_HELP_UNIT_LINK:
case ID_HELP_WONDER_LINK:
case ID_HELP_IMPROVEMENT_LINK:
{
char s[128];
GetWindowText((HWND)lParam,s,sizeof(s));
if (strcmp(s, _("(Never)")) != 0 && strcmp(s, _("None")) != 0
&& strcmp(s, advance_name_translation(advance_by_number(A_NONE))) != 0)
select_help_item_string(s,page_type_from_id(LOWORD(wParam)));
}
break;
case ID_HELP_LIST:
{
if (HIWORD(wParam)==LBN_SELCHANGE)
{
int row;
const struct help_item *p = NULL;
row=ListBox_GetCurSel(helpdlg_list);
help_items_iterate(pitem) {
if ((row--)==0)
{
p=pitem;
break;
}
}
help_items_iterate_end;
if (p)
help_update_dialog(p);
}
}
break;
}
break;
default:
return DefWindowProc(hWnd,uMsg,wParam,lParam);
}
/**************************************************************************
...
**************************************************************************/
static int spy_steal_popup(struct widget *pWidget)
{
struct city *pVcity = pWidget->data.city;
int id = MAX_ID - pWidget->ID;
struct player *pVictim = NULL;
struct CONTAINER *pCont;
struct widget *pBuf = NULL;
struct widget *pWindow;
SDL_String16 *pStr;
SDL_Surface *pSurf;
int max_col, max_row, col, i, count = 0;
SDL_Rect area;
popdown_diplomat_dialog();
if(pVcity)
{
pVictim = city_owner(pVcity);
}
if (pDiplomat_Dlg || !pVictim) {
return 1;
}
count = 0;
advance_index_iterate(A_FIRST, i) {
if (player_invention_reachable(client.conn.playing, i, FALSE)
&& TECH_KNOWN == player_invention_state(pVictim, i)
&& (TECH_UNKNOWN == player_invention_state(client.conn.playing, i)
|| TECH_PREREQS_KNOWN ==
player_invention_state(client.conn.playing, i))) {
count++;
}
} advance_index_iterate_end;
if(!count) {
/* if there is no known tech to steal then
send steal order at Spy's Discretion */
int target_id = pVcity->id;
request_diplomat_action(DIPLOMAT_STEAL, id, target_id, advance_count());
return -1;
}
pCont = fc_calloc(1, sizeof(struct CONTAINER));
pCont->id0 = pVcity->id;
pCont->id1 = id;/* spy id */
pDiplomat_Dlg = fc_calloc(1, sizeof(struct diplomat_dialog));
pDiplomat_Dlg->diplomat_id = id;
pDiplomat_Dlg->diplomat_target_id = pVcity->id;
pDiplomat_Dlg->pdialog = fc_calloc(1, sizeof(struct ADVANCED_DLG));
pStr = create_str16_from_char(_("Select Advance to Steal"), adj_font(12));
pStr->style |= TTF_STYLE_BOLD;
pWindow = create_window_skeleton(NULL, pStr, 0);
pWindow->action = spy_steal_dlg_window_callback;
set_wstate(pWindow , FC_WS_NORMAL);
add_to_gui_list(ID_DIPLOMAT_DLG_WINDOW, pWindow);
pDiplomat_Dlg->pdialog->pEndWidgetList = pWindow;
area = pWindow->area;
area.w = MAX(area.w, adj_size(8));
/* ------------------ */
/* exit button */
pBuf = create_themeicon(pTheme->Small_CANCEL_Icon, pWindow->dst,
WF_WIDGET_HAS_INFO_LABEL | WF_RESTORE_BACKGROUND);
pBuf->info_label = create_str16_from_char(_("Close Dialog (Esc)"),
adj_font(12));
area.w += pBuf->size.w + adj_size(10);
pBuf->action = exit_spy_steal_dlg_callback;
set_wstate(pBuf, FC_WS_NORMAL);
pBuf->key = SDLK_ESCAPE;
add_to_gui_list(ID_TERRAIN_ADV_DLG_EXIT_BUTTON, pBuf);
/* ------------------------- */
count++; /* count + at Spy's Discretion */
/* max col - 104 is steal tech widget width */
max_col = (Main.screen->w - (pWindow->size.w - pWindow->area.w) - adj_size(2)) / adj_size(104);
/* max row - 204 is steal tech widget height */
max_row = (Main.screen->h - (pWindow->size.h - pWindow->area.h)) / adj_size(204);
/* make space on screen for scrollbar */
if (max_col * max_row < count) {
max_col--;
}
if (count < max_col + 1) {
col = count;
} else {
if (count < max_col + adj_size(3)) {
col = max_col - adj_size(2);
} else {
if (count < max_col + adj_size(5)) {
col = max_col - 1;
} else {
col = max_col;
}
}
}
pStr = create_string16(NULL, 0, adj_font(10));
pStr->style |= (TTF_STYLE_BOLD | SF_CENTER);
count = 0;
advance_index_iterate(A_FIRST, i) {
if (player_invention_reachable(client.conn.playing, i, FALSE)
&& TECH_KNOWN == player_invention_state(pVictim, i)
&& (TECH_UNKNOWN == player_invention_state(client.conn.playing, i)
|| TECH_PREREQS_KNOWN ==
player_invention_state(client.conn.playing, i))) {
count++;
copy_chars_to_string16(pStr, advance_name_translation(advance_by_number(i)));
pSurf = create_sellect_tech_icon(pStr, i, FULL_MODE);
pBuf = create_icon2(pSurf, pWindow->dst,
WF_FREE_THEME | WF_RESTORE_BACKGROUND);
set_wstate(pBuf, FC_WS_NORMAL);
pBuf->action = spy_steal_callback;
pBuf->data.cont = pCont;
add_to_gui_list(MAX_ID - i, pBuf);
if (count > (col * max_row)) {
set_wflag(pBuf, WF_HIDDEN);
}
}
} advance_index_iterate_end;
/* get spy tech */
i = advance_number(unit_type(game_unit_by_number(id))->require_advance);
copy_chars_to_string16(pStr, _("At Spy's Discretion"));
pSurf = create_sellect_tech_icon(pStr, i, FULL_MODE);
pBuf = create_icon2(pSurf, pWindow->dst,
(WF_FREE_THEME | WF_RESTORE_BACKGROUND| WF_FREE_DATA));
set_wstate(pBuf, FC_WS_NORMAL);
pBuf->action = spy_steal_callback;
pBuf->data.cont = pCont;
add_to_gui_list(MAX_ID - advance_count(), pBuf);
count++;
/* --------------------------------------------------------- */
FREESTRING16(pStr);
pDiplomat_Dlg->pdialog->pBeginWidgetList = pBuf;
pDiplomat_Dlg->pdialog->pBeginActiveWidgetList = pDiplomat_Dlg->pdialog->pBeginWidgetList;
pDiplomat_Dlg->pdialog->pEndActiveWidgetList = pDiplomat_Dlg->pdialog->pEndWidgetList->prev->prev;
/* -------------------------------------------------------------- */
i = 0;
if (count > col) {
count = (count + (col - 1)) / col;
if (count > max_row) {
pDiplomat_Dlg->pdialog->pActiveWidgetList = pDiplomat_Dlg->pdialog->pEndActiveWidgetList;
count = max_row;
i = create_vertical_scrollbar(pDiplomat_Dlg->pdialog, col, count, TRUE, TRUE);
}
} else {
count = 1;
}
area.w = MAX(area.w, (col * pBuf->size.w + adj_size(2) + i));
area.h = count * pBuf->size.h + adj_size(2);
/* alloca window theme and win background buffer */
pSurf = theme_get_background(theme, BACKGROUND_SPYSTEALDLG);
if (resize_window(pWindow, pSurf, NULL,
(pWindow->size.w - pWindow->area.w) + area.w,
(pWindow->size.h - pWindow->area.h) + area.h))
{
FREESURFACE(pSurf);
}
area = pWindow->area;
widget_set_position(pWindow,
(Main.screen->w - pWindow->size.w) / 2,
(Main.screen->h - pWindow->size.h) / 2);
/* exit button */
pBuf = pWindow->prev;
pBuf->size.x = area.x + area.w - pBuf->size.w - 1;
pBuf->size.y = pWindow->size.y + adj_size(2);
setup_vertical_widgets_position(col, area.x + 1,
area.y, 0, 0,
pDiplomat_Dlg->pdialog->pBeginActiveWidgetList,
pDiplomat_Dlg->pdialog->pEndActiveWidgetList);
if(pDiplomat_Dlg->pdialog->pScroll) {
setup_vertical_scrollbar_area(pDiplomat_Dlg->pdialog->pScroll,
area.x + area.w, area.y,
area.h, TRUE);
}
redraw_group(pDiplomat_Dlg->pdialog->pBeginWidgetList, pWindow, FALSE);
widget_mark_dirty(pWindow);
return -1;
}
