Aspect Script function for calculating exponents (exponentiate) 1

[dhazer]

Thread thread448-392425 wanted a function for exponential calculations, so here's one for the archive:

func exponentiate : integer
param integer base
param integer exponent
integer counter, tempbase


tempbase = 1

if exponent == 0
return 1

elseif exponent == 1
return base
else
for counter = 1 upto exponent
tempbase = tempbase * base
endfor
endif

return tempbase

endfunc