关于如何在游戏中植入拍卖系统
我想 其实每个gm都会有这样一个想法：玩家打到的好装备 可以在游戏里竞拍
或者游戏gm自己放一些装备去竞拍 以回收金币或者钻石等
现在公布下脚本 看不懂的可以直接联系我1074203011
;;;;;;;星源传奇3-----------最具技术实力的传奇3-----永远的星源;;;;;;;;;;;;
[@paimai_zb]
{
#act
LoadValue D1 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [初始状态] [起价]
LoadValue A1 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [初始状态] [装备属性]
LoadValue A2 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [初始状态] [装备名称]
LoadValue D2 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [最高价位] [价位]
LoadValue A3 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [最高价位] [玩家名字]
LoadValue D3 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [顺序] [%username]
LoadValue D4 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [玩家铁数] [%username]
#say
{FCOLOR/1}目前服务器出售物品一件:{FCOLOR/12} {FCOLOR/15}<$OUTPUT(A2)>{FCOLOR/12}\
{FCOLOR/1}属性:{FCOLOR/12}{FCOLOR/15}<$OUTPUT(A1)>{FCOLOR/12}\
{FCOLOR/1}起价:{FCOLOR/12}{FCOLOR/13}<$OUTPUT(D1)>块{FCOLOR/12}{FCOLOR/1}上古玄铁{FCOLOR/12}\
{FCOLOR/1}目前玩家出的最高价为:{FCOLOR/12}{FCOLOR/13}<$OUTPUT(D2)>块{FCOLOR/12}\
{FCOLOR/1}玩家名字是:{FCOLOR/12}{FCOLOR/15}<$OUTPUT(A3)>{FCOLOR/12}\
{FCOLOR/1}您目前给出的竞价为:{FCOLOR/12}{FCOLOR/13}<$OUTPUT(D4)>块{FCOLOR/12}{FCOLOR/1}上古玄铁{FCOLOR/12}\
{FCOLOR/15}星 ((__,-"""-,__)) 欢\{FCOLOR/12}
{FCOLOR/15}源 `--){FCOLOR/12}{FCOLOR/1}~ ~{FCOLOR/12}{FCOLOR/15}(--` 迎\{FCOLOR/12}
{FCOLOR/15}传 .-'( )`-, 大\{FCOLOR/12}
{FCOLOR/15}奇 `~~`d b`~~` 家\{FCOLOR/12}
{FCOLOR/15} 3 (6___6) 到\{FCOLOR/12}
{FCOLOR/15}→ `---` 来\{FCOLOR/12}
{FCOLOR/1}竞价规则：\{FCOLOR/12}
{FCOLOR/10}如果你想参与拍卖,首先你的出价必须高于目前的最高价,否则不能成功参加竞价!
参加竞价成功的玩家,系统将暂时帮你保管您竞价数额的{FCOLOR/12}{FCOLOR/1}【上古玄铁】{FCOLOR/12}
{FCOLOR/10}如果以前竞价成功的玩家，再加价可以选择追加物品{FCOLOR/12}{FCOLOR/1}【上古玄铁】{FCOLOR/12}{FCOLOR/10}，总物品数必须大于当前最高方可成功追加！\
竞价时间为每周一至每周六18：00-20：00\
每周日，晚上6点发放竞价物品！
没有获得物品的玩家可以开始领取以前被系统没收的{FCOLOR/12}{FCOLOR/1}【上古玄铁】\{FCOLOR/12}
<参与竞价/@jingjia_cy> \
[@jingjia_cy]
#act
LoadValue D4 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [玩家铁数] [%username]
LoadValue D3 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [顺序] [%username]
LoadValue D2 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [最高价位] [价位]
LoadValue D0 "QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [开关状态] [开关]
#if
equal D0 1
#say
别人正在使用，请稍候再试
#act
break
#IF
!CheckUnit CHECKJF 30
#SAY
_你的积分不够！！\\
_<[返 回]/@paimai_zb>\
_<[关 闭]/@exit>\
#ACT
break
#elseact
goto @jip_dfw
[@jip_dfw]
#if
equal D4 0
#say
您之前没有参加过竞价,这是您第一次对该物品竞价 !\
<请输入你的竞价/@@jingjia_2cy>\
#elsesay
您目前已经出价:<$OUTPUT(D4)>块上古选铁\
目前最高竞价为:<$OUTPUT(D2)>块上古选铁\
<请输入你的追加竞价/@@jingjia_3cy>\
[@@jingjia_2cy]
#ACT
movD7%INPUTSTR
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [开关状态] [开关] 1
#IF
Equal D7 ""
#SAY
_〖提醒〗:请尽快出价！！\\
_<退出/@exit>\
#ACT
break
#ELSEACT
goto @jinpfe_ui
[@jinpfe_ui]
#if
large D7 %D2
#act
goto @jingjia1_cy
#elsesay
您输入的数字必须大于当前竞价的最大数额~!
[@@jingjia_3cy]
#ACT
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [开关状态] [开关] 1
movD6%INPUTSTR
#IF
Equal D6 ""
#SAY
_〖提醒〗:请尽快出价！！\\
_<退出/@exit>\
#ACT
break
#ELSEACT
INC D4 %D6
goto @fwjofy_du
[@fwjofy_du]
#if
large D4 %D2
#act
Delaygoto 2 @jingjian2_cy2
break
#say
数据处理中。。。。。。
#elsesay
您的总数额低于最高价位,竞价失败
[@jingjia1_cy]
#act
Delaygoto 2 @xiy_df
#say
系统正在处理中。。。。。
[@xiy_df]
#if
CheckUnit CHECKJF 30
checkitem 上古玄铁 %D7
#act
take 上古玄铁 %D7
SetUnit SETJF - 30
INC D3 1
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [顺序][%username] %D3
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [玩家铁数][%username] %D7
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [最高价位] [价位] %D7
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [最高价位] [玩家名字] %username
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [开关状态] [开关] 0
#SAY
竞价成功!请关注每天的竞价!以免错失良机\
您的出价为:<$OUTPUT(D7)>块上古选铁\
#elsesay
第一次竞价需要30点积分,并且你必须拥有你出价数额的【上古玄铁】才能竞价\
[@jingjian2_cy2]
#if
CheckUnit CHECKJF 10
checkitem 上古玄铁 %D6
#act
take 上古玄铁 %D6
SetUnit SETJF - 10
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [玩家铁数] [%username] %D4
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [最高价位] [价位] %D4
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [最高价位] [玩家名字] %username
SAVEValue"QuestDiary\附加得功能\拍卖系统\拍卖系统.txt" [开关状态] [开关] 0
#say
竞价成功!请关注每天的竞价!以免错失良机\
您的出价为:<$OUTPUT(D4)>块上古选铁\
#eslesay
追加进价需要10点积分,并且你必须拥有追加数额的【上古玄铁】才能竞价\
}
本程序由我自己写成 并测试成功 已在星源传奇使用 我怎么没有看见怎么卖东西 非常十分以及极其狗血！ 谁都无法阻止我进步的脚步！ 啊v 发表于 2016-3-30 15:57
本程序由我自己写成 并测试成功 已在星源传奇使用
真的假的啊，那就多共享一下其它的脚本罢:lol 感谢楼主的无私分享！ 弱弱的冒个泡！ 楼主辛苦了！ 这东西我收了！谢谢楼主！
页:
[1]
2