GM基地论坛

 找回密码
 立即注册

GEE引擎脚本-邮件管理 - 传奇私服脚本

查看: 948|回复: 101

GEE引擎脚本-邮件管理

[复制链接]
发表于 2017-9-25 14:20:07 | 显示全部楼层 |阅读模式
(@@InPutString @@InPutInteger)
[@main]
#IF
equal S300
#ACT
mov S300 ______

#IF
small N300 1
#ACT
mov S$发送数量 ______


#IF
large N300 0
#ACT
mov S$发送数量 <$STR(N300)>

#IF
#ACT
mov S$发送RMB点 <Img:82:58:98:-99/@类型RMB点>
mov S$发送元宝 <Img:82:58:160:-115/@类型元宝>
mov S$发送裁决币 <Img:82:58:221:-130/@类型裁决币>
mov S$发送欢乐豆 <Img:82:58:276:-147/@类型欢乐豆>

#IF
equal S$发送类型 RMB点
#ACT
mov S$发送RMB点 <Img:83:58:98:-99/@类型RMB点>

#IF
equal S$发送类型 元宝
#ACT
mov S$发送元宝 <Img:83:58:160:-115/@类型元宝>

#IF
equal S$发送类型 裁决币
#ACT
mov S$发送裁决币 <Img:83:58:221:-130/@类型裁决币>

#IF
equal S$发送类型 欢乐豆
#ACT
mov S$发送欢乐豆 <Img:83:58:276:-147/@类型欢乐豆>



#IF
#ACT
OPENMERCHANTBIGDLG 6 399 1 4 0 -100 0 438 3 1
#SAY
<ImgEx:6:317:318:319:344:0/@EXIT>\
<text:邮件管理:150:-7{FCOLOR=151}>\
<text:   -------------------------发送邮件-----------------------:0:5{FCOLOR=140}>\
<text:收件姓名::30:10{FCOLOR=161}>\
< /AUTOCOLOR=0>\
<text:货币类型:     RMB点     元宝      裁决币     欢乐豆:30:15{FCOLOR=161}>\
< /AUTOCOLOR=0>\
<text:货币数量::30:15{FCOLOR=161}>\
<text:     (发送邮件必须要收件人在线才可以发送,发送后立即收到货币):-20:30{FCOLOR=249}>\
<text:   《确定发送》   :120:33{FCOLOR=151}/@确定发送邮件>\
<text:  --------------------------------------------------------:0:10{FCOLOR=140}>\
<text:   《查看我的邮件记录》   |151#只显示最近50条:100:35{FCOLOR=151}/@查询邮件记录>\
<$STR(S$发送RMB点)>\
<$STR(S$发送元宝)>\
<$STR(S$发送裁决币)>\
<$STR(S$发送欢乐豆)>\
<text:<$STR(S300)>:86:-197{FCOLOR=151}/@@InPutString300(请输入收件人名字)>\
<text: <$STR(S$发送数量)> :86:-144{FCOLOR=151}/@@InPutInteger300(请输入您要发送<$STR(S$发送类型)>的数量)>\

[@查询邮件记录]
#IF
#ACT
CREATEFILE ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 0 S$显示1 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 1 S$显示2 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 2 S$显示3 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 3 S$显示4 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 4 S$显示5 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 5 S$显示6 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 6 S$显示7 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 7 S$显示8 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 8 S$显示9 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 9 S$显示10 N0

#IF
#ACT
OPENMERCHANTBIGDLG 6 400 1 4 0 -100 0 438 3 1
#SAY
<ImgEx:6:317:318:319:568:12/@EXIT>\
< /AUTOCOLOR=0>\
< /AUTOCOLOR=0><01:<$STR(S$显示1)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><02:<$STR(S$显示2)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><03:<$STR(S$显示3)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><04:<$STR(S$显示4)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><05:<$STR(S$显示5)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><06:<$STR(S$显示6)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><07:<$STR(S$显示7)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><08:<$STR(S$显示8)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><09:<$STR(S$显示9)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><10:<$STR(S$显示10)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0>\  
< /AUTOCOLOR=0>                           <上一页/@查询邮件记录>           1/5           <下一页/@查询邮件记录1>          <发送邮件/@main>


