gemrb/plugins/FXOpcodes/FXOpcodes.cpp

   1 /* GemRB - Infinity Engine Emulator
   2  * Copyright (C) 2003 The GemRB Project
   3  *
   4  * This program is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU General Public License
   6  * as published by the Free Software Foundation; either version 2
   7  * of the License, or (at your option) any later version.
   8
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12  * GNU General Public License for more details.
  13
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  17  *
  18  *
  19  */
  20
  21 #include "ie_feats.h" //cannot avoid declaring these
  22 #include "opcode_params.h"
  23 #include "overlays.h"
  24 #include "strrefs.h"
  25 #include "win32def.h"
  26
  27 #include "Audio.h"
  28 #include "DisplayMessage.h"
  29 #include "EffectQueue.h"
  30 #include "Game.h"
  31 #include "GameData.h"
  32 #include "Interface.h"
  33 #include "Projectile.h" //needs for clearair
  34 #include "Spell.h" //needed for fx_cast_spell feedback
  35 #include "TileMap.h" //needs for knock!
  36 #include "damages.h"
  37 #include "GameScript/GSUtils.h" //needs for MoveBetweenAreasCore
  38 #include "GUI/GameControl.h"
  39 #include "Scriptable/Actor.h"
  40 #include "PolymorphCache.h" // fx_polymorph
  41 #include "Scriptable/PCStatStruct.h" //fx_polymorph (action definitions)
  42
  43 //FIXME: find a way to handle portrait icons better
  44 #define PI_CONFUSED  3
  45 #define PI_BERSERK   4
  46 #define PI_POISONED  6
  47 #define PI_HELD     13
  48 #define PI_SLEEP    14
  49 #define PI_BLESS    17
  50 #define PI_PANIC        36
  51 #define PI_HASTED   38
  52 #define PI_FATIGUE  39
  53 #define PI_SLOWED   41
  54 #define PI_HOPELESS 44
  55 #define PI_LEVELDRAIN 53
  56 #define PI_FEEBLEMIND 54
  57 #define PI_STUN     55
  58 #define PI_AID      57
  59 #define PI_HOLY     59
  60 #define PI_BOUNCE   65
  61 #define PI_BOUNCE2  67
  62
  63 #define PI_BLOODRAGE 76 //iwd2
  64 #define PI_MAZE     78
  65 #define PI_PRISON   79
  66 #define PI_STONESKIN 80
  67 #define PI_DEAFNESS  83 //iwd2
  68 #define PI_SEQUENCER 92
  69 #define PI_BLUR      109
  70 #define PI_IMPROVEDHASTE 110
  71 #define PI_SPELLTRAP 117
  72 #define PI_CSHIELD  162
  73 #define PI_CSHIELD2 163
  74
  75 static ieResRef *casting_glows = NULL;
  76 static int cgcount = -1;
  77 static ieResRef *spell_hits = NULL;
  78 static bool enhanced_effects = false;
  79 static int shcount = -1;
  80 static int *spell_abilities = NULL;
  81 static ieDword splabcount = 0;
  82 static int *polymorph_stats = NULL;
  83 static int polystatcount = 0;
  84 static bool pstflags = false;
  85
  86 //the original engine stores the colors in sprklclr.2da in a different order
  87
  88 static ScriptedAnimation default_spell_hit;
  89
  90 int fx_ac_vs_damage_type_modifier (Scriptable* Owner, Actor* target, Effect* fx);//00
  91 int fx_attacks_per_round_modifier (Scriptable* Owner, Actor* target, Effect* fx);//01
  92 int fx_cure_sleep_state (Scriptable* Owner, Actor* target, Effect* fx);//02
  93 int fx_set_berserk_state (Scriptable* Owner, Actor* target, Effect* fx);//03
  94 int fx_cure_berserk_state (Scriptable* Owner, Actor* target, Effect* fx);//04
  95 int fx_set_charmed_state (Scriptable* Owner, Actor* target, Effect* fx);//05
  96 int fx_charisma_modifier (Scriptable* Owner, Actor* target, Effect* fx);//06
  97 int fx_set_color_gradient (Scriptable* Owner, Actor* target, Effect* fx);//07
  98 int fx_set_color_rgb (Scriptable* Owner, Actor* target, Effect* fx);//08
  99 int fx_set_color_rgb_global (Scriptable* Owner, Actor* target, Effect* fx);//08
 100 int fx_set_color_pulse_rgb (Scriptable* Owner, Actor* target, Effect* fx);//09
 101 int fx_set_color_pulse_rgb_global (Scriptable* Owner, Actor* target, Effect* fx);//09
 102 int fx_constitution_modifier (Scriptable* Owner, Actor* target, Effect* fx);//0a
 103 int fx_cure_poisoned_state (Scriptable* Owner, Actor* target, Effect* fx);//0b
 104 int fx_damage (Scriptable* Owner, Actor* target, Effect* fx);//0c
 105 int fx_death (Scriptable* Owner, Actor* target, Effect* fx);//0d
 106 int fx_cure_frozen_state (Scriptable* Owner, Actor* target, Effect* fx);//0e
 107 int fx_dexterity_modifier (Scriptable* Owner, Actor* target, Effect* fx);//0f
 108 int fx_set_hasted_state (Scriptable* Owner, Actor* target, Effect* fx);//10
 109 int fx_current_hp_modifier (Scriptable* Owner, Actor* target, Effect* fx);//11
 110 int fx_maximum_hp_modifier (Scriptable* Owner, Actor* target, Effect* fx);//12
 111 int fx_intelligence_modifier (Scriptable* Owner, Actor* target, Effect* fx);//13
 112 int fx_set_invisible_state (Scriptable* Owner, Actor* target, Effect* fx);//14
 113 int fx_lore_modifier (Scriptable* Owner, Actor* target, Effect* fx);//15
 114 int fx_luck_modifier (Scriptable* Owner, Actor* target, Effect* fx);//16
 115 int fx_morale_modifier (Scriptable* Owner, Actor* target, Effect* fx);//17
 116 int fx_set_panic_state (Scriptable* Owner, Actor* target, Effect* fx);//18
 117 int fx_set_poisoned_state (Scriptable* Owner, Actor* target, Effect* fx);//19
 118 int fx_remove_curse (Scriptable* Owner, Actor* target, Effect* fx);//1a
 119 int fx_acid_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//1b
 120 int fx_cold_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//1c
 121 int fx_electricity_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//1d
 122 int fx_fire_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//1e
 123 int fx_magic_damage_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//1f
 124 int fx_cure_dead_state (Scriptable* Owner, Actor* target, Effect* fx);//20
 125 int fx_save_vs_death_modifier (Scriptable* Owner, Actor* target, Effect* fx);//21
 126 int fx_save_vs_wands_modifier (Scriptable* Owner, Actor* target, Effect* fx);//22
 127 int fx_save_vs_poly_modifier (Scriptable* Owner, Actor* target, Effect* fx);//23
 128 int fx_save_vs_breath_modifier (Scriptable* Owner, Actor* target, Effect* fx);//24
 129 int fx_save_vs_spell_modifier (Scriptable* Owner, Actor* target, Effect* fx);//25
 130 int fx_set_silenced_state (Scriptable* Owner, Actor* target, Effect* fx);//26
 131 int fx_set_unconscious_state (Scriptable* Owner, Actor* target, Effect* fx);//27
 132 int fx_set_slowed_state (Scriptable* Owner, Actor* target, Effect* fx);//28
 133 int fx_sparkle(Scriptable* Owner, Actor* target, Effect* fx);//29
 134 int fx_bonus_wizard_spells (Scriptable* Owner, Actor* target, Effect* fx);//2a
 135 int fx_cure_petrified_state (Scriptable* Owner, Actor* target, Effect* fx);//2b
 136 int fx_strength_modifier (Scriptable* Owner, Actor* target, Effect* fx);//2c
 137 int fx_set_stun_state (Scriptable* Owner, Actor* target, Effect* fx);//2d
 138 int fx_cure_stun_state (Scriptable* Owner, Actor* target, Effect* fx);//2e
 139 int fx_cure_invisible_state (Scriptable* Owner, Actor* target, Effect* fx);//2f
 140 int fx_cure_silenced_state (Scriptable* Owner, Actor* target, Effect* fx);//30
 141 int fx_wisdom_modifier (Scriptable* Owner, Actor* target, Effect* fx);//31
 142 int fx_brief_rgb (Scriptable* Owner, Actor* target, Effect* fx);//32
 143 int fx_darken_rgb (Scriptable* Owner, Actor* target, Effect* fx);//33
 144 int fx_glow_rgb (Scriptable* Owner, Actor* target, Effect* fx);//34
 145 int fx_animation_id_modifier (Scriptable* Owner, Actor* target, Effect* fx);//35
 146 int fx_to_hit_modifier (Scriptable* Owner, Actor* target, Effect* fx);//36
 147 int fx_kill_creature_type (Scriptable* Owner, Actor* target, Effect* fx);//37
 148 int fx_alignment_invert (Scriptable* Owner, Actor* target, Effect* fx);//38
 149 int fx_alignment_change (Scriptable* Owner, Actor* target, Effect* fx);//39
 150 int fx_dispel_effects (Scriptable* Owner, Actor* target, Effect* fx);//3a
 151 int fx_stealth_modifier (Scriptable* Owner, Actor* target, Effect* fx);//3b
 152 int fx_miscast_magic_modifier (Scriptable* Owner, Actor* target, Effect* fx);//3c
 153 int fx_alchemy_modifier (Scriptable* Owner, Actor* target, Effect* fx);//3d
 154 int fx_bonus_priest_spells (Scriptable* Owner, Actor* target, Effect* fx);//3e
 155 int fx_set_infravision_state (Scriptable* Owner, Actor* target, Effect* fx);//3f
 156 int fx_cure_infravision_state (Scriptable* Owner, Actor* target, Effect* fx);//40
 157 int fx_set_blur_state (Scriptable* Owner, Actor* target, Effect* fx);//41
 158 int fx_transparency_modifier (Scriptable* Owner, Actor* target, Effect* fx);//42
 159 int fx_summon_creature (Scriptable* Owner, Actor* target, Effect* fx);//43
 160 int fx_unsummon_creature (Scriptable* Owner, Actor* target, Effect* fx);//44
 161 int fx_set_nondetection_state (Scriptable* Owner, Actor* target, Effect* fx);//45
 162 int fx_cure_nondetection_state (Scriptable* Owner, Actor* target, Effect* fx);//46
 163 int fx_sex_modifier (Scriptable* Owner, Actor* target, Effect* fx);//47
 164 int fx_ids_modifier (Scriptable* Owner, Actor* target, Effect* fx);//48
 165 int fx_damage_bonus_modifier (Scriptable* Owner, Actor* target, Effect* fx);//49
 166 int fx_set_blind_state (Scriptable* Owner, Actor* target, Effect* fx);//4a
 167 int fx_cure_blind_state (Scriptable* Owner, Actor* target, Effect* fx);//4b
 168 int fx_set_feebleminded_state (Scriptable* Owner, Actor* target, Effect* fx);//4c
 169 int fx_cure_feebleminded_state (Scriptable* Owner, Actor* target, Effect* fx);//4d
 170 int fx_set_diseased_state (Scriptable* Owner, Actor* target, Effect*fx);//4e
 171 int fx_cure_diseased_state (Scriptable* Owner, Actor* target, Effect* fx);//4f
 172 int fx_set_deaf_state (Scriptable* Owner, Actor* target, Effect* fx); //50
 173 int fx_set_deaf_state_iwd2 (Scriptable* Owner, Actor* target, Effect* fx); //50
 174 int fx_cure_deaf_state (Scriptable* Owner, Actor* target, Effect* fx);//51
 175 int fx_set_ai_script (Scriptable* Owner, Actor* target, Effect*fx);//52
 176 int fx_protection_from_projectile (Scriptable* Owner, Actor* target, Effect*fx);//53
 177 int fx_magical_fire_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//54
 178 int fx_magical_cold_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//55
 179 int fx_slashing_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//56
 180 int fx_crushing_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//57
 181 int fx_piercing_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//58
 182 int fx_missiles_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//59
 183 int fx_open_locks_modifier (Scriptable* Owner, Actor* target, Effect* fx);//5a
 184 int fx_find_traps_modifier (Scriptable* Owner, Actor* target, Effect* fx);//5b
 185 int fx_pick_pockets_modifier (Scriptable* Owner, Actor* target, Effect* fx);//5c
 186 int fx_fatigue_modifier (Scriptable* Owner, Actor* target, Effect* fx);//5d
 187 int fx_intoxication_modifier (Scriptable* Owner, Actor* target, Effect* fx);//5e
 188 int fx_tracking_modifier (Scriptable* Owner, Actor* target, Effect* fx);//5f
 189 int fx_level_modifier (Scriptable* Owner, Actor* target, Effect* fx);//60
 190 int fx_strength_bonus_modifier (Scriptable* Owner, Actor* target, Effect* fx);//61
 191 int fx_set_regenerating_state (Scriptable* Owner, Actor* target, Effect* fx);//62
 192 int fx_spell_duration_modifier (Scriptable* Owner, Actor* target, Effect* fx);///63
 193 int fx_generic_effect (Scriptable* Owner, Actor* target, Effect* fx);//64 protection from creature is a generic effect
 194 int fx_protection_opcode(Scriptable* Owner, Actor* target, Effect* fx); //65
 195 int fx_protection_spelllevel (Scriptable* Owner, Actor* target, Effect* fx); //66
 196 int fx_change_name (Scriptable* Owner, Actor* target, Effect* fx);//67
 197 int fx_experience_modifier (Scriptable* Owner, Actor* target, Effect* fx);//68
 198 int fx_gold_modifier (Scriptable* Owner, Actor* target, Effect* fx);//69
 199 int fx_morale_break_modifier (Scriptable* Owner, Actor* target, Effect* fx);//6a
 200 int fx_portrait_change (Scriptable* Owner, Actor* target, Effect* fx);//6b
 201 int fx_reputation_modifier (Scriptable* Owner, Actor* target, Effect* fx);//6c
 202 int fx_hold_creature_no_icon (Scriptable* Owner, Actor* target, Effect* fx);//6d
 203 //int fx_retreat_from (Scriptable* Owner, Actor* target, Effect* fx);//6e reused
 204 int fx_create_magic_item (Scriptable* Owner, Actor* target, Effect* fx);//6f
 205 int fx_remove_item (Scriptable* Owner, Actor* target, Effect* fx);//70
 206 int fx_equip_item (Scriptable* Owner, Actor* target, Effect* fx);//71
 207 int fx_dither (Scriptable* Owner, Actor* target, Effect* fx);//72
 208 int fx_detect_alignment (Scriptable* Owner, Actor* target, Effect* fx);//73
 209 //int fx_cure_improved_invisible_state (Scriptable* Owner, Actor* target, Effect* fx);//74 (2f)
 210 int fx_reveal_area (Scriptable* Owner, Actor* target, Effect* fx);//75
 211 int fx_reveal_creatures (Scriptable* Owner, Actor* target, Effect* fx);//76
 212 int fx_mirror_image (Scriptable* Owner, Actor* target, Effect* fx);//77
 213 int fx_immune_to_weapon (Scriptable* Owner, Actor* target, Effect* fx);//78
 214 int fx_visual_animation_effect (Scriptable* Owner, Actor* target, Effect* fx);//79 unknown
 215 int fx_create_inventory_item (Scriptable* Owner, Actor* target, Effect* fx);//7a
 216 int fx_remove_inventory_item (Scriptable* Owner, Actor* target, Effect* fx);//7b
 217 int fx_dimension_door (Scriptable* Owner, Actor* target, Effect* fx);//7c
 218 int fx_knock (Scriptable* Owner, Actor* target, Effect* fx);//7d
 219 int fx_movement_modifier (Scriptable* Owner, Actor* target, Effect* fx);//7e
 220 int fx_monster_summoning (Scriptable* Owner, Actor* target, Effect* fx);//7f
 221 int fx_set_confused_state (Scriptable* Owner, Actor* target, Effect* fx);//80
 222 int fx_set_aid_state (Scriptable* Owner, Actor* target, Effect* fx);//81
 223 int fx_set_bless_state (Scriptable* Owner, Actor* target, Effect* fx);//82
 224 int fx_set_chant_state (Scriptable* Owner, Actor* target, Effect* fx);//83
 225 int fx_set_holy_state (Scriptable* Owner, Actor* target, Effect* fx);//84
 226 int fx_luck_non_cumulative (Scriptable* Owner, Actor* target, Effect* fx);//85
 227 int fx_luck_cumulative (Scriptable* Owner, Actor* target, Effect* fx);//85
 228 int fx_set_petrified_state (Scriptable* Owner, Actor* target, Effect* fx);//86
 229 int fx_polymorph (Scriptable* Owner, Actor* target, Effect* fx);//87
 230 int fx_force_visible (Scriptable* Owner, Actor* target, Effect* fx);//88
 231 int fx_set_chantbad_state (Scriptable* Owner, Actor* target, Effect* fx);//89
 232 int fx_animation_stance (Scriptable* Owner, Actor* target, Effect* fx);//8a
 233 int fx_display_string (Scriptable* Owner, Actor* target, Effect* fx);//8b
 234 int fx_casting_glow (Scriptable* Owner, Actor* target, Effect* fx);//8c
 235 int fx_visual_spell_hit (Scriptable* Owner, Actor* target, Effect* fx);//8d
 236 int fx_display_portrait_icon (Scriptable* Owner, Actor* target, Effect* fx);//8e
 237 int fx_create_item_in_slot (Scriptable* Owner, Actor* target, Effect* fx);//8f
 238 int fx_disable_button (Scriptable* Owner, Actor* target, Effect* fx);//90
 239 int fx_disable_spellcasting (Scriptable* Owner, Actor* target, Effect* fx);//91
 240 int fx_cast_spell (Scriptable* Owner, Actor* target, Effect *fx);//92
 241 int fx_learn_spell (Scriptable* Owner, Actor* target, Effect *fx);//93
 242 int fx_cast_spell_point (Scriptable* Owner, Actor* target, Effect *fx);//94
 243 int fx_identify (Scriptable* Owner, Actor* target, Effect *fx);//95
 244 int fx_find_traps (Scriptable* Owner, Actor* target, Effect *fx);//96
 245 int fx_replace_creature (Scriptable* Owner, Actor* target, Effect *fx);//97
 246 int fx_play_movie (Scriptable* Owner, Actor* target, Effect* fx);//98
 247 int fx_set_sanctuary_state (Scriptable* Owner, Actor* target, Effect* fx);//99
 248 int fx_set_entangle_state (Scriptable* Owner, Actor* target, Effect* fx);//9a
 249 int fx_set_minorglobe_state (Scriptable* Owner, Actor* target, Effect* fx);//9b
 250 int fx_set_shieldglobe_state (Scriptable* Owner, Actor* target, Effect* fx);//9c
 251 int fx_set_web_state (Scriptable* Owner, Actor* target, Effect* fx);//9d
 252 int fx_set_grease_state (Scriptable* Owner, Actor* target, Effect* fx);//9e
 253 int fx_mirror_image_modifier (Scriptable* Owner, Actor* target, Effect* fx);//9f
 254 int fx_cure_sanctuary_state (Scriptable* Owner, Actor* target, Effect* fx);//a0
 255 int fx_cure_panic_state (Scriptable* Owner, Actor* target, Effect* fx);//a1
 256 int fx_cure_hold_state (Scriptable* Owner, Actor* target, Effect* fx);//a2 //cures 175
 257 int fx_cure_slow_state (Scriptable* Owner, Actor* target, Effect* fx);//a3
 258 int fx_cure_intoxication (Scriptable* Owner, Actor* target, Effect* fx);//a4
 259 int fx_pause_target (Scriptable* Owner, Actor* target, Effect* fx);//a5
 260 int fx_magic_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//a6
 261 int fx_missile_to_hit_modifier (Scriptable* Owner, Actor* target, Effect* fx);//a7
 262 int fx_remove_creature (Scriptable* Owner, Actor* target, Effect* fx);//a8
 263 int fx_disable_portrait_icon (Scriptable* Owner, Actor* target, Effect* fx);//a9
 264 int fx_damage_animation (Scriptable* Owner, Actor* target, Effect* fx);//aa
 265 int fx_add_innate (Scriptable* Owner, Actor* target, Effect* fx);//ab
 266 int fx_remove_spell (Scriptable* Owner, Actor* target, Effect* fx);//ac
 267 int fx_poison_resistance_modifier (Scriptable* Owner, Actor* target, Effect* fx);//ad
 268 int fx_playsound (Scriptable* Owner, Actor* target, Effect* fx);//ae
 269 int fx_hold_creature (Scriptable* Owner, Actor* target, Effect* fx);//af
 270 // this function is exactly the same as 0x7e fx_movement_modifier (in bg2 at least)//b0
 271 int fx_apply_effect (Scriptable* Owner, Actor* target, Effect* fx);//b1
 272 //b2 //hitbonus against creature (generic_effect)
 273 //b3 //damagebonus against creature (generic effect)
 274 //b4 //restrict item (generic effect)
 275 //b5 //restrict itemtype (generic effect)
 276 int fx_apply_effect_item (Scriptable* Owner, Actor* target, Effect* fx);//b6
 277 int fx_apply_effect_item_type (Scriptable* Owner, Actor* target, Effect* fx);//b7
 278 int fx_dontjump_modifier (Scriptable* Owner, Actor* target, Effect* fx);//b8
 279 // this function is exactly the same as 0xaf hold_creature (in bg2 at least) //b9
 280 int fx_move_to_area (Scriptable* Owner, Actor* target, Effect* fx);//ba
 281 int fx_local_variable (Scriptable* Owner, Actor* target, Effect* fx);//bb
 282 int fx_auracleansing_modifier (Scriptable* Owner, Actor* target, Effect* fx);//bc
 283 int fx_castingspeed_modifier (Scriptable* Owner, Actor* target, Effect* fx);//bd
 284 int fx_attackspeed_modifier (Scriptable* Owner, Actor* target, Effect* fx);//be
 285 int fx_castinglevel_modifier (Scriptable* Owner, Actor* target, Effect* fx);//bf
 286 int fx_find_familiar (Scriptable* Owner, Actor* target, Effect* fx);//c0
 287 int fx_see_invisible_modifier (Scriptable* Owner, Actor* target, Effect* fx);//c1
 288 int fx_ignore_dialogpause_modifier (Scriptable* Owner, Actor* target, Effect* fx);//c2
 289 int fx_familiar_constitution_loss (Scriptable* Owner, Actor* target, Effect* fx);//c3
 290 int fx_familiar_marker (Scriptable* Owner, Actor* target, Effect* fx);//c4
 291 int fx_bounce_projectile (Scriptable* Owner, Actor* target, Effect* fx);//c5
 292 int fx_bounce_opcode (Scriptable* Owner, Actor* target, Effect* fx);//c6
 293 int fx_bounce_spelllevel (Scriptable* Owner, Actor* target, Effect* fx);//c7
 294 int fx_bounce_spelllevel_dec (Scriptable* Owner, Actor* target, Effect* fx);//c8
 295 int fx_protection_spelllevel_dec (Scriptable* Owner, Actor* target, Effect* fx);//c9
 296 int fx_bounce_school (Scriptable* Owner, Actor* target, Effect* fx);//ca
 297 int fx_bounce_secondary_type (Scriptable* Owner, Actor* target, Effect* fx);//cb
 298 int fx_protection_school (Scriptable* Owner, Actor* target, Effect* fx); //cc
 299 int fx_protection_secondary_type (Scriptable* Owner, Actor* target, Effect* fx); //cd
 300 int fx_resist_spell (Scriptable* Owner, Actor* target, Effect* fx);//ce
 301 int fx_resist_spell_dec (Scriptable* Owner, Actor* target, Effect* fx);//??
 302 int fx_bounce_spell (Scriptable* Owner, Actor* target, Effect* fx);//cf
 303 int fx_bounce_spell_dec (Scriptable* Owner, Actor* target, Effect* fx);//??
 304 int fx_minimum_hp_modifier (Scriptable* Owner, Actor* target, Effect* fx);//d0
 305 int fx_power_word_kill (Scriptable* Owner, Actor* target, Effect* fx);//d1
 306 int fx_power_word_stun (Scriptable* Owner, Actor* target, Effect* fx);//d2
 307 int fx_imprisonment (Scriptable* Owner, Actor* target, Effect* fx);//d3
 308 int fx_freedom (Scriptable* Owner, Actor* target, Effect* fx);//d4
 309 int fx_maze (Scriptable* Owner, Actor* target, Effect* fx);//d5
 310 int fx_select_spell (Scriptable* Owner, Actor* target, Effect* fx);//d6
 311 int fx_play_visual_effect (Scriptable* Owner, Actor* target, Effect* fx); //d7
 312 int fx_leveldrain_modifier (Scriptable* Owner, Actor* target, Effect* fx);//d8
 313 int fx_power_word_sleep (Scriptable* Owner, Actor* target, Effect* fx);//d9
 314 int fx_stoneskin_modifier (Scriptable* Owner, Actor* target, Effect* fx);//da
 315 //db ac vs creature type (general effect)
 316 int fx_dispel_school (Scriptable* Owner, Actor* target, Effect* fx);//dc
 317 int fx_dispel_secondary_type (Scriptable* Owner, Actor* target, Effect* fx);//dd
 318 int fx_teleport_field (Scriptable* Owner, Actor* target, Effect* fx);//de
 319 int fx_protection_school_dec (Scriptable* Owner, Actor* target, Effect* fx);//df
 320 int fx_cure_leveldrain (Scriptable* Owner, Actor* target, Effect* fx);//e0
 321 int fx_reveal_magic (Scriptable* Owner, Actor* target, Effect* fx);//e1
 322 int fx_protection_secondary_type_dec (Scriptable* Owner, Actor* target, Effect* fx);//e2
 323 int fx_bounce_school_dec (Scriptable* Owner, Actor* target, Effect* fx);//e3
 324 int fx_bounce_secondary_type_dec (Scriptable* Owner, Actor* target, Effect* fx);//e4
 325 int fx_dispel_school_one (Scriptable* Owner, Actor* target, Effect* fx);//e5
 326 int fx_dispel_secondary_type_one (Scriptable* Owner, Actor* target, Effect* fx);//e6
 327 int fx_timestop (Scriptable* Owner, Actor* target, Effect* fx);//e7
 328 int fx_cast_spell_on_condition (Scriptable* Owner, Actor* target, Effect* fx);//e8
 329 int fx_proficiency (Scriptable* Owner, Actor* target, Effect* fx);//e9
 330 int fx_create_contingency (Scriptable* Owner, Actor* target, Effect* fx);//ea
 331 int fx_wing_buffet (Scriptable* Owner, Actor* target, Effect* fx);//eb
 332 int fx_puppet_master (Scriptable* Owner, Actor* target, Effect* fx);//ec
 333 int fx_puppet_marker (Scriptable* Owner, Actor* target, Effect* fx);//ed
 334 int fx_disintegrate (Scriptable* Owner, Actor* target, Effect* fx);//ee
 335 int fx_farsee (Scriptable* Owner, Actor* target, Effect* fx);//ef
 336 int fx_remove_portrait_icon (Scriptable* Owner, Actor* target, Effect* fx);//f0
 337 //f1 control creature (see charm)
 338 int fx_cure_confused_state (Scriptable* Owner, Actor* target, Effect* fx);//f2
 339 int fx_drain_items (Scriptable* Owner, Actor* target, Effect* fx);//f3
 340 int fx_drain_spells (Scriptable* Owner, Actor* target, Effect* fx);//f4
 341 int fx_checkforberserk_modifier (Scriptable* Owner, Actor* target, Effect* fx);//f5
 342 int fx_berserkstage1_modifier (Scriptable* Owner, Actor* target, Effect* fx);//f6
 343 int fx_berserkstage2_modifier (Scriptable* Owner, Actor* target, Effect* fx);//f7
 344 int fx_melee_effect (Scriptable* Owner, Actor* target, Effect* fx);//f8
 345 int fx_ranged_effect (Scriptable* Owner, Actor* target, Effect* fx);//f9
 346 int fx_damageluck_modifier (Scriptable* Owner, Actor* target, Effect* fx);//fa
 347 int fx_change_bardsong (Scriptable* Owner, Actor* target, Effect* fx);//fb
 348 int fx_set_area_effect (Scriptable* Owner, Actor* target, Effect* fx);//fc (set trap)
 349 int fx_set_map_note (Scriptable* Owner, Actor* target, Effect* fx);//fd
 350 int fx_remove_map_note (Scriptable* Owner, Actor* target, Effect* fx);//fe
 351 int fx_create_item_days (Scriptable* Owner, Actor* target, Effect* fx);//ff
 352 int fx_store_spell_sequencer (Scriptable* Owner, Actor* target, Effect* fx);//0x100
 353 int fx_create_spell_sequencer (Scriptable* Owner, Actor* target, Effect* fx);//101
 354 int fx_activate_spell_sequencer (Scriptable* Owner, Actor* target, Effect* fx);//102
 355 int fx_spelltrap (Scriptable* Owner, Actor* target, Effect* fx);//103
 356 int fx_crash (Scriptable* Owner, Actor* target, Effect* fx);//104, disabled
 357 int fx_restore_spell_level (Scriptable* Owner, Actor* target, Effect* fx);//105
 358 int fx_visual_range_modifier (Scriptable* Owner, Actor* target, Effect* fx);//106
 359 int fx_backstab_modifier (Scriptable* Owner, Actor* target, Effect* fx);//107
 360 int fx_drop_weapon (Scriptable* Owner, Actor* target, Effect* fx);//108
 361 int fx_modify_global_variable (Scriptable* Owner, Actor* target, Effect* fx);//109
 362 int fx_remove_immunity (Scriptable* Owner, Actor* target, Effect* fx);//10a
 363 int fx_protection_from_string (Scriptable* Owner, Actor* target, Effect* fx);//10b
 364 int fx_explore_modifier (Scriptable* Owner, Actor* target, Effect* fx);//10c
 365 int fx_screenshake (Scriptable* Owner, Actor* target, Effect* fx);//10d
 366 int fx_unpause_caster (Scriptable* Owner, Actor* target, Effect* fx);//10e
 367 int fx_avatar_removal (Scriptable* Owner, Actor* target, Effect* fx);//10f
 368 int fx_apply_effect_repeat (Scriptable* Owner, Actor* target, Effect* fx);//110
 369 int fx_remove_projectile (Scriptable* Owner, Actor* target, Effect* fx);//111
 370 int fx_teleport_to_target (Scriptable* Owner, Actor* target, Effect* fx);//112
 371 int fx_hide_in_shadows_modifier (Scriptable* Owner, Actor* target, Effect* fx);//113
 372 int fx_detect_illusion_modifier (Scriptable* Owner, Actor* target, Effect* fx);//114
 373 int fx_set_traps_modifier (Scriptable* Owner, Actor* target, Effect* fx);//115
 374 int fx_to_hit_bonus_modifier (Scriptable* Owner, Actor* target, Effect* fx);//116
 375 int fx_renable_button (Scriptable* Owner, Actor* target, Effect* fx);//117
 376 int fx_force_surge_modifier (Scriptable* Owner, Actor* target, Effect* fx);//118
 377 int fx_wild_surge_modifier (Scriptable* Owner, Actor* target, Effect* fx);//119
 378 int fx_scripting_state (Scriptable* Owner, Actor* target, Effect* fx);//11a
 379 int fx_apply_effect_curse (Scriptable* Owner, Actor* target, Effect* fx);//11b
 380 int fx_melee_to_hit_modifier (Scriptable* Owner, Actor* target, Effect* fx);//11c
 381 int fx_melee_damage_modifier (Scriptable* Owner, Actor* target, Effect* fx);//11d
 382 int fx_missile_damage_modifier (Scriptable* Owner, Actor* target, Effect* fx);//11e
 383 int fx_no_circle_state (Scriptable* Owner, Actor* target, Effect* fx);//11f
 384 int fx_fist_to_hit_modifier (Scriptable* Owner, Actor* target, Effect* fx);//120
 385 int fx_fist_damage_modifier (Scriptable* Owner, Actor* target, Effect* fx);//121
 386 int fx_title_modifier (Scriptable* Owner, Actor* target, Effect* fx);//122
 387 int fx_disable_overlay_modifier (Scriptable* Owner, Actor* target, Effect* fx);//123
 388 int fx_no_backstab_modifier (Scriptable* Owner, Actor* target, Effect* fx);//124
 389 int fx_offscreenai_modifier (Scriptable* Owner, Actor* target, Effect* fx);//125
 390 int fx_existance_delay_modifier (Scriptable* Owner, Actor* target, Effect* fx);//126
 391 int fx_disable_chunk_modifier (Scriptable* Owner, Actor* target, Effect* fx);//127
 392 int fx_protection_from_animation (Scriptable* Owner, Actor* target, Effect* fx);//128
 393 int fx_protection_from_turn (Scriptable* Owner, Actor* target, Effect* fx);//129
 394 int fx_cutscene2 (Scriptable* Owner, Actor* target, Effect* fx);//12a
 395 int fx_chaos_shield_modifier (Scriptable* Owner, Actor* target, Effect* fx);//12b
 396 int fx_npc_bump (Scriptable* Owner, Actor* target, Effect* fx);//12c
 397 int fx_critical_hit_modifier (Scriptable* Owner, Actor* target, Effect* fx);//12d
 398 int fx_can_use_any_item_modifier (Scriptable* Owner, Actor* target, Effect* fx);//12e
 399 int fx_always_backstab_modifier (Scriptable* Owner, Actor* target, Effect* fx);//12f
 400 int fx_mass_raise_dead (Scriptable* Owner, Actor* target, Effect* fx);//130
 401 int fx_left_to_hit_modifier (Scriptable* Owner, Actor* target, Effect* fx);//131
 402 int fx_right_to_hit_modifier (Scriptable* Owner, Actor* target, Effect* fx);//132
 403 int fx_reveal_tracks (Scriptable* Owner, Actor* target, Effect* fx);//133
 404 int fx_protection_from_tracking (Scriptable* Owner, Actor* target, Effect* fx);//134
 405 int fx_modify_local_variable (Scriptable* Owner, Actor* target, Effect* fx);//135
 406 int fx_timeless_modifier (Scriptable* Owner, Actor* target, Effect* fx);//136
 407 int fx_generate_wish (Scriptable* Owner, Actor* target, Effect* fx);//137
 408 //138 see fx_crash
 409 //139 HLA generic effect
 410 int fx_golem_stoneskin_modifier (Scriptable* Owner, Actor* target, Effect* fx);//13a
 411 int fx_avatar_removal_modifier (Scriptable* Owner, Actor* target, Effect* fx);//13b
 412 int fx_magical_rest (Scriptable* Owner, Actor* target, Effect* fx);//13c
 413 //int fx_improved_haste_state (Scriptable* Owner, Actor* target, Effect* fx);//13d same as haste
 414
 415 int fx_unknown (Scriptable* Owner, Actor* target, Effect* fx);//???
 416
 417 // FIXME: Make this an ordered list, so we could use bsearch!
 418 static EffectRef effectnames[] = {
 419         { "*Crash*", fx_crash, -1 },
 420         { "AcidResistanceModifier", fx_acid_resistance_modifier, -1 },
 421         { "ACVsCreatureType", fx_generic_effect, -1 }, //0xdb
 422         { "ACVsDamageTypeModifier", fx_ac_vs_damage_type_modifier, -1 },
 423         { "ACVsDamageTypeModifier2", fx_ac_vs_damage_type_modifier, -1 }, // used in IWD
 424         { "AidNonCumulative", fx_set_aid_state, -1 },
 425         { "AIIdentifierModifier", fx_ids_modifier, -1 },
 426         { "AlchemyModifier", fx_alchemy_modifier, -1 },
 427         { "Alignment:Change", fx_alignment_change, -1 },
 428         { "Alignment:Invert", fx_alignment_invert, -1 },
 429         { "AlwaysBackstab", fx_always_backstab_modifier, -1 },
 430         { "AnimationIDModifier", fx_animation_id_modifier, -1 },
 431         { "AnimationStateChange", fx_animation_stance, -1 },
 432         { "ApplyEffect", fx_apply_effect, -1 },
 433         { "ApplyEffectCurse", fx_apply_effect_curse, -1 },
 434         { "ApplyEffectItem", fx_apply_effect_item, -1 },
 435         { "ApplyEffectItemType", fx_apply_effect_item_type, -1 },
 436         { "ApplyEffectRepeat", fx_apply_effect_repeat, -1 },
 437         { "CutScene2", fx_cutscene2, -1 },
 438         { "AttackSpeedModifier", fx_attackspeed_modifier, -1 },
 439         { "AttacksPerRoundModifier", fx_attacks_per_round_modifier, -1 },
 440         { "AuraCleansingModifier", fx_auracleansing_modifier, -1 },
 441         { "AvatarRemoval", fx_avatar_removal, -1 }, //unknown
 442         { "AvatarRemovalModifier", fx_avatar_removal_modifier, -1 },
 443         { "BackstabModifier", fx_backstab_modifier, -1 },
 444         { "BerserkStage1Modifier", fx_berserkstage1_modifier, -1},
 445         { "BerserkStage2Modifier", fx_berserkstage2_modifier, -1},
 446         { "BlessNonCumulative", fx_set_bless_state, -1 },
 447         { "Bounce:School", fx_bounce_school, -1 },
 448         { "Bounce:SchoolDec", fx_bounce_school_dec, -1 },
 449         { "Bounce:SecondaryType", fx_bounce_secondary_type, -1 },
 450         { "Bounce:SecondaryTypeDec", fx_bounce_secondary_type_dec, -1 },
 451         { "Bounce:Spell", fx_bounce_spell, -1 },
 452         { "Bounce:SpellDec", fx_bounce_spell_dec, -1 },
 453         { "Bounce:SpellLevel", fx_bounce_spelllevel, -1},
 454         { "Bounce:SpellLevelDec", fx_bounce_spelllevel_dec, -1},
 455         { "Bounce:Opcode", fx_bounce_opcode, -1 },
 456         { "Bounce:Projectile", fx_bounce_projectile, -1 },
 457         { "CantUseItem", fx_generic_effect, -1 },
 458         { "CantUseItemType", fx_generic_effect, -1 },
 459         { "CanUseAnyItem", fx_can_use_any_item_modifier, -1 },
 460         { "CastFromList", fx_select_spell, -1 },
 461         { "CastingGlow", fx_casting_glow, -1 },
 462         { "CastingGlow2", fx_casting_glow, -1 }, //used in iwd
 463         { "CastingLevelModifier", fx_castinglevel_modifier, -1 },
 464         { "CastingSpeedModifier", fx_castingspeed_modifier, -1 },
 465         { "CastSpellOnCondition", fx_cast_spell_on_condition, -1 },
 466         { "ChangeBardSong", fx_change_bardsong, -1 },
 467         { "ChangeName", fx_change_name, -1 },
 468         { "ChantBadNonCumulative", fx_set_chantbad_state, -1 },
 469         { "ChantNonCumulative", fx_set_chant_state, -1 },
 470         { "ChaosShieldModifier", fx_chaos_shield_modifier, -1 },
 471         { "CharismaModifier", fx_charisma_modifier, -1 },
 472         { "CheckForBerserkModifier", fx_checkforberserk_modifier, -1},
 473         { "ColdResistanceModifier", fx_cold_resistance_modifier, -1 },
 474         { "Color:BriefRGB", fx_brief_rgb, -1},
 475         { "Color:GlowRGB", fx_glow_rgb, -1},
 476         { "Color:DarkenRGB", fx_darken_rgb, -1},
 477         { "Color:SetPalette", fx_set_color_gradient, -1 },
 478         { "Color:SetRGB", fx_set_color_rgb, -1 },
 479         { "Color:SetRGBGlobal", fx_set_color_rgb_global, -1 }, //08
 480         { "Color:PulseRGB", fx_set_color_pulse_rgb, -1 }, //9
 481         { "Color:PulseRGBGlobal", fx_set_color_pulse_rgb_global, -1 }, //9
 482         { "ConstitutionModifier", fx_constitution_modifier, -1 },
 483         { "ControlCreature", fx_set_charmed_state, -1 }, //0xf1 same as charm
 484         { "CreateContingency", fx_create_contingency, -1 },
 485         { "CriticalHitModifier", fx_critical_hit_modifier, -1 },
 486         { "CrushingResistanceModifier", fx_crushing_resistance_modifier, -1 },
 487         { "Cure:Berserk", fx_cure_berserk_state, -1 },
 488         { "Cure:Blind", fx_cure_blind_state, -1 },
 489         { "Cure:CasterHold", fx_unpause_caster, -1 },
 490         { "Cure:Confusion", fx_cure_confused_state, -1 },
 491         { "Cure:Deafness", fx_cure_deaf_state, -1 },
 492         { "Cure:Death", fx_cure_dead_state, -1 },
 493         { "Cure:Defrost", fx_cure_frozen_state, -1 },
 494         { "Cure:Disease", fx_cure_diseased_state, -1 },
 495         { "Cure:Feeblemind", fx_cure_feebleminded_state, -1 },
 496         { "Cure:Hold", fx_cure_hold_state, -1 },
 497         { "Cure:Imprisonment", fx_freedom, -1 },
 498         { "Cure:Infravision", fx_cure_infravision_state, -1 },
 499         { "Cure:Intoxication", fx_cure_intoxication, -1 }, //0xa4 (iwd2 has this working)
 500         { "Cure:Invisible", fx_cure_invisible_state, -1 }, //0x2f
 501         { "Cure:Invisible2", fx_cure_invisible_state, -1 }, //0x74
 502         //{ "Cure:ImprovedInvisible", fx_cure_improved_invisible_state, -1 },
 503         { "Cure:LevelDrain", fx_cure_leveldrain, -1}, //restoration
 504         { "Cure:Nondetection", fx_cure_nondetection_state, -1 },
 505         { "Cure:Panic", fx_cure_panic_state, -1 },
 506         { "Cure:Petrification", fx_cure_petrified_state, -1 },
 507         { "Cure:Poison", fx_cure_poisoned_state, -1 },
 508         { "Cure:Sanctuary", fx_cure_sanctuary_state, -1 },
 509         { "Cure:Silence", fx_cure_silenced_state, -1 },
 510         { "Cure:Sleep", fx_cure_sleep_state, -1 },
 511         { "Cure:Stun", fx_cure_stun_state, -1 },
 512         { "CurrentHPModifier", fx_current_hp_modifier, -1 },
 513         { "Damage", fx_damage, -1 },
 514         { "DamageAnimation", fx_damage_animation, -1 },
 515         { "DamageBonusModifier", fx_damage_bonus_modifier, -1 },
 516         { "DamageLuckModifier", fx_damageluck_modifier, -1 },
 517         { "DamageVsCreature", fx_generic_effect, -1 },
 518         { "Death", fx_death, -1 },
 519         { "Death2", fx_death, -1 }, //(iwd2 effect)
 520         { "Death3", fx_death, -1 }, //(iwd2 effect too, Banish)
 521         { "DetectAlignment", fx_detect_alignment, -1 },
 522         { "DetectIllusionsModifier", fx_detect_illusion_modifier, -1 },
 523         { "DexterityModifier", fx_dexterity_modifier, -1 },
 524         { "DimensionDoor", fx_dimension_door, -1 },
 525         { "DisableButton", fx_disable_button, -1 }, //sets disable button flag
 526         { "DisableChunk", fx_disable_chunk_modifier, -1 },
 527         { "DisableOverlay", fx_disable_overlay_modifier, -1 },
 528         { "DisableCasting", fx_disable_spellcasting, -1 },
 529         { "Disintegrate", fx_disintegrate, -1 },
 530         { "DispelEffects", fx_dispel_effects, -1 },
 531         { "DispelSchool", fx_dispel_school, -1 },
 532         { "DispelSchoolOne", fx_dispel_school_one, -1 },
 533         { "DispelSecondaryType", fx_dispel_secondary_type, -1 },
 534         { "DispelSecondaryTypeOne", fx_dispel_secondary_type_one, -1 },
 535         { "DisplayString", fx_display_string, -1 },
 536         { "Dither", fx_dither, -1 },
 537         { "DontJumpModifier", fx_dontjump_modifier, -1 },
 538         { "DrainItems", fx_drain_items, -1 },
 539         { "DrainSpells", fx_drain_spells, -1 },
 540         { "DropWeapon", fx_drop_weapon, -1 },
 541         { "ElectricityResistanceModifier", fx_electricity_resistance_modifier, -1 },
 542         { "ExistanceDelayModifier", fx_existance_delay_modifier , -1 }, //unknown
 543         { "ExperienceModifier", fx_experience_modifier, -1 },
 544         { "ExploreModifier", fx_explore_modifier, -1 },
 545         { "FamiliarBond", fx_familiar_constitution_loss, -1 },
 546         { "FamiliarMarker", fx_familiar_marker, -1},
 547         { "Farsee", fx_farsee, -1},
 548         { "FatigueModifier", fx_fatigue_modifier, -1 },
 549         { "FindFamiliar", fx_find_familiar, -1 },
 550         { "FindTraps", fx_find_traps, -1 },
 551         { "FindTrapsModifier", fx_find_traps_modifier, -1 },
 552         { "FireResistanceModifier", fx_fire_resistance_modifier, -1 },
 553         { "FistDamageModifier", fx_fist_damage_modifier, -1 },
 554         { "FistHitModifier", fx_fist_to_hit_modifier, -1 },
 555         { "ForceSurgeModifier", fx_force_surge_modifier, -1 },
 556         { "ForceVisible", fx_force_visible, -1 }, //not invisible but improved invisible
 557         { "FreeAction", fx_cure_slow_state, -1},
 558         { "GenerateWish", fx_generate_wish, -1},
 559         { "GoldModifier", fx_gold_modifier, -1 },
 560         { "HideInShadowsModifier", fx_hide_in_shadows_modifier, -1},
 561         { "HLA", fx_generic_effect, -1},
 562         { "HolyNonCumulative", fx_set_holy_state, -1 },
 563         { "Icon:Disable", fx_disable_portrait_icon, -1 },
 564         { "Icon:Display", fx_display_portrait_icon, -1 },
 565         { "Icon:Remove", fx_remove_portrait_icon, -1 },
 566         { "Identify", fx_identify, -1 },
 567         { "IgnoreDialogPause", fx_ignore_dialogpause_modifier, -1 },
 568         { "IntelligenceModifier", fx_intelligence_modifier, -1 },
 569         { "IntoxicationModifier", fx_intoxication_modifier, -1 },
 570         { "InvisibleDetection", fx_see_invisible_modifier, -1 },
 571         { "Item:CreateDays", fx_create_item_days, -1 },
 572         { "Item:CreateInSlot", fx_create_item_in_slot, -1 },
 573         { "Item:CreateInventory", fx_create_inventory_item, -1 },
 574         { "Item:CreateMagic", fx_create_magic_item, -1 },
 575         { "Item:Equip", fx_equip_item, -1 }, //71
 576         { "Item:Remove", fx_remove_item, -1 }, //70
 577         { "Item:RemoveInventory", fx_remove_inventory_item, -1 },
 578         { "KillCreatureType", fx_kill_creature_type, -1 },
 579         { "LevelModifier", fx_level_modifier, -1 },
 580         { "LevelDrainModifier", fx_leveldrain_modifier, -1 },
 581         { "LoreModifier", fx_lore_modifier, -1 },
 582         { "LuckModifier", fx_luck_modifier, -1 },
 583         { "LuckCumulative", fx_luck_cumulative, -1 },
 584         { "LuckNonCumulative", fx_luck_non_cumulative, -1 },
 585         { "MagicalColdResistanceModifier", fx_magical_cold_resistance_modifier, -1 },
 586         { "MagicalFireResistanceModifier", fx_magical_fire_resistance_modifier, -1 },
 587         { "MagicalRest", fx_magical_rest, -1 },
 588         { "MagicDamageResistanceModifier", fx_magic_damage_resistance_modifier, -1 },
 589         { "MagicResistanceModifier", fx_magic_resistance_modifier, -1 },
 590         { "MassRaiseDead", fx_mass_raise_dead, -1 },
 591         { "MaximumHPModifier", fx_maximum_hp_modifier, -1 },
 592         { "Maze", fx_maze, -1},
 593         { "MeleeDamageModifier", fx_melee_damage_modifier, -1 },
 594         { "MeleeHitModifier", fx_melee_to_hit_modifier, -1 },
 595         { "MinimumHPModifier", fx_minimum_hp_modifier, -1 },
 596         { "MiscastMagicModifier", fx_miscast_magic_modifier, -1 },
 597         { "MissileDamageModifier", fx_missile_damage_modifier, -1 },
 598         { "MissileHitModifier", fx_missile_to_hit_modifier, -1 },
 599         { "MissilesResistanceModifier", fx_missiles_resistance_modifier, -1 },
 600         { "MirrorImage", fx_mirror_image, -1 },
 601         { "MirrorImageModifier", fx_mirror_image_modifier, -1 },
 602         { "ModifyGlobalVariable", fx_modify_global_variable, -1 },
 603         { "ModifyLocalVariable", fx_modify_local_variable, -1 },
 604         { "MonsterSummoning", fx_monster_summoning, -1 },
 605         { "MoraleBreakModifier", fx_morale_break_modifier, -1 },
 606         { "MoraleModifier", fx_morale_modifier, -1 },
 607         { "MovementRateModifier", fx_movement_modifier, -1 }, //fast (7e)
 608         { "MovementRateModifier2", fx_movement_modifier, -1 },//slow (b0)
 609         { "MovementRateModifier3", fx_movement_modifier, -1 },//forced (IWD - 10a)
 610         { "MovementRateModifier4", fx_movement_modifier, -1 },//slow (IWD2 - 1b9)
 611         { "MoveToArea", fx_move_to_area, -1 }, //0xba
 612         { "NoCircleState", fx_no_circle_state, -1 },
 613         { "NPCBump", fx_npc_bump, -1 },
 614         { "OffscreenAIModifier", fx_offscreenai_modifier, -1 },
 615         { "OffhandHitModifier", fx_left_to_hit_modifier, -1 },
 616         { "OpenLocksModifier", fx_open_locks_modifier, -1 },
 617         { "Overlay:Entangle", fx_set_entangle_state, -1 },
 618         { "Overlay:Grease", fx_set_grease_state, -1 },
 619         { "Overlay:MinorGlobe", fx_set_minorglobe_state, -1 },
 620         { "Overlay:Sanctuary", fx_set_sanctuary_state, -1 },
 621         { "Overlay:ShieldGlobe", fx_set_shieldglobe_state, -1 },
 622         { "Overlay:Web", fx_set_web_state, -1 },
 623         { "PauseTarget", fx_pause_target, -1 }, //also known as casterhold
 624         { "PickPocketsModifier", fx_pick_pockets_modifier, -1 },
 625         { "PiercingResistanceModifier", fx_piercing_resistance_modifier, -1 },
 626         { "PlayMovie", fx_play_movie, -1 },
 627         { "PlaySound", fx_playsound, -1 },
 628         { "PlayVisualEffect", fx_play_visual_effect, -1 },
 629         { "PoisonResistanceModifier", fx_poison_resistance_modifier, -1 },
 630         { "Polymorph", fx_polymorph, -1},
 631         { "PortraitChange", fx_portrait_change, -1 },
 632         { "PowerWordKill", fx_power_word_kill, -1 },
 633         { "PowerWordSleep", fx_power_word_sleep, -1 },
 634         { "PowerWordStun", fx_power_word_stun, -1 },
 635         { "PriestSpellSlotsModifier", fx_bonus_priest_spells, -1 },
 636         { "Proficiency", fx_proficiency, -1 },
 637 //      { "Protection:Animation", fx_protection_from_animation, -1 },
 638         { "Protection:Animation", fx_generic_effect, -1 },
 639         { "Protection:Backstab", fx_no_backstab_modifier, -1 },
 640         { "Protection:Creature", fx_generic_effect, -1 },
 641         { "Protection:Opcode", fx_protection_opcode, -1 },
 642         { "Protection:Opcode2", fx_protection_opcode, -1 },
 643         { "Protection:Projectile",fx_protection_from_projectile, -1},
 644         { "Protection:School",fx_generic_effect,-1},//overlay?
 645         { "Protection:SchoolDec",fx_protection_school_dec,-1},//overlay?
 646         { "Protection:SecondaryType",fx_protection_secondary_type,-1},//overlay?
 647         { "Protection:SecondaryTypeDec",fx_protection_secondary_type_dec,-1},//overlay?
 648         { "Protection:Spell",fx_resist_spell,-1},//overlay?
 649         { "Protection:SpellDec",fx_resist_spell_dec,-1},//overlay?
 650         { "Protection:SpellLevel",fx_protection_spelllevel,-1},//overlay?
 651         { "Protection:SpellLevelDec",fx_protection_spelllevel_dec,-1},//overlay?
 652         { "Protection:String", fx_generic_effect, -1 },
 653         { "Protection:Tracking", fx_protection_from_tracking, -1 },
 654         { "Protection:Turn", fx_protection_from_turn, -1},
 655         { "Protection:Weapons", fx_immune_to_weapon, -1},
 656         { "PuppetMarker", fx_puppet_marker, -1},
 657         { "ProjectImage", fx_puppet_master, -1},
 658         { "Reveal:Area", fx_reveal_area, -1 },
 659         { "Reveal:Creatures", fx_reveal_creatures, -1 },
 660         { "Reveal:Magic", fx_reveal_magic, -1 },
 661         { "Reveal:Tracks", fx_reveal_tracks, -1 },
 662         { "RemoveCurse", fx_remove_curse, -1 },
 663         { "RemoveImmunity", fx_remove_immunity, -1 },
 664         { "RemoveMapNote", fx_remove_map_note, -1 },
 665         { "RemoveProjectile", fx_remove_projectile, -1 }, //removes effects from actor and area
 666         { "RenableButton", fx_renable_button, -1 }, //removes disable button flag
 667         { "RemoveCreature", fx_remove_creature, -1 },
 668         { "ReplaceCreature", fx_replace_creature, -1 },
 669         { "ReputationModifier", fx_reputation_modifier, -1 },
 670         { "RestoreSpells", fx_restore_spell_level, -1 },
 671         { "RightHitModifier", fx_right_to_hit_modifier, -1 },
 672         { "SaveVsBreathModifier", fx_save_vs_breath_modifier, -1 },
 673         { "SaveVsDeathModifier", fx_save_vs_death_modifier, -1 },
 674         { "SaveVsPolyModifier", fx_save_vs_poly_modifier, -1 },
 675         { "SaveVsSpellsModifier", fx_save_vs_spell_modifier, -1 },
 676         { "SaveVsWandsModifier", fx_save_vs_wands_modifier, -1 },
 677         { "ScreenShake", fx_screenshake, -1 },
 678         { "ScriptingState", fx_scripting_state, -1 },
 679         { "Sequencer:Activate", fx_activate_spell_sequencer, -1 },
 680         { "Sequencer:Create", fx_create_spell_sequencer, -1 },
 681         { "Sequencer:Store", fx_store_spell_sequencer, -1 },
 682         { "SetAIScript", fx_set_ai_script, -1 },
 683         { "SetMapNote", fx_set_map_note, -1 },
 684         { "SetMeleeEffect", fx_melee_effect, -1 },
 685         { "SetRangedEffect", fx_ranged_effect, -1 },
 686         { "SetTrap", fx_set_area_effect, -1 },
 687         { "SetTrapsModifier", fx_set_traps_modifier, -1 },
 688         { "SexModifier", fx_sex_modifier, -1 },
 689         { "SlashingResistanceModifier", fx_slashing_resistance_modifier, -1 },
 690         { "SlowPoisonDamageRate", fx_generic_effect, -1 }, //slow poison effect
 691         { "Sparkle", fx_sparkle, -1 },
 692         { "SpellDurationModifier", fx_spell_duration_modifier, -1 },
 693         { "Spell:Add", fx_add_innate, -1 },
 694         { "Spell:Cast", fx_cast_spell, -1 },
 695         { "Spell:CastPoint", fx_cast_spell_point, -1 },
 696         { "Spell:Learn", fx_learn_spell, -1 },
 697         { "Spell:Remove", fx_remove_spell, -1 },
 698         { "Spelltrap",fx_spelltrap , -1 }, //overlay: spmagglo
 699         { "State:Berserk", fx_set_berserk_state, -1 },
 700         { "State:Blind", fx_set_blind_state, -1 },
 701         { "State:Blur", fx_set_blur_state, -1 },
 702         { "State:Charmed", fx_set_charmed_state, -1 }, //0x05
 703         { "State:Confused", fx_set_confused_state, -1 },
 704         { "State:Deafness", fx_set_deaf_state, -1 },
 705         { "State:DeafnessIWD2", fx_set_deaf_state_iwd2, -1 }, //this is a modified version
 706         { "State:Diseased", fx_set_diseased_state, -1 },
 707         { "State:Feeblemind", fx_set_feebleminded_state, -1 },
 708         { "State:Hasted", fx_set_hasted_state, -1 },
 709         { "State:Haste2", fx_set_hasted_state, -1 },
 710         { "State:Hold", fx_hold_creature, -1 }, //175 (doesn't work in original iwd2)
 711         { "State:Hold2", fx_hold_creature, -1 },//185 (doesn't work in original iwd2)
 712         { "State:Hold3", fx_hold_creature, -1 },//109 iwd2
 713         { "State:HoldNoIcon", fx_hold_creature_no_icon, -1 }, //109
 714         { "State:HoldNoIcon2", fx_hold_creature_no_icon, -1 }, //0xfb (iwd/iwd2)
 715         { "State:HoldNoIcon3", fx_hold_creature_no_icon, -1 }, //0x1a8 (iwd2)
 716         { "State:Imprisonment", fx_imprisonment, -1 },
 717         { "State:Infravision", fx_set_infravision_state, -1 },
 718         { "State:Invisible", fx_set_invisible_state, -1 }, //both invis or improved invis
 719         { "State:Nondetection", fx_set_nondetection_state, -1 },
 720         { "State:Panic", fx_set_panic_state, -1 },
 721         { "State:Petrification", fx_set_petrified_state, -1 },
 722         { "State:Poisoned", fx_set_poisoned_state, -1 },
 723         { "State:Regenerating", fx_set_regenerating_state, -1 },
 724         { "State:Silenced", fx_set_silenced_state, -1 },
 725         { "State:Helpless", fx_set_unconscious_state, -1 },
 726         { "State:Sleep", fx_set_unconscious_state, -1},
 727         { "State:Slowed", fx_set_slowed_state, -1 },
 728         { "State:Stun", fx_set_stun_state, -1 },
 729         { "StealthModifier", fx_stealth_modifier, -1 },
 730         { "StoneSkinModifier", fx_stoneskin_modifier, -1 },
 731         { "StoneSkin2Modifier", fx_golem_stoneskin_modifier, -1 },
 732         { "StrengthModifier", fx_strength_modifier, -1 },
 733         { "StrengthBonusModifier", fx_strength_bonus_modifier, -1 },
 734         { "SummonCreature", fx_summon_creature, -1 },
 735         { "RandomTeleport", fx_teleport_field, -1 },
 736         { "TeleportToTarget", fx_teleport_to_target, -1 },
 737         { "TimelessState", fx_timeless_modifier, -1 },
 738         { "Timestop", fx_timestop, -1},
 739         { "TitleModifier", fx_title_modifier, -1 },
 740         { "ToHitModifier", fx_to_hit_modifier, -1 },
 741         { "ToHitBonusModifier", fx_to_hit_bonus_modifier, -1 },
 742         { "ToHitVsCreature", fx_generic_effect, -1 },
 743         { "TrackingModifier", fx_tracking_modifier, -1 },
 744         { "TransparencyModifier", fx_transparency_modifier, -1 },
 745         { "Unknown", fx_unknown, -1},
 746         { "Unlock", fx_knock, -1 }, //open doors/containers
 747         { "UnsummonCreature", fx_unsummon_creature, -1 },
 748         { "Variable:StoreLocalVariable", fx_local_variable, -1 },
 749         { "VisualAnimationEffect", fx_visual_animation_effect, -1 }, //unknown
 750         { "VisualRangeModifier", fx_visual_range_modifier, -1 },
 751         { "VisualSpellHit", fx_visual_spell_hit, -1 },
 752         { "WildSurgeModifier", fx_wild_surge_modifier, -1 },
 753         { "WingBuffet", fx_wing_buffet, -1 },
 754         { "WisdomModifier", fx_wisdom_modifier, -1 },
 755         { "WizardSpellSlotsModifier", fx_bonus_wizard_spells, -1 },
 756         { NULL, NULL, 0 },
 757 };
 758
 759 static void Cleanup()
 760 {
 761         core->FreeResRefTable(casting_glows, cgcount);
 762         core->FreeResRefTable(spell_hits, shcount);
 763         if(spell_abilities) free(spell_abilities);
 764         spell_abilities=NULL;
 765         if(polymorph_stats) free(polymorph_stats);
 766         polymorph_stats=NULL;
 767 }
 768
 769 void RegisterCoreOpcodes()
 770 {
 771         core->RegisterOpcodes( sizeof( effectnames ) / sizeof( EffectRef ) - 1, effectnames );
 772         enhanced_effects=!!core->HasFeature(GF_ENHANCED_EFFECTS);
 773         pstflags=!!core->HasFeature(GF_PST_STATE_FLAGS);
 774         default_spell_hit.SequenceFlags|=IE_VVC_BAM;
 775 }
 776
 777
 778 static inline void SetGradient(Actor *target, ieDword gradient)
 779 {
 780         gradient |= (gradient <<16);
 781         gradient |= (gradient <<8);
 782         for(int i=0;i<7;i++) {
 783                 STAT_SET(IE_COLORS+i, gradient);
 784         }
 785 }
 786
 787 static inline void HandleBonus(Actor *target, int stat, int mod, int mode)
 788 {
 789         if (mode==FX_DURATION_INSTANT_PERMANENT) {
 790                 if (target->IsReverseToHit()) {
 791                         BASE_SUB( stat, mod );
 792                 } else {
 793                         BASE_ADD( stat, mod );
 794                 }
 795                 return;
 796         }
 797         if (target->IsReverseToHit()) {
 798                 STAT_SUB( stat, mod );
 799         } else {
 800                 STAT_ADD( stat, mod );
 801         }
 802 }
 803
 804 //whoseeswho:
 805 #define ENEMY_SEES_ORIGIN 1
 806 #define ORIGIN_SEES_ENEMY 2
 807
 808 inline Actor *GetNearestEnemyOf(Map *map, Actor *origin, int whoseeswho)
 809 {
 810         //determining the allegiance of the origin
 811         int type = GetGroup(origin);
 812
 813         //neutral has no enemies
 814         if (type==2) {
 815                 return NULL;
 816         }
 817
 818         Targets *tgts = new Targets();
 819
 820         int i = map->GetActorCount(true);
 821         Actor *ac;
 822         while (i--) {
 823                 ac=map->GetActor(i,true);
 824                 int distance = Distance(ac, origin);
 825                 if (whoseeswho&ENEMY_SEES_ORIGIN) {
 826                         if (!CanSee(ac, origin, true, GA_NO_DEAD)) {
 827                                 continue;
 828                         }
 829                 }
 830                 if (whoseeswho&ORIGIN_SEES_ENEMY) {
 831                         if (!CanSee(ac, origin, true, GA_NO_DEAD)) {
 832                                 continue;
 833                         }
 834                 }
 835
 836                 if (type) { //origin is PC
 837                         if (ac->GetStat(IE_EA) >= EA_EVILCUTOFF) {
 838                                 tgts->AddTarget(ac, distance, GA_NO_DEAD);
 839                         }
 840                 }
 841                 else {
 842                         if (ac->GetStat(IE_EA) <= EA_GOODCUTOFF) {
 843                                 tgts->AddTarget(ac, distance, GA_NO_DEAD);
 844                         }
 845                 }
 846         }
 847         ac = (Actor *) tgts->GetTarget(0, ST_ACTOR);
 848         delete tgts;
 849         return ac;
 850 }
 851
 852 inline Scriptable *GetCaster(Scriptable *Owner, Effect *fx) {
 853         if (fx->FirstApply) {
 854                 fx->CasterID = Owner ? Owner->GetGlobalID() : 0;
 855                 return Owner;
 856         } else {
 857                 return core->GetGame()->GetActorByGlobalID(fx->CasterID);
 858         }
 859         return NULL;
 860 }
 861
 862 //resurrect code used in many places
 863 void Resurrect(Scriptable *Owner, Actor *target, Effect *fx, Point &p)
 864 {
 865         Scriptable *caster = GetCaster(Owner, fx);
 866         if (!caster) {
 867                 caster = Owner; // IE stores the enemyally in the effect instead
 868         }
 869         Map *area = caster->GetCurrentArea();
 870
 871         if (area && target->GetCurrentArea()!=area) {
 872                 MoveBetweenAreasCore(target, area->GetScriptName(), p, fx->Parameter2, true);
 873         }
 874         target->Resurrect();
 875 }
 876
 877
 878 // handles the percentage damage spread over time by converting it to absolute damage
 879 inline void HandlePercentageDamage(Effect *fx, Actor *target) {
 880         if (fx->Parameter2 == RPD_PERCENT && fx->FirstApply) {
 881                 // distribute the damage to one second intervals
 882                 int seconds = (fx->Duration - core->GetGame()->GameTime) / AI_UPDATE_TIME;
 883                 fx->Parameter1 = target->GetStat(IE_MAXHITPOINTS) * fx->Parameter1 / 100 / seconds;
 884         }
 885 }
 886 // Effect opcodes
 887
 888 // 0x00 ACVsDamageTypeModifier
 889 int fx_ac_vs_damage_type_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
 890 {
 891         if (0) printf( "fx_ac_vs_damage_type_modifier (%2d): AC Modif: %d ; Type: %d ; MinLevel: %d ; MaxLevel: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2, (int) fx->DiceSides, (int) fx->DiceThrown );
 892         //check level was pulled outside as a common functionality
 893         //CHECK_LEVEL();
 894
 895         // it is a bitmask
 896         int type = fx->Parameter2;
 897         if (type == 0) {
 898                 HandleBonus(target, IE_ARMORCLASS, fx->Parameter1, fx->TimingMode);
 899                 return FX_PERMANENT;
 900         }
 901
 902         //convert to signed so -1 doesn't turn to an astronomical number
 903         if (type == 16) {
 904                 if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
 905                         if ((signed)BASE_GET( IE_ARMORCLASS) > (signed)fx->Parameter1) {
 906                                 BASE_SET( IE_ARMORCLASS, fx->Parameter1 );
 907                         }
 908                 } else {
 909                         if ((signed)STAT_GET( IE_ARMORCLASS) > (signed)fx->Parameter1) {
 910                                 STAT_SET( IE_ARMORCLASS, fx->Parameter1 );
 911                         }
 912                 }
 913                 return FX_INSERT;
 914         }
 915
 916         //the original engine did work with the combination of these bits
 917         //but since it crashed, we are not bound to the same rules
 918         if (type & 1) {
 919                 HandleBonus(target, IE_ACCRUSHINGMOD, fx->Parameter1, fx->TimingMode);
 920         }
 921         if (type & 2) {
 922                 HandleBonus(target, IE_ACMISSILEMOD, fx->Parameter1, fx->TimingMode);
 923         }
 924         if (type & 4) {
 925                 HandleBonus(target, IE_ACPIERCINGMOD, fx->Parameter1, fx->TimingMode);
 926         }
 927         if (type & 8) {
 928                 HandleBonus(target, IE_ACSLASHINGMOD, fx->Parameter1, fx->TimingMode);
 929         }
 930
 931         return FX_PERMANENT;
 932 }
 933
 934 // 0x01 AttacksPerRoundModifier
 935 int fx_attacks_per_round_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
 936 {
 937         if (0) printf( "fx_attacks_per_round_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
 938         int tmp = (signed) fx->Parameter1;
 939         if (fx->Parameter2!=2) {
 940                 if (tmp>10) tmp=10;
 941                 else if (tmp<-10) tmp=-10;
 942                 tmp <<= 1;
 943                 if (tmp>10) tmp-=11;
 944                 else if (tmp<-10) tmp+=11;
 945         }
 946
 947         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
 948                 BASE_MOD_VAR(IE_NUMBEROFATTACKS, tmp);
 949         } else {
 950                 STAT_MOD_VAR(IE_NUMBEROFATTACKS, tmp);
 951         }
 952         return FX_PERMANENT;
 953 }
 954
 955 // 0x02 Cure:Sleep (Awaken)
 956 // this effect clears the STATE_SLEEP (1) bit, but clearing it alone wouldn't remove the
 957 // unconscious effect, which is combined with STATE_HELPLESS (0x20+1)
 958 static EffectRef fx_set_sleep_state_ref={"State:Helpless",NULL,-1};
 959 //this reference is used by many other effects
 960 static EffectRef fx_display_portrait_icon_ref={"Icon:Display",NULL,-1};
 961
 962 int fx_cure_sleep_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
 963 {
 964         if (0) printf( "fx_cure_sleep_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
 965         BASE_STATE_CURE( STATE_SLEEP );
 966         target->fxqueue.RemoveAllEffects(fx_set_sleep_state_ref);
 967         target->fxqueue.RemoveAllEffectsWithParam(fx_display_portrait_icon_ref, PI_SLEEP);
 968         return FX_NOT_APPLIED;
 969 }
 970
 971 // 0x03 State:Berserk
 972 // this effect sets the STATE_BERSERK bit, but bg2 actually ignores the bit
 973 int fx_set_berserk_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
 974 {
 975         if (0) printf( "fx_set_berserk_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
 976         // atleast how and bg2 allow this to only work on pcs
 977         if (!core->HasFeature(GF_3ED_RULES) && !target->InParty) {
 978                 return FX_NOT_APPLIED;
 979         }
 980
 981         if (fx->FirstApply) {
 982                 target->inventory.EquipBestWeapon(EQUIP_MELEE);
 983         }
 984
 985         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
 986                 BASE_STATE_SET( STATE_BERSERK );
 987         } else {
 988                 STATE_SET( STATE_BERSERK );
 989         }
 990
 991         switch(fx->Parameter2) {
 992         case 1: //always berserk
 993                 target->SetSpellState(SS_BERSERK);
 994         default:
 995                 target->AddPortraitIcon(PI_BERSERK);
 996                 break;
 997         case 2: //blood rage
 998                 target->SetSpellState(SS_BERSERK);
 999                 //immunity to effects:
1000                 //5 charm
1001                 //0x11 heal
1002                 //0x18 panic
1003                 //0x27 sleep
1004                 //0x2d stun
1005                 //0x6d hold
1006                 //0x80 confusion
1007                 //400 hopelessness
1008                 //
1009                 target->SetSpellState(SS_BLOODRAGE);
1010                 target->SetSpellState(SS_NOHPINFO);
1011                 target->SetColorMod(0xff, RGBModifier::ADD, 15, 128, 0, 0);
1012                 target->AddPortraitIcon(PI_BLOODRAGE);
1013                 break;
1014         }
1015         return FX_PERMANENT;
1016 }
1017
1018 // 0x04 Cure:Berserk
1019 // this effect clears the STATE_BERSERK (2) bit, but bg2 actually ignores the bit
1020 // it also removes effect 04
1021 static EffectRef fx_set_berserk_state_ref={"State:Berserk",NULL,-1};
1022
1023 int fx_cure_berserk_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1024 {
1025         if (0) printf( "fx_cure_berserk_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1026         BASE_STATE_CURE( STATE_BERSERK );
1027         target->fxqueue.RemoveAllEffects(fx_set_berserk_state_ref);
1028         return FX_NOT_APPLIED;
1029 }
1030
1031 // 0x05 State:Charmed
1032 // 0xf1 ControlCreature (iwd2)
1033 int fx_set_charmed_state (Scriptable* Owner, Actor* target, Effect* fx)
1034 {
1035         if (0) printf( "fx_set_charmed_state (%2d): General: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1036
1037         //blood rage berserking gives immunity to charm (in iwd2)
1038         if (target->HasSpellState(SS_BLOODRAGE)) {
1039                 return FX_NOT_APPLIED;
1040         }
1041
1042         //protection from evil gives immunity to charm (in iwd2)
1043         if (target->HasSpellState(SS_PROTFROMEVIL)) {
1044                 return FX_NOT_APPLIED;
1045         }
1046
1047         if (fx->Parameter1 && (STAT_GET(IE_GENERAL)!=fx->Parameter1)) {
1048                 return FX_NOT_APPLIED;
1049         }
1050
1051         Scriptable *caster = GetCaster(Owner, fx);
1052         if (!caster) caster = Owner; // IE stores the enemyally in the effect instead
1053         bool enemyally = true;
1054         if (caster->Type==ST_ACTOR) {
1055                 enemyally = ((Actor *) caster)->GetStat(IE_EA)>EA_GOODCUTOFF; //or evilcutoff?
1056         }
1057
1058         switch (fx->Parameter2) {
1059         case 0: //charmed (target neutral after charm)
1060                 if (fx->FirstApply) {
1061                         displaymsg->DisplayConstantStringName(STR_CHARMED, 0xf0f0f0, target);
1062                 }
1063         case 1000:
1064                 break;
1065         case 1: //charmed (target hostile after charm)
1066                 if (fx->FirstApply) {
1067                         displaymsg->DisplayConstantStringName(STR_CHARMED, 0xf0f0f0, target);
1068                 }
1069         case 1001:
1070                 if (!target->InParty) {
1071                         target->SetBaseNoPCF(IE_EA, EA_ENEMY);
1072                 }
1073                 break;
1074         case 2: //dire charmed (target neutral after charm)
1075                 if (fx->FirstApply) {
1076                         displaymsg->DisplayConstantStringName(STR_DIRECHARMED, 0xf0f0f0, target);
1077                 }
1078         case 1002:
1079                 break;
1080         case 3: //dire charmed (target hostile after charm)
1081                 if (fx->FirstApply) {
1082                         displaymsg->DisplayConstantStringName(STR_DIRECHARMED, 0xf0f0f0, target);
1083                 }
1084         case 1003:
1085                 if (!target->InParty) {
1086                         target->SetBaseNoPCF(IE_EA, EA_ENEMY);
1087                 }
1088                 break;
1089         case 4: //controlled by cleric
1090                 if (fx->FirstApply) {
1091                         displaymsg->DisplayConstantStringName(STR_CONTROLLED, 0xf0f0f0, target);
1092                 }
1093         case 1004:
1094                 if (!target->InParty) {
1095                         target->SetBaseNoPCF(IE_EA, EA_ENEMY);
1096                 }
1097                 break;
1098         case 5: //thrall (typo comes from original engine doc)
1099                 if (fx->FirstApply) {
1100                         displaymsg->DisplayConstantStringName(STR_CHARMED, 0xf0f0f0, target);
1101                 }
1102         case 1005:
1103                 STAT_SET(IE_EA, EA_ENEMY );
1104                 STAT_SET(IE_THRULLCHARM, 1);
1105                 return FX_PERMANENT;
1106         }
1107
1108         STATE_SET( STATE_CHARMED );
1109         STAT_SET_PCF( IE_EA, enemyally?EA_ENEMY:EA_CHARMED );
1110         //don't stick if permanent
1111         return FX_PERMANENT;
1112 }
1113
1114 // 0x06 CharismaModifier
1115 int fx_charisma_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1116 {
1117         if (0) printf( "fx_charisma_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1118
1119         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
1120                 BASE_MOD( IE_CHR );
1121         } else {
1122                 STAT_MOD( IE_CHR );
1123         }
1124         return FX_PERMANENT;
1125 }
1126
1127 // 0x07 Color:SetPalette
1128 // this effect might not work in pst, they don't have separate weapon slots
1129 int fx_set_color_gradient (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1130 {
1131         if (0) printf( "fx_set_color_gradient (%2d): Gradient: %d, Location: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1132         EffectQueue::HackColorEffects(target, fx);
1133         target->SetColor( fx->Parameter2, fx->Parameter1 );
1134         return FX_APPLIED;
1135 }
1136
1137 // 08 Color:SetRGB
1138 int fx_set_color_rgb (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1139 {
1140         if (0) printf( "fx_set_color_rgb (%2d): RGB: %x, Location: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1141         EffectQueue::HackColorEffects(target, fx);
1142         ieDword location = fx->Parameter2 & 0xff;
1143         target->SetColorMod(location, RGBModifier::ADD, -1, fx->Parameter1 >> 8,
1144                         fx->Parameter1 >> 16, fx->Parameter1 >> 24);
1145
1146         return FX_APPLIED;
1147 }
1148 // 08 Color:SetRGBGlobal
1149 int fx_set_color_rgb_global (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1150 {
1151         if (0) printf( "fx_set_color_rgb_global (%2d): RGB: %x, Location: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1152
1153         target->SetColorMod(0xff, RGBModifier::ADD, -1, fx->Parameter1 >> 8,
1154                         fx->Parameter1 >> 16, fx->Parameter1 >> 24);
1155
1156         return FX_APPLIED;
1157 }
1158
1159 // 09 Color:PulseRGB
1160 int fx_set_color_pulse_rgb (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1161 {
1162         if (0) printf( "fx_set_color_pulse_rgb (%2d): RGB: %x, Location: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1163         EffectQueue::HackColorEffects(target, fx);
1164         ieDword location = fx->Parameter2 & 0xff;
1165         int speed = (fx->Parameter2 >> 16) & 0xFF;
1166         target->SetColorMod(location, RGBModifier::ADD, speed,
1167                         fx->Parameter1 >> 8, fx->Parameter1 >> 16,
1168                         fx->Parameter1 >> 24);
1169
1170         return FX_APPLIED;
1171 }
1172
1173 // 09 Color:PulseRGBGlobal (pst variant)
1174 int fx_set_color_pulse_rgb_global (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1175 {
1176         if (0) printf( "fx_set_color_pulse_rgb_global (%2d): RGB: %x, Location: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1177
1178         int speed = (fx->Parameter2 >> 16) & 0xFF;
1179         target->SetColorMod(0xff, RGBModifier::ADD, speed,
1180                         fx->Parameter1 >> 8, fx->Parameter1 >> 16,
1181                         fx->Parameter1 >> 24);
1182
1183         return FX_APPLIED;
1184 }
1185
1186 // 0x0A ConstitutionModifier
1187 int fx_constitution_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1188 {
1189         if (0) printf( "fx_constitution_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1190
1191         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
1192                 BASE_MOD( IE_CON );
1193         } else {
1194                 STAT_MOD( IE_CON );
1195         }
1196         return FX_PERMANENT;
1197 }
1198
1199 // 0x0B Cure:Poison
1200 static EffectRef fx_poisoned_state_ref={"State:Poisoned",NULL,-1};
1201
1202 int fx_cure_poisoned_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1203 {
1204         if (0) printf( "fx_cure_poisoned_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1205         //all three steps are present in bg2 and iwd2
1206         BASE_STATE_CURE( STATE_POISONED );
1207         target->fxqueue.RemoveAllEffects( fx_poisoned_state_ref );
1208         target->fxqueue.RemoveAllEffectsWithParam(fx_display_portrait_icon_ref, PI_POISONED);
1209         return FX_NOT_APPLIED;
1210 }
1211
1212 // 0x0c Damage
1213 // this is a very important effect
1214 int fx_damage (Scriptable* Owner, Actor* target, Effect* fx)
1215 {
1216         if (0) printf( "fx_damage (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1217         //save for half damage type
1218         ieDword damagetype = fx->Parameter2>>16;
1219         ieDword modtype = fx->Parameter2&3;
1220         if (modtype==3) {
1221                 modtype&=~3;
1222         }
1223         Scriptable *caster = GetCaster(Owner, fx);
1224
1225         target->Damage(fx->Parameter1, damagetype, caster, modtype);
1226         //this effect doesn't stick
1227         return FX_NOT_APPLIED;
1228 }
1229
1230 // 0x0d Death
1231 int fx_death (Scriptable* Owner, Actor* target, Effect* fx)
1232 {
1233         if (0) printf( "fx_death (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1234         ieDword damagetype = 0;
1235         switch (fx->Parameter2) {
1236         case 1:
1237                 BASE_STATE_SET(STATE_D4); //not sure, should be charred
1238                 damagetype = DAMAGE_FIRE;
1239                 break;
1240         case 2:
1241                 damagetype = DAMAGE_CRUSHING;
1242                 break;
1243         case 4:
1244                 damagetype = DAMAGE_CRUSHING;
1245                 break;
1246         case 8:
1247                 damagetype = DAMAGE_CRUSHING|DAMAGE_CHUNKING;
1248                 break;
1249         case 16:
1250                 BASE_STATE_SET(STATE_PETRIFIED);
1251                 damagetype = DAMAGE_CRUSHING;
1252                 break;
1253         case 32:
1254                 BASE_STATE_SET(STATE_FROZEN);
1255                 damagetype = DAMAGE_COLD;
1256                 break;
1257         case 64:
1258                 BASE_STATE_SET(STATE_PETRIFIED);
1259                 damagetype = DAMAGE_CRUSHING|DAMAGE_CHUNKING;
1260                 break;
1261         case 128:
1262                 BASE_STATE_SET(STATE_FROZEN);
1263                 damagetype = DAMAGE_COLD|DAMAGE_CHUNKING;
1264                 break;
1265         case 256:
1266                 damagetype = DAMAGE_ELECTRICITY;
1267                 break;
1268         case 512:
1269
1270         default:
1271                 damagetype = DAMAGE_ACID;
1272         }
1273         target->Damage(0, damagetype, Owner);
1274         //death has damage type too
1275         target->Die(Owner);
1276         //this effect doesn't stick
1277         return FX_NOT_APPLIED;
1278 }
1279
1280 // 0xE Cure:Defrost
1281 int fx_cure_frozen_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1282 {
1283         if (0) printf( "fx_cure_frozen_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1284         BASE_STATE_CURE( STATE_FROZEN );
1285         return FX_NOT_APPLIED;
1286 }
1287
1288 // 0x0F DexterityModifier
1289
1290 #define CSA_DEX 0
1291 #define CSA_STR 1
1292 #define CSA_CNT 2
1293 int SpellAbilityDieRoll(Actor *target, int which)
1294 {
1295         if (which>=CSA_CNT) return 6;
1296
1297         ieDword cls = STAT_GET(IE_CLASS);
1298         if (!spell_abilities) {
1299                 AutoTable tab("clssplab");
1300                 if (!tab) {
1301                         spell_abilities = (int *) malloc(sizeof(int)*CSA_CNT);
1302                         for (int ab=0;ab<CSA_CNT;ab++) {
1303                                 spell_abilities[ab*splabcount]=6;
1304                         }
1305                         splabcount=1;
1306                         return 6;
1307                 }
1308                 splabcount = tab->GetRowCount();
1309                 spell_abilities=(int *) malloc(sizeof(int)*splabcount*CSA_CNT);
1310                 for (int ab=0;ab<CSA_CNT;ab++) {
1311                         for (ieDword i=0;i<splabcount;i++) {
1312                                 spell_abilities[ab*splabcount+i]=atoi(tab->QueryField(i,ab));
1313                         }
1314                 }
1315         }
1316         if (cls>=splabcount) cls=0;
1317         return spell_abilities[which*splabcount+cls];
1318 }
1319
1320 int fx_dexterity_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1321 {
1322         if (0) printf( "fx_dexterity_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1323
1324         ////how cat's grace: value is based on class
1325         if (fx->Parameter2==3) {
1326                 fx->Parameter1 = core->Roll(1,SpellAbilityDieRoll(target,0),0);
1327                 fx->Parameter2 = 0;
1328         }
1329
1330         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
1331                 BASE_MOD( IE_DEX );
1332         } else {
1333                 STAT_MOD( IE_DEX );
1334         }
1335         return FX_PERMANENT;
1336 }
1337
1338 static EffectRef fx_set_slow_state_ref={"State:Slowed",NULL,-1};
1339 // 0x10 State:Hasted
1340 // this function removes slowed state, or sets hasted state
1341 int fx_set_hasted_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1342 {
1343         if (0) printf( "fx_set_hasted_state (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
1344         target->fxqueue.RemoveAllEffects(fx_set_slow_state_ref);
1345         target->fxqueue.RemoveAllEffectsWithParam( fx_display_portrait_icon_ref, PI_SLOWED );
1346         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
1347                 BASE_STATE_CURE( STATE_SLOWED );
1348                 BASE_STATE_SET( STATE_HASTED );
1349         } else {
1350                 STATE_CURE( STATE_SLOWED );
1351                 STATE_SET( STATE_HASTED );
1352         }
1353         target->NewStat(IE_MOVEMENTRATE, 200, MOD_PERCENT);
1354         switch (fx->Parameter2) {
1355         case 0: //normal haste
1356                 target->AddPortraitIcon(PI_HASTED);
1357                 STAT_SET(IE_IMPROVEDHASTE,0);
1358                 STAT_SET(IE_ATTACKNUMBERDOUBLE,0);
1359                 STAT_ADD(IE_NUMBEROFATTACKS, 2);
1360                 // -2 initiative bonus
1361                 STAT_ADD(IE_PHYSICALSPEED, 2);
1362                 break;
1363         case 1://improved haste
1364                 target->AddPortraitIcon(PI_IMPROVEDHASTE);
1365                 STAT_SET(IE_IMPROVEDHASTE,1);
1366                 STAT_SET(IE_ATTACKNUMBERDOUBLE,0);
1367                 target->NewStat(IE_NUMBEROFATTACKS, 200, MOD_PERCENT);
1368                 // -2 initiative bonus
1369                 STAT_ADD(IE_PHYSICALSPEED, 2);
1370                 break;
1371         case 2://speed haste only
1372                 target->AddPortraitIcon(PI_HASTED);
1373                 STAT_SET(IE_IMPROVEDHASTE,0);
1374                 STAT_SET(IE_ATTACKNUMBERDOUBLE,1);
1375                 break;
1376         }
1377
1378         return FX_PERMANENT;
1379 }
1380
1381 // 0x11 CurrentHPModifier
1382 int fx_current_hp_modifier (Scriptable* Owner, Actor* target, Effect* fx)
1383 {
1384         if (0) printf( "fx_current_hp_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1385
1386         if (fx->Parameter2&0x10000) {
1387                 Point p(fx->PosX, fx->PosY);
1388                 Resurrect(Owner, target, fx, p);
1389         }
1390         if (fx->Parameter2&0x20000) {
1391                 target->fxqueue.RemoveAllNonPermanentEffects();
1392         }
1393         //Cannot heal bloodrage
1394         if (target->HasSpellState(SS_BLOODRAGE)) {
1395                 return FX_NOT_APPLIED;
1396         }
1397
1398         //current hp percent is relative to modified max hp
1399         switch(fx->Parameter2&0xffff) {
1400         case MOD_ADDITIVE:
1401         case MOD_ABSOLUTE:
1402                 target->NewBase( IE_HITPOINTS, fx->Parameter1, fx->Parameter2&0xffff);
1403                 break;
1404         case MOD_PERCENT:
1405                 target->NewBase( IE_HITPOINTS, target->GetSafeStat(IE_MAXHITPOINTS)*fx->Parameter1/100, MOD_ABSOLUTE);
1406         }
1407         //never stay permanent
1408         return FX_NOT_APPLIED;
1409 }
1410
1411 // 0x12 MaximumHPModifier
1412 // 0 and 3 differ in that 3 doesn't modify current hitpoints
1413 // 1,4 and 2,5 are analogous to them, but with different modifiers
1414 int fx_maximum_hp_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1415 {
1416         if (0) printf( "fx_maximum_hp_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1417
1418         if (STATE_GET( STATE_DEAD|STATE_PETRIFIED|STATE_FROZEN) ) {
1419                 return FX_NOT_APPLIED;
1420         }
1421
1422         bool base = fx->TimingMode==FX_DURATION_INSTANT_PERMANENT;
1423
1424         switch (fx->Parameter2) {
1425         case 0:
1426                 // random value Parameter1 is set by level_check in EffectQueue
1427                 if (base) {
1428                         BASE_ADD( IE_MAXHITPOINTS, fx->Parameter1 );
1429                         BASE_ADD( IE_HITPOINTS, fx->Parameter1 );
1430                 } else {
1431                         STAT_ADD( IE_MAXHITPOINTS, fx->Parameter1 );
1432                         if (fx->FirstApply) {
1433                                 BASE_ADD( IE_HITPOINTS, fx->Parameter1 );
1434                         }
1435                 }
1436                 break;
1437         case 3: // no current hp bonus
1438                 // random value Parameter1 is set by level_check in EffectQueue
1439                 if (base) {
1440                         BASE_ADD( IE_MAXHITPOINTS, fx->Parameter1 );
1441                 } else {
1442                         STAT_ADD( IE_MAXHITPOINTS, fx->Parameter1 );
1443                 }
1444                 break;
1445         case 1: // with current hp bonus, but unimplemented in the original
1446         case 4:
1447                 if (base) {
1448                         BASE_SET( IE_MAXHITPOINTS, fx->Parameter1 );
1449                 } else {
1450                         STAT_SET( IE_MAXHITPOINTS, fx->Parameter1 );
1451                 }
1452                 break;
1453         case 2:
1454                 if (base) {
1455                         BASE_MUL(IE_MAXHITPOINTS, fx->Parameter1 );
1456                         BASE_MUL(IE_HITPOINTS, fx->Parameter1 );
1457                 } else {
1458                         target->NewStat( IE_MAXHITPOINTS, target->GetStat(IE_MAXHITPOINTS)*fx->Parameter1/100, MOD_ABSOLUTE);
1459                         if (fx->FirstApply) {
1460                                 target->NewBase( IE_HITPOINTS, target->GetSafeStat(IE_HITPOINTS)*fx->Parameter1/100, MOD_ABSOLUTE);
1461                         }
1462                 }
1463                 break;
1464         case 5: // no current hp bonus
1465                 if (base) {
1466                         BASE_MUL( IE_MAXHITPOINTS, fx->Parameter1 );
1467                 } else {
1468                         STAT_MUL( IE_MAXHITPOINTS, fx->Parameter1 );
1469                 }
1470                 break;
1471         }
1472         return FX_PERMANENT;
1473 }
1474
1475 // 0x13 IntelligenceModifier
1476 int fx_intelligence_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1477 {
1478         if (0) printf( "fx_intelligence_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1479
1480         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
1481                 BASE_MOD( IE_INT );
1482         } else {
1483                 STAT_MOD( IE_INT );
1484         }
1485         return FX_PERMANENT;
1486 }
1487
1488 // 0x14 State:Invisible
1489 // this is more complex, there is a half-invisibility state
1490 // and there is a hidden state
1491 int fx_set_invisible_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1492 {
1493         switch (fx->Parameter2) {
1494         case 0:
1495                 if (pstflags) {
1496                         STATE_SET( STATE_PST_INVIS );
1497                 } else {
1498                         STATE_SET( STATE_INVISIBLE );
1499                 }
1500                 STAT_ADD(IE_TOHIT, 4);
1501                 break;
1502         case 1:
1503                 STATE_SET( STATE_INVIS2 );
1504                 HandleBonus(target, IE_ARMORCLASS, 4, fx->TimingMode);
1505                 break;
1506         default:
1507                 break;
1508         }
1509         ieDword Trans = fx->Parameter4;
1510         if (fx->Parameter3) {
1511                 if (Trans>=240) {
1512                         fx->Parameter3=0;
1513                 } else {
1514                         Trans+=16;
1515                 }
1516         } else {
1517                 if (Trans<=32) {
1518                         fx->Parameter3=1;
1519                 } else {
1520                         Trans-=16;
1521                 }
1522         }
1523         fx->Parameter4=Trans;
1524         STAT_SET( IE_TRANSLUCENT, Trans);
1525         return FX_APPLIED;
1526 }
1527
1528 // 0x15 LoreModifier
1529 int fx_lore_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1530 {
1531         if (0) printf( "fx_lore_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1532
1533         STAT_MOD( IE_LORE );
1534         return FX_APPLIED;
1535 }
1536
1537 // 0x16 LuckModifier
1538 int fx_luck_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1539 {
1540         if (0) printf( "fx_luck_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1541
1542         STAT_MOD( IE_LUCK );
1543         STAT_MOD( IE_DAMAGELUCK );
1544         return FX_APPLIED;
1545 }
1546
1547 // 0x17 MoraleModifier
1548 int fx_morale_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1549 {
1550         if (0) printf( "fx_morale_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1551
1552         STAT_MOD( IE_MORALE );
1553         return FX_APPLIED;
1554 }
1555
1556 // 0x18 State:Panic
1557 int fx_set_panic_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1558 {
1559         if (0) printf( "fx_set_panic_state (%2d)\n", fx->Opcode );
1560
1561         if (target->HasSpellState(SS_BLOODRAGE)) {
1562                 return FX_NOT_APPLIED;
1563         }
1564
1565         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
1566                 BASE_STATE_SET( STATE_PANIC );
1567         } else {
1568                 STATE_SET( STATE_PANIC );
1569         }
1570         if (enhanced_effects) {
1571                 target->AddPortraitIcon(PI_PANIC);
1572         }
1573         return FX_PERMANENT;
1574 }
1575
1576 // 0x19 State:Poisoned
1577 int fx_set_poisoned_state (Scriptable* Owner, Actor* target, Effect* fx)
1578 {
1579         if (0) printf( "fx_set_poisoned_state (%2d): Damage: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1580         //apparently this bit isn't set, but then why is it here
1581         //this requires a little research
1582         STATE_SET( STATE_POISONED );
1583         //also this effect is executed every update
1584         ieDword damage;
1585         int tmp = fx->Parameter1;
1586
1587         HandlePercentageDamage(fx, target);
1588
1589         switch(fx->Parameter2) {
1590         case RPD_ROUNDS:
1591                 tmp *= core->Time.round_sec;
1592                 damage = 1;
1593                 break;
1594         case RPD_TURNS:
1595                 tmp *= core->Time.turn_sec;
1596                 damage = 1;
1597                 break;
1598         case RPD_SECONDS:
1599                 damage = 1;
1600                 break;
1601         case RPD_PERCENT: // handled in HandlePercentageDamage
1602         case RPD_POINTS:
1603                 tmp = 1; // hit points per second
1604                 damage = fx->Parameter1;
1605                 break;
1606         default:
1607                 tmp = 1;
1608                 damage = 1;
1609                 break;
1610         }
1611
1612         // all damage is at most per-second
1613         tmp *= AI_UPDATE_TIME;
1614         if (tmp && (core->GetGame()->GameTime%tmp)) {
1615                 return FX_APPLIED;
1616         }
1617
1618         Scriptable *caster = GetCaster(Owner, fx);
1619
1620         //percent
1621         target->Damage(damage, DAMAGE_POISON, caster);
1622         return FX_APPLIED;
1623 }
1624
1625 // 0x1a RemoveCurse
1626 static EffectRef fx_apply_effect_curse_ref={"ApplyEffectCurse",NULL,-1};
1627 static EffectRef fx_pst_jumble_curse_ref={"JumbleCurse",NULL,-1};
1628
1629 // gemrb extension: if the resource field is filled, it will remove curse only from the specified item
1630 int fx_remove_curse (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1631 {
1632         if (0) printf( "fx_remove_curse (%2d): Resource: %s Type: %d\n", fx->Opcode, fx->Resource, fx->Parameter2 );
1633
1634         switch(fx->Parameter2)
1635         {
1636         case 1:
1637                 //this is pst specific
1638                 target->fxqueue.RemoveAllEffects(fx_pst_jumble_curse_ref);
1639                 break;
1640         default:
1641                 Inventory *inv = &target->inventory;
1642                 int i = target->inventory.GetSlotCount();
1643                 while(i--) {
1644                         //does this slot need unequipping
1645                         if (core->QuerySlotEffects(i) ) {
1646                                 if (fx->Resource[0] && strnicmp(inv->GetSlotItem(i)->ItemResRef, fx->Resource,8) ) {
1647                                         continue;
1648                                 }
1649                                 if (!(inv->GetItemFlag(i)&IE_INV_ITEM_CURSED)) {
1650                                         continue;
1651                                 }
1652                                 inv->ChangeItemFlag(i, IE_INV_ITEM_CURSED, BM_NAND);
1653                                 if (inv->UnEquipItem(i,true)) {
1654                                         CREItem *tmp = inv->RemoveItem(i);
1655                                         if(inv->AddSlotItem(tmp,-3)!=ASI_SUCCESS) {
1656                                                 //if the item couldn't be placed in the inventory, then put it back to the original slot
1657                                                 inv->SetSlotItem(tmp,i);
1658                                                 //and drop it in the area. (If there is no area, then the item will stay in the inventory)
1659                                                 target->DropItem(i,0);
1660                                         }
1661                                 }
1662                         }
1663                 }
1664                 target->fxqueue.RemoveAllEffects(fx_apply_effect_curse_ref);
1665         }
1666
1667         //this is an instant effect
1668         return FX_NOT_APPLIED;
1669 }
1670
1671 // 0x1b AcidResistanceModifier
1672 int fx_acid_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1673 {
1674         if (0) printf( "fx_acid_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1675
1676         STAT_MOD( IE_RESISTACID );
1677         return FX_APPLIED;
1678 }
1679
1680 // 0x1c ColdResistanceModifier
1681 int fx_cold_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1682 {
1683         if (0) printf( "fx_cold_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1684
1685         STAT_MOD( IE_RESISTCOLD );
1686         return FX_APPLIED;
1687 }
1688
1689 // 0x1d ElectricityResistanceModifier
1690 int fx_electricity_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1691 {
1692         if (0) printf( "fx_electricity_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1693
1694         STAT_MOD( IE_RESISTELECTRICITY );
1695         return FX_APPLIED;
1696 }
1697
1698 // 0x1e FireResistanceModifier
1699 int fx_fire_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1700 {
1701         if (0) printf( "fx_fire_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1702
1703         STAT_MOD( IE_RESISTFIRE );
1704         return FX_APPLIED;
1705 }
1706
1707 // 0x1f MagicDamageResistanceModifier
1708 int fx_magic_damage_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1709 {
1710         if (0) printf( "fx_magic_damage_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1711
1712         STAT_MOD( IE_MAGICDAMAGERESISTANCE );
1713         return FX_APPLIED;
1714 }
1715
1716 // 0x20 Cure:Death
1717 int fx_cure_dead_state (Scriptable* Owner, Actor* target, Effect* fx)
1718 {
1719         if (0) printf( "fx_cure_dead_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1720         Point p(fx->PosX, fx->PosY);
1721         Resurrect(Owner, target, fx, p);
1722         return FX_NOT_APPLIED;
1723 }
1724
1725 // 0x21 SaveVsDeathModifier
1726 int fx_save_vs_death_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1727 {
1728         if (0) printf( "fx_save_vs_death_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1729
1730         HandleBonus( target, IE_SAVEVSDEATH, fx->Parameter1, fx->TimingMode );
1731         return FX_APPLIED;
1732 }
1733
1734 // 0x22 SaveVsWandsModifier
1735 int fx_save_vs_wands_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1736 {
1737         if (0) printf( "fx_save_vs_wands_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1738
1739         HandleBonus( target, IE_SAVEVSWANDS, fx->Parameter1, fx->TimingMode );
1740         return FX_APPLIED;
1741 }
1742
1743 // 0x23 SaveVsPolyModifier
1744 int fx_save_vs_poly_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1745 {
1746         if (0) printf( "fx_save_vs_poly_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1747
1748         HandleBonus( target, IE_SAVEVSPOLY, fx->Parameter1, fx->TimingMode );
1749         return FX_APPLIED;
1750 }
1751
1752 // 0x24 SaveVsBreathModifier
1753 int fx_save_vs_breath_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1754 {
1755         if (0) printf( "fx_save_vs_breath_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1756
1757         HandleBonus( target, IE_SAVEVSBREATH, fx->Parameter1, fx->TimingMode );
1758         return FX_APPLIED;
1759 }
1760
1761 // 0x25 SaveVsSpellsModifier
1762 int fx_save_vs_spell_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1763 {
1764         if (0) printf( "fx_save_vs_spell_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1765
1766         HandleBonus( target, IE_SAVEVSSPELL, fx->Parameter1, fx->TimingMode );
1767         return FX_APPLIED;
1768 }
1769
1770 // 0x26 State:Silenced
1771 int fx_set_silenced_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1772 {
1773         if (0) printf( "fx_set_silenced_state (%2d)\n", fx->Opcode );
1774         STATE_SET( STATE_SILENCED );
1775         return FX_APPLIED;
1776 }
1777
1778 static EffectRef fx_animation_stance_ref = {"AnimationStateChange",NULL,-1};
1779
1780 // 0x27 State:Helpless
1781 // this effect sets both bits, but 'awaken' only removes the sleep bit
1782 // FIXME: this is probably a persistent effect
1783 int fx_set_unconscious_state (Scriptable* Owner, Actor* target, Effect* fx)
1784 {
1785         if (0) printf( "fx_set_unconscious_state (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
1786
1787         if (target->HasSpellState(SS_BLOODRAGE)) {
1788                 return FX_NOT_APPLIED;
1789         }
1790
1791         if (fx->FirstApply) {
1792                 Effect *newfx;
1793
1794                 newfx = EffectQueue::CreateEffectCopy(fx, fx_animation_stance_ref, 0, IE_ANI_SLEEP);
1795                 core->ApplyEffect(newfx, target, Owner);
1796
1797                 delete newfx;
1798         }
1799
1800         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
1801                 BASE_STATE_SET( STATE_HELPLESS | STATE_SLEEP ); //don't awaken on damage
1802         } else {
1803                 STATE_SET( STATE_HELPLESS | STATE_SLEEP ); //don't awaken on damage
1804                 if (fx->Parameter2) {
1805                         target->SetSpellState(SS_NOAWAKE);
1806                 }
1807                 target->AddPortraitIcon(PI_SLEEP);
1808         }
1809         return FX_PERMANENT;
1810 }
1811
1812 // 0x28 State:Slowed
1813 // this function removes hasted state, or sets slowed state
1814 static EffectRef fx_set_haste_state_ref={"State:Hasted",NULL,-1};
1815
1816 int fx_set_slowed_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1817 {
1818         if (0) printf( "fx_set_slowed_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1819
1820         //iwd2 free action or aegis disables this effect
1821         if (target->HasSpellState(SS_FREEACTION)) return FX_NOT_APPLIED;
1822         if (target->HasSpellState(SS_AEGIS)) return FX_NOT_APPLIED;
1823
1824         if (STATE_GET(STATE_HASTED) ) {
1825                 BASE_STATE_CURE( STATE_HASTED );
1826                 target->fxqueue.RemoveAllEffects( fx_set_haste_state_ref );
1827                 target->fxqueue.RemoveAllEffectsWithParam( fx_display_portrait_icon_ref, PI_HASTED );
1828         } else {
1829                 STATE_SET( STATE_SLOWED );
1830                 target->AddPortraitIcon(PI_SLOWED);
1831                 // halve apr and speed
1832                 STAT_MUL(IE_NUMBEROFATTACKS, 50);
1833                 STAT_MUL(IE_MOVEMENTRATE, 50);
1834         }
1835         return FX_PERMANENT;
1836 }
1837
1838 // 0x29 Sparkle
1839 int fx_sparkle (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1840 {
1841         if (0) printf( "fx_sparkle (%2d): Sparkle colour: %d ; Sparkle type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1842         if (!target) {
1843                 return FX_NOT_APPLIED;
1844         }
1845
1846         Map *map = target->GetCurrentArea();
1847         if (!map) {
1848                 return FX_APPLIED;
1849         }
1850         Point p(fx->PosX, fx->PosY);
1851
1852         map->Sparkle( fx->Duration, fx->Parameter1, fx->Parameter2, p, fx->Parameter3);
1853         return FX_NOT_APPLIED;
1854 }
1855
1856 // 0x2A WizardSpellSlotsModifier
1857 int fx_bonus_wizard_spells (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1858 {
1859         if (0) printf( "fx_bonus_wizard_spells (%2d): Spell Add: %d ; Spell Level: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1860
1861         int i=1;
1862         //if param2 is 0, then double spells up to param1
1863         if(!fx->Parameter2) {
1864                 for (unsigned int j=0;j<fx->Parameter1 && j<MAX_SPELL_LEVEL;j++) {
1865                         target->spellbook.SetMemorizableSpellsCount(0, IE_SPELL_TYPE_WIZARD, j, true);
1866                 }
1867                 return FX_APPLIED;
1868         }
1869         //HoW specific
1870         //if param2 is 0x200, then double spells at param1
1871         if (fx->Parameter2==0x200) {
1872                 unsigned int j = fx->Parameter1-1;
1873                 if (j<MAX_SPELL_LEVEL) {
1874                         target->spellbook.SetMemorizableSpellsCount(0, IE_SPELL_TYPE_WIZARD, j, true);
1875                 }
1876         }
1877
1878         for(unsigned int j=0;j<MAX_SPELL_LEVEL;j++) {
1879                 if (fx->Parameter2&i) {
1880                         target->spellbook.SetMemorizableSpellsCount(fx->Parameter1, IE_SPELL_TYPE_WIZARD, j, true);
1881                 }
1882                 i<<=1;
1883         }
1884         return FX_APPLIED;
1885 }
1886
1887 // 0x2B Cure:Petrification
1888 int fx_cure_petrified_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1889 {
1890         if (0) printf( "fx_cure_petrified_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1891         BASE_STATE_CURE( STATE_PETRIFIED );
1892         return FX_NOT_APPLIED;
1893 }
1894
1895 // 0x2C StrengthModifier
1896 int fx_strength_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1897 {
1898         if (0) printf( "fx_strength_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1899
1900         ////how strength: value is based on class
1901         if (fx->Parameter2==3) {
1902                 fx->Parameter1 = core->Roll(1,SpellAbilityDieRoll(target,1),0);
1903                 fx->Parameter2 = 0;
1904         }
1905
1906         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
1907                 BASE_MOD( IE_STR );
1908         } else {
1909                 STAT_MOD( IE_STR );
1910         }
1911         return FX_PERMANENT;
1912 }
1913
1914 // 0x2D State:Stun
1915 int power_word_stun_iwd2(Actor *target, Effect *fx)
1916 {
1917         int hp = BASE_GET(IE_HITPOINTS);
1918         if (hp>150) return FX_NOT_APPLIED;
1919         int stuntime;
1920         if (hp>100) stuntime = core->Roll(1,4,0);
1921         else if (hp>50) stuntime = core->Roll(2,4,0);
1922         else stuntime = core->Roll(4,4,0);
1923         fx->Parameter2 = 0;
1924         fx->TimingMode = FX_DURATION_ABSOLUTE;
1925         fx->Duration = stuntime*6*core->Time.round_size + core->GetGame()->GameTime;
1926         STATE_SET( STATE_STUNNED );
1927         target->AddPortraitIcon(PI_STUN);
1928         return FX_APPLIED;
1929 }
1930
1931 int fx_set_stun_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1932 {
1933         if (0) printf( "fx_set_stun_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1934
1935         //actually the original engine just skips this effect if the target is dead
1936         if ( STATE_GET(STATE_DEAD) ) {
1937                 return FX_NOT_APPLIED;
1938         }
1939
1940         //this is an IWD extension
1941         if (target->HasSpellState(SS_BLOODRAGE)) {
1942                 return FX_NOT_APPLIED;
1943         }
1944
1945         if (fx->Parameter2==2) {
1946                 //don't reroll the duration next time we get here
1947                 if (fx->FirstApply) {
1948                         return power_word_stun_iwd2(target, fx);
1949                 }
1950         }
1951         STATE_SET( STATE_STUNNED );
1952         target->AddPortraitIcon(PI_STUN);
1953         if (fx->Parameter2==1) {
1954                 target->SetSpellState(SS_AWAKE);
1955         }
1956         return FX_APPLIED;
1957 }
1958
1959 // 0x2E Cure:Stun
1960 static EffectRef fx_set_stun_state_ref={"State:Stun",NULL,-1};
1961 static EffectRef fx_hold_creature_no_icon_ref={"State:HoldNoIcon",NULL,-1};
1962
1963 int fx_cure_stun_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1964 {
1965         if (0) printf( "fx_cure_stun_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1966         BASE_STATE_CURE( STATE_STUNNED );
1967         target->fxqueue.RemoveAllEffects(fx_set_stun_state_ref);
1968         target->fxqueue.RemoveAllEffects(fx_hold_creature_no_icon_ref);
1969         target->fxqueue.RemoveAllEffectsWithParam(fx_display_portrait_icon_ref, PI_HELD);
1970         target->fxqueue.RemoveAllEffectsWithParam(fx_display_portrait_icon_ref, PI_HOPELESS);
1971         return FX_NOT_APPLIED;
1972 }
1973
1974 // 0x2F Cure:Invisible
1975 // 0x74 Cure:Invisible2
1976 static EffectRef fx_set_invisible_state_ref={"State:Invisible",NULL,-1};
1977
1978 int fx_cure_invisible_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1979 {
1980         if (0) printf( "fx_cure_invisible_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1981         if (!STATE_GET(STATE_NONDET)) {
1982                 if (pstflags) {
1983                         BASE_STATE_CURE( STATE_PST_INVIS );
1984                 } else {
1985                         BASE_STATE_CURE( STATE_INVISIBLE | STATE_INVIS2 );
1986                 }
1987                 target->fxqueue.RemoveAllEffects(fx_set_invisible_state_ref);
1988         }
1989         return FX_NOT_APPLIED;
1990 }
1991
1992 // 0x30 Cure:Silence
1993 static EffectRef fx_set_silenced_state_ref={"State:Silenced",NULL,-1};
1994
1995 int fx_cure_silenced_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
1996 {
1997         if (0) printf( "fx_cure_silenced_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
1998         BASE_STATE_CURE( STATE_SILENCED );
1999         target->fxqueue.RemoveAllEffects(fx_set_silenced_state_ref);
2000         return FX_NOT_APPLIED;
2001 }
2002
2003 // 0x31 WisdomModifier
2004 int fx_wisdom_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2005 {
2006         if (0) printf( "fx_wisdom_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2007
2008         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
2009                 BASE_MOD( IE_WIS );
2010         } else {
2011                 STAT_MOD( IE_WIS );
2012         }
2013         return FX_PERMANENT;
2014 }
2015
2016 // 0x32 Color:BriefRGB
2017 int fx_brief_rgb (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2018 {
2019         if (0) printf( "fx_brief_rgb (%2d): RGB: %d, Location and speed: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2020
2021         int speed = (fx->Parameter2 >> 16) & 0xff;
2022         target->SetColorMod(0xff, RGBModifier::ADD, speed,
2023                         fx->Parameter1 >> 8, fx->Parameter1 >> 16,
2024                         fx->Parameter1 >> 24, 0);
2025
2026         return FX_NOT_APPLIED;
2027 }
2028
2029 // 0x33 Color:DarkenRGB
2030 int fx_darken_rgb (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2031 {
2032         if (0) printf( "fx_darken_rgb (%2d): RGB: %d, Location and speed: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2033         EffectQueue::HackColorEffects(target, fx);
2034         ieDword location = fx->Parameter2 & 0xff;
2035         target->SetColorMod(location, RGBModifier::TINT, -1, fx->Parameter1 >> 8,
2036                         fx->Parameter1 >> 16, fx->Parameter1 >> 24);
2037         return FX_APPLIED;
2038 }
2039
2040 // 0x34 Color:GlowRGB
2041 int fx_glow_rgb (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2042 {
2043         if (0) printf( "fx_glow_rgb (%2d): RGB: %d, Location and speed: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2044         EffectQueue::HackColorEffects(target, fx);
2045         ieDword location = fx->Parameter2 & 0xff;
2046         target->SetColorMod(location, RGBModifier::BRIGHTEN, -1,
2047                         fx->Parameter1 >> 8, fx->Parameter1 >> 16,
2048                         fx->Parameter1 >> 24);
2049
2050         return FX_APPLIED;
2051 }
2052
2053 // 0x35 AnimationIDModifier
2054 static EffectRef fx_animation_id_modifier_ref={"AnimationIDModifier",NULL,-1};
2055
2056 int fx_animation_id_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2057 {
2058         if (0) printf( "fx_animation_id_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2059
2060         switch (fx->Parameter2) {
2061         case 0: //non permanent animation change
2062         default:
2063                 STAT_SET( IE_ANIMATION_ID, fx->Parameter1 );
2064                 return FX_APPLIED;
2065         case 1: //remove any non permanent change
2066                 target->fxqueue.RemoveAllEffects(fx_animation_id_modifier_ref);
2067                 //return FX_NOT_APPLIED;
2068                 //intentionally passing through (perma change removes previous changes)
2069         case 2: //permanent animation id change
2070                 target->SetBaseNoPCF(IE_ANIMATION_ID, fx->Parameter1);
2071                 return FX_NOT_APPLIED;
2072         }
2073 }
2074
2075 // 0x36 ToHitModifier
2076 int fx_to_hit_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2077 {
2078         if (0) printf( "fx_to_hit_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2079
2080         HandleBonus( target, IE_TOHIT, fx->Parameter1, fx->TimingMode );
2081         return FX_APPLIED;
2082 }
2083
2084 // 0x37 KillCreatureType
2085 static EffectRef fx_death_ref={"Death",NULL,-1};
2086
2087 int fx_kill_creature_type (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2088 {
2089         if (0) printf( "fx_kill_creature_type (%2d): Value: %d, IDS: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2090         if (EffectQueue::match_ids( target, fx->Parameter2, fx->Parameter1) ) {
2091                 //convert it to a death opcode or apply the new effect?
2092                 fx->Opcode = EffectQueue::ResolveEffect(fx_death_ref);
2093                 fx->TimingMode = FX_DURATION_INSTANT_PERMANENT;
2094                 fx->Parameter1 = 0;
2095                 fx->Parameter2 = 4;
2096                 return FX_APPLIED;
2097         }
2098         //doesn't stick
2099         return FX_NOT_APPLIED;
2100 }
2101
2102 // 0x38 Alignment:Invert
2103 //switch good to evil and evil to good
2104 //also switch chaotic to lawful and vice versa
2105 //gemrb extension: param2 actually controls which parts should be reversed
2106 // 0 - switch both (as original)
2107 // 1 - switch good and evil
2108 // 2 - switch lawful and chaotic
2109
2110 static int al_switch_both[16]={0,0x33,0x32,0x31,0,0x23,0x22,0x21,0,0x13,0x12,0x11};
2111 static int al_switch_law[16]={0,0x31,0x32,0x33,0,0x21,0x22,0x23,0,0x11,0x12,0x13};
2112 static int al_switch_good[16]={0,0x13,0x12,0x11,0,0x23,0x22,0x21,0,0x33,0x32,0x31};
2113 int fx_alignment_invert (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2114 {
2115         if (0) printf( "fx_alignment_invert (%2d)\n", fx->Opcode );
2116         register ieDword newalign = target->GetStat( IE_ALIGNMENT );
2117         //compress the values. GNE is the first 2 bits originally
2118         //LNC is the 4/5. bits.
2119         newalign = (newalign & AL_GE_MASK) | ((newalign & AL_LC_MASK)>>2);
2120         switch (fx->Parameter2) {
2121         default:
2122                 newalign = al_switch_both[newalign];
2123                 break;
2124         case 1: //switch good/evil
2125                 newalign = al_switch_good[newalign];
2126                 break;
2127         case 2:
2128                 newalign = al_switch_law[newalign];
2129                 break;
2130         }
2131         STAT_SET( IE_ALIGNMENT, newalign );
2132         return FX_APPLIED;
2133 }
2134
2135 // 0x39 Alignment:Change
2136 int fx_alignment_change (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2137 {
2138         if (0) printf( "fx_alignment_change (%2d): Value: %d\n", fx->Opcode, fx->Parameter2 );
2139         STAT_SET( IE_ALIGNMENT, fx->Parameter2 );
2140         return FX_APPLIED;
2141 }
2142
2143 // 0x3a DispelEffects
2144 int fx_dispel_effects (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2145 {
2146         if (0) printf( "fx_dispel_effects (%2d): Value: %d, IDS: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2147         ieResRef Removed;
2148         ieDword level;
2149
2150         switch (fx->Parameter2) {
2151         case 0:
2152         default:
2153                 level = 0xffffffff;
2154                 break;
2155         case 1:
2156                 //same level: 50% success, each diff modifies it by 5%
2157                 level = core->Roll(1,20,fx->Power-10);
2158                 if (level>=0x80000000) level = 0;
2159                 break;
2160         case 2:
2161                 //same level: 50% success, each diff modifies it by 5%
2162                 level = core->Roll(1,20,fx->Parameter1-10);
2163                 if (level>=0x80000000) level = 0;
2164                 break;
2165         }
2166         //if signed would it be negative?
2167         target->fxqueue.RemoveLevelEffects(Removed, level, RL_DISPELLABLE, 0);
2168         return FX_NOT_APPLIED;
2169 }
2170
2171 // 0x3B StealthModifier
2172 int fx_stealth_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2173 {
2174         if (0) printf( "fx_stealth_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2175
2176         STAT_MOD( IE_STEALTH );
2177         return FX_APPLIED;
2178 }
2179
2180 // 0x3C MiscastMagicModifier
2181 int fx_miscast_magic_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2182 {
2183         if (0) printf( "fx_miscast_magic_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2184
2185         switch (fx->Parameter2) {
2186         case 3:
2187                 STAT_SET( IE_DEADMAGIC, 1);
2188         case 0:
2189                 STAT_SET( IE_SPELLFAILUREMAGE, fx->Parameter1);
2190                 break;
2191         case 4:
2192                 STAT_SET( IE_DEADMAGIC, 1);
2193         case 1:
2194                 STAT_SET( IE_SPELLFAILUREPRIEST, fx->Parameter1);
2195                 break;
2196         case 5:
2197                 STAT_SET( IE_DEADMAGIC, 1);
2198         case 2:
2199                 STAT_SET( IE_SPELLFAILUREINNATE, fx->Parameter1);
2200                 break;
2201         default:
2202                 return FX_NOT_APPLIED;
2203         }
2204         return FX_APPLIED;
2205 }
2206
2207 // 0x3D AlchemyModifier
2208 // this crashes in bg2 due to assertion failure (disabled intentionally)
2209 // and in iwd it doesn't really follow the stat_mod convention (quite lame)
2210 int fx_alchemy_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2211 {
2212         if (0) printf( "fx_alchemy_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2213
2214         switch(fx->Parameter2) {
2215         case 0:
2216                 STAT_ADD( IE_ALCHEMY, fx->Parameter1 );
2217                 break;
2218         case 1:
2219                 STAT_SET( IE_ALCHEMY, fx->Parameter1 );
2220                 break;
2221         case 2:
2222                 STAT_SET( IE_ALCHEMY, 100 );
2223                 break;
2224         }
2225         return FX_APPLIED;
2226 }
2227
2228 // 0x3E PriestSpellSlotsModifier
2229 int fx_bonus_priest_spells (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2230 {
2231         if (0) printf( "fx_bonus_priest_spells (%2d): Spell Add: %d ; Spell Level: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2232
2233         int i=1;
2234         //if param2 is 0, then double spells up to param1
2235         if(!fx->Parameter2) {
2236                 for (unsigned int j=0;j<fx->Parameter1 && j<MAX_SPELL_LEVEL;j++) {
2237                         target->spellbook.SetMemorizableSpellsCount(0, IE_SPELL_TYPE_PRIEST, j, true);
2238                 }
2239                 return FX_APPLIED;
2240         }
2241
2242         //HoW specific
2243         //if param2 is 0x200, then double spells at param1
2244         if (fx->Parameter2==0x200) {
2245                 unsigned int j = fx->Parameter1-1;
2246                 target->spellbook.SetMemorizableSpellsCount(fx->Parameter1, IE_SPELL_TYPE_PRIEST, j, true);
2247                 return FX_APPLIED;
2248         }
2249
2250         for(unsigned int j=0;j<MAX_SPELL_LEVEL;j++) {
2251                 if (fx->Parameter2&i) {
2252                         target->spellbook.SetMemorizableSpellsCount(fx->Parameter1, IE_SPELL_TYPE_PRIEST, j, true);
2253                 }
2254                 i<<=1;
2255         }
2256         return FX_APPLIED;
2257 }
2258
2259 // 0x3F State:Infravision
2260 int fx_set_infravision_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2261 {
2262         if (0) printf( "fx_set_infravision_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2263         STATE_SET( STATE_INFRA );
2264         return FX_APPLIED;
2265 }
2266
2267 // 0x40 Cure:Infravision
2268 static EffectRef fx_set_infravision_state_ref={"State:Infravision",NULL,-1};
2269
2270 int fx_cure_infravision_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2271 {
2272         if (0) printf( "fx_cure_infravision_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2273         BASE_STATE_CURE( STATE_INFRA );
2274         target->fxqueue.RemoveAllEffects(fx_set_infravision_state_ref);
2275         return FX_NOT_APPLIED;
2276 }
2277
2278 // 0x41 State:Blur
2279 int fx_set_blur_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2280 {
2281         if (0) printf( "fx_set_blur_state (%2d)\n", fx->Opcode );
2282         //death stops this effect
2283         if (STATE_GET( STATE_DEAD) ) {
2284                 return FX_NOT_APPLIED;
2285         }
2286         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
2287                 BASE_STATE_SET( STATE_BLUR );
2288         } else {
2289                 STATE_SET( STATE_BLUR );
2290         }
2291         //iwd2 specific
2292         if (enhanced_effects) {
2293                 target->AddPortraitIcon(PI_BLUR);
2294         }
2295         return FX_PERMANENT;
2296 }
2297
2298 // 0x42 TransparencyModifier
2299 int fx_transparency_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2300 {
2301         if (0) printf( "fx_transparency_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2302
2303         //maybe this needs some timing
2304         switch (fx->Parameter2) {
2305         case 1: //fade in
2306                 if (fx->Parameter1<255) {
2307                         if (core->GetGame()->GameTime%2) {
2308                                 fx->Parameter1++;
2309                         }
2310                 }
2311                 break;
2312         case 2://fade out
2313                 if (fx->Parameter1) {
2314                         if (core->GetGame()->GameTime%2) {
2315                                 fx->Parameter1--;
2316                         }
2317                 }
2318                 break;
2319         }
2320         STAT_MOD( IE_TRANSLUCENT );
2321         return FX_APPLIED;
2322 }
2323
2324 // 0x43 SummonCreature
2325
2326 static int eamods[]={EAM_ALLY,EAM_ALLY,EAM_DEFAULT,EAM_ALLY,EAM_DEFAULT,EAM_ENEMY,EAM_ALLY};
2327
2328 int fx_summon_creature (Scriptable* Owner, Actor* target, Effect* fx)
2329 {
2330         if (0) printf( "fx_summon_creature (%2d): ResRef:%s Anim:%s Type: %d\n", fx->Opcode, fx->Resource, fx->Resource2, fx->Parameter2 );
2331         if (!target) {
2332                 return FX_NOT_APPLIED;
2333         }
2334
2335         if (!target->GetCurrentArea()) {
2336                 return FX_APPLIED;
2337         }
2338
2339         //summon creature (resource), play vvc (resource2)
2340         //creature's lastsummoner is Owner
2341         //creature's target is target
2342         //position of appearance is target's pos
2343         int eamod = -1;
2344         if (fx->Parameter2<6){
2345                 eamod = eamods[fx->Parameter2];
2346         }
2347
2348         //the monster should appear near the effect position
2349         Point p(fx->PosX, fx->PosY);
2350
2351         Effect *newfx = EffectQueue::CreateUnsummonEffect(fx);
2352         core->SummonCreature(fx->Resource, fx->Resource2, Owner, target, p, eamod, 0, newfx);
2353         delete newfx;
2354         return FX_NOT_APPLIED;
2355 }
2356
2357 // 0x44 UnsummonCreature
2358 int fx_unsummon_creature (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2359 {
2360         if (0) printf( "fx_unsummon_creature (%2d)\n", fx->Opcode );
2361
2362         //to be compatible with the original engine, unsummon doesn't work with PC's
2363         //but it works on anything else
2364         if (!target->InParty) {
2365                 //play the vanish animation
2366                 ScriptedAnimation* sca = gamedata->GetScriptedAnimation(fx->Resource, false);
2367                 if (sca) {
2368                         sca->XPos+=target->Pos.x;
2369                         sca->YPos+=target->Pos.y;
2370                         target->GetCurrentArea()->AddVVCell(sca);
2371                 }
2372                 //remove the creature
2373                 target->DestroySelf();
2374         }
2375         return FX_NOT_APPLIED;
2376 }
2377
2378 // 0x45 State:Nondetection
2379 int fx_set_nondetection_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2380 {
2381         if (0) printf( "fx_set_nondetection_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2382         STATE_SET( STATE_NONDET );
2383         return FX_APPLIED;
2384 }
2385
2386 // 0x46 Cure:Nondetection
2387 static EffectRef fx_set_nondetection_state_ref={"State:Nondetection",NULL,-1};
2388
2389 int fx_cure_nondetection_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2390 {
2391         if (0) printf( "fx_cure_nondetection_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2392         BASE_STATE_CURE( STATE_NONDET );
2393         target->fxqueue.RemoveAllEffects(fx_set_nondetection_state_ref);
2394         return FX_NOT_APPLIED;
2395 }
2396
2397 // 0x47 SexModifier
2398 int fx_sex_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2399 {
2400         if (0) printf( "fx_sex_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2401         ieDword value;
2402         if (fx->Parameter2) {
2403                 value = fx->Parameter1;
2404         } else {
2405                 if (STAT_GET(IE_SEX_CHANGED)) {
2406                         return FX_NOT_APPLIED;
2407                 }
2408                 STAT_SET( IE_SEX_CHANGED, 1);
2409                 value = STAT_GET(IE_SEX);
2410                 if (value==SEX_MALE) {
2411                         value = SEX_FEMALE;
2412                 } else {
2413                         value = SEX_MALE;
2414                 }
2415         }
2416         STAT_SET( IE_SEX, value );
2417         return FX_APPLIED;
2418 }
2419
2420 // 0x48 AIIdentifierModifier
2421 int fx_ids_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2422 {
2423         if (0) printf( "fx_ids_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2424         switch (fx->Parameter2) {
2425         case 0:
2426                 STAT_SET(IE_EA, fx->Parameter1);
2427                 break;
2428         case 1:
2429                 STAT_SET(IE_GENERAL, fx->Parameter1);
2430                 break;
2431         case 2:
2432                 STAT_SET(IE_RACE, fx->Parameter1);
2433                 break;
2434         case 3:
2435                 STAT_SET(IE_CLASS, fx->Parameter1);
2436                 break;
2437         case 4:
2438                 STAT_SET(IE_SPECIFIC, fx->Parameter1);
2439                 break;
2440         case 5:
2441                 STAT_SET(IE_SEX, fx->Parameter1);
2442                 break;
2443         case 6:
2444                 STAT_SET(IE_ALIGNMENT, fx->Parameter1);
2445                 break;
2446         default:
2447                 return FX_NOT_APPLIED;
2448         }
2449         //not sure, need a check if this action could be permanent
2450         return FX_APPLIED;
2451 }
2452
2453 // 0x49 DamageBonusModifier
2454 int fx_damage_bonus_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2455 {
2456         if (0) printf( "fx_damage_bonus_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2457
2458         STAT_MOD( IE_DAMAGEBONUS );
2459         return FX_APPLIED;
2460 }
2461
2462 // 0x4a State:Blind
2463 int fx_set_blind_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2464 {
2465         if (0) printf( "fx_set_blind_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2466
2467         //don't do this effect twice (bug exists in BG2, but fixed in IWD2)
2468         if (!STATE_GET(STATE_BLIND)) {
2469                 STATE_SET( STATE_BLIND );
2470                 //the feat normally exists only in IWD2, but won't hurt
2471                 if (!target->GetFeat(FEAT_BLIND_FIGHT)) {
2472                         STAT_SUB (IE_TOHIT, 10); // all other tohit stats are treated as bonuses
2473                 }
2474         }
2475         return FX_APPLIED;
2476 }
2477
2478 // 0x4b Cure:Blind
2479 static EffectRef fx_set_blind_state_ref={"State:Blind",NULL,-1};
2480
2481 int fx_cure_blind_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2482 {
2483         if (0) printf( "fx_cure_blind_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2484         BASE_STATE_CURE( STATE_BLIND );
2485         target->fxqueue.RemoveAllEffects(fx_set_blind_state_ref);
2486         return FX_NOT_APPLIED;
2487 }
2488
2489 // 0x4c State:Feeblemind
2490 int fx_set_feebleminded_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2491 {
2492         if (0) printf( "fx_set_feebleminded_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2493         STATE_SET( STATE_FEEBLE );
2494         STAT_SET( IE_INT, 3);
2495         if (enhanced_effects) {
2496                 target->AddPortraitIcon(PI_FEEBLEMIND);
2497         }
2498         return FX_APPLIED;
2499 }
2500
2501 // 0x4d Cure:Feeblemind
2502 static EffectRef fx_set_feebleminded_state_ref={"State:Feeblemind",NULL,-1};
2503
2504 int fx_cure_feebleminded_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2505 {
2506         if (0) printf( "fx_cure_feebleminded_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2507         BASE_STATE_CURE( STATE_FEEBLE );
2508         target->fxqueue.RemoveAllEffects(fx_set_feebleminded_state_ref);
2509         target->fxqueue.RemoveAllEffectsWithParam(fx_display_portrait_icon_ref, PI_FEEBLEMIND);
2510         return FX_NOT_APPLIED;
2511 }
2512
2513 // 0x4e State:Diseased
2514 int fx_set_diseased_state (Scriptable* Owner, Actor* target, Effect* fx)
2515 {
2516         if (0) printf( "fx_set_diseased_state (%2d): Damage: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2517         if (STATE_GET(STATE_DEAD|STATE_PETRIFIED|STATE_FROZEN) ) {
2518                 return FX_NOT_APPLIED;
2519         }
2520
2521         //setting damage to 0 because not all types do damage
2522         ieDword damage = 0;
2523
2524         HandlePercentageDamage(fx, target);
2525
2526         switch(fx->Parameter2) {
2527         case RPD_SECONDS:
2528                 damage = 1;
2529                 if (fx->Parameter1 && (core->GetGame()->GameTime%(fx->Parameter1*AI_UPDATE_TIME))) {
2530                         return FX_APPLIED;
2531                 }
2532                 break;
2533         case RPD_PERCENT: // handled in HandlePercentageDamage
2534         case RPD_POINTS:
2535                 damage = fx->Parameter1;
2536                 // per second
2537                 if (core->GetGame()->GameTime%AI_UPDATE_TIME) {
2538                         return FX_APPLIED;
2539                 }
2540                 break;
2541         case RPD_STR: //strength
2542                 STAT_ADD(IE_STR, fx->Parameter1);
2543                 break;
2544         case RPD_DEX: //dex
2545                 STAT_ADD(IE_DEX, fx->Parameter1);
2546                 break;
2547         case RPD_CON: //con
2548                 STAT_ADD(IE_CON, fx->Parameter1);
2549                 break;
2550         case RPD_INT: //int
2551                 STAT_ADD(IE_INT, fx->Parameter1);
2552                 break;
2553         case RPD_WIS: //wis
2554                 STAT_ADD(IE_WIS, fx->Parameter1);
2555                 break;
2556         case RPD_CHA: //cha
2557                 STAT_ADD(IE_CHR, fx->Parameter1);
2558                 break;
2559         case RPD_SLOW: //slow
2560                 break;
2561         default:
2562                 damage = 1;
2563                 break;
2564         }
2565         //percent
2566         Scriptable *caster = GetCaster(Owner, fx);
2567
2568         if (damage) {
2569                 target->Damage(damage, DAMAGE_POISON, caster);
2570         }
2571         return FX_APPLIED;
2572 }
2573
2574
2575 // 0x4f Cure:Disease
2576 static EffectRef fx_diseased_state_ref={"State:Diseased",NULL,-1};
2577
2578 int fx_cure_diseased_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2579 {
2580         if (0) printf( "fx_cure_diseased_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2581         //STATE_CURE( STATE_DISEASED ); //the bit flagged as disease is actually the active state. so this is even more unlikely to be used as advertised
2582         target->fxqueue.RemoveAllEffects( fx_diseased_state_ref ); //this is what actually happens in bg2
2583         return FX_NOT_APPLIED;
2584 }
2585
2586 // 0x50 State:Deafness
2587 // gemrb extension: modifiable amount
2588 // none of the engines care about stacking
2589 int fx_set_deaf_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2590 {
2591         if (0) printf( "fx_set_deaf_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2592
2593         //gemrb fix
2594         if (target->SetSpellState(SS_DEAF)) return FX_APPLIED;
2595
2596         if (!fx->Parameter1) {
2597                 fx->Parameter1 = 50;
2598         }
2599         STAT_ADD(IE_SPELLFAILUREMAGE, fx->Parameter1);
2600         if (!fx->Parameter2) {
2601                 fx->Parameter1 = 50;
2602         }
2603         STAT_ADD(IE_SPELLFAILUREPRIEST, fx->Parameter2);
2604         EXTSTATE_SET(EXTSTATE_DEAF); //iwd1/how needs this
2605         if (enhanced_effects) {
2606                 target->AddPortraitIcon(PI_DEAFNESS);
2607         }
2608         return FX_APPLIED;
2609 }
2610
2611 int fx_set_deaf_state_iwd2 (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2612 {
2613         if (0) printf( "fx_set_deaf_state_iwd2 (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2614
2615         //gemrb fix
2616         if (target->SetSpellState(SS_DEAF)) return FX_APPLIED;
2617
2618         if (!fx->Parameter1) {
2619                 //this is a bad hack
2620                 fx->Parameter1 = 20;
2621         }
2622         STAT_ADD(IE_SPELLFAILUREMAGE, fx->Parameter1);
2623         if (!fx->Parameter2) {
2624                 fx->Parameter1 = 20;
2625         }
2626         STAT_ADD(IE_SPELLFAILUREPRIEST, fx->Parameter2);
2627         EXTSTATE_SET(EXTSTATE_DEAF); //iwd1/how needs this
2628         target->AddPortraitIcon(PI_DEAFNESS); //iwd2 specific
2629         return FX_APPLIED;
2630 }
2631
2632 // 0x51 Cure:Deafness
2633 static EffectRef fx_deaf_state_ref={"State:Deafness",NULL,-1};
2634 static EffectRef fx_deaf_state_iwd2_ref={"State:DeafnessIWD2",NULL,-1};
2635
2636 //removes the deafness effect
2637 int fx_cure_deaf_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2638 {
2639         if (0) printf( "fx_cure_deaf_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2640
2641         target->fxqueue.RemoveAllEffects(fx_deaf_state_ref);
2642         target->fxqueue.RemoveAllEffects(fx_deaf_state_iwd2_ref);
2643         return FX_NOT_APPLIED;
2644 }
2645
2646 // 0x52 SetAIScript
2647 int fx_set_ai_script (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2648 {
2649         if (0) printf( "fx_set_ai_state (%2d): Resource: %s, Type: %d\n", fx->Opcode, fx->Resource, fx->Parameter2 );
2650         target->SetScript (fx->Resource, fx->Parameter2);
2651         return FX_NOT_APPLIED;
2652 }
2653
2654 // 0x53 Protection:Projectile
2655 int fx_protection_from_projectile (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2656 {
2657         if (0) printf( "fx_protection_from_projectile (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
2658         STAT_BIT_OR( IE_IMMUNITY, IMM_PROJECTILE);
2659         return FX_APPLIED;
2660 }
2661
2662 // 0x54 MagicalFireResistanceModifier
2663 int fx_magical_fire_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2664 {
2665         if (0) printf( "fx_magical_fire_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2666
2667         STAT_MOD( IE_RESISTMAGICFIRE );
2668         return FX_APPLIED;
2669 }
2670
2671 // 0x55 MagicalColdResistanceModifier
2672 int fx_magical_cold_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2673 {
2674         if (0) printf( "fx_magical_cold_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2675
2676         STAT_MOD( IE_RESISTMAGICCOLD );
2677         return FX_APPLIED;
2678 }
2679
2680 // 0x56 SlashingResistanceModifier
2681 int fx_slashing_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2682 {
2683         if (0) printf( "fx_slashing_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2684
2685         STAT_MOD( IE_RESISTSLASHING );
2686         return FX_APPLIED;
2687 }
2688
2689 // 0x57 CrushingResistanceModifier
2690 int fx_crushing_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2691 {
2692         if (0) printf( "fx_crushing_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2693
2694         STAT_MOD( IE_RESISTCRUSHING );
2695         return FX_APPLIED;
2696 }
2697
2698 // 0x58 PiercingResistanceModifier
2699 int fx_piercing_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2700 {
2701         if (0) printf( "fx_piercing_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2702
2703         STAT_MOD( IE_RESISTPIERCING );
2704         return FX_APPLIED;
2705 }
2706
2707 // 0x59 MissilesResistanceModifier
2708 int fx_missiles_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2709 {
2710         if (0) printf( "fx_missiles_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2711
2712         STAT_MOD( IE_RESISTMISSILE );
2713         return FX_APPLIED;
2714 }
2715
2716 // 0x5A OpenLocksModifier
2717 int fx_open_locks_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2718 {
2719         if (0) printf( "fx_open_locks_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2720
2721         STAT_MOD( IE_LOCKPICKING );
2722         return FX_APPLIED;
2723 }
2724
2725 // 0x5B FindTrapsModifier
2726 int fx_find_traps_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2727 {
2728         if (0) printf( "fx_find_traps_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2729
2730         STAT_MOD( IE_TRAPS );
2731         return FX_APPLIED;
2732 }
2733
2734 // 0x5C PickPocketsModifier
2735 int fx_pick_pockets_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2736 {
2737         if (0) printf( "fx_pick_pockets_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2738
2739         STAT_MOD( IE_PICKPOCKET );
2740         return FX_APPLIED;
2741 }
2742
2743 // 0x5D FatigueModifier
2744 int fx_fatigue_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2745 {
2746         if (0) printf( "fx_fatigue_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2747
2748         STAT_MOD( IE_FATIGUE );
2749         // TODO: fatigue has a negative effect on luck -> add fatigmod.2da support
2750         return FX_APPLIED;
2751 }
2752
2753 // 0x5E IntoxicationModifier
2754 int fx_intoxication_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2755 {
2756         if (0) printf( "fx_intoxication_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2757
2758         STAT_MOD( IE_INTOXICATION );
2759         return FX_APPLIED;
2760 }
2761
2762 // 0x5F TrackingModifier
2763 int fx_tracking_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2764 {
2765         if (0) printf( "fx_tracking_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2766
2767         STAT_MOD( IE_TRACKING );
2768         return FX_APPLIED;
2769 }
2770
2771 // 0x60 LevelModifier
2772 int fx_level_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2773 {
2774         if (0) printf( "fx_level_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2775
2776         STAT_MOD( IE_LEVEL );
2777         return FX_APPLIED;
2778 }
2779
2780 // 0x61 StrengthBonusModifier
2781 int fx_strength_bonus_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2782 {
2783         if (0) printf( "fx_strength_bonus_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2784
2785         STAT_MOD( IE_STREXTRA );
2786         return FX_APPLIED;
2787 }
2788
2789 // 0x62 State:Regenerating
2790 int fx_set_regenerating_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2791 {
2792         if (0) printf( "fx_set_regenerating_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2793         int damage;
2794         int tmp = fx->Parameter1;
2795         ieDword gameTime = core->GetGame()->GameTime;
2796         ieDword nextHeal;
2797
2798         if (!fx->Parameter3) {
2799                 //hack to ensure our first call gets through
2800                 nextHeal = gameTime-1;
2801         } else {
2802                 nextHeal = fx->Parameter3;
2803         }
2804
2805         //we can have multiple calls at the same gameTime, so we
2806         //just go to gameTime+1 to ensure one call
2807         if (nextHeal>=gameTime) return FX_APPLIED;
2808
2809         HandlePercentageDamage(fx, target);
2810
2811         switch(fx->Parameter2) {
2812         case RPD_TURNS:         //restore param3 hp every param1 turns
2813                 tmp *= core->Time.rounds_per_turn;
2814                 //fall
2815         case RPD_ROUNDS:        //restore param3 hp every param1 rounds
2816                 tmp *= core->Time.round_sec;
2817                 //fall
2818         case RPD_SECONDS:       //restore param3 hp every param1 seconds
2819                 fx->Parameter3 = nextHeal + tmp*AI_UPDATE_TIME;
2820                 damage = 1;
2821                 break;
2822         case RPD_PERCENT: // handled in HandlePercentageDamage
2823         case RPD_POINTS:        //restore param1 hp every second? that's crazy!
2824                 damage = fx->Parameter1;
2825                 fx->Parameter3 = nextHeal + AI_UPDATE_TIME;
2826                 break;
2827         default:
2828                 fx->Parameter3 = nextHeal + AI_UPDATE_TIME;
2829                 damage = 1;
2830                 break;
2831         }
2832
2833         //This should take care of the change of the modified stat
2834         //So there is no need to do anything else here other than increasing
2835         //the base current hp
2836         target->NewBase(IE_HITPOINTS, damage, MOD_ADDITIVE);
2837         return FX_APPLIED;
2838 }
2839 // 0x63 SpellDurationModifier
2840 int fx_spell_duration_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2841 {
2842         if (0) printf( "fx_spell_duration_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2843
2844         switch (fx->Parameter2) {
2845                 case 0:
2846                         STAT_SET( IE_SPELLDURATIONMODMAGE, fx->Parameter1);
2847                         break;
2848                 case 1:
2849                         STAT_SET( IE_SPELLDURATIONMODPRIEST, fx->Parameter1);
2850                         break;
2851                 default:
2852                         return FX_NOT_APPLIED;
2853         }
2854         return FX_APPLIED;
2855 }
2856 // 0x64 Protection:Creature
2857 int fx_generic_effect (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
2858 {
2859         if (0) printf( "fx_generic_effect (%2d): Param1: %d, Param2: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2860         return FX_APPLIED;
2861 }
2862
2863 // 0x65 Protection:Opcode
2864 int fx_protection_opcode (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2865 {
2866         if (0) printf( "fx_protection_opcode (%2d): Opcode: %d\n", fx->Opcode, fx->Parameter2 );
2867         STAT_BIT_OR(IE_IMMUNITY, IMM_OPCODE);
2868         return FX_APPLIED;
2869 }
2870
2871 // 0x66 Protection:SpellLevel
2872 int fx_protection_spelllevel (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2873 {
2874         if (0) printf( "fx_protection_spelllevel (%2d) Level: %d\n", fx->Opcode, fx->Parameter1);
2875
2876         int value = fx->Parameter1;
2877         if (value<9) {
2878                 STAT_BIT_OR(IE_MINORGLOBE, 1<<value);
2879                 STAT_BIT_OR(IE_IMMUNITY, IMM_LEVEL);
2880                 return FX_APPLIED;
2881         }
2882         return FX_NOT_APPLIED;
2883 }
2884
2885 // 0x67 ChangeName
2886 int fx_change_name (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2887 {
2888         if (0) printf( "fx_change_name_modifier (%2d): StrRef: %d\n", fx->Opcode, fx->Parameter1 );
2889         target->SetName(fx->Parameter1, 0);
2890         return FX_NOT_APPLIED;
2891 }
2892
2893 // 0x68 ExperienceModifier
2894 int fx_experience_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2895 {
2896         if (0) printf( "fx_experience_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2897         //i believe this has mode too
2898         target->AddExperience (fx->Parameter1);
2899         return FX_NOT_APPLIED;
2900 }
2901
2902 // 0x69 GoldModifier
2903 //in BG2 this effect subtracts gold when type is MOD_ADDITIVE
2904 //no one uses it, though. To keep the function, the default branch will do the subtraction
2905 int fx_gold_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2906 {
2907         if (0) printf( "fx_gold_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2908         if (!target->InParty) {
2909                 STAT_MOD( IE_GOLD );
2910                 return FX_NOT_APPLIED;
2911         }
2912         ieDword gold;
2913         Game *game = core->GetGame();
2914         //for party members, the gold is stored in the game object
2915         switch( fx->Parameter2) {
2916                 case MOD_ADDITIVE:
2917                         gold = fx->Parameter1;
2918                         break;
2919                 case MOD_ABSOLUTE:
2920                         gold = fx->Parameter1-game->PartyGold;
2921                         break;
2922                 case MOD_PERCENT:
2923                         gold = game->PartyGold*fx->Parameter1/100-game->PartyGold;
2924                         break;
2925                 default:
2926                         gold = (ieDword) -fx->Parameter1;
2927                         break;
2928         }
2929         game->AddGold (gold);
2930         return FX_NOT_APPLIED;
2931 }
2932
2933 // 0x6a MoraleBreakModifier
2934 int fx_morale_break_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2935 {
2936         if (0) printf( "fx_morale_break_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2937         STAT_MOD(IE_MORALEBREAK);
2938         return FX_PERMANENT; //permanent morale break doesn't stick
2939 }
2940
2941 // 0x6b PortraitChange
2942 int fx_portrait_change (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2943 {
2944         if (0) printf( "fx_portrait_change (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2945         target->SetPortrait( fx->Resource, fx->Parameter2);
2946         return FX_NOT_APPLIED;
2947 }
2948
2949 // 0x6c ReputationModifier
2950 int fx_reputation_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2951 {
2952         if (0) printf( "fx_reputation_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
2953         STAT_MOD(IE_REPUTATION);
2954         return FX_NOT_APPLIED; //needs testing
2955 }
2956
2957 // 0x6d --> see later
2958
2959 // 0x6e works only in PST, reused for turning undead
2960
2961 // 0x6f Item:CreateMagic
2962
2963 static EffectRef fx_remove_item_ref={"Item:Remove",NULL,-1};
2964
2965 int fx_create_magic_item (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2966 {
2967         //charge count is incorrect
2968         target->inventory.SetSlotItemRes(fx->Resource, target->inventory.GetMagicSlot(),fx->Parameter1,fx->Parameter3,fx->Parameter4);
2969         //equip the weapon
2970         target->inventory.SetEquippedSlot(target->inventory.GetMagicSlot()-target->inventory.GetWeaponSlot(), 0);
2971         if ((fx->TimingMode&0xff) == FX_DURATION_INSTANT_LIMITED) {
2972                 //if this effect has expiration, then it will remain as a remove_item
2973                 //on the effect queue, inheriting all the parameters
2974                 fx->Opcode=EffectQueue::ResolveEffect(fx_remove_item_ref);
2975                 fx->TimingMode=FX_DURATION_DELAY_PERMANENT;
2976                 return FX_APPLIED;
2977         }
2978         return FX_NOT_APPLIED;
2979 }
2980
2981 // 0x70 Item:Remove
2982 int fx_remove_item (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2983 {
2984         //will destroy the first item
2985         if (target->inventory.DestroyItem(fx->Resource,0,1)) {
2986                 target->ReinitQuickSlots();
2987         }
2988         return FX_NOT_APPLIED;
2989 }
2990
2991 // 0x71 Item:Equip
2992 int fx_equip_item (Scriptable* /*Owner*/, Actor* target, Effect* fx)
2993 {
2994         int eff = core->QuerySlotEffects( fx->Parameter2 );
2995         switch(eff) {
2996         case SLOT_EFFECT_NONE:
2997         case SLOT_EFFECT_MELEE:
2998                 target->inventory.SetEquippedSlot( fx->Parameter2, fx->Parameter1 );
2999                 break;
3000         default:
3001                 target->inventory.EquipItem( fx->Parameter2 );
3002                 break;
3003         }
3004         target->ReinitQuickSlots();
3005         return FX_NOT_APPLIED;
3006 }
3007
3008 // 0x72 Dither
3009 int fx_dither (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
3010 {
3011         if (0) printf( "fx_dither (%2d): Value: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3012         //this effect doesn't work in any engine versions
3013         return FX_NOT_APPLIED;
3014 }
3015
3016 // 0x73 DetectAlignment
3017 //gemrb extension: chaotic/lawful detection
3018 int fx_detect_alignment (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3019 {
3020         ieDword msk;
3021         ieDword stat;
3022         static int ge[] = {AL_EVIL, AL_GE_NEUTRAL, AL_GOOD, AL_CHAOTIC, AL_LC_NEUTRAL, AL_LAWFUL};
3023
3024         msk = ge[fx->Parameter2];
3025         if (fx->Parameter2<3) {
3026                 //0,1,2 -> 3,2,1
3027                 stat = target->GetStat(IE_ALIGNMENT)&AL_GE_MASK;
3028         }
3029         else {
3030                 //3,4,5 -> 0x30, 0x20, 0x10
3031                 stat = target->GetStat(IE_ALIGNMENT)&AL_LC_MASK;
3032         }
3033         if (stat != msk) return FX_NOT_APPLIED;
3034
3035         ieDword color = fx->Parameter1;
3036         switch (msk) {
3037         case AL_EVIL:
3038                 if (!color) color = 0xff0000;
3039                 displaymsg->DisplayConstantStringName(STR_EVIL, color, target);
3040                 //glow red
3041                 target->SetColorMod(0xff, RGBModifier::ADD, 30, 0xff, 0, 0, 0);
3042                 break;
3043         case AL_GOOD:
3044                 if (!color) color = 0xff00;
3045                 displaymsg->DisplayConstantStringName(STR_GOOD, color, target);
3046                 //glow green
3047                 target->SetColorMod(0xff, RGBModifier::ADD, 30, 0, 0xff, 0, 0);
3048                 break;
3049         case AL_GE_NEUTRAL:
3050                 if (!color) color = 0xff;
3051                 displaymsg->DisplayConstantStringName(STR_GE_NEUTRAL, color, target);
3052                 //glow blue
3053                 target->SetColorMod(0xff, RGBModifier::ADD, 30, 0, 0, 0xff, 0);
3054                 break;
3055         case AL_CHAOTIC:
3056                 if (!color) color = 0xff00ff;
3057                 displaymsg->DisplayConstantStringName(STR_CHAOTIC, color, target);
3058                 //glow purple
3059                 target->SetColorMod(0xff, RGBModifier::ADD, 30, 0xff, 0, 0xff, 0);
3060                 break;
3061         case AL_LAWFUL:
3062                 if (!color) color = 0xffffff;
3063                 displaymsg->DisplayConstantStringName(STR_LAWFUL, color, target);
3064                 //glow white
3065                 target->SetColorMod(0xff, RGBModifier::ADD, 30, 0xff, 0xff, 0xff, 0);
3066                 break;
3067         case AL_LC_NEUTRAL:
3068                 if (!color) color = 0xff;
3069                 displaymsg->DisplayConstantStringName(STR_LC_NEUTRAL, color, target);
3070                 //glow blue
3071                 target->SetColorMod(0xff, RGBModifier::ADD, 30, 0, 0, 0xff, 0);
3072                 break;
3073         }
3074         return FX_NOT_APPLIED;
3075 }
3076
3077 // 0x74 Cure:Invisible2 (see 0x2f)
3078
3079 // 0x75 Reveal:Area
3080 // 0 reveal whole area
3081 // 1 reveal area in pattern
3082 int fx_reveal_area (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3083 {
3084         if (0) printf( "fx_reveal_area (%2d): Value: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3085         Map *map = target->GetCurrentArea();
3086         if (!map) {
3087                 return FX_APPLIED;
3088         }
3089
3090         if (fx->Parameter2) {
3091                 map->Explore(fx->Parameter1);
3092         } else {
3093                 map->Explore(-1);
3094         }
3095         return FX_NOT_APPLIED;
3096 }
3097
3098 // 0x76 Reveal:Creatures
3099 int fx_reveal_creatures (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
3100 {
3101         if (0) printf( "fx_reveal_creatures (%2d): Value: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3102         //reveals creatures (not working in original IE)
3103         return FX_NOT_APPLIED;
3104 }
3105
3106 // 0x77 MirrorImage
3107 static EffectRef fx_mirror_image_modifier_ref={"MirrorImageModifier",NULL,-1};
3108
3109 int fx_mirror_image (Scriptable* Owner, Actor* target, Effect* fx)
3110 {
3111         if (0) printf( "fx_mirror_image (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3112         ieDword images;
3113
3114         if (fx->Parameter2) {
3115                 images = 1; //reflection
3116         }
3117         else {
3118                 // the original uses only IE_LEVEL, but that can be awefully bad in
3119                 // the case of dual- and multiclasses
3120                 unsigned int level = target->GetMageLevel();
3121                 if (!level) level = target->GetSorcererLevel();
3122                 if (!level) level = target->GetBardLevel();
3123                 if (!level) level = target->GetStat(IE_LEVEL);
3124                 // 2-8 mirror images
3125                 images = level/3 + 2;
3126                 if (images > 8) images = 8;
3127         }
3128
3129         Effect *fx2 = target->fxqueue.HasEffect(fx_mirror_image_modifier_ref);
3130         if (fx2) {
3131                 //update old effect with our numbers if our numbers are more
3132                 if (fx2->Parameter1<images) {
3133                         fx2->Parameter1=images;
3134                 }
3135                 if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT) {
3136                         fx2->TimingMode = FX_DURATION_INSTANT_PERMANENT;
3137                 }
3138                 return FX_NOT_APPLIED;
3139         }
3140         fx->Opcode = EffectQueue::ResolveEffect(fx_mirror_image_modifier_ref);
3141         fx->Parameter1=images;
3142         //parameter2 could be 0 or 1 (mirror image or reflection)
3143         //execute the translated effect
3144         return fx_mirror_image_modifier(Owner, target, fx);
3145 }
3146
3147 // 0x78 Protection:Weapons
3148 int fx_immune_to_weapon (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
3149 {
3150         if (0) printf( "fx_immune_to_weapon (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3151         if (!fx->FirstApply) return FX_APPLIED;
3152
3153         int level;
3154         ieDword mask, value;
3155
3156         level = -1;
3157         mask = 0;
3158         value = 0;
3159         switch(fx->Parameter2) {
3160         case 0: //enchantment level
3161                 level = fx->Parameter1;
3162                 break;
3163         case 1: //all magical weapons
3164                 value = IE_INV_ITEM_MAGICAL;
3165                 //fallthrough
3166         case 2: //all nonmagical weapons
3167                 mask = IE_INV_ITEM_MAGICAL;
3168                 break;
3169         case 3: //all silver weapons
3170                 value = IE_INV_ITEM_SILVER;
3171                 //fallthrough
3172         case 4: //all non silver weapons
3173                 mask = IE_INV_ITEM_SILVER;
3174                 break;
3175         case 5:
3176                 value = IE_INV_ITEM_SILVER;
3177                 mask = IE_INV_ITEM_SILVER;
3178                 level = 0;
3179                 break;
3180         case 6: //all twohanded
3181                 value = IE_INV_ITEM_TWOHANDED;
3182                 //fallthrough
3183         case 7: //all not twohanded
3184                 mask = IE_INV_ITEM_TWOHANDED;
3185                 break;
3186         case 8: //all twohanded
3187                 value = IE_INV_ITEM_CURSED;
3188                 //fallthrough
3189         case 9: //all not twohanded
3190                 mask = IE_INV_ITEM_CURSED;
3191                 break;
3192         case 10: //all twohanded
3193                 value = IE_INV_ITEM_COLDIRON;
3194                 //fallthrough
3195         case 11: //all not twohanded
3196                 mask = IE_INV_ITEM_COLDIRON;
3197                 break;
3198         case 12:
3199                 mask = fx->Parameter1;
3200         case 13:
3201                 value = fx->Parameter1;
3202                 break;
3203         default:;
3204         }
3205
3206         fx->Parameter1 = (ieDword) level; //putting the corrected value back
3207         fx->Parameter3 = mask;
3208         fx->Parameter4 = value;
3209         return FX_APPLIED;
3210 }
3211
3212 // 0x79 VisualAnimationEffect (unknown)
3213 int fx_visual_animation_effect (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
3214 {
3215 //this is an unknown effect
3216         if (0) printf( "fx_visual_animation_effect (%2d)\n", fx->Opcode );
3217         return FX_NOT_APPLIED;
3218 }
3219
3220 // 0x7a Item:CreateInventory
3221 static EffectRef fx_remove_inventory_item_ref={"Item:RemoveInventory",NULL,-1};
3222
3223 int fx_create_inventory_item (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3224 {
3225         if (0) printf( "fx_create_inventory_item (%2d)\n", fx->Opcode );
3226         target->inventory.AddSlotItemRes( fx->Resource, SLOT_ONLYINVENTORY, fx->Parameter1, fx->Parameter3, fx->Parameter4 );
3227         if ((fx->TimingMode&0xff) == FX_DURATION_INSTANT_LIMITED) {
3228                 //if this effect has expiration, then it will remain as a remove_item
3229                 //on the effect queue, inheriting all the parameters
3230                 fx->Opcode=EffectQueue::ResolveEffect(fx_remove_inventory_item_ref);
3231                 fx->TimingMode=FX_DURATION_DELAY_PERMANENT;
3232                 return FX_APPLIED;
3233         }
3234         return FX_NOT_APPLIED;
3235 }
3236
3237 // 0x7b Item:RemoveInventory
3238 int fx_remove_inventory_item (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3239 {
3240         if (0) printf( "fx_remove_inventory_item (%2d)\n", fx->Opcode );
3241         //FIXME: now equipped items are only wielded weapons
3242         //why would it not let equipped items to be destructed?
3243         target->inventory.DestroyItem(fx->Resource,IE_INV_ITEM_EQUIPPED,1);
3244         return FX_NOT_APPLIED;
3245 }
3246
3247 // 0x7c DimensionDoor
3248 // iwd2 has several options
3249 int fx_dimension_door (Scriptable* Owner, Actor* target, Effect* fx)
3250 {
3251         if (0) printf( "fx_dimension_door (%2d) Type:%d\n", fx->Opcode, fx->Parameter2 );
3252         Point p;
3253
3254         switch(fx->Parameter2)
3255         {
3256         case 0: //target to point
3257                 p.x=fx->PosX;
3258                 p.y=fx->PosY;
3259                 break;
3260         case 1: //owner to target
3261                 if (Owner->Type!=ST_ACTOR) {
3262                         return FX_NOT_APPLIED;
3263                 }
3264                 p=target->Pos;
3265                 target = (Actor *) Owner;
3266                 break;
3267         case 2: //target to saved location
3268                 p.x=STAT_GET(IE_SAVEDXPOS);
3269                 p.x=STAT_GET(IE_SAVEDYPOS);
3270                 target->SetOrientation(STAT_GET(IE_SAVEDFACE), false);
3271                 break;
3272         case 3: //owner swapped with target
3273                 if (Owner->Type!=ST_ACTOR) {
3274                         return FX_NOT_APPLIED;
3275                 }
3276                 p=target->Pos;
3277                 target->SetPosition(Owner->Pos, true, 0);
3278                 target = (Actor *) Owner;
3279                 break;
3280         }
3281         target->SetPosition(p, true, 0 );
3282         return FX_NOT_APPLIED;
3283 }
3284
3285 // 0x7d Unlock
3286 int fx_knock (Scriptable* Owner, Actor* /*target*/, Effect* fx)
3287 {
3288         if (0) printf( "fx_knock (%2d) [%d.%d]\n", fx->Opcode, fx->PosX, fx->PosY );
3289         Map *map = Owner->GetCurrentArea();
3290         if (!map) {
3291                 return FX_NOT_APPLIED;
3292         }
3293         Point p(fx->PosX, fx->PosY);
3294
3295 printf("KNOCK Pos: %d.%d\n", fx->PosX, fx->PosY);
3296         Door *door = map->TMap->GetDoorByPosition(p);
3297         if (door) {
3298 printf("Got a door\n");
3299                 if (door->LockDifficulty<100) {
3300                         door->SetDoorLocked(false, true);
3301                 }
3302                 return FX_NOT_APPLIED;
3303         }
3304         Container *container = map->TMap->GetContainerByPosition(p);
3305         if (container) {
3306 printf("Got a container\n");
3307                 if(container->LockDifficulty<100) {
3308                         container->SetContainerLocked(false);
3309                 }
3310                 return FX_NOT_APPLIED;
3311         }
3312         return FX_NOT_APPLIED;
3313 }
3314
3315 // 0x7e MovementRateModifier
3316 // 0xb0 MovementRateModifier2
3317 int fx_movement_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3318 {
3319         if (0) printf( "fx_movement_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3320
3321         //iwd2 freeaction disables only 0xb0, who cares
3322         if (target->HasSpellState(SS_FREEACTION)) return FX_NOT_APPLIED;
3323         //iwd2 aegis doesn't protect against grease/acid fog slowness, but that is
3324         //definitely a bug
3325         if (target->HasSpellState(SS_AEGIS)) return FX_NOT_APPLIED;
3326
3327         STAT_MOD(IE_MOVEMENTRATE);
3328         return FX_APPLIED;
3329 }
3330
3331 #define FX_MS 10
3332 static const ieResRef monster_summoning_2da[FX_MS]={"MONSUM01","MONSUM02","MONSUM03",
3333  "ANISUM01","ANISUM02", "MONSUM01", "MONSUM02","MONSUM03","ANISUM01","ANISUM02"};
3334
3335 // 0x7f MonsterSummoning
3336 int fx_monster_summoning (Scriptable* Owner, Actor* target, Effect* fx)
3337 {
3338         if (0) printf( "fx_monster_summoning (%2d): Number: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3339         //check the summoning limit?
3340         if (!Owner) {
3341                 return FX_NOT_APPLIED;
3342         }
3343
3344         if (!Owner->GetCurrentArea()) {
3345                 return FX_APPLIED;
3346         }
3347
3348         //get monster resref from 2da determined by fx->Resource or fx->Parameter2
3349         //the only addition to the original engine is that fx->Resource can be
3350         //used to specify a 2da (if parameter2 is >= 10)
3351         ieResRef monster;
3352         ieResRef hit;
3353         ieResRef areahit;
3354         ieResRef table;
3355         int level = fx->Parameter1;
3356
3357         if (fx->Parameter2>=FX_MS) {
3358                 if (fx->Resource[0]) {
3359                         strnuprcpy(table, fx->Resource, 8);
3360                 } else {
3361                         strnuprcpy(table, "ANISUM03", 8);
3362                 }
3363         } else {
3364                 strnuprcpy(table, monster_summoning_2da[fx->Parameter2], 8);
3365         }
3366         core->GetResRefFrom2DA(monster_summoning_2da[fx->Parameter2], monster, hit, areahit);
3367
3368         if (!hit[0]) {
3369                 strnuprcpy(hit,fx->Resource2,8);
3370         }
3371         if (!areahit[0]) {
3372                 strnuprcpy(areahit,fx->Resource3,8);
3373         }
3374
3375         //the monster should appear near the effect position
3376         Point p(fx->PosX, fx->PosY);
3377
3378         Effect *newfx = EffectQueue::CreateUnsummonEffect(fx);
3379         //The hostile flag should cover these cases, all else is arbitrary
3380         //0,1,2,3,4 - friendly to target
3381         //5,6,7,8,9 - hostile to target
3382         //10        - friendly to target
3383
3384         int eamod;
3385         if (fx->Parameter2>=5 && fx->Parameter2<=9) {
3386                 eamod = EAM_ENEMY;
3387         }
3388         else {
3389                 eamod = EAM_ALLY;
3390         }
3391
3392         //caster may be important here (Source), even if currently the EA modifiers
3393         //don't use it
3394         Scriptable *caster = GetCaster(Owner, fx);
3395         core->SummonCreature(monster, hit, caster, target, p, eamod, level, newfx);
3396         delete newfx;
3397         return FX_NOT_APPLIED;
3398 }
3399
3400 // 0x80 State:Confused
3401 int fx_set_confused_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3402 {
3403         if (0) printf( "fx_set_confused_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3404
3405         if (target->HasSpellState(SS_BLOODRAGE)) {
3406                 return FX_NOT_APPLIED;
3407         }
3408
3409         if (fx->TimingMode==FX_DURATION_DELAY_PERMANENT) {
3410                 BASE_STATE_SET( STATE_CONFUSED );
3411         } else {
3412                 STATE_SET( STATE_CONFUSED );
3413         }
3414         //NOTE: iwd2 is also unable to display the portrait icon
3415         //for permanent confusion
3416         if (enhanced_effects) {
3417                 target->AddPortraitIcon(PI_CONFUSED);
3418         }
3419         return FX_PERMANENT;
3420 }
3421
3422 // 0x81 AidNonCumulative
3423 int fx_set_aid_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3424 {
3425         if (0) printf( "fx_set_aid_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3426         if (!fx->Parameter2) {
3427                 fx->Parameter2=core->Roll(fx->Parameter1,8,0);
3428         }
3429         if (STATE_GET (STATE_AID) ) //aid is non cumulative
3430                 return FX_NOT_APPLIED;
3431         STATE_SET( STATE_AID );
3432         target->SetSpellState(SS_AID);
3433         STAT_ADD( IE_MAXHITPOINTS, fx->Parameter2);
3434         //This better happens after increasing maxhitpoints
3435         if (fx->FirstApply) {
3436                 BASE_ADD( IE_HITPOINTS, fx->Parameter1);
3437         }
3438         STAT_ADD( IE_SAVEVSDEATH, fx->Parameter1);
3439         STAT_ADD( IE_SAVEVSWANDS, fx->Parameter1);
3440         STAT_ADD( IE_SAVEVSPOLY, fx->Parameter1);
3441         STAT_ADD( IE_SAVEVSBREATH, fx->Parameter1);
3442         STAT_ADD( IE_SAVEVSSPELL, fx->Parameter1);
3443         //bless effect too?
3444         STAT_ADD( IE_TOHIT, fx->Parameter1);
3445         STAT_ADD( IE_MORALEBREAK, fx->Parameter1);
3446         if (enhanced_effects) {
3447                 target->AddPortraitIcon(PI_AID);
3448                 target->SetColorMod(0xff, RGBModifier::ADD, 30, 50, 50, 50);
3449         }
3450         return FX_APPLIED;
3451 }
3452
3453 // 0x82 BlessNonCumulative
3454
3455 static EffectRef fx_bane_ref={"Bane",NULL,-1};
3456
3457 int fx_set_bless_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3458 {
3459         if (0) printf( "fx_set_bless_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3460
3461         if (STATE_GET (STATE_BLESS) ) //bless is non cumulative
3462                 return FX_NOT_APPLIED;
3463
3464         //do this once
3465         target->fxqueue.RemoveAllEffects(fx_bane_ref);
3466
3467         STATE_SET( STATE_BLESS );
3468         target->SetSpellState(SS_BLESS);
3469         STAT_ADD( IE_TOHIT, fx->Parameter1);
3470         STAT_ADD( IE_MORALEBREAK, fx->Parameter1);
3471         if (enhanced_effects) {
3472                 target->AddPortraitIcon(PI_BLESS);
3473                 target->SetColorMod(0xff, RGBModifier::ADD, 30, 0xc0, 0x80, 0);
3474         }
3475         return FX_APPLIED;
3476 }
3477 // 0x83 ChantNonCumulative
3478 int fx_set_chant_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3479 {
3480         if (0) printf( "fx_set_chant_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3481
3482         if (STATE_GET (STATE_CHANT) ) //chant is non cumulative
3483                 return FX_NOT_APPLIED;
3484         STATE_SET( STATE_CHANT );
3485         target->SetSpellState(SS_GOODCHANT);
3486         STAT_ADD( IE_LUCK, fx->Parameter1 );
3487         return FX_APPLIED;
3488 }
3489
3490 // 0x84 HolyNonCumulative
3491 int fx_set_holy_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3492 {
3493         if (0) printf( "fx_set_holy_state (%2d): Modifier: %d\n", fx->Opcode, fx->Parameter1 );
3494
3495         if (STATE_GET (STATE_HOLY) ) //holy power is non cumulative
3496                 return FX_NOT_APPLIED;
3497         STATE_SET( STATE_HOLY );
3498         //setting the spell state to be compatible with iwd2
3499         target->SetSpellState(SS_HOLYMIGHT);
3500         STAT_ADD( IE_STR, fx->Parameter1);
3501         STAT_ADD( IE_CON, fx->Parameter1);
3502         STAT_ADD( IE_DEX, fx->Parameter1);
3503         if (enhanced_effects) {
3504                 target->AddPortraitIcon(PI_HOLY);
3505                 target->SetColorMod(0xff, RGBModifier::ADD, 30, 0x80, 0x80, 0x80);
3506         }
3507         return FX_APPLIED;
3508 }
3509
3510 // 0x85 LuckNonCumulative
3511 int fx_luck_non_cumulative (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3512 {
3513         if (0) printf( "fx_luck_non_cumulative (%2d): Modifier: %d\n", fx->Opcode, fx->Parameter1);
3514
3515         if (STATE_GET (STATE_LUCK) ) //this luck is non cumulative
3516                 return FX_NOT_APPLIED;
3517         STATE_SET( STATE_LUCK );
3518         target->SetSpellState(SS_LUCK);
3519         STAT_ADD( IE_LUCK, fx->Parameter1 );
3520         STAT_ADD( IE_DAMAGELUCK, fx->Parameter1 );
3521         return FX_APPLIED;
3522 }
3523
3524 // 0x85 LuckCumulative (iwd2)
3525 int fx_luck_cumulative (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3526 {
3527         if (0) printf( "fx_luck_cumulative (%2d): Modifier: %d\n", fx->Opcode, fx->Parameter1);
3528
3529         target->SetSpellState(SS_LUCK);
3530         STAT_ADD( IE_LUCK, fx->Parameter1 );
3531         STAT_ADD( IE_DAMAGELUCK, fx->Parameter1 );
3532         return FX_APPLIED;
3533 }
3534
3535 // 0x86 State:Petrification
3536 int fx_set_petrified_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3537 {
3538         if (0) printf( "fx_set_petrified_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3539
3540         BASE_STATE_SET( STATE_PETRIFIED );
3541         return FX_NOT_APPLIED; //permanent effect
3542 }
3543
3544 // 0x87 Polymorph
3545 static EffectRef fx_polymorph_ref={"Polymorph",NULL,-1};
3546
3547 void CopyPolymorphStats(Actor *source, Actor *target)
3548 {
3549         int i;
3550
3551         if(!polymorph_stats) {
3552                 AutoTable tab("polystat");
3553                 if (!tab) {
3554                         polymorph_stats = (int *) malloc(0);
3555                         polystatcount=0;
3556                         return;
3557                 }
3558                 polystatcount = tab->GetRowCount();
3559                 polymorph_stats=(int *) malloc(sizeof(int)*polystatcount);
3560                 for (i=0;i<polystatcount;i++) {
3561                         polymorph_stats[i]=core->TranslateStat(tab->QueryField(i,0));
3562                 }
3563         }
3564
3565         assert(target->polymorphCache);
3566
3567         if (!target->polymorphCache->stats) {
3568                 target->polymorphCache->stats = new ieDword[polystatcount];
3569         }
3570
3571         for(i=0;i<polystatcount;i++) {
3572                 target->polymorphCache->stats[i] = source->Modified[polymorph_stats[i]];
3573         }
3574 }
3575
3576 int fx_polymorph (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3577 {
3578         if (0) printf( "fx_set_polymorph_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3579
3580         if (!gamedata->Exists(fx->Resource,IE_CRE_CLASS_ID)) {
3581                 //kill all polymorph effects
3582                 target->fxqueue.RemoveAllEffectsWithParam(fx_polymorph_ref, fx->Parameter2);
3583                 //destroy the magic item slot
3584                 target->inventory.RemoveItem(target->inventory.GetMagicSlot() );
3585                 return FX_NOT_APPLIED;
3586         }
3587
3588         // to avoid repeatedly loading the file or keeping all the data around
3589         // wasting memory, we keep a PolymorphCache object around, with only
3590         // the data we need from the polymorphed creature
3591         bool cached = true;
3592         if (!target->polymorphCache) {
3593                 cached = false;
3594                 target->polymorphCache = new PolymorphCache();
3595         }
3596         if (!cached || strnicmp(fx->Resource,target->polymorphCache->Resource,sizeof(fx->Resource))) {
3597                 Actor *newCreature = gamedata->GetCreature(fx->Resource,0);
3598
3599                 //I don't know how could this happen, existance of the resource was already checked
3600                 if (!newCreature) {
3601                         return FX_NOT_APPLIED;
3602                 }
3603
3604                 memcpy(target->polymorphCache->Resource, fx->Resource, sizeof(fx->Resource));
3605                 CopyPolymorphStats(newCreature, target);
3606
3607                 delete newCreature;
3608         }
3609
3610         //copy all polymorphed stats
3611         if(!fx->Parameter2) {
3612                 STAT_SET( IE_POLYMORPHED, 1 );
3613                 //disable mage and cleric spells (see IE_CASTING doc above)
3614                 STAT_BIT_OR(IE_CASTING, 6);
3615                 STAT_BIT_OR(IE_DISABLEDBUTTON, (1<<ACT_CAST)|(1<<ACT_QSPELL1)|(1<<ACT_QSPELL2)|(1<<ACT_QSPELL3) );
3616         }
3617
3618         for(int i=0;i<polystatcount;i++) {
3619                 //copy only the animation ID
3620                 if (fx->Parameter2 && polymorph_stats[i] != IE_ANIMATION_ID) continue;
3621
3622                 target->SetStat(polymorph_stats[i], target->polymorphCache->stats[i], 1);
3623         }
3624
3625         return FX_APPLIED;
3626 }
3627
3628 // 0x88 ForceVisible
3629 int fx_force_visible (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3630 {
3631         if (0) printf( "fx_force_visible (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3632
3633         if (pstflags) {
3634                 BASE_STATE_CURE(STATE_PST_INVIS);
3635         } else {
3636                 BASE_STATE_CURE(STATE_INVISIBLE);
3637         }
3638         target->fxqueue.RemoveAllEffectsWithParam(fx_set_invisible_state_ref,0);
3639         target->fxqueue.RemoveAllEffectsWithParam(fx_set_invisible_state_ref,2);
3640         return FX_NOT_APPLIED;
3641 }
3642
3643 // 0x89 ChantBadNonCumulative
3644 int fx_set_chantbad_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3645 {
3646         if (0) printf( "fx_set_chantbad_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3647
3648         if (STATE_GET (STATE_CHANTBAD) ) //chant is non cumulative
3649                 return FX_NOT_APPLIED;
3650         STATE_SET( STATE_CHANTBAD );
3651         target->SetSpellState(SS_BADCHANT);
3652         STAT_SUB( IE_LUCK, fx->Parameter1 );
3653         return FX_APPLIED;
3654 }
3655
3656 // 0x8A AnimationStateChange
3657 int fx_animation_stance (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3658 {
3659         if (0) printf( "fx_animation_stance (%2d): Stance: %d\n", fx->Opcode, fx->Parameter2 );
3660
3661         //this effect works only on living actors
3662         if ( !STATE_GET(STATE_DEAD) ) {
3663                 target->SetStance(fx->Parameter2);
3664         }
3665         return FX_NOT_APPLIED;
3666 }
3667
3668 // 0x8B DisplayString
3669 // gemrb extension: rgb colour for displaystring
3670 static EffectRef fx_protection_from_display_string_ref={"Protection:String",NULL,-1};
3671
3672 int fx_display_string (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3673 {
3674         if (0) printf( "fx_display_string (%2d): StrRef: %d\n", fx->Opcode, fx->Parameter1 );
3675         if (!target->fxqueue.HasEffectWithParamPair(fx_protection_from_display_string_ref, fx->Parameter1, 0) ) {
3676                 displaymsg->DisplayStringName(fx->Parameter1, fx->Parameter2?fx->Parameter2:0xffffff, target, IE_STR_SOUND|IE_STR_SPEECH);
3677         }
3678         return FX_NOT_APPLIED;
3679 }
3680
3681 // 0x8c CastingGlow
3682 static const int ypos_by_direction[16]={10,10,10,0,-10,-10,-10,-10,-10,-10,-10,-10,0,10,10,10};
3683 static const int xpos_by_direction[16]={0,-10,-12,-14,-16,-14,-12,-10,0,10,12,14,16,14,12,10};
3684
3685 int fx_casting_glow (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3686 {
3687         if (0) printf( "fx_casting_glow (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
3688         if (cgcount<0) {
3689                 cgcount = core->ReadResRefTable("cgtable",casting_glows);
3690         }
3691         //remove effect if map is not loaded
3692         Map *map = target->GetCurrentArea();
3693         if (!map) {
3694                 return FX_NOT_APPLIED;
3695         }
3696
3697         if (fx->Parameter2<(ieDword) cgcount) {
3698                 ScriptedAnimation *sca = gamedata->GetScriptedAnimation(casting_glows[fx->Parameter2], false);
3699                 //remove effect if animation doesn't exist
3700                 if (!sca) {
3701                         return FX_NOT_APPLIED;
3702                 }
3703                 //12 is just an approximate value to set the height of the casting glow
3704                 //based on the avatar's size
3705                 int heightmod = target->GetAnims()->GetCircleSize()*12;
3706                 sca->XPos+=fx->PosX+xpos_by_direction[target->GetOrientation()];
3707                 sca->YPos+=fx->PosY+ypos_by_direction[target->GetOrientation()];
3708                 sca->ZPos+=heightmod;
3709                 sca->SetBlend();
3710                 if (fx->Duration) {
3711                         sca->SetDefaultDuration(fx->Duration-core->GetGame()->GameTime);
3712                 } else {
3713                         sca->SetDefaultDuration(10000);
3714                 }
3715                 map->AddVVCell(sca);
3716         }
3717         return FX_NOT_APPLIED;
3718 }
3719
3720 //0x8d VisualSpellHit
3721 int fx_visual_spell_hit (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3722 {
3723         if (0) printf( "fx_visual_spell_hit (%2d): Target: %d Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
3724         if (shcount<0) {
3725                 shcount = core->ReadResRefTable("shtable",spell_hits);
3726         }
3727         //remove effect if map is not loaded
3728         Map *map = target->GetCurrentArea();
3729         if (!map) {
3730                 return FX_NOT_APPLIED;
3731         }
3732         if (fx->Parameter2<(ieDword) shcount) {
3733                 ScriptedAnimation *sca = gamedata->GetScriptedAnimation(spell_hits[fx->Parameter2], false);
3734                 //remove effect if animation doesn't exist
3735                 if (!sca) {
3736                         return FX_NOT_APPLIED;
3737                 }
3738                 if (fx->Parameter1) {
3739                         sca->XPos+=target->Pos.x;
3740                         sca->YPos+=target->Pos.y;
3741                 } else {
3742                         sca->XPos+=fx->PosX;
3743                         sca->YPos+=fx->PosY;
3744                 }
3745                 if (fx->Parameter2<32) {
3746                         int tmp = fx->Parameter2>>2;
3747                         if (tmp) {
3748                                 sca->SetFullPalette(tmp);
3749                         }
3750                 }
3751                 sca->SetBlend();
3752                 sca->PlayOnce();
3753                 map->AddVVCell(sca);
3754         } else {
3755                 printf("fx_visual_spell_hit: Unhandled Type: %d\n", fx->Parameter2);
3756         }
3757         return FX_NOT_APPLIED;
3758 }
3759
3760 //0x8e Icon:Display
3761 int fx_display_portrait_icon (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3762 {
3763         if (0) printf( "fx_display_string (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
3764         target->AddPortraitIcon(fx->Parameter2);
3765         return FX_APPLIED;
3766 }
3767
3768 //0x8f Item:CreateInSlot
3769 int fx_create_item_in_slot (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3770 {
3771         if (0) printf( "fx_create_item_in_slot (%2d): Button: %d\n", fx->Opcode, fx->Parameter2 );
3772         //create item and set it in target's slot
3773         target->inventory.SetSlotItemRes( fx->Resource, core->QuerySlot(fx->Parameter2), fx->Parameter1, fx->Parameter3, fx->Parameter4 );
3774         if ((fx->TimingMode&0xff) == FX_DURATION_INSTANT_LIMITED) {
3775                 //convert it to a destroy item
3776                 fx->Opcode=EffectQueue::ResolveEffect(fx_remove_item_ref);
3777                 fx->TimingMode=FX_DURATION_DELAY_PERMANENT;
3778                 return FX_APPLIED;
3779         }
3780         return FX_NOT_APPLIED;
3781 }
3782
3783 // 0x90 DisableButton
3784 // different in iwd2 and the rest (maybe also in how: 0-7?)
3785 int fx_disable_button (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3786 {
3787         if (0) printf( "fx_disable_button (%2d): Button: %d\n", fx->Opcode, fx->Parameter2 );
3788
3789         // iwd2 has a flexible action bar, so there are more possible parameter values
3790         // only values 0-5 match the bg2 constants (which map to ACT_*)
3791         // FIXME: support disabling all iwd2 buttons
3792         if (target->spellbook.IsIWDSpellBook()) {
3793                 if (fx->Parameter2 < 6) STAT_BIT_OR( IE_DISABLEDBUTTON, 1<<fx->Parameter2 );
3794         } else {
3795                 STAT_BIT_OR( IE_DISABLEDBUTTON, 1<<fx->Parameter2 );
3796         }
3797
3798         if (fx->FirstApply && target->GetStat(IE_EA) < EA_CONTROLLABLE) {
3799                 core->SetEventFlag(EF_ACTION);
3800         }
3801         return FX_APPLIED;
3802 }
3803
3804 //0x91 DisableSpellCasting
3805 //bg2:  (-1 item), 0 - mage, 1 - cleric, 2 - innate, 3 - class
3806 //iwd2: (-1 item), 0 - all, 1 - mage+cleric, 2 - mage, 3 - cleric , 4 - innate,( 5 - class)
3807
3808 /*internal representation of disabled spells in IE_CASTING (bitfield):
3809 1 - items (SPIT)
3810 2 - cleric (SPPR)
3811 4 - mage  (SPWI)
3812 8 - innate (SPIN)
3813 16 - class (SPCL)
3814 */
3815
3816 static ieDword dsc_bits_iwd2[7]={1, 14, 6, 2, 4, 8, 16};
3817 static ieDword dsc_bits_bg2[7]={1, 4, 2, 8, 16, 14, 6};
3818 int fx_disable_spellcasting (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3819 {
3820         if (0) printf( "fx_disable_spellcasting (%2d): Button: %d\n", fx->Opcode, fx->Parameter2 );
3821
3822         bool display_warning = false;
3823         ieDword tmp = fx->Parameter2+1;
3824
3825         //IWD2 Style spellbook
3826         if (target->spellbook.IsIWDSpellBook()) {
3827                 switch(fx->Parameter2) {
3828                         case 0: // all
3829                         case 1: // mage and cleric
3830                         case 2: // mage
3831                                 if (target->spellbook.GetKnownSpellsCount(IE_IWD2_SPELL_BARD, 0)) display_warning = true;
3832                                 if (target->spellbook.GetKnownSpellsCount(IE_IWD2_SPELL_SORCEROR, 0)) display_warning = true;
3833                                 if (target->spellbook.GetKnownSpellsCount(IE_IWD2_SPELL_WIZARD, 0)) display_warning = true;
3834                                 break;
3835                 }
3836                 if (tmp<7) {
3837                         STAT_BIT_OR(IE_CASTING, dsc_bits_iwd2[tmp] );
3838                 }
3839         } else { // bg2
3840                 if (fx->Parameter2 == 0) {
3841                         if (target->spellbook.GetKnownSpellsCount(IE_SPELL_TYPE_WIZARD, 0)) display_warning = true;
3842                 }
3843                 //-1->  1 (item)
3844                 //0 ->  4 (mage)
3845                 //1 ->  2 (cleric)
3846                 //2 ->  8 (innate)
3847                 //3 ->  16 (class)
3848                 if (tmp<31) {
3849                         STAT_BIT_OR(IE_CASTING, dsc_bits_bg2[tmp] );
3850                 }
3851         }
3852         if (fx->FirstApply && display_warning && target->GetStat(IE_EA) < EA_CONTROLLABLE) {
3853                 displaymsg->DisplayConstantStringName(STR_DISABLEDMAGE, 0xff0000, target);
3854                 core->SetEventFlag(EF_ACTION);
3855         }
3856         return FX_APPLIED;
3857 }
3858
3859 //0x92 Spell:Cast
3860 int fx_cast_spell (Scriptable* Owner, Actor* target, Effect* fx)
3861 {
3862         if (0) printf( "fx_cast_spell (%2d): Resource:%s Mode: %d\n", fx->Opcode, fx->Resource, fx->Parameter2 );
3863         if (fx->Parameter2) {
3864                 //apply spell on target
3865                 core->ApplySpell(fx->Resource, target, Owner, fx->Power);
3866
3867                 // give feedback: Caster - spellname : target
3868                 char tmp[100];
3869                 Spell *spl = gamedata->GetSpell(fx->Resource);
3870                 if (spl) {
3871                         snprintf(tmp, sizeof(tmp), "%s : %s", core->GetString(spl->SpellName), target->GetName(-1));
3872                         displaymsg->DisplayStringName(tmp, 0xffffff, Owner);
3873                 }
3874         } else {
3875                 //cast spell on target
3876                 Owner->CastSpell(fx->Resource, target, false);
3877                 //actually finish casting (if this is not good enough, use an action???)
3878                 Owner->CastSpellEnd(fx->Resource);
3879         }
3880         return FX_NOT_APPLIED;
3881 }
3882
3883 // 0x93 Spell:Learn
3884 int fx_learn_spell (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3885 {
3886         if (0) printf( "fx_learn_spell (%2d): Resource:%s Mode: %d\n", fx->Opcode, fx->Resource, fx->Parameter2 );
3887         //parameter1 is unused, gemrb lets you to make it not give XP
3888         //probably we should also let this via a game flag if we want
3889         //full compatibility with bg1
3890         target->LearnSpell(fx->Resource, fx->Parameter2^LS_ADDXP);
3891         return FX_NOT_APPLIED;
3892 }
3893 // 0x94 Spell:CastSpellPoint
3894 int fx_cast_spell_point (Scriptable* Owner, Actor* target, Effect* fx)
3895 {
3896         if (0) printf( "fx_cast_spell_point (%2d): Resource:%s Mode: %d\n", fx->Opcode, fx->Resource, fx->Parameter2 );
3897         Owner->CastSpellPoint(fx->Resource, target->Pos, false);
3898         //actually finish casting (if this is not good enough, use an action???)
3899         Owner->CastSpellPointEnd(fx->Resource);
3900         return FX_NOT_APPLIED;
3901 }
3902
3903 // 0x95 Identify
3904 int fx_identify (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3905 {
3906         if (0) printf( "fx_identify (%2d): Resource:%s Mode: %d\n", fx->Opcode, fx->Resource, fx->Parameter2 );
3907         if (target->InParty) {
3908                 BASE_SET (IE_IDENTIFYMODE, 1);
3909                 core->SetEventFlag(EF_IDENTIFY);
3910         }
3911         return FX_NOT_APPLIED;
3912 }
3913 // 0x96 FindTraps
3914 // (actually, in bg2 the effect targets area objects and the range is implemented
3915 // by the inareans projectile) - inanimate, area, no sprite
3916 // TODO: effects should target inanimates using different code
3917 // 0 - detect traps automatically
3918 // 1 - detect traps by skill
3919 // 2 - detect secret doors automatically
3920 // 3 - detect secret doors by luck
3921 int fx_find_traps (Scriptable* /*Owner*/, Actor* target, Effect* fx)
3922 {
3923         if (0) printf( "fx_find_traps (%2d)\n", fx->Opcode );
3924         //reveal trapped containers, doors, triggers that are in the visible range
3925         ieDword range = target->GetStat(IE_VISUALRANGE)*10;
3926         ieDword skill;
3927         bool detecttraps = true;
3928
3929         switch(fx->Parameter2) {
3930                 case 1:
3931                         skill = target->GetStat(IE_TRAPS);
3932                         break; //find traps
3933                 case 3:
3934                         //detect secret doors
3935                         skill = target->LuckyRoll(1,100,0);
3936                         detecttraps = false;
3937                         break;
3938                 case 2:
3939                         detecttraps = false;
3940                 default:
3941                         //automatic find traps
3942                         skill = 256;
3943                         break;
3944         }
3945
3946         TileMap *TMap = target->GetCurrentArea()->TMap;
3947
3948         int Count = 0;
3949         while (true) {
3950                 Door* door = TMap->GetDoor( Count++ );
3951                 if (!door)
3952                         break;
3953                 if (Distance(door->Pos, target->Pos)<range) {
3954                         if (detecttraps) {
3955                         //when was door trap noticed
3956                                 door->DetectTrap(skill);
3957                         }
3958                         door->TryDetectSecret(skill);
3959                 }
3960         }
3961
3962         if (!detecttraps) {
3963                 return FX_NOT_APPLIED;
3964         }
3965
3966         Count = 0;
3967         while (true) {
3968                 Container* container = TMap->GetContainer( Count++ );
3969                 if (!container)
3970                         break;
3971                 if (Distance(container->Pos, target->Pos)<range) {
3972                         //when was door trap noticed
3973                         container->DetectTrap(skill);
3974                 }
3975         }
3976
3977
3978         Count = 0;
3979         while (true) {
3980                 InfoPoint* trap = TMap->GetInfoPoint( Count++ );
3981                 if (!trap)
3982                         break;
3983                 if (Distance(trap->Pos, target->Pos)<range) {
3984                         //when was door trap noticed
3985                         trap->DetectTrap(skill);
3986                 }
3987         }
3988
3989         return FX_NOT_APPLIED;
3990 }
3991
3992 // 0x97 ReplaceCreature
3993 int fx_replace_creature (Scriptable* Owner, Actor* target, Effect *fx)
3994 {
3995         if (0) printf( "fx_replace_creature (%2d): Resource: %s\n", fx->Opcode, fx->Resource );
3996
3997         //this safeguard exists in the original engine too
3998         if (!gamedata->Exists(fx->Resource,IE_CRE_CLASS_ID)) {
3999                 return FX_NOT_APPLIED;
4000         }
4001
4002         //the monster should appear near the effect position? (unsure)
4003         Point p(fx->PosX, fx->PosY);
4004
4005         //remove old creature
4006         switch(fx->Parameter2) {
4007         case 0: //remove silently
4008                 target->DestroySelf();
4009                 break;
4010         case 1: //chunky death
4011                 target->NewBase(IE_HITPOINTS,(ieDword) -100, MOD_ABSOLUTE);
4012                 target->Die(Owner);
4013                 break;
4014         case 2: //normal death
4015                 target->Die(Owner);
4016                 break;
4017         default:;
4018         }
4019         //create replacement; should we be passing the target instead of NULL?
4020         //noooo, don't unsummon replacement creatures! - fuzzie
4021         //Effect *newfx = EffectQueue::CreateUnsummonEffect(fx);
4022         core->SummonCreature(fx->Resource, fx->Resource2, Owner, NULL,p, EAM_DEFAULT,-1, NULL, 0);
4023         //delete newfx;
4024         return FX_NOT_APPLIED;
4025 }
4026
4027 // 0x98 PlayMovie
4028 int fx_play_movie (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
4029 {
4030         if (0) printf( "fx_play_movie (%2d): Resource: %s\n", fx->Opcode, fx->Resource );
4031         core->PlayMovie (fx->Resource);
4032         return FX_NOT_APPLIED;
4033 }
4034 // 0x99 Overlay:Sanctuary
4035 #define ICE_GRADIENT 71
4036
4037 static const ieDword fullwhite[7]={ICE_GRADIENT,ICE_GRADIENT,ICE_GRADIENT,ICE_GRADIENT,ICE_GRADIENT,ICE_GRADIENT,ICE_GRADIENT};
4038
4039 int fx_set_sanctuary_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4040 {
4041         //iwd and bg are a bit different, but we solve the whole stuff in a single opcode
4042         if (0) printf( "fx_set_sanctuary_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4043         if (target->HasSpellState(SS_SANCTUARY)) return FX_NOT_APPLIED;
4044         if (!fx->Parameter2) {
4045                 fx->Parameter2=1;
4046         }
4047         //this effect needs the pcf run immediately
4048         STAT_SET_PCF( IE_SANCTUARY, fx->Parameter2);
4049         //a rare event, but this effect gives more in bg2 than in iwd2
4050         //so we use this flag
4051         if (!enhanced_effects)
4052         {
4053                 target->SetLockedPalette(fullwhite);
4054         }
4055         return FX_APPLIED;
4056 }
4057
4058 // 0x9a Overlay:Entangle
4059 int fx_set_entangle_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4060 {
4061         if (0) printf( "fx_set_entangle_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4062
4063         //iwd2 effects that disable entangle
4064         if (target->HasSpellState(SS_FREEACTION)) return FX_NOT_APPLIED;
4065         if (target->HasSpellState(SS_AEGIS)) return FX_NOT_APPLIED;
4066
4067         if (!fx->Parameter2) {
4068                 fx->Parameter2=1;
4069         }
4070         STAT_SET_PCF( IE_ENTANGLE, fx->Parameter2);
4071         return FX_APPLIED;
4072 }
4073
4074 // 0x9b Overlay:MinorGlobe
4075 int fx_set_minorglobe_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4076 {
4077         if (0) printf( "fx_set_minorglobe_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4078         //the resisted levels are stored in minor globe (bit 2-)
4079         //the globe effect is stored in the first bit
4080         STAT_BIT_OR_PCF( IE_MINORGLOBE, 1);
4081         return FX_APPLIED;
4082 }
4083
4084 // 0x9c Overlay:ShieldGlobe
4085 int fx_set_shieldglobe_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4086 {
4087         if (0) printf( "fx_set_shieldglobe_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4088         //the shield vanishes on dead
4089         if (STATE_GET(STATE_DEAD) ) {
4090                 return FX_NOT_APPLIED;
4091         }
4092         STAT_SET_PCF( IE_SHIELDGLOBE, 1);
4093         return FX_APPLIED;
4094 }
4095
4096 // 0x9d Overlay:Web
4097 int fx_set_web_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4098 {
4099         if (0) printf( "fx_set_web_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4100
4101         //iwd2 effects that disable web
4102         if (target->HasSpellState(SS_FREEACTION)) return FX_NOT_APPLIED;
4103         if (target->HasSpellState(SS_AEGIS)) return FX_NOT_APPLIED;
4104
4105         target->SetSpellState(SS_WEB);
4106         //attack penalty in IWD2
4107         STAT_SET_PCF( IE_WEB, 1);
4108         STAT_SET(IE_MOVEMENTRATE, 0); //
4109         return FX_APPLIED;
4110 }
4111
4112 // 0x9e Overlay:Grease
4113 int fx_set_grease_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4114 {
4115         if (0) printf( "fx_set_grease_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4116
4117         //iwd2 effects that disable grease
4118         if (target->HasSpellState(SS_FREEACTION)) return FX_NOT_APPLIED;
4119         if (target->HasSpellState(SS_AEGIS)) return FX_NOT_APPLIED;
4120
4121         target->SetSpellState(SS_GREASE);
4122         STAT_SET_PCF( IE_GREASE, 1);
4123         //the movement rate is set by separate opcodes in all engines
4124         return FX_APPLIED;
4125 }
4126
4127 // 0x9f MirrorImageModifier
4128 int fx_mirror_image_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4129 {
4130         if (0) printf( "fx_mirror_image_modifier (%2d): Mod: %d\n", fx->Opcode, fx->Parameter1 );
4131         if (STATE_GET(STATE_DEAD) ) {
4132                 return FX_NOT_APPLIED;
4133         }
4134         if (!fx->Parameter1) {
4135                 return FX_NOT_APPLIED;
4136         }
4137         if (pstflags) {
4138                 STATE_SET( STATE_PST_MIRROR );
4139         }
4140         else {
4141                 STATE_SET( STATE_MIRROR );
4142         }
4143         if (fx->Parameter2) {
4144                 target->SetSpellState(SS_REFLECTION);
4145         } else {
4146                 target->SetSpellState(SS_MIRRORIMAGE);
4147         }
4148         //actually, there is no such stat in the original IE
4149         STAT_SET( IE_MIRRORIMAGES, fx->Parameter1);
4150         return FX_APPLIED;
4151 }
4152
4153 // 0xa0 Cure:Sanctuary
4154 static EffectRef fx_sanctuary_state_ref={"Overlay:Sanctuary",NULL,-1};
4155
4156 int fx_cure_sanctuary_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4157 {
4158         if (0) printf( "fx_cure_sanctuary_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4159         STAT_SET( IE_SANCTUARY, 0);
4160         target->fxqueue.RemoveAllEffects(fx_sanctuary_state_ref);
4161         return FX_NOT_APPLIED;
4162 }
4163
4164 // 0xa1 Cure:Panic
4165 static EffectRef fx_set_panic_state_ref={"State:Panic",NULL,-1};
4166
4167 int fx_cure_panic_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4168 {
4169         if (0) printf( "fx_cure_panic_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4170         BASE_STATE_CURE( STATE_PANIC );
4171         target->fxqueue.RemoveAllEffects(fx_set_panic_state_ref);
4172         return FX_NOT_APPLIED;
4173 }
4174
4175 // 0xa2 Cure:Hold
4176 static EffectRef fx_hold_creature_ref={"State:Hold",NULL,-1};
4177
4178 int fx_cure_hold_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4179 {
4180         if (0) printf( "fx_cure_hold_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4181         //note that this effect doesn't remove 185 (another hold effect)
4182         target->fxqueue.RemoveAllEffects( fx_hold_creature_ref );
4183         target->fxqueue.RemoveAllEffects(fx_hold_creature_no_icon_ref);
4184         target->fxqueue.RemoveAllEffectsWithParam(fx_display_portrait_icon_ref, PI_HELD);
4185         return FX_NOT_APPLIED;
4186 }
4187
4188 // 0xa3 FreeAction
4189 static EffectRef fx_movement_modifier_ref={"MovementRateModifier2",NULL,-1};
4190
4191 int fx_cure_slow_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4192 {
4193         if (0) printf( "fx_cure_slow_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4194         target->fxqueue.RemoveAllEffects( fx_movement_modifier_ref );
4195 //      STATE_CURE( STATE_SLOWED );
4196         return FX_NOT_APPLIED;
4197 }
4198
4199 // 0xa4 Cure:Intoxication
4200 static EffectRef fx_intoxication_ref={"IntoxicationModifier",NULL,-1};
4201
4202 int fx_cure_intoxication (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4203 {
4204         if (0) printf( "fx_cure_intoxication (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4205         target->fxqueue.RemoveAllEffects( fx_intoxication_ref );
4206         BASE_SET(IE_INTOXICATION,0);
4207         return FX_NOT_APPLIED;
4208 }
4209
4210 // 0xa5 PauseTarget
4211 int fx_pause_target (Scriptable* /*Owner*/, Actor * target, Effect* fx)
4212 {
4213         if (0) printf( "fx_pause_target (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4214
4215         STAT_MOD( IE_CASTERHOLD );
4216         return FX_PERMANENT;
4217 }
4218
4219 // 0xa6 MagicResistanceModifier
4220 int fx_magic_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4221 {
4222         if (0) printf( "fx_magic_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4223
4224         STAT_MOD( IE_RESISTMAGIC );
4225         return FX_APPLIED;
4226 }
4227
4228 // 0xa7 MissileHitModifier
4229 int fx_missile_to_hit_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4230 {
4231         if (0) printf( "fx_missile_to_hit_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4232
4233         STAT_MOD( IE_MISSILEHITBONUS );
4234         return FX_APPLIED;
4235 }
4236
4237 // 0xa8 RemoveCreature
4238 // removes targeted creature
4239 // removes creature specified by resource key (gemrb extension)
4240 int fx_remove_creature (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4241 {
4242         if (0) printf( "fx_remove_creature (%2d)\n", fx->Opcode);
4243         Map *map = target->GetCurrentArea();
4244         Actor *actor = target;
4245
4246         if (fx->Resource[0]) {
4247                 actor = map->GetActorByResource(fx->Resource);
4248         }
4249
4250         if (actor) {
4251                 //leaveparty will be handled automagically
4252                 //plot critical items are not handled, shall we?
4253                 actor->DestroySelf();
4254         }
4255         return FX_NOT_APPLIED;
4256 }
4257
4258 // 0xa9 Icon:Disable
4259 int fx_disable_portrait_icon (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4260 {
4261         if (0) printf( "fx_disable_portrait_icon (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4262         target->DisablePortraitIcon(fx->Parameter2);
4263         return FX_APPLIED;
4264 }
4265
4266 // 0xaa DamageAnimation
4267 int fx_damage_animation (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4268 {
4269         if (0) printf( "fx_damage_animation (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4270
4271         //Parameter1 is a gemrb extension
4272         target->PlayDamageAnimation(fx->Parameter2, !fx->Parameter1);
4273         return FX_NOT_APPLIED;
4274 }
4275
4276 // 0xab Spell:Add
4277 int fx_add_innate (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4278 {
4279         if (0) printf( "fx_add_innate (%2d): Resource: %s Mode: %d\n", fx->Opcode, fx->Resource, fx->Parameter2 );
4280         target->LearnSpell(fx->Resource, fx->Parameter2^LS_MEMO);
4281         //this is an instant, so it shouldn't stick
4282         return FX_NOT_APPLIED;
4283 }
4284
4285 // 0xac Spell:Remove
4286 //gemrb extension: deplete spell by resref
4287 int fx_remove_spell (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4288 {
4289         if (0) printf( "fx_remove_spell (%2d): Resource: %s Type:%d\n", fx->Opcode, fx->Resource, fx->Parameter2);
4290         switch (fx->Parameter2) {
4291         default:
4292                 target->spellbook.RemoveSpell(fx->Resource);
4293                 break;
4294         case 1: //forget all spells of Resource
4295                 do {} while(target->spellbook.HaveSpell( fx->Resource, HS_DEPLETE ));
4296                 break;
4297         case 2: //forget x spells of resource
4298                 while( fx->Parameter1--) {
4299                         target->spellbook.HaveSpell( fx->Resource, HS_DEPLETE );
4300                 }
4301                 break;
4302         }
4303         //this is an instant, so it shouldn't stick
4304         return FX_NOT_APPLIED;
4305 }
4306
4307 // 0xad PoisonResistanceModifier
4308 int fx_poison_resistance_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4309 {
4310         if (0) printf( "fx_poison_resistance_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4311
4312         STAT_MOD( IE_RESISTPOISON );
4313         return FX_APPLIED;
4314 }
4315
4316 //0xae PlaySound
4317 int fx_playsound (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4318 {
4319         if (0) printf( "fx_playsound (%s)", fx->Resource );
4320         //this is probably inaccurate
4321         if (target) {
4322                 core->GetAudioDrv()->Play(fx->Resource, target->Pos.x, target->Pos.y);
4323         } else {
4324                 core->GetAudioDrv()->Play(fx->Resource);
4325         }
4326         //this is an instant, it shouldn't stick
4327         return FX_NOT_APPLIED;
4328 }
4329
4330 //0x6d State:Hold3
4331 //0xfb State:Hold4
4332 int fx_hold_creature_no_icon (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4333 {
4334         if (0) printf( "fx_hold_creature_no_icon (%2d): Value: %d, IDS: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4335
4336         //actually the original engine just skips this effect if the target is dead
4337         if ( STATE_GET(STATE_DEAD) ) {
4338                 return FX_NOT_APPLIED;
4339         }
4340
4341         if (!EffectQueue::match_ids( target, fx->Parameter2, fx->Parameter1) ) {
4342                 //if the ids don't match, the effect doesn't stick
4343                 return FX_NOT_APPLIED;
4344         }
4345         target->SetSpellState(SS_HELD);
4346         STAT_SET( IE_HELD, 1);
4347         return FX_APPLIED;
4348 }
4349
4350 //0xaf State:Hold
4351 //0xb9 State:Hold2
4352 //(0x6d/0x1a8 for iwd2)
4353 int fx_hold_creature (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4354 {
4355         if (0) printf( "fx_hold_creature (%2d): Value: %d, IDS: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4356
4357         //actually the original engine just skips this effect if the target is dead
4358         if ( STATE_GET(STATE_DEAD) ) {
4359                 return FX_NOT_APPLIED;
4360         }
4361
4362         //iwd2 free action or blood rage disables this effect
4363         if (target->HasSpellState(SS_FREEACTION)) return FX_NOT_APPLIED;
4364         if (target->HasSpellState(SS_BLOODRAGE)) return FX_NOT_APPLIED;
4365         if (target->HasSpellState(SS_AEGIS)) return FX_NOT_APPLIED;
4366
4367         if (!EffectQueue::match_ids( target, fx->Parameter2, fx->Parameter1) ) {
4368                 //if the ids don't match, the effect doesn't stick
4369                 return FX_NOT_APPLIED;
4370         }
4371         target->SetSpellState(SS_HELD);
4372         STAT_SET( IE_HELD, 1);
4373         target->AddPortraitIcon(PI_HELD);
4374         return FX_APPLIED;
4375 }
4376 //0xb0 see: fx_movement_modifier
4377
4378 //0xb1 ApplyEffect
4379 int fx_apply_effect (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4380 {
4381         if (0) printf( "fx_apply_effect (%2d) %s", fx->Opcode, fx->Resource );
4382
4383         //this effect executes a file effect in place of this effect
4384         //the file effect inherits the target and the timingmode, but gets
4385         //a new chance to roll percents
4386         int ret = FX_NOT_APPLIED;
4387         if (!target) {
4388                 return ret;
4389         }
4390         if (EffectQueue::match_ids( target, fx->Parameter2, fx->Parameter1) ) {
4391                 Point p(fx->PosX, fx->PosY);
4392
4393                 //apply effect, if the effect is a goner, then kill
4394                 //this effect too
4395                 Effect *newfx = core->GetEffect(fx->Resource, fx->Power, p);
4396                 if (newfx) {
4397                         Effect *myfx = new Effect;
4398                         memcpy(myfx, newfx, sizeof(Effect));
4399                         myfx->random_value = core->Roll(1,100,-1);
4400                         myfx->Target = FX_TARGET_PRESET;
4401                         myfx->TimingMode = fx->TimingMode;
4402                         myfx->Duration = fx->Duration;
4403                         myfx->CasterID = fx->CasterID;
4404                         ret = target->fxqueue.ApplyEffect(target, myfx, fx->FirstApply, !fx->Parameter3);
4405                         fx->Parameter3 = 1;
4406                         delete myfx;
4407                 }
4408                 //newfx is a borrowed reference don't delete it
4409         }
4410         return ret;
4411 }
4412
4413 //0xb2 hitbonus generic effect ToHitVsCreature
4414 //0xb3 damagebonus generic effect DamageVsCreature
4415 // b4 can't use item (resource) generic effect CantUseItem
4416 // b5 can't use itemtype (resource) generic effect CantUseItemType
4417
4418 // b6 generic effect ApplyEffectItem
4419 int fx_apply_effect_item (Scriptable* Owner, Actor* target, Effect* fx)
4420 {
4421         if (0) printf("fx_apply_effect_item (%2d) (%.8s)\n", fx->Opcode, fx->Resource);
4422         if (target->inventory.HasItem(fx->Resource, 0) ) {
4423                 core->ApplySpell(fx->Resource2, target, Owner, fx->Parameter1);
4424                 return FX_NOT_APPLIED;
4425         }
4426         return FX_APPLIED;
4427 }
4428
4429 // b7 generic effect ApplyEffectItemType
4430 int fx_apply_effect_item_type (Scriptable* Owner, Actor* target, Effect* fx)
4431 {
4432         if (0) printf("fx_apply_effect_item (%2d), Type: %d\n", fx->Opcode, fx->Parameter2);
4433         if (target->inventory.HasItemType(fx->Parameter2) ) {
4434                 core->ApplySpell(fx->Resource, target, Owner, fx->Parameter1);
4435                 return FX_NOT_APPLIED;
4436         }
4437         return FX_APPLIED;
4438 }
4439
4440 // b8 DontJumpModifier
4441 int fx_dontjump_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4442 {
4443         if (0) printf( "fx_dontjump_modifier (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4444         STAT_SET( IE_DONOTJUMP, fx->Parameter2 );
4445         return FX_APPLIED;
4446 }
4447
4448 //0xb9 see above: fx_hold_creature
4449
4450 //0xba MoveToArea
4451 int fx_move_to_area (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4452 {
4453         if (0) printf( "fx_move_to_area (%2d) %s", fx->Opcode, fx->Resource );
4454         //delay effect until the target has finished the previous move to an area
4455         //hopefully this fixes an evil bug
4456         Map *map = target->GetCurrentArea();
4457         if (!map || !map->HasActor(target)) {
4458                 //stay around for the next evaluation
4459                 return FX_APPLIED;
4460         }
4461         Point p(fx->PosX,fx->PosY);
4462         MoveBetweenAreasCore(target, fx->Resource, p, fx->Parameter2, true);
4463         //this effect doesn't stick
4464         return FX_NOT_APPLIED;
4465 }
4466
4467 // 0xbb Variable:StoreLocalVariable
4468 int fx_local_variable (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4469 {
4470         //this is a hack, the variable name spreads across the resources
4471         if (0) printf( "fx_local_variable (%2d) %s=%d", fx->Opcode, fx->Resource, fx->Parameter1 );
4472         target->locals->SetAt(fx->Resource, fx->Parameter1);
4473         //local variable effects are not applied, they will be resaved though
4474         return FX_NOT_APPLIED;
4475 }
4476
4477 // 0xbc AuraCleansingModifier
4478 int fx_auracleansing_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4479 {
4480         if (0) printf( "fx_auracleansing_modifier (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4481         STAT_SET( IE_AURACLEANSING, fx->Parameter2 );
4482         return FX_APPLIED;
4483 }
4484
4485 // 0xbd CastingSpeedModifier
4486 int fx_castingspeed_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4487 {
4488         if (0) printf( "fx_castingspeed_modifier (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4489         STAT_MOD( IE_MENTALSPEED );
4490         return FX_APPLIED;
4491 }
4492
4493 // 0xbe PhysicalSpeedModifier
4494 int fx_attackspeed_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4495 {
4496         if (0) printf( "fx_attackspeed_modifier (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4497         STAT_MOD( IE_PHYSICALSPEED );
4498         return FX_APPLIED;
4499 }
4500
4501 // 0xbf CastingLevelModifier
4502 int fx_castinglevel_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4503 {
4504         if (0) printf( "fx_castinglevel_modifier (%2d) Value:%d Type:%d", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4505         switch (fx->Parameter2) {
4506         case 0:
4507                 STAT_SET( IE_CASTINGLEVELBONUSMAGE, fx->Parameter1 );
4508                 break;
4509         case 1:
4510                 STAT_SET( IE_CASTINGLEVELBONUSCLERIC, fx->Parameter1 );
4511                 break;
4512         default:
4513                 return FX_NOT_APPLIED;
4514         }
4515         return FX_APPLIED;
4516 }
4517
4518 // 0xc0 FindFamiliar
4519 // param2 = 1 alignment is in param1
4520 // param2 = 2 resource used
4521 #define FAMILIAR_NORMAL    0
4522 #define FAMILIAR_ALIGNMENT 1
4523 #define FAMILIAR_RESOURCE  2
4524
4525 static EffectRef fx_familiar_constitution_loss_ref={"FamiliarBond",NULL,-1};
4526 static EffectRef fx_familiar_marker_ref={"FamiliarMarker",NULL,-1};
4527 static EffectRef fx_maximum_hp_modifier_ref={"MaximumHPModifier",NULL,-1};
4528
4529 int fx_find_familiar (Scriptable* Owner, Actor* target, Effect* fx)
4530 {
4531         if (0) printf( "fx_find_familiar (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4532
4533         if (!target) {
4534                 return FX_NOT_APPLIED;
4535         }
4536
4537         if (!target->GetCurrentArea()) {
4538                 return FX_APPLIED;
4539         }
4540
4541         if (fx->Parameter2!=FAMILIAR_RESOURCE) {
4542                 ieDword alignment;
4543
4544                 if (fx->Parameter2==FAMILIAR_ALIGNMENT) {
4545                         alignment = fx->Parameter1;
4546                 } else {
4547                         alignment = target->GetStat(IE_ALIGNMENT);
4548                         alignment = ((alignment&AL_LC_MASK)>>4)*3+(alignment&AL_GE_MASK)-4;
4549                 }
4550                 if (alignment>8) {
4551                         return FX_NOT_APPLIED;
4552                 }
4553                 memcpy(fx->Resource, core->GetGame()->Familiars[alignment],sizeof(ieResRef) );
4554                 fx->Parameter2=FAMILIAR_RESOURCE;
4555         }
4556
4557         //summon familiar with fx->Resource
4558         Actor *fam = gamedata->GetCreature(fx->Resource);
4559         if (!fam) {
4560                 return FX_NOT_APPLIED;
4561         }
4562         fam->SetBase(IE_EA, EA_FAMILIAR);
4563         fam->LastSummoner = Owner->GetGlobalID();
4564
4565         Map *map = target->GetCurrentArea();
4566         map->AddActor(fam);
4567         Point p(fx->PosX, fx->PosY);
4568         fam->SetPosition(p, true, 0);
4569         fam->RefreshEffects(NULL);
4570
4571         if (fx->Resource2[0]) {
4572                 ScriptedAnimation* vvc = gamedata->GetScriptedAnimation(fx->Resource2, false);
4573                 if (vvc) {
4574                         //This is the final position of the summoned creature
4575                         //not the original target point
4576                         vvc->XPos=fam->Pos.x;
4577                         vvc->YPos=fam->Pos.y;
4578                         //force vvc to play only once
4579                         vvc->PlayOnce();
4580                         map->AddVVCell( vvc );
4581                 }
4582         }
4583
4584         //Make the familiar an NPC (MoveGlobal needs this)
4585         core->GetGame()->AddNPC(fam);
4586
4587         //Add some essential effects
4588         Effect *newfx = EffectQueue::CreateEffect(fx_familiar_constitution_loss_ref, fam->GetBase(IE_HITPOINTS)/2, 0, FX_DURATION_INSTANT_PERMANENT);
4589         core->ApplyEffect(newfx, fam, fam);
4590         delete newfx;
4591
4592         newfx = EffectQueue::CreateEffect(fx_familiar_marker_ref, 0, 0, FX_DURATION_INSTANT_PERMANENT);
4593         core->ApplyEffect(newfx, fam, fam);
4594         delete newfx;
4595
4596         //maximum hp bonus of half the familiar's hp
4597         newfx = EffectQueue::CreateEffect(fx_maximum_hp_modifier_ref, fam->GetBase(IE_HITPOINTS)/2, MOD_ADDITIVE, FX_DURATION_INSTANT_PERMANENT);
4598         core->ApplyEffect(newfx, (Actor *) Owner, Owner);
4599         delete newfx;
4600
4601         return FX_NOT_APPLIED;
4602 }
4603
4604 // 0xc1 InvisibleDetection
4605 int fx_see_invisible_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4606 {
4607         if (0) printf( "fx_see_invisible_modifier (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4608         STAT_SET( IE_SEEINVISIBLE, fx->Parameter2 );
4609         return FX_APPLIED;
4610 }
4611
4612 // 0xc2 IgnoreDialogPause
4613 int fx_ignore_dialogpause_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4614 {
4615         if (0) printf( "fx_ignore_dialogpause_modifier (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4616         STAT_SET( IE_IGNOREDIALOGPAUSE, fx->Parameter2 );
4617         return FX_APPLIED;
4618 }
4619
4620 //0xc3 FamiliarBond
4621 //when this effect's target dies it should incur damage on protagonist
4622 static EffectRef fx_damage_opcode_ref={"Damage",NULL,-1};
4623 static EffectRef fx_constitution_modifier_ref={"ConstitutionModifier",NULL,-1};
4624
4625 int fx_familiar_constitution_loss (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4626 {
4627         if (0) printf( "fx_familiar_constitution_loss (%2d): Loss: %d\n", fx->Opcode,(signed) fx->Parameter1 );
4628         if (! (STAT_GET(IE_STATE_ID)&STATE_NOSAVE)) {
4629                 return FX_APPLIED;
4630         }
4631         Effect *newfx;
4632         //familiar died
4633         Actor *master = core->GetGame()->FindPC(1);
4634         if (!master) return FX_NOT_APPLIED;
4635
4636         //lose 1 point of constitution
4637         newfx = EffectQueue::CreateEffect(fx_constitution_modifier_ref, (ieDword) -1, MOD_ADDITIVE, FX_DURATION_INSTANT_PERMANENT);
4638         core->ApplyEffect(newfx, master, master);
4639         delete newfx;
4640
4641         //remove the maximum hp bonus
4642         newfx = EffectQueue::CreateEffect(fx_maximum_hp_modifier_ref, (ieDword) -fx->Parameter1, 3, FX_DURATION_INSTANT_PERMANENT);
4643         core->ApplyEffect(newfx, master, master);
4644         delete newfx;
4645
4646         //damage for half of the familiar's hitpoints
4647         newfx = EffectQueue::CreateEffect(fx_damage_opcode_ref, fx->Parameter1, DAMAGE_CRUSHING, FX_DURATION_INSTANT_PERMANENT);
4648         core->ApplyEffect(newfx, master, master);
4649         delete newfx;
4650
4651         return FX_NOT_APPLIED;
4652 }
4653
4654 //0xc4 FamiliarMarker
4655 int fx_familiar_marker (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4656 {
4657         if (0) printf( "fx_familiar_marker (%2d)\n", fx->Opcode );
4658         if (! (STAT_GET(IE_STATE_ID)&STATE_NOSAVE)) {
4659                 //TODO: where to disable familiar?
4660                 //core->GetGame()->WeatherBits|=1;
4661                 return FX_APPLIED;
4662         }
4663         //TODO: enable familiar?
4664         //core->GetGame()->WeatherBits&=~1;
4665         return FX_NOT_APPLIED;
4666 }
4667
4668 // 0xc5 Bounce:Projectile
4669 int fx_bounce_projectile (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4670 {
4671         if (0) printf( "fx_bounce_projectile (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4672         STAT_BIT_OR( IE_BOUNCE, BNC_PROJECTILE );
4673         return FX_APPLIED;
4674 }
4675
4676 // 0xc6 Bounce:Opcode
4677 int fx_bounce_opcode (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4678 {
4679         if (0) printf( "fx_bounce_opcode (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4680         STAT_BIT_OR( IE_BOUNCE, BNC_OPCODE );
4681         target->AddPortraitIcon(PI_BOUNCE2);
4682         return FX_APPLIED;
4683 }
4684
4685 // 0xc7 Bounce:SpellLevel
4686 int fx_bounce_spelllevel (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4687 {
4688         if (0) printf( "fx_bounce_spellevel (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4689         STAT_BIT_OR( IE_BOUNCE, BNC_LEVEL );
4690         target->AddPortraitIcon(PI_BOUNCE2);
4691         return FX_APPLIED;
4692 }
4693
4694 // 0xc8 Bounce:SpellLevelDec
4695 int fx_bounce_spelllevel_dec (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4696 {
4697         if (0) printf( "fx_bounce_spellevel_dec (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4698         STAT_BIT_OR( IE_BOUNCE, BNC_LEVEL_DEC );
4699         target->AddPortraitIcon(PI_BOUNCE);
4700         return FX_APPLIED;
4701 }
4702
4703 //0xc9 Protection:SpellLevelDec
4704 int fx_protection_spelllevel_dec (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4705 {
4706         if (0) printf( "fx_protection_spelllevel_dec (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4707         STAT_BIT_OR( IE_IMMUNITY, IMM_LEVEL_DEC );
4708         target->AddPortraitIcon(PI_BOUNCE2);
4709         return FX_APPLIED;
4710 }
4711
4712 //0xca Bounce:School
4713 int fx_bounce_school (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4714 {
4715         if (0) printf( "fx_bounce_school (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4716         STAT_BIT_OR( IE_BOUNCE, BNC_SCHOOL );
4717         target->AddPortraitIcon(PI_BOUNCE2);
4718         return FX_APPLIED;
4719 }
4720
4721 // 0xcb Bounce:SecondaryType
4722 int fx_bounce_secondary_type (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4723 {
4724         if (0) printf( "fx_bounce_secondary_type (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4725         STAT_BIT_OR( IE_BOUNCE, BNC_SECTYPE );
4726         target->AddPortraitIcon(PI_BOUNCE2);
4727         return FX_APPLIED;
4728 }
4729
4730 // 0xcc //resist school
4731 int fx_protection_school (Scriptable* /*Owner*/, Actor* target, Effect *fx)
4732 {
4733         if (0) printf( "fx_protection_school (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4734         STAT_BIT_OR( IE_IMMUNITY, IMM_SCHOOL);
4735         return FX_APPLIED;
4736 }
4737
4738 // 0xcd //resist sectype
4739 int fx_protection_secondary_type (Scriptable* /*Owner*/, Actor* target, Effect *fx)
4740 {
4741         if (0) printf( "fx_protection_secondary_type (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4742         STAT_BIT_OR( IE_IMMUNITY, IMM_SECTYPE);
4743         return FX_APPLIED;
4744 }
4745
4746 //0xce Protection:Spell
4747 int fx_resist_spell (Scriptable* /*Owner*/, Actor* target, Effect *fx)
4748 {
4749         if (0) printf( "fx_resist_spell (%2d): Resource: %s\n", fx->Opcode, fx->Resource );
4750         if (strnicmp(fx->Resource,fx->Source,sizeof(fx->Resource)) ) {
4751                 STAT_BIT_OR( IE_IMMUNITY, IMM_RESOURCE);
4752                 return FX_APPLIED;
4753         }
4754         //this has effect only on first apply, it will stop applying the spell
4755         return FX_ABORT;
4756 }
4757
4758 // ??? Protection:SpellDec
4759 int fx_resist_spell_dec (Scriptable* /*Owner*/, Actor* target, Effect *fx)
4760 {
4761         if (0) printf( "fx_resist_spell_dec (%2d): Resource: %s\n", fx->Opcode, fx->Resource );
4762         if (strnicmp(fx->Resource,fx->Source,sizeof(fx->Resource)) ) {
4763                 STAT_BIT_OR( IE_IMMUNITY, IMM_RESOURCE_DEC);
4764                 return FX_APPLIED;
4765         }
4766         //this has effect only on first apply, it will stop applying the spell
4767         return FX_ABORT;
4768 }
4769
4770 // 0xcf Bounce:Spell
4771 int fx_bounce_spell (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4772 {
4773         if (0) printf( "fx_bounce_spell (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4774         STAT_BIT_OR( IE_BOUNCE, BNC_RESOURCE );
4775         return FX_APPLIED;
4776 }
4777
4778 // ??? Bounce:SpellDec
4779 int fx_bounce_spell_dec (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4780 {
4781         if (0) printf( "fx_bounce_spell (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
4782         STAT_BIT_OR( IE_BOUNCE, BNC_RESOURCE_DEC );
4783         return FX_APPLIED;
4784 }
4785
4786 // 0xd0 MinimumHPModifier
4787 // the original engine didn't allow modifying of this stat
4788 // it allowed only setting it, and only by one instance
4789 int fx_minimum_hp_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4790 {
4791         if (0) printf( "fx_minimum_hp_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4792
4793         STAT_MOD( IE_MINHITPOINTS );
4794         return FX_APPLIED;
4795 }
4796
4797 //0xd1 PowerWordKill
4798 int fx_power_word_kill (Scriptable* Owner, Actor* target, Effect* fx)
4799 {
4800         if (0) printf( "fx_power_word_kill (%2d): HP: %d Stat: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4801         ieDword limit = 60;
4802
4803         if (fx->Parameter1) {
4804                 limit = fx->Parameter1;
4805         }
4806         //normally this would work only with hitpoints
4807         //but why not add some extra features
4808         ieDword stat = target->GetStat (fx->Parameter2&0xffff);
4809
4810         if (stat < limit) {
4811                 target->Die( Owner );
4812         }
4813         return FX_NOT_APPLIED;
4814 }
4815
4816 //0xd2 PowerWordStun
4817 int fx_power_word_stun (Scriptable* Owner, Actor* target, Effect* fx)
4818 {
4819         if (0) printf( "fx_power_word_stun (%2d): HP: %d Stat: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4820         ieDword limit = 90;
4821
4822         if (fx->Parameter1) {
4823                 limit = fx->Parameter1;
4824         }
4825         //normally this would work only with hitpoints
4826         //but why not add some extra features
4827         ieDword stat = target->GetStat (fx->Parameter2&0xffff);
4828         ieDword x = fx->Parameter2>>16; //dice sides
4829
4830         if (stat > limit) {
4831                 return FX_NOT_APPLIED;
4832         }
4833         //recalculate delay
4834         stat = (stat * 3 + limit - 1) / limit;
4835         //delay will be calculated as 1dx/2dx/3dx
4836         //depending on the current hitpoints (or the stat in param2)
4837         stat = core->Roll(stat,x?x:4,0) * core->Time.round_size;
4838         fx->Duration = core->GetGame()->GameTime+stat;
4839         fx->TimingMode = FX_DURATION_ABSOLUTE;
4840         fx->Opcode = EffectQueue::ResolveEffect(fx_set_stun_state_ref);
4841         return fx_set_stun_state(Owner,target,fx);
4842 }
4843
4844 //0xd3 State:Imprisonment (avatar removal plus portrait icon)
4845 int fx_imprisonment (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4846 {
4847         if (0) printf( "fx_inprisonment (%2d)\n", fx->Opcode );
4848         target->SetMCFlag(MC_HIDDEN, BM_OR);
4849         target->AddPortraitIcon(PI_PRISON);
4850         return FX_APPLIED;
4851 }
4852
4853 //0xd4 Cure:Imprisonment
4854 static EffectRef fx_imprisonment_ref={"Imprisonment",NULL,-1};
4855 static EffectRef fx_maze_ref={"Maze",NULL,-1};
4856
4857 int fx_freedom (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4858 {
4859         if (0) printf( "fx_freedom (%2d)\n", fx->Opcode );
4860         target->fxqueue.RemoveAllEffects( fx_imprisonment_ref );
4861         target->fxqueue.RemoveAllEffects( fx_maze_ref );
4862         return FX_NOT_APPLIED;
4863 }
4864
4865 //0xd5 Maze
4866 int fx_maze (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4867 {
4868         if (0) printf( "fx_maze (%2d)\n", fx->Opcode );
4869         target->SetMCFlag(MC_HIDDEN, BM_OR);
4870         target->AddPortraitIcon(PI_MAZE);
4871         return FX_APPLIED;
4872 }
4873
4874 //0xd6 CastFromList
4875 int fx_select_spell (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
4876 {
4877         if (0) printf( "fx_select_spell (%2d) %d\n", fx->Opcode, fx->Parameter2 );
4878         //if parameter2==0 -> cast spells from 2da (all spells listed in 2da)
4879         //if parameter2==1 -> cast spells from book (all known spells, no need of memorize)
4880         return FX_NOT_APPLIED;
4881 }
4882
4883 // 0xd7 PlayVisualEffect
4884 static EffectRef fx_protection_from_animation_ref={"Protection:Animation",NULL,-1};
4885 int fx_play_visual_effect (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4886 {
4887         if (0) printf( "fx_play_visual_effect (%2d): Resource: %s Type: %d\n", fx->Opcode, fx->Resource, fx->Parameter2 );
4888
4889         //this is in the original engine (dead actors lose this effect)
4890         if (STATE_GET( STATE_DEAD) ) {
4891                 return FX_NOT_APPLIED;
4892         }
4893
4894         //delay action until area is loaded to avoid crash
4895         Map *map = target->GetCurrentArea();
4896         if (!map) return FX_APPLIED;
4897
4898         //if it is sticky, don't add it if it is already played
4899         if (fx->Parameter2) {
4900                 ScriptedAnimation *vvc = target->GetVVCCell(fx->Resource);
4901                 if (vvc) {
4902                         vvc->active = true;
4903                         return FX_APPLIED;
4904                 }
4905         }
4906
4907         if (target->fxqueue.HasEffectWithResource(fx_protection_from_animation_ref,fx->Resource)) {
4908                 //effect supressed by opcode 0x128
4909
4910                 return FX_APPLIED;
4911         }
4912
4913
4914         ScriptedAnimation* sca = gamedata->GetScriptedAnimation(fx->Resource, false);
4915
4916         //don't crash on nonexistent resources
4917         if (!sca) {
4918                 return FX_NOT_APPLIED;
4919         }
4920
4921         if (fx->TimingMode!=FX_DURATION_INSTANT_PERMANENT) {
4922                 sca->SetDefaultDuration(fx->Duration-core->GetGame()->GameTime);
4923         }
4924         if (fx->Parameter2 == 1) {
4925                 //play over target (sticky)
4926                 sca->effect_owned = true;
4927                 target->AddVVCell( sca );
4928                 return FX_APPLIED;
4929         }
4930
4931         //not sticky
4932         if  (fx->Parameter2 == 2 || !target) {
4933                 sca->XPos = fx->PosX;
4934                 sca->YPos = fx->PosY;
4935         } else {
4936                 sca->XPos = target->Pos.x;
4937                 sca->YPos = target->Pos.y;
4938         }
4939         sca->PlayOnce();
4940         map->AddVVCell( sca );
4941         return FX_NOT_APPLIED;
4942 }
4943
4944 //d8 LevelDrainModifier
4945
4946 static EffectRef fx_leveldrain_ref={"LevelDrainModifier",NULL,-1};
4947
4948 // FIXME: BG2 level drain uses parameter3 to decrease the MaxHp, and parameter4 to decrease level. (unset)
4949 int fx_leveldrain_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
4950 {
4951         if (0) printf( "fx_leveldrain_modifier (%2d): Mod: %d\n", fx->Opcode, fx->Parameter1 );
4952
4953         //never subtract more than the maximum hitpoints
4954         ieDword x = STAT_GET(IE_MAXHITPOINTS)-1;
4955         if (fx->Parameter1*4<x) {
4956                 x=fx->Parameter1*4;
4957         }
4958         STAT_ADD(IE_LEVELDRAIN, fx->Parameter1);
4959         STAT_SUB(IE_MAXHITPOINTS, x);
4960         STAT_SUB(IE_SAVEVSDEATH, fx->Parameter1);
4961         STAT_SUB(IE_SAVEVSWANDS, fx->Parameter1);
4962         STAT_SUB(IE_SAVEVSPOLY, fx->Parameter1);
4963         STAT_SUB(IE_SAVEVSBREATH, fx->Parameter1);
4964         STAT_SUB(IE_SAVEVSSPELL, fx->Parameter1);
4965         target->AddPortraitIcon(PI_LEVELDRAIN);
4966         //decrease current hitpoints on first apply
4967         if (fx->FirstApply) {
4968                 //current hitpoints don't have base/modified, only current
4969                 BASE_SUB(IE_HITPOINTS, x);
4970         }
4971         // TODO: lore, thieving
4972         return FX_APPLIED;
4973 }
4974
4975 //d9 PowerWordSleep
4976 static EffectRef fx_sleep_ref={"State:Sleep",NULL,-1};
4977
4978 int fx_power_word_sleep (Scriptable* Owner, Actor* target, Effect* fx)
4979 {
4980         if (0) printf( "fx_power_word_sleep (%2d): HP: %d Stat: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
4981         ieDword limit = 20;
4982
4983         if (fx->Parameter1) {
4984                 limit = fx->Parameter1;
4985         }
4986
4987         ieDword stat = target->GetStat (fx->Parameter2&0xffff);
4988         ieDword x = fx->Parameter2>>16; //rounds
4989         if (!x) x = 5;
4990
4991         if (stat>limit) {
4992                 return FX_NOT_APPLIED;
4993         }
4994         //translate this effect to a normal sleep effect
4995         //recalculate delay
4996         fx->Duration = core->GetGame()->GameTime+x*core->Time.round_size;
4997         fx->TimingMode = FX_DURATION_ABSOLUTE;
4998         fx->Opcode = EffectQueue::ResolveEffect(fx_sleep_ref);
4999         fx->Parameter2=0;
5000         return fx_set_unconscious_state(Owner,target,fx);
5001 }
5002
5003 // 0xda StoneSkinModifier
5004 int fx_stoneskin_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5005 {
5006         if (0) printf( "fx_stoneskin_modifier (%2d): Mod: %d\n", fx->Opcode, fx->Parameter1 );
5007         if (!fx->Parameter1) {
5008                 return FX_NOT_APPLIED;
5009         }
5010
5011         //dead actors lose this effect
5012         if (STATE_GET( STATE_DEAD) ) {
5013                 return FX_NOT_APPLIED;
5014         }
5015
5016         //this is the bg2 style stoneskin, not normally using spell states
5017         //but this way we can support hybrid games
5018         if (fx->Parameter2) {
5019                 target->SetSpellState(SS_IRONSKIN);
5020                 //gradient for iron skins?
5021         } else {
5022                 target->SetSpellState(SS_STONESKIN);
5023                 SetGradient(target, 14);
5024         }
5025         STAT_SET(IE_STONESKINS, fx->Parameter1);
5026         target->AddPortraitIcon(PI_STONESKIN);
5027         return FX_APPLIED;
5028 }
5029
5030 //0xdb ac vs creature type (general effect)
5031 //0xdc DispelSchool
5032 int fx_dispel_school (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5033 {
5034         ieResRef Removed;
5035
5036         if (0) printf( "fx_dispel_school (%2d): Level: %d Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5037         target->fxqueue.RemoveLevelEffects(Removed, fx->Parameter1, RL_MATCHSCHOOL, fx->Parameter2);
5038         return FX_NOT_APPLIED;
5039 }
5040 //0xdd DispelSecondaryType
5041 int fx_dispel_secondary_type (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5042 {
5043         ieResRef Removed;
5044
5045         if (0) printf( "fx_dispel_secondary_type (%2d): Level: %d Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5046         target->fxqueue.RemoveLevelEffects(Removed, fx->Parameter1, RL_MATCHSECTYPE, fx->Parameter2);
5047         return FX_NOT_APPLIED;
5048 }
5049
5050 //0xde RandomTeleport
5051 int fx_teleport_field (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5052 {
5053         if (0) printf( "fx_teleport_field (%2d): Distance: %d\n", fx->Opcode, fx->Parameter1 );
5054
5055         Map *map = target->GetCurrentArea();
5056         if (!map) {
5057                 return FX_NOT_APPLIED;
5058         }
5059         //the origin is the effect's target point
5060         Point p(fx->PosX+core->Roll(1,fx->Parameter1*2,-(signed) (fx->Parameter1)),
5061                 fx->PosY+core->Roll(1,fx->Parameter1*2,-(signed) (fx->Parameter1)) );
5062
5063         target->SetPosition( p, true, 0);
5064         return FX_NOT_APPLIED;
5065 }
5066
5067 //0xdf //Protection:SchoolDec
5068 int fx_protection_school_dec (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5069 {
5070         if (0) printf( "fx_protection_school_dec (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
5071         if (fx->Parameter1) {
5072                 STAT_BIT_OR( IE_IMMUNITY, IMM_SCHOOL_DEC );
5073                 return FX_APPLIED;
5074         }
5075         return FX_NOT_APPLIED;
5076 }
5077
5078 //0xe0 Cure:LevelDrain
5079
5080 int fx_cure_leveldrain (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5081 {
5082         if (0) printf( "fx_cure_leveldrain (%2d)\n", fx->Opcode );
5083         //all level drain removed at once???
5084         //if not, then find old effect, remove a number
5085         target->fxqueue.RemoveAllEffects( fx_leveldrain_ref );
5086         return FX_NOT_APPLIED;
5087 }
5088
5089 //0xe1 Reveal:Magic
5090 //gemrb special: speed and color are custom
5091 int fx_reveal_magic (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5092 {
5093         if (0) printf( "fx_reveal_magic (%2d)\n", fx->Opcode );
5094         if (target->fxqueue.HasAnyDispellableEffect()) {
5095                 if (!fx->Parameter1) {
5096                         fx->Parameter1=0xff00; //blue
5097                 }
5098
5099                 int speed = (fx->Parameter2 >> 16) & 0xFF;
5100                 if (!speed) speed=30;
5101                 target->SetColorMod(0xff, RGBModifier::ADD, speed,
5102                         fx->Parameter1 >> 8, fx->Parameter1 >> 16,
5103                         fx->Parameter1 >> 24, 0);
5104         }
5105         return FX_NOT_APPLIED;
5106 }
5107
5108 //0xe2 Protection:SecondaryTypeDec
5109 int fx_protection_secondary_type_dec (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5110 {
5111         if (0) printf( "fx_protection_secondary_type_dec (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
5112         if (fx->Parameter1) {
5113                 STAT_BIT_OR( IE_IMMUNITY, IMM_SECTYPE_DEC );
5114                 return FX_APPLIED;
5115         }
5116         return FX_NOT_APPLIED;
5117 }
5118
5119 //0xe3 Bounce:SchoolDecrement
5120 int fx_bounce_school_dec (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5121 {
5122         if (0) printf( "fx_bounce_school_dec (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
5123         STAT_BIT_OR( IE_BOUNCE, BNC_SCHOOL_DEC );
5124         target->AddPortraitIcon(PI_BOUNCE2);
5125         return FX_APPLIED;
5126 }
5127
5128 //0xe4 Bounce:SecondaryTypeDecrement
5129 int fx_bounce_secondary_type_dec (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5130 {
5131         if (0) printf( "fx_bounce_secondary_type_dec (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
5132         STAT_BIT_OR( IE_BOUNCE, BNC_SECTYPE_DEC );
5133         target->AddPortraitIcon(PI_BOUNCE2);
5134         return FX_APPLIED;
5135 }
5136
5137 //0xe5 DispelSchoolOne
5138 int fx_dispel_school_one (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5139 {
5140         ieResRef Removed;
5141
5142         if (0) printf( "fx_dispel_school_one (%2d): Level: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5143         target->fxqueue.RemoveLevelEffects(Removed, fx->Parameter1, RL_MATCHSCHOOL|RL_REMOVEFIRST, fx->Parameter2);
5144         return FX_NOT_APPLIED;
5145 }
5146
5147 //0xe6 DispelSecondaryTypeOne
5148 int fx_dispel_secondary_type_one (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5149 {
5150         ieResRef Removed;
5151
5152         if (0) printf( "fx_dispel_secondary_type_one (%2d): Level: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5153         target->fxqueue.RemoveLevelEffects(Removed, fx->Parameter1, RL_MATCHSECTYPE|RL_REMOVEFIRST, fx->Parameter2);
5154         return FX_NOT_APPLIED;
5155 }
5156
5157 //0xe7 Timestop
5158 int fx_timestop (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5159 {
5160         if (0) printf( "fx_timestop (%2d)\n", fx->Opcode);
5161         core->GetGame()->TimeStop(target, fx->Duration);
5162         return FX_NOT_APPLIED;
5163 }
5164
5165 //0xe8 CastSpellOnCondition
5166 int fx_cast_spell_on_condition (Scriptable* Owner, Actor* target, Effect* fx)
5167 {
5168         if (0) printf( "fx_cast_spell_on_condition (%2d): Target: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5169
5170         if (fx->FirstApply && fx->Parameter3) {
5171                 target->spellbook.HaveSpell( fx->Resource, HS_DEPLETE );
5172                 target->spellbook.HaveSpell( fx->Resource2, HS_DEPLETE );
5173                 target->spellbook.HaveSpell( fx->Resource3, HS_DEPLETE );
5174                 target->spellbook.HaveSpell( fx->Resource4, HS_DEPLETE );
5175         }
5176
5177         //get subject of check
5178         Actor *actor = NULL;
5179         Map *map = target->GetCurrentArea();
5180         switch(fx->Parameter1) {
5181                 //self
5182         case 0: actor = target; break;
5183                 //last attacker
5184         case 1: actor = map->GetActorByGlobalID(target->LastHitter); break;
5185                 //nearest enemy
5186                 //fix this!
5187         //case 2: actor = map->GetActorByGlobalID(target->LastSeen); break;
5188         case 2: actor = GetNearestEnemyOf(map, target, 0); break;
5189                 //nearest creature
5190         case 3: actor = map->GetActorByGlobalID(target->LastSeen); break;
5191         }
5192         if (!actor) {
5193                 return FX_APPLIED;
5194         }
5195         int condition;
5196         //check condition
5197         switch(fx->Parameter2) {
5198         case COND_GOTHIT: //on hit
5199                 condition = target->LastDamage;
5200                 break;
5201         case COND_NEAR: //
5202                 condition = PersonalDistance(actor, target)<30;
5203                 break;
5204         case COND_HP_HALF:
5205                 condition = actor->GetBase(IE_HITPOINTS)<actor->GetStat(IE_MAXHITPOINTS)/2;
5206                 break;
5207         case COND_HP_QUART:
5208                 condition = actor->GetBase(IE_HITPOINTS)<actor->GetStat(IE_MAXHITPOINTS)/4;
5209                 break;
5210         case COND_HP_LOW:
5211                 condition = actor->GetBase(IE_HITPOINTS)<actor->GetStat(IE_MAXHITPOINTS)/10;
5212                 break;
5213         case COND_HELPLESS:
5214                 condition = actor->GetStat(IE_STATE_ID) & STATE_CANTMOVE;
5215                 break;
5216         case COND_POISONED:
5217                 condition = actor->GetStat(IE_STATE_ID) & STATE_POISONED;
5218                 break;
5219         case COND_ATTACKED: // once per round
5220                 condition = actor->LastHitter;
5221                 break;
5222         case COND_NEAR4: // closer than 4'
5223                 condition = PersonalDistance(actor, target)<4;
5224                 break;
5225         case COND_NEAR10: // closer than 10'
5226                 condition = PersonalDistance(actor, target)<10;
5227                 break;
5228         case COND_EVERYROUND:
5229                 condition = 1;
5230                 break;
5231         case COND_TOOKDAMAGE:
5232                 condition = actor->LastDamage;
5233                 break;
5234         default:
5235                 condition = 0;
5236         }
5237
5238         if (condition) {
5239                 core->ApplySpell(fx->Resource, actor, Owner, fx->Power);
5240                 core->ApplySpell(fx->Resource2, actor, Owner, fx->Power);
5241                 core->ApplySpell(fx->Resource3, actor, Owner, fx->Power);
5242                 core->ApplySpell(fx->Resource4, actor, Owner, fx->Power);
5243                 if (fx->Parameter3) {
5244                         return FX_NOT_APPLIED;
5245                 }
5246         }
5247         return FX_APPLIED;
5248 }
5249
5250 // 0xe9 Proficiency
5251 int fx_proficiency (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5252 {
5253         if (0) printf( "fx_proficiency (%2d): Value: %d, Stat: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5254
5255         if (fx->Parameter2>=MAX_STATS) return FX_NOT_APPLIED;
5256
5257         //this opcode works only if the previous value was smaller
5258         if (STAT_GET(fx->Parameter2)<fx->Parameter1) {
5259                 STAT_SET (fx->Parameter2, fx->Parameter1);
5260         }
5261         return FX_APPLIED;
5262 }
5263
5264 // 0xea CreateContingency
5265 static EffectRef fx_contingency_ref={"CastSpellOnCondition",NULL,-1};
5266
5267 int fx_create_contingency (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5268 {
5269         if (0) printf( "fx_create_contingency (%2d): Level: %d, Count: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5270
5271         if (target->fxqueue.HasEffectWithSource(fx_contingency_ref, fx->Source)) {
5272                 displaymsg->DisplayConstantStringName(STR_CONTDUP, 0xf0f0f0, target);
5273                 return FX_NOT_APPLIED;
5274         }
5275
5276         if (target->InParty) {
5277                 Variables *dict = core->GetDictionary();
5278
5279                 dict->SetAt( "P0", target->InParty );
5280                 dict->SetAt( "P1", fx->Parameter1 );
5281                 dict->SetAt( "P2", fx->Parameter2 );
5282                 core->SetEventFlag(EF_SEQUENCER);
5283         }
5284         return FX_NOT_APPLIED;
5285 }
5286
5287 #define WB_AWAY 0
5288 #define WB_TOWARDS 1
5289 #define WB_FIXDIR 2
5290 #define WB_OWNDIR 3
5291 #define WB_AWAYOWNDIR 4
5292
5293 // 0xeb WingBuffet
5294 int fx_wing_buffet (Scriptable* Owner, Actor* target, Effect* fx)
5295 {
5296         if (0) printf( "fx_wing_buffet (%2d): Value: %d, Stat: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5297         //create movement in actor
5298
5299         ieDword dir;
5300         switch(fx->Parameter2) {
5301                 case WB_AWAY:
5302                 default:
5303                         dir = GetOrient(Owner->Pos, target->Pos);
5304                         break;
5305                 case WB_TOWARDS:
5306                         dir = GetOrient(target->Pos, Owner->Pos);
5307                         break;
5308                 case WB_FIXDIR:
5309                         dir = fx->Parameter3;
5310                         break;
5311                 case WB_OWNDIR:
5312                         dir = target->GetOrientation();
5313                         break;
5314                 case WB_AWAYOWNDIR:
5315                         dir = target->GetOrientation()^8;
5316                         break;
5317         }
5318         //could be GL_REBOUND too :)
5319         //add effect to alter target's stance
5320         target->MoveLine( fx->Parameter1, GL_NORMAL, dir );
5321         return FX_NOT_APPLIED;
5322 }
5323
5324 // 0xec ProjectImage
5325
5326 static EffectRef fx_puppetmarker_ref={"PuppetMarker",NULL,-1};
5327
5328 int fx_puppet_master (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5329 {
5330         const char * resref = NULL;
5331
5332         if (0) printf( "fx_puppet_master (%2d): Value: %d, Stat: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5333         STAT_SET (IE_PUPPETMASTERTYPE, fx->Parameter1);
5334
5335         //copyself doesn't copy scripts, so the script clearing code is not needed
5336         Actor *copy = target->CopySelf(fx->Parameter2 == 1);
5337
5338         Effect *newfx = EffectQueue::CreateUnsummonEffect(fx);
5339         if (newfx) {
5340                 core->ApplyEffect(newfx, copy, copy);
5341                 delete newfx;
5342         }
5343
5344         ieResRef script;
5345
5346         //intentionally 7, to leave room for the last letter
5347         strnlwrcpy(script,target->GetScript(SCR_CLASS),7);
5348         //no need of buffer defense as long as you don't mess with the 7 above
5349         strcat(script,"m");
5350         //if the caster is inparty, the script is turned off by the AI disable flag
5351         copy->SetScript(script, SCR_CLASS, target->InParty!=0);
5352
5353         switch(fx->Parameter2)
5354         {
5355         case 1:
5356                 resref = "mislead";
5357                 //set the gender to illusionary, so ids matching will work
5358                 copy->SetBase(IE_SEX, SEX_ILLUSION);
5359                 copy->SetBase(IE_MAXHITPOINTS, copy->GetBase(IE_MAXHITPOINTS)/2);
5360                 break;
5361         case 2:
5362                 resref = "projimg";
5363                 copy->SetBase(IE_SEX, SEX_ILLUSION);
5364                 break;
5365         case 3:
5366                 resref = "simulacr";
5367                 // healable level drain
5368                 // FIXME: second generation simulacri are supposedly at a different level:
5369                 // level = original caster - caster / 2; eg. lvl 32 -> 16 -> 24 -> 20 -> 22 -> 21
5370                 newfx = EffectQueue::CreateEffect(fx_leveldrain_ref, copy->GetXPLevel(1)/2, 0, FX_DURATION_INSTANT_PERMANENT);
5371                 if (newfx) {
5372                         core->ApplyEffect(newfx, copy, copy);
5373                         delete newfx;
5374                 }
5375                 break;
5376         default:
5377                 resref = fx->Resource;
5378                 break;
5379         }
5380         if (resref[0]) {
5381                 core->ApplySpell(resref,copy,copy,0);
5382         }
5383
5384         //FIXME: parameter1 is unsure, but something similar to what the original engine has there
5385         newfx = EffectQueue::CreateEffectCopy(fx, fx_puppetmarker_ref, target->InParty-1, fx->Parameter2);
5386         if (newfx) {
5387                 core->ApplyEffect(newfx, copy, copy);
5388                 delete newfx;
5389         }
5390         return FX_NOT_APPLIED;
5391 }
5392
5393 // 0xed PuppetMarker
5394 int fx_puppet_marker (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5395 {
5396         if (0) printf( "fx_puppet_marker (%2d): Value: %d, Stat: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5397         //actually the Type is in parameter2 and the ID is in parameter1
5398         //but for some reason the defines are in the opposite order
5399         STAT_SET (IE_PUPPETTYPE, fx->Parameter1);  //cb4 - the ID of the controller
5400         STAT_SET (IE_PUPPETID, fx->Parameter2);    //cb8 - the control type
5401         return FX_APPLIED;
5402 }
5403
5404 // 0xee Disintegrate
5405 int fx_disintegrate (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5406 {
5407         if (0) printf( "fx_disintegrate (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5408         if (EffectQueue::match_ids( target, fx->Parameter2, fx->Parameter1) ) {
5409                 //convert it to a death opcode or apply the new effect?
5410                 fx->Opcode = EffectQueue::ResolveEffect(fx_death_ref);
5411                 fx->TimingMode = FX_DURATION_INSTANT_PERMANENT;
5412                 fx->Parameter1 = 0;
5413                 fx->Parameter2 = 0x200;
5414                 return FX_APPLIED;
5415         }
5416         return FX_NOT_APPLIED;
5417 }
5418
5419 // 0xef Farsee
5420 // 1 view not explored sections too
5421 // 2 param1=range (otherwise visualrange)
5422 // 4 point already set (otherwise use gui)
5423 // 8 use line of sight
5424 #define FS_UNEXPLORED  1
5425 #define FS_VISUALRANGE 2
5426 #define FS_HASPOINT    4
5427 #define FS_LOS         8
5428
5429 int fx_farsee (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5430 {
5431         if (0) printf( "fx_farsee (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5432         Map *map = target->GetCurrentArea();
5433         if (!map) {
5434                 return FX_APPLIED;
5435         }
5436
5437         if (!(fx->Parameter2&FS_VISUALRANGE)) {
5438                 fx->Parameter1=STAT_GET(IE_VISUALRANGE);
5439                 fx->Parameter2|=FS_VISUALRANGE;
5440         }
5441
5442         if (target->InParty) {
5443                 //don't start graphical interface if actor isn't in party
5444                 if (!(fx->Parameter2&FS_HASPOINT)) {
5445                         //start graphical interface
5446                         //it will do all the rest of the opcode
5447                         //using RevealMap guiscript action
5448                         core->EventFlag|=EF_SHOWMAP;
5449                         return FX_NOT_APPLIED;
5450                 }
5451         }
5452
5453         Point p(fx->PosX, fx->PosY);
5454
5455         //don't explore unexplored points
5456         if (!(fx->Parameter2&FS_UNEXPLORED)) {
5457                 if (!map->IsVisible(p, 1)) {
5458                         return FX_NOT_APPLIED;
5459                 }
5460         }
5461         map->ExploreMapChunk(p, fx->Parameter1, fx->Parameter2&FS_LOS);
5462         return FX_NOT_APPLIED;
5463 }
5464
5465 // 0xf0 Icon:Remove
5466 int fx_remove_portrait_icon (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5467 {
5468         if (0) printf( "fx_remove_portrait_icon (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
5469         target->fxqueue.RemoveAllEffectsWithParam( fx_display_portrait_icon_ref, fx->Parameter2 );
5470         return FX_NOT_APPLIED;
5471 }
5472 // 0xf1 control creature (same as charm)
5473
5474 // 0xF2 Cure:Confusion
5475 static EffectRef fx_confused_state_ref={"State:Confused",NULL,-1};
5476
5477 int fx_cure_confused_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5478 {
5479         if (0) printf( "fx_cure_confused_state (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5480         BASE_STATE_CURE( STATE_CONFUSED );
5481         target->fxqueue.RemoveAllEffects(fx_confused_state_ref);
5482         return FX_NOT_APPLIED;
5483 }
5484
5485 // 0xf3 DrainItems (this is disabled in ToB)
5486 int fx_drain_items (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5487 {
5488         if (0) printf( "fx_drain_items (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5489         ieDword i=fx->Parameter1;
5490         while (i--) {
5491                 //deplete magic item = 0
5492                 //deplete weapon = 1
5493                 target->inventory.DepleteItem(fx->Parameter2);
5494         }
5495         return FX_NOT_APPLIED;
5496 }
5497 // 0xf4 DrainSpells
5498 int fx_drain_spells (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5499 {
5500         if (0) printf( "fx_drain_spells (%2d): Count: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5501         ieDword i=fx->Parameter1;
5502         if (fx->Parameter2) {
5503                 while(i--) {
5504                         if (!target->spellbook.DepleteSpell(IE_SPELL_TYPE_PRIEST)) {
5505                                 break;
5506                         }
5507                 }
5508                 return FX_NOT_APPLIED;
5509         }
5510         while(i--) {
5511                 if (!target->spellbook.DepleteSpell(IE_SPELL_TYPE_WIZARD)) {
5512                         break;
5513                 }
5514         }
5515         return FX_NOT_APPLIED;
5516 }
5517 // 0xf5 CheckForBerserk
5518 int fx_checkforberserk_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5519 {
5520         if (0) printf( "fx_checkforberserk_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5521         STAT_SET( IE_CHECKFORBERSERK, fx->Parameter2 );
5522         return FX_APPLIED;
5523 }
5524 // 0xf6 BerserkStage1Modifier
5525 int fx_berserkstage1_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5526 {
5527         if (0) printf( "fx_berserkstage1_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5528         STAT_SET( IE_BERSERKSTAGE1, fx->Parameter2 );
5529         return FX_APPLIED;
5530 }
5531 // 0xf7 BerserkStage2Modifier
5532 int fx_berserkstage2_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5533 {
5534         if (0) printf( "fx_berserkstage2_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5535         STAT_SET( IE_BERSERKSTAGE2, fx->Parameter2 );
5536         STATE_SET (STATE_BERSERK);
5537         return FX_APPLIED;
5538 }
5539
5540 // 0xf8 set melee effect
5541 // adds effect to melee attacks (for monks, asssasins, fighter hlas, ...)
5542 // it is cumulative
5543 int fx_melee_effect (Scriptable* /*Owner*/, Actor* target, Effect* fx) {
5544         if (1) printf( "fx_melee_effect (%2d): Resource: %s\n", fx->Opcode, fx->Resource );
5545
5546         // are we just about to attack? Try later otherwise
5547         if (!target->GetAttackProjectile()) {
5548                 return FX_APPLIED;
5549         }
5550
5551         if ((target->GetAttackStyle()&3) == 2) { //WEAPON_RANGED
5552                 // wrong effect, try later
5553                 return FX_APPLIED;
5554         }
5555
5556         Point p(fx->PosX, fx->PosY);
5557         Effect *extrafx = core->GetEffect(fx->Resource, fx->Power, p);
5558         //core->GetEffect is a borrowed reference, don't delete it
5559         if (!extrafx) {
5560                 return FX_NOT_APPLIED;
5561         }
5562         extrafx->Target = FX_TARGET_PRESET;
5563
5564         // attach it to the attack projectile
5565         target->GetAttackProjectile()->GetEffects()->AddEffect(extrafx, true);
5566
5567         return FX_APPLIED;
5568 }
5569
5570 // 0xf9 set missile effect
5571 // adds effect to ranged attacks (archers, ...)
5572 // it is cumulative
5573 int fx_ranged_effect (Scriptable* /*Owner*/, Actor* target, Effect* fx) {
5574         if (1) printf( "fx_ranged_effect (%2d): Resource: %s\n", fx->Opcode, fx->Resource );
5575
5576         // are we just about to attack? Try later otherwise
5577         if (!target->GetAttackProjectile()) {
5578                 return FX_APPLIED;
5579         }
5580
5581         if ((target->GetAttackStyle()&3) != 2) { // WEAPON_RANGED
5582                 // wrong effect, try later
5583                 return FX_APPLIED;
5584         }
5585
5586         Point p(fx->PosX, fx->PosY);
5587         Effect *extrafx = core->GetEffect(fx->Resource, fx->Power, p);
5588         //core->GetEffect is a borrowed reference, don't delete it
5589         if (!extrafx) {
5590                 return FX_NOT_APPLIED;
5591         }
5592         extrafx->Target = FX_TARGET_PRESET;
5593
5594         // attach it to the attack projectile
5595         target->GetAttackProjectile()->GetEffects()->AddEffect(extrafx, true);
5596
5597         return FX_APPLIED;
5598 }
5599
5600 // 0xfa DamageLuckModifier
5601 int fx_damageluck_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5602 {
5603         if (0) printf( "fx_damageluck_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5604         STAT_MOD( IE_DAMAGELUCK );
5605         return FX_APPLIED;
5606 }
5607
5608 // 0xfb BardSong
5609
5610 int fx_change_bardsong (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5611 {
5612         if (0) printf( "fx_change_bardsong (%2d): %s\n", fx->Opcode, fx->Resource);
5613         memcpy(target->BardSong, fx->Resource, 8);
5614         return FX_APPLIED;
5615 }
5616
5617 // 0xfc SetTrap
5618 int fx_set_area_effect (Scriptable* Owner, Actor* target, Effect* fx)
5619 {
5620         if (0) printf( "fx_set_trap (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5621         ieDword skill, roll;
5622         Map *map;
5623
5624         map = target->GetCurrentArea();
5625         if (!map) return FX_NOT_APPLIED;
5626
5627         proIterator iter;
5628
5629         //check if trap count is over an amount (only saved traps count)
5630         //actually, only projectiles in trigger phase should count here
5631         if (map->GetTrapCount(iter)>6) {
5632                 displaymsg->DisplayConstantStringName(STR_NOMORETRAP, 0xf0f0f0, target);
5633                 return FX_NOT_APPLIED;
5634         }
5635
5636         //check if we are under attack
5637         if (GetNearestEnemyOf(map, target, ORIGIN_SEES_ENEMY|ENEMY_SEES_ORIGIN)) {
5638                 displaymsg->DisplayConstantStringName(STR_MAYNOTSETTRAP, 0xf0f0f0, target);
5639                 return FX_NOT_APPLIED;
5640         }
5641
5642         if (Owner->Type==ST_ACTOR) {
5643                 skill = ((Actor *)Owner)->GetStat(IE_SETTRAPS);
5644                 roll = core->Roll(1,100,0);
5645         } else {
5646                 roll=0;
5647                 skill=0;
5648         }
5649
5650         if (roll>skill) {
5651                 //failure
5652                 displaymsg->DisplayConstantStringName(STR_SNAREFAILED, 0xf0f0f0, target);
5653                 //TODO check luck and do some damage effect on target
5654                 return FX_NOT_APPLIED;
5655         }
5656         //success
5657         displaymsg->DisplayConstantStringName(STR_SNARESUCCEED, 0xf0f0f0, target);
5658         Owner->CastSpellPoint(fx->Resource, target->Pos, false);
5659         return FX_NOT_APPLIED;
5660 }
5661
5662 // 0xfd SetMapNote
5663 int fx_set_map_note (Scriptable* Owner, Actor* target, Effect* fx)
5664 {
5665         if (0) printf( "fx_set_map_note (%2d): StrRef: %d Color: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5666         Scriptable *marker = target?target:Owner;
5667         Map *map = marker->GetCurrentArea();
5668         if (!map) return FX_APPLIED; //delay effect
5669         Point p(fx->PosX, fx->PosY);
5670         char *text = core->GetString(fx->Parameter1, 0);
5671         map->AddMapNote(p, fx->Parameter2, text, fx->Parameter1);
5672         return FX_NOT_APPLIED;
5673 }
5674
5675 // 0xfe RemoveMapNote
5676 int fx_remove_map_note (Scriptable* Owner, Actor* target, Effect* fx)
5677 {
5678         if (0) printf( "fx_remove_map_note (%2d)\n", fx->Opcode);
5679         Scriptable *marker = target?target:Owner;
5680         Map *map = marker->GetCurrentArea();
5681         if (!map) return FX_APPLIED; //delay effect
5682         Point p(fx->PosX, fx->PosY);
5683         map->RemoveMapNote(p);
5684         return FX_NOT_APPLIED;
5685 }
5686
5687 // 0xff Item:CreateDays
5688 int fx_create_item_days (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5689 {
5690         if (0) printf( "fx_create_item_days (%2d)\n", fx->Opcode );
5691         target->inventory.AddSlotItemRes( fx->Resource, SLOT_ONLYINVENTORY, fx->Parameter1, fx->Parameter3, fx->Parameter4 );
5692         if ((fx->TimingMode&0xff) == FX_DURATION_INSTANT_LIMITED) {
5693                 //if this effect has expiration, then it will remain as a remove_item
5694                 //on the effect queue, inheriting all the parameters
5695                 //duration needs a hack (recalculate it for days)
5696                 //no idea if this multiplier is ok
5697                 fx->Duration+=(fx->Duration-core->GetGame()->GameTime)*2400;
5698                 fx->Opcode=EffectQueue::ResolveEffect(fx_remove_inventory_item_ref);
5699                 fx->TimingMode=FX_DURATION_DELAY_PERMANENT;
5700                 return FX_APPLIED;
5701         }
5702         return FX_NOT_APPLIED;
5703 }
5704
5705 // 0x100 Sequencer:Store
5706 int fx_store_spell_sequencer(Scriptable* /*Owner*/, Actor* target, Effect* fx)
5707 {
5708         if (0) printf( "fx_store_spell_sequencer (%2d)\n", fx->Opcode );
5709         //just display the spell sequencer portrait icon
5710         target->AddPortraitIcon(PI_SEQUENCER);
5711         if (fx->FirstApply && fx->Parameter3) {
5712                 target->spellbook.HaveSpell( fx->Resource, HS_DEPLETE );
5713                 target->spellbook.HaveSpell( fx->Resource2, HS_DEPLETE );
5714                 target->spellbook.HaveSpell( fx->Resource3, HS_DEPLETE );
5715                 target->spellbook.HaveSpell( fx->Resource4, HS_DEPLETE );
5716         }
5717         return FX_APPLIED;
5718 }
5719
5720 // 0x101 Sequencer:Create
5721 static EffectRef fx_spell_sequencer_active_ref={"Sequencer:Store",NULL,-1};
5722
5723 int fx_create_spell_sequencer(Scriptable* /*Owner*/, Actor* target, Effect* fx)
5724 {
5725         if (0) printf( "fx_create_spell_sequencer (%2d): Level: %d, Count: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5726         if (target->fxqueue.HasEffectWithSource(fx_spell_sequencer_active_ref, fx->Source)) {
5727                 displaymsg->DisplayConstantStringName(STR_SEQDUP, 0xf0f0f0, target);
5728                 return FX_NOT_APPLIED;
5729         }
5730         //just a call to activate the spell sequencer creation gui
5731         if (target->InParty) {
5732                 Variables *dict = core->GetDictionary();
5733
5734                 dict->SetAt( "P0", target->InParty );
5735                 dict->SetAt( "P1", fx->Parameter1 );           //maximum level
5736                 dict->SetAt( "P2", fx->Parameter2 | (2<<16) ); //count and target type
5737                 core->SetEventFlag(EF_SEQUENCER);
5738         }
5739         return FX_NOT_APPLIED;
5740 }
5741
5742 // 0x102 Sequencer:Activate
5743
5744 int fx_activate_spell_sequencer(Scriptable* Owner, Actor* target, Effect* fx)
5745 {
5746         if (0) printf( "fx_activate_spell_sequencer (%2d): Resource: %s\n", fx->Opcode, fx->Resource );
5747         if (Owner->Type!=ST_ACTOR) {
5748                 return FX_NOT_APPLIED;
5749         }
5750
5751         Effect *sequencer = ((Actor *) Owner)->fxqueue.HasEffect(fx_spell_sequencer_active_ref);
5752         if (sequencer) {
5753                 //cast 1-4 spells stored in the spell sequencer
5754                 core->ApplySpell(sequencer->Resource, target, Owner, fx->Power);
5755                 core->ApplySpell(sequencer->Resource2, target, Owner, fx->Power);
5756                 core->ApplySpell(sequencer->Resource3, target, Owner, fx->Power);
5757                 core->ApplySpell(sequencer->Resource4, target, Owner, fx->Power);
5758                 //remove the spell sequencer store effect
5759                 sequencer->TimingMode=FX_DURATION_JUST_EXPIRED;
5760         }
5761         return FX_NOT_APPLIED;
5762 }
5763
5764 // 0x103 SpellTrap (Protection:SpellLevelDec + recall spells)
5765 int fx_spelltrap(Scriptable* /*Owner*/, Actor* target, Effect* fx)
5766 {
5767         if (0) printf( "fx_spelltrap (%2d): Count: %d, Level: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5768         if (fx->Parameter3) {
5769                 target->RestoreSpellLevel(fx->Parameter3, 0);
5770                 fx->Parameter3=0;
5771         }
5772         if (fx->Parameter1<=0) {
5773                 //gone down to zero
5774                 return FX_NOT_APPLIED;
5775         }
5776         target->SetOverlay(OV_SPELLTRAP);
5777         target->AddPortraitIcon(PI_SPELLTRAP);
5778         return FX_APPLIED;
5779 }
5780
5781 //0x104 Crash104
5782 //0x138 Crash138
5783 int fx_crash (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
5784 {
5785         if (0) printf( "fx_crash (%2d): Param1: %d, Param2: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5786         return FX_NOT_APPLIED;
5787 }
5788
5789 // 0x105 RestoreSpells
5790 int fx_restore_spell_level(Scriptable* /*Owner*/, Actor* target, Effect* fx)
5791 {
5792         if (0) printf( "fx_restore_spell_level (%2d): Level: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5793         target->RestoreSpellLevel(fx->Parameter1, fx->Parameter2);
5794         return FX_NOT_APPLIED;
5795 }
5796 // 0x106 VisualRangeModifier
5797 int fx_visual_range_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5798 {
5799         if (0) printf( "fx_visual_range_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5800         STAT_MOD( IE_VISUALRANGE );
5801         return FX_APPLIED;
5802 }
5803
5804 // 0x107 BackstabModifier
5805 int fx_backstab_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5806 {
5807         if (0) printf( "fx_visual_range_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5808         //this is how it is done in the original engine, i don't know why they would do this
5809         //ctrl-r would probably remove it otherwise
5810         //Why they didn't fix it in the spell/item is beyond me
5811         if (fx->TimingMode==FX_DURATION_INSTANT_PERMANENT)
5812                 fx->TimingMode=FX_DURATION_INSTANT_PERMANENT_AFTER_BONUSES;
5813         STAT_MOD( IE_BACKSTABDAMAGEMULTIPLIER );
5814         return FX_APPLIED;
5815 }
5816
5817 // 0x108 DropWeapon
5818 int fx_drop_weapon (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5819 {
5820         if (fx->Resource[0]) {
5821                 target->DropItem(fx->Resource, 0);
5822                 return FX_NOT_APPLIED;
5823         }
5824         switch (fx->Parameter2) {
5825                 case 0:
5826                         target->DropItem(-1, 0);
5827                         break;
5828                 case 1:
5829                         target->DropItem(target->inventory.GetEquippedSlot(), 0);
5830                         break;
5831                 default:
5832                         target->DropItem(fx->Parameter1, 0);
5833                         break;
5834         }
5835         return FX_NOT_APPLIED;
5836 }
5837 // 0x109 ModifyGlobalVariable
5838 int fx_modify_global_variable (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
5839 {
5840         Game *game = core->GetGame();
5841         //convert it to internal variable format
5842         if (!fx->IsVariable) {
5843                 char *poi=fx->Resource+8;
5844                 memmove(poi, fx->Resource2,8);
5845                 poi+=8;
5846                 memmove(poi, fx->Resource3,8);
5847                 poi+=8;
5848                 memmove(poi, fx->Resource4,8);
5849                 fx->IsVariable=1;
5850         }
5851
5852         //hack for IWD
5853         if (!fx->Resource[0]) {
5854                 strnuprcpy(fx->Resource,"RETURN_TO_LONELYWOOD",32);
5855         }
5856
5857         if (0) printf( "fx_modify_global_variable (%2d): Variable: %s Value: %d Type: %d\n", fx->Opcode, fx->Resource, fx->Parameter1, fx->Parameter2 );
5858         if (fx->Parameter2) {
5859                 ieDword var = 0;
5860                 //use resource memory area as variable name
5861                 game->locals->Lookup(fx->Resource, var);
5862                 game->locals->SetAt(fx->Resource, var+fx->Parameter1);
5863         } else {
5864                 game->locals->SetAt(fx->Resource, fx->Parameter1);
5865         }
5866         return FX_NOT_APPLIED;
5867 }
5868 // 0x10a RemoveImmunity
5869 EffectRef immunity_effect_ref={"Protection:Spell",NULL,-1};
5870
5871 int fx_remove_immunity(Scriptable* /*Owner*/, Actor* target, Effect* fx)
5872 {
5873         if (0) printf( "fx_remove_immunity (%2d): %s\n", fx->Opcode, fx->Resource );
5874         target->fxqueue.RemoveAllEffectsWithResource(immunity_effect_ref, fx->Resource);
5875         return FX_NOT_APPLIED;
5876 }
5877
5878 // 0x10b protection from display string is a generic effect
5879 // 0x10c ExploreModifier
5880 int fx_explore_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5881 {
5882         if (0) printf( "fx_explore_modifier (%2d)\n", fx->Opcode );
5883         if (fx->Parameter2) {
5884                 //gemrb modifier
5885                 STAT_SET (IE_EXPLORE, fx->Parameter1);
5886         } else {
5887                 STAT_SET (IE_EXPLORE, 1);
5888         }
5889         return FX_APPLIED;
5890 }
5891 // 0x10d ScreenShake
5892 int fx_screenshake (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
5893 {
5894         if (0) printf( "fx_screenshake (%2d): Strength: %d\n", fx->Opcode, fx->Parameter1 );
5895         core->timer->SetScreenShake( fx->Parameter1, fx->Parameter1, 1);
5896         return FX_APPLIED;
5897 }
5898
5899 // 0x10e Cure:CasterHold
5900 static EffectRef fx_pause_caster_modifier_ref={"PauseTarget",NULL,-1};
5901
5902 int fx_unpause_caster (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5903 {
5904         if (0) printf( "fx_unpause_caster (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5905         target->fxqueue.RemoveAllEffects(fx_pause_caster_modifier_ref);
5906         return FX_NOT_APPLIED;
5907 }
5908 // 0x10f AvatarRemoval
5909 // 0x104 AvatarRemoval (iwd)
5910 int fx_avatar_removal (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5911 {
5912         if (0) printf( "fx_avatar_removal (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5913         //FIXME: this is a permanent irreversible effect in IWD
5914         //if it is different in bg2, then create another effect
5915         //bg2 calls this SummonDisable
5916         BASE_SET(IE_AVATARREMOVAL, 1);
5917         return FX_NOT_APPLIED;
5918 }
5919
5920 /* note/TODO from Taimon:
5921 What happens at a lower level is that the engine recreates the entire stats on some changes to the creature. The application of an effect to the creature is one such change.
5922 Since the repeating effects are stored in a list inside those stats, they are being recreated every ai update, if there has been an effect application.
5923 The repeating effect itself internally uses a counter to store how often it has been called. And when this counter equals the period it fires of the effect. When the list is being recreated all those counters are lost.
5924 */
5925 static EffectRef fx_apply_effect_repeat_ref = {"ApplyEffectRepeat", NULL, -1};
5926 // 0x110 ApplyEffectRepeat
5927 int fx_apply_effect_repeat (Scriptable* Owner, Actor* target, Effect* fx)
5928 {
5929         ieDword i; //moved here because msvc6 cannot handle it otherwise
5930
5931         if (0) printf( "fx_apply_effect_repeat (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5932
5933         Point p(fx->PosX, fx->PosY);
5934         Effect *newfx = core->GetEffect(fx->Resource, fx->Power, p);
5935         //core->GetEffect is a borrowed reference, don't delete it
5936         if (!newfx) {
5937                 return FX_NOT_APPLIED;
5938         }
5939
5940         // don't apply the effect if a similar one is already applied with a shorter duration
5941         Effect *oldfx = target->fxqueue.HasEffect(fx_apply_effect_repeat_ref);
5942         if (oldfx && oldfx->Duration < fx->Duration) {
5943                 return FX_NOT_APPLIED;
5944         }
5945
5946         switch (fx->Parameter2) {
5947                 case 0: //once per second
5948                 case 1: //crash???
5949                         if (!(core->GetGame()->GameTime%AI_UPDATE_TIME)) {
5950                                 core->ApplyEffect(newfx, target, Owner);
5951                         }
5952                         break;
5953                 case 2://param1 times every second
5954                         if (!(core->GetGame()->GameTime%AI_UPDATE_TIME)) {
5955                                 for (i=0;i<fx->Parameter1;i++) {
5956                                         core->ApplyEffect(newfx, target, Owner);
5957                                 }
5958                         }
5959                         break;
5960                 case 3: //once every Param1 second
5961                         if (fx->Parameter1 && (core->GetGame()->GameTime%fx->Parameter1)) {
5962                                 core->ApplyEffect(newfx, target, Owner);
5963                         }
5964                         break;
5965                 case 4: //param3 times every Param1 second
5966                         if (fx->Parameter1 && (core->GetGame()->GameTime%fx->Parameter1)) {
5967                                 for (i=0;i<fx->Parameter3;i++) {
5968                                         core->ApplyEffect(newfx, target, Owner);
5969                                 }
5970                         }
5971                         break;
5972         }
5973         return FX_APPLIED;
5974 }
5975
5976 // 0x111 RemoveProjectile
5977 int fx_remove_projectile (Scriptable* /*Owner*/, Actor* target, Effect* fx)
5978 {
5979         //the list is now cached by Interface, no need of freeing it
5980         ieDword *projectilelist;
5981
5982         //instant effect
5983         if (0) printf( "fx_remove_projectile (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
5984
5985         if (!target) return FX_NOT_APPLIED;
5986         Map *area = target->GetCurrentArea();
5987         if (!area) return FX_NOT_APPLIED;
5988
5989         switch (fx->Parameter2) {
5990         case 0: //standard bg2
5991                 projectilelist = core->GetListFrom2DA("clearair");
5992                 break;
5993         case 1: //you can give a 2da for projectile list (gemrb)
5994                 projectilelist = core->GetListFrom2DA(fx->Resource);
5995                 break;
5996         case 2: //or you can give one single projectile in param1 (gemrb)
5997                 projectilelist = (ieDword *) malloc(2*sizeof(ieDword));
5998                 projectilelist[0]=1;
5999                 projectilelist[1]=fx->Parameter1;
6000                 break;
6001         default:
6002                 return FX_NOT_APPLIED;
6003         }
6004         //The first element is the counter, so don't decrease the counter here
6005         Point p(fx->PosX, fx->PosY);
6006
6007         int i = projectilelist[0];
6008
6009         while(i) {
6010                 ieDword projectile = projectilelist[i];
6011                 proIterator piter;
6012
6013                 size_t cnt = area->GetProjectileCount(piter);
6014                 while( cnt--) {
6015                         Projectile *pro = *piter;
6016                         if ((pro->GetType()==projectile) && pro->PointInRadius(p) ) {
6017                                 pro->Cleanup();
6018                         }
6019                 }
6020                 if (target) {
6021                         target->fxqueue.RemoveAllEffectsWithProjectile(projectile);
6022                 }
6023                 i--;
6024         }
6025         //this one was constructed by us
6026         if (fx->Parameter2==2) free(projectilelist);
6027         return FX_NOT_APPLIED;
6028 }
6029
6030 // 0x112 TeleportToTarget
6031 int fx_teleport_to_target (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6032 {
6033         if (0) printf( "fx_teleport_to_target (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6034         if (STATE_GET(STATE_DEAD)) {
6035                 return FX_NOT_APPLIED;
6036         }
6037
6038         Map *map = target->GetCurrentArea();
6039         if (map) {
6040                 Actor *victim = map->GetActorByGlobalID(target->LastAttacker);
6041                 if (victim) {
6042                         target->SetPosition( victim->Pos, true, 0 );
6043                 }
6044         }
6045         return FX_NOT_APPLIED;
6046 }
6047 // 0x113 HideInShadowsModifier
6048 int fx_hide_in_shadows_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6049 {
6050         if (0) printf( "fx_hide_in_shadows_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6051         STAT_MOD( IE_HIDEINSHADOWS );
6052         return FX_APPLIED;
6053 }
6054 // 0x114 DetectIllusionsModifier
6055 int fx_detect_illusion_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6056 {
6057         if (0) printf( "fx_detect_illusion_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6058         STAT_MOD( IE_DETECTILLUSIONS );
6059         return FX_APPLIED;
6060 }
6061 // 0x115 SetTrapsModifier
6062 int fx_set_traps_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6063 {
6064         if (0) printf( "fx_set_traps_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6065         STAT_MOD( IE_SETTRAPS );
6066         return FX_APPLIED;
6067 }
6068 // 0x116 ToHitBonusModifier
6069 int fx_to_hit_bonus_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6070 {
6071         if (0) printf( "fx_to_hit_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6072         HandleBonus( target, IE_HITBONUS, fx->Parameter1, fx->TimingMode );
6073         return FX_APPLIED;
6074 }
6075
6076 // 0x117 RenableButton
6077 static EffectRef fx_disable_button_ref={"DisableButton",NULL,-1};
6078
6079 int fx_renable_button (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6080 {
6081         //removes the disable button effect
6082         if (0) printf( "fx_renable_button (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
6083         target->fxqueue.RemoveAllEffectsWithParam( fx_disable_button_ref, fx->Parameter2 );
6084         return FX_NOT_APPLIED;
6085 }
6086 // 0x118 ForceSurgeModifier
6087 int fx_force_surge_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6088 {
6089         if (0) printf( "fx_force_surge_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6090         STAT_MOD( IE_FORCESURGE );
6091         return FX_APPLIED;
6092 }
6093
6094 // 0x119 WildSurgeModifier
6095 int fx_wild_surge_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6096 {
6097         if (0) printf( "fx_wild_surge_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6098         STAT_MOD( IE_SURGEMOD );
6099         return FX_APPLIED;
6100 }
6101
6102 // 0x11a ScriptingState
6103 int fx_scripting_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6104 {
6105         if (0) printf( "fx_scripting_state (%2d): Value: %d, Stat: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6106
6107         //original engine didn't check boundaries, causing crashes
6108         //we allow only positive indices (some extra stats are still addressable)
6109         if (fx->Parameter2>100) {
6110                 return FX_NOT_APPLIED;
6111         }
6112         //original engine used only single byte value, we allow full dword
6113         STAT_SET( IE_SCRIPTINGSTATE1+fx->Parameter2, fx->Parameter1 );
6114         return FX_APPLIED;
6115 }
6116
6117 // 0x11b ApplyEffectCurse
6118 int fx_apply_effect_curse (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6119 {
6120         if (0) printf( "fx_apply_effect_curse (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6121
6122         //this effect executes a file effect in place of this effect
6123         //the file effect inherits the target and the timingmode, but gets
6124         //a new chance to roll percents
6125         int ret = FX_NOT_APPLIED;
6126         if (!target) {
6127                 return ret;
6128         }
6129
6130         if (EffectQueue::match_ids( target, fx->Parameter2, fx->Parameter1) ) {
6131                 Point p(fx->PosX, fx->PosY);
6132
6133                 //apply effect, if the effect is a goner, then kill
6134                 //this effect too
6135                 Effect *newfx = core->GetEffect(fx->Resource, fx->Power, p);
6136                 if (newfx) {
6137                         Effect *myfx = new Effect;
6138                         memcpy(myfx, newfx, sizeof(Effect));
6139                         myfx->random_value = fx->random_value;
6140                         myfx->TimingMode=fx->TimingMode;
6141                         myfx->Duration=fx->Duration;
6142                         myfx->Target = FX_TARGET_PRESET;
6143                         myfx->CasterID = fx->CasterID;
6144                         ret = target->fxqueue.ApplyEffect(target, myfx, fx->FirstApply, 0);
6145                         delete myfx;
6146                 }
6147                 //newfx is a borrowed reference don't delete it
6148         }
6149         return ret;
6150 }
6151
6152 // 0x11c MeleeHitModifier
6153 int fx_melee_to_hit_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6154 {
6155         if (0) printf( "fx_melee_to_hit_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6156         STAT_MOD( IE_MELEETOHIT );
6157         return FX_APPLIED;
6158 }
6159
6160 // 0x11d MeleeDamageModifier
6161 int fx_melee_damage_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6162 {
6163         if (0) printf( "fx_melee_damage_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6164         STAT_MOD( IE_MELEEDAMAGE );
6165         return FX_APPLIED;
6166 }
6167
6168 // 0x11e MissileDamageModifier
6169 int fx_missile_damage_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6170 {
6171         if (0) printf( "fx_missile_damage_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6172         STAT_MOD( IE_MISSILEDAMAGE );
6173         return FX_APPLIED;
6174 }
6175
6176 // 0x11f NoCircleState
6177 int fx_no_circle_state (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6178 {
6179         if (0) printf( "fx_missile_damage_modifier (%2d)\n", fx->Opcode);
6180         STAT_SET( IE_NOCIRCLE, 1 );
6181         return FX_APPLIED;
6182 }
6183
6184 // 0x120 FistHitModifier
6185 int fx_fist_to_hit_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6186 {
6187         if (0) printf( "fx_fist_to_hit_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6188         STAT_MOD( IE_FISTHIT );
6189         return FX_APPLIED;
6190 }
6191
6192 // 0x121 FistDamageModifier
6193 int fx_fist_damage_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6194 {
6195         if (0) printf( "fx_fist_damage_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6196         STAT_MOD( IE_FISTDAMAGE );
6197         return FX_APPLIED;
6198 }
6199 //0x122 TitleModifier
6200 int fx_title_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6201 {
6202         if (0) printf( "fx_fist_damage_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6203         if (fx->Parameter2) {
6204                 STAT_SET( IE_TITLE2, fx->Parameter1 );
6205         } else {
6206                 STAT_SET( IE_TITLE1, fx->Parameter1 );
6207         }
6208         return FX_APPLIED;
6209 }
6210 //0x123 DisableOverlay
6211 //FIXME: which overlay is disabled?
6212 //if one of the overlays marked by sanctuary, then
6213 //make the bit correspond to it
6214 int fx_disable_overlay_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6215 {
6216         if (0) printf( "fx_disable_overlay_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6217         STAT_SET( IE_DISABLEOVERLAY, fx->Parameter1 );
6218         return FX_APPLIED;
6219 }
6220 //0x124 Protection:Backstab (bg2)
6221 //0x11f Protection:Backstab (how, iwd2)
6222 //3 different games, 3 different methods of flagging this
6223 int fx_no_backstab_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6224 {
6225         if (0) printf( "fx_no_backstab_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6226         //bg2
6227         STAT_SET( IE_DISABLEBACKSTAB, fx->Parameter1 );
6228         //how
6229         EXTSTATE_SET(EXTSTATE_NO_BACKSTAB);
6230         //iwd2
6231         target->SetSpellState(SS_NOBACKSTAB);
6232         return FX_APPLIED;
6233 }
6234 //0x125 OffscreenAIModifier
6235 int fx_offscreenai_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6236 {
6237         if (0) printf( "fx_offscreenai_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6238         STAT_SET( IE_ENABLEOFFSCREENAI, fx->Parameter1 );
6239         target->Activate();
6240         return FX_APPLIED;
6241 }
6242 //0x126 ExistanceDelayModifier
6243 int fx_existance_delay_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6244 {
6245         if (0) printf( "fx_existance_delay_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6246         STAT_SET( IE_EXISTANCEDELAY, fx->Parameter1 );
6247         return FX_APPLIED;
6248 }
6249 //0x127 DisableChunk
6250 int fx_disable_chunk_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6251 {
6252         if (0) printf( "fx_disable_chunk_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6253         STAT_SET( IE_DISABLECHUNKING, fx->Parameter1 );
6254         return FX_APPLIED;
6255 }
6256 #if 0
6257 //This is done differently in the original engine, and THIS may not even work
6258 //0x128 Protection:Animation
6259 int fx_protection_from_animation (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6260 {
6261         if (0) printf( "fx_protection_from_animation (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6262         //remove vvc from actor if active
6263         target->RemoveVVCell(fx->Resource, false);
6264         return FX_APPLIED;
6265 }
6266 #endif
6267
6268 //0x129 Protection:Turn
6269 int fx_protection_from_turn (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6270 {
6271         if (0) printf( "fx_non_interruptible_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6272         STAT_SET( IE_NOTURNABLE, fx->Parameter1 );
6273         return FX_APPLIED;
6274 }
6275 //0x12a CutScene2
6276 //runs a predetermined script in cutscene mode
6277 int fx_cutscene2 (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
6278 {
6279         Game *game;
6280         ieResRef resref;
6281
6282         if (0) printf( "fx_cutscene2 (%2d): Type: %d\n", fx->Opcode, fx->Parameter2 );
6283         if (core->InCutSceneMode()) return FX_NOT_APPLIED;
6284         game = core->GetGame();
6285         if (!game) return FX_NOT_APPLIED;
6286
6287         game->ClearPlaneLocations();
6288         for (int i = 0; i < game->GetPartySize(false); i++) {
6289                 Actor* act = game->GetPC( i, false );
6290                 GAMLocationEntry *gle = game->GetPlaneLocationEntry(i);
6291                 if (act && gle) {
6292                         gle->Pos = act->Pos;
6293                         memcpy(gle->AreaResRef, act->Area, 9);
6294                 }
6295         }
6296
6297         core->SetCutSceneMode(true);
6298
6299         //GemRB enhancement: allow a custom resource
6300         if (fx->Parameter2) {
6301                 strnlwrcpy(resref,fx->Resource, 8);
6302         } else {
6303                 strnlwrcpy(resref,"cut250a",8);
6304         }
6305
6306         GameScript* gs = new GameScript( resref, game );
6307         gs->EvaluateAllBlocks();
6308         delete( gs );
6309         return FX_NOT_APPLIED;
6310 }
6311 //0x12b ChaosShieldModifier
6312 int fx_chaos_shield_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6313 {
6314         if (0) printf( "fx_chaos_shield_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6315         STAT_ADD( IE_CHAOSSHIELD, fx->Parameter1 );
6316         if (fx->Parameter2) {
6317                 target->AddPortraitIcon(PI_CSHIELD); //162
6318         } else {
6319                 target->AddPortraitIcon(PI_CSHIELD2); //163
6320         }
6321         return FX_APPLIED;
6322 }
6323 //0x12c NPCBump
6324 int fx_npc_bump (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6325 {
6326         if (0) printf( "fx_npc_bump (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6327         //unknown effect, but known stat position
6328         STAT_MOD( IE_NPCBUMP );
6329         return FX_APPLIED;
6330 }
6331 //0x12d CriticalHitModifier
6332 int fx_critical_hit_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6333 {
6334         if (0) printf( "fx_critical_hit_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6335         STAT_MOD( IE_CRITICALHITBONUS );
6336         return FX_APPLIED;
6337 }
6338 // 0x12e CanUseAnyItem
6339 int fx_can_use_any_item_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6340 {
6341         if (0) printf( "fx_can_use_any_item_modifier (%2d): Value: %d\n", fx->Opcode, fx->Parameter2 );
6342
6343         STAT_SET( IE_CANUSEANYITEM, fx->Parameter2 );
6344         return FX_APPLIED;
6345 }
6346
6347 // 0x12f AlwaysBackstab
6348 int fx_always_backstab_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6349 {
6350         if (0) printf( "fx_always_backstab_modifier (%2d): Value: %d\n", fx->Opcode, fx->Parameter2 );
6351
6352         STAT_SET( IE_ALWAYSBACKSTAB, fx->Parameter2 );
6353         return FX_APPLIED;
6354 }
6355
6356 // 0x130 MassRaiseDead
6357 int fx_mass_raise_dead (Scriptable* Owner, Actor* /*target*/, Effect* fx)
6358 {
6359         if (0) printf( "fx_mass_raise_dead (%2d)\n", fx->Opcode );
6360
6361         Game *game=core->GetGame();
6362
6363         int i=game->GetPartySize(false);
6364         Point p(fx->PosX,fx->PosY);
6365         while (i--) {
6366                 Actor *actor=game->GetPC(i,false);
6367                 Resurrect(Owner, actor, fx, p);
6368         }
6369         return FX_NOT_APPLIED;
6370 }
6371
6372 // 0x131 OffhandHitModifier
6373 int fx_left_to_hit_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6374 {
6375         if (0) printf( "fx_left_to_hit_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6376
6377         STAT_MOD( IE_HITBONUSLEFT );
6378         return FX_APPLIED;
6379 }
6380
6381 // 0x132 RightHitModifier
6382 int fx_right_to_hit_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6383 {
6384         if (0) printf( "fx_right_to_hit_modifier (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6385
6386         STAT_MOD( IE_HITBONUSRIGHT );
6387         return FX_APPLIED;
6388 }
6389
6390 // 0x133 Reveal:Tracks
6391 int fx_reveal_tracks (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6392 {
6393         if (0) printf( "fx_reveal_tracks (%2d): Distance: %d\n", fx->Opcode, fx->Parameter1 );
6394         Map *map = target->GetCurrentArea();
6395         if (!map) return FX_APPLIED;
6396         if (!fx->Parameter2) {
6397                 fx->Parameter2=1;
6398                 //write tracks.2da entry
6399                 if (map->DisplayTrackString(target)) {
6400                         return FX_NOT_APPLIED;
6401                 }
6402         }
6403         GameControl *gc = core->GetGameControl();
6404         if (gc) {
6405                 //highlight all living creatures (not in party, but within range)
6406                 gc->SetTracker(target, fx->Parameter1);
6407         }
6408         return FX_APPLIED;
6409 }
6410
6411 // 0x134 Protection:Tracking
6412 int fx_protection_from_tracking (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6413 {
6414         if (0) printf( "fx_protection_from_tracking (%2d): Mod: %d, Type: %d\n", fx->Opcode, fx->Parameter1, fx->Parameter2 );
6415
6416         STAT_MOD( IE_NOTRACKING ); //highlight creature???
6417         return FX_APPLIED;
6418 }
6419 // 0x135 ModifyLocalVariable
6420 int fx_modify_local_variable (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6421 {
6422         //convert it to internal variable format
6423         if (!fx->IsVariable) {
6424                 char *poi = fx->Resource+8;
6425                 memmove(poi, fx->Resource2, 8);
6426                 poi+=8;
6427                 memmove(poi, fx->Resource3, 8);
6428                 poi+=8;
6429                 memmove(poi, fx->Resource4, 8);
6430                 fx->IsVariable=1;
6431         }
6432         if (0) printf( "fx_modify_local_variable (%2d): %s, Mod: %d\n", fx->Opcode, fx->Resource, fx->Parameter2 );
6433         if (fx->Parameter2) {
6434                 ieDword var = 0;
6435                 //use resource memory area as variable name
6436                 target->locals->Lookup(fx->Resource, var);
6437                 target->locals->SetAt(fx->Resource, var+fx->Parameter1);
6438         } else {
6439                 target->locals->SetAt(fx->Resource, fx->Parameter1);
6440         }
6441         return FX_NOT_APPLIED;
6442 }
6443
6444 // 0x136 TimelessState
6445 int fx_timeless_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6446 {
6447         if (0) printf( "fx_timeless_modifier (%2d): Mod: %d\n", fx->Opcode, fx->Parameter2 );
6448         STAT_SET(IE_DISABLETIMESTOP, fx->Parameter2);
6449         return FX_APPLIED;
6450 }
6451
6452 //0x137 GenerateWish
6453 #define WISHCOUNT 25
6454 static int wishlevels[WISHCOUNT]={10,10,10,10,0,10,0,15,0,0,0,0,0,0,15,0,0,
6455 17,9,17,17,9,9,9,0};
6456
6457 int fx_generate_wish (Scriptable* Owner, Actor* target, Effect* fx)
6458 {
6459         ieResRef spl;
6460
6461         if (0) printf( "fx_generate_wish (%2d): Mod: %d\n", fx->Opcode, fx->Parameter2 );
6462         int tmp = core->Roll(1,WISHCOUNT,0);
6463         sprintf(spl,"SPWISH%02d",tmp);
6464         core->ApplySpell(spl, target, Owner, wishlevels[tmp-1]);
6465         return FX_NOT_APPLIED;
6466 }
6467 //0x138 //see fx_crash, this effect is not fully enabled in original bg2/tob
6468 int fx_immunity_sequester (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6469 {
6470         if (0) printf( "fx_immunity_sequester (%2d): Mod: %d\n", fx->Opcode, fx->Parameter2 );
6471         //this effect is supposed to provide immunity against sequester (maze/etc?)
6472         STAT_SET(IE_NOSEQUESTER, fx->Parameter2);
6473         return FX_APPLIED;
6474 }
6475
6476 //0x139 //HLA generic effect
6477 //0x13a StoneSkin2Modifier
6478 int fx_golem_stoneskin_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6479 {
6480         if (0) printf( "fx_golem_stoneskin_modifier (%2d): Mod: %d\n", fx->Opcode, fx->Parameter1 );
6481         if (!fx->Parameter1) {
6482                 return FX_NOT_APPLIED;
6483         }
6484         //dead actors lose this effect
6485         if (STATE_GET( STATE_DEAD) ) {
6486                 return FX_NOT_APPLIED;
6487         }
6488
6489         STAT_SET(IE_STONESKINSGOLEM, fx->Parameter1);
6490         SetGradient(target, 14);
6491         return FX_APPLIED;
6492 }
6493
6494 // 0x13b AvatarRemovalModifier (also 0x104 iwd)
6495 int fx_avatar_removal_modifier (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6496 {
6497         if (0) printf( "fx_avatar_removal_modifier (%2d): Mod: %d\n", fx->Opcode, fx->Parameter2 );
6498         STAT_SET(IE_AVATARREMOVAL, fx->Parameter2);
6499         return FX_APPLIED;
6500 }
6501
6502 // 0x13c MagicalRest (also 0x124 iwd)
6503 int fx_magical_rest (Scriptable* /*Owner*/, Actor* target, Effect* fx)
6504 {
6505         if (0) printf( "fx_magical_rest (%2d)\n", fx->Opcode );
6506         //instant, full rest
6507         target->Rest(0);
6508         target->fxqueue.RemoveAllEffectsWithParam(fx_display_portrait_icon_ref, PI_FATIGUE);
6509         return FX_NOT_APPLIED;
6510 }
6511
6512 // 0x13d ImprovedHaste (See 0x10 Haste)
6513 // unknown
6514 int fx_unknown (Scriptable* /*Owner*/, Actor* /*target*/, Effect* fx)
6515 {
6516         printf( "fx_unknown (%2d): P1: %d P2: %d ResRef: %s\n", fx->Opcode, fx->Parameter1, fx->Parameter2, fx->Resource );
6517         return FX_NOT_APPLIED;
6518 }
6519
6520 #include "plugindef.h"
6521
6522 GEMRB_PLUGIN(0x1AAA040A, "Effect opcodes for core games")
6523 PLUGIN_INITIALIZER(RegisterCoreOpcodes)
6524 PLUGIN_CLEANUP(Cleanup)
6525 END_PLUGIN()