一休论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 128|回复: 0

[常用脚本] 传奇NPC中常见的天下第一申请脚本

[复制链接]
  • TA的每日心情
    开心
    2015-2-10 22:09
  • 签到天数: 1 天

    [LV.1]初来乍到

    发表于 2014-9-14 12:44:18 | 显示全部楼层 |阅读模式
    网络广告风险自担 网络广告风险自担
    网络广告风险自担

    [@申请天下第一]
    国王有令:为天下最强的勇士们在盟重土城树立雕像,彰显 \
    他们名号.天下群豪尽可以到我这里来登记在案,看看到底 \
    谁是群雄中的最强者.如果来登记的勇士中你是最强的一位 \
    你从此以后就可以名扬天下了. \
    <我是天下第一/@天下第一> \
    <天下第一有谁/@查看第一> \
    <离开
    /@exit> \
    [@查看第一]
    <天下第一男战士/@男战> \
    <天下第一女战士/@女战> \
    <天下第一男道士/@男道> \
    <天下第一女道士/@女道> \
    <天下第一男法师/@男法> \
    <天下第一女法师/@女法> \
    [@天下第一]
    #IF
    CHECKLEVELEX < 49
    #act
    break
    #say
    看来你很有信心,不过你还没有达到资格,你需要50级来证明自己的实力\
    现在来申请天下第一恐怕还嫌早.\
    <离开
    /@exit>
    #IF
    gender man
    checkjob warrior
    #act
    mov A0 <$LEVEL>
    goto @男战申请
    break
    #IF
    gender man
    checkjob wizard
    #act
    break
    mov A1 <$LEVEL>
    goto @男法申请
    #IF
    gender man
    checkjob taoist
    #act
    break
    mov A2 <$LEVEL>
    goto @男道申请
    #IF
    checkjob warrior
    #act
    break
    mov A3 <$LEVEL>
    goto @女战申请
    #IF
    checkjob wizard
    #act
    break
    mov A4 <$LEVEL>
    goto @女法申请
    #IF
    checkjob taoist
    #act
    break
    mov A5 <$LEVEL>
    goto @女道申请
    [@男战申请]
    #IF
    large G24 <$STR(A0)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    EQUAL G24 <$STR(A0)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    HAVEGUILD
    #act
    break
    mov G24 <$STR(A0)>
    mov s1 <$USERNAME>\
    inc S1 ↘天下第一男战↙
    inc S1 \
    mov A6 <$USERNAME>
    mov A7 <$GUILDNAME>
    mov A8 <$LEVEL>
    mov A9 <$DATETIME>
    SETRANKLEVELNAME <$STR(S1)>
    CLEARNAMELIST ..\QuestDiary\天下第一\男战士名单.txt
    addnamelist ..\QuestDiary\天下第一\男战士名单.txt
    SENDMSG 4 %s成功申请了天下第一男战士!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一男战士!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一男战士是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    #IF
    #act
    mov G24 <$STR(A0)>
    mov s1 <$USERNAME>\
    inc S1 ↘天下第一男战↙\
    inc S1 \
    mov A6 <$USERNAME>
    mov A7 暂无
    mov A8 <$LEVEL>
    mov A9 <$DATETIME>
    SETRANKLEVELNAME <$STR(S1)>
    CLEARNAMELIST ..\QuestDiary\天下第一\男战士名单.txt
    addnamelist ..\QuestDiary\天下第一\男战士名单.txt
    SENDMSG 4 %s成功申请了天下第一男战士!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一男战士!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一男战士是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    [@男法申请]
    #IF
    large G25 <$STR(A1)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    EQUAL G25 <$STR(A1)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    HAVEGUILD
    #act
    break
    mov G25 <$STR(A1)>
    mov s2 <$USERNAME>\
    inc S2 ↘天下第一男法↙
    inc S2 \
    mov A10 <$USERNAME>
    mov A11 <$GUILDNAME>
    mov A12 <$LEVEL>
    mov A13 <$DATETIME>
    SETRANKLEVELNAME <$STR(S2)>
    CLEARNAMELIST ..\QuestDiary\天下第一\男法师名单.txt
    addnamelist ..\QuestDiary\天下第一\男法师名单.txt
    SENDMSG 4 %s成功申请了天下第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一男法师是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    #IF
    #act
    mov G25 <$STR(A1)>
    mov s2 <$USERNAME>\
    inc S2 ↘天下第一男法↙
    inc S2 \
    mov A10 <$USERNAME>
    mov A11 暂无
    mov A12 <$LEVEL>
    mov A13 <$DATETIME>
    SETRANKLEVELNAME <$STR(S2)>
    CLEARNAMELIST ..\QuestDiary\天下第一\男法师名单.txt
    addnamelist ..\QuestDiary\天下第一\男法师名单.txt
    SENDMSG 4 %s成功申请了天下第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一男法师是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    [@男道申请]
    #IF
    large G26 <$STR(A2)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    EQUAL G26 <$STR(A2)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    HAVEGUILD
    #act
    break
    mov G26 <$STR(A2)>
    mov s3 <$USERNAME>\
    inc S3 ↘天下第一男道↙
    inc S3 \
    mov A14 <$USERNAME>
    mov A15 <$GUILDNAME>
    mov A16 <$LEVEL>
    mov A17 <$DATETIME>
    SETRANKLEVELNAME <$STR(S3)>
    CLEARNAMELIST ..\QuestDiary\天下第一\男道士名单.txt
    addnamelist ..\QuestDiary\天下第一\男道士名单.txt
    SENDMSG 4 %s成功申请了天下第一男道士!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一男道士!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一男道士是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    #IF
    #act
    mov G26 <$STR(A2)>
    mov s3 <$USERNAME>\
    inc S3 ↘天下第一男道↙
    inc S3 \
    mov A14 <$USERNAME>
    mov A15 暂无
    mov A16 <$LEVEL>
    mov A17 <$DATETIME>
    SETRANKLEVELNAME <$STR(S3)>
    CLEARNAMELIST ..\QuestDiary\天下第一\男道士名单.txt
    addnamelist ..\QuestDiary\天下第一\男道士名单.txt
    SENDMSG 4 %s成功申请了天下第一男道士!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一男道士!他在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一男道士是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    [@女战申请]
    #IF
    large G27 <$STR(A3)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    EQUAL G27 <$STR(A3)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    HAVEGUILD
    #act
    break
    mov G27 <$STR(A3)>
    mov s4 <$USERNAME>\
    inc S4 ↘天下第一女战↙
    inc S4 \
    mov A18 <$USERNAME>
    mov A19 <$GUILDNAME>
    mov A20 <$LEVEL>
    mov A21 <$DATETIME>
    SETRANKLEVELNAME <$STR(S4)>
    CLEARNAMELIST ..\QuestDiary\天下第一\女战士名单.txt
    addnamelist ..\QuestDiary\天下第一\女战士名单.txt
    SENDMSG 4 %s成功申请了天下第一女战士!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一女战士!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一女战士是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    #IF
    #act
    mov G27 <$STR(A3)>
    mov s4 <$USERNAME>\
    inc S4 ↘天下第一女战↙
    inc S4 \
    mov A18 <$USERNAME>
    mov A19 暂无
    mov A20 <$LEVEL>
    mov A21 <$DATETIME>
    SETRANKLEVELNAME <$STR(S4)>
    CLEARNAMELIST ..\QuestDiary\天下第一\女战士名单.txt
    addnamelist ..\QuestDiary\天下第一\女战士名单.txt
    SENDMSG 4 %s成功申请了天下第一女战士!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一女战士!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一女战士是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    [@女法申请]
    #IF
    large G28 <$STR(A4)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    EQUAL G28 <$STR(A4)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    HAVEGUILD
    #act
    break
    mov G28 <$STR(A4)>
    mov s5 <$USERNAME>\
    inc S5 ↘天下第一女法↙
    inc S5 \
    mov A22 <$USERNAME>
    mov A23 <$GUILDNAME>
    mov A24 <$LEVEL>
    mov A25 <$DATETIME>
    SETRANKLEVELNAME <$STR(S5)>
    CLEARNAMELIST ..\QuestDiary\天下第一\女法师名单.txt
    addnamelist ..\QuestDiary\天下第一\女法师名单.txt
    SENDMSG 4 %s成功申请了天下第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一女法师是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    #IF
    #act
    mov G28 <$STR(A4)>
    mov s5 <$USERNAME>\
    inc S5 ↘天下第一女法↙
    inc S5 \
    mov A22 <$USERNAME>
    mov A23 暂无
    mov A24 <$LEVEL>
    mov A25 <$DATETIME>
    SETRANKLEVELNAME <$STR(S5)>
    CLEARNAMELIST ..\QuestDiary\天下第一\女法师名单.txt
    addnamelist ..\QuestDiary\天下第一\女法师名单.txt
    SENDMSG 4 %s成功申请了天下第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一女法师是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    [@女道申请]
    #IF
    large G29 <$STR(A5)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    EQUAL G29 <$STR(A5)>
    #act
    break
    #say
    对不起!!你目前还不是最高等级!\\\
    #IF
    HAVEGUILD
    #act
    break
    mov G29 <$STR(A5)>
    mov s6 <$USERNAME>\
    inc S6 ↘天下第一女道↙
    inc S6 \
    mov A26 <$USERNAME>
    mov A27 <$GUILDNAME>
    mov A28 <$LEVEL>
    mov A29 <$DATETIME>
    SETRANKLEVELNAME <$STR(S6)>
    CLEARNAMELIST ..\QuestDiary\天下第一\女道士名单.txt
    addnamelist ..\QuestDiary\天下第一\女道士名单.txt
    SENDMSG 4 %s成功申请了天下第一女道士!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一女道士!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一女道士是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>
    #IF
    #act
    mov G29 <$STR(A5)>
    mov s6 ↘天下第一女道↙\
    inc S6 <$USERNAME>
    inc S6 \
    mov A26 <$USERNAME>
    mov A27 暂无
    mov A28 <$LEVEL>
    mov A29 <$DATETIME>
    SETRANKLEVELNAME <$STR(S6)>
    CLEARNAMELIST ..\QuestDiary\天下第一\女道士名单.txt
    addnamelist ..\QuestDiary\天下第一\女道士名单.txt
    SENDMSG 4 %s成功申请了天下第一女道士!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    SENDMSG 0 %s成功申请了天下第一女道士!她在烽烟四起的<$SERVERNAME>中修炼成为天下第一,明天的天下第一会是谁?
    #say
    申请成功!目前今天的天下第一女道士是<$USERNAME>,\
    明天的天下第一会是谁? \ \
    <离开
    /@exit>

    [@男战]
    #CALL [\\天下第一\男战士.txt] @天下第一战男
    [@男法]
    #CALL [\\天下第一\男法师.txt] @天下第一法男
    [@男道]
    #CALL [\\天下第一\男道士.txt] @天下第一道男
    [@女战]
    #CALL [\\天下第一\女战士.txt] @天下第一战女
    [@女法]
    #CALL [\\天下第一\女法师.txt] @天下第一法女
    [@女道]
    #CALL [\\天下第一\女道士.txt] @天下第一道女



    登陆时的封号读取脚本:
    路径自己修改.

    [@第一封号]
    {
    #IF
    CHECKNAMELIST ..\QuestDiary\天下第一\男战士名单.txt
    #ACT
    Mov S1 <$USERNAME>\
    INC S1 ↘天下第一男战士↙\
    SETRANKLEVELNAME <$STR(S1)>
    Break
    #IF
    CHECKNAMELIST ..\QuestDiary\天下第一\男道士名单.txt
    #ACT
    Mov S1 <$USERNAME>\
    INC S1 ↘天下第一男道士↙\
    SETRANKLEVELNAME <$STR(S1)>
    Break
    #IF
    CHECKNAMELIST ..\QuestDiary\天下第一\男法师名单.txt
    #ACT
    Mov S1 <$USERNAME>\
    INC S1 ↘天下第一男法师↙\
    SETRANKLEVELNAME <$STR(S1)>
    Break
    #IF
    CHECKNAMELIST ..\QuestDiary\天下第一\女战士名单.txt
    #ACT
    Mov S1 <$USERNAME>\
    INC S1 ↘天下第一女战士↙\
    SETRANKLEVELNAME <$STR(S1)>
    Break
    #IF
    CHECKNAMELIST ..\QuestDiary\天下第一\女道士名单.txt
    #ACT
    Mov S1 <$USERNAME>\
    INC S1 ↘天下第一女道士↙\
    SETRANKLEVELNAME <$STR(S1)>
    Break
    #IF
    CHECKNAMELIST ..\QuestDiary\天下第一\女法师名单.txt
    #ACT
    Mov S1 <$USERNAME>\
    INC S1 ↘天下第一女法师↙\
    SETRANKLEVELNAME <$STR(S1)>

    }





    上一篇:传奇拍卖脚本完整篇
    下一篇:为什么我的NPC不能买、卖、修理物品?
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    网络广告风险自担

    小黑屋|传奇一条龙|GM基地|GM版本库|一休论坛

    GMT+8, 2016-12-8 00:16 , Processed in 0.920401 second(s), 81 queries , Gzip On.

    传奇一条龙 GM基地 版本库 传奇论坛 传奇漏洞论坛 传奇服务端下载 传奇版本

    站长QQ:1921249589 一休论坛资料来自网络仅供学习交流之用,用于商业后果自负

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