[@查询邮件记录1]
#IF
#ACT
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 10 S$显示11 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 11 S$显示12 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 12 S$显示13 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 13 S$显示14 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 14 S$显示15 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 15 S$显示16 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 16 S$显示17 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 17 S$显示18 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 18 S$显示19 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 19 S$显示20 N0

#IF
#ACT
OPENMERCHANTBIGDLG 6 400 1 4 0 -100 0 438 3 1
#SAY
<ImgEx:6:317:318:319:568:12/@EXIT>\
< /AUTOCOLOR=0>\
< /AUTOCOLOR=0><11:<$STR(S$显示11)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><12:<$STR(S$显示12)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><13:<$STR(S$显示13)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><14:<$STR(S$显示14)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><15:<$STR(S$显示15)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><16:<$STR(S$显示16)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><17:<$STR(S$显示17)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><18:<$STR(S$显示18)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><19:<$STR(S$显示19)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><20:<$STR(S$显示20)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0>\  
< /AUTOCOLOR=0>                           <上一页/@查询邮件记录>           2/5           <下一页/@查询邮件记录2>          <发送邮件/@main>



[@查询邮件记录2]
#IF
#ACT
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 20 S$显示21 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 21 S$显示22 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 22 S$显示23 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 23 S$显示24 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 24 S$显示25 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 25 S$显示26 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 26 S$显示27 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 27 S$显示28 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 28 S$显示29 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 29 S$显示30 N0

#IF
#ACT
OPENMERCHANTBIGDLG 6 400 1 4 0 -100 0 438 3 1
#SAY
<ImgEx:6:317:318:319:568:12/@EXIT>\
< /AUTOCOLOR=0>\
< /AUTOCOLOR=0><21:<$STR(S$显示21)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><22:<$STR(S$显示22)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><23:<$STR(S$显示23)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><24:<$STR(S$显示24)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><25:<$STR(S$显示25)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><26:<$STR(S$显示26)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><27:<$STR(S$显示27)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><28:<$STR(S$显示28)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><29:<$STR(S$显示29)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><30:<$STR(S$显示30)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0>\  
< /AUTOCOLOR=0>                           <上一页/@查询邮件记录1>           3/5           <下一页/@查询邮件记录3>          <发送邮件/@main>


[@查询邮件记录3]
#IF
#ACT
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 30 S$显示21 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 31 S$显示22 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 32 S$显示23 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 33 S$显示24 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 34 S$显示25 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 35 S$显示26 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 36 S$显示27 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 37 S$显示28 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 38 S$显示29 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 39 S$显示30 N0

#IF
#ACT
OPENMERCHANTBIGDLG 6 400 1 4 0 -100 0 438 3 1
#SAY
<ImgEx:6:317:318:319:568:12/@EXIT>\
< /AUTOCOLOR=0>\
< /AUTOCOLOR=0><31:<$STR(S$显示31)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><32:<$STR(S$显示32)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><33:<$STR(S$显示33)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><34:<$STR(S$显示34)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><35:<$STR(S$显示35)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><36:<$STR(S$显示36)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><37:<$STR(S$显示37)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><38:<$STR(S$显示38)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><39:<$STR(S$显示39)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><40:<$STR(S$显示40)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0>\  
< /AUTOCOLOR=0>                           <上一页/@查询邮件记录2>           4/5           <下一页/@查询邮件记录4>          <发送邮件/@main>



[@查询邮件记录4]
#IF
#ACT
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 40 S$显示21 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 41 S$显示22 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 42 S$显示23 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 43 S$显示24 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 44 S$显示25 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 45 S$显示26 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 46 S$显示27 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 47 S$显示28 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 48 S$显示29 N0
GetListString ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 49 S$显示30 N0

