// ########################################################################################## AUTO SAC

[PLEVEL 1]
AUTOSAC

[FUNCTION autosac]
REF1=<SRC>
FORITEMS 4
    IF (<TYPE> == t_corpse)
        CONSUME 10 i_sacri_corpse
        IF ((<REF1.BODY>==c_ghost_man) || (<REF1.BODY>==c_ghost_woman))
            RETURN 1
        ENDIF
        IF (<REF1.FLAGS>&000800000)
            REF1.FLAGS <REF1.FLAGS>&~000800000
            REF1.UPDATE
        ENDIF
        IF (0<uid.040084226.tag.sacstop>==01) || (<isevent.e_event>)
            REF1.SYSMESSAGE You can't Sacrifice Corpses during an Event.
            RETURN 1
        ELSE
            IF <REF1.uid> = <more2>
                IF ((<TYPE>==t_corpse) && (<AMOUNT>==101)) // Tarasque
                    REMOVE
                    RETURN 1
                ENDIF
                IF ((<TYPE>==t_corpse) && (<AMOUNT>==241)) // Half-Etheral
                    REMOVE
                    RETURN 1
                ENDIF
                IF ((<TYPE>==t_corpse) && (<AMOUNT>==243)) // Half-Etheral
                    REMOVE
                    RETURN 1
                ENDIF
                IF ((<TYPE>==t_corpse) && (<AMOUNT>==246)) // Half-Etheral
                    REMOVE
                    RETURN 1
                ENDIF
                IF (<REF1.ISEVENT.e_event>) // No sac during Events
                    RETURN 1
                ENDIF
                IF (<LINK>==04fffffff)&&(<TYPE>==t_corpse)
                    VAR.TMP <EVAL {10 25}>
                        IF (<VAR.TMP> = 0)
                        REF1.SYSMESSAGE @07a1 You have been rewarded[1 Tix].
                        ELSE
                        REF1.SYSMESSAGE @07a1 You have been rewarded[<eval <VAR.TMP>> Tix].
                        ENDIF
                    REF1.TAG.TIX=<EVAL <REF1.TAG.TIX>+<VAR.TMP>>
                    VAR.TMP
                    REMOVE
                ENDIF
            ELSE
                REF1.sysmessage You can only sacrifice monsters that you have killed <REF1.name>
            ENDIF
        ENDIF
    ENDIF
ENDFOR