How to port the starposts from Sonic 2 to Sonic 1 - Hivebrain users

Discussion in 'Tutorials' started by DeltaW, Aug 15, 2020.

Page 1 of 2
  1. DeltaW

    DeltaW The noob next door Staff

    Joined:
    Aug 7, 2019
    Messages:
    485
    Comparing Sonic 1 and Sonic 2, there are many differences between each other. One of them is entering the special stages. With Sonic 1, you need to have 50 rings until going into the big ring at the end of the act. With Sonic 2, you need to have 50 rings then touch a lamppost which will take you into the special stage. There was originally a Russian tutorial on how to add it to Sonic 1 but since I’m not from Russia, nor speaking the language, I decided to make an English tutorial for you guys to try. Without further ado, let’s get started.


    Just a quick note: it is designed for Hivebrain disassembles. If you have SVN/GitHub, then it’s up to you to add it. Also, this isn’t just some copy and paste guides. I’m teaching people how to port things from Sonic 2 to 1 correctly without messing up.

    So before going into the juicy stuff we need to add the routine for the stars from the lamppost as that is used in Sonic 2's lamppost code so in Obj79_Index, after:

    Code:
            dc.w Obj79_Twirl-Obj79_Index
    insert this:

    Code:
            dc.w Obj79_Star-Obj79_Index
    Now that we have inserted a new routine, let's move on.

    Let’s take a look on Obj79 in the Sonic 2 Xenowhirl disassembly, mainly in Obj79_CheckActivation:


    Code:
    Obj79_CheckActivation:
    andi.b    #$7F,d1
    move.b    subtype(a0),d2
    andi.b    #$7F,d2
    cmp.b    d2,d1
    bcc.w    loc_1F222
    move.w    x_pos(a3),d0
    sub.w    x_pos(a0),d0
    addi.w    #8,d0
    cmpi.w    #$10,d0
    bcc.w    return_1F220
    move.w    y_pos(a3),d0
    sub.w    y_pos(a0),d0
    addi.w    #$40,d0
    cmpi.w    #$68,d0
    bcc.w    return_1F220
    move.w    #$21+$80,d0 ; checkpoint ding-dong sound
    jsr    (PlaySound).l
    jsr    (SingleObjLoad).l
    bne.s    loc_1F206
    _move.b    #$79,0(a1) ; load obj79
    move.b    #6,routine(a1) ; => Obj79_Dongle
    move.w    x_pos(a0),objoff_30(a1)
    move.w    y_pos(a0),objoff_32(a1)
    subi.w    #$14,objoff_32(a1)
    move.l    mappings(a0),mappings(a1)
    move.w    art_tile(a0),art_tile(a1)
    move.b    #4,render_flags(a1)
    move.b    #8,width_pixels(a1)
    move.b    #4,priority(a1)
    move.b    #2,mapping_frame(a1)
    move.w    #$20,objoff_36(a1)
    move.w    a0,parent(a1)
    tst.w    (Two_player_mode).w
    bne.s    loc_1F206
    cmpi.b    #7,(Emerald_count).w ; DeltaWooloo: from here and below is what we'll be focusing on
    beq.s    loc_1F206
    cmpi.w    #$32,(Ring_count).w
    bcs.s    loc_1F206
    bsr.w    Obj79_MakeSpecialStars
    From where I marked is what we need to focus on. Here, it tells us if the sparkles will show if we don't have 7 emeralds collected or if we have 50 rings. We need to make sure that these requirements are added in our disassembly so the stars can appear once we follow the rules of enabling them. Insert this at the end of Obj79_HitLamp from where I marked to the end of the code.

    Now we need to change the code so it can work with Sonic 1. In Sonic 1, there are 6 emeralds, not 7 and the disassembly doesn't understand Sonic 2's constants. So we need to edit this line:

    Code:
        cmpi.b    #7,(Emerald_count).w
    Replace the 7 with a 6 and replace the emerald count with $FFFFFE57 as that is the RAM used for the number of emeralds in Sonic 1.

    For the line below it, we need to change the branch loc_1F206 to loc_16F76. Do the same to the other line which is two lines below it.

    Now for this line:

    Code:
        cmpi.w    #$32,(Ring_count).w
    Replace ring_count with $FFFFFE20.

    Now, all that is left is the line which jumps to Obj79_MakeSpecialStars. We need to port that and its contents to Sonic 1. First off, copy this below Obj79_LoadInfo:

    Code:
    ; loc_1F4C4:
Obj79_MakeSpecialStars:
    moveq    #4-1,d1 ; execute the loop 4 times (1 for each star)
    moveq    #0,d2

