If p=0 Then
asetaKohdenopeus(ConvertToInteger(ih),1)
ElseIf p=315 Then
asetaKohdenopeus(ConvertToInteger(ih),0)
EndIf
p+1


If kulma=>180 Then mode=-1
If kulma=<90 Then mode=1

kulma=kulma+mode*5

ammu(ConvertToInteger(ih),ih\asetyyppi)

asetaKohdeAsekulma(ConvertToInteger(ih),kulma)