Random Encounter Template v0.2

////////////////////////////////////////////////////////////////////////////
/// Generic Turn-Based Battle Template /// Rev 0.2 -  7th Febryary, 2018 ///
/// Requires Zelda Classic 2.54        /// By: ZoriaRPG                  ///
/// ...Alpha 22 or later.              /// For educational purposes.     ///
////////////////////////////////////////////////////////////////////////////

/////////////////////////////////////////
/// Defines for game engine constants ///
/////////////////////////////////////////

//General
const int FFC_INVISIBLE_DATA        = 0;

//Screen->D
const int SCREEN_D_BATTLES      = 4;
const int SCREEN_D_BATTLE_TIMER_CHANGED = 1;

//Battles[] Array
const int BATTLE_TIMER          = 0;
const int BATTLE_TIMER_MIN      = 1;
const int BATTLE_TIMER_MAX      = 2;
const int BATTLE_TIMER_DOBATTLE     = 3;
const int BATTLE_NUMNPCS        = 4;

const int BATTLE_MAX            = 40;

//NPC Misc / Attributes
const int NPCM_ATTACKTIMER      = 0;

const int NPCA_INT          = 0;
const int NPCA_WIS          = 1;
const int NPCA_MORALE           = 2;
const int NPCA_SPEED            = 3;
const int NPCA_MP           = 4;
const int NPCA_SPELLS           = 5;
const int NPCA_INVENTORY        = 6;
const int NPCA_SPECIAL_STRING       = 7;

//Global Array Sizes
const int GAS_NPCDATA           = 512;
const int GAS_MAPDATA           = 512;
const int GAS_ITEMDATA          = 512;
const int GAS_DROPDATA          = 512;
const int GAS_SHOPDATA          = 512;
const int GAS_NPCS          = 256;
const int GAS_ITEMS             = 256;
const int GAS_EWEAPONS          = 256;
const int GAS_LWEAPONS          = 256;
const int GAS_TEXTBUFFER        = 1024;
const int GAS_TYPEBUFFER        = 129;
const int GAS_GLOBALRAM         = 4096;

//Global arrays
int Battles[BATTLE_MAX];
int Buffer[GAS_TEXTBUFFER];
int TypingBuffer[GAS_TYPEBUFFER];
int GameRAM[GAS_GLOBALRAM]; //Timers go here.

npcdata NData[GAS_NPCDATA];
mapdata MapScr[GAS_MAPDATA];
itemdata IData[GAS_ITEMDATA];
dropsetdata DropData[GAS_DROPDATA];
shopdata ShopData[GAS_SHOPDATA];
ffc GlobalFF[MAX_FFCS];

//For on-screen sprited effects:
npc GlobalNPC[GAS_NPCS];
item GlobalItem[GAS_ITEMS];
eweapon GlobalItem[GAS_EWEAPONS];
lweapon GlobalItem[GAS_LWEAPONS];


///////////////////////////////
/// Battle System Functions ///
///////////////////////////////

//Disable battles, temporarily.
void NoBattles()
{
}

//Sets the minimum and maximum values of a timer.
//These will be parsed as imputs for Rand().
void SetBattleTimerValues(int min, int max)
{
    Battles[BATTLE_TIMER_MIN] = min;
    Battles[BATTLE_TIMER_MAX] = max;
}

//Sets the precise value of the ticking timer.
void SetBattleTimerTick(int amt)
{
    Battles[BATTLE_TIMER] = amt;
}

//Decrements the battle timer, and determines if there is a battle.
//Call in the active script.
void DecrementBattleTimer()
{
    --Battles[BATTLE_TIMER];
    if ( Battles[BATTLE_TIMER] <= 0 )
    {
        Battles[BATTLE_TIMER] = 214748;
        Battles[BATTLE_TIMER_DOBATTLE] = 1; //this denotes tot he global script that we are runing a random encounter
        RandomEncounter();
    }
}


