请选择 进入手机版 | 继续访问电脑版

快捷方式网络游戏技术论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1953|回复: 0

[【教程】] 【资料】仙侣2修改新人上线送东西和全部技能

[复制链接]
  • TA的每日心情
    慵懒
    2020-7-6 00:26
  • 签到天数: 1851 天

    [LV.Master]伴坛终老

    发表于 2011-1-29 20:24 | 显示全部楼层 |阅读模式
    举例六一公测礼包
    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
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    手机版|小黑屋|Archiver|快捷方式网络游戏技术论坛     快捷方式.lnk 点击这里给我发消息  

    GMT+8, 2020-8-3 22:47 , Processed in 0.124624 second(s), 18 queries .

    Powered by Discuz! X3.4

    Copyright © 2001-2020, Tencent Cloud.

    快速回复 返回顶部 返回列表