TexturePan.inc.c

Go to the documentation of this file.

#include "common.h"
#include "npc.h"
 
#include "TexturePan.h"
 
API_CALLABLE(N(UpdateTexturePanSmooth)) {
    script->varTable[9] += script->varTable[1];
    if (script->varTable[9] < 0) {
        script->varTable[9] += script->varTable[13];
    } else if (script->varTable[9] > script->varTable[13]) {
        script->varTable[9] -= script->varTable[13];
    }
 
    script->varTable[10] += script->varTable[2];
    if (script->varTable[10] < 0) {
        script->varTable[10] += script->varTable[13];
    } else if (script->varTable[10] > script->varTable[13]) {
        script->varTable[10] -= script->varTable[13];
    }
 
    script->varTable[11] += script->varTable[3];
    if (script->varTable[11] < 0) {
        script->varTable[11] += script->varTable[13];
    } else if (script->varTable[11] > script->varTable[13]) {
        script->varTable[11] -= script->varTable[13];
    }
 
    script->varTable[12] += script->varTable[4];
    if (script->varTable[12] < 0) {
        script->varTable[12] += script->varTable[13];
    } else if (script->varTable[12] > script->varTable[13]) {
        script->varTable[12] -= script->varTable[13];
    }
 
    set_main_pan_u(script->varTable[0], script->varTable[9]);
    set_main_pan_v(script->varTable[0], script->varTable[10]);
    set_aux_pan_u(script->varTable[0], script->varTable[11]);
    set_aux_pan_v(script->varTable[0], script->varTable[12]);
    return ApiStatus_BLOCK;
}
 
API_CALLABLE(N(UpdateTexturePanStepped)) {
    if (isInitialCall) {
        script->functionTemp[0] = 0;
        script->functionTemp[1] = 0;
        script->functionTemp[2] = 0;
        script->functionTemp[3] = 0;
    }
 
    if (script->functionTemp[0] == 0) {
        script->varTable[9] += script->varTable[1];
        if (script->varTable[9] < 0) {
            script->varTable[9] += script->varTable[13];
        } else if (script->varTable[9] > script->varTable[13]) {
            script->varTable[9] -= script->varTable[13];
        }
    }
 
    if (script->functionTemp[1] == 0) {
        script->varTable[10] += script->varTable[2];
        if (script->varTable[10] < 0) {
            script->varTable[10] += script->varTable[13];
        } else if (script->varTable[10] > script->varTable[13]) {
            script->varTable[10] -= script->varTable[13];
        }
    }
 
    if (script->functionTemp[2] == 0) {
        script->varTable[11] += script->varTable[3];
        if (script->varTable[11] < 0) {
            script->varTable[11] += script->varTable[13];
        } else if (script->varTable[11] > script->varTable[13]) {
            script->varTable[11] -= script->varTable[13];
        }
    }
 
    if (script->functionTemp[3] == 0) {
        script->varTable[12] += script->varTable[4];
        if (script->varTable[12] < 0) {
            script->varTable[12] += script->varTable[13];
        } else if (script->varTable[12] > script->varTable[13]) {
            script->varTable[12] -= script->varTable[13];
        }
    }
 
    set_main_pan_u(script->varTable[0], script->varTable[9]);
    set_main_pan_v(script->varTable[0], script->varTable[10]);
    set_aux_pan_u(script->varTable[0], script->varTable[11]);
    set_aux_pan_v(script->varTable[0], script->varTable[12]);
 
    script->functionTemp[0]++;
    script->functionTemp[1]++;
    script->functionTemp[2]++;
    script->functionTemp[3]++;
 
    if (script->functionTemp[0] >= script->varTable[5]) {
        script->functionTemp[0] = 0;
    }
    if (script->functionTemp[1] >= script->varTable[6]) {
        script->functionTemp[1] = 0;
    }
    if (script->functionTemp[2] >= script->varTable[7]) {
        script->functionTemp[2] = 0;
    }
    if (script->functionTemp[3] >= script->varTable[8]) {
        script->functionTemp[3] = 0;
    }
 
    return ApiStatus_BLOCK;
}
 
EvtScript N(EVS_UpdateTexturePan) = {
    SetGroup(EVT_GROUP_NEVER_PAUSE)
    IfEq(LVar5, 1)
        IfEq(LVar6, 1)
            IfEq(LVar7, 1)
                IfEq(LVar8, 1)
                    Call(N(UpdateTexturePanSmooth))
                    Return
                EndIf
            EndIf
        EndIf
    EndIf
    Call(N(UpdateTexturePanStepped))
    Return
    End
};