仙侣2修改新人上线送东西和全部技能

举例六一公测礼包
Proc Main
GetItemNum($Num)
If ($Num > 36)
SendMsgToSpc("物品栏空间不足");
UseItem(0)
Return
EndIf
UseItem(1)
MsgLog("六一礼包","打开六一礼包获得奖励")
SetItemFlag(1)
GiveItem("元神丹",30)
GiveItem("经验丹",1)
GiveItem("天灵焰",1)
GiveItem("化神剑",1)
GiveItem("云晶雀",1)
GiveItem("七彩玉莲",1)
GiveItem("九天玄凰",1)
GiveItem("烟波浩淼",1)
GiveItem("神器碎片",100)
GiveItem("邪灵元魄",100)
SendMsgToWorld("恭喜『%s』打开六一大礼包，获得经验丹、元神丹、宠物经验丹及特色宠物奖励。")
SetItemDate(0)
Random($Ra,3)
If($Ra == 1)
GiveTaskItem("小飞鱼",3,4,1055,0)
Return
EndIf
If($Ra == 2)
GiveTaskItem("扣扣",3,4,287,0)
Return
EndIf
If($Ra == 3)
GiveTaskItem("人参果",3,4,287,0)
Return
EndIf

EndProc




看着我的和你们的又什么不同 就清楚了

GiveTaskItem("人参果",3,4,287,0)

3为品级  例如 法器 宝器 仙器 神器




修改技能在  
X:\Usr\GameServer\Task\新人

ProcMain
GetLevel($L)
If ($L==1)
GiveItem("尺素仙笺",1)
Call Item
Call Skill
EndIf
GiveItem("庆公测礼包",5)
EndProc

Proc Item
GiveGold(1000)
GiveItem("回城符",100)
GiveItem("七彩金丹",100)
GiveItem("仙缘酒",100)
GiveItem("蟹肉烧麦",100)
GiveItem("金宝箱钥匙",10)
GiveItem("木宝箱钥匙",10)
GiveItem("水宝箱钥匙",10)
GiveItem("火宝箱钥匙",10)
GiveItem("土宝箱钥匙",10)
GetSex($性别)
GetProfession($职业)
If($性别 == 0)
If($职业 == 0)
AddEquipItem("古铜甲",0);
AddEquipItem("金鳞刀",0);
Return
EndIf
If($职业 == 1)
AddEquipItem("夕云法袍",0);
AddEquipItem("金顶杖",0);
Return
EndIf
If($职业 == 2)
AddEquipItem("蓝缎道袍",0);
AddEquipItem("青锋剑",0);
Return
EndIf
EndIf
If($性别 == 1)
If($职业 == 0)
AddEquipItem("紫罗衫",0);
AddEquipItem("百炼刀",0);
Return
EndIf
If($职业 == 1)
AddEquipItem("珍珠法裙",0);
AddEquipItem("星辉杖",0);
Return
EndIf
If($职业 == 2)
AddEquipItem("仙舞之裙",0);
AddEquipItem("青霜剑",0);
Return
EndIf
EndIf
EndProc

Proc Skill
AddSkill("\Skill\生活\剥取.txt");
AddSkill("\Skill\生活\捕捉.txt");
AddSkill("\Skill\生活\采集.txt");
AddSkill("\Skill\生活\挖矿.txt");
GetProfession($P)
If($P==0)
AddSkill("\Skill\释家\武道\001.txt")
AddSkill("\Skill\释家\武道\002.txt")
AddSkill("\Skill\释家\武道\003.txt")
AddSkill("\Skill\释家\武道\004.txt")
AddSkill("\Skill\释家\武道\005.txt")
AddSkill("\Skill\释家\武道\006.txt")
AddSkill("\Skill\释家\武道\007.txt")
AddSkill("\Skill\释家\武道\008.txt")
AddSkill("\Skill\释家\武道\009.txt")
AddSkill("\Skill\释家\武道\010.txt")
AddSkill("\Skill\释家\武道\011.txt")
AddSkill("\Skill\释家\武道\012.txt")
AddSkill("\Skill\释家\武道\013.txt")
AddSkill("\Skill\释家\武道\014.txt")
AddSkill("\Skill\释家\武道\015.txt")
AddSkill("\Skill\释家\禅宗\001.txt")
AddSkill("\Skill\释家\禅宗\002.txt")
AddSkill("\Skill\释家\禅宗\003.txt")
AddSkill("\Skill\释家\禅宗\004.txt")

