[tool]fabao GM for rocklee330 files

[iononline]

How to change the language.
Delete here.
..\files\db\db.mdb * auto create db
Replace here.
..\files\txt\equip_name.xml \local\zhCN\attdata
..\files\txt\equip_tip.lua \local\zhCN\tip
..\files\txt\item_name.xml \local\zhCN\attdata
..\files\txt\wuxing_name.xml \local\zhCN\attdata
Create db automatically.
Read xml Your local language. into db.
Automatically takes one minute.

Main menu 's English.



Instruction
1.Equipment You are using.
2.Offline
3.connect edit here!

You must be registered to see links

credit :

You must be registered to see links

thank .

 

[hoalong1120]

thanks for share

 

[iononline]

sorry. Not proficient in English.

 

[Gera4]

I have a problem with the connection
"Not found! fabao SerialNum"

And do not tell me how to do gammo?

 

[Seymour]

I have a problem with the connection
"Not found! fabao SerialNum"

And do not tell me how to do gammo?

This means,that pearson,which name you entered,has no fabao.

 

[iononline]

Function TForm1.connecc():bool;
var
AccountID, RoleID :string;
I:integer;

begin
Result := false;
ZConnection1.Disconnect;
try
if not ZConnection1.Connected then
begin
ZConnection1.HostName := Trim(cIP.Text);
ZConnection1.User := Trim(cUser.Text);
ZConnection1.port := StrToInt(Trim(cport.Text));
ZConnection1.Password := Trim(cPass.Text);
ZConnection1.LibraryLocation := CurDir +'ResSql.dll';
ZConnection1.Protocol := 'mysqld-5';
ZConnection1.Database := Trim(cdbname.Text);
ZConnection1.Properties.Values['codepage'] := 'utf8';
ZConnection1.Properties.Add('timeout=5');


form2.ZConnection2.HostName := Trim(form1.cIP.Text);
form2.ZConnection2.User := Trim(form1.cUser.Text);
form2.ZConnection2.port := StrToInt(Trim(form1.cport.Text));
form2.ZConnection2.Password := Trim(form1.cPass.Text);
form2.ZConnection2.LibraryLocation := form1.CurDir +'ResSql.dll';
form2.ZConnection2.Protocol := 'mysqld-5';
form2.ZConnection2.Database := Trim(form1.cdbname.Text);
form2.ZConnection2.Properties.Values['codepage'] := 'utf8';
form2.ZConnection2.Properties.Add('timeout=5');

end;

ZConnection1.Connect;
if ZConnection1.Connected then
begin
ZQuery1.Active := False;
ZQuery1.SQL.Clear;

ZQuery1.Active:=false;
ZQuery1.SQL.Clear;
ZQuery1.Params.Clear;
ZQuery1.Connection:= ZConnection1;
//ZQuery1.Active := True;
ZQuery1.SQL.Add('SELECT AccountID, RoleID FROM loong_db.roledata WHERE RoleName = :nam LIMIT 1');
ZQuery1.ParamByName('nam').AsString:=Trim(CNameChar.Text) ;
ZQuery1.Open;
ZQuery1.First;
while(not ZQuery1.EOF)do begin
AccountID := ZQuery1.Fields[0].AsString;
RoleID := ZQuery1.Fields[1].AsString;
ZQuery1.Next;
end;
//item ser
ZQuery1.SQL.Clear;
ZQuery1.Params.Clear;
ZQuery1.SQL.Add('SELECT SerialNum, Num, TypeID, Bind, LockStat, UnlockTime, UseTimes, FirstGainTime, CreateMode, CreateID, CreatorID, '+
'CreateTime, OwnerID, AccountID, ContainerTypeID, Suffix, NameID FROM loong_db.item '+
'WHERE OwnerID = :OwnerID AND AccountID = :AccountID AND ContainerTypeID = 5 AND Suffix = :Suffix LIMIT 1');
ZQuery1.ParamByName('OwnerID').AsString := RoleID ;
ZQuery1.ParamByName('AccountID').AsString := AccountID;
ZQuery1.ParamByName('Suffix').AsString := '1';
ZQuery1.Open;
ZQuery1.First;
while(not ZQuery1.EOF)do begin
form2.item.SerialNum :=ZQuery1.FieldByName('SerialNum').AsString;
form2.item.Num :=ZQuery1.FieldByName('Num').AsString;
form2.item.TypeID :=ZQuery1.FieldByName('TypeID').AsString;
form2.item.Bind :=ZQuery1.FieldByName('Bind').AsString;
form2.item.LockStat :=ZQuery1.FieldByName('LockStat').AsString;
form2.item.UnlockTime :=ZQuery1.FieldByName('UnlockTime').AsString;
form2.item.UseTimes :=ZQuery1.FieldByName('UseTimes').AsString;
form2.item.FirstGainTime :=ZQuery1.FieldByName('FirstGainTime').AsString;
form2.item.CreateMode :=ZQuery1.FieldByName('CreateMode').AsString;
form2.item.CreateID :=ZQuery1.FieldByName('CreateID').AsString;
form2.item.CreatorID :=ZQuery1.FieldByName('CreatorID').AsString;
form2.item.CreateTime :=ZQuery1.FieldByName('CreateTime').AsString;
form2.item.OwnerID :=ZQuery1.FieldByName('OwnerID').AsString;
form2.item.AccountID :=ZQuery1.FieldByName('AccountID').AsString;
form2.item.ContainerTypeID :=ZQuery1.FieldByName('ContainerTypeID').AsString;
form2.item.Suffix :=ZQuery1.FieldByName('Suffix').AsString;
form2.item.NameID :=ZQuery1.FieldByName('NameID').AsString;
ZQuery1.Next;
end;
//equip ser
ZQuery1.SQL.Clear;
ZQuery1.Params.Clear;
ZQuery1.SQL.Add(' SELECT SerialNum, Quality, MinUseLevel, MaxUseLevel, WuHun, MinDmg, MaxDmg, Armor, PotVal, PotValUsed, '+
'PotIncTimes,PurpleQltyIdfPct, RoleAttEffect, LongInnerID, LongOuterID, SpecAtt, Appearance, Rein, Savvy, '+
'Fortune, ColorID, AttALimMod, AttALimModPct, PosyTimes, PosyEffect, EngraveTimes, EngraveAtt, HoleNum, '+
'HoleGemID, BrandLevel, DerateVal, LongFuLevel, WuXing, WingDartConsolidate, FashionConsolidateLevel, '+
'FashionConsolidateAtt, CurrProssValue, CanCut, FlareVal, QltyModPct, QltyModPctEx, PotValModPct, `Signed`, '+
'Signature, SignRoleID, SoaringFlag, CastingTimes, GemEnhLevel, JuniorEquipSoulBuffID, SeniorEquipSoulBuffID, '+
'bIsFuHuned, SpriteVal '+
'FROM loong_db.equip WHERE SerialNum = :SerialNum LIMIT 1');
ZQuery1.ParamByName('SerialNum').AsString := form2.item.SerialNum ;
ZQuery1.Open;
ZQuery1.First;
while(not ZQuery1.EOF)do begin //52

