Set Event Speed

#   ROUTINE: SET EVENT SPEED
#       Parameters:
#           r4 = (newEventSpeed) Event speed value
#               0x01: Normal speed
#               0x02: Slowed down

8013da00: 27bdffe8 addiu r29,r29,-0x0018
8013da04: afbf0010 sw r31,0x0010(r29)
8013da08: 3c018016 lui r1,0x8016
8013da0c: ac245f88 sw r4,0x5f88(r1)             #   *0x80165f88 = newEventSpeed
8013da10: 0c0237ba jal 0x8008dee8               #   Set Event Speed Inner (newEventSpeed);
8013da14: 00000000 nop
8013da18: 8fbf0010 lw r31,0x0010(r29)
8013da1c: 27bd0018 addiu r29,r29,0x0018
8013da20: 03e00008 jr r31
8013da24: 00000000 nop