admin 发表于 2020-11-24 05:55:26

沙巴克分红脚本

AutoRunRobot.txt 添加

#AutoRun NPC SEC   1   @新区分红计时
#AutoRun NPC SEC   1   @合区分红提示


RobotManage.txt 添加

[@新区分红计时]
#IF
LARGE G4 0
#ACT
DEC G4 1

#IF
LARGE G8 0
#ACT
DEC G8 1

#IF
EQUAL G8 600
#ACT
SENDMOVEMSG 0 252 255 150 1 【沙巴克奖池分红】:距离新区沙巴克奖池分红最后剩余10分钟,请各位老板注意时间,10分钟后准时结算,以服务器时间为准...
SENDMOVEMSG 0 252 255 200 1 【沙巴克奖池分红】:距离新区沙巴克奖池分红最后剩余10分钟,请各位老板注意时间,10分钟后准时结算,以服务器时间为准...
SENDMOVEMSG 0 252 255 250 1 【沙巴克奖池分红】:距离新区沙巴克奖池分红最后剩余10分钟,请各位老板注意时间,10分钟后准时结算,以服务器时间为准...

#IF
EQUAL G8 300
#ACT
SENDMOVEMSG 0 252 255 150 1 【沙巴克奖池分红】:距离新区沙巴克奖池分红最后剩余5分钟,请各位老板注意时间,5分钟后准时结算,以服务器时间为准...
SENDMOVEMSG 0 252 255 200 1 【沙巴克奖池分红】:距离新区沙巴克奖池分红最后剩余5分钟,请各位老板注意时间,5分钟后准时结算,以服务器时间为准...
SENDMOVEMSG 0 252 255 250 1 【沙巴克奖池分红】:距离新区沙巴克奖池分红最后剩余5分钟,请各位老板注意时间,5分钟后准时结算,以服务器时间为准...

#IF
EQUAL G8 1
#ACT
Gmexecute 开始提问 @新区沙巴克奖池分红

[@合区分红提示]
#IF
LARGE G9 0
#ACT
DEC G9 1

#IF
EQUAL G9 600
#ACT
SENDMOVEMSG 0 252 255 150 1 【沙巴克奖池分红】:距离沙巴克奖池分红最后剩余10分钟,请各位老板注意时间,10分钟后准时结算,以服务器时间为准...
SENDMOVEMSG 0 252 255 200 1 【沙巴克奖池分红】:距离沙巴克奖池分红最后剩余10分钟,请各位老板注意时间,10分钟后准时结算,以服务器时间为准...
SENDMOVEMSG 0 252 255 250 1 【沙巴克奖池分红】:距离沙巴克奖池分红最后剩余10分钟,请各位老板注意时间,10分钟后准时结算,以服务器时间为准...

#IF
EQUAL G9 300
#ACT
SENDMOVEMSG 0 252 255 150 1 【沙巴克奖池分红】:距离沙巴克奖池分红最后剩余5分钟,请各位老板注意时间,5分钟后准时结算,以服务器时间为准...
SENDMOVEMSG 0 252 255 200 1 【沙巴克奖池分红】:距离沙巴克奖池分红最后剩余5分钟,请各位老板注意时间,5分钟后准时结算,以服务器时间为准...
SENDMOVEMSG 0 252 255 250 1 【沙巴克奖池分红】:距离沙巴克奖池分红最后剩余5分钟,请各位老板注意时间,5分钟后准时结算,以服务器时间为准...

#IF
EQUAL G9 1
#ACT
Gmexecute 开始提问 @总区沙巴克奖池分红

QManage.txt 添加