-    bsr.w    SingleObjLoad2
    bne.s    return_1F534
    _move.b    0(a0),0(a1) ; load obj79
    move.l    #Obj79_MapUnc_1F4A0,mappings(a1)
    move.w    #$47C,art_tile(a1)
    move.b    #4,render_flags(a1)
    move.b    #8,routine(a1) ; => Obj79_Star
    move.w    x_pos(a0),d0
    move.w    d0,x_pos(a1)
    move.w    d0,objoff_30(a1)
    move.w    y_pos(a0),d0
    subi.w    #$30,d0
    move.w    d0,y_pos(a1)
    move.w    d0,objoff_32(a1)
    move.b    priority(a0),priority(a1)
    move.b    #8,width_pixels(a1)
    move.b    #1,mapping_frame(a1)
    move.w    #-$400,x_vel(a1)
    move.w    #0,y_vel(a1)
    move.w    d2,objoff_34(a1) ; set the angle
    addi.w    #$40,d2 ; increase the angle for next time
    dbf    d1,- ; loop

return_1F534:
    rts
; ===========================================================================
; loc_1F536:
Obj79_Star:
    move.b    collision_property(a0),d0
    beq.w    loc_1F554
    andi.b    #1,d0
    beq.s    +
    move.b    #1,($FFFFF7CD).w
    move.b    #$10,(Game_Mode).w ; => SpecialStage
+
    clr.b    collision_property(a0)

loc_1F554:
    addi.w    #$A,objoff_34(a0)
    move.w    objoff_34(a0),d0
    andi.w    #$FF,d0
    jsr    (CalcSine).l
    asr.w    #5,d0
    asr.w    #3,d1
    move.w    d1,d3
    move.w    objoff_34(a0),d2
    andi.w    #$3E0,d2
    lsr.w    #5,d2
    moveq    #2,d5
    moveq    #0,d4
    cmpi.w    #$10,d2
    ble.s    +
    neg.w    d1
+
    andi.w    #$F,d2
    cmpi.w    #8,d2
    ble.s    loc_1F594
    neg.w    d2
    andi.w    #7,d2

loc_1F594:
    lsr.w    #1,d2
    beq.s    +
    add.w    d1,d4
+
    asl.w    #1,d1
    dbf    d5,loc_1F594

    asr.w    #4,d4
    add.w    d4,d0
    addq.w    #1,objoff_36(a0)
    move.w    objoff_36(a0),d1
    cmpi.w    #$80,d1
    beq.s    loc_1F5BE
    bgt.s    loc_1F5C4

loc_1F5B4:
    muls.w    d1,d0
    muls.w    d1,d3
    asr.w    #7,d0
    asr.w    #7,d3
    bra.s    loc_1F5D6
; ===========================================================================

loc_1F5BE:
    move.b    #$D8,collision_flags(a0)

loc_1F5C4:
    cmpi.w    #$180,d1
    ble.s    loc_1F5D6
    neg.w    d1
    addi.w    #$200,d1
    bmi.w    JmpTo10_DeleteObject
    bra.s    loc_1F5B4
; ===========================================================================

loc_1F5D6:
    move.w    objoff_30(a0),d2
    add.w    d3,d2
    move.w    d2,x_pos(a0)
    move.w    objoff_32(a0),d2
    add.w    d0,d2
    move.w    d2,y_pos(a0)
    addq.b    #1,anim_frame(a0)
    move.b    anim_frame(a0),d0
    andi.w    #6,d0
    lsr.w    #1,d0
    cmpi.b    #3,d0
    bne.s    +
    moveq    #1,d0
+
    move.b    d0,mapping_frame(a0)
    bra.w    JmpTo_MarkObjGone
; ===========================================================================

JmpTo10_DeleteObject
    jmp    DeleteObject
; ===========================================================================
    nop

JmpTo_MarkObjGone
    jmp    MarkObjGone