#IF
#ACT
OPENMERCHANTBIGDLG 6 400 1 4 0 -100 0 438 3 1
#SAY
<ImgEx:6:317:318:319:568:12/@EXIT>\
< /AUTOCOLOR=0>\
< /AUTOCOLOR=0><41:<$STR(S$显示41)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><42:<$STR(S$显示42)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><43:<$STR(S$显示43)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><44:<$STR(S$显示44)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><45:<$STR(S$显示45)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><46:<$STR(S$显示46)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><47:<$STR(S$显示47)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><48:<$STR(S$显示48)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><49:<$STR(S$显示49)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0><50:<$STR(S$显示50)>/AUTOCOLOR=140>\
< /AUTOCOLOR=0>\  
< /AUTOCOLOR=0>                           <上一页/@查询邮件记录3>           4/5           <下一页/@查询邮件记录4>          <发送邮件/@main>


[@确定发送邮件]
#IF
equal S300 ______
#ACT
messagebox [提示]:请先输入收件人名字!
Break
#IF
equal S$发送类型
#ACT
messagebox [提示]:请选择发送货币类型!
Break
#IF
small N300 1
#ACT
messagebox [提示]:请先输入要发送的金额!
Break
#IF
#ACT
Messagebox [提示]:您确定要发送“<$STR(N300)><$STR(S$发送类型)>”给“<$STR(S300)>”么? @确定发送邮件A @取消
break


[@确定发送邮件A]
#IF
NOT CheckOnline <$STR(S300)>
#ACT
Messagebox [提示]:该玩家已经不在线了!
break

#IF
equal S$发送类型 元宝
small <$STR(N300)> 10000
#ACT
messagebox [提示]:小于10000元宝不可发邮件!
Break

#IF
equal S$发送类型 裁决币
small <$STR(N300)> 500
#ACT
messagebox [提示]:小于500裁决币不可发邮件!
Break

#IF
equal S$发送类型 欢乐豆
small <$STR(N300)> 500
#ACT
messagebox [提示]:小于500欢乐豆不可发邮件!
Break

#IF
equal S$发送类型 RMB点
CHECKGAMEDIAMOND < <$STR(N300)>
#ACT
messagebox [提示]:您的“RMB”不足<$STR(N300)>!
Break

#IF
equal S$发送类型 元宝
CHECKGAMEGOLD < <$STR(N300)>
#ACT
messagebox [提示]:您的“元宝”不足<$STR(N300)>!
Break

#IF
equal S$发送类型 裁决币
CHECKGAMEGIRD < <$STR(N300)>
#ACT
messagebox [提示]:您的“裁决币”不足<$STR(N300)>!
Break

#IF
equal S$发送类型 欢乐豆
NOT CheckGold <$STR(N300)>
#ACT
messagebox [提示]:您的“欢乐豆”不足<$STR(N300)>!
Break

#IF
equal S$发送类型 RMB点
#ACT
GAMEDIAMOND - <$STR(N300)>

#IF
equal S$发送类型 元宝
#ACT
GAMEGOLD - <$STR(N300)>

#IF
equal S$发送类型 裁决币
#ACT
GAMEGIRD - <$STR(N300)>

#IF
equal S$发送类型 欢乐豆
#ACT
take 金币 <$STR(N300)>

#IF
#ACT
CREATEFILE ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt
AddTextListEx ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 时间:<$YEAR>年<$MONTH>月<$DAY>日<$HOUR>时<$MINUTE>分<$SECOND>秒,发送“<$STR(N300)><$STR(S$发送类型)>”给“<$STR(S300)>”,状态:发送成功! 0

SetHumVar <$STR(S300)> S300 <$USERNAME>
SetHumVar <$STR(S300)> S$发送类型 <$STR(S$发送类型)>
SetHumVar <$STR(S300)> N300 <$STR(N300)>
<$STR(S300)>.goto @收件人触发
messagebox [提示]:邮件发送成功!
GOTO @main
Break


[@收件人触发]
#IF
equal S$发送类型 RMB点
#ACT
GAMEDIAMOND + <$STR(N300)>

#IF
equal S$发送类型 元宝
#ACT
GAMEGOLD + <$STR(N300)>

