Konvertering fra asp

Jeg havde lavet et simpelt asp script (bare en funktion og en loop egentlig) for at lave et output jeg kunne paste til cfg filer i quake3 (q3 script er _meget_ simpelt som man også kan se på outputtet)
Nu har jeg ikke længere adgang til en asp server så vil gerne have det konverteret til javascript.



ASP:

i = 0
Function tid(k)
k = k + i
If k > 59 Then k = k - 60
If k < 0 Then k = k + 60
If Len(k) = 1 Then k = "0" & k
Response.Write k
End Function

<% Do Until i = 60 %>
set <% tid(0) %> "set up vstr <% tid(1) %>; set dn vstr <% tid(-1) %>; set alt vstr <% tid(0) %>; bind mouse3 vstr !<% tid(0) %>; echo ^2Our ^1RA ^7:<% tid(0) %>"<br>
set !<% tid(0) %> "set ora vstr <% tid(25) %>; set alt vstr ora; vstr ora; set !ora say_team ^7# ^2Our ^1RA ^7:<% tid(25) %>; vstr !ora; cl_noprint 1; exec t/reset"<br>
<% i = i + 1
loop %>


Giver:

set 00 "set up vstr 01; set dn vstr 59; set alt vstr 00; bind mouse3 vstr !00; echo ^2Our ^1RA ^7:00"
set !00 "set ora vstr 25; set alt vstr ora; vstr ora; set !ora say_team ^7# ^2Our ^1RA ^7:25; vstr !ora; cl_noprint 1; exec t/reset"
set 01 "set up vstr 02; set dn vstr 00; set alt vstr 01; bind mouse3 vstr !01; echo ^2Our ^1RA ^7:01"
set !01 "set ora vstr 26; set alt vstr ora; vstr ora; set !ora say_team ^7# ^2Our ^1RA ^7:26; vstr !ora; cl_noprint 1; exec t/reset"
set 02 "set up vstr 03; set dn vstr 01; set alt vstr 02; bind mouse3 vstr !02; echo ^2Our ^1RA ^7:02"
set !02 "set ora vstr 27; set alt vstr ora; vstr ora; set !ora say_team ^7# ^2Our ^1RA ^7:27; vstr !ora; cl_noprint 1; exec t/reset"

osv op til 59...


Skal bare have samme output fra javascriptet.