form2.equip.SerialNum := ZQuery1.FieldByName('SerialNum').AsString;
form2.equip.Quality := ZQuery1.FieldByName('Quality').AsString;
form2.equip.MinUseLevel := ZQuery1.FieldByName('MinUseLevel').AsString;
form2.equip.MaxUseLevel := ZQuery1.FieldByName('MaxUseLevel').AsString;
form2.equip.WuHun := ZQuery1.FieldByName('WuHun').AsString;
form2.equip.MinDmg := ZQuery1.FieldByName('MinDmg').AsString;
form2.equip.MaxDmg := ZQuery1.FieldByName('MaxDmg').AsString;
form2.equip.Armor := ZQuery1.FieldByName('Armor').AsString;
form2.equip.PotVal := ZQuery1.FieldByName('PotVal').AsString;
form2.equip.PotValUsed := ZQuery1.FieldByName('PotValUsed').AsString;

form2.equip.PotIncTimes := ZQuery1.FieldByName('PotIncTimes').AsString;
form2.equip.PurpleQltyIdfPct := ZQuery1.FieldByName('PurpleQltyIdfPct').AsString;
form2.equip.RoleAttEffect := ZQuery1.FieldByName('RoleAttEffect').AsString;
form2.equip.LongInnerID := ZQuery1.FieldByName('LongInnerID').AsString;
form2.equip.LongOuterID := ZQuery1.FieldByName('LongOuterID').AsString;
form2.equip.SpecAtt := ZQuery1.FieldByName('SpecAtt').AsString;
form2.equip.Appearance := ZQuery1.FieldByName('Appearance').AsString;
form2.equip.Rein := ZQuery1.FieldByName('Rein').AsString;
form2.equip.Savvy := ZQuery1.FieldByName('Savvy').AsString;
form2.equip.Fortune := ZQuery1.FieldByName('Fortune').AsString;

form2.equip.ColorID := ZQuery1.FieldByName('ColorID').AsString;
form2.equip.AttALimMod := ZQuery1.FieldByName('AttALimMod').AsString;
form2.equip.AttALimModPct := ZQuery1.FieldByName('AttALimModPct').AsString;
form2.equip.PosyTimes := ZQuery1.FieldByName('PosyTimes').AsString;
form2.equip.PosyEffect := ZQuery1.FieldByName('PosyEffect').AsString;
form2.equip.EngraveTimes := ZQuery1.FieldByName('EngraveTimes').AsString;
form2.equip.EngraveAtt := ZQuery1.FieldByName('EngraveAtt').AsString;
form2.equip.HoleNum := ZQuery1.FieldByName('HoleNum').AsString;
form2.equip.HoleGemID := ZQuery1.FieldByName('HoleGemID').AsString;
form2.equip.BrandLevel := ZQuery1.FieldByName('BrandLevel').AsString;