; ===========================================================================
    Don't build! Just because we added the code doesn't mean the curtains will close and you can enjoy yourself. We need to make the code compatible with Sonic 1 as the disassembly doesn't recognize the plus branches and the constants.

    In Obj79_MakeSpecialStars replace - (minus) with Obj79_MakeStarsLoop (this will be a new branch)
    Below replace bsr.w SingleObjLoad2 with jsr SingleObjLoad2
    Below _move.b 0 (a0), 0 (a1) by move.b 0 (a0), 0 (a1)
    Before return_1F534 replace dbf d1, - with dbf d1,Obj79_MakeStarsLoop
    In Obj79_Star replace the pluses with loc_1F553
    In loc_1F554 replace the pluses with loc_1F555
    In loc_1F594 replace the pluses with loc_1F595
    In loc_1F5D6 replace the pluses with loc_1F5D7

    This should fix the issues with the branches. Now to finish off doing the constants. The symbol ">" should tell you what to replace what with.

    Obj79_MapUnc_1F4A0 > Map_obj79b
    mappings > $04
    art_tile > $02
    render_flags > $01
    routine > $24
    x_pos > $08
    y_pos > $0C
    objoff_30 > $30
    objoff_32 > $32
    priority > $18
    width_pixels > $19
    mapping_frame > $ 1A
    x_vel > $10
    y_vel > $12
    objoff_34 > $ 34
    collision_property > $21
    Game_Mode > $FFFFF600
    objoff_36 > $36
    collision_flags > $20
    anim_frame > $1B

    Check and see if everything builds. If so, well done. If not, check for any mistakes made. Now you are thinking about the art and the mappings right. You can do the art and mappings yourself if you want or you can download this zip which should have the art and mappings ready.

    http://sonicresearch.org/community/...4/&temp_hash=ceb3fc9fb55b800d6d680d1e94c9d815

    Add the lamppost art to artnem and obj79 and obj79b to _maps. Add the monitors art if you added the spindash dust, I'll explain why later.

    We need to include obj79b to our mappings so after map_obj79, insert this:

    Code:
    Map_obj79b:
    include "_maps\obj79b.asm"
    Now we have two things left. Loading the stars art into VRAM and fixing the collision. Let's do the VRAM issue first. Go to this line in Obj79_MakeStarsLoop:

    Code:
           move.w #$47C,$02(a1)
    The VRAM location, $47C is loaded by another art so we need to replace that with another location that is free. Replace $47C with $7A0. This will make sure the stars load into VRAM.

    SKIP THIS IF YOU HAVEN'T ADDED THE SONIC 2 SPINDASH TO SONIC 1

    If you added the spindash dust, you would know that the dust overwrites the lamppost so rather than inserting ($D800/$20), replace $47C with #($D740/$20). You need to also do that in Obj79_Main. You may ask why I added the monitors art into the zip file. It is because since we merged the stars art with the lamppost art into one file, it starts to overwrites the monitors' VRAM thus giving you a corrupt looking lamppost. We don't want that, so we just moved the art's VRAM a bit back to give room to the monitors' art. Speaking of the monitors. You may or may not notice but the file is smaller comparing to the original Sonic 1 monitor art. That is because I had to use ReadySonic's optimized monitor art and free tiles so there'll be less tiles to deal with and the art wouldn't overwrite with the lamppost art if you are adding new art to the lamppost which needs more tiles or it just overwrites for an unspecified reason.

    COME HERE, ALL OF YOU! THIS IS THE FINAL STEP!

    So the last thing is to fix the collision since if you go through the rings, you cannot go into the special stage. That is an easy fix actually and shouldn't take a lot of time. Replace Obj79_Star with this:

    Code:
    Obj79_Star:
        tst.b    $21(a0)
        beq.s    loc_1F554
        move.b    #$10,($FFFFF600).w
    And go to loc_1F5BE and replace the only line there to this:

    Code:
            move.b    #$D7,$20(a0)
    The reason why we did this is because Sonic 2 handles the collision to the lamppost differently comparing to Sonic 1 and that game doesn't understand how to handle the collision the way Sonic 2 does.

    And with all that, you should have the starposts fully working in Sonic 1. Grab 50 rings and fly to the special stage. Enjoy collecting those emeralds easily.

    OPTIONAL STEP

    In Knuckles in Sonic 2, when returning from a starpost from a special stages, you keep your rings. If you would like that to happen in Sonic 1, here is what you do. In Obj79_LoadInfo, delete this line:

    Code:
            clr.w    ($FFFFFE20).w
    This should keep your rings you collected in the special stage and when you've died. I don't why you would want that but here you go.


    Credits:
    This tutorial was written by me
    Original creator of the tutorial by Shooter

    OG tutorial: https://sonic-world.ru/forum/topic/14074-туториалы-по-хакингу-sonic-genesismega-drive/?page=9

    ReadySonic by Mecury
    RandomName helped me with a few bugs so credits to him
     

    Attached Files:

    Last edited: Aug 17, 2020
    DeltaW, Aug 15, 2020
    #1
    Blue Gamer, RepellantMold, PeanutNoceda and 2 others like this.
  2. CutieGundam

    CutieGundam I'm just a cute MS Girl! ;) Member

    Joined:
    Jul 10, 2023
    Messages:
    41
    So... In my game, this happened. Which RAM I can use because $D740 is already being used for centiseconds. Which address I can choose?
    ReadySonic000.jpg
     
    CutieGundam, Aug 2, 2023
    #2
  3. Inferno

    Inferno Rom Hacker Member

    Joined:
    Oct 27, 2015
    Messages:
    135
    Location:
    Sky Base Zone, South Island
    If your emulator has a VRAM viewer, look there at anywhere where it's blank or filled with title screen stuff between all levels. If not, you'll have to do a VRAM dump to look for the same things, and multiplying the ID of the first tile you intend to use by $20 (32) to get your address.
     
    Inferno, Aug 3, 2023
    #3
  4. Joao Gamer

    Joao Gamer Well-Known Member Member

    Joined:
    Nov 22, 2023
    Messages:
    95
    Location:
    Brazil
    it didn't even work
     
    Last edited by a moderator: Jan 9, 2025
    Joao Gamer, Jan 9, 2025
    #4
  5. DeltaW

    DeltaW The noob next door Staff

    Joined:
    Aug 7, 2019
    Messages:
    485
    Did you get stuck on something in the tutorial or did the game crash?

    You gotta be specific besides implying that it just doesn't work.
     
    DeltaW, Jan 9, 2025
    #5
  6. Joao Gamer

    Joao Gamer Well-Known Member Member

    Joined:
    Nov 22, 2023
    Messages:
    95
    Location:
    Brazil
    The star does not show the starposts for some reason is duplicated, maybe i just did something wrong
     
    Joao Gamer, Jan 9, 2025
    #6
  7. TheSunsetHacker

    TheSunsetHacker Active Member Trialist

    Joined:
    Feb 13, 2024
    Messages:
    25
    Location:
    Emerald Coast
    The only reason something like that would happen is when there is something already taking the VRAM space (Like the spindash). Though a photo would be useful to determine where exactly the problem was/is occuring.
     
    TheSunsetHacker, Jan 24, 2025
    #7
  8. Joao Gamer

    Joao Gamer Well-Known Member Member

    Joined:
    Nov 22, 2023
    Messages:
    95
    Location:
    Brazil
    atleast i working now, but umm it's still duplicated anyways:
    [​IMG]
     
    Joao Gamer, Jan 24, 2025
    #8
  9. TheSunsetHacker

    TheSunsetHacker Active Member Trialist

    Joined:
    Feb 13, 2024
    Messages:
    25
    Location:
    Emerald Coast
    Nice! Can we talk in private?
     
    TheSunsetHacker, Jan 24, 2025
    #9
  10. Joao Gamer

    Joao Gamer Well-Known Member Member

    Joined:
    Nov 22, 2023
    Messages:
    95
    Location:
    Brazil
    Yeah sure
     
    Joao Gamer, Jan 24, 2025
    #10
  11. PeanutNoceda

    PeanutNoceda Peanut butter Member

    Joined:
    Sep 26, 2024
    Messages:
    291
    Location:
    Somewhere in Peru
    So.. doing this tutorial for SNA, but I have one problem
    upload_2025-5-15_8-17-1.png
    And also, the stars doesnt appear In game:
    blastem_20250515_081457.png
     
    PeanutNoceda, May 15, 2025
    #11
  12. DeltaW

    DeltaW The noob next door Staff

    Joined:
    Aug 7, 2019
    Messages:
    485
    Labels have changed between Hivebrain and GitHub:

    Change SingleObjLoad2 to FindNextFreeObj and MarkObjGone to RememberState.

    Also, given that you have a lot of monitor contents taking up VRAM, you'll have to find another place to store the lamppost VRAM itself. Look at the VRAM viewer on your emulator to see which space doesn't contain tiles and try and squeeze some space there by changing the location in the object code and PLCs.
     
    DeltaW, May 15, 2025
    #12
  13. PeanutNoceda

    PeanutNoceda Peanut butter Member

    Joined:
    Sep 26, 2024
    Messages:
    291
    Location:
    Somewhere in Peru
    So.. I moved the VRAM to another site, but... still nothing:
    blastem_20250515_090338.png
     
    PeanutNoceda, May 15, 2025
    #13
  14. DeltaW

    DeltaW The noob next door Staff

    Joined:
    Aug 7, 2019
    Messages:
    485
    Could I see your object code? Just drop it below and I'll see what the issue is.
     
    DeltaW, May 15, 2025
    #14
  15. PeanutNoceda

    PeanutNoceda Peanut butter Member

    Joined:
    Sep 26, 2024
    Messages:
    291
    Location:
    Somewhere in Peru
    Sure!
    Code:
    
; loc_1F4C4:
Lamp_MakeStarsLoop:
    moveq    #4-1,d1 ; execute the loop 4 times (1 for each star)
    moveq    #0,d2
-    jsr    FindNextFreeObj 
    bne.s    return_1F534
    _move.b    0(a0),0(a1) ; load obj79
    move.l    #Map_obj79b,$04(a1)
    move.w    #$47C,$02(a1)
    move.b    #4,$01(a1)
    move.b    #8,$24(a1) ; => Lamp_Star
    move.w    $08(a0),d0
    move.w    d0,$08(a1)
    move.w    d0,$30(a1)
    move.w    $0C(a0),d0
    subi.w    #$30,d0
    move.w    d0,$0C(a1)
    move.w    d0,$32(a1)
    move.b    $18(a0),$18(a1)
    move.b    #8,$19(a1)
    move.b    #1,$1A(a1)
    move.w    #-$400,$10(a1)
    move.w    #0,$12(a1)
    move.w    d2,$34(a1) ; set the angle
    addi.w    #$40,d2 ; increase the angle for next time
    dbf d1,Lamp_MakeStarsLoop
    move.w #$47C,$02(a1)
    return_1F534:
        rts
; ===========================================================================
Map_obj79b:
    include "_maps\obj79b.asm"
