Obj45:                  ; XREF: Obj_Index
        moveq   #0, d0                                      ; Clr d0
        move.b  $24(a0), d0                                 ; Copy routine ctr to d0
        move.w  Obj45_Index(pc,d0.w), d1                    ; Get the apt index
        jsr     Obj45_Index(pc,d1.w)                        ; Jump there
        bra DisplaySprite
; ===========================================================================
Obj45_Index:
        dc.w Obj45_Main-Obj45_Index
        dc.w Obj45_Solid-Obj45_Index
        dc.w Obj45_Teleport-Obj45_Index

Obj45_Main:             ; XREF: Obj45_Index
        move.b  #2, $24(a0)                                 ; Increase routine counter.

        move.w  #$C240, $2(a0)                              ; Art at tile $240, 3rd palette line, priority ($4240 w/o)
        move.l  #Map_Teleporter, $4(a0)                     ; moves the mappings into the mapping's SST
        move.b  #$40, $19(a0)                               ; 64 pixels wide
        move.b  #$40, $17(a0)                               ; 64 pixels wide hitbox
        move.b  #$18, $16(a0)                               ; 24 pixels tall hitbox
        move.b  #0, $18(a0)                                 ; Sprite is in front of things
        move.b  #0, $1C(a0)                                 ; Display active animation
        rts
Obj45_Solid:                ; XREF: Obj45_Index
        lea     #Ani_Teleporter, a1                         ; Animation script
        bsr AnimateSprite                               ; Animate the frame

        moveq   #$40, d1                                    ; 64 pixels wide
        moveq   #$0B, d2                                    ; 24 pixels tall when jumping
        moveq   #$0B, d3                                    ; 24 pixels tall when walking
        move.w  8(a0),d4                                    ; X pos
        bra SolidObject                                 ; Jump to solid object routine.
Obj45_Teleport:
        rts

; Object subtype is an offset into this array, format is XXXX, YYYY
Obj45_TeleportPositions:
        dc.w    $100, $700
        even

Ani_Teleporter:
        dc.w    @ani_static-Ani_Teleporter

@ani_static:
        dc.b    $FF, $01, $01, $01, $01, $FF
        even