AddSkill("\Skill\释家\禅宗\005.txt")
AddSkill("\Skill\释家\禅宗\006.txt")
AddSkill("\Skill\释家\禅宗\007.txt")
AddSkill("\Skill\释家\禅宗\008.txt")
AddSkill("\Skill\释家\禅宗\009.txt")
AddSkill("\Skill\释家\禅宗\010.txt")
AddSkill("\Skill\释家\禅宗\011.txt")
AddSkill("\Skill\释家\禅宗\012.txt")
AddSkill("\Skill\释家\禅宗\013.txt")
AddSkill("\Skill\释家\禅宗\014.txt")
AddSkill("\Skill\释家\禅宗\015.txt")
AddSkill("\Skill\释家\密宗\001.txt")
AddSkill("\Skill\释家\密宗\002.txt")
AddSkill("\Skill\释家\密宗\003.txt")
AddSkill("\Skill\释家\密宗\004.txt")
AddSkill("\Skill\释家\密宗\005.txt")
AddSkill("\Skill\释家\密宗\006.txt")
AddSkill("\Skill\释家\密宗\007.txt")
AddSkill("\Skill\释家\密宗\008.txt")
AddSkill("\Skill\释家\密宗\009.txt")
AddSkill("\Skill\释家\密宗\010.txt")
AddSkill("\Skill\释家\密宗\011.txt")
AddSkill("\Skill\释家\密宗\012.txt")
AddSkill("\Skill\释家\密宗\013.txt")
AddSkill("\Skill\释家\密宗\014.txt")
AddSkill("\Skill\释家\密宗\015.txt")
Return
EndIf
If($P==1)
AddSkill("\Skill\儒家\火系\001.txt")
AddSkill("\Skill\儒家\火系\002.txt")
AddSkill("\Skill\儒家\火系\003.txt")
AddSkill("\Skill\儒家\火系\004.txt")
AddSkill("\Skill\儒家\火系\005.txt")
AddSkill("\Skill\儒家\火系\006.txt")
AddSkill("\Skill\儒家\火系\007.txt")
AddSkill("\Skill\儒家\火系\008.txt")
AddSkill("\Skill\儒家\火系\009.txt")
AddSkill("\Skill\儒家\火系\010.txt")
AddSkill("\Skill\儒家\火系\011.txt")
AddSkill("\Skill\儒家\火系\012.txt")
AddSkill("\Skill\儒家\火系\013.txt")
AddSkill("\Skill\儒家\火系\014.txt")
AddSkill("\Skill\儒家\火系\015.txt")
AddSkill("\Skill\儒家\电系\001.txt")
AddSkill("\Skill\儒家\电系\002.txt")
AddSkill("\Skill\儒家\电系\003.txt")
AddSkill("\Skill\儒家\电系\004.txt")
AddSkill("\Skill\儒家\电系\005.txt")
AddSkill("\Skill\儒家\电系\006.txt")
AddSkill("\Skill\儒家\电系\007.txt")
AddSkill("\Skill\儒家\电系\008.txt")
AddSkill("\Skill\儒家\电系\009.txt")
AddSkill("\Skill\儒家\电系\010.txt")
AddSkill("\Skill\儒家\电系\011.txt")
AddSkill("\Skill\儒家\电系\012.txt")
AddSkill("\Skill\儒家\电系\013.txt")
AddSkill("\Skill\儒家\电系\014.txt")
AddSkill("\Skill\儒家\电系\015.txt")
AddSkill("\Skill\儒家\冰系\001.txt")
AddSkill("\Skill\儒家\冰系\002.txt")
AddSkill("\Skill\儒家\冰系\003.txt")
AddSkill("\Skill\儒家\冰系\004.txt")
AddSkill("\Skill\儒家\冰系\005.txt")
AddSkill("\Skill\儒家\冰系\006.txt")
AddSkill("\Skill\儒家\冰系\007.txt")
AddSkill("\Skill\儒家\冰系\008.txt")
AddSkill("\Skill\儒家\冰系\009.txt")
AddSkill("\Skill\儒家\冰系\010.txt")
AddSkill("\Skill\儒家\冰系\011.txt")
AddSkill("\Skill\儒家\冰系\012.txt")
AddSkill("\Skill\儒家\冰系\013.txt")
AddSkill("\Skill\儒家\冰系\014.txt")
AddSkill("\Skill\儒家\冰系\015.txt")
Return
EndIf
If($P==2)
AddSkill("\Skill\道家\咒术\001.txt")
AddSkill("\Skill\道家\咒术\002.txt")
AddSkill("\Skill\道家\咒术\003.txt")
AddSkill("\Skill\道家\咒术\004.txt")
AddSkill("\Skill\道家\咒术\005.txt")
AddSkill("\Skill\道家\咒术\006.txt")
AddSkill("\Skill\道家\咒术\007.txt")
AddSkill("\Skill\道家\咒术\008.txt")
AddSkill("\Skill\道家\咒术\009.txt")
AddSkill("\Skill\道家\咒术\010.txt")
AddSkill("\Skill\道家\咒术\011.txt")
AddSkill("\Skill\道家\咒术\012.txt")
AddSkill("\Skill\道家\咒术\013.txt")
AddSkill("\Skill\道家\咒术\014.txt")
AddSkill("\Skill\道家\咒术\015.txt")
AddSkill("\Skill\道家\符术\001.txt")
AddSkill("\Skill\道家\符术\002.txt")
AddSkill("\Skill\道家\符术\003.txt")
AddSkill("\Skill\道家\符术\004.txt")
AddSkill("\Skill\道家\符术\005.txt")
AddSkill("\Skill\道家\符术\006.txt")
AddSkill("\Skill\道家\符术\007.txt")
AddSkill("\Skill\道家\符术\008.txt")
AddSkill("\Skill\道家\符术\009.txt")
AddSkill("\Skill\道家\符术\010.txt")
AddSkill("\Skill\道家\符术\011.txt")
AddSkill("\Skill\道家\符术\012.txt")
AddSkill("\Skill\道家\符术\013.txt")
AddSkill("\Skill\道家\符术\014.txt")
AddSkill("\Skill\道家\符术\015.txt")
AddSkill("\Skill\道家\剑术\001.txt")
AddSkill("\Skill\道家\剑术\002.txt")
AddSkill("\Skill\道家\剑术\003.txt")
AddSkill("\Skill\道家\剑术\004.txt")
AddSkill("\Skill\道家\剑术\005.txt")
AddSkill("\Skill\道家\剑术\006.txt")
AddSkill("\Skill\道家\剑术\007.txt")
AddSkill("\Skill\道家\剑术\008.txt")
AddSkill("\Skill\道家\剑术\009.txt")
AddSkill("\Skill\道家\剑术\010.txt")
AddSkill("\Skill\道家\剑术\011.txt")
AddSkill("\Skill\道家\剑术\012.txt")
AddSkill("\Skill\道家\剑术\013.txt")
AddSkill("\Skill\道家\剑术\014.txt")
AddSkill("\Skill\道家\剑术\015.txt")
Return
EndIf
EndProc 发布站程序下载：www.98youx.com发布站程序下载：www.98youx.com