Easy-Placed Firebars

[Slash_18]

This script would make firebar only place a single one rather than many.
No other varible or GFX needed, just copy-paste the code below.

Code: Select all

Dim i as integer
Dim NPCID as integer
With NPC(sysval(param1))
    If .name = "" then
        .langle = (.advset \ 100000) mod 100
        For i = 0 to .langle
            .extset += 1
            NPCID = NCreate(.ID,.bkupX,.bkupY,0,0,(.advset \ 100000000)*100000000 + ((.advset \ 10000000) mod 10)*10000000 + i*100000 + ((.advset \ 100) mod 1000)*100 + (.advset mod 100),50)
            NPCID = getID(NPCID)
            npc(NPCID).name = "Generated"
            If .extset >= .langle then
                Call NKill(0,0,0,0,0,0,0,0)
            End if
        Next
    End if
End With

Here's an example of placing:

bandicam 2021-04-09 19-40-59-686_x264.mp4 (2.67 MiB) Viewed 177 times