设为首页收藏本站www.dtbbk.com 点击-在线充值元宝点击联系站长
备用QQ：537036800切换到宽版

传奇一条龙,GM论坛,GM部落,传奇版本库,传奇服务端,传奇单机版 - dtbbk.Com

 找回密码
 立即注册

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

返回列表 发新帖
查看: 1617|回复: 0

GEE引擎脚本-邮件管理

[复制链接]
GM版本库
发表于 2017-9-11 13:32:50 | 显示全部楼层 |阅读模式
(@@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 415 1 4 0 -100 0 438 3 1
#SAY
<ImgEx:6:34:35:36:360:-9/@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


回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver/手机版/Gm版本库 ( 蜀ICP备20007044号-4 )|网站地图

GMT+8, 2024-12-25 00:18 , Processed in 0.110990 second(s), 17 queries .

Powered by GM版本库 X3.4

© 2001-2011 传奇版本库>  template by 版本库