战神引擎-烈阳-五货币商城脚本

战神引擎-烈阳-五货币商城脚本

PROGRAM Mir2;

const

  C_NeedLoadGoodsNames_001 = '金条|太阳大礼包|修复神水|疗伤大礼包|金创药包|魔法药包|超级护身符|超级黄色药粉|超级灰色药粉|红名清洗卡|随机传送石|随身仓库|回收宝箱|超级祝福油|行会召唤令|千里传音|沃玛号角|重铸锤|10元宝|100元宝|500元宝|1000元宝|10000元宝';

  VarForRechar = '99$99';    //充值点使用的个人变量,一般都是GetV(99,99),如果不是自行修改

  GetVarForVip = '120$100';  //VIP使用的个人变量,一般都是GetV(88,88),这里默认是120,100,自行修改

var                                      

   UsingGoodsName: string;

function PrintStr(Pstr:string;Pid:integer):string;

var

   index,len:integer;

   GetTempstr,GetConvStr,Outstr:string;

begin

    index:=0;

    GetConvStr:=Pstr;

len := length(Pstr);

    repeat

    index:=index+1;

    GetConvStr:=GetValidStr(GetConvStr,GetTempstr,'$');

    if index = Pid then

        Outstr:=GetTempstr;

until (GetTempstr = '') or (index >= len);

result:=Outstr;

end;