; ===========================================================================
; loc_1F536:
Lamp_Star:
    tst.b    $21(a0)
    beq.s    loc_1F554
    move.b    #$10,($FFFFF600).w
    andi.b    #1,d0
    beq.s    +
    move.b    #1,($FFFFF7CD).w
    move.b    #$10,($FFFFF600).w ; => SpecialStage
+
    clr.b    $21(a0)
loc_1F554:
    addi.w    #$A,$34(a0)
    move.w    $34(a0),d0
    andi.w    #$FF,d0
    jsr    (CalcSine).l
    asr.w    #5,d0
    asr.w    #3,d1
    move.w    d1,d3
    move.w    $34(a0),d2
    andi.w    #$3E0,d2
    lsr.w    #5,d2
    moveq    #2,d5
    moveq    #0,d4
    cmpi.w    #$10,d2
    ble.s    +
    neg.w    d1
+
    andi.w    #$F,d2
    cmpi.w    #8,d2
    ble.s    loc_1F594
    neg.w    d2
    andi.w    #7,d2
loc_1F594:
    lsr.w    #1,d2
    beq.s    +
    add.w    d1,d4
+
    asl.w    #1,d1
    dbf    d5,loc_1F594
    asr.w    #4,d4
    add.w    d4,d0
    addq.w    #1,$36(a0)
    move.w    $36(a0),d1
    cmpi.w    #$80,d1
    beq.s    loc_1F5BE
    bgt.s    loc_1F5C4
loc_1F5B4:
    muls.w    d1,d0
    muls.w    d1,d3
    asr.w    #7,d0
    asr.w    #7,d3
    bra.s    loc_1F5D6
; ===========================================================================
loc_1F5BE:
    move.b    #$D7,$20(a0)
loc_1F5C4:
    cmpi.w    #$180,d1
    ble.s    loc_1F5D6
    neg.w    d1
    addi.w    #$200,d1
    bmi.w    JmpTo10_DeleteObject
    bra.s    loc_1F5B4
; ===========================================================================
loc_1F5D6:
    move.w    $30(a0),d2
    add.w    d3,d2
    move.w    d2,$08(a0)
    move.w    $32(a0),d2
    add.w    d0,d2
    move.w    d2,$0C(a0)
    addq.b    #1,$1B(a0)
    move.b    $1B(a0),d0
    andi.w    #6,d0
    lsr.w    #1,d0
    cmpi.b    #3,d0
    bne.s    +
    moveq    #1,d0
+
    move.b    d0,$1A(a0)
    bra.w    JmpTo_MarkObjGone
; ===========================================================================
JmpTo10_DeleteObject
    jmp    DeleteObject
; ===========================================================================
    nop
JmpTo_MarkObjGone
    jmp    RememberState
