path: root/npc/015-3/barrier.txt

015-3,31,42,0	script	#CatCaveBarrier	NPC45,1,1,{
    .@Hiss = ((Katze & NIBBLE_1_MASK) >> NIBBLE_1_SHIFT);
    if (getequipid(equip_head) != CatEars
        && (getequipid(equip_head) > 0
        || getequipid(equip_shield) > 0
        || getequipid(equip_hand1) > 0
        || getequipid(equip_hand2) > 0
        || getequipid(equip_gloves) > 0
        || getequipid(equip_shoes) > 0
        || getequipid(equip_misc1) > 0
        || getequipid(equip_misc2) > 0
        || getequipid(equip_torso) > 0
        || getequipid(equip_legs) > 0))
            goto L_Not_Naked;

    if (.@Hiss != 2)
        mes "\"Hissss...\"";
    .@Hiss = 2;
    callsub S_Update_Hiss;
    close;

L_Not_Naked:
    warp "015-1", 60, 32;
    .@Hiss = 1;
    callsub S_Update_Hiss;
    mesn "???";
    mesq l("GRAAUWL! Hissss...");
    mes "";
    mesc l("Scared of what you hear, you flee back outside.");
    close;

S_Update_Hiss:
    Katze = (Katze & ~(NIBBLE_1_MASK)) | (.@Hiss << NIBBLE_1_SHIFT);
    return;
}