scope ANIMATIONSPEED initializer Registry

globals
private real array number [80]
endglobals

function AniSpeed takes integer AtSpeed,real AnSpeed returns real
local integer l = 0
local real data = AnSpeed
local real temp = AnSpeed
local real exit = AnSpeed
    
    if AtSpeed > 400 then
        set AtSpeed = 400
    elseif AtSpeed < -80 then
        set AtSpeed = -80
    endif
    
    if AtSpeed != 0 then
        
        if AtSpeed < 0 then
        
            set l = AtSpeed - AtSpeed * 2
            set temp = temp * number[l]
            
        else
            
            loop
            set l = l + 1
            
                    set temp = data - temp * (0.01 * l)
                    if exit > temp then
                        set exit = temp
                    else
                        set temp = exit
                    endif
                
                exitwhen l >= AtSpeed 
            endloop
            
        endif
    endif
    
    return temp
endfunction

function Registry takes nothing returns nothing
number[1] = 1.0101
number[2] = 1.0204
number[3] = 1.0309
number[4] = 1.0416
number[5] = 1.0526
number[6] = 1.0638
number[7] = 1.0752
number[8] = 1.0869
number[9] = 1.0989
number[10] = 1.1111
number[11] = 1.1235
number[12] = 1.1363
number[13] = 1.1494
number[14] = 1.1627
number[15] = 1.1764
number[16] = 1.1904
number[17] = 1.2048
number[18] = 1.2195
number[19] = 1.2345
number[20] = 1.2500
number[21] = 1.2658
number[22] = 1.2820
number[23] = 1.2986
number[24] = 1.3157
number[25] = 1.3333
number[26] = 1.3513
number[27] = 1.3698
number[28] = 1.3888
number[29] = 1.4084
number[30] = 1.4285
number[31] = 1.4492
number[32] = 1.4705
number[33] = 1.4925
number[34] = 1.5151
number[35] = 1.5384
number[36] = 1.5625
number[37] = 1.5873
number[38] = 1.6129
number[39] = 1.6393
number[40] = 1.6666
number[41] = 1.6949
number[42] = 1.7241
number[43] = 1.7543
number[44] = 1.7857
number[45] = 1.8181
number[46] = 1.8518
number[47] = 1.8868
number[48] = 1.9230
number[49] = 1.9607
number[50] = 2.0000
number[51] = 2.0408
number[52] = 2.0833
number[53] = 2.1276
number[54] = 2.1739
number[55] = 2.2222
number[56] = 2.2727
number[57] = 2.3255
number[58] = 2.3809
number[59] = 2.4390
number[60] = 2.5000
number[61] = 2.5641
number[62] = 2.6315
number[63] = 2.7027
number[64] = 2.7777
number[65] = 2.8571
number[66] = 2.9411
number[67] = 3.0303
number[68] = 3.1250
number[69] = 3.2258
number[70] = 3.3333
number[71] = 3.4482
number[72] = 3.5714
number[73] = 3.7037
number[74] = 3.8461
number[75] = 4.0000
number[76] = 4.1666
number[77] = 4.3478
number[78] = 4.5454
number[79] = 4.7619
number[80] = 5.0000
endfunction

endscope