Terrain type issues

//rough version
find casting point
loop trough all x and y points (128 space between blocks)
save terrain types and variances
change terrain
wait
loop trought everything again and restore old terrain types and variances
done

//Finished version
scope Ice

globals
    constant integer AID_ABILITY = 'A000' //The ability used
    constant integer TID_TERRAINTYPE = 'Iice' //Whatever type of terrain you want to use.
    constant real RADIUS = 500.00 //size/area affected
    constant real RESET = 3.00 //How long to wait before changing the area back to normal
endglobals

private function Actions takes nothing returns nothing
    //Do I need to null or destroy the real, integers, and/or the ability location at the end?
    local real ax = GetLocationX(GetSpellTargetLoc())
    local real ay = GetLocationY(GetSpellTargetLoc())
    local real x = RADIUS / 2 //width
    local real y = RADIUS / 2 //height
    local integer array t //Terrain type
    local integer array v //Terrain variance
    local integer i = 0
    if GetSpellAbilityId() != AID_ABILITY then
        return //Stops the trigger if the ability casted isn't the right one (see above globals)
    endif
    call TriggerSleepAction(1.00)
    loop
        loop
            set i = i + 1
            set t[i] = GetTerrainType(ax + x, ay + y)
            set v[i] = GetTerrainVariance(ax + x, ay + y)
            call SetTerrainType(ax + x, ay + y, TID_TERRAINTYPE, -1, 1, 1)
            set y = y - 128
            exitwhen y <= (RADIUS / 2) * -1
        endloop
        set x = x - 128
        set y = RADIUS / 2
        exitwhen x <= (RADIUS / 2) * -1
    endloop
    call TriggerSleepAction(RESET)
    //If you want a more precise reset I can use a timer, and at the same time get rid of the two following loops. 
    set i = 0
    set x = RADIUS / 2 + 1
    set y = RADIUS / 2 + 1
    loop
        loop
            set i = i + 1
            call SetTerrainType(ax + x, ay + y, t[i], v[i], 1, 1)
            set y = y - 128
            exitwhen y <= (RADIUS / 2 * -1)
        endloop
        set x = x - 128
        set y = RADIUS / 2
        exitwhen x <= (RADIUS / 2 * -1)
    endloop
endfunction

public function InitTrig takes nothing returns nothing
    local trigger trig = CreateTrigger()
    local integer i = 0
    loop
        call TriggerRegisterPlayerUnitEvent(trig, Player(i), EVENT_PLAYER_UNIT_SPELL_CAST, null)
        set i = i + 1
        exitwhen i == 12
    endloop
    call TriggerAddAction(trig, function Actions)
endfunction

endscope