form2.equip.DerateVal := ZQuery1.FieldByName('DerateVal').AsString;
form2.equip.LongFuLevel := ZQuery1.FieldByName('LongFuLevel').AsString;
form2.equip.WuXing := ZQuery1.FieldByName('WuXing').AsString;
form2.equip.WingDartConsolidate := ZQuery1.FieldByName('WingDartConsolidate').AsString;
form2.equip.FashionConsolidateLevel := ZQuery1.FieldByName('FashionConsolidateLevel').AsString;
form2.equip.FashionConsolidateAtt := ZQuery1.FieldByName('FashionConsolidateAtt').AsString;
form2.equip.CurrProssValue := ZQuery1.FieldByName('CurrProssValue').AsString;
form2.equip.CanCut := ZQuery1.FieldByName('CanCut').AsString;
form2.equip.FlareVal := ZQuery1.FieldByName('FlareVal').AsString;
form2.equip.QltyModPct := ZQuery1.FieldByName('QltyModPct').AsString;

form2.equip.QltyModPctEx := ZQuery1.FieldByName('QltyModPctEx').AsString;
form2.equip.PotValModPct := ZQuery1.FieldByName('PotValModPct').AsString;
form2.equip.Signed := ZQuery1.FieldByName('Signed').AsString;
form2.equip.Signature := ZQuery1.FieldByName('Signature').AsString;
form2.equip.SignRoleID := ZQuery1.FieldByName('SignRoleID').AsString;
form2.equip.SoaringFlag := ZQuery1.FieldByName('SoaringFlag').AsString;
form2.equip.CastingTimes := ZQuery1.FieldByName('CastingTimes').AsString;
form2.equip.GemEnhLevel := ZQuery1.FieldByName('GemEnhLevel').AsString;
form2.equip.JuniorEquipSoulBuffID := ZQuery1.FieldByName('JuniorEquipSoulBuffID').AsString;
form2.equip.SeniorEquipSoulBuffID := ZQuery1.FieldByName('SeniorEquipSoulBuffID').AsString;

form2.equip.bIsFuHuned := ZQuery1.FieldByName('bIsFuHuned').AsString;
form2.equip.SpriteVal := ZQuery1.FieldByName('SpriteVal').AsString;
ZQuery1.Next;
end;


//fabou ser
ZQuery1.SQL.Clear;
ZQuery1.Params.Clear;
ZQuery1.SQL.Add('SELECT SerialNum, NativeIntelligence, Stage, PracticeValue, AttTypes, AttGrowings0, ' +
'AttGrowings, WuxingType, WuxingHoles, WuxingBeadIDs, SlotAttTypes, SlotAttValue, '+
'WuxingMatchReward, UseLevel, SlotNum, SlotLingzhuMatch, SlotMacthNdx '+
'FROM loong_db.fabao WHERE SerialNum = :SerialNum LIMIT 1');
ZQuery1.ParamByName('SerialNum').AsString := form2.equip.SerialNum ;
ZQuery1.Open;
ZQuery1.First;
while(not ZQuery1.EOF)do begin //17

form2.fabao.SerialNum := ZQuery1.FieldByName('SerialNum').AsString;
form2.fabao.NativeIntelligence := ZQuery1.FieldByName('NativeIntelligence').AsString;
form2.fabao.Stage := ZQuery1.FieldByName('Stage').AsString;
form2.fabao.PracticeValue := ZQuery1.FieldByName('PracticeValue').AsString;
form2.fabao.AttTypes := ZQuery1.FieldByName('AttTypes').AsBytes;
form2.fabao.AttGrowings0 := ZQuery1.FieldByName('AttGrowings0').AsBytes;
form2.fabao.AttGrowings := ZQuery1.FieldByName('AttGrowings').AsBytes;
form2.fabao.WuxingType := ZQuery1.FieldByName('WuxingType').Asinteger;
form2.fabao.WuxingHoles := ZQuery1.FieldByName('WuxingHoles').AsBytes;
form2.fabao.WuxingBeadIDs := ZQuery1.FieldByName('WuxingBeadIDs').AsBytes;

form2.fabao.SlotAttTypes := ZQuery1.FieldByName('SlotAttTypes').AsBytes;
form2.fabao.SlotAttValue := ZQuery1.FieldByName('SlotAttValue').AsBytes;
form2.fabao.WuxingMatchReward := ZQuery1.FieldByName('WuxingMatchReward').AsBytes;
form2.fabao.UseLevel := ZQuery1.FieldByName('UseLevel').AsString;
form2.fabao.SlotNum := ZQuery1.FieldByName('SlotNum').AsString;
form2.fabao.SlotLingzhuMatch := ZQuery1.FieldByName('SlotLingzhuMatch').AsString;
form2.fabao.SlotMacthNdx := ZQuery1.FieldByName('SlotMacthNdx').AsBytes;

form2.CNameChar.Text := CNameChar.Text;

ZQuery1.Next;
end;
if (form2.fabao.SerialNum <> '') Then
Result := True
else
showmessage('Not found! fabao SerialNum');
end;
except on E: Exception do showmessage(E.Message);

end;
ZConnection1.Disconnect;
end;

THANK Seymour And Gera4. :cheers::elefant: