summaryrefslogblamecommitdiff
path: root/world/map/npc/015-3/barrier.txt
blob: e799f8af2428880dc429a3d970082f229c50fdd4 (plain) (tree)
1
2
3
4
5
6
                                                                             
                                                            
 
                                                 
 
                                                           











                                       
 
                   
                            

                          
                 


                             

                          

                                                          



                 
          



                                                                      
 
// You can only enter the cat cave naked, otherwise the cat's reaction scares
// you away. You can also get in while wearing the cat ears.

015-3.gat,31,42,0|script|#CatCaveBarrier|45,1,1,{

    set @Hiss, ((Katze & NIBBLE_1_MASK) >> NIBBLE_1_SHIFT);
    if (getequipid(equip_head) != 1217
        && (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...\"";
    set @Hiss, 2;
    callsub S_Update_Hiss;
    goto L_Close;

L_Not_Naked:
    warp "015-1.gat", 60, 32;
    set @Hiss, 1;
    callsub S_Update_Hiss;
    mes "\"GRAAUWL! Hissss...\"";
    mes "Scared of what you hear, you flee back outside.";
    goto L_Close;

L_Close:
    set @Hiss, 0;
    close;

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