#IF
equal S$发送类型 裁决币
#ACT
GAMEGIRD + <$STR(N300)>

#IF
equal S$发送类型 欢乐豆
#ACT
Give 金币 <$STR(N300)>

#IF
#ACT
SendCenterMsg 151 0 [提示]:您收到【<$STR(S300)>】给您发送的新邮件,邮件附带:<$STR(S$发送类型)>:<$STR(N300)>,可在邮件管理查看记录! 0 8
CREATEFILE ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt
AddTextListEx ..\QuestDiary\裁决邮件系统\<$USERNAME>.txt 时间:<$YEAR>年<$MONTH>月<$DAY>日<$HOUR>时<$MINUTE>分<$SECOND>秒,收到“<$STR(S300)>”的邮件“<$STR(S$发送类型)><$STR(N300)>”,状态:接收成功! 0
close





[@取消]
#ACT
break

[@InPutString300]
#IF
equal <$STR(S300)> <$USERNAME>
#ACT
mov S300
messagebox [提示]:请不要给自己发送!
Break

#IF
CheckOnline <$STR(S300)>
#ACT
GOTO @main
break
#elseact
Messagebox [提示]:该玩家不在线或不在服务区,请重新输入!
mov S300
GOTO @main

[@InPutInteger300]
#IF
small N300 1
#ACT
mov N300 0
messagebox [失败]:请输入的数值必须大于0!
Break

#IF
small N300 1
#ACT
messagebox [失败]:请输入的数值必须大于0!
mov N300 0
Break
#elseact
GOTO @main
break

[@类型RMB点]
#IF
equal S$发送类型 RMB点
#ACT
mov S$发送类型
GOTO @main

#elseact
mov S$发送类型 RMB点
GOTO @main

[@类型元宝]
#IF
equal S$发送类型 元宝
#ACT
mov S$发送类型
GOTO @main

#elseact
mov S$发送类型 元宝
GOTO @main

[@类型裁决币]
#IF
equal S$发送类型 裁决币
#ACT
mov S$发送类型
GOTO @main

#elseact
mov S$发送类型 裁决币
GOTO @main


[@类型欢乐豆]
#IF
equal S$发送类型 欢乐豆
#ACT
mov S$发送类型
GOTO @main

#elseact
mov S$发送类型 欢乐豆
GOTO @main


回复

使用道具 举报

0
发表于 2017-9-25 14:40:45 | 显示全部楼层
LZ敢整点更有创意的不?兄弟们等着围观捏~
回复 支持 反对

使用道具 举报

0
发表于 2017-9-25 15:06:15 | 显示全部楼层
没人回帖。。。我来个吧
回复 支持 反对

使用道具 举报

0
发表于 2017-9-25 15:24:55 | 显示全部楼层
小手一抖,钱钱到手!
回复 支持 反对

使用道具 举报

0
发表于 2017-9-25 15:49:19 | 显示全部楼层
LZ是天才,坚定完毕
回复 支持 反对

使用道具 举报

0
发表于 2017-9-25 16:08:21 | 显示全部楼层
佩服佩服!
回复 支持 反对

使用道具 举报

0
发表于 2017-9-25 16:28:50 | 显示全部楼层
这么强,支持楼主,佩服
回复 支持 反对

使用道具 举报

发表于 2017-9-25 16:50:37 | 显示全部楼层
鄙视楼下的顶帖没我快,哈哈
回复 支持 反对

使用道具 举报

发表于 2017-9-25 17:12:11 | 显示全部楼层
纯粹路过,没任何兴趣,仅仅是看在老用户份上回复一下
回复 支持 反对

使用道具 举报

0
发表于 2017-9-25 17:28:53 | 显示全部楼层
非常好,顶一下
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版/Archiver/Gm版本库 ( 粤ICP备18134211号 )

GMT+8, 2019-3-27 05:14 , Processed in 0.249600 second(s), 17 queries .

Powered by Discuz! X3.4

© 2001-2011 Comsenz Inc.>  template by gmbbk.com