Ceci est une ancienne révision du document !

---

[FUNCTION f_perforation]

if (<i.tag0.perforation»0) && !(<src.restest i_perforation_memory>)

 if (rand(100)<=(<i.tag0.Perforation>/40)) // 1 chance sur 15 a 0%, une chance sur 5 a 100% du skill
     
      IF !(<SRC.restest 1 i_perforation_memory>) 
          src.messagerouge Votre adversaire vous perfore, provoquant un saignement.      
          serv.newitem=i_perforation_memory
		new.TIMER=1
		SRC.EQUIP <NEW.UID>
		new.link=<i.uid>
		new.more2=15
		IF <SRC.ISPLAYER>
			src.ADDBUFF 1039,1028825,1062028,15,Perforation
			src.timerf 15,removebuff 1039
		endif
      endif

Vaudou

      IF !(<SRC.findid.i_mem_Vaudou.link.restest 1 i_perforation_memory>) 
          src.findid.i_mem_Vaudou.link.messagerouge Votre adversaire vous perfore, provoquant un saignement.      
          serv.newitem=i_perforation_memory
		new.TIMER=1
		SRC.findid.i_mem_Vaudou.link.EQUIP <NEW.UID>
		new.link=<i.uid>
		new.more2=15
		IF <SRC.findid.i_mem_Vaudou.link.ISPLAYER>
			src.findid.i_mem_Vaudou.link.ADDBUFF 1039,1028825,1062028,15,Perforation
			src.findid.i_mem_Vaudou.link.timerf 15,removebuff 1039
		endif
      endif

  endif

endif

[ITEMDEF i_perforation_memory] ID=i_memory NAME=Perforation TYPE=t_eq_script

ON=@CREATE attr=ATTR_INVIS

ON=@TIMER IF (<CONT.FLAGS>&statf_dead)

REMOVE
RETURN 1

ENDIF

IF (<MORE2> > 0)

  MORE2 -= 1
  	if (<link.tag0.Hemorragie>==1) && (rand(2)==1)
	CONT.dmg_fixed=<R5 (<link.tag0.perforation>/25)>+(<link.tag0.BonusDmgFrenesie>/25)
	else
	CONT.dmg_fixed_hits=<R5 (<link.tag0.perforation>/25)>+(<link.tag0.BonusDmgFrenesie>/25)
	endif
	serv.newitem=i_sang
	new.dispid={ 0122a 1 0122b 1 0122c 1 0122d 1 0122e 1 }
	new.p=<CONT.p>
timer=1

else

cont.messagevert Vous arrêtez de saigner!
remove

ENDIF RETURN 1

[ITEMDEF i_sang] DEFNAME=i_sang ID=i_blood_pool_large

ON=@CREATE ATTR=0004 TIMER=20

ON=@TIMER REMOVE RETURN 1

/