;;;QQ:67762207
[@newhuman]
{
#IF
#ACT
loadvalue D0 "系统设置.ini" [开区后] 在线人数开关

#IF
EQUAL D0 1
#ACT
mov N3 %ONLINECOUNT
loadvalue N5 "系统设置.ini" [开区后] 在线人数固定加成
loadvalue N4 "系统设置.ini" [开区后] 在线人数随机加成
movr N6 %N4
inc N3 %N5
inc N3 %N6
sysmsg "Current Players Online: <$OUTPUT(N3)>."


#IF
#ACT
SET [122] 0
SET [121] 0

#IF
chkmagiclevel 君临步 0
chkmagiclevel 狂暴冲撞 0
#ACT
actcmd delmag 狂暴冲撞

#IF
chkmagiclevel 旋风斩 0
chkmagiclevel 十方斩 0
#ACT
actcmd delmag 十方斩

#IF
chkmagiclevel 屠龙斩 0
chkmagiclevel 莲月剑法 0
#ACT
actcmd delmag 莲月剑法

#IF
chkmagiclevel 焚魂魔功 0
chkmagiclevel 凝血离魂 0
#ACT
actcmd delmag 凝血离魂

#IF
chkmagiclevel 魔光盾 0
chkmagiclevel 魔法盾 0
#ACT
actcmd delmag 魔法盾

#IF
chkmagiclevel 神灵守护 0
chkmagiclevel 幽灵盾 0
#ACT
actcmd delmag 幽灵盾

#IF
chkmagiclevel 隐魂术 0
chkmagiclevel 集体隐身术 0
#ACT
actcmd delmag 集体隐身术

#IF
chkmagiclevel 月明波 0
chkmagiclevel 月魂断玉 0
#ACT
actcmd delmag 月魂断玉

#if 
#act
SysMsg "Press 'D' for your personal Control Panel!"

#IF
check [598] 0
IsCastleGuild [Sabuk]
IsGuildMaster
#ACT
lineMsg [Grobal] "Behold! The owner of SabukWall [<$USERNAME>] has Logged on!"

#IF
check [598] 0
IsCastleGuild TAOSUNG
IsGuildMaster
#ACT
lineMsg [Grobal] "Behold! The owner of MudWall [<$USERNAME>] has Logged on!"

#IF
#ACT
loadvalue A8 "PlayerParam\混乱PK大赛.ini" [混乱PK大赛] PK王名字
loadvalue D8 "PlayerPAram\混乱PK大赛.ini" [获胜次数]   %A8

#IF
EQUAL A8 %USERNAME
check [597] 0
#ACT
lineMsg [Grobal] "PK Leader [<$OUTPUT(A8)>] Logged on, <$OUTPUT(A8)> has won a total of[<$OUTPUT(D8)>] fights, <$OUTPUT(A8)> gladly accepts challeneges!"

#IF
CheckPKPoint 2
#ACT
MapMove 6 50 150
goto @CheckLoginRank_1
#ELSEACT
GoTo @Start

[@Start]
#IF
CheckNamelist StartKit.txt
#ACT
goto @CheckLoginRank_1
goto @LoginCheckFood
#ELSEACT
;AddNamelist MainQuest\Quest1\Quest.txt
SET [001] 1
SET [101] 1
SET [209] 1
goto @GiveKit

;-------------------------------------------------

[@GiveKit]
#IF
CheckJob Warrior
#ACT
AddNamelist StartKit.txt
Give Gold 25000
Give HPPotion 10
Give SwordsmanShip(Manual) 1
monrecall Healer1 3 5
LineMsg [Grobal] "Please welcome new2 Warrior <$USERNAME>"
Mov D7 10    ;Moving 10 into D7 variable to store it
   FormatStr "FLD_CHARACTER='%s'" %USERNAME       ;As stated above, formats your guildname into a way SQL can read it and 

Mov   A8     %A9   ;Move this temp variable into a permanent one. 
   FormatStr "FLD_DONATEPOINT='%s'" %D7    ;Moving D7 which contains 100,000 to FLD_GOLD so it can be read later by SQL
   UPDATEVALUESQL "TBL_CHARACTER" %A8 %A9   ;Put this all together now, A8 contains 
goto @NewPlayerNext
BREAK

;------------

#IF
CheckJob Wizard
#ACT
AddNamelist StartKit.txt
Give Gold 25000
Give MPPotion 5
Give HPPotion 5
Give FireBall(Manual) 1
monrecall Healer1 3 5
LineMsg [Grobal] "Please welcome new Wizard <$USERNAME>"
goto @NewPlayerNext
BREAK

;------------

#IF
CheckJob Taoist
#ACT
AddNamelist StartKit.txt
Give Gold 25000
Give MPPotion 5
Give HPPotion 5
Give Healing(Manual) 1
monrecall Healer1 3 5
LineMsg [Grobal] "Please welcome new Taoist <$USERNAME>"
goto @NewPlayerNext
BREAK

;------------

[@NewPlayerNext]
#SAY
Did some one tell you about this server?\
If so click the link below and type in there character name:\\
<Type character Name/@@NewPlayerReferal>\
<Nope i found out my self/@Exit>\

;------------

[@@NewPlayerReferal]
#ACT
Mov A1 %INPUTSTR
SaveValue "QuestDiary\System\Referal.txt" [NewPlayer] %USERNAME %A1
#SAY
Thank You...\\
<Leave/@Exit>\

;-------------------------------------------------

[@CheckLoginRank_1]
#SAY
Welcome {FCOLOR/10}<$USERNAME>{FCOLOR/12}\\
{FCOLOR/1} SORRY YOU LOST YOUR KIT AND SPELLS,\ 
THERE IS A X4 DROP RATE EVENT ON TO MAKE UP FOR IT\\
{FCOLOR/10}Infomation:{FCOLOR/12}\
<Inferno News/@News>\
<Inferno Infomation/@Infomation>\
;<Vital Features/@Features>\
\\
{FCOLOR/10}Miscellaneous:{FCOLOR/12}\
<Announce That Your Online/@StateOnline>\
#IF
CheckItem TownTeleport 1
#SAY
<Leave/@Exit>\
#ELSESAY
<Buy Town Teleport/@BuyTT>\
<Leave/@Exit>

;-------------------------------------------------

[@StateOnline]
#ACT
LineMsg [Grobal] "<$USERNAME> has come online!"
#SAY
Welcome {FCOLOR/10}<$USERNAME>{FCOLOR/12}\\
{FCOLOR/1} SORRY YOU LOST YOUR KIT AND SPELLS,\ 
THERE IS A X4 DROP RATE EVENT ON TO MAKE UP FOR IT\\

{FCOLOR/10}Infomation:{FCOLOR/12}\
<Inferno News/@News>\
<Inferno Infomation/@Infomation>\
;<Vital Features/@Features>\
\\
{FCOLOR/10}Miscellaneous:{FCOLOR/12}\
{FCOLOR/1}Announce That Your Online{FCOLOR/12}\
#IF
CheckItem TownTeleport 1
#SAY
<Leave/@Exit>\
#ELSESAY
<Buy Town Teleport/@BuyTT>\
<Leave/@Exit>

;-------------------------------------------------

[@BuyTT]
#ACT
Take Gold 550
Give TownTeleport
GOTO @CheckLoginRank_1

[@News]
#SAY
{FCOLOR/10}News:{FCOLOR/12}\\

<Back/@CheckLoginRank_1>
;-------------------------------------------------

[@Infomation]
#SAY
{FCOLOR/10}Infomation:{FCOLOR/12}\\
<Quests System/@Quest>\
<Refine System/@Refine>\
<New Areas/@Areas>\
;-------------------------------------------------

[@Features]
#SAY
{FCOLOR/10}Infomation:{FCOLOR/12}\\

<Back/@CheckLoginRank_1>
;-------------------------------------------------

[@Quest]
#SAY
You can recive quests from:\

<Back/@CheckLoginRank_1>

[@Refine]
#SAY
When you mine you will only ever get \
{FCOLOR/10}BlackIronOre{FCOLOR/12} & {FCOLOR/10}Corrundum{FCOLOR/12}\
There is also a full working advance refine npc\
{FCOLOR/10}(Blacksmith) Harry (262,107 Desert Mud Wall){FCOLOR/12}\
This allows you do refine Dc/Magic/A. Speed/Accuraccy/Luck/Strength all you need is a {FCOLOR/10}DragonEyeCrystal\
{FCOLOR/12} and another {FCOLOR/10}Crystal{FCOLOR/12} depending on what you wish to refine.\\
You will also be able to find the armour refine \
{FCOLOR/10}(Craftsman) James (156,170 Numa Village){FCOLOR/12}\\
You will also be able to find the accessory refine \
{FCOLOR/10}(Blacksmith) Ron (150,180 Prajna Village){FCOLOR/12}\\
<Back/@CheckLoginRank_1>

[@Areas]
#SAY
<Back/@CheckLoginRank_1>

[@LoginCheckFood]
#ACT
Loadvalue D4 "QuestDiary\System\FoodSystem\FoodLevel.txt" Main [%USERNAME]
DelayGoto [Local] 120 @LoginSetFoodCheck

[@LoginSetFoodCheck]
#ACT
Dec D4 2
SaveValue "QuestDiary\System\FoodSystem\FoodLevel.txt" Main [%USERNAME] %D4
GoTo @LoginSetFood

}

;;不要删掉此行
}
;;;QQ:67762207
