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;
function IsUsingGoodsName(const GoodsName: string): Boolean;
var
Str, TempStr: string;
begin
Result := False;
Str := UsingGoodsName;
while Str <> '' do
begin
Str := GetValidStr(Str, TempStr, '|');
if TempStr = GoodsName then
begin
Result := True;
Exit;
end;
end;
end;
function GetVipSrcPrice(VipLv:integer):string;
begin
result := '';
case VipLv of
1 : result := '0.95'; //1级VIP享受95折
2 : result := '0.9';
3 : result := '0.85';
4 : result := '0.8';
5 : result := '0.75';
6 : result := '0.7';
7 : result := '0.65';
8 : result := '0.6';
9 : result := '0.55';
10,11,12 : result := '0.5'; //10级以上都享受5折
end;
end;
|
|