[@新区沙巴克奖池分红]
#IF
EQUAL A20 <$USERNAME>
#ACT
GetListString ..\QuestDiary\开区清理\个人捐献排行.txt 0 <$STR(S$第1名字)> <$STR(N$第1数量)>
GetListString ..\QuestDiary\开区清理\个人捐献排行.txt 1 <$STR(S$第2名字)> <$STR(N$第2数量)>
GetListString ..\QuestDiary\开区清理\个人捐献排行.txt 2 <$STR(S$第3名字)> <$STR(N$第3数量)>
GetListString ..\QuestDiary\开区清理\个人捐献排行.txt 3 <$STR(S$第4名字)> <$STR(N$第4数量)>

MOV N$总分红金额 0
INC N$总分红金额 <$str(N$第1数量)>
INC N$总分红金额 <$str(N$第2数量)>
INC N$总分红金额 <$str(N$第3数量)>
INC N$总分红金额 <$str(N$第4数量)>
MOV N$税后分红计算 <$STR(N$总分红金额)>
MUL N$税后分红 <$STR(N$税后分红计算)> 30
DIV N$税后分红 100

GAMEPOINT + <$STR(N$税后分红)>
SENDMOVEMSG 0 252 255 150 1 【沙巴克奖池分红】:恭喜神豪玩家[<$USERNAME>]获得[<$SERVERNAME>]新区4小时沙巴克奖池分红,共计[<$STR(N$税后分红)>]点Rmb...
SENDMOVEMSG 0 252 255 200 1 【沙巴克奖池分红】:恭喜神豪玩家[<$USERNAME>]获得[<$SERVERNAME>]新区4小时沙巴克奖池分红,共计[<$STR(N$税后分红)>]点Rmb...
SENDMOVEMSG 0 252 255 250 1 【沙巴克奖池分红】:恭喜神豪玩家[<$USERNAME>]获得[<$SERVERNAME>]新区4小时沙巴克奖池分红,共计[<$STR(N$税后分红)>]点Rmb...

[@总区沙巴克奖池分红]
#IF
EQUAL A20 <$USERNAME>
#ACT
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日01区.txt 0 S$今日一区 S$捐献金额0
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日02区.txt 0 S$今日二区 S$捐献金额1
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日03区.txt 0 S$今日三区 S$捐献金额2
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日04区.txt 0 S$今日四区 S$捐献金额3
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日05区.txt 0 S$今日五区 S$捐献金额4
GetListString ..\..\..\..\通区捐献\<$STR(A10)>\今日06区.txt 0 S$今日六区 S$捐献金额5

MOV N$总金额 0
INC N$总金额 <$str(S$捐献金额0)>
INC N$总金额 <$str(S$捐献金额1)>
INC N$总金额 <$str(S$捐献金额2)>
INC N$总金额 <$str(S$捐献金额3)>
INC N$总金额 <$str(S$捐献金额4)>
INC N$总金额 <$str(S$捐献金额5)>
MOV N$税后款 <$STR(N$总金额)>
MUL N$税后款 70
DIV N$税后款 100

MOV N$总区第一分红 <$STR(N$税后款)>
MUL N$总区第一分红 10
DIV N$总区第一分红 100

GAMEPOINT + <$STR(N$总区第一分红)>
SENDMOVEMSG 0 252 255 150 1 【沙巴克奖池分红】:恭喜神豪玩家[<$USERNAME>]获得[<$SERVERNAME>]总区沙巴克奖池分红,共计[<$STR(N$总区第一分红)>]点Rmb...
SENDMOVEMSG 0 252 255 200 1 【沙巴克奖池分红】:恭喜神豪玩家[<$USERNAME>]获得[<$SERVERNAME>]总区沙巴克奖池分红,共计[<$STR(N$总区第一分红)>]点Rmb...
SENDMOVEMSG 0 252 255 250 1 【沙巴克奖池分红】:恭喜神豪玩家[<$USERNAME>]获得[<$SERVERNAME>]总区沙巴克奖池分红,共计[<$STR(N$总区第一分红)>]点Rmb...

caozhihu1 发表于 2024-6-18 11:12:49

的说法是德国
页: [1]
查看完整版本: 沙巴克分红脚本