[comment Repair Crystal Sistemi]
yazar:KeLL
tarih: 26 ağustos 2008 Salı. Saat: 22.32
açıklama: silahları ve armor ları tamir etmek için yazdım. bs yeteneği istiycek. loot unu lichlere ve zombie lere koydum.
[itemdef i_repair_crystal]
ID=i_crystal_green
name Repair Crystal
on @create
color 1152
on=@click
msg_ok <name>
src.sys_er Yanlızca setleri ve silahları tamir edebilirsiniz!
return 1
on=@dclick
if (<topobj.uid> != <src.uid>)
src.sys_er Çantanızda kullanmalısınız.
return 1
else
topobj.sys_ok Tamir etmek istediğiniz eşyayı seçiniz.
target
return 1
endif
on=@targon_item
obj=<src.targ>
ref1=<topobj>
if (<obj.hitpoints> == 100)
ref1.sys_er Eşyanız %100 sağlam durumda
return 1
endif
if !(<obj.isweapon>) || !(<obj.isarmororshield> == 0)
ref1.sys_er Eşyanız silah, kalkan veya set parçası olmalıdır
return 1
endif
if (<obj.isweapon>)
if (<obj.morey> > 999) && (<ref1.blacksmithing> < 99.9)
ref1.sys_er +15 silahları tamir etmek için 100.0 Blacksmithing yeteneğine ihtiyacınız var.
return 1
elif (<obj.morey> > 799) && (<ref1.blacksmithing> < 90.0)
ref1.sys_er +12 silahları tamir etmek için 90.0 Blacksmithing yeteneğine ihtiyacınız var.
return 1
elif (<obj.morey> > 599) && (<ref1.blacksmithing> < 80.0)
ref1.sys_er +9 silahları tamir etmek için 80.0 Blacksmithing yeteneğine ihtiyacınız var.
return 1
elif (<obj.morey> > 399) && (<ref1.blacksmithing> < 70.0)
ref1.sys_er +6 silahları tamir etmek için 70.0 Blacksmithing yeteneğine ihtiyacınız var.
return 1
elif (<obj.morey> > 199) && (<ref1.blacksmithing> < 60.0)
ref1.sys_er +3 silahları tamir etmek için 60.0 Blacksmithing yeteneğine ihtiyacınız var.
return 1
endif
obj.hitpointsver
remove
return 1
endif
if (<obj.isarmororshield> == 0)
if (<ref1.blacksmithing> > 70.0)
obj.hitpointsver
remove
else
ref1.sys_er Set parçası veya kalkan tamir etmek için 70.0 Blacksmithing yeteneğine ihtiyacınız var.
return 1
endif
endif
[function hitpointsver]
if (<hitpoints> < 100)
hitpoints += 25
if <hitpoints> > 100
hitpoints 100
endif
endif
[function isarmororshield]
if strmatch('<type>','t_armor') || strmatch('<type>','t_shield')
return 0
endif