//reset values when the battle ends
void BattleOver(npcdata nd, int xp, int cold, int treasure)
{
    bool awarded = AwardXP_Gold_Treasure(xp, gold, nd);
    SetBattleTimerTick( Rand(Battles[BATTLE_TIMER_MIN], Battles[BATTLE_TIMER_MAX]);
}

//award stuff after battles
bool AwardXP_Gold_Treasure(int xp, int gold, npcdata special)
{
    ffc f = Screen->LoadFFC(FFC_MENU_AWARDS);
    f->Data = FFC_INVISIBLE_DATA;

    f->Script = Game->GetFFCScript("BattleRewards");
    f->InitD[3] = special;
    return true;
}

//This ffc displays Tango messages after a battle is over.
ffc script BattleRewards
{
    void run(int xp, int gold, npcdata special)
    {
        //Determine what items an npc drops
        dropsetdata dr = Game->LoadDropSetData(special->DropSet);
        //Do random drop chances based on dropsetdata.

        //Tango menus to display this stuff.

    }
}


//Place on a screen to have that screen change the battle timer for an area.
ffc script FFC_Set_Battle_Timer_Values
{
    void run(int min, int max, int reg, int bit, bool repeat)
    {
        if ( reg <= 0 ) { reg = SCREEN_D_BATTLES; }
        if ( bit <= 0 ) { bit = SCREEN_D_BATTLE_TIMER_CHANGED; }
        if ( !repeat )
        {
            if ( !GetScreenDBit(reg, bit) )
            {
                Battles[BATTLE_TIMER_MIN] = min;
                Battles[BATTLE_TIMER_MAX] = max;
                SetScreenDBit(reg, bit, true);
            }
        }
        else
        {
            Battles[BATTLE_TIMER_MIN] = min;
            Battles[BATTLE_TIMER_MAX] = max;
        }
        Quit();
    }
}

//Runs a random encounter, based on the timer.
void RandomEncounter()
{
    mapdata m = Game->LoadMapDat(Game->GetCurMap(), Game->GetCurScreen());
    npcdata e = Game->LoadNPCData(m-Enemy[Rand(10]l
    ffc f = Screen->LoadFFC(32);
    f->Script = Game->GetFFCScript("Battle");
    f->InitD[0] = e;
    f->InitD[1] = m; //for drawing backdrops
}

//The battle menus run from here, as do all enemy actions.
ffc script Battle
{
   void run(npcdata e, mapdata m)
   {
        bool waiting; int mode; int action;
    while(1)
    {
        // Draw background using 'm'
                // draw npc using 'e'
            // determine e's attacks using it's attributes;
            // draw menus
            // determine who goes first
            mode = Rand(1); //if 1, enemy goes first
            while(mode)
            {
                //do enemy actions
                //Waitframe();
            }
            while(!mode)
            {
                //player actions
            waiting = true;
            while(waiting)
            {
                //do_menus();
                action = BattleMenu();
                    Waitframe();
                }

                //resolve stuff this round
            Waitframe();
        }
    }
}


// There are certainly other ways to handle these...
// Vars used by the Tango menu.
int menuCommand;
int menuArg;

//Tango Menu Init
void SetUpWindow(int slot, int style, int x, int y, int size)
{
    SetStyleSize(style, size);
    Tango_ClearSlot(slot);
    Tango_SetSlotStyle(slot, style);
    Tango_SetSlotPosition(slot, x, y);
}

//Quick way to drop a string into a Tango dialogue box.
void ShowString(int string, int slot, int style, int x, int y)
{
    SetUpWindow(slot, style, x, y, SIZE_LARGE);
    Tango_LoadString(slot, string);
    Tango_ActivateSlot(slot);
    while(Tango_SlotIsActive(slot))
        Waitframe();
}


//The Battle Menus called from the 'Battle' FFC.
int BattleMenu() {

    int lineBreak[]="@26";
    int line1[]="@choice(1)Attack@tab(40)@choice(2)Spell@26";
    int line2[]="@choice(3)Item@tab(40)@choice(4)Item@domenu(1)@suspend()";


    SetUpWindow(WINDOW_SLOT_1, WINDOW_STYLE_3, 32, 32, SIZE_LARGE);
        Tango_LoadString(WINDOW_SLOT_1, line1);
    Tango_AppendString(WINDOW_SLOT_1, line2);
        Tango_ActivateSlot(WINDOW_SLOT_1);


    while(!Tango_MenuIsActive()){

        Waitframe();
    }

    // Save the state again...
    int slotState[278];
    int menuState[960];
    int cursorPos;
    Tango_SaveSlotState(WINDOW_SLOT_1, slotState);
    Tango_SaveMenuState(menuState);

    int done = 0;
    int choice;
    while(true){

        while( Tango_MenuIsActive() ) {
            cursorPos=Tango_GetMenuCursorPosition();
            Waitframe();
        }

        choice = Tango_GetLastMenuChoice();
        if ( choice == 1 ) { // Item Info
            int text[256];
            Game->GetMessage(msg,text); //Load msg into the buffer.
            ShowString(text, WINDOW_SLOT_2, WINDOW_STYLE_3, 48, 48);
        }
        else if ( choice == 2 ) { //Buy
            done = choice;
            menuArg = choice;
        }

        else if ( choice == 3 ) { //Cancel
            done = choice;
        }

        else if ( Link->PressEx1 ) {
            done = 1;
        }
        else done = 3;

        if ( done ) {
            break;
        //  return choice;
        }
        else {
            Tango_RestoreSlotState(WINDOW_SLOT_1, slotState);
            Tango_RestoreMenuState(menuState);
            Tango_SetMenuCursorPosition(cursorPos);
        }
    }

    Tango_ClearSlot(WINDOW_SLOT_1);
    return done;
}