特戒引擎

跨服排行榜¶

模块说明
使用 通区数据表 与 itemGrid 实现跨服排行榜的效果

特戒引擎脚本示例：¶

[@main]
#act
mov n$打开标记 0
#say
<保存排行数据/@存数据>\ \ \
<显示排行/@显示排行>\ \ \
<删除排行数据/@删数据>\ \ \
<查看排行数据/@查数据>\ \ \
 
[@存数据]
#if
not tbl_exist tb_cross跨服排行
#act
tbl_create_cross tb_cross跨服排行 关键字 角色名 服务器id 战斗力 等级
 
#if
#act
tbl_add tb_cross跨服排行 <$userName>_<$server> <$userName> <$server> <$powerValue> <$level>
;--此处可根据指定字段排序，相关命令:tbl_sort--
tbl_save tb_cross跨服排行
messageBox 数据保存完毕!
 
[@查数据]
#if
tbl_exist tb_cross跨服排行
#act
tbl_toStr tb_cross跨服排行 s0
messageBox <$str(s0)>
#elseAct
messageBox 跨服排行数据尚不存在
 
[@删数据]
#if
tbl_exist tb_cross跨服排行
#act
tbl_destroy tb_cross跨服排行
messageBox 跨服排行数据删除完毕
#elseAct
messageBox 跨服排行数据尚不存在
 
[@显示排行]
;--排行显示列表赋值--
#act
mov s$itemList
mov n$idx 1
 
#if tbl tb_cross跨服排行 s$关键字
#act
mov s$key <$str(s$关键字)>
mov s$角色名 <$tbl(tb_cross跨服排行,s$关键字,角色名)>
mov s$战斗力 <$tbl(tb_cross跨服排行,s$关键字,战斗力)>
mov s$等级 <$tbl(tb_cross跨服排行,s$关键字,等级)>
goto @条目模板
inc n$idx 1
 
#if
#act
goto @点击条目
 
[@条目模板]
#act
mov s$item
inc s$item (<itemIndex:<$str(n$idx)>>
inc s$item <itemToggle:huishouwupin_xuanzhongkuang:denglu_liebiao_weixuanzhong/@点击条目(<$str(s$key)>)>
inc s$item <text:<$str(s$角色名)>{scolor=150}:80:60>
inc s$item <text:<$str(s$战斗力)>:280:60>
inc s$item <text:<$str(s$等级)>:450:60>
inc s$item )
inc s$itemList s$item
 
[@点击条目]
;--取出关键字--
#if
equal n$打开标记 1
#act
mov s$关键字 <$scriptParam1>
#elseAct
;--初始打开界面,默认点击处理--
tbl_index_key tb_cross跨服排行 1 s$关键字
mov n$打开标记 1
 
#if
#act
;--根据关键字获取点击“角色名”与“所在服”--
pgExtractString _ s$关键字 s$关键字拆分 n0
mov s$展示角色 <$str(s$关键字拆分_1)>
mov s$所在服 <$str(s$关键字拆分_2)>
;--展示模型数据赋值--
playUser s$展示角色 s$所在服 s$模型id s$性别 s$武器id s$斗笠id s$翅膀id @getUserInfo
 
[@getUserInfo]
#act
openMerchantBigDlg ok_di 4 0 0 1 0 0
#say
<dontClearList:跨服排行列表>\
<panelSize:1800:1000>\
<itemGrid:<$str(s$itemList)>:跨服排行列表,1,0,1:0:0:1000,100:1,1,650,1:0>\
 
<playModel:<$str(s$模型id)>:1000:0:8:1.3,5:<$str(s$性别)>:<$str(s$武器id)>:<$str(s$斗笠id)>:<$str(s$翅膀id)>:0>
<playModelEx:<$str(s$模型id)>:1000:400:8:1.3,5:<$str(s$性别)>:<$str(s$武器id)>:<$str(s$斗笠id)>:<$str(s$翅膀id)>:0>
 
<text:查看角色信息:100:700/@角色信息>
 
[@角色信息]
#act
viewPlayerEx <$str(s$展示角色)> <$str(s$所在服)>