System_Error -  16-08-2013 07:39
Örnek olarak sadece Agapite yaptım isteyen istediği seti ekleyebilir.

Kod:
[ITEMDEF i_deed_agapite]
DEFNAME=i_deed_agapite
WEIGHT=0.1
ID=i_deed
TYPE=t_full_plate_deed
RESOURCES=150 i_ingot_agapite
SKILLMAKE=BLACKSMITHING 99.0
NAME=Full Plate Deed
RESDISPDNHUE=color_o_agapite

on=@create
COLOR=<RESDISPDNHUE>


Deed type ;
Kod:
[typedef t_full_plate_deed]
on=@dclick
IF !(<SRC.ISINPACK <UID>>)
SRC.SYSMESSAGE @38,,1 <DEF.UNPACKMSG>
return 1
ENDIF
IF !(<color> == color_o_iron)
serv.newitem i_<STRSUB 7 20 <BASEID>>_PLATEMAIL,1,<src>
serv.newitem i_<STRSUB 7 20 <BASEID>>_PLATEMAIL_ARMS,1,<src>
serv.newitem i_<STRSUB 7 20 <BASEID>>_PLATEMAIL_LEGGINGS,1,<src>
serv.newitem i_<STRSUB 7 20 <BASEID>>_PLATEMAIL_GORGET,1,<src>
serv.newitem i_<STRSUB 7 20 <BASEID>>_PLATEMAIL_GAUNTLETS,1,<src>
serv.newitem i_<STRSUB 7 20 <BASEID>>_HEATER_SHIELD,1,<src>
serv.newitem i_<STRSUB 7 20 <BASEID>>_PLATE_HELM,1,<src>
ELSE
serv.newitem i_shield_heater,1,<src>
serv.newitem i_platemail_chest,1,<src>
serv.newitem i_platemail_leggings,1,<src>
serv.newitem i_platemail_arms,1,<src>
serv.newitem i_platemail_gorget,1,<src>
serv.newitem i_platemail_gloves,1,<src>
serv.newitem i_platemail_helm,1,<src>
ENDIF
remove
return 1

on=@click
message @<qval (<color> == 0)?,,1:<color>,,1> [<f_armor_value>]
message @0790,,1 <name>
return 1


Zırh değer kontrolü
Kod:
[function f_armor_value]
if (STRMATCH(*agapite*,"<BASEID>"))
return Agapite
elif (STRMATCH(*blackrock*,"<BASEID>"))
return Blackrock
elif (STRMATCH(*bloodrock*,"<BASEID>"))
return Bloodrock
elif (STRMATCH(*bronze*,"<BASEID>"))
return Bronze
elif (<color> == color_o_copper)
return Copper
elif (STRMATCH(*dull*,"<BASEID>"))
return Dullcopper
elif (STRMATCH(*gold*,"<BASEID>"))
return Gold
elif (<color> == color_o_iron)
return Normal
elif (STRMATCH(*mytheril*,"<BASEID>"))
return Mytheril
elif (STRMATCH(*shadow*,"<BASEID>"))
return Shadow
elif (STRMATCH(*silver*,"<BASEID>"))
return Silver
elif (STRMATCH(*valorite*,"<BASEID>"))
return Valorite
elif (STRMATCH(*verite*,"<BASEID>"))
return Verite
endif

YORUMLAR (0)

Henüz yorum yapılmamış.

BENZER SAYFALAR