【脚本】用键值对自动循环覆盖记录掉宝

用键值对自动循环覆盖记录掉宝(写入1条新的就删1条最老的) 就是数据结构里的队列 就跟自动循环录像机一样，可以设置永远保持7天录像，有效的掉宝条数自己改设置。

[@PICKUPITEMEX]
#IF
#ACT
GetDBItemFieldValue <$CURRTEMNAME> idx S$物品IDX
MOV N$序号 <$GETSTRVALUE(A121,<$STR(S$物品IDX)>)>

#OR
EQUAL <$GETSTRVALUE(A120,<$STR(N$序号)>)> 0
EQUAL <$GETSTRVALUE(A120,<$STR(N$序号)>)>
#ACT
ADDVARCACHE A120 <$STR(N$序号)> <$USERNAME>
changeexp + <$cfg_firstearn(<$STR(N$序号)>_2)> 1
MailGIVE 元宝 <$cfg_firstearn(<$STR(N$序号)>_1)> 5
SendMail 1 首爆奖励 你好<$USERNAME>，由于你打到全区第一个【{<$CURRTEMNAME>/FCOLOR=251}】，奖励你：【{<$cfg_firstearn(<$STR(N$序号)>_1)>元宝<$cfg_firstearn(<$STR(N$序号)>_2)>经验/FCOLOR=251}】！
SENDMOVEMSG 0 250 0 280 1  恭喜！玩家【{<$USERNAME>/FCOLOR=251}】打到全区第一个【{<$CURRTEMNAME>/FCOLOR=251}】，获得奖励：【{<$cfg_firstearn(<$STR(N$序号)>_1)>元宝<$cfg_firstearn(<$STR(N$序号)>_2)>经验/FCOLOR=251}】！

#IF
SMALL S$物品IDX 10238
#ACT
BREAK

#IF
SMALL N$记录数 101
#ACT
INC N$记录数 1
ADDVARCACHE A122 1 <$STR(N$记录数)>
INC N$记录数 1
UNIXTOSTR <$UTCNOW> S1 S2
ADDVARCACHE A122 <$STR(N$记录数)> <[<$STR(S2)>]/FCOLOR=103><[<$USERNAME>]/FCOLOR=250><在/FCOLOR=243><<$MAPTITLE>(<$X>，<$Y>)/FCOLOR=254><捡到/FCOLOR=251><[<$CURRTEMNAME>]/FCOLOR=249>
#ELSEACT
MOV N$记录重排 3
while N$记录重排 < 102
   MOV S$记录 <$GETSTRVALUE(A122,<$STR(N$记录重排)>)>
   DEC N$记录重排 1
   ADDVARCACHE A122 <$STR(N$记录重排)> <$STR(S$记录)>
   INC N$记录重排 2
endwhile
UNIXTOSTR <$UTCNOW> S1 S2
ADDVARCACHE A122 101 <[<$STR(S2)>]/FCOLOR=103><[<$USERNAME>]/FCOLOR=250><在/FCOLOR=243><<$MAPTITLE>(<$X>，<$Y>)/FCOLOR=254><捡到/FCOLOR=251><[<$CURRTEMNAME>]/FCOLOR=249>