Code: 
scn XXX

short x

Begin OnPickup

    if x == 0
        player.removeitem 500 gold
        set x to 1
    endif

end
mir würde es aber besser gefallen, wenn ein unverändertes schwert in des spieler inventar gelegt würde und das schwert, das man anklickt, verschindet dann. ist imo sauberer.
Code: 
scn XXX

short x

Begin OnActivate

    if x == 0
        player.removeitem 500 gold
        set x to 1
        player.additem "schwertID" 1
        disable
    endif

end