; ===========================================================================
     
    PeanutNoceda, May 15, 2025
    #15
  16. DeltaW

    DeltaW The noob next door Staff

    Joined:
    Aug 7, 2019
    Messages:
    485
    I mean the whole object code, not just the stars bit.

    Also, why are you placing this line under the loop if the VRAM location is already defined?

    Code:
        dbf d1,Lamp_MakeStarsLoop
    move.w #$47C,$02(a1)
     
    DeltaW, May 15, 2025
    #16
  17. PeanutNoceda

    PeanutNoceda Peanut butter Member

    Joined:
    Sep 26, 2024
    Messages:
    291
    Location:
    Somewhere in Peru
    Lol now i see
    Oh, In that case I will send it here:
    ; ---------------------------------------------------------------------------
    ; Object 79 - lamppost
    ; ---------------------------------------------------------------------------
    Lamppost:
    moveq #0,d0
    move.b obRoutine(a0),d0
    move.w Lamp_Index(pc,d0.w),d1
    jsr Lamp_Index(pc,d1.w)
    jmp (RememberState).l
    ; ===========================================================================
    Lamp_Index: dc.w Lamp_Main-Lamp_Index
    dc.w Lamp_Blue-Lamp_Index
    dc.w Lamp_Finish-Lamp_Index
    dc.w Lamp_Twirl-Lamp_Index
    dc.w Lamp_Star-Lamp_Index
    lamp_origX = $30 ; original x-axis position
    lamp_origY = $32 ; original y-axis position
    lamp_time = $36 ; length of time to twirl the lamp
    ; ===========================================================================
    Lamp_Main: ; $24 0
    addq.b #2,obRoutine(a0)
    move.l #Map_Lamp,obMap(a0)
    move.w #make_art_tile(ArtTile_Lamppost,0,0),obGfx(a0)
    move.b #4,obRender(a0)
    move.b #8,obActWid(a0)
    move.b #5,obPriority(a0)
    lea (v_objstate).w,a2
    moveq #0,d0
    move.b obRespawnNo(a0),d0
    bclr #7,2(a2,d0.w)
    btst #0,2(a2,d0.w)
    bne.s .red
    move.b (v_lastlamp).w,d1
    andi.b #$7F,d1
    move.b obSubtype(a0),d2 ; get lamppost number
    andi.b #$7F,d2
    cmp.b d2,d1 ; is this a "new" lamppost?
    blo.s Lamp_Blue ; if yes, branch
    .red:
    bset #0,2(a2,d0.w)
    move.b #4,obRoutine(a0) ; goto Lamp_Finish next
    move.b #3,obFrame(a0) ; use red lamppost frame
    rts
    ; ===========================================================================
    Lamp_Blue: ; $24 2
    tst.w (v_debuguse).w ; is debug mode being used?
    bne.w .donothing ; if yes, branch
    tst.b (f_playerctrl).w
    bmi.w .donothing
    move.b (v_lastlamp).w,d1
    andi.b #$7F,d1
    move.b obSubtype(a0),d2
    andi.b #$7F,d2
    cmp.b d2,d1 ; is this a "new" lamppost?
    blo.s .chkhit ; if yes, branch
    lea (v_objstate).w,a2
    moveq #0,d0
    move.b obRespawnNo(a0),d0
    bset #0,2(a2,d0.w)
    move.b #4,obRoutine(a0)
    move.b #3,obFrame(a0)
    bra.w .donothing
    ; ===========================================================================
    .chkhit:
    move.w (v_player+obX).w,d0
    sub.w obX(a0),d0
    addq.w #8,d0
    cmpi.w #$10,d0
    bhs.w .donothing
    move.w (v_player+obY).w,d0
    sub.w obY(a0),d0
    addi.w #$40,d0
    cmpi.w #$68,d0
    bhs.s .donothing
    move.w #sfx_Lamppost,d0
    jsr (PlaySound_Special).l ; play lamppost sound
    addq.b #2,obRoutine(a0)
    jsr (FindFreeObj).l
    bne.s .fail
    _move.b #id_Lamppost,obID(a1) ; load twirling lamp object
    move.b #6,obRoutine(a1) ; goto Lamp_Twirl next
    move.w obX(a0),lamp_origX(a1)
    move.w obY(a0),lamp_origY(a1)
    subi.w #$18,lamp_origY(a1)
    move.l #Map_Lamp,obMap(a1)
    move.w #make_art_tile(ArtTile_Lamppost,0,0),obGfx(a1)
    move.b #4,obRender(a1)
    move.b #8,obActWid(a1)
    move.b #4,obPriority(a1)
    move.b #2,obFrame(a1) ; use "ball only" frame
    move.w #$20,lamp_time(a1)
    .fail:
    move.b #1,obFrame(a0) ; use "post only" frame
    bsr.w Lamp_StoreInfo
    lea (v_objstate).w,a2
    moveq #0,d0
    move.b obRespawnNo(a0),d0
    bset #0,2(a2,d0.w)
    .donothing:
    rts
    ; ===========================================================================
    Lamp_Finish: ; $24 4
    rts
    ; ===========================================================================
    Lamp_Twirl: ; $24 6
    subq.w #1,lamp_time(a0) ; decrement timer
    bpl.s .continue ; if time remains, keep twirling
    move.b #4,obRoutine(a0) ; goto Lamp_Finish next
    .continue:
    move.b obAngle(a0),d0
    subi.b #$10,obAngle(a0)
    subi.b #$40,d0
    jsr (CalcSine).l
    muls.w #$C00,d1
    swap d1
    add.w lamp_origX(a0),d1
    move.w d1,obX(a0)
    muls.w #$C00,d0
    swap d0
    add.w lamp_origY(a0),d0
    move.w d0,obY(a0)
    rts
    ; ===========================================================================
    ; ---------------------------------------------------------------------------
    ; Subroutine to store information when you hit a lamppost
    ; ---------------------------------------------------------------------------
    Lamp_StoreInfo:
    move.b obSubtype(a0),(v_lastlamp).w ; lamppost number
    move.b (v_lastlamp).w,(v_lastlamp+1).w
    move.w obX(a0),(v_lamp_xpos).w ; x-position
    move.w obY(a0),(v_lamp_ypos).w ; y-position
    move.w (v_rings).w,(v_lamp_rings).w ; rings
    move.b (v_lifecount).w,(v_lamp_lives).w ; lives
    move.l (v_time).w,(v_lamp_time).w ; time
    move.b (v_dle_routine).w,(v_lamp_dle).w ; $24 counter for dynamic level mod
    move.w (v_limitbtm2).w,(v_lamp_limitbtm).w ; lower y-boundary of level
    move.w (v_screenposx).w,(v_lamp_scrx).w ; screen x-position
    move.w (v_screenposy).w,(v_lamp_scry).w ; screen y-position
    move.w (v_bgscreenposx).w,(v_lamp_bgscrx).w ; bg position
    move.w (v_bgscreenposy).w,(v_lamp_bgscry).w ; bg position
    move.w (v_bg2screenposx).w,(v_lamp_bg2scrx).w ; bg position
    move.w (v_bg2screenposy).w,(v_lamp_bg2scry).w ; bg position
    move.w (v_bg3screenposx).w,(v_lamp_bg3scrx).w ; bg position
    move.w (v_bg3screenposy).w,(v_lamp_bg3scry).w ; bg position
    move.w (v_waterpos2).w,(v_lamp_wtrpos).w ; water height
    move.b (v_wtr_routine).w,(v_lamp_wtrrout).w ; rountine counter for water
    move.b (f_wtr_state).w,(v_lamp_wtrstat).w ; water direction
    rts
    ; ---------------------------------------------------------------------------
    ; Subroutine to load stored info when you start a level from a lamppost
    ; ---------------------------------------------------------------------------
    ; ||||||||||||||| S U B R O U T I N E |||||||||||||||||||||||||||||||||||||||
    Lamp_LoadInfo:
    move.b (v_lastlamp+1).w,(v_lastlamp).w
    move.w (v_lamp_xpos).w,(v_player+obX).w
    move.w (v_lamp_ypos).w,(v_player+obY).w
    move.w (v_lamp_rings).w,(v_rings).w
    move.b (v_lamp_lives).w,(v_lifecount).w
    clr.w (v_rings).w
    clr.b (v_lifecount).w
    move.l (v_lamp_time).w,(v_time).w
    move.b #59,(v_timecent).w
    subq.b #1,(v_timesec).w
    move.b (v_lamp_dle).w,(v_dle_routine).w
    move.b (v_lamp_wtrrout).w,(v_wtr_routine).w
    move.w (v_lamp_limitbtm).w,(v_limitbtm2).w
    move.w (v_lamp_limitbtm).w,(v_limitbtm1).w
    move.w (v_lamp_scrx).w,(v_screenposx).w
    move.w (v_lamp_scry).w,(v_screenposy).w
    move.w (v_lamp_bgscrx).w,(v_bgscreenposx).w
    move.w (v_lamp_bgscry).w,(v_bgscreenposy).w
    move.w (v_lamp_bg2scrx).w,(v_bg2screenposx).w
    move.w (v_lamp_bg2scry).w,(v_bg2screenposy).w
    move.w (v_lamp_bg3scrx).w,(v_bg3screenposx).w
    move.w (v_lamp_bg3scry).w,(v_bg3screenposy).w
    cmpi.b #id_LZ,(v_zone).w ; is this Labyrinth Zone?
    bne.s .notlabyrinth ; if not, branch
    move.w (v_lamp_wtrpos).w,(v_waterpos2).w
    move.b (v_lamp_wtrrout).w,(v_wtr_routine).w
    move.b (v_lamp_wtrstat).w,(f_wtr_state).w
    .notlabyrinth:
    tst.b (v_lastlamp).w
    bpl.s locret_170F6
    move.w (v_lamp_xpos).w,d0
    subi.w #$A0,d0
    move.w d0,(v_limitleft2).w
    locret_170F6:
    rts
    ; loc_1F4C4:
    Lamp_MakeStarsLoop:
    moveq #4-1,d1 ; execute the loop 4 times (1 for each star)
    moveq #0,d2
    - jsr FindNextFreeObj
    bne.s return_1F534
    _move.b 0(a0),0(a1) ; load obj79
    move.l #Map_obj79b,$04(a1)
    move.w #$47C,$02(a1)
    move.b #4,$01(a1)
    move.b #8,$24(a1) ; => Lamp_Star
    move.w $08(a0),d0
    move.w d0,$08(a1)
    move.w d0,$30(a1)
    move.w $0C(a0),d0
    subi.w #$30,d0
    move.w d0,$0C(a1)
    move.w d0,$32(a1)
    move.b $18(a0),$18(a1)
    move.b #8,$19(a1)
    move.b #1,$1A(a1)
    move.w #-$400,$10(a1)
    move.w #0,$12(a1)
    move.w d2,$34(a1) ; set the angle
    addi.w #$40,d2 ; increase the angle for next time
    dbf d1,Lamp_MakeStarsLoop
    move.w #$47C,$02(a1)
    return_1F534:
    rts
    ; ===========================================================================
    Map_obj79b:
    include "_maps\obj79b.asm"
    ; ===========================================================================
    ; loc_1F536:
    Lamp_Star:
    tst.b $21(a0)
    beq.s loc_1F554
    move.b #$10,($FFFFF600).w
    andi.b #1,d0
    beq.s +
    move.b #1,($FFFFF7CD).w
    move.b #$10,($FFFFF600).w ; => SpecialStage
    +
    clr.b $21(a0)
    loc_1F554:
    addi.w #$A,$34(a0)
    move.w $34(a0),d0
    andi.w #$FF,d0
    jsr (CalcSine).l
    asr.w #5,d0
    asr.w #3,d1
    move.w d1,d3
    move.w $34(a0),d2
    andi.w #$3E0,d2
    lsr.w #5,d2
    moveq #2,d5
    moveq #0,d4
    cmpi.w #$10,d2
    ble.s +
    neg.w d1
    +
    andi.w #$F,d2
    cmpi.w #8,d2
    ble.s loc_1F594
    neg.w d2
    andi.w #7,d2
    loc_1F594:
    lsr.w #1,d2
    beq.s +
    add.w d1,d4
    +
    asl.w #1,d1
    dbf d5,loc_1F594
    asr.w #4,d4
    add.w d4,d0
    addq.w #1,$36(a0)
    move.w $36(a0),d1
    cmpi.w #$80,d1
    beq.s loc_1F5BE
    bgt.s loc_1F5C4
    loc_1F5B4:
    muls.w d1,d0
    muls.w d1,d3
    asr.w #7,d0
    asr.w #7,d3
    bra.s loc_1F5D6
    ; ===========================================================================
    loc_1F5BE:
    move.b #$D7,$20(a0)
    loc_1F5C4:
    cmpi.w #$180,d1
    ble.s loc_1F5D6
    neg.w d1
    addi.w #$200,d1
    bmi.w JmpTo10_DeleteObject
    bra.s loc_1F5B4
    ; ===========================================================================
    loc_1F5D6:
    move.w $30(a0),d2
    add.w d3,d2
    move.w d2,$08(a0)
    move.w $32(a0),d2
    add.w d0,d2
    move.w d2,$0C(a0)
    addq.b #1,$1B(a0)
    move.b $1B(a0),d0
    andi.w #6,d0
    lsr.w #1,d0
    cmpi.b #3,d0
    bne.s +
    moveq #1,d0
    +
    move.b d0,$1A(a0)
    bra.w JmpTo_MarkObjGone
    ; ===========================================================================
    JmpTo10_DeleteObject
    jmp DeleteObject
    ; ===========================================================================
    nop
    JmpTo_MarkObjGone
    jmp RememberState
    ; ===========================================================================
     
    PeanutNoceda, May 15, 2025
    #17
  18. DeltaW

    DeltaW The noob next door Staff

    Joined:
    Aug 7, 2019
    Messages:
    485
    Well, I can already notice a couple of issues in your code:

    First, you already defined the location in the main object code, so it would be best to replace this:

    Code:
    move.w #$47C,$02(a1)
    to this:

    Code:
    move.w #make_art_tile(ArtTile_Lamppost,0,0),obGfx(a1)
    Second, you haven't set a branch to make those special stars appear under .chkhit

    Under:

    Code:
            move.w    #$20,lamp_time(a1)
    insert this:

    Code:
            cmpi.b    #6,(v_emeralds).w
        beq.s    .fail
        cmpi.w    #$32,(v_rings).w
        bcs.s    .fail
        bsr.w    Lamp_MakeStarsLoop
    This should make the stars load.

    I'd also suggest naming your SSTs to constant names provided under Constants.asm to prevent any conflicts if you plan to swap some around.
     
    DeltaW, May 15, 2025
    #18
  19. PeanutNoceda

    PeanutNoceda Peanut butter Member

    Joined:
    Sep 26, 2024
    Messages:
    291
    Location:
    Somewhere in Peru
    It has lag, but It works X3
    blastem_20250515_095037.png
     
    PeanutNoceda, May 15, 2025
    #19
  20. Omicronano

    Omicronano trying to be helpful and friendly Member

    Joined:
    Nov 4, 2024
    Messages:
    43
    Location:
    south island (alternated)
    so after i added the sonic 3 sprites to sonic 1 i did add the sonic 2 starpost and this what happend[​IMG]
     
    Omicronano, Jun 9, 2025
    #20
Page 1 of 2