A lot of people is looking for this script, and some people asked me how I was doing such a thing, because it works perfectly on my server.
So, I'm sharing here with you and everyone else that have this nonfunctional script.
Since the item_combo_db isn't work nicely, I'm using item_db:
18756,Black_Shiba_Inu_Hat,Black Shiba Inu Hat,4,20,,400,,6,,1,0xFFFFFFFF,63,2,256,,50,1,894,{ bonus bBaseAtk,30; bonus2 bAddRace,RC_Brute,10; if(getequipid(EQI_ACC_L) != 2959 && getequipid(EQI_ACC_R) != 2959){ end; } set .@time, 5+(10*getequiprefinerycnt(EQI_HEAD_TOP)); autobonus "{ bonus bBaseAtk,30; disguise 1785; sleep2 5000; undisguise; }",.@time,5000,0,"{ specialeffect2 EF_POTION_BERSERK; }"; autobonus2 "{ bonus bBaseAtk,30; }",.@time,5000,BF_WEAPON,"{ specialeffect2 EF_POTION_BERSERK; disguise 1785; sleep2 5000; undisguise; }"; },{},{ undisguise; }
5 seconds of transformation
5 + (10 x Hat Refine) chance of activation. That means, Shiba+8 will grant 85 = 8.5% activation chance