;;ҵ BBS.17HOT.CN λ÷ӰI
[@UserLogin]
{

#ACT
Mov A1 %USERMAP
#IF
Equal A1 "NPCRoom2"
#ACT
HLSCRIPTCMD UNLOCKUSER
MapMove 10 324 269

#IF
CheckJob Taoist
CheckLevel 80
#ACT
Set  [105]  1
Set  [106]  1
Goto  @UserLoginTaoistChecked
Break

#IF
CheckJob Taoist
CheckLevel 70
#ACT
Set  [105]  1
Set  [106]  0
Goto  @UserLoginTaoistChecked
Break

#IF
CheckJob Taoist
CheckLevel 60
#ACT
Set  [105]  0
Set  [106]  1
Goto  @UserLoginTaoistChecked
Break

#IF
#ACT
Goto  @UserLoginTaoistChecked


[@UserLoginTaoistChecked]
#IF
Check  [401] 0
#ACT
Goto @UserLoginShout
Break

[@UserLoginShout]
#if
!ISADMIN
!Gender Man
IsGuildMaster
IsCastleGuild [Sabuk]
#act
lineMsg [Grobal] "Sabuk Mistress <$USERNAME> is Here to Bless Us!"
goto @CheckLockedUser
break

#if
!ISADMIN
!Gender Man
IsGuildMaster
IsCastleGuild [TaoSung]
#act
lineMsg [Grobal] "Samak Mistress <$USERNAME> is Here to Bless Us!"
goto @CheckLockedUser
break

#if
!ISADMIN
IsGuildMaster
IsCastleGuild [Sabuk]
#act
lineMsg [Grobal] "Sabuk Master <$USERNAME> is Here to Bless Us!"
goto @CheckLockedUser
break

#if
!ISADMIN
IsGuildMaster
IsCastleGuild [TaoSung]
#act
lineMsg [Grobal] "Samak Master <$USERNAME> is Here to Bless Us!"
goto @CheckLockedUser
break

#if
!ISADMIN
IsGuildMaster
Gender Man
#act
lineMsg [Grobal] "<$GUILD>'s Leader '<$USERNAME>' is leading his troops!"
goto @CheckLockedUser
break

#if
!ISADMIN
IsGuildMaster
!Gender Man
#act
lineMsg [Grobal] "<$GUILD>'s Leader '<$USERNAME>' is leading her troops!"
goto @CheckLockedUser
break

#IF
!ISADMIN
#ACT
LineMsg "Grobal" "Our Friend <$USERNAME> is here to aid our fight!!"
goto @CheckLockedUser
#ELSESAY
<[ Welcome Message? ]/@GiveWelcome>\

#IF
CHECK [500] 0
#ACT
  FormatStr "FLD_CHARACTER='%s'" %USERNAME
  MOV A2 %A9
  ReadValueSql "TBL_INTEGRAL" %A2 "FLD_CHARACTER,FLD_INTEGRAL" [@AddPlayer1]

[@GiveWelcome]
#ACT
LineMsg "Grobal" "Our Friend <$USERNAME> is here to aid our fight!!"
Close

[@AddPlayer1()]
#IF
#ACT
mov A9 %ARG(1)
mov D0 %ARG(2)
#IF
Equal A9 ""
#ACT
SET [500] 1
FormatStr "'%s',%s" %USERNAME 0
mov A8 %A9
FormatStr "FLD_CHARACTER='%s'" %USERNAME
MOV A2 %A9
WriteValueSql "TBL_INTEGRAL" %A2 "FLD_CHARACTER,FLD_INTEGRAL" %A8

[@CheckLockedUser]
#IF
#ACT
mov  A0  %PASSWD(9)

#IF
HLSCRIPTCMD CHECKLOCKUSER
!equal A0 ""
#ACT
HLSCRIPTCMD LOCKUSER
SysMsg "This Character is locked, you will not be able to use it until it is unlocked!"
BREAK



}
;;ҵ BBS.17HOT.CN λ÷ӰI