// Copyright © 2016-2017 Graham Sanderson, all rights reserved.
#include "lith_upgrades_common.h"
#include "lith_world.h"

#define UData UData_Magic(upgr)

// Types ---------------------------------------------------------------------|

struct magic_info {
   int st;
   int x, y;
   __str name;
   __str classname;
};

// Static Objects ------------------------------------------------------------|

#define N(name) name, "Lith_" name
static struct magic_info const minf[] = {
   {-1,                130, 180, N("Blade")   },
   {-1,                 60, 140, N("Delear")  },
   {cupg_c_slot3spell,  60,  60, N("Feuer")   },
   {cupg_c_slot4spell, 130,  10, N("Rend")    },
   {cupg_c_slot5spell, 205,  60, N("Hulgyon") },
   {cupg_c_slot6spell, 205, 140, N("StarShot")},
   {cupg_c_slot7spell, 130, 100, N("Cercle")  },
};

// Static Functions ----------------------------------------------------------|

//
// GiveMagic
//
script static void GiveMagic(struct magic_info const *m)
{
   InvGive(m->classname, 1);
   ACS_SetWeapon(m->classname);
}

//
// UpdateMagicUI
//
script static void UpdateMagicUI(struct player *p, upgrade_t *upgr)
{
   gui_state_t *g = &UData.gst;

   Lith_GUI_Begin(g, hid_end_dialogue, 320, 240);
   Lith_GUI_UpdateState(g, p);

   DrawSpritePlain(":UI:MagicSelectBack", g->hid--, 0.1, 0.1, TS);

   bool any = false;

   for(int i = 0; i < countof(minf); i++)
   {
      struct magic_info const *m = &minf[i];

      if(m->st != -1 && !world.cbiupgr[m->st])
         continue;

      gui_button_preset_t pre = {
         .gfx      = StrParam(":UI:%S",    m->name),
         .hot      = StrParam(":UI:%SSel", m->name),
         .snd      = "player/cbi/buttonpress",
         .cdef     = "d",
         .cact     = "r",
         .chot     = "k",
         .cdis     = "m",
         .font     = "cbifont",
         .external = true,
         .w        = 64,
         .h        = 64
      };

      __str name = Language("LITH_TXT_INFO_SHORT_%S", m->name);

      if(Lith_GUI_Button_FId(g, i + 1, name, m->x, m->y, .preset = &pre))
         GiveMagic(m);
   }

   Lith_GUI_End(g, gui_curs_outline);
}

//
// GivePlayerZ
//
script static void GivePlayerZ(int tid, struct player *p, __str name)
{
   while(ACS_ThingCount(T_NONE, tid)) {
      ACS_SetUserVariable(tid, name, p->z);
      ACS_Delay(1);
   }
}

// Extern Functions ----------------------------------------------------------|

//
// Lith_SetMagicUI
//
script acs void Lith_SetMagicUI(bool on)
{
   withplayer(LocalPlayer)
   {
      if(p->dead) return;

      upgrade_t *upgr = p->getUpgr(UPGR_Magic);

      if(on)
      {
         UData.ui = true;
         p->semifrozen++;

         UData.gst.gfxprefix = ":UI:";
         UData.gst.cx = 320/2;
         UData.gst.cy = 240/2;

         Lith_GUI_Init(&UData.gst);
      }
      else if(!on && UData.ui)
      {
         if(UData.gst.hot) GiveMagic(&minf[UData.gst.hot - 1]);

         UData.ui = false;
         p->semifrozen--;

         UData.gst = (gui_state_t){};
      }
   }
}

//
// Update
//
script void Upgr_Magic_Update(struct player *p, upgrade_t *upgr)
{
   fixed manaperc = p->mana / (fixed)p->manamax;

   if(UData.manaperc < 1 && manaperc == 1)
      ACS_LocalAmbientSound("player/manafull", 127);

   UData.manaperc = manaperc;

   if(p->weapontype != weapon_c_fist) {
      if(p->buttons & BT_USER4 && !(p->old.buttons & BT_USER4))
         Lith_SetMagicUI(true);
      else if(!(p->buttons & BT_USER4) && p->old.buttons & BT_USER4)
         Lith_SetMagicUI(false);
   }

   if(UData.ui)
      UpdateMagicUI(p, upgr);

   if(manaperc >= 0.7)
      for(int i = 0; i < 5 * manaperc; i++)
   {
      fixed dst = ACS_RandomFixed(32, 56);
      fixed ang = ACS_RandomFixed(0, 1);
      int tid = ACS_UniqueTID();
      int x   = ACS_Cos(ang) * dst;
      int y   = ACS_Sin(ang) * dst;
      int z   = ACS_Random(8, 48);
      ACS_Spawn("Lith_ManaLeak", p->x + x, p->y + y, p->z + z, tid);
      ACS_SetUserVariable(tid, "user_x", x);
      ACS_SetUserVariable(tid, "user_y", y);
      ACS_SetActorPropertyFixed(tid, APROP_Alpha, manaperc / 2);
      Lith_SetPointer(tid, AAPTR_DEFAULT, AAPTR_MASTER, p->tid);
      GivePlayerZ(tid, p, "user_z");
   }
}

//
// Render
//
void Upgr_Magic_Render(struct player *p, upgrade_t *upgr)
{
   int hprc = ceilk(min(UData.manaperc,       0.5) * 2 * 33);
   int fprc = ceilk(max(UData.manaperc - 0.5, 0.0) * 2 * 33);

   DrawSpritePlain(":HUD_C:MagicIcon", hid_magicsymbol, 75.1, 238.2, TS);
   DrawSpritePlain(":HUD_C:BarVert",   hid_magicammobg, 67.1, 238.2, TS);

   ACS_SetHudClipRect(68, 237 - hprc, 5, hprc);
   DrawSpritePlain(":HUD_C:ManaBar1",  hid_magicammo1,  68.1, 237.2, TS);
   ACS_SetHudClipRect(0, 0, 0, 0);

   ACS_SetHudClipRect(68, 237 - fprc, 5, fprc);
   DrawSpritePlain(":HUD_C:ManaBar2",  hid_magicammo2,  68.1, 237.2, TS);
   ACS_SetHudClipRect(0, 0, 0, 0);
}

// EOF