64GM论坛 › 传奇技术教程 › 天下第一脚本示例

kiyllsvxbp 发表于 2023-10-23 16:00:15

[HERO引擎]天下第一脚本示例

天下第一脚本示例


功能：天下第一

示例：

[@申请天下第一]

国王有令：为天下最强的勇士们在盟重土城树立雕像,彰显 \

他们名号.天下群豪尽可以到我这里来登记在案,看看到底 \

谁是群雄中的最强者.如果来登记的勇士中你是最强的一位 \

你从此以后就可以名扬天下了. \

<我是天下第一/@天下第一> \

<天下第一有谁/@查看第一> \

<离开/@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)>

}

专属神器 发表于 2023-11-20 18:32:26

感谢楼主提供这么好的论坛！

天猫迷失单职业 发表于 2023-11-20 22:24:42

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

牛家村专属 发表于 2023-11-21 03:06:54

这个帖子不回对不起自己！

帝尊大陆 发表于 2023-11-21 08:36:49

感谢楼主提供这么好的论坛」

羽国沉默 发表于 2023-11-21 12:57:35

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

山河万象 发表于 2023-11-21 17:10:10

很多架设问题在这里可以找到，真是太好啦。

麒麟火龙 发表于 2023-11-21 23:05:27

感谢站长分享开区一条龙教程，新手能学习到很多知识。

弃天龙渊 发表于 2023-11-22 01:41:50

这个帖子不回对不起自己！

金币合击 发表于 2023-11-22 07:34:50

楼主发贴辛苦了，谢谢楼主分享！

查看完整版本: 天下第一脚本示例