;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@JifenWriteWerpon]
{
#if
checklevel 40
#say
___{FCOLOR/10}Hello!  Welcome to use the integral system, you at present also have{FCOLOR/10}<$HLPOINT> Integral{FCOLOR/12}\\
{FCOLOR/12}My here may give any equipment engraves the name!{FCOLOR/12}\
{FCOLOR/12}{FCOLOR/10}This service needs 500 integrals {FCOLOR/12}\\
{FCOLOR/12}<[ I must engrave ]/@StartWriteWerpon>{FCOLOR/12}\\
{FCOLOR/12}<[ Return ]/@main>{FCOLOR/12}\\
#ELSESAY
___{FCOLOR/10}Hello!  Welcome to use the integral system, you at present also have{FCOLOR/10}<$HLPOINT> Integral{FCOLOR/12}\\
{FCOLOR/12}This function needs the rank {FCOLOR/10}40+{FCOLOR/12}{FCOLOR/12}\\
{FCOLOR/12}<[ Return ]/@main>{FCOLOR/12}\\


[@StartWriteWerpon]
#IF
#SAY
{FCOLOR/10}Please chooses you must engrave the name to that kind of equipment:{FCOLOR/12}\
Attention, if directly engraves oneself the name, does not use the  input!\
<Weapon/@@WriteName(1)>  <Medal/@@WriteName(11)>\
<Helmet/@@WriteName(4)>  <Necklace/@@WriteName(3)>\
<Armour/@@WriteName(0)>  <Shoe/@@WriteName(10)>\
<Bracelet(L)/@@WriteName(5)>  <Bracelet(R)/@@WriteName(6)>\
<Ring(L)/@@WriteName(7)>  <Ring(R)/@@WriteName(8)>\
<Return/@main>\


[@@WriteName()]
#ACT
  Mov        D0       %ARG(1)
  MOV        A0       %INPUTSTR
  goto @rinimabugei


[@rinimabugei]
#if
  HLSCRIPTCMD CHECKPOINT 500
  HLSCRIPTCMD CHECKISTAKEITEM %D0
#act
  HLSCRIPTCMD SETPOINT - 500 
  HLSCRIPTCMD ITEMWRITENAME %D0 %A0
#SAY
The name already engraved, your integral also remained {FCOLOR/1}<$HLPOINT>{FCOLOR/12} Points, Please took down you engraves the equipment brings above to be allowed again to see!\
<Return/@main>\

#ELSESAY
Your integral is insufficient, but also remains {FCOLOR/1}<$HLPOINT>{FCOLOR/12} Points.\
Or you must engrave equipment have not worn.\
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;