举例六一公测礼包
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) dedecms.com

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") 内容来自dedecms
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")

内容来自dedecms

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

• 上一篇：仙侣奇缘2利用数据库添加元宝 下一篇：教你轩辕单机修改人物属xing