local TraceFrame = DEFAULT_CHAT_FRAME;

DBCS_prog_serveur = 0; -- seul le développeur de cet addon doit avoir cette variable à 1, car c'est lui qui crè le fichier serveur de données et aussi car le fichier de données DBCS.lua ne sert qu'a cette meme personne, vous l avez deviné, moi :)
						-- ou peut etre 1 responsable par serveur pour centraliser le maximum de données avant de les envoyer sur 1 site ( plu valable depuis les addons de stockage des récup de chaque mois, seulement sur mon ordi )

if ( DBOS == nil ) then
	DBOS_config = {};
	DBOS = nil;
	DBOS_valeurs = {};
	DBOS_enchant = {};
end
if ( DBMS == nil ) then
	DBMS = nil;
end
if ( DBCS_mobs_locs == nil ) then
	DBCS_mobs_locs = nil;
end
if ( DBCS_mobs_detail == nil ) then
	DBCS_mobs_detail = nil;
end
if ( DBCS_mobs_model == nil ) then
	DBCS_mobs_model = nil;
end
if ( DBCS_mobs_spell == nil ) then
	DBCS_mobs_spell = nil;
end
if ( DBmobs_Local == nil ) then
	DBmobs_Local = nil;
end

local DBCS_corps_wow_build;
local DBCS_corps_wow_build_live = 13623;

_, DBCS_corps_wow_build, _, _ = GetBuildInfo();
DBCS_corps_wow_build = tonumber(DBCS_corps_wow_build);

DBCS_language = nil;

--/script DBCS_liremarchand()

--## Secure: 1

--Vous êtes resté inactif un certain temps et vous allez être déconnecté du jeu. Si vous souhaitez rester connecté, cliquez sur Annuler.

--local radians = GetPlayerFacing();

--/script DEFAULT_CHAT_FRAME:AddMessage(GetCVar("accountName"))
--/script DEFAULT_CHAT_FRAME:AddMessage(GetCVar("checkAddonVersion"))

--/console taintLog 1
--/script PetActionBarFrame:Show();
--/script PetActionBarFrame:Hide();

--/script DBcorpsFrame.SetPoint("CENTER",0,0);
--/script DBcorpsFrame.SetPoint("CENTER",UIParent,"CENTER",0,0);
--			ochamp:SetPoint("TOPLEFT",DBcorpsMap,"TOPLEFT",75,-66);

--/script DBcorpsFrame_Tooltip3:SetHyperlink("item:32837");
--/script DBOT_modeon()
--/script DBOT_modeoff()
--/script DBOT_f_init(0)
--/script DBOT_f_init(12000)
--/script DBOT_f_init(28000)
--/script DBOT_f_init(33000)
--@ADBCS@frFR@VN01@010064@

--/script DBCS_recup_enreg_joueurs_debut();
--/script DBCS_recup_enreg_joueurs_fin();

--/script DBCS_tr_joueur_afficher();

--/script DBCS_vidermarchand()

--/script Blizzard_CombatLog_CurrentSettings.settings.showHistory = false
--/script Blizzard_CombatLog_CurrentSettings.settings.showHistory = true

--/script DBCS_SendChatMessage("@ADBCS@"..DBCS_getlocale.."@VN01@"..DBCS_VERSION1..DBCS_VERSION2..DBCS_VERSION3.."@","CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);

--/script DBcorps_deplacerDBCC(100,1)
--/script DBcorps_deplacerDBCC(50,1)
--/script DBcorps_deplacerDBCC(20,1)
--/script DBcorps_deplacerDBCC(10,1)
--/script DBcorps_deplacerDBCC(1,1)

--/script DBcorps_deplacerDBCC(1000)
--/script DBcorps_deplacerDBCC(500)
--/script DBcorps_deplacerDBCC(100)
--/script DBcorps_deplacerDBCC(50)
--/script DBcorps_deplacerDBCC(20)
--/script DBcorps_deplacerDBCC(10)
--/script DBcorps_deplacerDBCC(1)
--/script DBcorps_deplacerDBCC(0)

--/script DBcorps_deplacerDBCC_liste_serveur();

--/script DBquetes_copiersauvegardedsDBPS();				--	DBPC 										Dbquetes.lua			devrait changer de place ou à modifier

--/script DBQS2_recup_DBQC2_vers_DBQS2();			--	DBQC2												DBQuetes2.lua			pas en fonction		VARIABLES_LOADED

--/script DBquetes_copiersauvegardedsDBQS();

--/script DBQS2_initnumquete_dsDBQS();
--/script DBquetes_copier_quetes_ds_quetes2();

--/script fDBmobs_Local_copier_client_vers_serveur();		--	DBMobs_Local_Client 						DBmobs_frFR.lua

--/script DBmobs_MVW_recup_modele_et_blp_existe_deja();		--	DBMVWC 										introuvable

--/script DBmobs_MVW_recup_modele_et_blp_existe_pas();		--	DBMVWC 										introuvable

--/script DBCS_copie_mobs_spell_sauvegarde();				--	DBCS_mobs_spell_Client 						DBCS_mobs_spell.lua

--/script DBCS_copie_mobs_model_client();					--	DBCS_Mobs_Model_Client 						DBCS_mobs_model.lua

--/script DBCS_mobs_locs_copier_vers_serveur();				--	DBCS_mobs_locs_Client 	par 100				DBCS_mobs_locs.lua

--/script DBCS_mobs_detail_copier_vers_serveur();			--	DBCS_mobs_detail_Client 	par 100			DBCS_mobs_detail.lua

--/script DBobjets_copier_client_vers_serveur();			--	DBobjets_Client								DBobjets.lua			pas en fonction		VARIABLES_LOADED

--/script DBQS2_modifier_pnj_debut_fin_quetes2();

--	["Paysan écarlate#000#character@human@male@humanmale.m2@@"] = 20081123,
--	["Soldat d'infanterie écarlate#000#character@human@female@humanfemale.m2@@"] = 20081123,
--	["Hargus le Bancal#000#creature@northrendgeist@@northrendgeist.m2@@"] = 20081123,
--	["Fantôme écarlate#000#creature@ghost@@ghost.m2@@"] = 20081123,
--	["Lanceur de sorts ahn'kahar#000#creature@nerubiancaster@@nerubiancaster.m2@@"] = 20081119,
--	["Tisseuse ahn'kahar#000#creature@nerubian@@nerubian.m2@@"] = 20081119,
--	["Soldat d'infanterie écarlate#000#character@human@male@humanmale.m2@@"] = 20081123,
--	["Rampante des profondeurs#000#creature@bonespider@@bonespider.m2@@"] = 20081119,
--	["Citoyenne de Havre-comté#000#character@human@female@humanfemale.m2@@"] = 20081123,
--	["Capitaine écarlate#000#character@human@male@humanmale.m2@@"] = 20081123,
--	["Citoyen de Havre-comté#000#character@human@male@humanmale.m2@@"] = 20081123,

--	["Soldat d'infanterie écarlate#000#character@human@female@humanfemale.m2@@"] = 20081123,
--	["Hargus le Bancal#000#creature@northrendgeist@@northrendgeist.m2@@"] = 20081123,
--	["Citoyen de Havre-comté#000#character@human@male@humanmale.m2@@"] = 20081123,
--	["Paysan écarlate#000#character@human@male@humanmale.m2@@"] = 20081123,
--	["Soldat d'infanterie écarlate#000#character@human@male@humanmale.m2@@"] = 20081123,
--	["Lanceur de sorts ahn'kahar#000#creature@nerubiancaster@@nerubiancaster.m2@@"] = 20081119,
--	["Capitaine écarlate#000#character@human@male@humanmale.m2@@"] = 20081123,
--	["Rampante des profondeurs#000#creature@bonespider@@bonespider.m2@@"] = 20081119,
--	["Citoyenne de Havre-comté#000#character@human@female@humanfemale.m2@@"] = 20081123,
--	["Tisseuse ahn'kahar#000#creature@nerubian@@nerubian.m2@@"] = 20081119,
--	["Fantôme écarlate#000#creature@ghost@@ghost.m2@@"] = 20081123,

--	["Marche-boue Aileron boueux#107#creature@murloc@@murloc.m2@@"] = 20081230,

--	["Obscuron#000#creature@drake@@drake.m2@@"] = 20090208,
--	["Lanceur de sorts ahn'kahar#000#creature@nerubiancaster@@nerubiancaster.m2@@"] = 20090209,
--	["Broyeur d'os#000#creature@northrendfleshgiant@@northrendfleshgiant.m2@@"] = 20090209,
--	["Amanitar#000#creature@fungalmonster@@fungalmonster.m2@@"] = 20090209,
--	["Prince Taldaram#000#creature@vampyrbloodprince@@vampyrbloodprince.m2@@"] = 20090209,
--	["Apôtre du crépuscule#000#character@orc@male@orcmale.m2@@"] = 20090209,
--	["Briseur ahn'kahar#000#creature@nerubianwarrior@@nerubianwarrior.m2@@"] = 20090209,
--	["Adorateur du crépuscule#000#character@troll@female@trollfemale.m2@@"] = 20090209,
--	["Invocateur noir du crépuscule#000#character@scourge@female@scourgefemale.m2@@"] = 20090209,
--	["Héraut Volazj#000#creature@facelessone@@facelessone.m2@@"] = 20090209,
--	["Sartharion#000#creature@dragon@@northrenddragon.m2@@"] = 20090208,
--	["Ancien Nadox#000#creature@nerubianpriest@@nerubianpriest.m2@@"] = 20090209,
--	["Ténébron#000#creature@drake@@drake.m2@@"] = 20090208,
--	["Invocateur noir du crépuscule#000#character@scourge@male@scourgemale.m2@@"] = 20090209,
--	["Adorateur du crépuscule#000#character@troll@male@trollmale.m2@@"] = 20090209,
--	["Guetteur ahn'kahar#000#creature@nerubianwarrior@@nerubianwarrior.m2@@"] = 20090209,
--	["Maîtresse du brasier onyx#000#creature@dragonspawncaster@@dragonspawncaster.m2@@"] = 20090208,
--	["Apôtre du crépuscule#000#character@orc@female@orcfemale.m2@@"] = 20090209,
--	["Tisseuse ahn'kahar#000#creature@nerubian@@nerubian.m2@@"] = 20090209,
--	["Oeil de Taldaram#000#creature@shade@@shade.m2@@"] = 20090209,
--	["Rampante des profondeurs#000#creature@bonespider@@bonespider.m2@@"] = 20090209,
--	["Adorateur du crépuscule#000#character@tauren@female@taurenfemale.m2@@"] = 20090209,
--	["Geist pilleur#000#creature@northrendgeist@@northrendgeist.m2@@"] = 20090209,
--	["Adorateur du crépuscule#000#character@tauren@male@taurenmale.m2@@"] = 20090209,
--	["Vespéron#000#creature@drake@@drake.m2@@"] = 20090208,
--	["Marcheur de peste#000#creature@superzombie@@superzombie.m2@@"] = 20090209,
--	["Jedoga Cherchelombre#000#character@orc@female@orcfemale.m2@@"] = 20090209,
--	["Porte-givre#000#creature@coldwraith@@coldwraith.m2@@"] = 20090209,

--	20090115	fichier 133
--	["Lanceur de sorts ahn'kahar#000#creature@nerubiancaster@@nerubiancaster.m2@@"] = 20090110,
--	["Invocateur noir du crépuscule#000#character@scourge@female@scourgefemale.m2@@"] = 20090108,
--	["Adorateur du crépuscule#000#character@troll@female@trollfemale.m2@@"] = 20081229,
--	["Rampante des profondeurs#000#creature@bonespider@@bonespider.m2@@"] = 20090110,
--	["Geist pilleur#000#creature@northrendgeist@@northrendgeist.m2@@"] = 20090108,
--	["Porte-givre#000#creature@coldwraith@@coldwraith.m2@@"] = 20090110,
--	["Héraut Volazj#000#creature@facelessone@@facelessone.m2@@"] = 20090108,
--	["Apôtre du crépuscule#000#character@orc@female@orcfemale.m2@@"] = 20090108,
--	["Apôtre du crépuscule#000#character@orc@male@orcmale.m2@@"] = 20090108,
--	["Briseur ahn'kahar#000#creature@nerubianwarrior@@nerubianwarrior.m2@@"] = 20090110,
--	["Ancien Nadox#000#creature@nerubianpriest@@nerubianpriest.m2@@"] = 20090108,
--	["Jedoga Cherchelombre#000#character@orc@female@orcfemale.m2@@"] = 20090108,
--	["Oublié#000#creature@facelessone@@facelessone.m2@@"] = 20090108,
--	["Tisseuse ahn'kahar#000#creature@nerubian@@nerubian.m2@@"] = 20090110,
--	["Oeil de Taldaram#000#creature@shade@@shade.m2@@"] = 20090110,
--	["Adorateur du crépuscule#000#character@tauren@male@taurenmale.m2@@"] = 20090108,
--	["Adorateur du crépuscule#000#character@tauren@female@taurenfemale.m2@@"] = 20090108,
--	["Marcheur de peste#000#creature@superzombie@@superzombie.m2@@"] = 20090110,
--	["Adorateur du crépuscule#000#character@troll@male@trollmale.m2@@"] = 20081229,
--	["Prince Taldaram#000#creature@vampyrbloodprince@@vampyrbloodprince.m2@@"] = 20090108,
--	["Bête sauvage de la caverne#000#creature@fungalmonster@@fungalmonster.m2@@"] = 20090110,

--	20081208	fichier 126
--	["Géant sombre-rune#066#creature@northrendirongiant@@northrendirongiant.m2@@"] = 20081204,
--	["Assemblage déchaîné#066#creature@golemiron@@golemiron.m2@@"] = 20081204,
--	["Adorateur du crépuscule#074#character@troll@female@trollfemale.m2@@"] = 20081205,
--	["Ouvrier sombre-rune#066#creature@irondwarf@@irondwarf.m2@@"] = 20081204,
--	["Feu fantasmatique#069#creature@fireelemental@@fireelemental.m2@@"] = 20081205,
--	["Adorateur du crépuscule#074#character@tauren@male@taurenmale.m2@@"] = 20081205,
--	["Adorateur du crépuscule#074#character@tauren@female@taurenfemale.m2@@"] = 20081205,

--	20081126	fichier 121
--	["Médecin écarlate#000#character@human@female@humanfemale.m2@@"] = 20081118,

--	20081015	fichier 116
--	["Copain#303#creature@frostsabre@@ridingfrostsabre.m2@@"] = 20081009,

--	20080827	fichier 97
--	["Kodo dompté#105#creature@kodobeast@@kodobeast.m2@@"] = 20080614,

--	20080716	fichier 83
--	["Tethyr#107#creature@krakken@@krakken.m2@@"] = 20080710,

--	20080627	fichier 65
--	["Kodo dompté#105#creature@kodobeast@@kodobeast.m2@@"] = 20080614,

--	20080520	fichier 53
--	["Àkitsu#119#creature@druidbear@@druidbeartauren.m2@@"] = 0,

--	20080520	fichier 53
--	["Àkitsu#119#creature@druidbear@@druidbeartauren.m2@@"] = 0,
--	20080520	fichier 47
--	111	mulgore
--	["Vieux trotteur des plaines#111#creature@tallstrider@@tallstrider.m2@@"] = 0,
--	["Rapace acéré#111#creature@carrionbird@@carrionbird.m2@@"] = 0,
--	117	les tarides
--	["Matriarche des savanes#117#creature@tiger@@tiger.m2@@"] = 0,
--	["Grande crinière des savanes#117#creature@lion@@lion.m2@@"] = 0,
--	119	les pitons du tonerre
--	["Àkitsu#119#creature@druidbear@@druidbeartauren.m2@@"] = 0,
--	20080503	fichier 46
--	["Matriarche des savanes#117#creature@tiger@@tiger.m2@@"] = 0,
--	["Vieux trotteur des plaines#111#creature@tallstrider@@tallstrider.m2@@"] = 0,
--	["Rapace acéré#111#creature@carrionbird@@carrionbird.m2@@"] = 0,
--	["Grande crinière des savanes#117#creature@lion@@lion.m2@@"] = 0,
--	20080503	fichier 39
--	["Matriarche des savanes#117#creature@tiger@@tiger.m2@@"] = 0,
--	["Vieux trotteur des plaines#111#creature@tallstrider@@tallstrider.m2@@"] = 0,
--	["Rapace acéré#111#creature@carrionbird@@carrionbird.m2@@"] = 0,
--	["Grande crinière des savanes#117#creature@lion@@lion.m2@@"] = 0,
--	20080420	fichier 28
--	["Rapace acéré#111#creature@carrionbird@@carrionbird.m2@@"] = 0,
--	["Matriarche des savanes#117#creature@tiger@@tiger.m2@@"] = 0,
--	["Grande crinière des savanes#117#creature@lion@@lion.m2@@"] = 0,
--	["Vieux trotteur des plaines#111#creature@tallstrider@@tallstrider.m2@@"] = 0,
--	20080419	fichier 28
--	["Colosse affolé#308#creature@mountaingiantcrystal@@mountaingiantcrystal_boss.m2@@"] = 20080419,
--	["Ruul l'Assombrisseur#308#character@bloodelf@male@bloodelfmale.m2@@"] = 20080419,
--	["Ensorceleur éthérien#040#creature@etherialrobe@@etherialrobe.m2@@"] = 20080417,
--	["Charognard éthérien#040#creature@etherial@@etherial.m2@@"] = 20080417,
--	["Ecumeur de cryptes éthérien#040#creature@etherial@@etherial.m2@@"] = 20080417,
--	["Rapace acéré#111#creature@carrionbird@@carrionbird.m2@@"] = 0,
--	["Matriarche des savanes#117#creature@tiger@@tiger.m2@@"] = 0,
--	["Vieux trotteur des plaines#111#creature@tallstrider@@tallstrider.m2@@"] = 0,
--	["Grande crinière des savanes#117#creature@lion@@lion.m2@@"] = 0,
--	20080417	fichier 28
--	["Ensorceleur éthérien#040#creature@etherialrobe@@etherialrobe.m2@@"] = 20080417,
--	["Charognard éthérien#040#creature@etherial@@etherial.m2@@"] = 20080417,
--	["Ecumeur de cryptes éthérien#040#creature@etherial@@etherial.m2@@"] = 20080417,
--	["Rapace acéré#111#creature@carrionbird@@carrionbird.m2@@"] = 0,
--	["Matriarche des savanes#117#creature@tiger@@tiger.m2@@"] = 0,
--	["Vieux trotteur des plaines#111#creature@tallstrider@@tallstrider.m2@@"] = 0,
--	["Grande crinière des savanes#117#creature@lion@@lion.m2@@"] = 0,
--	20080324	fichier 28
--	["Rapace acéré#111#creature@carrionbird@@carrionbird.m2@@"] = 0,
--	["Matriarche des savanes#117#creature@tiger@@tiger.m2@@"] = 0,
--	["Vieux trotteur des plaines#111#creature@tallstrider@@tallstrider.m2@@"] = 0,
--	["Grande crinière des savanes#117#creature@lion@@lion.m2@@"] = 0,

--/script ChannelToggleAnnouncements("recherchegroupe")
--/ann recherchegroupe

--/script ChatFrame2:Show()

--/script /dbcs_debug_on

--http://wowui.incgamers.com/?p=mod&m=4990
--http://wow.freehackers.org/
--http://wow.freehackers.org/EnvoiDBCS/
--http://wowui.incgamers.com/?p=mod&m=4991--http://wowui.incgamers.com/?p=mod&m=4992
--http://wowui.incgamers.com/?p=mod&m=4991
--http://wowui.incgamers.com/?p=mod&m=4992
--http://wowui.incgamers.com/?p=mod&m=7061

--	dbcs_model_viewer
--http://wowui.worldofwar.net/?p=mod&m=6158

DBCS_VERSION1 = "01";
DBCS_VERSION2 = "00";
DBCS_VERSION3 = "99";

DBCC_VERSION1 = "00";
DBCC_VERSION2 = "00";
DBCC_VERSION3 = "01";

--	<Frame name="DBCS_frame_time" parent="UIParent">
--		<Size>
--			<AbsDimension x="0" y="0"/>
--		</Size>
--		<Scripts>
--			<OnUpdate>
--				--DBCS_envoihisto();
--				--DBCS_recup_enreg_joueurs();
--				--DBCS_message5sec();
--				--DBCS_maj_minimap();
--			</OnUpdate>
--		</Scripts>
--	</Frame>
	
--{{{
--#!html
--DBCS est comme thotbot ou wowdbu
--<br />sauf que les infos sont en addons au lieu d etre sur 1 site web
--<br />
--<br />il liste tous les monstres tuÃ©s
--<br />calcul le salaire moyen d 1 monstre en fonction des objets et des % de drop des objets
--<br />liste tous les objets que vous avez dÃ©jÃ  vu
--<br />liste 164 ensembles de sets, par classe et par type de set ( pas tous complets )
--<br />
--<br />si vous utilisez chatmondialserveur, ceux avec cms ( chatmondialserveur ) rÃ©cup les infos des monstres que vous tuez
--<br />cad : partage des donnÃ©es que vous ajoutez Ã  votre base avec les autres connectÃ©s
--<br />
--<br />dbcs retiens : les monstres tuÃ©s, les ressources obtenues ( coffre, minage, ceuillette etc ) , ce que vous pechez , ce que vendent les pnj
--<br />
--<br />le prix Ã  la revente des objets
--<br />
--<br />copie des liens des objets, cabine d essayage des objets
--<br />
--<br />est compatible avec bookofcraft, equipcompare etc
--<br />
--<br />mÃ©morisation des quetes et comment obtenir cette quete, avec possibilitÃ© de savoir Ã  quelle quete appartient tel objet
--<br />
--<br />ps : /dbcs pour le lancer ou l icone marquÃ© DB autour de la minicarte
--<br />
--<br />ps2 : si vous installez cms ( chatmondialserveur ) vous pouvez le couper avec les commandes /cmson et /cmsoff
--<br />
--<br />installation :
--<br />
--<br />copier les rÃ©pertoires du zip ds le rep interface/addons de wow
--<br />
--<br />copier le fichier contenu ds le zip data ds le rep : 
--<br />WTF\Account\nomducompte\SavedVariables
--<br />( si vous installez 1 fichier data, cliquez sur le bouton MAJ objets ds l onglet objets ensuite, pour etre sur que vous avez bien le maximum d objets ds votre base
--<br />
--<br />si vous voulez partager vos donnÃ©es et celles des autres joueurs, la premiÃ¨re fois que vous accÃ©dez a l un de vos personnages, tapez la commande /cmson pour vous connecter au canal cms ( chatmondialserveur )
--<br />
--<br />utilisation des objets :
--<br />
--<br />control   click gauche sur l icone d 1 objet permet d en voir le skin
--<br />shift   click gauche sur l icone d 1 objet permet d obtenir le lien de cet objet
--<br />
--<br />sur l onglet liste des objets, si vous ne pouvez pas voir les infos d 1 objet, essayez avec alt click gauche sur l icone de l'objet, puis dÃ©placez la souris hors de l icone, puis revenez dessus, vous devriez pouvoir lire les infos de l'objet
--<br />si vous ne pouvez pas voir les infos d 1 objet, il y a 3 raisons possibles :
--<br />1 : l'objet n'a encore jamais apparu sur le serveur
--<br />2 : l'objet n'est pas disponible sur le serveur depuis le dernier reboot : il faut attendre que quelqun ayant l objet se connecte ou consulte une quete parlant de cet objet
--<br />3 : la quete possÃ¨dant l'objet n'a pas encore Ã©tÃ© consultÃ©e
--<br />
--<br />dans ces 3 cas, si vous essayez d utiliser la commande alt click gauche sur l icone de cet objet, wow vous dÃ©co immÃ©diatement, et impossible de le savoir Ã  l'avance, Ã  vos risques et pÃ©rils, mais Ã  part la dÃ©co, il n'arrive rien.
--}}}

--	C:\Users\<UserName>\AppData\Local\VirtualStore\Program Files\World of Warcraft\WTF\Account\<Account NAME>\SavedVariables
--	rep des données : \WTF\Account\nomdetoncompte\SavedVariables
--	http://ui.worldofwar.net/ui.php?id=2584
--	http://www.curse-gaming.com/fr/wow/addons-3824-1-dbcs.html
--	http://wow-fr.curse-gaming.com/downloads/details/2783/dbcs/

	-- erreur dbcorps 4 441 en version 17 attemp a nil value machin


	-- des ressx et ressy manquantes, dont défilé deuillevent
	-- ne rien envoyer sur cms ou enregistrer étant ivre
	-- bug de loc si le nom du pnj/conteneur début/finisseur de quete est le meme ds plusieurs zones
	-- traiter les actions requiert quelque chose pour faire l action
	-- trouver 1 moyen pour les ouvertures de ressources/quetes sans mot-clef du genre minage/coffre/ceuillette
	-- gérer les erreurs et les afficher sur le canal cms
	-- améliorer les time out des canaux de cms
	-- supprimer les corps de classe normal <= 60 avec 1 nom sans espaces des goulets bassin alterac
	-- ( fait ) ajouter "vol à la tire" capacité de voleur qui ouvre 1 containeur/mob
	-- ajouter /cms LIST WHO
	-- afficher le prix de revente ds les fenetre de détail des objets : setitemref et sethyperlink
	-- effacer les enreg créés par le bug de désenchantement
	-- en 1.00.03 : bug rare 37 en cliquant sur 1 objet ds le chat, objet pas encore créé ds dbcs ?
	-- mémoriser toutes les sous zones, entre autres pour les x y des instances
	--améliorer la gestion des envoi des drops des corps si on est plusieurs avec DBCS ds le groupe/raid ( car 2 personnes qui lisent en meme temps le corp, la réception des données par le lead de cms n'est pas assez bien temporisée
	-- bug ds l ouverture d 1 corp en solo quand l inventaire est plein ?

--	SendAddonMessage( "prefix", "message" , "WHISPER/PARTY/RAID/GUILD/OFFICER/BATTLEGROUND" )	prefix+message = 254 octets max
--	event CHAT_MSG_ADDON	arg1 = prefix	arg2 = message	arg3 = "PARTY/RAID/GUILD/BATTLEGROUND"	arg4 = envoyeur
--	UnitPlayerOrPetInParty()
--	UnitPlayerOrPetInRaid()

--	http://wow-fr.curse-gaming.com/downloads/addons/interface-enhancements/dbcs/
--	http://www.curse.fr/downloads/details/2783/
--	http://wow.freehackers.org/
--	/cms 0001 DBCS 37 est dispo sur http://wow.freehackers.org/
--	DBCS 37 est dispo sur http://wow.freehackers.org/
--http://wowui.incgamers.com/?p=mod&m=4991
--http://wowui.incgamers.com/?p=mod&m=4992
--http://wowui.incgamers.com/?p=mod&m=7061

--	joaillier 380 disponible, 39/39 gemmes épiques, 37/40 gemmes rares, 28/32 gemmes inhabituelles, 9/14 métagemmes

--	( si vous avez un bon ordi, et aimez faire des recherches sur mobs/objets/quetes/mines/craft/reput/etc, installez l'addon DBCS et sa base DBCS data ( sur wowui ) : 24811 PNJ/mobs/boss ( avec leurs skins/locs/loots ), 36750 objets, 9190 quetes)
--	( si vous avez un bon ordi, et aimez faire des recherches sur mobs/objets/quetes/mines/craft/reput/etc, installez l'addon DBCS et sa base DBCS data ( sur wowui ) : 10000 mobs, 39994 objets, 8505 quetes, 3500 artisanats, etc, tout pour wotlk )
--	( si vous pensez ne jamais les voir ou voulez matter toutes les animations des mobs/boss de type créature, l'addon DBCS_Model_Viewer ( sur wowui ) est dispo, ( autonome et léger )  dont CCG http://wowui.incgamers.com/?p=mod&m=6158 )
--	( pour les curieux, si vous voulez matter toutes les animations des mobs/boss de type créature, mon addon DBCS_Model_Viewer ( sur wowui ) est dispo, ( autonome et léger )  avec les nouveaux mobs/boss de ulduar )
--	( si vous voulez matter tous les mobs/boss/pnj du jeu que vous avez déjà croisé, voir toutes leurs animations, les déshabiller ( ... ), l'addon DBCS_model_viewer ( sur wowui ) est fait pour vous, autonome et léger )

--	(vous venez de tuer le roi liche et voulez revoir la cinématique de fin du jeu ? ouvrez le fichier wow/Data/frFR/Interface/Cinematics/WOW_FotLK_1024.avi ( SPOILER dedans )

--	( vous recherchez quels sont les objets qui ont le + en bonus équipé résilience ? mon addon DBCS peut trier 22300 objets par bonus équipé, tonne de choix ) sur http://wow.freehackers.org/
--	( vous recherchez quels sont les objets qui ont le + en bonus équipé puissance d'attaque ? mon addon DBCS peut trier 21959 objets par bonus équipé, tonne de choix )
--	( vous voulez connaitre les salaires moyens des mobs ? ( en comptant le prix des objets vendus au pnj ), DBCS sait le calculer )
--	( vous ne savez pas ou obtenir les objets de votre set de classe ? DBCS peut vous le dire parmis 327 autres )
--	( vous recherchez quels sont les composants d un craft parmis + de 2400 ?, DBCS les connait , http://wowui.incgamers.com/?p=mod&m=4991)
--	( vous cherchez d ou provient un objet ou pour la confection de quels objets il peut bien servir ? mon addon DBCS peut vous le dire avec un simple click sur le lien )

--	( vous recherchez quelles sont les quetes ( et ou les trouver ) qui vous donnent les objets qui correspondent le + à votre personnage ? DBCS permet de les trouver )

--	( vous voulez lire le canal commerce sans etre dans une capitale ? ( ou n importe quel autre canal de région ) suffit qu un utilisateur de DBCS y soit )
--	( vous voulez LIRE le canal commerce (pas y écrire) sans etre dans une capitale ? ( ou n importe quel autre canal de région ) suffit qu'un utilisateur de ChatMondialServeur y soit (addon sur wowui) )

--	( mon addon, DBCS ( v37 ) ( que wow vf ) est sur http://wow.freehackers.org/, 5462 mobs+drops, 21948 objets, 2764 crafts, 326 ensembles de set, 2249 liste d'ingrédients, 5165 quetes avec locs, affiche ressources sur map/minimap, etc )
--	( mon addon, DBCS ( v33 ) ( que wow vf ) est sur curse, 5990 mobs/loots, 19328 objets, 2434 crafts/composants, 290 ensembles de set, 346 liens d'ingrédients d'enchant, 4911 quetes avec locs, affiche ressources sur région/minimap, et etc )

--	( pour les intéressés, mon addon DBCS v29 est sur curse ( que client fr ) , cest du genre wowcartographe en addon et se complète grace aux connectés en temps réel , remplace gatherer et +, 8000+ mob, 17000+ objet, 3000+ quete, 1000+ crafts )
--	( pour les intéressés, mon addon DBCS v28 est sur curse ( que client francais ) , cest du genre thotbot et wowcartographe mais en addon et se complète grace aux connectés en temps réel , remplace gatherer et +, suivi et histo de quetes etc)
--	( si vous installez les fichiers de données : 6000+ mobs, 16200+ objets, 3400+ quetes, 212 ensembles de set, 200+ enchantements, 1000+ composants de craft, 400+ quetes BC )

--	( pour les intéressés, DBCS v26 est dispo sur le site curse ( que client francais ) , cest en quelque sorte pareil que wowdbu ou thotbot ou wowcartographe mais en addon et se complète grace aux connectés en temps réel , remplace gatherer et +)
--	( si vous installez les fichiers de données : 5000+ mobs, 12800+ objets, 2000+ quetes, 164 ensembles de set, 200+ enchantements )
--	( si vous installez les fichiers de données : 5000+ mobs, 13200+ objets, 2700+ quetes, 164 ensembles de set, 200+ enchantements )
--	( prévenez moi si des problèmes avec )

--	DBCS
--	le site : http://wow.freehackers.org/ 
--	le site : http://wow.freehackers.org/EnvoiDBCS/
--	mémorisation et consultation d'objets, de mobs, d'objets/mob, de crafts avec composants, de quetes , suites et locs de quetes, locs des ressources ( mines/herbes/containeurs ) sur map/minimap, connaissance des betes, etc
--	chaque fois que vous ouvrez le corp d un mob, ou cliquez sur une ressource, etc, dbcs retient les objets trouvés, et les communique sur un canal masqué ( cms ) pour que tous les connectés profitent de vos découvertes
--	avec le canal masqué cms, vous partagez avec les autres connectés avec dbcs, tout ce que vous découvrez comme infos
--	avec le canal masqué cms, si quelqun est ds une région, vous pouvez lire les cc de cette région sans y etre, modif avec la commande /cms et /cms VISI pour afficher/masquer certains canaux
--	DBCS n'aime pas avoir d'autres utilisateurs de DBCS en ignore, cela perturbe son fonctionnement optimum

--	accès par l icone DB autour de la minimap ou par /dbcs
--	vous pouvez déplacer l icone DB en laissant cliké la sourie dessus et en déplacant le curseur

--	la v42 avec le zip data contient :
	-- 5632 mobs ( normaux/rare/elite/eliterare )
		-- dont 3473 normaux
		-- + 184 rares
		-- + 1885 elites
		-- + 90 rareelites
	-- 131 worldboss
	-- 22599 objets dont 22503 objets validés pour les tris 
	-- 346 ensembles de sets
	-- 2695 crafts avec composants
	-- 976 locs de gain de réputation
	-- 1845 conteneurs ( ressources mines/herbes/coffres et etc ) ( sans compter les locs multiples pour chaque ressource )
	-- 1373 PNJ marchands et leur loc 
	-- 576 locs d'event de quete
	-- 141 régions
	-- 5505 quetes avec suites et locs 
	-- 2151 liens de liste d'ingrédients de craft ( on y accède sur l'onglet objets par les critères : type = recette et sous-type = ingrédients

	-- lecture des canaux régionaux sans etre ds la région, si quelqun avec l addon y est ( dont canal commerce, etc )
	-- salaire moyen des mobs ( en comptant la valeur au pnj des objets )
	-- % de drop de chaque objet
	-- affichage des ressources ( mines/herbes/conteneurs ) sur la carte/minimap
	-- la liste des drops sur les boss des instances est copiée de atlas loot, le % est calculé par les découvertes de dbcs
	-- avec la combinaison : CTRL + ALT + click gauche sur un lien d objet, ou CTRL  + ALT + glisser la souri sur un objet ds vos sacs, dbcs recherchera si un mob ou quete contient/parlede cet objet et vous affichera la fenetre de dbcs
	-- quand vous glissez la sourie sur un objet de vos sacs, si dbcs connait son prix de revente, il l affiche, y compris le nb max d objet compilables
	-- en RAID, si votre responsable de butin n'a pas DBCS, les loots ne seront pas mémorisés, sauf si le responsable est ds votre groupe, alors dbcs retient les loots > bleu donnés à quelqun ( à modifier )
	-- en GROUPE, si celui qui ouvre un corp n'a pas DBCS, les loots ne seront pas mémorisés, sauf si vous ouvrez le corp aussi avant que les dés soient finies, les loots des dés sont mémorisés pour l instance/région
	-- chose à savoir pour comprendre la suite : un mob = un monstre ou une ressource à miner/ceuillir/ouvrir ou un objet craftable ou un objectif de quete
	--	après une nouvelle version de wow, certains ou la plupart des objets ne seront plus valides ( visualisables ) sur votre ordinateur ( fonctionnement normal de wow ), ALT + click gauche sur l icone pour forcer cette validation, vous pouvez etre déco si cet objet n'est pas valide sur votre serveur
	-- la fenetre DBCS apparait, elle contient 6 onglets : liste des monstres, liste des objets, objets sur un monstre, monstres ayant l'objet, liste des quetes, connaissance des betes
	--	l 'onglet 1 : liste des monstres
	--		-- en haut, plusieurs critères ou vous pouvez indiquer vos conditions de recherche, puis cliquez sur le bouton recherche pour visualiser le résultat
	--		-- au dessus de la liste, vous pouvez changer le tri de la liste, et aussi l ordre du tri
	--		-- une liste de 10 mobs apparait, vous avez une barre de scroll pour descendre/monter ds la liste
	--		-- pour chaque mob, vous avez plusieurs informations ( dont le salaire moyen de ce mob en comptant la valeur au pnj des objets )
	--		-- avec CTRL + click gauche sur le nom de la région ou trouver le mob, dbcs fait apparaitre la carte régionale avec les locs du mob par des icones ?
	--		-- quand vous glissez la souri sur un mob, et que la ligne devient jaune, vous pouvez simple cliquer dessus, dbcs vous positionnera sur le 3 eme onglet comportant la liste des objets du mob
	--	l'onglet 2 : liste des objets
	--		-- en haut, plusieurs critères ou vous pouvez indiquer vos conditions de recherche, puis cliquez sur le bouton recherche pour visualiser le résultat
	--		-- au dessus de la liste, vous pouvez changer le tri de la liste, et aussi l ordre du tri
	--		-- une liste de 10 objets apparait, vous avez une barre de scroll pour descendre/monter ds la liste
	--		-- pour chaque objet, vous avez plusieurs informations
	--		-- quand vous glissez la souri sur un objet, et que la ligne devient jaune, vous pouvez simple cliquer dessus, dbcs vous positionnera sur le 4 eme onglet comportant la liste des mobs pouvant dropper cet objet, mais aussi, il listera les quetes parlant de cet objet ds le 5 eme onglet, si aucun mob ne drop cet objet, dbcs vous positionnera directement sur le 5 eme onglet si il a trouvé au moins une quete
	--		--	si vous appuyez sur la touche CTRL avant, cette recherche ne se fera que ds les quetes
	--		-- quand vous glissez la souri sur l icone de celui-ci, dbcs vous montre les stats de l'objet ( si l'objet est valide sur votre ordinateur/serveur à ce moment )
	--			-- je vous conseilles une fois par jour/semaine/mois de cliquer sur le bouton MAJ, dbcs testera tous les objets pouvant exister ds wow, et en ajoutera ds dbcs si il en découvre de nouveaux, c'est une routine en tache de fond, qui durera environ 15 minutes sans trop vous ralentir
	--		-- avec CTRL + click gauche sur l icone de l objet, vous accèdez à la cabine d'essayage
	--		-- avec SHIFT + click gauche sur l icone de l'objet, dbcs ajoutera ce lien ds un message chat que vous avez comencé
	--		-- si l'objet n'est pas valide sur votre ordinateur/serveur, vous pouvez essayer de forcer sa validation pour votre ordinateur avec ALT + click gauche sur l'icone, si l'objet n'est quand meme pas valide sur votre serveur à ce moment, wow vous déconnectera, vous pourrez vous reconnecter après
	--	l'onglet 3 : liste des objets sur un mob
	--		-- en haut, affichage des infos sur le mob choisi
	--		-- une liste de 10 objets apparait, vous avez une barre de scroll pour descendre/monter ds la liste
	--		-- pour chaque objet, vous avez plusieurs informations ( dont le % de drop )
	--		-- quand vous glissez la souri sur un objet, et que la ligne devient jaune, vous pouvez simple cliquer dessus, dbcs vous positionnera sur le 4 eme onglet comportant la liste des mobs pouvant dropper cet objet, mais aussi, il listera les quetes parlant de cet objet ds le 5 eme onglet, si aucun mob ne drop cet objet, dbcs vous positionnera directement sur le 5 eme onglet si il a trouvé au moins une quete
	--		-- quand vous glissez la souri sur l icone de celui-ci, dbcs vous montre les stats de l'objet ( si l'objet est valide sur votre ordinateur/serveur à ce moment )
	--		-- avec CTRL + click gauche sur l icone de l objet, vous accèdez à la cabine d'essayage
	--		-- avec SHIFT + click gauche sur l icone de l'objet, dbcs ajoutera ce lien ds un message chat que vous avez comencé
	--		-- si l'objet n'est pas valide sur votre ordinateur/serveur, vous pouvez essayer de forcer sa validation pour votre ordinateur avec ALT + click gauche sur l'icone, si l'objet n'est quand meme pas valide sur votre serveur à ce moment, wow vous déconnectera, vous pourrez vous reconnecter après
	--	l'onglet 4 : liste des mobs ayant cet objet
	--		-- en haut, affichage de l'icone de l objet
	--		-- une liste de 10 mobs apparait, vous avez une barre de scroll pour descendre/monter ds la liste
	--		-- pour chaque mob, vous avez plusieurs informations ( dont le % de drop )
	--		-- avec CTRL + click gauche sur le nom de la région ou trouver le mob, dbcs fait apparaitre la carte régionale avec les locs du mob par des icones ?
	--		-- quand vous glissez la souri sur un mob, et que la ligne devient jaune, vous pouvez simple cliquer dessus, dbcs vous positionnera sur le 3 eme onglet comportant la liste des objets du mob
	--	l'onglet 5 : liste des quetes
	--		-- par défaut, seules les quetes en cours sont affichées
	--		-- en haut, plusieurs critères ou vous pouvez indiquer vos conditions de recherche, puis cliquez sur le bouton recherche pour visualiser le résultat
	--		-- au dessus de la liste, vous pouvez changer le tri de la liste, et aussi l ordre du tri
	--		-- une liste de 10 quetes apparait, vous avez une barre de scroll pour descendre/monter ds la liste
	--		-- pour chaque quete, vous avez plusieurs informations
	--		-- quand vous glissez la souri sur une quete, et que la ligne devient jaune, vous pouvez SHIFT + click gauche dessus, pour mettre cette quete en suivi de quete
	--		-- quand on click sur une quete ( occurrence toute jaune ) ds la recherche quete, et si un dialogue de chat est commence, ajoute au chat le nom de la quete avec son nivo recquis
	--		-- quand vous glissez la souri sur le nom d une quete, celui ci est découpé en 4 parties de gauche à droite : en texte : objectifs, description, progression et fin de texte dont le salaire si vous etes niv 70 ou non
	--		-- pour certaines quetes, des petits icones objets apparaissent, cliquer sur un d eux vous positionnera sur l onglet 4 avec la liste des mobs pouvant le dropper, ce qui vous permet de visualiser les locs ou les trouver
	--		-- pour certaines quetes, des petits icones ? à droite des objets, cliquer sur un d eux vous positionnera sur l'onglet 1 avec la liste des mobs/objectifdequete ayant ce nom, ce qui vous permet de visualiser les locs ou les trouver
	--		-- pour chaque quete, vous pouvez lire le nom du pnj qui donne la quete, avec CTRL + click gauche sur le nom du pnj, dbcs vous affiche la carte régionale avec la loc
	--		-- pour chaque quete, vous pouvez lire le nom du pnj qui fini la quete, avec CTRL + click gauche sur le nom du pnj, dbcs vous affiche la carte régionale avec la loc
	--		-- si vous cliquez simplement sur le pnj/quete début ou fin de quete, dbcs vous mettra en début de liste la quete précédente ou suivante de cette suite, si cest le cas
	--	l'onglet 6 : connaissance des betes
	--		-- liste toutes les betes du jeu, certaines sont adoptables par les chasseurs
	--		-- en haut, plusieurs critères ou vous pouvez indiquer vos conditions de recherche, puis cliquez sur le bouton recherche pour visualiser le résultat
	--		-- au dessus de la liste, vous pouvez changer le tri de la liste, et aussi l ordre du tri
	--		-- une liste de 10 betes apparait, vous avez une barre de scroll pour descendre/monter ds la liste
	--		-- pour chaque bete, vous avez plusieurs informations
	--		-- avec CTRL + click gauche sur le nom de la région ou trouver la bete, dbcs fait apparaitre la carte régionale avec les locs de la bete par des icones ?
	

--	dbquetes 409 bad argument strfind string expected got nil
--	si région = "000" = spécial, chercher si ce mob existe diff de "000", si que un seul, vérifier les infos, si bon, prendre cette région
--	si on choisi un tri objet non spécial, le tri spécial affiché ds la combo n'est pas changé, meme si changé ds le code

--	SendAddonMessage( "prefix", "message" , "PARTY/RAID/GUILD/BATTLEGROUND" )	prefix+message = 254 octets max
--	event CHAT_MSG_ADDON	arg1 = prefix	arg2 = message	arg3 = "PARTY/RAID/GUILD/BATTLEGROUND"	arg4 = envoyeur
--	SendAddonMessage("prefix", "message" [,"type"] [,"target"]) 
--	WHISPER

-- en développement :
	-- pouvoir lister sur un canal, la liste des drops d'un mob avec les %
	-- affichage des membres de la guilde sur toutes les maps, si ils ont l'addon, ainsi que la dernière loc de ceux de cms
	-- possibilité d'accèder aux cartes de la minimap pour y voir les locs de toutes choses ( visuel à la wowcarto )
	-- retenir les objets appris par l'entraineur de profession
	-- afficher les grottes/instances sur la carte régionale, avec loc des joueurs
	-- pour les dates, utiliser la date serveur et non pas la date locale du client
	-- afficher les locs de minage/herbe sur la minimap en fonction de la rotation de la carte : GetPlayerBearing
--itemName, itemLink, itemRarity, itemLevel, itemMinLevel, itemType, itemSubType, itemStackCount, itemEquipLoc, itemTexture, itemSellPrice = GetItemInfo(itemID or "itemString" or "itemName" or "itemLink") 
--itemSellPrice

		-- afficher la provenance d'un objet bleu et + ds la tooltip	( fait )
		-- mémo la date quand on a terminé une quete	( fait )
		-- présentation des objets aléatoires avec une valeur choisie automatiquement en fonction de votre classe ( terminé version 1.00.43 , sauf pour la notion de classe )
		-- l'onglet "connaissance des betes" n'enregistre plus les détails sur les mobs, depuis qu'ils ont inversé la bulle d'aide, à revoir + tard ( intégré et recodé ds la version 68, avec les infos des pnj )
		
--désenchantement : prendre en compte le ilvl de l'objet et non pas son niveau mettable, à cause des objets de quete sans niveau mettable

--20130522	5.3

--DBCS 1.00.99 du 20130521
	--maj pour la 5.3
	--ajout des nouveaux scénario/BG/arène de la 5.3
	--préparation pour les id d'objet > 100 000


--DBCS 1.00.98 du 20130322
	--maj de l'addon DBCS_model_viewer avec les nouveaux skin de la 5.2
	--rectification des liens vers la carte des mini donjons de l'ile aux tonnerres

--DBCS 1.00.97 du 20130308
	--maj des .toc pour la 5.2 ( 50200 )
	--bug résolu : worldmapplayer

--20130306	5.2

--DBCS 1.00.96 du 20130305
	--ajout des nouvelles régions de la 5.2
	--ajout des locs des mascottes des combats de mascottes sauvages
	--ajout de l'addon DBobjets03 pour gérer les objets de 100000 à 150000. le codage reste à écrire

--DBCS 1.00.95 du 20130204
	--ajout des nouveaux scénarios
	--ajout d'autres scénarios
	--petits changements pour réduire les crashs
	--changement de la reconnaissance de la région ou l'on se trouve
	--résolution de quelques défauts pour les envois de quete sur le canal cms

--20121128	5.1

--DBCS 1.00.94 du 20121127
	--ajout de la 5.1
	--ajout de 4 scénario pour la 5.1
	--ajout du scénario temple noir pour les démoniste
	--diminution de l'utilisation des ressources machines en mode combat ( encore à faire à plusieurs endroits car par moment le client crash sans savoir exactement d'ou ca vient )
	--correction du bug sur les links battlepet ds l'addon chatmondialserveur
	--correction du bug de l'hdv sur GetItemInfo
	--ajout des locs d'archéologie de gatherer ( GathX )
	--correction du bug de la carte régionale non affichée en mode combat ( maj de l'addon dbcs_region )
	--correction du bug de l'addon DBCS_model_viewer en mode combat quand on change de cible ( bug aléatoire )
	--correction bug rare aléatoire sur fenetre ramassage butin quand objet de monnaie

--DBCS 1.00.93 du 20121009
	--correction de certains bugs ( pas tous ) liés au mode combat qui limite certaines actions de programmations
	--correction de bugs sur les quetes
	--correction de bugs sur la lecture des bulles d'aides des mascottes
	--correction de bugs sur l'hdv
	--correction de la lecture des objets contenus ds un objet container ( coffre ds l'inventaire )
	--correction de bugs sur les links pour l'addon ChatMondialServeur
	--ajout des nouveaux modèles de creatures ( toutes les créatures colorées ne sont pas disponibles, car les derniers patchs de wow ne sont pas intégrés ds les bases de wow )

--DBCS 1.00.92 du 20120925
	--correction de certains bugs liés aux objets ( tris )
	--ajout de la reconnaissance de la nouvelle limite d'xp au niv 90 pour les quetes
	--ajout/maj de certains ID pour reconnaitre l'instance ou l'on est

--DBCS 1.00.91 du 20120922
	--correction des bugs liés aux objets ( découpage de la base objets en plusieurs bases plus petites )
	--ajout des scénari "chute de theramore" ( alliance et horde )
	--ajout des nouveaux objets liés à MYST
	--ajout des recettes d'ingrédients liés à MYST
	--ajout des quetes de MYST
	--nombreux bugs résolus dus à la version 5.0 de wow
	--correction des bugs dus au GUID ( id des mobs/pnj > 65536 sur 5 digit au lieu de 4, erreur ds DBCS et non pas a cause de wow 5.0 )
	--maj des données au 20120922

--DBCS 1.00.90 du 20120830
	--ajout des sous tris "prixachat" et "prixenchere" aux tris : "rareté", "noms", "nivmin", "niveau" de l'onglet HDV
	--maj des .toc pour la 5.0001
	--compatibilité API UI avec MYST
	--ajout des cartes des nouvelles zones/donjon

--DBCS 1.00.89 du 20111201
	--maj des .toc pour la 4.3
	--initialisation correcte des critères de recherche de l'onglet PNJ
	--ajout des cartes des nouvelles zones/donjon
	--correction des onglets HDV et HDV_stats, changement d'api à la 4.3 et recherche sous alerte avec juste enchère
	--ajout de ces modèles et de ces coloris dans l'addon DBCS_model_viewer :
	--alexstrasza/ladyalexstrasa2.m2
	--alexstrasza/ladyalexstrasamortalskin1.blp
	--azshara/azshara.blp
	--azshara/azshara.m2
	--azshara/leg.blp
	--bearmountalt/bearmountalt_darkmoonfaire.m2
	--bearmountalt/bearmountdarkmoonfairearmor.blp
	--bearmountalt/bearmountdarkmoonfaireskinfur.blp
	--bearmountalt/darkmoonfairelogo128.blp
	--bearmountalt/darkmoonfairelogo128blurred.blp
	--chromaticdragonpet/chromaticdragonpet.blp
	--chromaticdragonpet/chromaticdragonpet.m2
	--chromaticdragonpet/chromaticdragonpetglow.blp
	--chromaticdragonpet/dragonchromatic_smoke.blp
	--corrupted_deathwing_missile/corrupted_deathwing_missile_creature.m2
	--corruptedtentacle/corruptedtentacle.m2
	--corruptedtentacle/deathwingbacktentacle.blp
	--corruptedtentacle/deathwingtentaclelavafx.blp
	--corruptedtentacle/lavaalphaup.blp
	--deathwing/deathwing_backplate_test01_creature.m2
	--deathwing/deathwing_backplate_test02_creature.m2
	--deathwing/deathwing_backplate_test03_creature.m2
	--deathwing/deathwingraid1.blp
	--deathwing/deathwingraid2.blp
	--deathwing/deathwingraid3.blp
	--deathwing/deathwingraidarm.blp
	--deathwing/deathwingraidwing.blp
	--deathwingcorrupted/deathwingcorrupted.m2
	--deathwingcorrupted/deathwingcorrupted01.blp
	--deathwingcorrupted/deathwingcorrupted01glow.blp
	--deathwingcorrupted/deathwingcorrupted02.blp
	--deathwingcorrupted/deathwingcorrupted02glow.blp
	--deathwingcorrupted/deathwingcorruptedarml.m2
	--deathwingcorrupted/deathwingcorruptedarmr.m2
	--deathwingcorrupted/deathwingcorruptedclaw02.blp
	--deathwingcorrupted/deathwingcorruptedclaw02glow.blp
	--deathwingcorrupted/deathwingcorruptedwing02.blp
	--deathwingcorrupted/deathwingcorruptedwing02glow.blp
	--deathwingcorrupted/deathwingcorruptedwingarml.m2
	--deathwingcorrupted/deathwingcorruptedwingarmr.m2
	--deathwingcorrupted/dw_fire01.blp
	--deathwingcorrupted/dw_lavablood_drips01.blp
	--deathwingcorrupted/dw_lavablood_splash01.blp
	--deathwingcorrupted/smalldeathwingcorrupted.m2
	--deathwingcorruptedclaw/deathwingcorruptedclaw.blp
	--deathwingcorruptedclaw/deathwingcorruptedclaw.m2
	--deathwingcorruptedclaw/deathwingcorruptedclawglow.blp
	--deathwingcorruptedclaw/deathwingcorruptedclawr.m2
	--deathwingcorruptedjaw/deathwingcorruptedjaw.m2
	--deathwingcorruptedtail/deathwingcorruptedtail.blp
	--deathwingcorruptedtail/deathwingcorruptedtail.m2
	--deathwingcorruptedtail/deathwingcorruptedtailglow.blp
	--deathwingcorruptedwing/deathwingcorruptedwing.blp
	--deathwingcorruptedwing/deathwingcorruptedwing.m2
	--deathwingcorruptedwing/deathwingcorruptedwingglow.blp
	--deathwingdungeon/deathwingdungeon.m2
	--deathwingdungeon/deathwingraid1_glow.blp
	--deathwingdungeon/deathwingraid2_glow.blp
	--deathwingdungeon/deathwingraid3_glow.blp
	--deathwingdungeon/deathwingraidarm_glow.blp
	--deathwingdungeon/deathwingraidneckplate.blp
	--deathwingdungeon/deathwingraidtailplate.blp
	--deathwingdungeon/deathwingraidwing_glow.blp
	--deathwingelemental/deathwingelemental.blp
	--deathwingelemental/deathwingelemental.m2
	--deathwingelemental/elementalfire.blp
	--deathwingelemental/lavablood_drips.blp
	--deathwingelemental/lavablood_glow.blp
	--deathwingelemental/lavablood_goops.blp
	--deathwingelemental/lavablood_spark.blp
	--deathwingelemental/lavablood_splats.blp
	--diablofetish/diablofetish.blp
	--diablofetish/diablofetish.m2
	--diablofetish/t_vfx_beam_down.blp
	--doomguardoutland/doomguardoutland_low.m2
	--dragonchromatic/dragonchromatic.m2
	--dragonchromatic/dragonchromatic_ribbons.blp
	--dragonchromatic/dragonchromatic_rim.blp
	--dragonchromaticmount/dragonchromatic_alpha.blp
	--dragonchromaticmount/dragonchromaticmount.m2
	--dragonchromaticmount/dragonchromaticmount_armor.blp
	--dragonprince/dragonprince.blp
	--dragonprince/dragonprince.m2
	--facelessgeneral/facelessgeneral1_black.blp
	--facelessgeneral/facelessgeneral2_black.blp
	--felguard/felguard_low.m2
	--felhippogryph/felhippogryph.m2
	--felhippogryph/felhippogryphmount.m2
	--felhippogryph/hippogryphfelskin01.blp
	--felhippogryph/hippogryphfelskin02.blp
	--golemharveststage2/harveststage2joint1.blp
	--greaterslime/greaterslimedeathwing.blp
	--greaterslime/greaterslimedeathwing.m2
	--greaterslime/greaterslimedeathwing_sorted.m2
	--greaterslime/greaterslimetraildeathwing.blp
	--greaterslime/t_vfx_borderslime.blp
	--illidan_past/illidan_past.blp
	--illidan_past/illidan_past.m2
	--lanternpet/lunarnewyearlantern_alliance_hanging_pet.m2
	--lanternpet/lunarnewyearlantern_horde_hanging_pet.m2
	--monkey/monkey_fez.m2
	--murozond/murozond.m2
	--murozond/murozond1.blp
	--murozond/murozond2.blp
	--murozond/murozond3.blp
	--nozdormu/nozdormu2.m2
	--nozdormu/nozdormumortal.blp
	--nozdormudragon/nozdormu1.blp
	--nozdormudragon/nozdormu2.blp
	--nozdormudragon/nozdormu3.blp
	--nozdormudragon/nozdormudragon.m2
	--perotharn/perotharn.m2
	--perotharn/satyrskin_perotharn.blp
	--reddrakemount/reddrakemount.m2
	--reddrakemount/reddrakemountorange1.blp
	--reddrakemount/reddrakemountorange2.blp
	--reddrakemount/reddrakemountorange3.blp
	--reddrakemount/reddrakemountpurple1.blp
	--reddrakemount/reddrakemountpurple2.blp
	--reddrakemount/reddrakemountpurple3.blp
	--reddrakemount/reddrakemountred1.blp
	--reddrakemount/reddrakemountred2.blp
	--reddrakemount/reddrakemountred3.blp
	--sandboxtiger/sandbox_tiger_01.blp
	--sandboxtiger/sandbox_tiger_01.m2
	--sandboxtiger/sandbox_tiger_02.blp
	--sandboxtiger/sandbox_tiger_03.blp
	--sandboxtiger/sandbox_tiger_04.blp
	--silithidscarab/scarab_pet.m2
	--spectralgryphon/gryphon_skin01lightblue.blp
	--spectralgryphon/gryphon_skin02lightblue.blp
	--spectralgryphon/spectralgryphon.m2
	--spectralwyvern/spectralwyvern.m2
	--spectralwyvern/spectralwyvern01.blp
	--spectralwyvern/spectralwyvern02.blp
	--twilightascendantice/smoke_ice.blp
	--twilightascendantice/twilightascendantice.m2
	--twilightascendantice/twilightascendantwaterice.blp
	--twilightascendantice/twilightascendantwaterice2.blp
	--tyraelmount/tyraelmount.m2
	--tyraelmount/tyraelmount_hair.blp
	--tyraelmount/tyraelmount1.blp
	--tyraelmount/tyraelmount2.blp
	--tyrande/runestrip_turquoise.blp
	--tyrande/runestriptyrande_alpha2.blp
	--tyrande/tyrande.m2
	--tyrande/tyrande1.blp
	--tyrande/tyrande2.blp
	--ultraxion/ultraxion.m2
	--ultraxion/ultraxionskin1.blp
	--ultraxion/ultraxionskin2.blp
	--ultraxion/ultraxionskin3.blp
	--ultraxion/ultraxionskinalpha1.blp
	--ultraxion/ultraxionskinalpha2.blp
	--ultraxion/ultraxionskinalpha3.blp
	--whackagnoll/eb_whack_baby.blp
	--whackagnoll/eb_whack_barrel.blp
	--whackagnoll/eb_whack_basic.blp
	--whackagnoll/eb_whack_elite.blp
	--whackagnoll/whack_a_gnoll.m2
	--whackagnoll/whack_a_gnoll_baby.m2
	--whackagnoll/whack_a_gnoll_elite.m2
	--yeti_greench/yeti_greench.m2
	--yeti_greench/yeti_greenchskin1.blp
	--yeti_greench/yeti_greenchskin2.blp
	--yoggsaron/yoggsarontentaclemace_lootable.m2
	--ysera/ysera2.m2
	--ysera/yseramortal1.blp
	--yseradragon/dragonysera1.blp
	--yseradragon/dragonysera2.blp
	--yseradragon/dragonysera3.blp
	--yseradragon/yseradragon.m2

--DBCS 1.00.88 du 20110712
	--ajouter les régions bas niveau de Gilnéas
	--positionnement de la région Mont rochenoire ds les steppes ardentes au lieu des gorges des vents brulants
	--correction bug dbcorps_screen ligne 302, wow bug parfois à l'envoi du nom de la zone où l'on est quand on connecte son perso
	--ajout du modèle alliancepvpmount/alliancepvpmount.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountblue1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountblue2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountblue3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountcopper1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountcopper2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountcopper3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountred1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountred2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountred3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountsilver1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountsilver2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle alliancepvpmount/alliancepvpmountsilver3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle cat/cat_hallowsend.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle cat/cat_hallowsend_hat.blp dans l'addon DBCS_model_viewer
	--ajout du modèle dragonkalecgos/dragonkalecgos_flighttier.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle dragonsinestra/dragontarecgosa.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle dragonsinestra/dragontarecgosa1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle dragonsinestra/dragontarecgosa2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle dragonsinestra/dragontarecgosa3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle dragonwhelp/dragonwhelptarecgosa.blp dans l'addon DBCS_model_viewer
	--ajout du modèle dragonwhelp/dragonwhelptarecgosa.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle drakemount/armoredtwilightdrake.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle drakemount/drakeskinscaled_01.blp dans l'addon DBCS_model_viewer
	--ajout du modèle drakemount/drakeskinscaled_02.blp dans l'addon DBCS_model_viewer
	--ajout du modèle drakemount/drakeskinscaled_03.blp dans l'addon DBCS_model_viewer
	--ajout du modèle drakemount/twilightdrakemount-armor1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fandralfirecat/fandralfirecatnoarmor.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle fandralfirescorpion/fandralfirescorpion.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fandralfirescorpion/fandralfirescorpion.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle fandralstaghelm/famdralstaghelm3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fandralstaghelm/fandralstaghelm.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fandralstaghelm/fandralstaghelm.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle fandralstaghelm/fandralstaghelm2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fandralstaghelm/fandralstaghelmglow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fireblock_shannox/creature_fireblock_shannox.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fireblock_shannox/creature_fireblock_shannox.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle fireblock_shannox/creature_fireblock_shannox_nolava.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fireblock_solid@fireblock_solid/creature_fireblock_solid.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle fireelemental_kar/fireelemental_kar.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle fireelemental_kar/fireelemental_kar_armor.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fireelemental_kar/fireelemental_kar_skin.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firehawk/firehawk_mount.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle fireravengodmount/fireravengodmount.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle fireravengodmount/fireravengodmountfiregreen2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fireravengodmount/fireravengodmountfirepurple2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fireravengodmount/fireravengodmountfirered2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fireravengodmount/fireravengodmountgreen1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fireravengodmount/fireravengodmountpurple1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle fireravengodmount/fireravengodmountred1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespider@firespider/firespider.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle firespider/firespider_green.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespider/firespider_orange.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespider/firespider_purple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespider/firespider_red.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespider/firespider_yellow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_armor_blue.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_armor_gold.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_armor_gray.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_armor_green.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_armor_red.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_green.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_orange.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_purple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_red.blp dans l'addon DBCS_model_viewer
	--ajout du modèle firespiderboss/firespiderboss_yellow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmount.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountarmorgreen.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountarmororange.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountarmorpurple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountarmorred.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountbannergreen.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountbannerorange.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountbannerpurple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountbannerred.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountbodygreen.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountbodyorange.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountbodypurple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordepvpmount/hordepvpmountbodyred.blp dans l'addon DBCS_model_viewer
	--ajout du modèle humanmaleburied/china_planthead.blp dans l'addon DBCS_model_viewer
	--ajout du modèle humanmaleburied/china_plantstalk.blp dans l'addon DBCS_model_viewer
	--ajout du modèle humanmaleburied/humanmaleburied.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle liquidmagmagiant/lavaalpha.blp dans l'addon DBCS_model_viewer
	--ajout du modèle liquidmagmagiant/liquidmagmagiant.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle liquidmagmagiant/liquidmagmagiant1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle liquidmagmagiant/liquidmagmagiant2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle magmagiant/lordanthricyst_magma.blp dans l'addon DBCS_model_viewer
	--ajout du modèle magmagiant/magmagiant_legleft.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle magmagiant/magmagiant_legright.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle malorne/malorne.blp dans l'addon DBCS_model_viewer
	--ajout du modèle malorne/malorne.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle molten_meteor/molten_meteor.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle moltengiant/moltengiant.blp dans l'addon DBCS_model_viewer
	--ajout du modèle moltengiant/moltengiant.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle moltengiant/moltengiant_glow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle moltengiant/moltengiantgreen.blp dans l'addon DBCS_model_viewer
	--ajout du modèle moltengiant/moltengiantgreen_glow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle moltengiant/moltengiantred.blp dans l'addon DBCS_model_viewer
	--ajout du modèle moltengiant/moltengiantred_glow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle moltengiant/moltengiantyellow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle moltengiant/moltengiantyellow_glow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle murloc/diablobabymurloc.blp dans l'addon DBCS_model_viewer
	--ajout du modèle murloc/diablobabymurloc.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle murloc/diablobabymurloc_glow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle nozdormu/nozdormu.blp dans l'addon DBCS_model_viewer
	--ajout du modèle nozdormu/nozdormu.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle nozdormu/nozshoulder.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/overfiend_scroll_blue.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/overfiend_scroll_green.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/overfiend_scroll_orange.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/overfiend_scroll_purple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/overfiend_wings_blue.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/overfiend_wings_glow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/overfiend_wings_green.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/overfiend_wings_orange.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/overfiend_wings_purple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend/wingalpha.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend_blue.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend_green.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend_orange.blp dans l'addon DBCS_model_viewer
	--ajout du modèle overfiend_purple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle owlghost_green/owlghost_green.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle owlghost_green/owlspirit_green.blp dans l'addon DBCS_model_viewer
	--ajout du modèle owlghost_green/owlspirit_smoke.blp dans l'addon DBCS_model_viewer
	--ajout du modèle owlghost_green/plasmapartibaseglow3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle ragnaros2/ragnaros2_skin01_b.blp dans l'addon DBCS_model_viewer
	--ajout du modèle ragnaros2/ragnaros2_skin01_c.blp dans l'addon DBCS_model_viewer
	--ajout du modèle scaleddrakemount/drakeskinscaled_04.blp dans l'addon DBCS_model_viewer
	--ajout du modèle scaleddrakemount/scaleddrakemount.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle shaman_thrall/shaman_thrall3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wingedlionpet/wingedlionpet.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle wingedlionpet/wingedlionpet01.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wingedlionpet/wingedlionpet01_glow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wingedlionpet/wingedlionpet02.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wingedlionpet/wingedlionpet02_glow.blp dans l'addon DBCS_model_viewer

--DBCS 1.00.87 du 20110627
	--correction bug de la lecture du journal de combat pour repérer les sorts des mobs ( pour le patch 4.2 )
	--addon detail : Requiert Minage ou Herboristerie
	--modif bug 997 et etc dans HDV
	--correction du bug de la recherche de PNJ creature commencant par la lettre g à cause de la monture lion de guilde qui possède 4 parties au lieu de 3 comme toutes les autres créatures

--DBCS 1.00.86 du 20110504
	--ajout du site http://wow.curse.com/downloads/wow-addons/details/dbcs.aspx pour les nouvelles version de DBCS
	--maj des .toc en 4.1
	--modif bug 819 puis 830 ds HDV
	--ajout de la nouvelle version de zul gurub et terres de feu ( pour la 4.2 )

--DBCS 1.00.85 du 20110422
	--compatible wow 4.1, il suffira de cocher addon périmés
	--l'addon DBCS_model_viewer est complètement modifié, il permet maintenant de voir tous les coloris de tous les skins
	--correction des liens vers l'addon DBCS_model_viewer nouvelle version
	--correction de bug de modification de nom d'objet temporaire
	--correction des bugs sur l'objet choisi ds DBCS_HDV, la bulle d'aide manquante et linkage en chat
	--petite modif ds l'addon DBCS_region pour mieux prendre en compte le niveau du plan de l'instance ou l'on est ( avec une temporisation de 5 secondes sinon les instances sans plans font ramer )
	--l'addon chatmondialserveur affiche correctement ( ou presque ) les bulles d'aides des links d'instances de raid ds les chats
	--ajout du modèle alakir/alakir.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle alliancebrasscannon/alliancebrasscannon_flat.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle babymoonkin/babymoonkinne.blp dans l'addon DBCS_model_viewer
	--ajout du modèle babymoonkin/babymoonkinta.blp dans l'addon DBCS_model_viewer
	--ajout du modèle babyragnoros/babyragnaros.blp dans l'addon DBCS_model_viewer
	--ajout du modèle babyragnoros/babyragnaroshammer.blp dans l'addon DBCS_model_viewer
	--ajout du modèle bear/polarbearcubskinbrown.blp dans l'addon DBCS_model_viewer
	--ajout du modèle boundairelemental/unboundairelementallord.blp dans l'addon DBCS_model_viewer
	--ajout du modèle boundairelemental/unboundairelementallord.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle cenarius/cenariusleaves.blp dans l'addon DBCS_model_viewer
	--ajout du modèle chimerabeast/chimerabeastarm.blp dans l'addon DBCS_model_viewer
	--ajout du modèle chogall/chogallbottom.blp dans l'addon DBCS_model_viewer
	--ajout du modèle chogall/chogalltop.blp dans l'addon DBCS_model_viewer
	--ajout du modèle chogall_corrupt/chogall_corrupt.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle chogall_corrupt/chogallbottomcorrupt.blp dans l'addon DBCS_model_viewer
	--ajout du modèle chogall_corrupt/chogallextra.blp dans l'addon DBCS_model_viewer
	--ajout du modèle chogall_corrupt/chogallglow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle chogall_corrupt/chogalltopcorrupt.blp dans l'addon DBCS_model_viewer
	--ajout du modèle darkphoenix/darkphoenixmount_spectral.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle darkphoenixpet/darkphoenixpet.blp dans l'addon DBCS_model_viewer
	--ajout du modèle darkphoenixpet/darkphoenixpet.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle darkphoenixpet/darkphoenixpet_spectral.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle deepseacrab/deepseacrab_ghost.blp dans l'addon DBCS_model_viewer
	--ajout du modèle deepseacrab/deepseacrab_ghost.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle djinn/djinn_blizzard_vortex_3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle djinn/djinn_fire_vortex_3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle djinn/djinn_sand_vortex_3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle djinn/djinn_vortex_3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle djinn/djinn_water_vortex_3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle dragonwhelpcataclysm/dragonwhelpcataclysm.blp dans l'addon DBCS_model_viewer
	--ajout du modèle dragonwhelpelementium/dragonwhelpelementium.blp dans l'addon DBCS_model_viewer
	--ajout du modèle drakemount/drakeskinbrownspotted1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle drakemount/drakeskinbrownspotted2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle drakemount/drakeskinbrownspotted3.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidowlbear/druidowlbearblackskin.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidowlbear/druidowlbearblackskin2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidowlbear/druidowlbearredskin.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidowlbear/druidowlbearredskin2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidtreeform/bird.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidtreeform/druidtreeform.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle druidtreeform/druidtreeformgreen.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidtreeform/druidtreeformorange.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidtreeform/druidtreeformpurple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidtreeform/druidtreeformred.blp dans l'addon DBCS_model_viewer
	--ajout du modèle druidtreeform/t_vfx_hero_circle_dark_spheretga.blp dans l'addon DBCS_model_viewer
	--ajout du modèle epicdruidflighttroll/druidflighttroll1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle epicdruidflighttroll/druidflighttroll2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle epicdruidflighttroll/epicdruidflighttroll.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle epicdruidflighttroll/epicdruidflighttroll1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle epicdruidflighttroll/epicdruidflighttroll2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle epicdruidflightworgen/epicdruidflightworgen.blp dans l'addon DBCS_model_viewer
	--ajout du modèle epicdruidflightworgen/epicdruidflightworgen.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle fuelrobot/fuelrobotgreen.blp dans l'addon DBCS_model_viewer
	--ajout du modèle garrosh/garrosharmor.blp dans l'addon DBCS_model_viewer
	--ajout du modèle garrosh/garroshbody.blp dans l'addon DBCS_model_viewer
	--ajout du modèle goblin/goblinshredderpilot.blp dans l'addon DBCS_model_viewer
	--ajout du modèle greaterslime/greaterslime_sorted.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle greaterslime/greaterslime_unsorted.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle gryphon/gryphon_skeletal_mount_deathknight.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle guildcreatures/allianceliontest/alliancelionbannerborder.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordescorpionmount/hordescorpion.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordescorpionmount/hordescorpionarmor.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordescorpionmount/hordescorpionblack.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordescorpionmount/hordescorpionblue.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordescorpionmount/hordescorpiongreen.blp dans l'addon DBCS_model_viewer
	--ajout du modèle hordescorpionmount/hordescorpionred.blp dans l'addon DBCS_model_viewer
	--ajout du modèle kaethasl@kaethasl/kael'thas.blp dans l'addon DBCS_model_viewer
	--ajout du modèle lashersunflower/lasher_sunflower.blp dans l'addon DBCS_model_viewer
	--ajout du modèle lostisles_carnivorousplant/lostisles_carnivorousplant01_creature_redspitter.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle lostisles_carnivorousplant/lostisles_carnivorousplant02_creature_freezer.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle mage_flameorb/beam_smokewhite.blp dans l'addon DBCS_model_viewer
	--ajout du modèle mage_flameorb/border_02.blp dans l'addon DBCS_model_viewer
	--ajout du modèle mage_flameorb/mage_flameorb_01.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle mage_flameorb/mage_flameorb_02.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle mage_flameorb/t_vfx_fire_optmized_a.blp dans l'addon DBCS_model_viewer
	--ajout du modèle murloc/deathwingbabymurloc.blp dans l'addon DBCS_model_viewer
	--ajout du modèle murloc/murlocdeepsea.blp dans l'addon DBCS_model_viewer
	--ajout du modèle murloc/murlocdeepseabioluminescentgreen.blp dans l'addon DBCS_model_viewer
	--ajout du modèle pygmy/pygmysand_a_01.blp dans l'addon DBCS_model_viewer
	--ajout du modèle pygmy/pygmysand_a_02.blp dans l'addon DBCS_model_viewer
	--ajout du modèle pyrogryph@pyrogryph/pyrogryph.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle ridingdirewolfspectral/pvpridingdirewolfsaddlespectral.blp dans l'addon DBCS_model_viewer
	--ajout du modèle ridingdirewolfspectral/pvpridingdirewolfskinfrostwolfalphaspectral.blp dans l'addon DBCS_model_viewer
	--ajout du modèle ridingdirewolfspectral/pvpridingdirewolfskinfrostwolfspectral.blp dans l'addon DBCS_model_viewer
	--ajout du modèle ridingdirewolfspectral/ridingdirewolfspectral.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle ridingelekk/paladinelekkelite1.blp dans l'addon DBCS_model_viewer
	--ajout du modèle ridingelekk/paladinelekkelite2.blp dans l'addon DBCS_model_viewer
	--ajout du modèle ridinghorse/ridinghorseskinspectral.blp dans l'addon DBCS_model_viewer
	--ajout du modèle ridinghorse/ridinghorseskinspectralskin.blp dans l'addon DBCS_model_viewer
	--ajout du modèle ridinghorse/ridinghorsespectral.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle ridinghorse/saddlespectral.blp dans l'addon DBCS_model_viewer
	--ajout du modèle seahorse/b_seahorse_purple.blp dans l'addon DBCS_model_viewer
	--ajout du modèle seahorse/seahorse_baby.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle spells/djinn_spiral.blp dans l'addon DBCS_model_viewer
	--ajout du modèle spells/djinn_tornado_edges.blp dans l'addon DBCS_model_viewer
	--ajout du modèle spells/dragonbreath_sinestra.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle spells/fireforceshield_purple_sinestra.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle spells/goo_splash_statefire.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle spells/monsterlure_02.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle spells/monsterlure02.blp dans l'addon DBCS_model_viewer
	--ajout du modèle spells/skywall_djinn_frost_b4_fight.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle spells/skywall_djinn_healing_b4_fight.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle spells/skywall_djinn_tornado_b4_fight.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle therazane/therazane_body.blp dans l'addon DBCS_model_viewer
	--ajout du modèle therazane/therazane_crystals.blp dans l'addon DBCS_model_viewer
	--ajout du modèle therazane/therazane_eyeglow.blp dans l'addon DBCS_model_viewer
	--ajout du modèle therazane/therazane_glow_large.blp dans l'addon DBCS_model_viewer
	--ajout du modèle therazane/therazane_legs.blp dans l'addon DBCS_model_viewer
	--ajout du modèle therazane/therazane_sparkle.blp dans l'addon DBCS_model_viewer
	--ajout du modèle therazane/therazane_sparkle_blue.blp dans l'addon DBCS_model_viewer
	--ajout du modèle titanmale/titanmaleskin01_ghost.blp dans l'addon DBCS_model_viewer
	--ajout du modèle titanmale/titanmaleskin02_ghost.blp dans l'addon DBCS_model_viewer
	--ajout du modèle twilightascendantelementium/twilightascendantelementium.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle twilightascendantelementium/twillightascendantelementium01.blp dans l'addon DBCS_model_viewer
	--ajout du modèle twilightascendantelementium/twillightascendantelementium02.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/direwolfbodywhite.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/direwolfskin.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/direwolfskinbutterscotch.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/direwolfskindark.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/direwolfskinfire.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/direwolfskingrey.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/direwolfskinice.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/wolfskinlight.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/wolfskinmedium.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/worgskindark.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/worgskinmedium.blp dans l'addon DBCS_model_viewer
	--ajout du modèle wolf/worgskinred.blp dans l'addon DBCS_model_viewer
	--ajout du modèle yoggsaron/yoggsarontentaclethin_vine.m2 dans l'addon DBCS_model_viewer
	
	--sandworm/jlo_qirajhive_ground.blp@

--DBCS 1.00.84 du 20110218
	--corrige les bugs d'entrées ds les donjons d'ombrecroc et maraudon ( car j'affichais les plans de ces donjons avec les plans de la minimap )
	--li les données envoyées par gatherer ( GathX ) sur le canal guilde masqué pour ajouter les données des récoltes à DBCS
	--bug : les loots des mobs ( ressources comprises ex : locs de nouvelles mines ) des mois suivants la version de DBCS que vous possédez ne sont pas intégrés à la base fournie sur internet à chaque fois que vous vous connectez, ceci existe depuis la version 73
	--ajout du modèle hordescorpionmount/hordescorpion.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle dragonwhelpelementium/dragonwhelpelementium.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle mage_flameorb/mage_flameorb_01.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle mage_flameorb/mage_flameorb_02.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle pygmy/sandpygmy.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle ridinghorse/ridinghorsespectral.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle slime/slime_flame.m2 dans l'addon DBCS_model_viewer

--DBCS 1.00.83 du 20101228
	--modification du sous addon DBCS_mobs_model, sa recherche de modèle/skin de mob faisait parfois crasher wow parfois ( chez moi, souvent .... ) ( c'est un bug de wow, mais bon, c'est mieux si on peut l'éviter )
	--ajout d'une région cachée : Les bassins de Vapeur ( entre silithus et féralas )

--DBCS 1.00.82 du 20101222
	--améliorations et correction de multiples bugs
	--les zones cataclysme peuvent enregistrer les locs exactes des ressources à récolter et les afficher sur la minimap
	--affichage des sous zones des régions de cataclysme, sauf iles perdues, sur la minimap de DBCS
	--si DBCS ne connait pas certaines sous zones d'une région mais vous si, la minimap de DBCS les affichera
	--ajout de la reconnaissance de plusieurs monnaies de cataclysme
	--ajout du modèle babymoonkin/babymoonkin_ta.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle deepseacrab/deepseacrab_ghost.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle dragonwhelpcataclysm/dragonwhelpcataclysm.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle therazane/therazane.m2 dans l'addon DBCS_model_viewer

--DBCS 1.00.81 du 20101203
	--amélioration du repérage de l'instance où l'on est grace au nom de l'image de la carte de la région
	--addon DBCS_region : cette fois, la mémorisation des noms des instances se fait bien en priorité par le nom de l'instance indiqué ds le tooltip instancelock correspondant ( donc, pratiquement multi langue, sauf l'extraction du nom dans le tooltip ... )
	--ajout du modèle lashersunflower/lasher_sunflower.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle guildcreatures/alliancelionmount/alliancelionmount.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle warpstalker/warpstalker_low.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle moth/moth_low.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle hordescorpionmount/hordescorpionmount.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle babyragnoros/babyragnoros.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle babymoonkin/babymoonkin_ne.m2 dans l'addon DBCS_model_viewer
	--correction du défaut du nom des nouvelles zones de cataclysme dans les combo de l'onglet mobs
	--ajout de la reconnaissance du métier d'archéologie pour les détails sur les pnj
	--le niveau 85 est maintenant le niveau max pour les quetes
	--ajout de 6 herbes à récolter : cendrelle, vignétincelle, voile d'azshara, pétale de coeur, jasmin crépusculaire, fouettine
	--ajout de 120 ensembles de set ( 1033 au total )
	--affichage des nouveaux prix des objets PVE et PVP

--DBCS 1.00.80 du 20101124
	--amélioration du repérage du nom de l'instance où l'on est grace aux tooltip : instancelock ( qui existe pour toutes les instances et meme d'autres endroits )
	--affichage des rencontres de boss en instance sur la minimap de l'addon DBCS_region ( grace aux tooltip instancelock ) icone ?
	--dans la minimap de l'addon DBCS_region, affichage de la position du joueur au dessus des autres locs
	--amélioration de l'ajout des quetes enregistrées localement, qui ne sont pas forcément complètement connues par l'addon de données de quetes ( au niveau des pnj début et fin )
	--correction du calcul du nombre d'objets linkable dans l'addon DBOT_linkable ( à cause des objets qui ne sont plus linkable depuis la dernière tentative )
	--ajout du modèle murloc/deathwingbabymurloc.m2 dans l'addon DBCS_model_viewer
	--petite correction dans l'addon DBOT_linkable dans le cas impropable que l'addon tournai sans DBCS ( merci jf de m'avoir remonté le bug )
	--ajout de quelques sous zones pour la minimap de l'addon DBCS_region
	--ajout de la région Terrasse d'Ahn'Qiraj ( event pré cataclysme )
	--ajout du modèle de skin thunderaan_stave.m2 dans l'addon DBCS_model_viewer
	--ajout du modèle de skin garrosh.m2 dans l'addon DBCS_model_viewer
	--dans l'onglet liste des PNJ, si l'addon DBCS_model_viewer n'est pas en mémoire, on peut quand meme voir le tooltip en passant la souri sur le skin du mob
	--ajout des 3 nouveaux minerais pour cataclysme : élémentium, obsidium, pyrite
	--maj de l'addon ChatMondialServeur pour traduire les noms des régions grace à l'addon DBCS_region
	--mise en sommeil de l'addon DBOT_linkable, car pour le moment, il fait trop déconnecter
	--mise en sommeil de l'addon DBOT, car il est devenu pratiquement inutile
	--préparation d'une grosse nouveauté, tous les skin couleur de chaque type de modèle de créature sont visualisable à tout moment, fini les modèles de mob blanc ! mais ceci attendra une futur version de DBCS, merci blizzard qui a rendu cela possible

--DBCS 1.00.79 du 20101108
	--maj de l'addon dbcs_region pour certains noms de région
	--maj de l'addon dbcs_region pour les cartes d'instances
	--maj de l'addon DBOT pour mieux tester les objets
	--maj de l'addon DBOT_linkable pour mieux tester les objets linkables
	--ajout de multiples modèles de skin ds l'addon DBCS_model_viewer
	--		ne seront visibles qu'avec cataclysme
	--ajout alliancelionmount
	--ajout ammunae
	--ajout ancientseaturtle
	--ajout ancientseaturtlefire
	--ajout armadillo
	--ajout avengingangel
	--ajout boneguardrock
	--ajout bouldergiant
	--ajout boundairelemental
	--ajout boundearthelemental
	--ajout boundfireelemental
	--ajout boundwaterelemental
	--ajout bubble_creature
	--ajout bushchicken
	--ajout camel
	--ajout cataclysmcrocodile
	--ajout cenarius
	--ajout chimerabeast
	--ajout chogall
	--ajout crawlinghandpet
	--ajout darkphoenix
	--ajout deathwing
	--ajout deathwinghuman
	--ajout deepholmgolem
	--ajout deepseacrab
	--ajout deepseaturtle
	--ajout djinn
	--ajout dragonatramedes
	--ajout dragondeepholm
	--ajout dragonman
	--ajout dragonmanhulk
	--ajout dragonnefarianzombified
	--ajout dragonsinestra
	--ajout dragonskywall
	--ajout	dragonspawn/dragonspawntwilight
	--ajout dragonspawn/dragonspawntwilightarmored
	--ajout dragonspawn/dragonspawntwilightcaster
	--ajout dragonspawn/dragonspawntwilightoverlord
	--ajout druidbeartroll
	--ajout druidbearworgen
	--ajout druidcattroll
	--ajout druidcatworgen
	--ajout earthen_onager_vehicle
	--ajout earthendwarf/earthendwarf_low
	--ajout ettin
	--ajout facelessgeneral/facelessgeneral1_red.blp
	--ajout facelessgeneral/facelessgeneral2_red.blp
	--ajout facelessmount
	--ajout facelessoneaquatic
	--ajout facelessonecaster
	--ajout felhorse/mountedknighthorseblack.blp
	--ajout felorcdire/felorcdireskingreen.blp
	--ajout felorcdire/felorcdireskingreen02.blp
	--ajout felorcdire/felorcdireskingreen03.blp
	--ajout felreaver/minifelreaver.m2
	--ajout flyingbomber/flyingbomber_02closedcanopy.m2
	--ajout flyingcarpetmount/flyingcarpetcataclysm.blp
	--ajout geode
	--ajout giantremora
	--ajout gilgoblin
	--ajout gilneasstagecoach
	--ajout goblin/goblinshredder_low.m2
	--ajout goblin_riverboat_creature
	--ajout goblinhotairballoonvehicle
	--ajout goblinhotrod
	--ajout goblinrocket
	--ajout goblinshreddermount/goblinshreddermount_low.m2
	--ajout goblintrike
	--ajout golemdwarven
	--ajout greaterslime
	--ajout grouper
	--ajout gryphon/gryphon_armored_vehicle.m2
	--ajout gryphonpet/gryphonpetgeneric.m2
	--ajout hobgoblin
	--ajout hordecaravan
	--ajout invisiblestalker/invisiblestalker_followterrain.m2
	--ajout isiset
	--ajout karshsteelbendermolten
	--ajout kodobeast/ridingkotobeastsunwalker
	--ajout kodobeast/ridingkotobeastsunwalkerelite
	--ajout krakken/krakkennofx.m2
	--ajout ladynazjar
	--ajout lanternpet
	--ajout lavaworm
	--ajout leviathan
	--ajout lostisles_carnivorousplant
	--ajout malfurionstormrage
	--ajout mastiff
	--ajout mechanicalrabbit
	--ajout mercilessone
	--ajout mistfox
	--ajout monkey
	--ajout monstrouseel
	--ajout murloc/murlocdeepsea.m2
	--ajout naga
	--ajout neptulon
	--ajout onyxiaundead
	--ajout pufferfish
	--ajout pygmy
	--ajout questobjects/blackrockv2_shieldgong_01.m2
	--ajout questobjects/blackrockv2_shieldgong_02.m2
	--ajout questobjects/blackrockv2_shieldgong_03.m2
	--ajout questobjects/blackrockv2_shieldgong_04.m2
	--ajout questobjects/blackrockv2_shieldgong_05.m2
	--ajout questobjects/blackrockv2_shieldgong_06.m2
	--ajout questobjects/blackrockv2_shieldgong_07.m2
	--ajout questobjects/blackrockv2_shieldgong_08.m2
	--ajout rajah
	--ajout raven
	--ajout ridingelekk/draeneipaladinelekk.m2
	--ajout ridingelekk/paladinelekkelite.m2
	--ajout ringworm
	--ajout romogg
	--ajout seagull
	--ajout seahorse
	--ajout seasnake
	--ajout setesh
	--ajout shalespider
	--ajout shaman_thrall
	--ajout silithidscarab/uldumscarabskinblue.blp
	--ajout silithidscarab/uldumscarabskingreen.blp
	--ajout silithidscarab/uldumscarabskinpurple.blp
	--ajout silithidscarab/uldumscarabskinred.blp
	--ajout silithidscarab/uldumscarabskinteal.blp
	--ajout silithidscarab/uldumscarabskinyellow.blp
	--ajout skeletalraptor
	--ajout snail
	--ajout spells/eyeofkilrog_blue.m2
	--ajout spells/goblin_shamantotem_01.blp
	--ajout spells/goblin_shamantotem_01_blue.blp
	--ajout spells/goblin_shamantotem_01_earth.blp
	--ajout spells/goblin_shamantotem_01_fire.blp
	--ajout spells/goblinshamantotem_air.m2
	--ajout spells/goblinshamantotem_earth.m2
	--ajout spells/goblinshamantotem_fire.m2
	--ajout spells/goblinshamantotem_water.m2
	--ajout stingray
	--ajout tentacle
	--ajout threshershark
	--ajout tolbaradflameleviathan
	--ajout tolvir
	--ajout toothedshark
	--ajout toothlessshark
	--ajout tree/ashenvalefernsalpha copy.blp
	--ajout tree/ashenvaletreefalling01_invisible.m2
	--ajout troglodyte/deepearthtrogggreen.blp
	--ajout troglodyte/deepearthtrogggrey.blp
	--ajout troglodyte/deepearthtroggpurple.blp
	--ajout troglodyte/deepearthtroggred.blp
	--ajout troglodyte/deepearthtroggyellow.blp
	--ajout troll/cavecrystaltroll03.blp
	--ajout troll/shit.blp
	--ajout twilightascendantair
	--ajout twilightascendantearth
	--ajout twilightascendantwater
	--ajout twilightshammer_dragonegg
	--ajout twillightascendantfire
	--ajout uldumwatcher
	--ajout unboundwaterelementalmercury
	--ajout watcher
	--ajout waterelemental/waterelemental_nosplash.m2
	--ajout waterelementalmercury
	--ajout whaleshark
	--ajout wyvernpet/wyvernpetgeneric.m2
	--ajout wyvernpet/wyvernpetgeneric_blue.blp
	--ajout wyvernpet/wyvernpetgeneric_red.blp
	--ajout wyvernpet/wyvernpetgeneric_yellow.blp
	--ajout yoggsaron/cataclysm_tentacle.m2
	--ajout yoggsaron/yoggsaronbodyskintentaclevine.blp
	--ajout ysera

--Riettubby

--DBCS 1.00.78 du 20101026
	--résolution de multiples bugs dûs à la 4.0
	--l'addon SendChatMessageTimer fait passer en lent certains messages écrits par les addons de DBCS ou ceux d'addon qui le désirent ( cad, les messages écrits en direct sont sûr de passer en premier )
	--utilisation de la fonction GetItemInfo et de la variable retour itemSellPrice pour connaitre le prix de revente d'un objet au pnj
	--changement de l'addon DBOT_linkable pour savoir si un objet est linkable ou non
	--changement ds la couleur du numéro des objets
		--blanc = objet visualisable et linkable
		--jaune = objet visualisable mais pas linkable
		--orange = objet non visualisable mais linkable
		--rouge = objet non visualisable ni linkable

--DBCS 1.00.77 du 20101012
	--compatibilité maximale avec wow 4.0
	--ajout des données spells noms detail locs model en addon, leurs installations est obligatoire pour le bon fonctionnement de l'addon, voir les addons DBCS_data et DBCS_frFR

--DBCS 1.00.76 du 20100615
	--compatibilité avec le patch 3.3.5 ( le patch qui donne accès au sanctum rubis ) ( dont le bug pour copier les liens d'objets vers la barre de dialogue )
	--inversion du sens des recherches des objets valides et linkables ( invisible pour vous )
	--coche correctement ds tous les cas le bon radar de la liste des radars de la mini carte de DBCS
	--sur l'onglet PNJ, possibilité de lister les sorts que connait le mob, icone en haut à gauche du numéro du mob, sur le canal de son choix
	--suppression des données sauvegardées de tous les serveurs pour l'addon DBOT_linkable si un objet n'est plus linkable, sinon, les données sauvegardées pouvaient devenir gigantesques et inutiles

--DBCS 1.00.75 du 20100507
	--affichage d'un icone canne à peche pour les locs de bancs de poisson ( invisible sauf pour moi pour le moment )
	--affichage du nom de l'icone des objets ds la bulle d'objet pour les objets non valides
	--ajout d'un radar sur la minicarte : réparateurs/aubergiste/quetes non faites/écurie/maître de vol/maître de classe
	--petite modif ds l'addon DBOT pour ne pas tester la validation d'objets ne pouvant pas exister ( routine invisible )
	--résolution d'un bug invisible qui n'enregistrait plus le niveau et pdvmax des pnjs rencontrés ( causé par l'addon Aloft )
	--ajout de l'addon Cataclysme ds les données régionales
	--ajout de la zone "Les Salles de l'Origine" pour cataclysme ( pas de plans )

--DBCS 1.00.74 du 20100329
	--résolution bug ligne 837 de l'addon DBCS_region
	--amélioration de la visualisation du skin de certains mobs ds dbcs_model_viewer, maj de la créature servant à initialiser les tailles
	--modif vers 30 sec : petite amélioration ds la temporisation des tests des objets linkables, ds l'addon DBOT_linkable ( en pause quand menu de jeu, et 30 secondes d'attente quand fenetre menu n'est plu visible )
	--l'addon DBCS_mobs_locs est maintenant lié à l'addon DBCS
	--affichage des locs de banc de poissons, disponible avec la prochaine base après celle du 20100312, recherche sur onglet mob avec comme critère : famille = "banc"
	--ajout des skins suivants ds DBCS_model_viewer
	--	creature/celestialdragonwyrm/celestialdragonwyrm.m2
	--	creature/celestialhorse/celestialhorse.m2
	--	creature/clockworkgiant/clockworkgiantpet.m2
	--	creature/hippogryph/burnthippogryph.m2
	--	creature/rocketmount2/rocketmount2.m2
	--	creature/woolyrhino/woolyrhinomount.m2
	--correction d'un bug ds DBCS_HDV ( hotel de vente )  quand wow ne fourni pas le temps restant d'un objet, 
	--si votre DBCS a déjà découvert des objets qui ne sont pas encore connus par votre version des données objets de DBCS, il les ajoute à la connexion, ils sont sauvegardés ds votre fichier de données que vous etes sensés remonter une fois par mois sur http://wow.freehackers.org/EnvoiDBCS/
	--coupe les messages + grand que 225 caractères en 2 messages ds l'addon chatmondialserveur ( cms )
	--n'envoi plus le nom du joueur qui a parlé sur 1 canal, mais son GUID, permettra de faire + de choses, connaitre son nom, race, classe etc, ds l'addon chatmondialserveur ( cms )
	--ajout du GUID du joueur après son nom, utilisé pour créer les links vers haut-fait ou métier
	--ajout d'un lien vers une bulle d'aide, avec un "[M]" ou un "[F]" pour indiquer si c'est un personnage Masculin ou Féminin
	--si le GUID du joueur commence par "0x018" qui est le début d'un GUID habituel, je n'affiche pas ce début, ni les 0 suivants inutils
	--un GUID complet fait 18 caractères
	--n'affiche pas l'info " - capitales" pour les messages provenant des canaux :"Commerce - capitales" "RechercheDeGroupe - capitales" "RechercheDeGuilde - capitales"

--DBCS 1.00.73 du 20100317
	--ATTENTION, maintenant, les bases de données OBJETS, MOBS et QUETES sont stockées dans des addons distincts, à télécharger en + : DBCS_data_frFR
	--par contre, le temps de déconnexion est archi très fortement réduit
	--vérification pour l'enregistrement des pdvmax des mobs lus sur les plaquettes de l'interface, que le nom n'a pas changé
	--ajout de 12 factions
	--ajout du sanctuaire ruby ( plan avec le patch wow 3.3.3 ) ( patch 3.3.5 )
	--amélioration de l'appercu du skin des mobs ds l'onglet PNJ, si des erreurs de skins sont contenues ds le fichier de données
	--modification de la date de terminaison de quetes, si 0 ou -1, affichage de l'info : date inconnue
	--résolution de bugs ds l'onglet quetes, si la base n'est pas cohérente
	--mise à jour de la base quete et pnj, pour que le lien se fasse sur l'id du pnj et non plus son nom

--DBCS 1.00.72 du 20100304
	--l'addon chatmondialserveur ( cms ) permet de lire ( pas écrire ) le canal recherchedegroupe à distance, si quelqun avec l'addon est ds une capitale
	--posibilité de changer la dimension de la carte de l'addon DBCS_region grâce à la molette de la sourie
	--changement de la mémorisation des overlay pour l'addon DBCS_region
	--minuscule bug résolu sur l'onglet quetes2, le nom des pnjs début et fin de quete n'étaient parfois pas affichés ( mis à jour ds la version 71 )
	--amélioration de la visualisation du skin de certains mobs ds dbcs_model_viewer
	--ajout ds l'addon DBCS_mobs_locs des locs des pnjs vus grâce aux plaquettes ( barre de vie des mobs/pnj )
	--modification du nom de quelques réputations
	--petite amélioration ds la temporisation des tests des objets linkables, ds l'addon DBOT_linkable ( en pose quand menu de jeu, et 5 secondes d'attente quand fenetre menu n'est plu visible )

--DBCS 1.00.71 du 20100113
	--ds l'onglet "Liste_PNJ", n'affiche que les PNJ dont DBCS connait au moins une information
	--ajout des objets ajoutés ds le fichier de données à remonter sur le serveur
	--le ctrl + alt sur un link de mob ne fait plus afficher l'addon DBCS_model_viewer, mais l'onglet pnj de DBCS, qui lui permet d'accèder à DBCS_model_viewer, c'est mieux pour avoir + d'info sur le mob
	--correction bug HDV 817 ( à surveiller )
	--ds l'onglet "Liste_PNJ", si la bulle d'aide n'est pas dispo sur un mob, j'affiche juste son nom
	--petit bug rectifié ds la recherche du nom du pnj de début ou de fin de quete, ds l'onglet quetes2
	--ajout de la combo terminées ds l'onglet quetes2, permet de ne lister que les quetes terminées, ou que les quetes non terminées, ou toutes les quetes
	--ajout de la combo faction ds l'onglet quetes2, permet de ne lister que les quetes alliance, ou que les quetes horde, ou toutes les quetes
	--grace à la nouvelle api de blizzard, toutes les quetes terminées sont connues par DBCS, donc, on peut savoir qu'elles sont les quetes qu'on a pas faite, si vous n'aviez pas l'addon quand vous avez terminé une quete, dbcs essaye de deviner une plage de date pendant laquelle cette quete a du etre faite
	--affichage de la date quand une quete a été terminée pour la dernière fois, ds la bulle d'aide sur la 4 ième partie du nom de la quete ds l'onglet quetes2
	--tant que la carte mondiale de blizzard est affichée, DBCS_Region se met en pause et ne change plus la carte courante si besoin, les locs des mobs ne sont plus enregistrées
	--petite modif ds ma reconaissance des objectifs de quete ( processus pour ma version )
	--blocage à 1000 skins de mobs testés pour ma version de DBCS_Model_Viewer ( était ds version 70 )
	--masquage de la bulle d'aide sur onglet PNJ si le pnj est domptable quand on sort de la case
	--amélioration de la visualisation du skin de certains mobs ds dbcs_model_viewer

--DBCS 1.00.70 du 20091210
	--maj de DBCS_mobs_detail ( banquier )
	--masquage de l'onglet "connaissance des betes", l'onglet "Liste_PNJ" sera bien mieux à terme
	--changement de l'id de la combo tri spéciaux de l'onglet objets ( 8 -> 10 )
	--mémorisation si l'objet est héroique, pour afficher cette info quand l'objet n'est pas visionable
	--résolution bug dbcorp 2648, à cause de fishingace
	--maj des .toc à 30300 pour wow 3.3
	--résolution bug DBCS_model_viewer ligne 375 bad argument

--DBCS 1.00.69 du 20091204
	--amélioration de l'addon DBCS_region, pour afficher les locs de la région sélectionnée ou de la région courante ou aléatoire, changement d'échelle possible
	--ajout de l'addon DBCS_mobs_detail, qui permet d'afficher sur l'onglet Liste_PNJ tout plein d'infos sur les pnjs/mobs ( niveaux, pdv max, technique de dresssage, nourriture, banquier, hdv, peut réparer etc etc etc )
	--ajout des sets T10 pour le patch 3.3
	--ajout de l'instance : Salles des Reflets pour le patch 3.3
	--ajout d'une combo sur l'onglet objets, niveau du set par extension, conditionne les niveaux du set affichés et les factions des combo correspondantes

--DBCS 1.00.68 du 20091031
	--ajout de l'onglet : Liste_pnj qui liste tous les pnj et monstres du jeu, avec leur look/skin/couleur, leurs locs ( à venir )
	--colorisation en orange ds l'onglet HDV_stat, des objets qui ne sont pas en vente à l'hdv en ce moment
	-- colorisation des noms ds les messages recus de chatmondialserveur si on possède prat3 ou censius ( à ajouter )
	-- les link de métiers sont maintenant aussi traduit ds la langue du client par chatmondialserveur sur les canaux de discussion
	--ajout de la réputation : Le Verdict des cendres ( citadelle de la couronne des glaces )
	--ajout de l'instance : La Forge des âmes : instance en groupe pour wow 3.3 avec le roi liche
	--ajout de l'instance : Fosse de Saron : instance en groupe pour wow 3.3 avec le roi liche
	--ajout de l'instance : Citadelle de la Couronne de glace : instance en raid pour wow 3.3 avec le roi liche
	--/dbcs_region pour faire apparaitre la nouvelle carte contenue ds l'addon dbcs_region

--DBCS 1.00.67maj du 20090930
	--modification du nom de la région "L'Accostage de Hrothgar" en "Accostage de Hrothgar"
		--provoquait un décalage ds l'affichage des cartes du norfendre

--DBCS 1.00.67 du 20090831
	--amélioration du forcage des objets linkable de l'addon DBOT_linkable
	--suppression d'un message de débuggage : setmapzoom

--DBCS 1.00.66 du 20090810
	--modifs pour la 3.2
	--modif de la bulle d'aide sur les objets pour la provenance en quete, ajout du numéro de la quete
	--affichage des cartes des instances ( si map blizzard existe ) pour les pnj début et fin de quete

--DBCS 1.00.65 du 20090501
	-- maj des .toc pour wow 3.1
	-- affiche la liste des loots d'un mob meme si il n'en a pas, pour permettre l'accès a la liste des techniques du mob
	-- herbe verpérenne -> langue de serpent
	-- affichage des instances WOTLK ds la mini mini carte
	-- les quetes terminées sont de nouveau mémorisées
	--ajout du tri spécial objet : équipé : score expertise
	--ajout du tri spécial objet : équipé : puissance sorts
	--ajout du tri spécial objet : équipé : score hâte
	--ajout du tri spécial objet : équipé : score pénétration armure
	--suppression du tri spécial objet obsolète : Equipé : degats et soins des sorts et effets
	--suppression du tri spécial objet obsolète : Equipé : score coup critique des sorts
	--suppression du tri spécial objet obsolète : Equipé : soins des sorts et effet
	--suppression du tri spécial objet obsolète : Equipé : score toucher des sorts

--DBCS 1.00.64 du 20090401
	-- affichage ds la bulle d'aide des objets ( quand on glisse la sourie dessus ) de l'origine du loot, décochage possible sur l'onglet : mobs ayant l'objet
	-- masquage d'une erreur récurrente pour la mémorisation des skins des mobs par le canal cms ( à la ligne 4991 de dbcorps )
	-- petit défaut de mémorisation ds le cochage des stats de l'hdv ds la bulle d'aide de l'objet quand on ne les voulait plus
	--suppression de la réputation objet : Offensive chanteguerre
	--compatibilité du suivi des quetes avec le patch 3.1
	--compatibilité avec le patch 3.1, il faudra juste maj les .toc une fois le patch 3.1 arrivé

--DBCS 1.00.63 du 20090305
	-- modif du nom de l'instance : l'Arène des valeureux
	-- couleur de désenchantement : rarity
	-- ajout de la région : La mer Boréale
	-- ajout du critère : Inconnus, pour la recherche objets, permet de lister aussi les objets pas encore découverts par DBCS
	-- nouvel addon qui mémorise le model de chaque mob/pnj : DBCS_mobs_model
	-- amélioration des interactions entre DBOT, DBOT_linkable et DBCS_mobs_model pour moins etre déconnecté quand nouvelle version de wow
	-- maj des num max objets à 50000

--DBCS 1.00.62 du 20081222
	-- petit bug réglé, le ctrl + alt + click sur un lien d'objet ds la fenetre chat ne fonctionnait plus, à cause du ctrl + alt + click sur un lien de mob

--DBCS 1.00.61 du 20081221
	-- grosse amélioration de l'addon DBCS_model_viewer pour voir les skin des mobs et pnjs colorés
	-- possibilité ds l'addon DBCS_model_viewer de voir tous les mobs et pnjs déjà rencontrés depuis le dernier crash wow/pc ou gros patch wow
	-- connexion entre DBCS et le nouveau DBCS_model_viewer pour voir le skin coloré du boss/mob/pnj choisi
	-- ajout loc de : "Collecte de minerai étrange"
	-- amélioration de l'addon chatmondialserveur pour bien lire les link sur les canaux à distance des link de métier et de tous les autres link
	-- ctrl + alt + click sur un mob ds la fenetre de chat combat, montre son skin coloré ( si vous avez l'addon DBCS_model_viewer )

--DBCS 1.00.60 du 20081214
	-- maj du nom de l'instance "Le sanctum obsidien" en "Le sanctum Obsidien"
	-- petite amélioration du repérage des membres avec l'addon parmi le groupe/raid, il arrive parfois que quand on se connecte, on ne recoive pas tout de suite le nom de son perso, mais seulement au bout d'un moment, cela génait
	-- ajout du penguinpet  comme modèle pour les transformations de mage
	-- masquage bug chatmondialserveur 2687
	-- type d'objet : Conteneur, sous type d'objet : Conteneur devient Sac
	-- netoyage du calcul du niv max au chargement
	-- pour les nouveaux utilisateurs, les nouveaux objets et les nouvelles quetes ne sont plus automatiquement affichés sur le canal chat ( rappel : ce sont les cases à cocher en bas des onglets mobs et objets )

--DBCS 1.00.59 du 20081127
	-- déplacement de la zone zul'aman ds la combo de recherche
	-- suppression des tests sur le nivmax de wotlk, now, tous les serveurs l'ont
	-- masquage d'un bug : dbquetes2 : 789 : attempt to perform arithmetic on local "ifin" ( a nil value) ( surement un texte de quete avec des caractères anormaux)
	-- suppression des objets inconnus ds l'onglet stat de l'HDV
	-- suppression des objets de quete ds l'onglet stat de l'HDV
	-- changement du nom de la zone "azeroth" ds les combo région en "Royaumes de l'est"
	-- ajout de la colonne "niveau réel" ou "env" sur l'onglet 1 mob, pour pouvoir différencier les objets héroiques ou normaux
	-- ajout de la reconnaissance des cuirs dépecables
	-- maj des prix des objets
	-- maj du nom de l'instance : Ahn'kahet\194\160: l'Ancien royaume
	-- amélioration de la reconnaissance du nom de la ressource qu'on récolte
	-- ajout des loots par boss de raid 80 ds la base de donnée
	-- ajout de 2 skin de mob ( 826 skins ) ds le viewer ( dbcs_model_viewer )

--DBCS 1.00.58 du 20081115
	-- ajout de la zone : Maleterres : l'enclave éEcarlate

--DBCS 1.00.57 du 20081114
	-- reconnaissance des objets : Lier au compte ( version 56 )
	-- affichage des locs de minage/herbe/coffre sur la minimap pour le norfendre

--DBCS 1.00.56 du 20081112
	--maj de certains noms de régions
	-- ajout de 5 instances : naxxramas, l'arene des valeureux, égouts de dalaran, Caveau d'Archavon, Ulduar
	-- maj des noms des 4 sets contre les morts-vivants
	-- ajout de 3 combo sur l'onglet mobs, qui permettent de facilement choisir une région/instance
	-- reconnaissance correcte des objets : Unique - Equipé
	-- reconnaissance des objets : Lier au compte
	-- ajout des loots par boss ( sauf raids 80 ) ds la base de donnée

--DBCS 1.00.55 du 20081105
	--maj de l'onglet quetes pour tester et changer le niveau max d'xp en fonction du 13 novembre 2008 minuit matin

--DBCS 1.00.54 du 20081023
	--calculs des locs pour les 2 dernières zones de wotlk : la couronne de glace et joug d'hiver
	--affichage du skill nécessaire pour mineur et herboriste pour wotlk
	--affichage à distance des links métier ( cms )
	--suppression du message blanc pour les sorts de monstres repérés

--DBCS 1.00.53 du 20081021
	-- maj des calculs des coordonnées pour les régions hurlevent et maleterre est
	-- cms envoi correctement les links métier

--DBCS 1.00.52 du 20081020
	-- MAJ pour wow 3.0
	--ajout de la mouture ( objets ds plantes )
	--mise en sommeil de connaissance bete : DBCS_GameTooltip_OnShow
	-- les links talent trade(link de tableau de craft) et achievement(haut fait) fonctionnent avec chatmondialserveur, sauf les tableau de craft, rendus inefficace sur les canaux distants
	-- ajout des infos pour wotlk
	-- 544 ensembles de sets
	-- ajout des dates des dernières maj des infos des quetes ds les bulles d'aides sur le nom d'une quete sur l'onglet quetes
	
--20081015		wow3.0
		
--DBCS 1.00.51 du 20080707
	-- ajout du montant de l'alerte ds les bulles d'aides des objets pour les stats de l'hdv
	-- affichage des montants ds les bulles d'aides sur les quetes avec les icones po pa et pc
	-- les cases : afficher les nouveaux objets, afficher les nouvelles quetes, stats ds la bulle d'aide de l'objet, sont maintenant bien cochées par défaut si vous n'y aviez jamais touché
	-- HDV : si le tri par temps restant croissant du hdv de blizzard déconne, j'affiche les infos : "très long", "long", "moyen", "court", au lieu du temps estimé/calculé
	-- pour les objets permettant d'en acheter d'autres, si ils ne sont pas valides sur votre ordi/serveur, affichage de leur stats par dbcs quand on passe la sourie dessus quand ils servent de monnaies

--DBCS data du 20080707
	-- 5957 mobs ( normaux/rare/elite/eliterare )
		-- dont 3906 normaux	( classe = normal )
		-- + 102 rareelites		( classe = rareelite )
		-- + 243 rares		( classe = rare )		-	( classe = rareelite )
		-- + 1706 elites		( classe = elite )		-	( classe = rareelite )
	-- 149 worldboss			( classe = worldboss )
	-- 23725 objets dont 23375 objets validés pour les tris 
	-- 388 ensembles de sets		( classe = ensemble )
	-- 2085 locs de gain de réputation	( classe = faction )
	-- 2309 conteneurs ( ressources mines/herbes/coffres et etc ) ( sans compter les locs multiples pour chaque ressource )	( classe = paysage, type = coffre )
	-- 1677 PNJ marchands et leur loc	( classe = paysage, type = pnj )
	-- 841 locs d'event de quete		( classe = quete )
	-- 144 régions				( classe = région )
	-- 6607 quetes avec suites et locs 
	-- 2544 liens de liste d'ingrédients de craft ( type = recette , stype = ingrédients )
	-- 3022 artisanats				( classe = artisanat )
		--	dont
		--	11 prospection ( 5934 ouvertures de minerais )	( type = prospection )
		--	500 niveaux d'objets désenchantés			( type = désenchanter )
		--	238 alchimies						( type = alchimie )
		--	338 coutures						( type = couture )
		--	128 cuisine							( type = cuisine )
		--	244 enchantement					( type = enchantement )
		--	431 forge							( type = forge )
		--	41 inconnu							( type = inconnu )
		--	269 ingénierie						( type = ingénierie )
		--	297 joaillerie						( type = joaillerie )
		--	43 minage							( type = minage )
		--	24 poisons							( type = poisons )
		--	4 premiers soins						( type = premiers soins )
		--	15 secourisme						( type = secourisme )
		--	394 travail du cuir					( type = travail du cuir )
		--	42 UNKNOWN						( type = UNKNOWN )
		--	3 ( vide )							( type = ( hum, vide ? ) )

--DBCS 1.00.50 du 20080704
	-- ajout du sous-type objets : Artisanat / Matériaux
	-- suppression du sous-type objets : Artisanat / Gemmes
	-- modification du sous-type : Conteneur / Sac de travail du cuir
	-- ajout du sous-type objets : Divers / Monture
	-- modification du sous-type objets : Recette / Secourisme
	-- ds chatmondialserveur : les liens de sorts/talents, suppression des textes avant le :
	-- ctrl + alt + lien de sorts/talents ( comme si enchant ), pour accèder au craft
	-- si un plan de craft n'est pas valide sur votre ordinateur/serveur, la bulle d'aide sur l'objet affichera aussi l'objet craftable
	-- si un plan de craft n'est pas valide sur votre ordinateur/serveur, la bulle d'aide sur l'objet affichera aussi la compétence de craft requise
	-- ajout d'un addon : HDV
	-- ajout d'un addon : HDV_stats
	-- ajout d'un addon ( DBOT_linkable )qui test chaque seconde si 1 objet parmis 40 000 est linkable ( util après chaque mercredi ou reboot serveur )
	-- colorise en orange le numéro des objets pas linkable, ds les listes ( grace a cet addon )
	-- bug réglé : rare quand on ouvre un corp vide, stype = nil
	-- le crochetage de coffre d'extérieur de voleurs re-fonctionne ( supprimé, provoquait des locs quand on ouvrait des coffres de ses sacs )
	-- quand une erreur interne aux sacs arrive, bug réglé ( bug coté serveur blizzard )
	-- un petit - est ajouté devant les bonus spéciaux des objets non valides non reconnus pour les tris
	-- alt + shift + click sur un objet non valide permet de le linker ds un texte de chat commencé
	-- bug résolu ( en fait, masqué ) : dbquetes2 ligne 536
	-- mémo de l'info objet : Objet invoqué
	-- mémo de l'info objet : Unique (n)
	-- mémo de l'info objet : Durée : 7 jours
	-- correction du bug pour les objets plans , le prix de vente apparaissait 2 fois ( résolu pratiquement pour tous les plans )
	
	-- documentation sur les addons de l'hotel des ventes
	--	ctrl + alt + shift + click sur un objet ds vos sacs ou sur les canaux de discussion fait pop dbcs sur l'onglet "HDV", liste les occurences de cet objet à l'hdv en ce moment ( du dernier scan )
	--	case à cocher/décocher pour afficher les stats de l'hdv dans les bulles d'aides des objets
	--	pour mettre en vente des objets, inutil de stopper le scan, pour acheter, par contre, il faut le stopper ( le scan )
	--	premier onglet
	--		ouvrez la fenetre original de l'hdv et cliquez sur le bouton scan de DBCS ( vous stoppez quand vous le désirez, le scan se relance sans arret sinon ) ( il scan tout l'hdv sans arret )
	--		au bout de 1 minute 30 sec ( pour 9000 objets en vente ) vous pouvez voir le résultat
	--		des critères sont sélectionnables
	--		plusieurs tris possibles sont à disposition
	--		si vous cochez la case 1 ( au milieu des cases tris ) le prix d'achat est affiché à l'unité
	--		ctrl + alt + click sur un objet vous bascule sur l'onglet "mobs ayant l'objet"
	--		1 bouton "balance" permet de lister cet objet au vrai hotel des ventes
	--		colonnes :
	--			icone de l'objet, avec les fonctions habituelles quand on glisse la sourie dessus, bulle d'aide/link vers canal chat/cabine d'essayage
	--			nom de l'objet
	--			niveau de l'objet ( réel )
	--			niveau estimé de l'objet
	--			numéro d'ordre de l'objet ds le scan, chaque scan est trié par temps restant serveur, de celui qui va finir a celui qui finira le dernier
	--			nom du vendeur
	--			temps restant estimé, minimum et maximum ( si on laisse tourner le scan longtemps, ce temps estimé devient de + en + précis )
	--			nb objets ds la pile
	--			enchère courante
	--			prix d'achat direct
	--	deuxième onglet ( statistiques )
	--		chaque fois que 1 scan ( chaque scan , scan tout l'hdv ) se termine, des stats sont calculées pour chaque objet ( + bas prix, moyenne pondérée, + haute enchère )
	--		des critères sont sélectionnables
	--		plusieurs tris sont disponibles
	--		cocher la case "que le dernier scan" affiche que les objets vus au dernier scan
	--		cocher la case "objets sous alerte" affiche que les objets pour lesquels leur + bas prix d'achat est inférieur ou égal au montant de l'alerte
	--		cliquer sur le bouton ">" pour 1 objet, vous permet d'indiquer un prix d'alerte pour chaque objet ( en pc ( pièce de cuivre ) ) ( 1 po = 10 000 pc )
	--		click sur un objet vous bascule sur le premier onglet avec toutes les occurences de cet objet à l'hdv ( quand la ligne de l'objet est toute jaunie )
	--		ctrl + alt + click sur un objet vous bascule sur l'onglet "mobs ayant l'objet"
	--		1 bouton "balance" permet de lister cet objet au vrai hotel des ventes
	--		la date et heure de la dernière fois ou cet objet a été scanné sont affichés
	--		colonnes :
	--			icone de l'objet, avec les fonctions habituelles quand on glisse la sourie dessus, bulle d'aide/link vers canal chat/cabine d'essayage
	--			nom de l'objet
	--			niveau de l'objet ( réel )
	--			niveau estimé de l'objet
	--			date et heure du dernier scan où cet objet a été vu à l'hdv
	--			montant de l'alerte que vous avez renseigné ( si un objet vu à l'hdv est inférieur ou égal a ce montant, en cochant la case : objets sous alerte, cet objet sera affiché
	--			montant auquel vous avez l'habitude de vendre cet objet ( pas encore disponible )
	--			moyenne pondérée ( chaque valeur vue compte autant que toutes les autres ) de cet objet depuis le tout premier scan que vous avez effectué depuis l'installation de cet addon
	--			prix d'achat direct le + bas vu au dernier scan pour cet objet
	--	prochainement
	--		lecture de l'hdv à distance ( si quelqu'un du serveur est en ce moment devant l'hdv ) ( aucunes actions à distance ( achat/vente ) ne seront disponibles, juste lecture de l'hdv et fonctions fournies par l'addon, critères,tris, prix d'alerte)

--DBCS 1.00.49 du 20080525
	-- petit bug réglé : si on ouvre un corp avec la touche shift ( tout prendre, ou rien prendre ) enclenchée, certains corps étaient pris pour vide alors qu'ils ne l'étaient pas
	-- si un objet n'est pas valide, l'info stat description ( entre guillemets ) est bien affichée à la fin, et non plus avant les bonus équipés/utiliser non reconnus
	-- ajout des objets ds la base objets du plateau ( pas encore tous ) ( dont l'arc légendaire )

--DBCS 1.00.48 du 20080522
	-- amélioration de la mémorisation des infos : quetes horde et quetes alliance, si la quete est recue par le canal cms, il force le flag a la faction en cours
	-- intègre le dps des projectiles ( balles et fleches ) ds le tri par dps
	-- améliore la mémorisation du dps des projectiles ( balles et fleches ) à décimales ( avant = 0 )
	-- amélioration de la maj de l'argent de gain de quete en fonction si niv 70 ou < 70 par le canal cms ou par les données remontées
	-- quete -> Quête ds le titre des bulles d'aides sur les quetes
	-- petite modif ds le viewer, parfois, le nom du modèle de la target est une table et non pas un string ( suite de caractères pour les obsédés ), louche
	-- quand on acceptait une quete journalière, puis qu'on la supprimait, elle restait comme toujours ds votre journal pour le calcul des quetes journalières orange ( les quetes pour lesquelles on possède déjà ds son journal l'une d'elles, du meme ensemble de quete journalières )
	-- suppression ds la base mob des enreg : classe = enchant/gemme
	-- ajout de tous les sets de la saison 4 + hors sets + armes
	-- ajout de la mémorisation du bonus de sertissage ds les stats des objets
	-- très légère modif ds le texte du bouton purge
	-- bulle d'aide sur les début et fin de quete : limite de 50 caractères par lignes
	-- bulle d'aide pour les objets invalides : limite de 50 caractères par lignes pour les bonus
	-- ajout du tri spécial , objets : objets pouvant contenir des objets ( coffre )
	-- des objets étaient définis comme pouvant contenir des objets ( coffre ), corrigé
	-- maj des prix des objets d'après itemprice
	-- petit bug corrigé ds dbquetes2, si la quete précédente ou suivante était mal renseignée
	-- petit bug corrigé ds la sauvegarde de quetes, si elle n'existe pas ( louche, mais bon ) ( surement confusion avec l'ancienne version des quetes, voir + bas 5491 )
	-- critères objets : sac d'artisan du cuir -> sac de travailleur du cuir
	-- l'ancien onglet quete à changé de place, pour vous permettre de ne plus avoir de trou entre 2 onglets
	-- petit bug réglé ds la maj des quetes recues par cms, la comparaison des dates doit accepter les égalitées pour mettre à jour les quetes
	-- bug réglé ds l'ancien onglet quete, une fonction était encore appelée, ( dbquetes 5491 )
	-- depuis wow 2.4, on connait le numéro interne des mobs, cette info est mémorisée ds un addon de dbcs suivant la langue du client ( pour + tard, prendre ce nombre comme clé mob au lieu du nom du mob + région )
	-- les enreg envoyés sur le canal cms ne sont plus effacés si le créateur de l'addon ( moi :) ) le demande sur le canal, ni quand je récup vos données en temps réel, pour éviter que si je crash avant d'avoir déco, que ces données soient perdues
	-- les artisanats passent en région "1" au lieu de "0", à cause de l'objet "verre brillant" qui est un artisanat en meme temps d'etre un objet conteneur d'objets
	-- CTRL + ALT + target une nouvelle cible, fait pop dbcs avec la liste des drops de ce mob
	-- si un mob n'a pas de loot, sa loc est quand meme enregistrée, quand on ouvre son corp
	-- l'onglet "connaissance des betes" n'enregistre plus les détails sur les mobs, depuis qu'ils ont inversé la bulle d'aide, à revoir + tard
	-- léger agrandissement des zones de texte ds le viewer
	-- maj des prix des objets d'après itempricetooltip
	-- ajout des loot par boss du plateau d'après atlas loot
	-- léger bug réglé, les quetes de l'ancienne version des quetes n'étaient pas supprimées, ainsi que les pnj

--DBCS data du 20080522
	-- 5853 mobs ( normaux/rare/elite/eliterare )
		-- dont 3804 normaux	( classe = normal )
		-- + 96 rareelites		( classe = rareelite )
		-- + 229 rares		( classe = rare )		-	( classe = rareelite )
		-- + 1724 elites		( classe = elite )		-	( classe = rareelite )
	-- 147 worldboss			( classe = worldboss )
	-- 23613 objets dont 23098 objets validés pour les tris 
	-- 388 ensembles de sets		( classe = ensemble )
	-- 1921 locs de gain de réputation	( classe = faction )
	-- 2125 conteneurs ( ressources mines/herbes/coffres et etc ) ( sans compter les locs multiples pour chaque ressource )	( classe = paysage, type = coffre )
	-- 1631 PNJ marchands et leur loc	( classe = paysage, type = pnj )
	-- 794 locs d'event de quete		( classe = quete )
	-- 141 régions				( classe = région )
	-- 6607 quetes avec suites et locs 
	-- 2544 liens de liste d'ingrédients de craft ( type = recette , stype = ingrédients )
	-- 3002 artisanats				( classe = artisanat )
		--	dont
		--	7 prospection ( 5934 ouvertures de minerais )	( type = prospection )
		--	485 niveaux d'objets désenchantés			( type = désenchanter )
		--	239 alchimies						( type = alchimie )
		--	328 coutures						( type = couture )
		--	127 cuisine							( type = cuisine )
		--	249 enchantement					( type = enchantement )
		--	432 forge							( type = forge )
		--	46 inconnu							( type = inconnu )
		--	265 ingénierie						( type = ingénierie )
		--	299 joaillerie						( type = joaillerie )
		--	44 minage							( type = minage )
		--	25 poisons							( type = poisons )
		--	16 premiers soins						( type = premiers soins )
		--	3 secourisme						( type = secourisme )
		--	408 travail du cuir					( type = travail du cuir )
		--	26 UNKNOWN						( type = UNKNOWN )
		--	3 ( vide )							( type = ( hum, vide ? ) )
	
--DBCS 1.00.47 du 20080416
	-- protège le flag quete journalière ds les quetes, par moment, il disparait, à surveiller ( je vous conseils de réinstaller la base quete2 )
	-- chose étonnante, certains modèles de mob de type créature ne sont pas ds dbcs_model_viewer, dbcs permet quand meme de les voir ( genre jan'alai de za )
	-- pour le viewer, un mob peut maintenant avoir plusieurs modèles d'animations différents, mais chaque modèle est envoyé sur le canal cms une seule fois par jour si sélectionné ( en target )
	-- pour le moment, seul le + récent modèle du mob est visualisable ( mais les autres sont ds la base )
	-- ctrl + alt + click sur un lien d'objet fonctionne ds le journal de combat
	-- terrocône -> terocône ( affiche le bon icone des terocônes sur la carte régionale )
	-- bug ds la maj des quetes par cms, le flag : quete alliance et quete horde disparaissait, réglé
	-- petite correction ds la maj du niveau des quetes par cms
	-- petite correction ds CMS_antispam si lineid == nil
	-- bug commun/rare : certaines quetes ont des caractères interdits aux chats ds leurs textes, ces quetes bloquaient les autres envois de données, réglés ! ( ces parties de quetes ne sont plus envoyées sur le canal masqué cms ( addon sendchatmessagetimer ) )
	-- ctrl + alt + click sur un lien de craft n'affiche plus l'icone pour matter le skin du mob ( ce n'est pas un mob .... )
	-- sur l'onglet détail d'un mob, l'icone d'accès aux modèles est correctement caché si le mob n'a pas de modèle ( genre pour les crafts )

--DBCS 1.00.46 du 20080412
	-- remise en fonctionnement de la mémorisation du prix des objets
	-- ajout de la mémorisation des bonus objets : Chances quand vous touchez
	-- affichage ds le meme ordre que blizzard, les bonus : équipé, utiliser, chances
	-- amélioration encore une fois de la mémorisation de l'entité concernée par les actions, ( minage, ouverture, etc etc etc etc etc )
	-- correction de bugs sur la reconnaissance de la multiple ouverture d'un meme corp ( en solo, groupe et raid )
	-- bug rare : pour les nouvelles quetes inconnues de dbcs n'appartenant jamais au journal des quetes, création de la quete
	-- bug rare : si la quete existe déjà ds dbcs, le nom de la quete n'est pas modifié, meme si il change, sera mis à jour par le zip de données, ou par la routine de vérif quete ( DBOT )
	-- pour les suites de quete, quand on trouve une suite à une quete, la quete précédente est envoyée sur le canal masqué cms, pour qu'on sache qu'elle quete est la suivante
	-- ajout de la date et heure de création d'une quete ( info interne )
	-- ctrl + alt sur le lien d'une quete ds les chats affiche cette quete ds DBCS
	-- ajout des prix des nouveaux objets ds DBCS ( grace à pricetooltip ) ( base de données à venir )
	-- reset les critères de recherche quete ne décoche plus la case : que les quetes journalières
	-- recquis -> requis
	-- liste des quetes : le nom du pnj début ou fin de quete qui est affiché, est le dernier connu en date
	-- mémorisation des infos race classe niveau et date de vos persos ds le fichier de sauvegarde de données à remonter pour intégration ds ma base, pour que je me fasse une idée des serveurs et joueurs pour lesquels des données sont remontées, meme si ces infos sont mémo ds ma big base, pour que je sache qui remonte des données
	-- quand quelqu'un envoi une quete sur le canal masqué ( cms ), DBCS l'enregistre ds votre base, en tenant compte des dates d'enregsitrements des informations de la quete : date d'appartenance à votre journal de quete, date de lecture de cette quete sur un pnj, date de progression de la quete, et date où la quete est complètable, ces 4 dates déterminent la viabilité des infos de la quete
	-- l'addon DBOT : si DBOT trouve un objet validable, il n'attend plus 10 secondes avant de passer au suivant, mais que une seule seconde, au lieu de 300 objets validable par heures : 3000

--DBCS 1.00.45 du 20080329
	-- petit bug résolu quand on recherche un objectif de quete ne terminant pas par "tué" ( sur onglet quetes ) ( 1 ? apparaissait, c'était un défaut d'extraction du nom de l'objectif )
	-- bug résolu pour rechercher le niveau d'une quete sur un pnj ( existait depuis la gestion du "bas niveau" par wow )
	-- bug résolu, à vérifier, parfoi, on envoyait la meme quete assez souvent de suite sur le canal cms, à cause des objets en cour de validation sur l'ordi, ne devrait plu n'envoyer la quete que quand tous les objets sont valident, et qu'une seule fois
	-- bug résolu, la mémo du dps et de la vitesse des armes, pour les tris dps et vitesse, et pour l'affichage des objets quand ils ne sont pas valides ( à cause du séparateur de décimales, parfois un point, parfois une virgule )
	-- bug résolu, l'envoi des quetes se faisait sans arret pour les pnj dont on ne pouvait plus voir les quetes qu'ils proposent quand ils en proposent que une seule, car wow nous affiche directement la quete, et non plus la liste des quetes
	-- bug résolu pour wow 2.3, si on tente de montrer des icones encore inexistants ds wow 2.3, affichage d'un ? à la place
	-- bug rare résolu : pour wow 2.3 : les sous-objectifs des quetes ne sont plus envoyés sur le canal cms, risque de message trop long
	-- bug rare résolu : l'objectif de quete ayant le mot : "effectué" était introuvable car dbcs choppait le mot "tué" et l'enlevait de la chaine
	-- petite modif de la couleur bleue ds les quetes, pour que le texte coloré puisse mieux se voir
	-- l'affichage automatique des quetes suivies de la précédente connexion ne rafraichissai pas l'onglet quetes pour les afficher en bleu ( si vous aviez ouvert l'onglet quete avant les 5 premières secondes de connexion )
	-- avec wow 2.4 : nouvel onglet "quetes2"
	-- avec wow 2.4 : mémo des quetes journalières ( affiche en vert ( ou rouge (bientot) ( pour les groupes de quetes ) ) la catégorie de la quete, ou en bleu, si la quete est suivie )
	-- avec wow 2.4 : si une quete est journalière, son numéro sera en vert
	-- avec wow 2.4 : pour les quetes journalières ne pouvant plus etre faites, son numéro sera en gris
	-- avec wow 2.4 : pour le groupe de quetes journalières dont vous en avez une ds votre journal : son numéro sera en orange
	-- avec wow 2.4 : pour le groupe de quetes journalières que vous avez déjà fait aujourd'hui : son numéro sera en rouge
	-- avec wow 2.4 : possibilité de n'afficher que les quetes journalières
	-- avec wow 2.4 : mémo du nb joueurs conseillé ( affiché après le type de la quete )
	-- avec wow 2.4 : mémo si une quete est partageable ou non
	-- avec wow 2.4 : les noms des quetes seront blancs ( au lieu de vert ) si une quete ne fait pas parti de vos quetes en cours
	-- avec wow 2.4 : affichage du nombre de quete ds le journal ainsi que le nombre de quetes journalières déjà faite
	-- objets : tous les bonus "équipés" et "utiliser" sont mémo et montrés si l'objet est invalide
	-- si des quetes existent encore ds l'ancienne version de DBCS quetes, on tente à la connexion de renseigner l'historique des quetes avec le bon numéro de quetes ( si renseigné ) pour que l'historique des quetes soit compatible avec la nouvelle version des quetes wow 2.4 ( si le fichier DBquetes est fourni ds le zip de données, copiez le quand meme, peut etre y a til eu des maj des identifiants ) , ensuite, DBQS est vidé pour ne plus vous géner à vos prochaines connexion/déconnexion
		-- si certaines des quetes historisées ne sont pas connues , elles sont mémorisées ds votre fichier de sauvegarde pour pouvoir me les envoyer que je puisse définir leur identifiant
	-- si un objet n'est pas valid, seul son nom sera inséré ds votre phrase de chat en cours
	-- ajout du set d'arme : La fureur de vaincre ( 2 armes de poing ) ds niveau du set : BC autres
	-- ajout des nouveaux modèles ds dbcs_modele_viewer ( /dbcs_mvw ou click sur icone ds onglet mobs et mob)
	-- amélioration de dbcs_modele_viewer pour ne plus avoir le modèle qui apparait parfois avec la vue par dessus, mais toujours de face

--DBCS 1.00.44 du 20080303
	-- compatible wow 2.3 et wow 2.4 ( masque certaines fonctions si on est toujours en wow 2.3 )
	-- .toc pour wow 2.4
	-- bug réglé pour ctrl +alt + click sur un lien de liste d'ingrédients de craft inexistant
	-- ajout des liens d'objets : quetes et talents/sorts ( attendre wow 2.4 )
	-- les dégats des armes sont visibles sur les liens d'objets invalides ( modif 2.4 )
	-- cliquer sur une quete/objectif ds le suivi des quetes sous la minimap affiche cette quete ds dbcs
	-- mémorise les quetes suivies entre 2 connexion par serveur/personnage ( bug : mauvaises quetes affichées à la reconnexion si vous pliez certains groupes de quetes ds votre journal )
	-- conséquence : il ne sera plus possible de cacher des quetes ds le journal des quetes
	-- ajout du tri par numéro ( identifiant ) de quetes sur l'onglet quetes ( pour préparer l'arrivée de la nouvelle version des quetes grace à dbcs/wow 2.4 )
	-- ajout d'un espace ds la barre des onglets pour l'arrivée de la nouvelle version des quetes de dbcs/wow 2.4
	-- ajout du set : Rafale de Latro, pour toutes les classes ( attendre wow 2.4 )
	-- ajout des 15 sets jcj niv 70 avec les 6 réput de base de BC ( attendre wow 2.4 )
	-- ajout des fins de sets t6 du plateau du puits de soleil ( attendre wow 2.4 )
	-- les t6 sont devenus des ensembles à 8 pièces d'armure ( avec bonus d'ensembles max : 4 pièces ) ( attendre wow 2.4 )
	-- ding 362 ensembles de sets
	-- l'addon chatmondialserveur permet de voir les liens d'objets sur les chats ds la langue du client ( si l'objet est validé sur votre ordi )
	-- bug résolu quand on essayait de forcer la création d'un objet inconnu de DBCS

--DBCS 1.00.43a du 20080208
	-- petite modif ds l'enregistrement ds la sauvegarde des modèles des mobs

--DBCS 1.00.43 du 20080207
	-- ajout de l'addon de visualisation des animations des mobs/boss de type créature : DBCS_model_viewer : /dbcs_mvw
	-- si vous avez l'addon DBCS_model_viewer, vous pouvez voir le look et les animations du mob en cliquant sur le nom du modèle ds l'onglet des mobs
	-- quand on ne bouge pas, les locs des mines de la minicarte ne sont plus affichées, permet de savoir de quel type est la mine pop
	-- le tri des objets par dps refonctionne, ainsi que le dps des projectiles ( les valeurs à décimales posaient des problèmes )						( à valider )
	-- grosse optimisation de la base mob ( donc, prendra moins de mémoire 5 méga de gagné sur 12 )
	-- l'addon DBOT ( valider objets ) repère si les objets connus de dbcs ont besoin d'etre re validés, dans ce cas, il tente de les valider en premier, puis il continuera son travail d'une tentative par 10 sec sur les objets inconnus
	-- chaque jour, l'addon DBOT tente de valider des objets connus de DBCS, toujours 1 par 10 sec pour ne pas etre déco ( si vous tentez de valider des objets à la main, il y a une chance minime que vous soyez déco )
	-- si l'objet est aléatoire ( peut avoir des stats différentes ) à chaque fois qu'on passe la souri dessus, les stats changent, ds l'onglet des objets	-- validé pour tous les onglets
	-- mémo de l'info "Unique - Equipé" pour les objets 																	( à valider )
	-- ajout de la valeur du dps des projectiles quand l'objet n'est pas validé ds la tooltip
	-- sur l'onglet 3, si l'objet est invalide, son numéro est inscrit en rouge
	-- flag interne pour les objets aléatoires à carac aléatoires
	-- changement du nom de l'instance : Hall des légendes -> Hall des Légendes
	-- + de chances quand on mine/herb/coffre, que le nom du container soit correct au lieu que ce soit le nom d'une autre cible qui soit prise ( par superposition du tooltip )
	-- possibilité de supprimer 1 drop d'un mob ds la base dbcs_mob, si vous trouvez que les données sont fausses ( surtout valable pour ma base si vous écrasez votre base par la mienne plu tard ) ( ds l'onglet "mobs ayant l'objet" )
	-- sur l'onglet mob, le bouton purge envoi vers le site de upload de données : http://wow.freehackers.org/EnvoiDBCS/
	-- les loots trouvés en détroussant les mobs ( faire les poches du voleur ) sont enregistrés et envoyés sur cms comme si on ouvrait ce corp ( mélangés avec les vrais ouvertures )
	-- améliore l'unicité des enregs quand les dès pour obtenir un loot sont lancés
	-- pour les baguettes, les infos dps, dégats min et dégats max sont retenus par dbcs now, visibles si l'objet est invalide ou avec ctrl + alt + glisser souri sur icone, ainsi que le type des dégats
	-- amélioration de l'addon chatmondialserveur ( lecture des canaux régionaux ) pour savoir qui est connecté sur un canal et qui en est le lead ( celui qui enverra les messages lus des vrais canaux vers cms )
	-- amélioration de la gestion du débugage de l'addon chatmondialserveur
	-- si on recoi un mob avec comme classe quete, si mon dbcs connaissai déjà ce mob, je ne remplace pas sa classe et etc ( bug si le dbcs de l'émetteur ne connaissait pas ce mob )
	-- ctrl + alt + click sur un lien d'objet ds le chat ne fait plus afficher la fenetre des mobs ayant cet objet avec le nom complet de l'objet aléatoire
	-- les infos "objet coffre" ne sont plus supprimées automatiquement ds ma routine de récup de données fichiers ( interne à ma version )
	-- les quetes sont de nouveaux sauvegardées avec un flag langue, pour que je puisse les intégrer à ma base à partir du fichier de sauvegarde remonté sur le site : http://wow.freehackers.org/EnvoiDBCS/
	-- ajout des quetes existantes de l'historique ds la sauvegarde ( une seule et unique fois ) pour que je puisse les intégrer au cas où
	-- amélioration de la connexion automatique au canal cms, au bout de 5 secondes après le dernier canal de discussion accédé à la connexion ou plus tard, si on est plus connecté à cms ( interne à l'addon chatmondialserveur ) ( sinon, vous pouvez faire /cmson ou /cmsoff )
	-- si on est en groupe/raid, chaque objet de qualité vert et supérieur recu comme butin par quelqun est mémorisé et envoyé ( au lieu d'etre seulement en mode de butin "master" )
	-- si vous avez + de 30 jours de sauvegarde ds votre base, l'onglet mob vous propose de remonter vos données
	-- petit bug aléatoire quand on accède à DBCS_model_viewer, le modèle du mob est affiché par au-dessus au lieu de coté
	-- le nom de l'instance : "L'OEil du cyclone" était incorrect ( apostrophe + code spécial ,l'apostrophe était fausse )

--20080124	wow 2.3.3
--20080109	wow 2.3.2

--DBCS data du 20071208
	-- 5632 mobs ( normaux/rare/elite/eliterare )
		-- dont 3473 normaux
		-- + 184 rares
		-- + 1885 elites
		-- + 90 rareelites
	-- 131 worldboss
	-- 22599 objets dont 22503 objets validés pour les tris 
	-- 346 ensembles de sets
	-- 2695 crafts avec composants
	-- 976 locs de gain de réputation
	-- 1845 conteneurs ( ressources mines/herbes/coffres et etc ) ( sans compter les locs multiples pour chaque ressource )
	-- 1373 PNJ marchands et leur loc 
	-- 576 locs d'event de quete
	-- 141 régions
	-- 5505 quetes avec suites et locs 
	-- 2151 liens de liste d'ingrédients de craft ( on y accède sur l'onglet objets par les critères : type = recette et sous-type = ingrédients
	
--DBCS 1.00.42 du 20071208
	-- ajout de plusieurs bonus équipé ds la tooltip quand l'objet n'est pas valide
	-- le bonus ajouté bonus aux soins et aux dégats est corrigé
	-- ajout du bonus équipé "Vos attaques ignorent xx points de l'armure de votre adversaire" ds la tooltip quand l'objet est invalide
	-- affichage des prix des objets en bons : insignes, marques, honneur, arene, etc, ds onglets 2, 3 et 4
	-- si l'objet est un containeur, le prix moyen de la somme des objets contenus est correctement affiché ds les tris
	-- initialisation de la base mobs des crafts avec tous les composants de craft connus des liens de listes de craft
	-- ajout du texte de la description de l'objet ds la tooltip si l'objet n'est pas valide
	-- modif de certains noms d'enchantement en Ench. pour trouver les correspondances entre les plans et les crafts
	-- meme chose avec les objets figurine en joaillerie
	-- envoi sur cms, une seule fois par jour,des objets vendus par 1 marchand. par contre, chaque consultation est mémorisée ds la sauvegarde, pour que je puisse quand meme récupérer ces données, au cas ou ...
	-- envoi sur cms du numéro unique représentant les stats d'un objet aléatoire
	-- ajout de l'addon DBOT : Objet test : toutes les 10 sec, l'addon tente de valider 1 objet invalide, au bout d'un certain moment ( il fait au maximum 35000 tests - nb objets valid sur votre ordi ) ( environ 34heures de played ) vous serez sur qu'un maximum d'objets sont valides sur votre ordi, vous pouvez décocher cet addon a votre bon vouloir ( inutil au bon fonctionnement de DBCS ) ( mais permet de ne pas tenter de valider un objet, il le fait pour vous bien avant )
	-- petite correction si vous décochiez l'addon DBGL ( qui envoi votre loc à la guilde ) ( inutil au bon fonctionnement de DBCS )
	-- quand un objet inconnu est créé ds DBCS, DBCS enregistrait des infos sur cet objets ds sa base, supprimé, devenu inutil ( et diminuera légérement votre base )
	
--DBCS 1.00.41 du 20071128
	-- ajout du 329 eme set : chaman alliance arathi : Force d'âme des Hautes-terres
	-- modif de l'icone des riches gisements d'adamantite ( le meme que les riches filons de thorium )
	-- quand la carte du monde/régional n'est pas affichée, dbcs force que la carte de la région locale soit sélectionnée, pour que le calcul des positions du joueur soit correct
	-- quand on passait la sourie sur le portrait d'un sac, le prix du dernier objet visualisé d'un sac était affiché ds la tooltip, réglé
	-- si la fenetre de marchandise d'un pnj est ouverte, quand on glisse la souri sur un objet des sacs, le nb élément max est affiché ds la tooltip
	-- ctrl + alt + passer la souri sur un objet du sac ne fait plus apparaitre dbcs avec la liste où obtenir cet objet, now, cest avec ctrl + alt + CLICK
	-- quand ma routine de récup de données vous demande un enreg ( toutes les 5 sec, 1 parmis vous tous ) , les enreg de la veille sont pris en compte, avant c'était jusqu'a l'avant veille
	-- ajout des 17 sets d'arene saison 3, donc on arrive à 346 sets d'objets connus par DBCS
	-- ctrl + alt + click sur un lien de liste de composants d'un craft ds le chat fait pop dbcs avec le craft correspondant
	-- ctrl + click sur un lien de liste de composants de craft montre l'objet ds la cabine d'essayage ( si le nom de l'objet correspond = mauvaise traduction )
	-- ctrl + click sur un lien de plan de craft montre l'objet ds la cabine d'essayage ( si le nom de l'objet correspond = mauvaise traduction )
	-- ajout d'un nouvel onglet : suivi, affiche en clair et en temps réel les données ajoutées à votre base par les autres connectés ( pas visible, pas finie :) )
	-- toutes les 1sec, envoi à la guilde votre position, vous permetra plus tard de voir ou sont les autres membres de la guilde, si vous le décidez, sinon, ils ne vous verront pas non plus ( pas visible, car cet ajout devra me permettre de le programmer ), ensuite, je mettrais surement 1 envoi toutes les 5sec, ce sera suffisant
	-- bug en -, comme dbcs ne retiens plus les prix de revente des objets vus aux pnj, il n'oblige plus de connaitre le prix avant de désenchanter
	
	-- l'affichage du prix des objets en bons d'objets ( genre en insignes ou en honneur ) n'est pas encore disponible
	
-- 20071128	saison arene 3

--DBCS 1.00.40 du 20071116
	-- maj des .toc en 20300
	-- ajout du 328 eme set : Les Lames jumelles d'Azzinoth ( les 2 armes légendaires de illidan )
	-- sur l'onglet quete , les quetes qui sont en ce moment suivies ( affichées à droite de l'écran ) la catégorie de la quete est colorée en bleu ( rappel : pour suivre/neplussuivre une quete, shift + click gauche sur la quete quand la ligne de la quete est en jaune , sur l'onglet quete ) )
	-- sur l'onglet quete, ajout d'un bouton abandonner quete, en haut à droite du niveau conseillé pour la quete
	-- sur l'onglet quete, ajout d'un bouton partager quete, en haut à gauche du niveau minimum pour la quete
	-- l'appelation PVP ARENES  et PVP ARENES 2 devient PVP ARENES saison 1 et PVP ARENES saison 2
	-- bug en - : si on utilise les touche ctrl + alt + ( click ou souri sur sac ) sans avoir accédé à laddon avant par l'icone minimap, l'écran était mal initialisé, réglé
	-- bug en - : parfois, quand on click sur un objet, ds sac, chat ou ds dbcs, les listes de mobs ou de quetes le possèdant étaient mal rafraichis, réglé , exemple : si on avait descendu le scroll ds les quetes avant de cliquer sur l'objet, le scroll restait en bas, et donc, on ne pouvait voir les quetes concernées meme si dbcs indiquait x quetes trouvées
	-- les données de DBCS envoyées sur le canal masqué ont moins de priorité que les messages écrits à la main, pour éviter de recevoir le message trop de messages envoyés, et que les messages à la main soient envoyés le + rapidement possible ( + modif ds SendChatMessageTimer )
	-- sur la carte régionale, le cochage des mines/plantes/coffres est déplacé à droite
	-- les prix des objets à la revente ne sont plus enregistrés par DBCS, ils seront récupérés sur d'autres addons et intégrés ds la base de données de DBCS
		-- pour un soucis de cohérence, le prix des objets envoyés par des joueurs ayant une ancienne version de DBCS n'est plus mémorisé
	-- bug en - : quand on passe la souri sur l'icone d'un objet inexistant ds la liste des objets d'un mob/entité, ainsi que sur l'onglet des mobs possèdant un objet, si cet objet est inconnu de dbobjets
	-- ajout des drops des boss de zul'aman d'après atlas loot ( ds la base de données de décembre 2007, pas encore dispo )
	-- critère objets ajout :
		-- type = artisanat
			-- sous-type = Autre
			-- sous-type = Cuir
			-- sous-type = Eélémentaire
			-- sous-type = Enchantement
			-- sous-type = Herbes
			-- sous-type = Joaillerie
			-- sous-type = Métal & pierre
			-- sous-type = Tissu
			-- sous-type = Viande
		-- type = Consommable
			-- sous-type = Amélioration d'objet
			-- sous-type = Autre
			-- sous-type = Bandage
			-- sous-type = éElixir
			-- sous-type = Flacon
			-- sous-type = Nourriture & boissons
			-- sous-type = Parchemin
			-- sous-type = Potion
		-- type = Conteneur
			-- sous-type = Sac d'artisan du cuir
		-- type = Divers
			-- sous-type = Autre
			-- sous-type = Familier
			-- sous-type = Fête
			-- sous-type = Réactif
	-- critère objets modifs
		-- type = arme
			-- sous-type = Cannes à pêche
	-- critère objets supression
		-- type = divers
			-- sous-type = divers

-- 20071114		wow 2.3

--DBCS 1.00.39 du 20071025
	-- ajout de l'addon : SendChatMessageTimer pour respecter la contrainte de blizzard : 1 seul message envoyé sur les canaux ( privés/wow/guilde/officier) toutes les 4/10 ième de seconde
		-- cet addon est utilisable à part pour corriger la limite de blizzard et valable pour tous les autres addons et macro et à la main

--DBCS 1.00.38 du 20071024
	-- ajout du nom d'arène : Ruines de Lordaeron
	-- modif du nom de la zone "spéciaux" en "inconnue" qui correspond mieux quand la zone ou l'on est n'est pas connue de notre version de DBCS
	-- ajout du set voleur de quete : Atours de Thero-shan ( niv 32 ) ( encore incomplet ) ( 327 eme set )
	-- ajout du nom d'instance : Zul'Aman
	-- ajout du type d'objet gemme ds les critères de recherche objets
	-- ajout des soustype gemme : couleurs des gemmes , ds les critères de recherche objets
	-- ajout des ensembles de set comme des entitées/mobs à part, cela permet de connaitre l'ensemble du set juste en clickant sur l'objet ( ceci sera ds la prochaine base de données fournie )
	-- de nouveau, on ne peut plus tester la validité d'un objet sans etre déco si négatif : GROS GRGR à BLIZZARD
	-- super ... on ne peut plus envoyer plusieurs messages d'affilés sur canal privé, on ne recevra plu les découvertes des autres, l'addon est presque fichu pour le partage de données :(

--DBCS 1.00.37 du 20071003
	-- ajout des mobs/drops d'après atlasloot des raids 25 : caverne, tempete, monthyjal et temple noir
	-- l'affichage du prix et nb objets max ds les sacs refonctionne
	-- affichage du prix de l'objet ds toutes les bulles
	-- quand on glisse la souri sur un objet non validé ds dbcs, dbcs tente automatiquement de forcer son affichage

--DBCS 1.00.36 du 20070928
	-- suppression des locs des mines pré BC pour wow 2.1, car elles ont changées de place ( pour cela, obtenir une nouvelle base mobs ( zip à part  ) )
	-- ajout des t6 d après atlas loot
	-- ajout des vrais noms des armures T6
	-- modif du nom de l'instance : Donjon de la Tempête
	-- modif du nom de l'instance : Caverne du sanctuaire du Serpent
	-- ajout de tous les links des listes d'ingrédients de craft ( zip à part )
	-- ajout des ensembles de sets arenes 2
	-- total de 326 ensembles de sets
	-- si un objet n'est pas validé pour le moment sur votre ordinateur/serveur , DBCS affiche quand meme ses caractèristiques quand vous glissez la sourie dessus
	-- affichage de la bonne couleur des links de liste d'ingrédients de plans de craft pour les canaux hors zones
		-- si je suis afk/dnd, dbcs récupère quand meme vos données pour ma base ( kirin tor/alliance )
	-- avec le bouton maj sur l onglet objets, dbcs tente de valider le maximum d'objet, le lendemain de la 2.2 de wow, ma base comprenait 21400 objets validés sur 21700
	-- bugs avec wow 2.2
		-- le bug quand on passe la souri ds les sacs est réglé
		-- l'affichage du prix et nb objets max ds les sacs ne fonctionne plus

--DBCS 1.00.35 du 20070529
	-- IL EST FORTEMENT CONSEILLé DE CLIQUER SUR LE BOUTON MAJ SUR L'ONGLET OBJET, POUR AUGMENTER LA FIABILITé DES TRIS, DU AUX MODIFS DE CARAC DES OBJETS DE WOW 2.1
	-- ajout de la faction : Aile-du-Néant
	-- maj des .toc à 20100
	-- vidage de la sauvegarde DBCC ( ds DBcorp ), qui sauvegarde tous les enreg lus pour me les envoyer ou pour remonter ce fichier sur un site qui n'existe pas encore :) ( pour repartir sur une base saine avec wow 2.1 )

--DBCS 1.00.34 du 20070525
	-- amélioration ds chatmondialserveur de la gestion des connectés à 1 canal régional
	-- amélioration de la gestion de l'information : catégorie de la quete
	-- ajout de la ressource minage : néanticite
	-- ajout de la ressource herboriste : pruinéante
	-- le khorium n'est plus affiché sur la map régionale avant le gangrefer et l'adamantite, car cette ressource peut pop à la place des 2 autres
	-- tous les messages cachés en send sont transformés en sendaddon, déjà lieu ds la version 33, mais now dbcs ne fait plus le test si il est wow 2.1, il le sous-entend
	-- ajout de la faction : Garde-ciel sha'tari
	-- ajout de la faction : Ogri'la
	-- meilleur masquage du forcage de validation des objets envoyés sur le canal cms

--20070523	wow 2.1

--DBCS 1.00.33 du 20070512
	-- tous les boss et loots des instances à 5, normal et héroiques sont mis, copiés de atlasloot et judgehype
	--	idem pour boss et loots de karazhan, grull, magtheridon
	--	et une partie du repaire du serpent
	-- 290 ensembles de sets ( 2 nouveau )
		--	chaman pvp arene : Vague guerrière de gladiateur
		--	pretre horde jcj		:	Investiture de grand seigneur de guerre
		-- ajout des objets à dropper pour obtenir les sets t4 et t5 ds les sets
	-- ajout des locs des objectifs event aux quetes
	-- les tris spéciaux des objets sont pour la plupart revenus
		--	valeur d'armure
		--	valeur blocage du bouclier
		--	dégats et soins des sorts et effets
		--	mana par 5 sec
		--	puissance d'attaque
		--	score blocage
		--	score coup critique
		--	score coup critique des sorts
		--	score défense
		--	score résilience
		--	score toucher
		--	score toucher des sorts
		--	soins des sorts et effets
		--	Force
		--	Agilité
		--	Endurance
		--	Intelligence
		--	Esprit
			--	pour les objets non valides sur mon ordi/serveur, je vous invite à cliquer sur le bouton MAJ, sur l onglet objets, pour que DBCS test le maximum d objets connus sur votre ordi, pour augmenter la fiabilité des tris, une fois par jour/semaine devrait suffir
	-- ajout du tri spécial objet : niveau de reputation
	-- ajout de la mémo des locs ou on gagne de la faction, ds l onglet monstre : critère : classe = faction, type = nomdelafaction
		-- envoi de l info sur le canal cms que en solo, ou si on est le premier alphabétique avec DBCS ds le raid/groupe
	-- ajout du critère objet réputation/faction
	-- corrigé : petit bug ds le calcul du niv inf des mobs
	-- corrigé : erreur dbmob 2137	attempt to compare nil with number
	-- corrigé : erreur dbcorps 5465 réglé, c'était ma routine de récup des données de quand je ne suis pas connecté
		-- se produisait quand la sauvegarde de DBCS n'avait pas recu toutes les infos sur une ouverture de corp/etc, exemple : on se déconnecte au milieu d'un envoi d infos par un autre connecté
	-- corrigé : bug rare dbmobs 2887 réglé, division de nul
	-- enregistrement des locs où on arrive à extraire des granules d un nuage de gaz.
		--	DBCS_mob.name = "Extraction de gaz";
		--	DBCS_mob.level = 0;
		--	DBCS_mob.classe = "paysage";
		--	DBCS_mob.famille = "Nuage";
		--	DBCS_mob.type = "Coffre";
	-- sur l onglet 2, liste des objets, si l objet n'est pas valide pour le moment sur votre serveur/ordinateur, son numéro est affiché en rouge
	-- sur l onglet quetes, parfois, certains pnj/locs de début ou de fin de quete porte le meme nom ds plusieurs régions pour des quetes différentes, maintenant, toutes ces régions sont affichées ds la bulle d aide, au lieu de seulement la première, mais seule la première région est accédée avec le ctrl + click
	-- petite modif ds l addon chatmondialserveur ( qui permet de LIRE les canaux des autres régions sans y etre, si un des connecté y est, dont le canal commerce ) ds la gestion des déco/reco ds les canaux de wow
	--	ajout de la nouvelle fonction addon WHISPER qui sera valide ds la next version 2.1 de wow, c'est compatible avec celle courante, grace à une fonction test à gestion d'erreur d'utilisation de cette action
		-- ainsi, ds le futur wow, vous n'aurez plus parfois : untel est afk, car l addon lui a envoyé un send alors qu il est afk
		-- ainsi que pour l addon chatmondialserveur ( qui gère la lecture des canaux régionaux )
	-- suppression de la sauvegarde des quetes et des pnjs, comme je n ai pas de routines pour les récup à distance, ca allègera vos bases de données
	-- modif ds les quetes, si vous connaissez déjà une quete, et que quelqun l'envoi sur cms sans sa catégorie de renseignée ( région ou autre ) , la catégorie que vous connaissiez est gardée
		-- idem pour le type de la quete ( quete de groupe ou autres )
	-- préparation des envois des loots avec l'info précise de leur stats, pour les objets aléatoires BC
	
	-- BASE DE DONNEE : ( à download à part, datée du 2007 05 12 )
		-- 5990 mobs
		-- 19328 objets	dont + de 14155 objets validés pour les tris
		-- 290 ensembles de sets ( quelques nouveaux )
		-- 2434 crafts avec composants
		-- 1717 conteneurs ( ressources mines/herbes et etc )
		-- 1240 PNJ et leur loc
		-- 4911 quetes avec suites et locs
		-- 346 liens d'ingrédients d enchantements


--DBCS 1.00.32 du 20070325
	-- 288 ensembles de sets ( 3 nouveaux )
	-- changement de ma routine de récup de données

--DBCS 1.00.31 du 20070320
	-- 285 ensembles de sets ( 1 nouveau )
	-- affichage instantané du set , quand choisi, sans avoir besoin de faire recherche, sur onglet objet
	-- bug réglé : dbcorp_screen : 1423 : quand 1 objet existe pas
	-- bug réglé : décalage pour les sets d armures BC craft, BC autres et BC donjon 3, ceux de craft étaient ds autres, autres ds donjon3, donjon3 ds T4
	-- ajout du tri spécial ds les objets : Objet lanceur de quete

-- erreur :

--DBCS 1.00.30 béta du 20070318
	-- bug réglé : dbcorp_artisanat : 93 et 216 : attempt to perform arithmetic on a nil value

--DBCS 1.00.30 du 20070317
	-- utilisation de la combinaison CTRL + ALT + click gauche sur un lien d objet ds la fenetre chat, pour savoir ou obtenir un objet, meme chose avec CTRL + ALT + souris sur un objet ds votre sac
	-- 5000 mobs
	-- 1793 crafts avec composants
	-- 1541 conteneurs ( ressources herbes/mines et etc )
	-- 1098 PNJ et leur loc
	-- 18830 objets
	-- 284 ensembles de sets ( quelques nouveaux )
	-- 346 liens d'ingrédients d enchantements
	-- 4000 quetes avec suites et locs
	-- ajout des infos type/soutype/equiploc ds les listes d objets
	-- connaissance des betes, ( surtout pour chasseur ), si vous voyez une bete qui est indiquée inconnue, utilisez connaissance des betes dessus, puis faites apparaitre la tooltip de cette bete ( fenetre détail en bas à droite indiquant le nom de la bestiole et ses carac )
	--	dbcs l aura enregistrée ainsi, il gardera en mémoire : dégats min et max, pdv, armure, régimes et techniques de la bestiole
	--	sur le 6 eme onglet, vous pourrez consulter tout cela, ou en posant la sourie sur une bestiole déjà mémorisée
	-- petit défaut qui perturbait cartographer, ( meme si je pref mon addon ) :)
	-- sur les canaux chats gérés par cms, si 1 objet est suivi d un @, cet objet n'est valide sur votre ordi ( cliquer dessus est conseillé pour le valider ), si un objet est suivi d un #, cet objet n'est pas connu par DBCS, veuillez cliquer dessus pour le valider sur votre ordi
	-- ne calcul plus le salaire des objets containers, un soucis d appel de fonction récursives qui amène a un stack full de wow ui
	-- aggrandissement des locs affichèes sur la miniminiminicarte, quand on passe la souri sur une zone ds les listes de dbcs
	-- quand je récup vos données, j envoi la demande de suppression de cet enreg ds votre sauvegarde, cette routine de nettoyage perturbait la routine d envoi de données, ca devrait etre réglé
	-- ajout de la date/heure de création d un objet et tri par date de création
	-- bug quand on ouvrait 1 coffre avec au moins 1 or, réglé

--DBCS 1.00.29 du 20070208
	-- ajout de la prospection
	-- résolution de bugs très rares ds l'enregistrement des quetes

--DBCS 1.00.28 du 20070207
	-- ajout du prix des objets désenchantés, pour faire une estimation de la valeur de chaque objets obtenus
	-- message d alerte si on tente de désenchanter un objet dont dbcs ne connait pas le prix
	-- ajout de quelques tris sur l'onglet objet
	-- ajouts d ensembles de sets ( certains non complets )
	-- meilleur masquage du canal cms qui ne voulait plus rester masqué
	-- ajout de locs d'objectifs de quetes qui n'étaient pas gérés avant, cad : tous les objectifs avec un compteur
	-- améliore la lecture des sous objectifs des quetes sur l onglet quetes pour les lier à l onglet mob ( annulé, car création de fausses quetes, à paufiner )
	-- petite correction ds ma routine de récup de données ( de récup de données des autres connectés )
	-- quand on recoit une quete par cms, tentative automatique de validation des objets de la quete sur votre ordi ( ce qui existait déjà pour les objets des mobs recu par cms )
	-- bug possible corrigé, qu en ayant décoché l affichage des nouveaux objets/quetes, ils réapparaissaient à la prochaine reco
	-- si je suis connecté, j envoi la suppression de tout enreg mob qui passe sur le canal cms ( diminu vos bases de sauvegarde, et diminu les enreg que je dois récupérer )
	-- l affichage sur la minimap des 6 nouvelles zones bas-niveau fonctionne ( il manque encore les paramètres de ressources précises pour terres-fantomes )
	-- chaque objet craftable était envoyé tous les jours sur le canal cms, now, que tous les 7 jours
	-- param cms pour pouvoir lire tous les canaux de cms, utilisez la commande /cms ( /cms VISI .... ) si vous voulez en cacher certains, ou ne voir que les canaux des capitales avec /cms SPE CM

--DBCS 1.00.27 du 20070125
	-- masquage correct des icones de la minimap quand on décoche la ressource sur la carte régionale
	-- en instances, les icones ressources de la minimap n'apparaissent plus ( mais il reste un défaut ds la reconnaissance de la zone, invisible pour le joueur )
	-- ajout de plusieurs objets de ressources herbes/mines/dépecage
	-- ajout des sets T4 et T5 grace à l'addon Atlas
	-- petit bug de suppression de l'artisanat désenchanter réglé
	-- modification des artisanats : affectés à la région "0" et non plus "000" qui donnait "spéciaux"
	-- bug ds les artisanats talents des pets ? résolu : type = used
	-- n'ajoute plus comme ressources sur la map les mobs que l'ont peu miner ou ceuillir ( bug possible avec l event error_ui ) ( bug possible aussi si on a plu le corp en target à la fin de la barre d execution de la ressource )
	-- 212 ensembles de sets , 16200+ objets , les 3 premières zones d'outreterre ( péninsule, zangar et terokkar ) avec 99% des quetes( environ 400 quetes alliance ), vont etre disponible ds le zip de données fournis à part

--DBCS 1.00.26 du 20070117
	-- niv max = 70
	-- ajout de la fonctionnalité minimap pour les 5 premières zones outreterre, et les 2 zones niv 1-20 alliance
	-- ajout de la reconnaissance d'une grande partie des nouvelles ressources
	-- bug parfois à l'ouverture d'un corp, certains objets ont des codes internes spéciaux négatifs, faisaient planter
		-- en ajoutant un code à la lecture du link d'un objet

--DBCS 1.00.25 du 20070115
	-- maj des gettime * 1000, peut etre la raison pour laquelle je recevais plusieurs enreg en meme temps ds ma récup de données car il n'y avait pas le * 1000 à plusieurs endroits
	-- la date de vidage pour BC passe au 20070115 soir, à minuit
	-- je récup les données que si client version 25 minimum, car la base de sauvegarde sera vidée grace à elle

--DBCS 1.00.24 du 20070114
	-- les noms des capitales avaient encore changées de nom ( elles n ont plus leur ancien nom entre parenthèses )
		-- ce qui faisait ramer l affichage des icones sur la minimap ds les capitales, meme si aucuns icones à afficher
	-- les icones de la minimap n apparaissent plus par dessus les sacs à dos
	-- ajout ds dbcorps des composants d un craft et l'envoi sur cms par un nouvel addon pour pouvoir le couper si besoin ou si bug
		-- ce qui permettra entre autres, ds le futur, d'interroger les connectés à cms pour savoir qui sait faire tel objet
		-- ou tout simplement, de connaitre les composants utils
	-- mémorise les objets des désenchantement ds l onglet mobs
		-- ex : arme bleu niv18 = liste des objets récup

--DBCS 1.00.23 du 20070111
	-- ajout de l addon DBcorps_minimap pour l affichage des icones ressources sur la minimap, peut etre enlevé si vous ne voulez pas voir ces icones et ainsi gagner un peu de temps processeur
	-- ajout de l addon DBcorps_recupenreg ( que pour le développeur ) pour récupérer automatiquement les enreg des autres connectés, et ainsi faire gagner un peu de temps processeur aux autres utilisaters
	-- modification des .toc : c'est maintenant DBcorps qui est l addon principal et obligatoire
	-- affiche les ressources coffre sur la minimap
	-- modif du code et netoyage des données pour BC
	-- résolution des bugs rares pour les numéro d objets ultra unique négatifs

--DBCS 1.00.22 bis du 20061219
	-- affiche les ressources minerai/plante sur la minimap, si vous avez choisi de les afficher sur la carte régionale ( comme gatherer )
		-- il faut quitter complètement wow après avoir installé pour voir les icones sur la minimap

--DBCS 1.00.22 du 20061218
	-- il n'y a plus les messages comme quoi dbcs na pas pu lire tous les objets que vend un pnj ou les quetes
	-- ajout d'une option pour informer quand de nouveaux objets ou de nouvelles quetes sont ajoutées ds DBCS grace aux autres connectés ou par vous.
	-- des petits défauts d affichage pour les recherche automatique d objets quand on changeait d onglet automatiquement
	-- petite amélioration des icones sur la carte régionale, pour les ressources inconnues, elles n apparaissent plus avec icone ? si une autre ressource connue est au meme endroit ( en fait, ce sont des bugs de relevés )
	-- sur les canaux virtuels de chat, si un objet a été envoyé par un client wow qui n'est pas votre langue, si l'objet est connu sur votre ordi, son nom est affiché ds votre langue.

--DBCS 1.00.21 du 20061215
	-- l affichage du salaire des mobs remarche ds l onglet "monstres"
	-- si DBCS ne connait pas certaines quetes de votre journal des quetes, il vous prévient quand vous faites une recherche sans critères ds l onglet quetes, cela marche now :)
	-- un bug rare quand on click sur un objet mit en lien ds un dialogue, réglé mais incompris

--DBCS 1.00.20 du 20061213
	--compatibilitee wow 2.0
	--la recherche des quetes par niveau affichait les quetes sans nivo connu, elles n apparaissent plus
	--petite modif ds l affichage du nombre max d elements ds 1 tas d objets
	-- avec un simple click sur le champ debut ou fin de quete, la quete correspondante ( precedente ou suivante ) est ajoutee en fin de liste ( si elle n'etait pas ds la liste ) et elle est affichee en haut de la page, pratique pour remonter a la toute premiere quete de la suite ou connaitre ce qui va arriver
	-- n envoi plus les donnees de celui qui a demande de recup des donnees des clients ( pour le responsable du serveur ( seulement sur kirin tor a priori , cad moi :) le client n envoi plus une donnee si cest moi qui l avait envoyee sur cms )
	-- ajout d un tri par niveau estime de l'objet ds l onglets "objets"
	-- quand on click sur une quete ( occurrence toute jaune ) ds la recherche quete, et si un dialogue de chat est commence, affiche le nom de la quete avec son nivo recquis
	-- quand on click sur un objet ( occurence toute jaune ) ds la recherche objets, si la touche CTRL n'est pas appuyee, on recherche cet objet parmis les mobs, et aussi parmis les quetes, si cet objet est donnable par un mob, on affiche ce mob, mais l onglet quetes est aussi renseigne, si nulpart trouve, bip sonore ( deja existant )
	-- meme chose pour le click sur un objet contenu ds 1 mob ( ds l onglet "objets sur un monstre" )
	-- bugs connus :
		-- le prix moyen des mobs n'est plus affiche ds l onglet "recherche mobs" le tri est correct, le prix est bien calcule mais pas affiche, il est visible ds l onglet detail du mob quand on clique sur ce mob
		-- certaines quetes/suites de quetes ne sont plus connues, cest du au changement de nom des zones ds l'objectif de la quete, les anciennes quetes existent toujours, si le nom de la quete n'a pas changee, vous devriez les retrouver
		-- certains objets apparaissent en double ds le detail des objets d un mob
		-- les tris speciaux ds la recherche objet ont disparus, cest normal, ils seront remis quand j aurais integre les nouveaux messages de description des bonus speciaux des objets
	-- ajout dun flag langue ds les flux sur le canal cms, pour accepter des clients non francais ( frFR )

--DBCS 1.00.19
	-- le dépecage ne marchait plus, il est remis
	-- mémorisation des locs des ressources dès qu on tente de les ouvrir, meme si on est interrompu avant la fin
	-- quand on demande l affichage de locs avec le CTRL + click gauche pour 1 pnj/zone/etc , les ressources de la zone ne sont plus affichées pour pouvoir visualiser facilement les locs voulues
	-- amélioration de l affichage des bulles d aides sur les locs de la big map
	-- ajout de la valeur du skill pour ramasser une plante sur la map
	-- si le mob est une ressource ( mine/herbe/coffre) le nombre de loc est indiqué ds le champ nbskin ds les listes
	-- le niveau recquis des quetes est colorisé de la meme facon que ds le journal des quetes
	-- le tri par défaut des quetes est par niveau recquis ascendant ( avant , c était descendant )
	-- l onglet quete se met à jour automatiquement quand une quete est modifiée/prise/finie, si "que les quetes en cours" est coché
	-- ds la liste des quetes, une icone ? apparait , au meme niveau que les objets recquis, pour chaque type de mob à tuer, en cliquant dessus, on accède à ce mob ds l onglet recherche mob

--DBCS 1.00.18
	-- ajout d un bouton PURGE ds l onglet des mobs, il permet de vider une base de sauvegarde , qui permettrait d envoyer les enreg récoltés sur 1 site qui additionnerais ces données avec celles des autres joueurs
	-- ajout de 232 objets liens enchantements, il faut mettre les critères : type = recette et sous-type = enchantements ( compo ) ( il faut avoir installé la dernière base objets de 12 500 objets )
	-- CTRL + click sur l enreg d 1 objet ds l onglet objets recherche cet objet que ds les quetes, sans CTRL : fais la recherche ds les mobs et si pas trouvé le recherche ds les quetes
	-- ajout mémo des actions ouverture de trucmachinchose ( event SPELLCAST_START )
	-- ajout mémo des actions de quetes sur le paysage ( event SPELLCAST_START )
	-- petit bug ds l event SPELLCAST_START
	-- affichage icone alliance et/ou horde à coté des nivo de la quete pour indiquer si quete alliance et/ou horde
	-- ajout de l info catégorie temporaire d une quete ds le flux cms
	-- ajout des infos Alliance/Horde et catégorie temporaire ds les quetes, cad la faction de la quete, et la catégorie/région de la quete si inconnue ds DBQS ou le journal des quetes
	-- précison de l'affichage des ressources sur la world map * 1000
	-- correction de la mémo des locs au millième recu par cms

--DBCS 1.00.17
	-- cette version est obligatoire à cause de la nouvelle fonction SendAddonMessage
	-- le message @ADBCS@SC01@CMS@ ou @ADBCS@SC01@@ disparait complètement grace à la fonction SendAddonMessage
	-- modif de la routine de tri des objets pour ne plus bugguer pour les objets inconnus
	-- maj des .toc à 11200
	-- ajout de l'instance naxxramas ds les fichiers localisation de dbcs et cms ( et vi, elle ny était pas encore :) )
	-- intégration ds la base mobs d'une partie de la base de atlas loots ( disponible quand je mettrais ma base mobs sur le net )
	-- et encore une fois, il restait un bug ds ma routine de recup des enregs non connecté
	-- quelques corrections de bugs rares ds la recherche objets et quetes a cause de données corrompues
	-- ajout des tris objets :
--			[27]	équipé soins des sorts et effets			Equipé : Augmente les soins prodigués par les sorts et effets de 46 au maximum.
--			[28]	équipé mana par 5 sec					Equipé : Rend 6 points de mana toutes les 5 secondes.
--			[29]	équipé vie par 5 sec					Equipé : Rend x points de vie toutes les 5 sec.
--			[30]	équipé dégats et soins des sorts et effets		Equipé : Augmente les dégâts et les soins produits par les sorts et effets magiques de 36 au maximum.
--			[31]	équipé défense						Equipé : Défense augmentée de 9.
--			[32]	équipé augmente score blocage bouclier		Equipé : Augmente le score de blocage de votre bouclier de 19.
--			[33]	équipé chances toucher					Equipé : Augmente vos chances de toucher de 1%.
--			[34]	équipé chances toucher avec sorts			Equipé : Augmente vos chances de toucher avec des sorts de 1%.
--			[35]	équipé coup critique					Equipé : Augmente vos chances d'infliger un coup critique de 1%.
--			[36]	équipé coup critique sorts				Equipé : Augmente vos chances d'infliger un coup critique avec vos sorts de 1%.

--			[37]	équipé puissance attaque				Equipé : +24 à la puissance d'attaque.
--			[38]	équipé puissance attaque distance			Equipé : +36 à la puissance des attaques à distance.
--			[39]	équipé chances bloquer bouclier			Equipé : Augmente vos chances de bloquer les attaques avec un bouclier de 3%.
--			[40]	équipé chances esquiver attaque			Equipé : Augmente vos chances d'esquiver une attaque de 1%.

--			[41]	équipé dégats des sorts et effets de arcanes	Equipé : Augmente les dégâts infligés par les sorts et effets des Arcanes de 69 au maximum.
--			[42]	équipé dégats des sorts et effets de feu		Equipé : Augmente les dégâts infligés par les sorts et effets de Feu de 34 au maximum.
--			[43]	équipé dégats des sorts et effets de nature		Equipé : Augmente les dégâts infligés par les sorts et effets de Nature de 69 au maximum.
--			[44]	équipé dégats des sorts et effets de givre		Equipé : Augmente les dégâts infligés par les sorts et effets de Givre de 21 au maximum.
--			[45]	équipé dégats des sorts et effets de ombre		Equipé : Augmente les dégâts infligés par les sorts et effets d'Ombre de 69 au maximum.

--DBCS 1.00.16
	-- 164 ensembles de set dont les sets NAXXRAMAS
	-- ajout des tris par type de résistance
	-- afficher le prix de revente ds la fenetre de détail des objets aux dés
	-- ajouter gestion version par envoi de sa version à la connec sur le canal cms ( en fait depuis la 12 )
	-- enlever le message d erreur rouge sur les quetes pour les objets
	-- en tache de fond, récupérer les enreg entier des autres envoyeurs d infos sur le canal cms par send si mode serveur et leur dire d effacer cet enreg si entièrement récupéré

--DBCS 1.00.15
	-- et oui, il y avait une n ième erreur ds ma nouvelle routine, quel nul ! navré

--DBCS 1.00.14
	-- y avait encore 1 gros bug ds ma routine de récup des données des moments ou je ne suis pas connecté

--DBCS 1.00.13
	-- petit bug ds ma routine de récupération automatique des infos des autres joueurs de quand je ne suis pas connecté
	-- cette version me permettra bientot de mettre dispo sur le site une base avec les données que je récupérerais petit à petit

--DBCS 1.00.12
	-- cliquez sur le bouton maj objets de l onglet objets pour initialiser les nouvo tris de cet onglet
	
	-- ajout des tris skill/armure/blocage/dps/vitesse/dégatsmini/dégatsmaxi sur l onglet 2 : objets
	-- amélioration et approfondissement du bouton "MAJ objets" ( en tache de fond et ajout des infos skill/armure/blocage/dps/vitesse/dégatsmini/dégatsmaxi aux objets )
	-- affichage d 1 message si une nouvelle version est disponible et que quelqun qui la possède déjà se connecte sur cms
	-- ds certains cas, il est possible que le message @ADBCS@SC01@CMS@ ne s'affiche plus à la déco reco
	-- il ne devrait plus y avoir de tooltip objet qui pop n importe ou sur l écran quand on recoit du canal cms 1 objet que son ordi ne connaissait pas
	-- masquage du bouton MAJ quetes jusqua ce qu il y ai une fonction
	-- la zone bois de la pénombre avait changé de nom, corrigé
	-- préparation des flux et des traitements pour mémoriser plusieurs décimales pour les locs ( ajout de MA02 et LA02 ( intégrer les décimales ds les locs )
	-- modif traitement de la loc ds DBmobs
	-- correction : petit bug rare ds le critère nom de l objet ds l onglet objets ( DBobjets )
	-- cms : correction erreur 2166 iposfinitem is null
	-- amélioration du calcul des x y
	
--DBCS 1.00.11 tocé
	-- maj des .toc pour déclarer les dépendances, que DBCS puis DBmobs puis DBobjets soient chargés avant DBcorps. devrait permettre a ceux qui avaient des messages d erreurs au chargement de l utiliser

--DBCS 1.00.11
	-- ajouter les ressources non ramassables
	-- pour les objets du sac à dos, affichage du nombre max ds cette pile d objet
	-- forcer le masquage du canal cms de la première fenetre chat

--DBCS 1.00.10
	-- affichage des coffres sur la world map
	-- affichage du prix des objets à choisir en récompense de quete
	-- visualisation des locs debut et fin des quetes avec CONTROL + click gauche sur début ou fin de quete
	-- ( correction léger bug ds cms )

--DBCS 1.00.09
	-- petit oubli : l icone des riches filons de thorium piqué à gatherer :)
	-- et l affichage du prix de revente au pnj des objets du sac à dos quand on est pas avec 1 pnj vendeur

--DBCS 1.00.08
	-- DBQS ( les quetes ) est intégré ds DBCS ainsi que DBHC qui mémorise l'historique des quetes par serveur/perso : ces 2 modules peuvent ne pas etre installé ou supprimés si vous ne voulez plus les quetes
	-- maj des toc
	-- quand on passe la souri sur 1 nom de région ds les onglets 1 et 4, une très minimap de la zone s affiche avec les locs en point rouge
	-- quand on click sur 1 nom de région ds les onglets 1 et 4 avec la touche CONTROL appuyée, on affiche la map de la région avec les locs en icone ? et une bulle d aide sur chacun d eux
	-- sur la map de la région, 2 check box sont dispo ( sauvegardées par serveur/perso ) pour n'afficher que les mines et/ou que les plantes
	-- changer le nom de l instance ahn'qiraj à 40
	
--DBQS béta 0.00.05
	-- enlever les espaces devant le nom de la quete quand il y avait 1 [ ] dedans
	
--DBCS 1.00.07
	-- améliorer et accélérer l affichage des sous-objectif d une quete en cours
	--changer la méthode d utilisation de DBCS_nbcorp ( règle 1 bug rare quand on ouvre 1 corp en solo)
	--ajouter les objets CHAT_MSG_LOOT en mode trésorier ( pour plus tard :  >= vert ? ) pour la région
	-- préparation d une minimap pour afficher les locs des monstres/coffres/ressources/pnj/peche etc ( en développement )

--DBQS béta 0.00.04
	-- coloriser les quetes en cours
		-- gris = quete déjà faite
		-- vert = quete à prendre
		-- jaune = quete en cours
	-- si quete en cours, afficher l état des sous-objectif du journal ds le glissé souri ds la première partie du nom de la quete à la place de ceux mémorisés
	-- maj de la date de la quete si modif
	-- mettre en bleu les quetes terminées
	-- mettre en rouge les quetes échouées
	-- ajouter une case à décocher ds les critères : que les quetes en cours : X ( par défaut cochée pour n afficher que les quetes en cours ( du journal ) )
	-- augmenter la précision du temps pour l envoi des quetes, la seconde ne suffit pas
	-- marche mal avec ct mod, il faut enlever [60R] or [60] or [60D] or [60+]
	-- permettre de shift + click sur  une quete pour mettre ses objectifs visibles à l écran, comme ds le journal
	-- pouvoir envoyer le nom de la quete sur 1 canal chat
	
--DBQS béta 0.00.03
	-- mémoriser les quetes faites par serveur et par perso
	
--DBQS béta 00.00.02
	-- mieux lire les infos categorie et type des quetes de cms du canal cms
	-- afficher une icone ? pour les objets inconnus de DBCS
	-- ajouter les touches CTRL, SHIFT, ALT pour les objets
	-- enregistrer correctement le texte de fin de quete de la lecture du canal cms
	-- ajouter le texte d alerte si on passe sur 1 objet non valid pour l ordi
	
--version 1.00.05
	-- afficher les numéros de version de DBCS , DBQS et CMS ds la bulle d aide de l'icone de la minimap
	-- LES fonctions pour l'addon DBQS ( QUETES ) en BETA
	-- le nom de l 'instance "Kraal de Tranchebauge" était incorrect
	-- homogénéiser les localisation.lua et les corriger
	-- mémoriser le déplacement de l icone minimap
	-- pour les objets pas validés, afficher 1 message spécial au lieu du sethyperlink en prévenant du alt click et du risque de déco
	-- ajouter l'aléatoire pour les objets tirés aux dès affectés à la région
	-- changer le nom des addons
	-- n'afficher que une seule fois le prix de l objet si cest le meme ( pour le mode débuggage, pour le moment )
	-- ajouter le nom du pnj au message d erreur de lecture d 1 pnj vendeur
	-- le flag dépecage est accessible pour calculer le salaire avec ou sans le dépecage
	-- ne pas afficher les nouvo objets si on ne clique pas sur le bouton "MAJ objets" ( plus tard, le mettre en option )
	-- débuter les recherches avec la touche ENTER
	-- ajouter : "Hall des Champions" comme région de stormwind ( s'ajoute à stormwind )
	-- émettre 1 son d erreur si on clique sur 1 objet n'étant sur aucuns mobs ds la recherche objets
	-- améliorer le son d'erreur si on clique sur 1 objet n'étant sur aucuns mobs ds la recherche objets
	-- forcer la connexion à cms au bout de 1 minute, et transformer cmson et cmsoff en masquant les canaux au lieu de quitter cms et cmson forcer la connexion à cms
	-- la capacité "vol à la tire" du voleur ne cré plus de mauvais enregistrements
	-- afficher les coordonnées du moment ds la bulle d aide de l icone DBCS de la minimap
	-- corriger pour les locs des pnj, le num de région qui est soit numéric soit caractère


--version 1.00.04
	-- bug ds la 1.00.03 quand quelqun en dehors de son groupe/raid entrait ds 1 groupe/raid différent	la nouvelle gestion sans message en entrant ds 1 groupe/raid n'avait pas assez été testée :) pas facil avec 1 seul compte :)

--version 1.00.03
	--bug 240 prix d'1 objet inexistant
	--x y corrects si la map de la zone locale n'a pas encore été affichée
	--bug 1380 ( problème mémoire ? ) ( augmenter la mémoire allouée aux addons ds l écran des addons ? )
	-- défaut : n'enregistrer que le prix de revente le + cher, sinon, l objet devait etre abimé
	-- ne pas tenir compte des corps joueur
	-- intégrer le numéro de version à l icone de la minicarte quand on glisse la souri dessus
	--message @ADBCS@SC01@CMS@ n'apparait plus sur les canaux groupe/raid quand on entre ds 1 groupe/raid
	-- en groupe/raid, enregistrer les drop avec tirage de dès
	-- améliorer la lecture des pnj vendeurs
	-- effacer le tablo sauvegarde des enreg solo/cms ( qui permet d envoyer les enreg connus à 1 site centralisé ) car certains enreg avaient une erreure ou étaient faux

--1 corp vide =
--	1 serveur							"Kirin thor"		GetRealmName()
--		1 date						"20060327"	DBCS_date()	date("%Y%m%d")
--			1 nomlead					"Fauvette"		DBCS_chefdugroupe()
--				1 timedeb				20:15:14@1452125	DBCS_time()	GetTime()		temps depuis ordi démarré	time()	temps depuis 1970
--					-1				"MA01"		mob ajouter 01
--					0				mob		nommob	numregion	etc	nbloot
--					1				objet 1	numloot	numobjet	numcourt2	nb
--					2				objet 2	numloot	numobjet	numcourt2	nb


--/script DEFAULT_CHAT_FRAME:AddMessage(GetPartyLeaderIndex())
--/script DEFAULT_CHAT_FRAME:AddMessage(ItemPriceTooltip:GetPriceById(0));
--/script DEFAULT_CHAT_FRAME:AddMessage(ItemPriceTooltip:GetPriceById(33058));
--/script DEFAULT_CHAT_FRAME:AddMessage(DBobjets_item_prix(33058));
--/script DEFAULT_CHAT_FRAME:AddMessage(DBobjets_item_prix(33053));
--numberOfPartyMembers = GetNumPartyMembers(); 
-- for i = 1,GetNumRaidMembers() do
--name, rank, subgroup, level, class, fileName, zone, online = GetRaidRosterInfo(Raid_Member_ID_Number);
--rank = 2 : leader
--rank = 1 : assistant
--rank = 0 : autres
--				1 nomjoueur					"Fauvette"
--					1 timeevent				125684759632	GetTime()		temps depuis ordi démarré
--numLootItems = GetNumLootItems();
--LootSlotIsCoin(slot) 
--LootSlotIsItem(slot) 
--elseif( IsFishingLoot() ) then 
--    lCurTarget.name = UnitName("target");
--    lCurTarget.level = UnitLevel("target");
--    lCurTarget.index = lCurTarget.name..":"..lCurTarget.level;
--    lCurTarget.class = UnitClass("target");
--hours,minutes = GetGameTime();
--seconds = GetTime();	à la milliseconde
--DEFAULT_CHAT_FRAME:AddMessage("Current Time: "..time())
--GetNumLootItems()
--GetLootSlotLink( slot )
--GetLootSlotInfo( slot )
--LootSlotIsCoin(slot)
--itemID, link = GetLootId( slot );
--LootSlotIsItem(slot)
--    if UnitIsDead("target")  and UnitCreatureType("target") 
--       and not UnitIsPlayer("target") 
--       and not UnitIsFriend("player","target")
--    then 
--      MI2_CorpseOpened( index );
--      return 0;
--    end
--	local lootIcon, lootName, lootQuantity, rarity= GetLootSlotInfo(1);
--	if (LootSlotIsItem(index)) then
--	GetNumPartyMembers()
--	UnitIsPartyLeader("unit")
--/script DEFAULT_CHAT_FRAME:AddMessage(GetZoneText())
-- bon
--/script DEFAULT_CHAT_FRAME:AddMessage(GetRealZoneText())
--/script DEFAULT_CHAT_FRAME:AddMessage(GetSubZoneText())
--/script DEFAULT_CHAT_FRAME:AddMessage(time())
--/script DEFAULT_CHAT_FRAME:AddMessage(GetTime())

--	GetRealmName()

--UnitIsCorpse("unit") - Returns true if the specified unit is a corpse, false otherwise. 
--UnitIsDead("unit") - Returns true if the specified unit is dead, nil otherwise. 
--UnitIsDeadOrGhost("unit") - Returns true if the specified unit is dead or a ghost, nil otherwise. 

--	DBCS_RegionData
--	DBCS_RegionData.nb
--	DBCS_RegionData[0].nb
--	DBCS_RegionData[0][10]  = { index = 10, name = "Hache-tripes" };

DBCS_serveur = GetRealmName();
--/script DEFAULT_CHAT_FRAME:AddMessage(DBCS_serveur)

DBCS_joueur = UnitName("player");
--DBCS_whisper_dispo = 0;

--local DBCS_leader = UnitName("player");
--local DBCS_player = UnitName("player");
--local DBCS_timedeb = time();
--local DBCS_timeevent;			-- GetTime() * 1000
--local DBCS_numzone;			-- DBCS_numregionbyname(GetRealZoneText())

local DBCS_bAFK = 0;
local DBCS_bDND = 0;
DBCS_chrono_purge = 0;

local DBCS_nbcorp = 0;
local DBCS_corp = {};
local DBCS_numcorp = 0;
local DBCS_corpcompte;
local DBCS_MERCHANT_UPDATE = false;

local DBCS_innervation_yell = 0;

local DBCS_prix_bag = -1;
local DBCS_prix_slot = -1;
local DBCS_prix_nb = 0;
local DBCS_prix_numobjet = -1;
local DBCS_prix_numobjet2 = -1;
local DBCS_prix_numcourt2 = -1;
local DBCS_prix_prix = nil;

local DBCS_nuage_numobjet = nil;

local DBCS_corpouvert = 0;
local DBCS_mob;
local DBCS_mob_name;
local DBCS_mob_level;
local DBCS_mob_classe;
local DBCS_mob_famille;
local DBCS_mob_type;
local DBCS_mob_plusmob;
local DBCS_mob_nbloot;
local DBCS_mob_loot;
local DBCS_mob_numobjet;
local DBCS_mob_comptesansgroupe;
local DBCS_mob_x;
local DBCS_mob_y;
local DBCS_mob_ressource = false;

DBCS_MVW_exist = false;

--local posX, posY = GetPlayerMapPosition("player");
--Result 
--0.43320921063423, 0.69365233182907

local DBCS_VERSION_envoi = false;
local DBCS_VERSION1_reception = DBCS_VERSION1;
local DBCS_VERSION2_reception = DBCS_VERSION2;
local DBCS_VERSION3_reception = DBCS_VERSION3;

-- pas besoin de traduire les noms des objets, seul le numéro est utilisé pour voir si il est reconnu comme étant du dépeçage
DBCORPS_SKIN = {};
DBCORPS_SKIN[2934] = "Lanières de cuir déchirées";
DBCORPS_SKIN[2318] = "Cuir léger";
DBCORPS_SKIN[2319] = "Cuir moyen";
DBCORPS_SKIN[4234] = "Cuir lourd";
DBCORPS_SKIN[4304] = "Cuir épais";
DBCORPS_SKIN[8170] = "Cuir robuste";

DBCORPS_SKIN[17012] = "Cuir du Magma";
DBCORPS_SKIN[19768] = "Cuir de tigre primordial";
DBCORPS_SKIN[15419] = "Cuir de grand ours";
DBCORPS_SKIN[15417] = "Cuir de diablosaure";
DBCORPS_SKIN[15423] = "Cuir de chimère";
DBCORPS_SKIN[19767] = "Cuir de chauve-souris primordiale";
DBCORPS_SKIN[15422] = "Cuir de Dent de sabre blanc";

DBCORPS_SKIN[25649] = "Lanières de Cuir granuleux";
DBCORPS_SKIN[21887] = "Cuir granuleux";
DBCORPS_SKIN[23793] = "Cuir granuleux lourd";
DBCORPS_SKIN[25708] = "Cuir de sabot-fourchu épais";
DBCORPS_SKIN[25700] = "Gangrécailles";
DBCORPS_SKIN[25699] = "Cuir imprégné de cristaux";
DBCORPS_SKIN[29547] = "Ecailles du vent";
DBCORPS_SKIN[29548] = "Ecailles de dragon du Néant";
DBCORPS_SKIN[25707] = "Gangrepeau";
--DBCORPS_SKIN[0] = "Cuir de zhévra";
--DBCORPS_SKIN[0] = "Ecailles de cobra";

DBCORPS_SKIN[783] = "Peau légère";
DBCORPS_SKIN[4232] = "Peau moyenne";
DBCORPS_SKIN[4235] = "Peau lourde";
DBCORPS_SKIN[8169] = "Peau épaisse";
DBCORPS_SKIN[8171] = "Peau robuste";
--DBCORPS_SKIN[4461] = "Peau de raptor";

DBCORPS_SKIN[7428] = "Peau de félin des ombres";		-- butin aussi
DBCORPS_SKIN[8368] = "Peau de loup épaisse";

--DBCORPS_SKIN[6470] = "Ecaille de deviant";
--DBCORPS_SKIN[6471] = "Ecaille de deviant parfaite";

DBCORPS_SKIN[15410] = "Ecaille d'Onyxia";
DBCORPS_SKIN[15415] = "Ecaille de dragon bleu";
DBCORPS_SKIN[15416] = "Ecaille de dragon noir";
DBCORPS_SKIN[15414] = "Ecaille de dragon rouge";
DBCORPS_SKIN[8165] = "Ecaille de dragon usée";
DBCORPS_SKIN[15412] = "Ecaille de dragon vert";
DBCORPS_SKIN[7286] = "Ecaille de dragonnet noir";
DBCORPS_SKIN[7287] = "Ecaille de dragonnet rouge";
DBCORPS_SKIN[7392] = "Ecaille de dragonnet vert";

DBCORPS_SKIN[8154] = "Ecaille de scorpide";				-- butin aussi
DBCORPS_SKIN[15408] = "Ecaille de scorpide épaisse";	-- butin aussi

DBCORPS_SKIN[8167] = "Ecaille de tortue";

DBCORPS_SKIN[20500] = "Carapace legere de silithide";
DBCORPS_SKIN[20498] = "Chitine de silithide";

DBCORPS_SKIN[20381] = "Revecaille";

--WOTLK
DBCORPS_SKIN[33567] = "Lanières de cuir boréen";
DBCORPS_SKIN[33568] = "Cuir boréen";
DBCORPS_SKIN[38557] = "Ecaille de dragon glaciale";
DBCORPS_SKIN[38561] = "Ecaille de jormungar";
DBCORPS_SKIN[38558] = "Chitine nérubienne";
DBCORPS_SKIN[44128] = "Fourrure arctique";

--CATA

-- machin a quitté le groupe raid

--RAID_ROSTER_UPDATE	Fired whenever a raid is formed or disbanded, players are leaving or joining a raid (unsure if rejected join requests also fire the event), or when looting rules are changed (regardless of being in raid or party!) 
--CHAT_MSG_PARTY
--CHAT_MSG_RAID
--1.1 PARTY_INVITE_CANCEL 
--1.2 PARTY_INVITE_REQUEST 
--1.3 PARTY_LEADER_CHANGED 
--1.4 PARTY_LOOT_METHOD_CHANGED	Fired when the party's loot method changes
--1.5 PARTY_MEMBERS_CHANGED	Fired when the player's party changes. 
						--As of 1.8.3 this event also fires when players are moved around in a Raid and when a player leaves the raid. This holds true even if the changes do not affect your party within the raid. 
						--4-2-05 Edit: This event is called twice when the event PARTY_LOOT_METHOD_CHANGED is called. 
						--7-28-05 EDIT: This event is generated whenever someone rejects an invite and your in a group, also generated obviously when someone joins or leaves the group. Also, if for instance you have 3 people in your group and you invite a 4th, it will generate 4 events. If you call GetNumPartyMembers() it will return 0, 1, 2, and 3. First event returing zero, 2nd event returning 1, etc etc. 
--1.6 PARTY_MEMBER_DISABLE	Fired when a specific party member is offline or dead 
						--arg1	Player Name 
--1.7 PARTY_MEMBER_ENABLE	Fired when a specific party member is still connected 
						--arg1	Player Name

local DBCS_raid = {};
	DBCS_raid.time = -1;
local DBCS_raid_player = {};
	DBCS_raid_player.nbj = 0;
	DBCS_raid_player.joueur_i = {};
	DBCS_raid_player.joueur_s = {};
local DBCS_raid_player_cms = {};
	DBCS_raid_player_cms.nbj = 0;
	DBCS_raid_player_cms.joueur_i = {};
	DBCS_raid_player_cms.joueur_s = {};

local DBCS_raid_numlootraid = 0;

local DBCS_raid_mob = {};
	--DBCS_raid_mob_tempo[i] = {};
	--DBCS_raid_mob_tempo[i].time;
	--DBCS_raid_mob_tempo[i].nommob;
	--DBCS_raid_mob_tempo[i].numregion;
	--DBCS_raid_mob_tempo[i].level;
	--DBCS_raid_mob_tempo[i].classe;
	--DBCS_raid_mob_tempo[i].famille;
	--DBCS_raid_mob_tempo[i].type;
	--DBCS_raid_mob_tempo[i].plusmob;
	--DBCS_raid_mob_tempo[i].nbloot;
	----DBCS_raid_mob_tempo[i].nblu;
	--DBCS_raid_mob_tempo[i].loot = {};
	--DBCS_raid_mob_tempo[i].loot[j] = {};
	--DBCS_raid_mob_tempo[i].loot[j].numobjet;
	--DBCS_raid_mob_tempo[i].loot[j].numcourt2;
	--DBCS_raid_mob_tempo[i].loot[j].nb;
	--DBCS_raid_mob_tempo[i].loot[j].exist;
local DBCS_raid_mob_tempo = {};
	--DBCS_raid_mob_tempo[sjoueur] = {};
	--DBCS_raid_mob_tempo[sjoueur][stime] = {};
	--DBCS_raid_mob_tempo[sjoueur][stime].nommob;
	--DBCS_raid_mob_tempo[sjoueur][stime].numregion;
	--DBCS_raid_mob_tempo[sjoueur][stime].level;
	--DBCS_raid_mob_tempo[sjoueur][stime].classe;
	--DBCS_raid_mob_tempo[sjoueur][stime].famille;
	--DBCS_raid_mob_tempo[sjoueur][stime].type;
	--DBCS_raid_mob_tempo[sjoueur][stime].plusmob;
	--DBCS_raid_mob_tempo[sjoueur][stime].nbloot;
	--DBCS_raid_mob_tempo[sjoueur][stime].nblu;
	--DBCS_raid_mob_tempo[sjoueur][stime].loot = {};
	--DBCS_raid_mob_tempo[sjoueur][stime].loot[i] = {};
	--DBCS_raid_mob_tempo[sjoueur][stime].loot[i].numobjet;
	--DBCS_raid_mob_tempo[sjoueur][stime].loot[i].numcourt2;
	--DBCS_raid_mob_tempo[sjoueur][stime].loot[i].nb;
	--DBCS_raid_mob_tempo[sjoueur][stime].loot[i].exist;
local DBCS_recup_tempo = {};

local Saved_DBCS_ChatFrame_OnHyperlinkShow_inumobjet = 0;
local Saved_DBCS_ChatFrame_OnHyperlinkShow_link = "";

--début du if frFR
if ( GetLocale() == "frFR" ) then

--	afficher prix objet sur les dés
--	GroupLootFrame1		GroupLootFrameTemplate
--	GroupLootFrame2
--	GroupLootFrame3
--	GroupLootFrame4
--		parentIconFrame
--			OnEnter
--						GameTooltip:SetOwner(this, "ANCHOR_RIGHT");
--						GameTooltip:SetLootRollItem(this:GetParent().rollID);
--						CursorUpdate();

--/script GroupLootFrame1:Show()
--/script GroupLootFrame1:Hide()
--function DBCS_GroupLootFrameIconFrame_OnEnter()
--
--local link;
--local a,c;
--local inumobjet;
--local snumcourt2;
--local tablo;
--
--	GameTooltip:SetOwner(this, "ANCHOR_RIGHT");
--	GameTooltip:SetLootRollItem(this:GetParent().rollID);
--	link = GetLootRollItemLink(this:GetParent().rollID);
--	for a, _, _, _, _, _, c, _ in string.gmatch(link,"item:(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)") do
--		inumobjet = tonumber(a);
--		snumcourt2 = "0:0:0:0:0:"..tonumber(c)..":0";
--		tablo = DBOS_detail(inumobjet,"0:0:0:0:0:0:0:0:0:0");
--		if ( tablo and tablo.prix and tablo.prix > 0 ) then
--			GameTooltip:AddLine("Prix de vente", "", 1, 1, 1);
--			SetTooltipMoney(GameTooltip, tablo.prix);
--			GameTooltip:Show();
--		end
--	end
--	CursorUpdate();
--
--end
--GroupLootFrame1IconFrame:SetScript("OnEnter",DBCS_GroupLootFrameIconFrame_OnEnter);
--GroupLootFrame2IconFrame:SetScript("OnEnter",DBCS_GroupLootFrameIconFrame_OnEnter);
--GroupLootFrame3IconFrame:SetScript("OnEnter",DBCS_GroupLootFrameIconFrame_OnEnter);
--GroupLootFrame4IconFrame:SetScript("OnEnter",DBCS_GroupLootFrameIconFrame_OnEnter);
--	parentTimer
--		maxValue="60000"

--	QuestDetailItem1:OnEnter
--	GameTooltip:SetQuestItem(this.type, this:GetID());
--local Saved_DBCS_SetQuestItem = SetQuestItem;
--function DBCS_SetQuestItem(arg1,arg2)
--
--	Saved_DBCS_SetQuestItem(arg1,arg2);
--TraceFrame:AddMessage("arg1 : "..arg1.." , arg2 : "..arg2);
--
--end

--SetCurrencyToken = DBCS_SetCurrencyToken;
--local Saved_DBCS_GameTooltip_SetCurrencyToken = GameTooltip:GetScript("SetCurrencyToken");
--function DBCS_GameTooltip_SetCurrencyToken(arg1)
--
--	Saved_DBCS_GameTooltip_SetCurrencyToken(arg1);
--TraceFrame:AddMessage("Saved_DBCS_GameTooltip_SetCurrencyToken : arg1 : "..arg1);
--
--end
--GameTooltip:SetScript("SetCurrencyToken",DBCS_GameTooltip_SetCurrencyToken);

--SetQuestItem = DBCS_SetQuestItem;
--local Saved_DBCS_GameTooltip_SetQuestItem = GameTooltip:GetScript("SetQuestItem");
--function DBCS_GameTooltip_SetQuestItem(arg1,arg2)
--
--	Saved_DBCS_GameTooltip_SetQuestItem(arg1,arg2);
--TraceFrame:AddMessage("arg1 : "..arg1.." , arg2 : "..arg2);
--
--end
--GameTooltip:SetScript("SetQuestItem",DBCS_GameTooltip_SetQuestItem);
--	GameTooltip:SetQuestItem(this.type, this:GetID())
--	GetQuestItemLink(this.type, this:GetID())
--	QuestItemTemplate:OnEnter()
--function DBCS_QuestItemTemplate_OnEnter()
--
--local slink;
--local a;
--local inumobjet;
--local tablo;
--
--	if ( this:GetAlpha() > 0 ) then
--		GameTooltip:SetOwner(this, "ANCHOR_RIGHT");
--		if ( this.rewardType == "item" ) then
--			GameTooltip:SetQuestItem(this.type, this:GetID());
--			local slink = GetQuestItemLink(this.type, this:GetID());
----TraceFrame:AddMessage("slink : "..slink);	-- couleur+nom etc
--			if ( slink ) then
--				for a, _, _, _, _, _, _, _ in string.gmatch(slink,"item:(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)") do
--					inumobjet = tonumber(a);
--					tablo = DBOS_detail(inumobjet,"0:0:0:0:0:0:0:0:0:0");
--					if ( tablo and tablo.prix and tablo.prix > 0 ) then
--						GameTooltip:AddLine("Prix de vente", "", 1, 1, 1);
--						SetTooltipMoney(GameTooltip, tablo.prix);
--						GameTooltip:Show();
--					end
--				end
--			end
--		elseif ( this.rewardType == "spell" ) then
--			GameTooltip:SetQuestRewardSpell();
--		end
--	end
--	CursorUpdate();
--
--end
--QuestDetailItem1:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestDetailItem2:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestDetailItem3:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestDetailItem4:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestDetailItem5:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestDetailItem6:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestDetailItem7:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestDetailItem8:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestDetailItem9:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestDetailItem10:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--	QuestProgressItem1
--QuestProgressItem1:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestProgressItem2:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestProgressItem3:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestProgressItem4:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestProgressItem5:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestProgressItem6:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--	QuestRewardItem1
--QuestRewardItem1:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestRewardItem2:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestRewardItem3:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestRewardItem4:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestRewardItem5:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestRewardItem6:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestRewardItem7:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestRewardItem8:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestRewardItem9:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestRewardItem10:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);
--QuestItemTemplate:SetScript("OnEnter",DBCS_QuestItemTemplate_OnEnter);

----	UseAction(slot [,checkCursor] [,onSelf])
--local Saved_DBCS_UseAction = UseAction;
--function DBCS_UseAction(arg1, arg2, arg3)
--	DBCS_mob_name = nil;
--	Saved_DBCS_UseAction(arg1,arg2,arg3);
----if ( DBCS_debug > 1 ) then
----stexte = "";	--	GetActionText(arg1);	--	
----TraceFrame:AddMessage("action : "..stexte..", num : "..arg1..", cursor : "..(arg2 or "")..", self : "..(arg3 or ""));
----end
--end
--UseAction = DBCS_UseAction;

----		InnerID=GetSpellID("Innervate");
----Get the Spell ID of the specified spell
--function DBCS_GetSpellID(SpellName)
--	local SpellCount=1;
--	local SpellID=0;
--	local ReturnName;
--	
--	while (ReturnName~=SpellName and GetSpellName(SpellCount,BOOKTYPE_SPELL)) do
--		ReturnName=GetSpellName(SpellCount,BOOKTYPE_SPELL);
--		SpellCount=SpellCount +1;
--	end
--	if (SpellName == ReturnName) then
--		return SpellCount-1;
--	else
--		WriteLine("Spell "..SpellName.." not found in your spellbook!");
--		return 0;
--	end
--end

--function DBCS_SpellTargetUnit(unit)
--  --if(SpellIsTargeting() or not HA_SpellTargetName)
--  --then
--  --  HA_SpellTargetName = UnitName(unit);
--  --  HA_ChatDebug(HA_DEBUG_ACTIONS,"SpellTargetUnit : Target="..tostring(HA_SpellTargetName));
--  --end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("unit : "..unit);
--end
--  return Saved_DBCS_SpellTargetUnit(unit);
--end
--Saved_DBCS_SpellTargetUnit = SpellTargetUnit;
--SpellTargetUnit = DBCS_SpellTargetUnit;

--	SpellTargetUnit("unit")   
--local Saved_DBCS_SpellTargetUnit = SpellTargetUnit;
--function DBCS_SpellTargetUnit(arg1)
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("unit "..arg1);
--end
----GetSpellCooldown(infos.id,"spell")
----    HA_SpellTargetName = UnitName(unit);
----  local spellName = tostring(HealersAssistTooltipTextLeft1:GetText());
--	Saved_DBCS_SpellTargetUnit(arg1);
--end
--SpellTargetUnit = DBCS_SpellTargetUnit;

----CastSpellByName('Life Tap(Rank 2)')
--local Saved_DBCS_CastSpellByName = CastSpellByName;
--function DBCS_CastSpellByName(arg1, arg2)
--	DBCS_mob_name = nil;
----if ( DBCS_debug > 1 ) then
----TraceFrame:AddMessage("sort "..arg1.." sur "..(arg2 or ""));
----end
--	Saved_DBCS_CastSpellByName(arg1,arg2);
--end
--CastSpellByName = DBCS_CastSpellByName;

----	CastSpell({spellID}, {spellbookType});
--local Saved_DBCS_CastSpell = CastSpell;
--function DBCS_CastSpell(arg1, arg2)
--	DBCS_mob_name = nil;
----if ( DBCS_debug > 1 ) then
----TraceFrame:AddMessage("sort num "..arg1.." de type "..arg2);
----end
--	Saved_DBCS_CastSpell(arg1,arg2);
--end
--CastSpell = DBCS_CastSpell;

--[[
					--name, texture, count, quality, canUse, level, minBid, minIncrement, buyoutPrice, bidAmount, highBidder, owner, sold  = GetAuctionItemInfo("list", i);
local Saved_DBCS_GetAuctionItemInfo = GetAuctionItemInfo;
function DBCS_GetAuctionItemInfo(arg1, arg2)
local val1,val2,val3,val4,val5,val6,val7,val8,val9,val10,val11,val12,val13,val14,val15,val16,val17,val18,val19,val20;
	TraceFrame:AddMessage("GetAuctionItemInfo arg1="..arg1.." et arg2="..arg2);
	val1,val2,val3,val4,val5,val6,val7,val8,val9,val10,val11,val12,val13,val14,val15,val16,val17,val18,val19,val20 = Saved_DBCS_GetAuctionItemInfo(arg1,arg2);
	if ( val1 ) then
		TraceFrame:AddMessage("val1 = "..val1);
	end
	if ( val2 ) then
		TraceFrame:AddMessage("val2 = "..val2);
	end
	if ( val3 ) then
		TraceFrame:AddMessage("val3 = "..val3);
	end
	if ( val4 ) then
		TraceFrame:AddMessage("val4 = "..val4);
	end
	if ( val5 ) then
		TraceFrame:AddMessage("val5 = "..val5);
	end
	if ( val6 ) then
		TraceFrame:AddMessage("val6 = "..val6);
	end
	if ( val7 ) then
		TraceFrame:AddMessage("val7 = "..val7);
	end
	if ( val8 ) then
		TraceFrame:AddMessage("val8 = "..val8);
	end
	if ( val9 ) then
		TraceFrame:AddMessage("val9 = "..val9);
	end
	if ( val10 ) then
		TraceFrame:AddMessage("val10 = "..val10);
	end
	if ( val11 ) then
		TraceFrame:AddMessage("val11 = "..val11);
	end
	if ( val12 ) then
		TraceFrame:AddMessage("val12 = "..val12);
	end
	if ( val13 ) then
		TraceFrame:AddMessage("val13 = "..val13);
	end
	if ( val14 ) then
		TraceFrame:AddMessage("val14 = "..val14);
	end
	if ( val15 ) then
		TraceFrame:AddMessage("val15 = "..val15);
	end
	if ( val16 ) then
		if ( type(val16) == "boolean" ) then
			if ( val16 == true ) then
				TraceFrame:AddMessage("val16 = true");
			else
				TraceFrame:AddMessage("val16 = false");
			end
		else
			TraceFrame:AddMessage("val16 = "..val16);
		end
	end
	if ( val17 ) then
		TraceFrame:AddMessage("val17 = "..val17);
	end
	if ( val18 ) then
		TraceFrame:AddMessage("val18 = "..val18);
	end
	if ( val19 ) then
		TraceFrame:AddMessage("val19 = "..val19);
	end
	if ( val20 ) then
		TraceFrame:AddMessage("val20 = "..val20);
	end
	return val1,val2,val3,val4,val5,val6,val7,val8,val9,val10,val11,val12,val13,val14,val15,val16,val17,val18,val19,val20;
end
GetAuctionItemInfo = DBCS_GetAuctionItemInfo;

--]]

--		SetTooltipMoney(GameTooltip, repairCost);
--GameTooltip:SetHyperlink(link);
--local Saved_DBCS_GameTooltip_SetHyperlink = ChatFrame_OnHyperlinkShow;
--local Saved_DBCS_GameTooltip_SetHyperlink = GameTooltip:GetScript("SetHyperlink");
--function DBCS_GameTooltip_SetHyperlink()
--local link = arg1;
--	Saved_DBCS_GameTooltip_SetHyperlink();
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage(link);
--end
--end
--GameTooltip_SetHyperlink = DBCS_GameTooltip_SetHyperlink;
--GameTooltip:SetScript("SetHyperlink",DBCS_GameTooltip_SetHyperlink);

--local Saved_tonumber = tonumber;
--function tonumber(snombre)
--
--local ireturn;
--local ipos;
--local sentier;
--local sdecimales;
--local ientier;
--local idecimales;
--
--	ipos = strfind(snombre,"%.");
--	if ( ipos == nil ) then
--		ipos = strfind(snombre,"%,");
--	end
--	if ( ipos ) then
--		sentier = strsub(snombre,1,ipos-1);
--		sdecimales = strsub(snombre,ipos+1);
--		if ( strlen(sdecimales) == 1 ) then
--			sdecimales = sdecimales.."0";
--		end
--		ientier = Saved_tonumber(sentier);
--		idecimales = (Saved_tonumber(sdecimales)/100);
--		if ( ientier and idecimales ) then
--			ireturn = ientier + idecimales;
--		else
--			ireturn = nil;
--		end
--	else
--		ireturn = Saved_tonumber(snombre);
--	end
--	
--	return ireturn;
--
--end

--OnHyperlinkClick: function(self,link,text,button)

--Saved_DBCS_GetTitleName = GetTitleName;
--function GetTitleName(inum)
--
--	return "blabla";
--
--end

--SetPortraitTexture(self.portrait, self.unit);

--local Saved_DBCS_SetPortraitTexture = SetPortraitTexture;
--function DBCS_SetPortraitTexture(sportrait,sunit)
--
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("sportrait = "..sportrait);
--end
--
--end
--SetPortraitTexture = DBCS_SetPortraitTexture;

--local Saved_DBCS_UnitFrame_UpdateThreatIndicator = UnitFrame_UpdateThreatIndicator;
--function DBCS_UnitFrame_UpdateThreatIndicator(indicator, numericIndicator, unit)
--
--	Saved_DBCS_UnitFrame_UpdateThreatIndicator(indicator, numericIndicator, unit);
--
--	if ( 1 == 1 ) then
--		return nil;
--	end
--	
--	if ( not indicator ) then
--		return;
--	end
--
--	if ( not unit or unit == indicator.feedbackUnit ) then
--		local status;
--		if ( indicator.feedbackUnit ~= indicator.unit ) then
--			status = UnitThreatSituation(indicator.feedbackUnit, indicator.unit);
--		else
--			status = UnitThreatSituation(indicator.feedbackUnit);
--		end
--
--		if ( status > 0 and IsThreatWarningEnabled() ) then
--		--if ( status > 0 ) then
--		--if ( IsThreatWarningEnabled() ) then
--			indicator:SetVertexColor(GetThreatStatusColor(status));
--			indicator:Show();
--
--			if ( numericIndicator ) then
--				if ( ShowNumericThreat() ) then
--					local isTanking, status, percentage = UnitDetailedThreatSituation(indicator.feedbackUnit, indicator.unit);
--					numericIndicator.text:SetText(format("%d", percentage).."%");
--					numericIndicator.bg:SetVertexColor(GetThreatStatusColor(status));
--					numericIndicator:Show();
--				else
--					numericIndicator:Hide();
--				end
--			end
--		else
--			indicator:Hide();
--			if ( numericIndicator ) then
--				numericIndicator:Hide();
--			end
--		end
--	end
--end
----UnitFrame_UpdateThreatIndicator = DBCS_UnitFrame_UpdateThreatIndicator;

--ChatFrame_OnHyperlinkShow(arg1, arg2, arg3);
local Saved_DBCS_ChatFrame_OnHyperlinkShow = ChatFrame_OnHyperlinkShow;
function DBCS_ChatFrame_OnHyperlinkShow(self,link, text, button)

local a,a6,a7;
local inumobjet;
local inumobjet1;
local inumobjet2;
local tablo;
local iprix;
local senchant;
local ipos;
local snom;
local inumquete;
local tobjet;
--local sGUID;
--local sGUID_1_2;
--local sGUID_3;
--local sGUID_7_10;
--local iGUID_7_10;
--local smodel;

--	if ( IsControlKeyDown() and IsAltKeyDown() ) then
--	else
		Saved_DBCS_ChatFrame_OnHyperlinkShow(self,link,text,button);
--	end

--if ( InCombatLockdown() ) then
--	return nil;
--end

if ( DBCS_debug > 1 ) then
if ( not ( link == Saved_DBCS_ChatFrame_OnHyperlinkShow_link ) ) then
TraceFrame:AddMessage(link.." "..text);
--DBCS_ecrirecodedutexte(text);
end
end
	Saved_DBCS_ChatFrame_OnHyperlinkShow_link = link;
--	if (IsControlKeyDown() or IsShiftKeyDown()) then
--		return nil;
--	end
	if ( strsub(link, 1, 4) == "item" ) then
		inumobjet = nil;
		for a, _, _, _, _, _, a6, a7, _, _, _ in string.gmatch(link,"item:(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)") do
			inumobjet = tonumber(a);
			if ( IsControlKeyDown() ) then
				if ( IsAltKeyDown() ) then
					if ( IsShiftKeyDown() ) then
						if ( DBCS_HDV_exist == true ) then
							DBcorps_ListHDV_Reset();
							DBCORPS_HDV_CRITERES_numobjet = inumobjet;
							DBcorps_ListHDV_Update();
							if ( DBCORPS_HDV_LISTE_nb > 0 ) then
								DBcorps_init();
								PanelTemplates_SetTab(DBcorpsFrame, 9);
								DBcorps_ShowSubFrame(9);
							else
								PlaySound("igQuestFailed");
							end
						end
					else
						--DBcorps_AfficherObjet(inumobjet,"0:0:0:0:0:"..a6..":"..a7);
						DBcorps_AfficherObjet(inumobjet,"0:0:0:0:0:0:0:0:0:0");
					end
					return nil;
				else
					tobjet = DBobjets_numobjet_tableau_lire(inumobjet);
					tobjet = DBobjets_numobjet_tableau_lire_t;
					snom = tobjet[1];
					ipos = strfind(snom or "",": ");
					if ( ipos ) then
						snom = strsub(snom,ipos+2);
						inumobjet1 = -1;
						for inumobjet2, _ in pairs(DBOS01) do
							if ( DBOS01[inumobjet2][1] == snom ) then
								inumobjet1 = inumobjet2;
							end
						end
						for inumobjet2, _ in pairs(DBOS02) do
							if ( DBOS02[inumobjet2][1] == snom ) then
								inumobjet1 = inumobjet2;
							end
						end
						for inumobjet2, _ in pairs(DBOS03) do
							if ( DBOS03[inumobjet2][1] == snom ) then
								inumobjet1 = inumobjet2;
							end
						end
						if ( inumobjet1 > 0 ) then
							DressUpItemLink("item:"..inumobjet1..":0:0:0:0:0:0:0:0:0:0");
							return nil;
						else
							PlaySound("igQuestFailed");
						end
					end
				end
			end
			if ( Saved_DBCS_ChatFrame_OnHyperlinkShow_inumobjet == inumobjet ) then
				return nil;
			end
		end
		if ( inumobjet == nil ) then
			for a in string.gmatch(link,"item:(%d+)") do
				inumobjet = tonumber(a);
				if ( IsControlKeyDown() ) then
					if ( IsAltKeyDown() ) then
						DBcorps_AfficherObjet(inumobjet,"0:0:0:0:0:0:0:0:0:0");
						return nil;
					else
						tobjet = DBobjets_numobjet_tableau_lire(inumobjet);
						tobjet = DBobjets_numobjet_tableau_lire_t;
						snom = tobjet[1];
						ipos = strfind(snom,": ");
						if ( ipos ) then
							snom = strsub(snom,ipos+2);
							inumobjet1 = -1;
							for inumobjet2, _ in pairs(DBOS01) do
								if ( DBOS01[inumobjet2][1] == snom ) then
									inumobjet1 = inumobjet2;
								end
							end
							for inumobjet2, _ in pairs(DBOS02) do
								if ( DBOS02[inumobjet2][1] == snom ) then
									inumobjet1 = inumobjet2;
								end
							end
							for inumobjet2, _ in pairs(DBOS03) do
								if ( DBOS03[inumobjet2][1] == snom ) then
									inumobjet1 = inumobjet2;
								end
							end
							if ( inumobjet1 > 0 ) then
								DressUpItemLink("item:"..inumobjet1..":0:0:0:0:0:0:0:0:0:0");
								return nil;
							else
								PlaySound("igQuestFailed");
							end
						end
					end
				end
				if ( Saved_DBCS_ChatFrame_OnHyperlinkShow_inumobjet == inumobjet ) then
					return nil;
				end
			end
		end
		if ( inumobjet == nil ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("erreur DBCS_ChatFrame_OnHyperlinkShow");
if ( link ) then
TraceFrame:AddMessage("link ="..link);
end
if ( text ) then
TraceFrame:AddMessage("text ="..text);
end
end
			return nil;
		end
		DBobjets_initobjet(inumobjet);
		tablo = DBOS_detail(inumobjet,"0:0:0:0:0:0:0:0:0:0");
		if ( tablo.nomobjet ) then
			iprix = (tablo.prix or 0);
		else
			--DBobjets_initobjet(inumobjet);
			--DBobjets_force_creation_objet(inumobjet);
			iprix = 0;
		end
--		if ( iprix > 0 ) then
--			if ( not ( Saved_DBCS_ChatFrame_OnHyperlinkShow_inumobjet == inumobjet ) ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("prix de "..inumobjet.." : "..DBobjets_GetItemLink(inumobjet,"0:0:0:0:0:0:0:0:0:0").." : "..iprix.." pc.");
--end
--			end
--		end
		Saved_DBCS_ChatFrame_OnHyperlinkShow_inumobjet = inumobjet;
	elseif ( strsub(link, 1, 7) == "enchant" ) then
		if ( IsControlKeyDown() ) then
			if ( IsAltKeyDown() ) then
				for a in string.gmatch(link,"enchant:(%d+)") do
					inumobjet = tonumber(a);
					if ( DBOS_enchant[inumobjet] ) then
						senchant = DBOS_enchant[inumobjet][1];
						ipos = strfind(senchant,": ");
						if ( ipos ) then
							senchant = strsub(senchant,ipos+2);
						end
						DBCS_affichermob(senchant,"1");
					end
				end
			else
				for a in string.gmatch(link,"enchant:(%d+)") do
					inumobjet = tonumber(a);
					if ( DBOS_enchant[inumobjet] ) then
						senchant = DBOS_enchant[inumobjet][1];
						ipos = strfind(senchant,": ");
						if ( ipos ) then
							senchant = strsub(senchant,ipos+2);
						end
						inumobjet1 = -1;
						for inumobjet2, _ in pairs(DBOS01) do
							if ( DBOS01[inumobjet2][1] == senchant ) then
								inumobjet1 = inumobjet2;
							end
						end
						for inumobjet2, _ in pairs(DBOS02) do
							if ( DBOS02[inumobjet2][1] == senchant ) then
								inumobjet1 = inumobjet2;
							end
						end
						for inumobjet2, _ in pairs(DBOS03) do
							if ( DBOS03[inumobjet2][1] == senchant ) then
								inumobjet1 = inumobjet2;
							end
						end
						if ( inumobjet1 > 0 ) then
							DressUpItemLink("item:"..inumobjet1..":0:0:0:0:0:0:0:0:0:0");
				--	DBcorps_AfficherObjet(inumobjet1,"0:0:0:0:0:0:0:0:0:0");
						else
							PlaySound("igQuestFailed");
						end
					else
						PlaySound("igQuestFailed");
					end
				end
			end
		end
	elseif ( strsub(link, 1, 5) == "spell" ) then
		if ( IsControlKeyDown() ) then
			if ( IsAltKeyDown() ) then
				for a in string.gmatch(link,"spell:(%d+)") do
					inumobjet = tonumber(a);
					if ( DBOS_enchant[inumobjet] ) then
						senchant = DBOS_enchant[inumobjet][1];
						ipos = strfind(senchant,": ");
						if ( ipos ) then
							senchant = strsub(senchant,ipos+2);
						end
						DBCS_affichermob(senchant,"1");
					end
				end
			else
				for a in string.gmatch(link,"spell:(%d+)") do
					inumobjet = tonumber(a);
					if ( DBOS_enchant[inumobjet] ) then
						senchant = DBOS_enchant[inumobjet][1];
						ipos = strfind(senchant,": ");
						if ( ipos ) then
							senchant = strsub(senchant,ipos+2);
						end
						inumobjet1 = -1;
						for inumobjet2, _ in pairs(DBOS01) do
							if ( DBOS01[inumobjet2][1] == senchant ) then
								inumobjet1 = inumobjet2;
							end
						end
						for inumobjet2, _ in pairs(DBOS02) do
							if ( DBOS02[inumobjet2][1] == senchant ) then
								inumobjet1 = inumobjet2;
							end
						end
						for inumobjet2, _ in pairs(DBOS03) do
							if ( DBOS03[inumobjet2][1] == senchant ) then
								inumobjet1 = inumobjet2;
							end
						end
						if ( inumobjet1 > 0 ) then
							DressUpItemLink("item:"..inumobjet1..":0:0:0:0:0:0:0:0:0:0");
				--	DBcorps_AfficherObjet(inumobjet1,"0:0:0:0:0:0:0:0:0:0");
						else
							PlaySound("igQuestFailed");
						end
					else
						PlaySound("igQuestFailed");
					end
				end
			end
		end
	elseif ( strsub(link, 1, 5) == "quest" ) then
		if ( IsControlKeyDown() ) then
			if ( IsAltKeyDown() ) then
				for a , _ in string.gmatch(link,"quest:(%d+):(%p?%d+)") do
					inumquete = tonumber(a);
					DBCORPS_QUETES2_LISTE = {};
					DBCORPS_QUETES2_LISTE = DBquetes2_Liste_ajout(DBCORPS_QUETES2_LISTE,inumquete);
					DBCORPS_QUETES2_LISTE_nb = table.getn(DBCORPS_QUETES2_LISTE);
					--_G["DBcorpsFrame_Quetes2Frame_Criteres_Elements"]:SetText(DBCORPS_QUETES2_LISTE_nb.." \195\169l\195\169ments trouv\195\169s.");
					_G["DBcorpsFrame_Quetes2Frame_Criteres_Elements"]:SetText(format(DBCS_V_ELEMENTSTROUVES,DBCORPS_QUETES2_LISTE_nb));
					DBcorps_ListQuetes2_Trier();
					DBcorps_init();
					PanelTemplates_SetTab(DBcorpsFrame, 6);
					DBcorps_ShowSubFrame(6);
					FauxScrollFrame_SetOffset(DBcorpsFrame_Quetes2Frame_Liste_ScrollFrame,0);
					DBcorps_Quetes2_Scroll_Update();
				end
			end
		end
--	elseif ( strsub(link, 1, 4) == "unit" ) then
--		if ( DBCS_Model_Viewer_numcreature and IsControlKeyDown() ) then
--			if ( IsAltKeyDown() ) then
--				for sGUID, _ in string.gmatch(link,"unit:(.+):(.+)") do
----if ( DBCS_debug > 1 ) then
----TraceFrame:AddMessage("sGUID = "..sGUID);
----end
--					if ( strsub(sGUID,1,2) == "0x" ) then
--						sGUID_1_2 = strsub(sGUID,3,4);
--						if ( sGUID_1_2 == "00" ) then
--						else
--							sGUID_3 = strsub(sGUID,5,5);
--							if ( sGUID_3 == "3" or sGUID_3 == "5" ) then
--								sGUID_7_10 = strsub(sGUID,9,12);
--								iGUID_7_10 = tonumber(sGUID_7_10,16);
--								DBCS_Model_Viewer_DressUpFrameModel_cache:SetModel("creature/invisiblestalker/invisiblestalker.m2");
--								DBCS_Model_Viewer_DressUpFrameModel_cache:SetCreature(iGUID_7_10);
--								smodel = DBCS_Model_Viewer_DressUpFrameModel_cache:GetModel();
--								if ( smodel == "creature\\invisiblestalker\\invisiblestalker.m2" ) then
--								else
--									DBCS_Model_Viewer_numcreature = iGUID_7_10;
--									ShowUIPanel(DBCS_Model_Viewer_DressUpFrame);
--									DBCS_Model_Viewer_creature_afficher();
--								end
--							end
--						end
--					end
--				end
--			end
--		end
	else
		--Saved_DBCS_ChatFrame_OnHyperlinkShow(self,link,text,button);
		--DBCS_ecrirecodedutexte(text);
	end

end
ChatFrame_OnHyperlinkShow = DBCS_ChatFrame_OnHyperlinkShow;

--local Saved_DBCS_SetItemRef = SetItemRef;
--function DBCS_SetItemRef(link, text, button)
--
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage(link);
--end
--	Saved_DBCS_SetItemRef(link,text,button);
--
--end
--SetItemRef = DBCS_SetItemRef;

local Saved_DBCS_ChatFrame_OnEvent = ChatFrame_OnEvent;
function DBCS_ChatFrame_OnEvent(self,event,...)

local arg1 = ...;

	local scode;

--TraceFrame:AddMessage("DBCS_ChatFrame_OnEvent : "..event);
	if ( event == "CHAT_MSG_PARTY" ) then
	elseif ( event == "CHAT_MSG_RAID" ) then
	elseif ( strsub(event,1,16) == "CHAT_MSG_WHISPER" ) then
		if ( strsub(arg1,1,7) == "@ADBCS@" ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("ADBCS_ChatFrame_OnEvent : "..event.." : "..arg1);
--end
			return nil;
		elseif ( strsub(arg1,1,6) == "@DBCS@" ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_ChatFrame_OnEvent : "..event.." : "..arg1);
--end
			return nil;
		end
	end
	Saved_DBCS_ChatFrame_OnEvent(self,event,...);
end
ChatFrame_OnEvent = DBCS_ChatFrame_OnEvent;

--GameTooltip:Hide();
--local Saved_DBCS_GameTooltip_Hide = GameTooltip:GetScript("Hide");
--function DBCS_GameTooltip_Hide()
--	DBCS_prix_numobjet = -1;
--	Saved_DBCS_GameTooltip_Hide();
--end
--GameTooltip:SetScript("Hide",DBCS_GameTooltip_Hide);

--GameTooltip:SetBuybackItem(this:GetID());
--local Saved_DBCS_GameTooltip_SetBuybackItem = GameTooltip:GetScript("SetBuybackItem");
--function DBCS_GameTooltip_SetBuybackItem()
--	DBCS_prix_bag = -1;
--	DBCS_prix_slot = -1;
--	Saved_DBCS_GameTooltip_SetBuybackItem();
--end
--GameTooltip:SetScript("SetBuybackItem",DBCS_GameTooltip_SetBuybackItem);

--OnTooltipAddMoney: function(self,cost) 

-- à hooker
--GameTooltip:OnTooltipAddMoney(money);

--TradeSkillReagent8
--TradeSkillReagent:OnClick();
--local Saved_DBCS_TradeSkillReagent_OnClick = TradeSkillItemTemplate:GetScript("OnClick");
--function DBCS_TradeSkillReagent_OnClick()

--	if ( IsAltKeyDown() ) then
--	else
--		if ( Saved_DBCS_TradeSkillReagent_OnClick ) then
--			Saved_DBCS_TradeSkillReagent_OnClick();
--		else
--			if ( IsControlKeyDown() ) then
--				DressUpItemLink(GetTradeSkillReagentItemLink(TradeSkillFrame.selectedSkill, this:GetID()));
--			elseif ( IsShiftKeyDown() ) then
--				if ( ChatFrameEditBox:IsVisible() ) then
--					ChatFrameEditBox:Insert(GetTradeSkillReagentItemLink(TradeSkillFrame.selectedSkill, this:GetID()));
--				end
--			end
--		end
--	end

--end
--TradeSkillItemTemplate:SetScript("OnClick",DBCS_TradeSkillReagent_OnClick);
--TradeSkillReagent2:SetScript("OnClick",DBCS_TradeSkillReagent_OnClick);
--TradeSkillReagent3:SetScript("OnClick",DBCS_TradeSkillReagent_OnClick);
--TradeSkillReagent4:SetScript("OnClick",DBCS_TradeSkillReagent_OnClick);
--TradeSkillReagent5:SetScript("OnClick",DBCS_TradeSkillReagent_OnClick);
--TradeSkillReagent6:SetScript("OnClick",DBCS_TradeSkillReagent_OnClick);
--TradeSkillReagent7:SetScript("OnClick",DBCS_TradeSkillReagent_OnClick);
--TradeSkillReagent8:SetScript("OnClick",DBCS_TradeSkillReagent_OnClick);

--SetHyperlink(link)

--function DBCS_GameTooltip_SetHyperlink(link)

--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("link = "..link);
--end

	--Saved_DBCS_GameTooltip_SetBagItem(bag,slot);
	
--end
--GameTooltip:SetScript("SetBagItem",DBCS_GameTooltip_SetBagItem);

--hooksecurefunc(GameTooltip,"SetHyperlink", DBCS_GameTooltip_SetHyperlink);

--SetBagItem(bag, slot)

--local Saved_DBCS_GameTooltip_SetBagItem = GameTooltip:GetScript("SetBagItem");
--function DBCS_GameTooltip_SetBagItem(bag,slot)

--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("bag = "..bag.." , slot = "..slot);
--end

	--Saved_DBCS_GameTooltip_SetBagItem(bag,slot);
	
--end
--GameTooltip:SetScript("SetBagItem",DBCS_GameTooltip_SetBagItem);

--hooksecurefunc(GameTooltip,"SetBagItem", DBCS_GameTooltip_SetBagItem);

--local Saved_DBCS_SetBagItem = SetBagItem(bag,slot);
--function DBCS_SetBagItem(bag,slot)
--
--	Saved_DBCS_SetBagItem(bag,slot);
--	
--end
--SetBagItem = DBCS_SetBagItem;

--	SetBagItem
--local Saved_DBCS_GameTooltip_SetBagItem = GameTooltip:GetScript("SetBagItem");
--function DBCS_GameTooltip_SetBagItem(bag,slot)

--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS : bag = "..bag.." , slot = "..slot);
--end
--if ( DBCS_debug > 1 ) then
--	if ( arg1 ) then
--		TraceFrame:AddMessage("arg1 = "..arg1);
--	end
--	if ( arg2 ) then
--		TraceFrame:AddMessage("arg2 = "..arg2);
--	end
--end

--	return Saved_DBCS_GameTooltip_SetBagItem(bag,slot);

--end
--GameTooltip:SetScript("SetBagItem",DBCS_GameTooltip_SetBagItem);
--hooksecurefunc(GameTooltip , "SetBagItem" , DBCS_GameTooltip_SetBagItem);

--	WorldMapFrame
--local Saved_DBCS_WorldMapFrame_OnUpdate = WorldMapFrame:GetScript("OnUpdate");
--function DBCS_WorldMapFrame_OnUpdate()
--	Saved_DBCS_WorldMapFrame_OnUpdate();
--	--DBCS_guilde_loc();
--end
--WorldMapFrame:SetScript("OnUpdate",DBCS_WorldMapFrame_OnUpdate);

local DBCS_GameTooltip_OnTooltipSetItem_inumobjet = nil;
--local DBCS_GameTooltip_OnTooltipSetItem_premier = nil;
--	OnTooltipSetItem
local Saved_DBCS_GameTooltip_OnTooltipSetItem = GameTooltip:GetScript("OnTooltipSetItem");
function DBCS_GameTooltip_OnTooltipSetItem(self)

	Saved_DBCS_GameTooltip_OnTooltipSetItem(self);

local nomframe;
local tablo;
local sname;
local slink;
local inumobjet;
local iloc;
--local a = nil;
--local b = nil;
--local nb;
local bafficher;
local sfaction;
local ifaction;
local sDBCS_HDV_stats;
local imontant;
local stimescan;
local oparent;
local tobjet;

	if ( MerchantFrame:IsShown() ) then
		sname, slink = GameTooltip:GetItem();
		if ( slink ) then
			for _, b, _, _, _, _, _, _, _, _, _, _, _ in string.gmatch(slink,"(.+):(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)%|%h%[(.+)%](.+)") do
				inumobjet = tonumber(b);
				if ( inumobjet and inumobjet > 0 ) then
					bafficher = true;
					if ( DBOS01 and DBOS02 and DBOS03 ) then
						tobjet = DBobjets_numobjet_tableau_lire(inumobjet);
						tobjet = DBobjets_numobjet_tableau_lire_t;
						if ( tobjet and tobjet[98] ) then
							if ( DBCS_GameTooltip_OnTooltipSetItem_inumobjet and DBCS_GameTooltip_OnTooltipSetItem_inumobjet == inumobjet ) then
								DBCS_GameTooltip_OnTooltipSetItem_inumobjet = nil;
							else
								DBCS_GameTooltip_OnTooltipSetItem_inumobjet = inumobjet;
								bafficher = false;
							end
						end
					end
					if ( bafficher == true ) then
						tablo = DBOS_detail(inumobjet,"0:0:0:0:0:0:0:0:0:0");
						if ( tablo and tablo.stackcount and tablo.stackcount > 1 ) then
							GameTooltip:AddLine("("..tablo.stackcount.." max)", "", 1, 1, 1);
						end
						DBobjets_tooltip_surqui(GameTooltip,inumobjet);
						if ( DBCS_afficher_HDV_stats and DBCS_afficher_HDV_stats == true ) then
							if ( DBCS_HDV_stats ) then
								sfaction, _ = UnitFactionGroup("player");
								ifaction = nil;
								if ( sfaction == "Alliance" ) then
									ifaction = 1;
								elseif ( sfaction == "Horde" ) then
									ifaction = 2;
								end
								if ( ifaction ) then
									sDBCS_HDV_stats = DBCS_serveur.."@"..ifaction.."@";
									if ( DBCS_HDV_stats[sDBCS_HDV_stats] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet] ) then
										GameTooltip:AddLine("Statistiques DBCS de l'HDV", 0, 1, 1, "");
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][1] ) then
											imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][1] * 10000 ) + .5 );
											GameTooltip:AddDoubleLine("Montant de l'alerte", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
										end
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][11] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][12] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][12] > 0 ) then
											imontant = floor( ( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][11] / DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][12] ) * 10000 ) + .5 );
											GameTooltip:AddDoubleLine("Moyenne pond\195\169r\195\169e unitaire", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
										end
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][9] ) then
											imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][9] * 10000 ) + .5 );
											GameTooltip:AddDoubleLine("Montant ench\195\168re valid\195\169e la + haute jamais vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
										end
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][5] ) then
											imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][5] * 10000 ) + .5 );
											GameTooltip:AddDoubleLine("Prix d'achat direct le + bas jamais vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
										end
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][3] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4] ) then
											stimescan = "";
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][3] ) then
												stimescan = stimescan..DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][3].." ";
											end
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4] ) then
												stimescan = stimescan..strsub(DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4],1,2).."h"..strsub(DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4],3,4).."m"..strsub(DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4],5,6).."s";
											end
											GameTooltip:AddDoubleLine("Date et Heure du dernier scan vu", stimescan, 1,1,1, 1,1,1);
										end
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][13] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][14] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][14] > 0 ) then
											imontant = floor( ( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][13] / DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][14] ) * 10000 ) + .5 );
											GameTooltip:AddDoubleLine("Moyenne pond\195\169r\195\169e unitaire dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
										end
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][10] ) then
											imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][10] * 10000 ) + .5 );
											GameTooltip:AddDoubleLine("Montant ench\195\168re valid\195\169e la + haute dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
										end
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][6] ) then
											imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][6] * 10000 ) + .5 );
											GameTooltip:AddDoubleLine("Prix d'achat direct le + bas dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
											imontant = floor( ( imontant * .95 ) + .5 );
											GameTooltip:AddDoubleLine("95% du prix d'achat direct le + bas dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
										end
									end
								end
							end
						end
					end
				end
			end
		end
	else
		nomframe = self:GetName();
		if ( nomframe ) then
			oparent = self:GetOwner();
			if ( oparent ) then
				nomframe = oparent:GetName();
			else
				nomframe = nil;
			end
		end
		if ( nomframe and strsub(nomframe,1,14) == "ContainerFrame" ) then
			iloc = strfind(nomframe,"Portrait");
			if ( iloc ) then
				DBCS_prix_numobjet2 = -1;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_GameTooltip_OnTooltipSetItem DBCS_prix_numobjet2 = "..DBCS_prix_numobjet2);
--end
			end
		--	DBCS_prix_numobjet
			--TraceFrame:AddMessage("OnTooltipSetItem : DBCS_prix_numobjet2 = "..DBCS_prix_numobjet2);
			if ( DBCS_prix_numobjet2 > -1 ) then
				bafficher = true;
				if ( DBOS01 and DBOS02 and DBOS03 ) then
					tobjet = DBobjets_numobjet_tableau_lire(DBCS_prix_numobjet2);
					tobjet = DBobjets_numobjet_tableau_lire_t;
					if ( tobjet and tobjet[98] ) then
						if ( DBCS_GameTooltip_OnTooltipSetItem_inumobjet and DBCS_GameTooltip_OnTooltipSetItem_inumobjet == DBCS_prix_numobjet2 ) then
							DBCS_GameTooltip_OnTooltipSetItem_inumobjet = nil;
						else
							DBCS_GameTooltip_OnTooltipSetItem_inumobjet = DBCS_prix_numobjet2;
							bafficher = false;
						end
					end
				end
				if ( bafficher == true ) then
					tablo = DBOS_detail(DBCS_prix_numobjet2,"0:0:0:0:0:0:0:0:0:0");
					--if ( tablo and tablo.prix ) then
					--	if ( tablo.prix > 0 ) then
							--if ( tablo.stackcount and tablo.stackcount > 1 ) then
							--	if ( DBCS_prix_nb ) then
							--		GameTooltip:AddLine("Prix de vente ("..DBCS_prix_nb.."/"..tablo.stackcount..")", "", 1, 1, 1);
							--	else
							--		GameTooltip:AddLine("Prix de vente ("..tablo.stackcount.." max)", "", 1, 1, 1);
							--	end
							--else
							--	GameTooltip:AddLine("Prix de vente", "", 1, 1, 1);
							--end
							--if ( DBCS_prix_nb and DBCS_prix_nb > 1 ) then
							--	SetTooltipMoney(GameTooltip, tablo.prix*DBCS_prix_nb);
							--else
							--	SetTooltipMoney(GameTooltip, tablo.prix);
							--	----	GetSellValue
							--	--GameTooltip:AddLine("Valuation", "", 1, 1, 1);
							--	--SetTooltipMoney(GameTooltip, GetSellValue(DBCS_prix_numobjet2));
							--end
							----GameTooltip:Show();
							------ShowContainerSellCursor(self:GetParent():GetID(),button:GetID());
					--	else
					--		if ( tablo.stackcount and tablo.stackcount > 1 ) then
					--			GameTooltip:AddLine("("..tablo.stackcount.." max)", "", 1, 1, 1);
					--			----GameTooltip:Show();
					--		end
					--		--GameTooltip:AddLine("Pas de prix de vente", 1, 1, 1);
					--		----GameTooltip:Show();
					--	end
					--else
						if ( tablo and tablo.stackcount and tablo.stackcount > 1 ) then
							GameTooltip:AddLine("("..tablo.stackcount.." max)", "", 1, 1, 1);
							--GameTooltip:Show();
						end
					--end
					DBobjets_tooltip_surqui(GameTooltip,DBCS_prix_numobjet2);
					if ( DBCS_afficher_HDV_stats and DBCS_afficher_HDV_stats == true ) then
						if ( DBCS_HDV_stats ) then
							sfaction, _ = UnitFactionGroup("player");
							ifaction = nil;
							if ( sfaction == "Alliance" ) then
								ifaction = 1;
							elseif ( sfaction == "Horde" ) then
								ifaction = 2;
							end
							if ( ifaction ) then
								sDBCS_HDV_stats = DBCS_serveur.."@"..ifaction.."@";
								if ( DBCS_HDV_stats[sDBCS_HDV_stats] and DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2] ) then
									GameTooltip:AddLine("Statistiques DBCS de l'HDV", 0, 1, 1, "");
									if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][1] ) then
										imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][1] * 10000 ) + .5 );
										GameTooltip:AddDoubleLine("Montant de l'alerte", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
									end
									if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][11] and DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][12] and DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][12] > 0 ) then
										imontant = floor( ( ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][11] / DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][12] ) * 10000 ) + .5 );
										GameTooltip:AddDoubleLine("Moyenne pond\195\169r\195\169e unitaire", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
									end
									if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][9] ) then
										imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][9] * 10000 ) + .5 );
										GameTooltip:AddDoubleLine("Montant ench\195\168re valid\195\169e la + haute jamais vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
									end
									if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][5] ) then
										imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][5] * 10000 ) + .5 );
										GameTooltip:AddDoubleLine("Prix d'achat direct le + bas jamais vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
									end
									if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][3] and DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][4] ) then
										stimescan = "";
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][3] ) then
											stimescan = stimescan..DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][3].." ";
										end
										if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][4] ) then
											stimescan = stimescan..strsub(DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][4],1,2).."h"..strsub(DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][4],3,4).."m"..strsub(DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][4],5,6).."s";
										end
										GameTooltip:AddDoubleLine("Date et Heure du dernier scan vu", stimescan, 1,1,1, 1,1,1);
									end
									if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][13] and DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][14] and DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][14] > 0 ) then
										imontant = floor( ( ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][13] / DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][14] ) * 10000 ) + .5 );
										GameTooltip:AddDoubleLine("Moyenne pond\195\169r\195\169e unitaire dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
									end
									if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][10] ) then
										imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][10] * 10000 ) + .5 );
										GameTooltip:AddDoubleLine("Montant ench\195\168re valid\195\169e la + haute dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
									end
									if ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][6] ) then
										imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][DBCS_prix_numobjet2][6] * 10000 ) + .5 );
										GameTooltip:AddDoubleLine("Prix d'achat direct le + bas dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
										imontant = floor( ( imontant * .95 ) + .5 );
										GameTooltip:AddDoubleLine("95% du prix d'achat direct le + bas dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
									end
								end
							end
						end
					end
				end
			end
		else
			sname, slink = GameTooltip:GetItem();
			if ( slink ) then
				for _, b, _, _, _, _, _, _, _, _, _, _, _ in string.gmatch(slink,"(.+):(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)%|%h%[(.+)%](.+)") do
					inumobjet = tonumber(b);
					if ( inumobjet and inumobjet > 0 ) then
						bafficher = true;
						if ( DBOS01 and DBOS02 and DBOS03 ) then
							tobjet = DBobjets_numobjet_tableau_lire(inumobjet);
							tobjet = DBobjets_numobjet_tableau_lire_t;
							if ( tobjet and tobjet[98] ) then
								if ( DBCS_GameTooltip_OnTooltipSetItem_inumobjet and DBCS_GameTooltip_OnTooltipSetItem_inumobjet == inumobjet ) then
									DBCS_GameTooltip_OnTooltipSetItem_inumobjet = nil;
								else
									DBCS_GameTooltip_OnTooltipSetItem_inumobjet = inumobjet;
									bafficher = false;
								end
							end
						end
						if ( bafficher == true ) then
							tablo = DBOS_detail(inumobjet,"0:0:0:0:0:0:0:0:0:0");
							--if ( tablo and tablo.prix ) then
							--	if ( tablo.prix > 0 ) then
							--		if ( tablo.stackcount and tablo.stackcount > 1 ) then
							--			GameTooltip:AddLine("Prix de vente \195\160 l'unit\195\169 ("..tablo.stackcount.." max)", "", 1, 1, 1);
							--		else
							--			GameTooltip:AddLine("Prix de vente", "", 1, 1, 1);
							--		end
							--		SetTooltipMoney(GameTooltip, tablo.prix);
							--		--GameTooltip:Show();
							--	else
							--		if ( tablo.stackcount and tablo.stackcount > 1 ) then
							--			GameTooltip:AddLine("("..tablo.stackcount.." max)", "", 1, 1, 1);
							--			--GameTooltip:Show();
							--		end
							--		GameTooltip:AddLine("Pas de prix de vente", 1, 1, 1);
							--		--GameTooltip:Show();
							--	end
							--else
								if ( tablo.stackcount and tablo.stackcount > 1 ) then
									GameTooltip:AddLine("("..tablo.stackcount.." max)", "", 1, 1, 1);
									--GameTooltip:Show();
								end
							--end
							DBobjets_tooltip_surqui(GameTooltip,inumobjet);
							if ( DBCS_afficher_HDV_stats and DBCS_afficher_HDV_stats == true ) then
								if ( DBCS_HDV_stats ) then
									sfaction, _ = UnitFactionGroup("player");
									ifaction = nil;
									if ( sfaction == "Alliance" ) then
										ifaction = 1;
									elseif ( sfaction == "Horde" ) then
										ifaction = 2;
									end
									if ( ifaction ) then
										sDBCS_HDV_stats = DBCS_serveur.."@"..ifaction.."@";
										if ( DBCS_HDV_stats[sDBCS_HDV_stats] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet] ) then
											GameTooltip:AddLine("Statistiques DBCS de l'HDV", 0, 1, 1, "");
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][1] ) then
												imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][1] * 10000 ) + .5 );
												GameTooltip:AddDoubleLine("Montant de l'alerte", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
											end
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][11] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][12] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][12] > 0 ) then
												imontant = floor( ( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][11] / DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][12] ) * 10000 ) + .5 );
												GameTooltip:AddDoubleLine("Moyenne pond\195\169r\195\169e unitaire", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
											end
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][9] ) then
												imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][9] * 10000 ) + .5 );
												GameTooltip:AddDoubleLine("Montant ench\195\168re valid\195\169e la + haute jamais vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
											end
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][5] ) then
												imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][5] * 10000 ) + .5 );
												GameTooltip:AddDoubleLine("Prix d'achat direct le + bas jamais vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
											end
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][3] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4] ) then
												stimescan = "";
												if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][3] ) then
													stimescan = stimescan..DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][3].." ";
												end
												if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4] ) then
													stimescan = stimescan..strsub(DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4],1,2).."h"..strsub(DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4],3,4).."m"..strsub(DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][4],5,6).."s";
												end
												GameTooltip:AddDoubleLine("Date et Heure du dernier scan vu", stimescan, 1,1,1, 1,1,1);
											end
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][13] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][14] and DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][14] > 0 ) then
												imontant = floor( ( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][13] / DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][14] ) * 10000 ) + .5 );
												GameTooltip:AddDoubleLine("Moyenne pond\195\169r\195\169e unitaire dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
											end
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][10] ) then
												imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][10] * 10000 ) + .5 );
												GameTooltip:AddDoubleLine("Montant ench\195\168re valid\195\169e la + haute dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
											end
											if ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][6] ) then
												imontant = floor( ( DBCS_HDV_stats[sDBCS_HDV_stats][inumobjet][6] * 10000 ) + .5 );
												GameTooltip:AddDoubleLine("Prix d'achat direct le + bas dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
												imontant = floor( ( imontant * .95 ) + .5 );
												GameTooltip:AddDoubleLine("95% du prix d'achat direct le + bas dernier scan vu", DBCS_montant_vers_chaine(imontant), 1,1,1, 1,1,1);
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
	--for a, b in string.gmatch(nomframe,"ContainerFrame(%d+)Item(%d+)") do
	--	if ( a ) then
	--		a = a - 1;
	--		nb = GetContainerNumSlots(a);
	--		b = (nb+1)-b;
	--		TraceFrame:AddMessage("DBCS_GameTooltip_OnTooltipSetItem : bag = "..a.." , slot = "..b);
	--	end
	--end


--local a,b = GameTooltip:GetItem();



--	ContainerFrame(%d+)Item(%d+)

if ( DBCS_debug > 1 ) then
--	if ( a and b ) then
--		TraceFrame:AddMessage(a.." = "..b);
--	end
--	if ( arg1 ) then
--	GetContainerNumSlots(bagID
		--TraceFrame:AddMessage("OnTooltipSetItem = "..nomframe);
		--TraceFrame:AddMessage("OnTooltipSetItem : bag = "..self:GetParent():GetID().." slot = "..self:GetID());
--	end
--	if ( arg2 ) then
--		TraceFrame:AddMessage("arg2 = "..arg2);
--	end
--	if ( arg3 ) then
--		TraceFrame:AddMessage("arg3 = "..arg3);
--	end
--	if ( arg4 ) then
--		TraceFrame:AddMessage("arg4 = "..arg4);
--	end
--	if ( arg5 ) then
--		TraceFrame:AddMessage("arg5 = "..arg5);
--	end
end
	--DBCS_prix_prix = arg1;

end
GameTooltip:SetScript("OnTooltipSetItem",DBCS_GameTooltip_OnTooltipSetItem);

--	ContainerFrame_Update
--local Saved_DBCS_ContainerFrame_Update = ContainerFrame_Update;
--function DBCS_ContainerFrame_Update(frame)
--	TraceFrame:AddMessage("ContainerFrame_Update = "..this:GetName());
--	Saved_DBCS_ContainerFrame_Update(frame);
--end
--ContainerFrame_Update = DBCS_ContainerFrame_Update;

--	ContainerFrame_UpdateLocked(frame)
--local Saved_DBCS_ContainerFrame_UpdateLocked = ContainerFrame_UpdateLocked;
--function DBCS_ContainerFrame_UpdateLocked(frame)
--	TraceFrame:AddMessage("ContainerFrame_UpdateLocked = "..this:GetName());
--	Saved_DBCS_ContainerFrame_UpdateLocked(frame);
--end
--ContainerFrame_UpdateLocked = DBCS_ContainerFrame_UpdateLocked;

--	ContainerFrame_UpdateLockedItem(frame, slot)
--local Saved_DBCS_ContainerFrame_UpdateLockedItem = ContainerFrame_UpdateLockedItem;
--function DBCS_ContainerFrame_UpdateLockedItem(frame,slot)
--	TraceFrame:AddMessage("ContainerFrame_UpdateLockedItem = "..this:GetName());
--	Saved_DBCS_ContainerFrame_UpdateLockedItem(frame,slot);
--end
--ContainerFrame_UpdateLockedItem = DBCS_ContainerFrame_UpdateLockedItem;

--	ContainerFrame_UpdateCooldowns(frame)
--local Saved_DBCS_ContainerFrame_UpdateCooldowns = ContainerFrame_UpdateCooldowns;
--function DBCS_ContainerFrame_UpdateCooldowns(frame)
--	TraceFrame:AddMessage("ContainerFrame_UpdateCooldowns = "..this:GetName());
--	Saved_DBCS_ContainerFrame_UpdateCooldowns(frame);
--end
--ContainerFrame_UpdateCooldowns = DBCS_ContainerFrame_UpdateCooldowns;

--	ContainerFrame_UpdateCooldown(container, button)
--local Saved_DBCS_ContainerFrame_UpdateCooldown = ContainerFrame_UpdateCooldown;
--function DBCS_ContainerFrame_UpdateCooldown(container, button)
--	TraceFrame:AddMessage("ContainerFrame_UpdateCooldown = "..this:GetName());
--	Saved_DBCS_ContainerFrame_UpdateCooldown(container, button);
--end
--ContainerFrame_UpdateCooldown = DBCS_ContainerFrame_UpdateCooldown;

--	ContainerFrameItemButton_OnModifiedClick(button)
--local Saved_DBCS_ContainerFrameItemButton_OnModifiedClick = ContainerFrameItemButton_OnModifiedClick;
--function DBCS_ContainerFrameItemButton_OnModifiedClick(button)
--	TraceFrame:AddMessage("ContainerFrameItemButton_OnModifiedClick = "..this:GetName());
--	Saved_DBCS_ContainerFrameItemButton_OnModifiedClick(button);
--end
--ContainerFrameItemButton_OnModifiedClick = DBCS_ContainerFrameItemButton_OnModifiedClick;


--ContainerFrameItemButton_OnEnter()
--ContainerFrameItemButton_OnEnter(button)

--local Saved_DBCS_ContainerFrameItemButtonTemplate_OnLeave = ContainerFrameTemplateItem1:GetScript("OnLeave");
function DBCS_ContainerFrameItemButtonTemplate_OnLeave()

	GameTooltip:Hide();
	ResetCursor();
	--Saved_DBCS_ContainerFrameItemButtonTemplate_OnLeave();
--TraceFrame:AddMessage("quitte ContainerFrameItemButtonTemplate");
	DBCS_prix_numobjet2 = -1;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_ContainerFrameItemButtonTemplate_OnLeave DBCS_prix_numobjet2 = "..DBCS_prix_numobjet2);
--end

end
--ContainerFrameTemplateItem1:SetScript("OnLeave",DBCS_ContainerFrameItemButtonTemplate_OnLeave);

--function ContainerFrameItemButton_OnModifiedClick(button)
--	if ( HandleModifiedItemClick(GetContainerItemLink(this:GetParent():GetID(), this:GetID())) ) then
--		return;
--	end
--	if ( IsModifiedClick("SOCKETITEM") ) then
--		SocketContainerItem(this:GetParent():GetID(), this:GetID());
--	end
--	if ( IsModifiedClick("SPLITSTACK") ) then
--		local texture, itemCount, locked = GetContainerItemInfo(this:GetParent():GetID(), this:GetID());
--		if ( not locked ) then
--			if ( button ~= "LeftButton" and MerchantFrame:IsShown() and MerchantFrame.selectedTab ~= 2 ) then
--				this.SplitStack = function(button, split)
--					SplitContainerItem(button:GetParent():GetID(), button:GetID(), split);
--					MerchantItemButton_OnClick("LeftButton");
--				end
--			else
--				this.SplitStack = function(button, split)
--					SplitContainerItem(button:GetParent():GetID(), button:GetID(), split);
--				end
--			end
--			OpenStackSplitFrame(this.count, this, "BOTTOMRIGHT", "TOPRIGHT");
--		end
--		return;
--	end
--end

function DBCS_ContainerFrameItemButton_OnModifiedClick(self,button)
--local a_bag;
--local a_slot;

--	a_bag	= this:GetParent():GetID();
--	a_slot	= this:GetID();
--
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("bag = "..a_bag.." , slot = "..a_slot);
--end
	if ( button == "LeftButton" ) then
		if ( DBCS_prix_numobjet2 > 0 and IsControlKeyDown() and IsAltKeyDown() ) then
			if ( IsShiftKeyDown() ) then
				if ( DBCS_HDV_exist == true ) then
					DBcorps_ListHDV_Reset();
					DBCORPS_HDV_CRITERES_numobjet = DBCS_prix_numobjet2;
					DBcorps_ListHDV_Update();
					if ( DBCORPS_HDV_LISTE_nb > 0 ) then
						DBcorps_init();
						PanelTemplates_SetTab(DBcorpsFrame, 9);
						DBcorps_ShowSubFrame(9);
					else
						PlaySound("igQuestFailed");
					end
				end
			else
				DBcorps_AfficherObjet(DBCS_prix_numobjet2,"0:0:0:0:0:0:0:0:0:0");
			end
		end
	end
end
hooksecurefunc("ContainerFrameItemButton_OnModifiedClick", DBCS_ContainerFrameItemButton_OnModifiedClick);

--					ContainerFrameItemButton_OnClick(arg1);
--local Saved_DBCS_ContainerFrameItemButton_OnClick = ContainerFrameItemButton_OnClick;
--function DBCS_ContainerFrameItemButton_OnClick(button)

--local a_bag;
--local a_slot;

--	a_bag	= this:GetParent():GetID();
--	a_slot	= this:GetID();
--
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("bag = "..a_bag.." , slot = "..a_slot);
--end

--	if ( button == "LeftButton" ) then
--		if ( DBCS_prix_numobjet > 0 and IsControlKeyDown() and IsAltKeyDown() ) then
--			DBcorps_AfficherObjet(DBCS_prix_numobjet,"0:0:0:0:0:0:0:0:0:0");
--			--return nil;
--		end
--	end
--	Saved_DBCS_ContainerFrameItemButton_OnClick(button);
--	if ( button == "LeftButton" ) then
--		if ( SpellCanTargetItem() ) then
--			-- Target the spell with the selected item
--			UseContainerItem(this:GetParent():GetID(), this:GetID());
--		else
--			PickupContainerItem(this:GetParent():GetID(), this:GetID());
--		end
--		StackSplitFrame:Hide();
--	else
--		if ( MerchantFrame:IsShown() and MerchantFrame.selectedTab == 2 ) then
--			-- Don't sell the item if the buyback tab is selected
--			return;
--		end
--		UseContainerItem(this:GetParent():GetID(), this:GetID());
--		StackSplitFrame:Hide();
--	end
--end
--ContainerFrameItemButton_OnClick = DBCS_ContainerFrameItemButton_OnClick;
--hooksecurefunc("ContainerFrameItemButton_OnClick", DBCS_ContainerFrameItemButton_OnClick);

local Saved_DBCS_GameTooltip_OnTooltipAddMoney = GameTooltip:GetScript("OnTooltipAddMoney");
function DBCS_GameTooltip_OnTooltipAddMoney(self,cost)

	DBCS_prix_prix = cost;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_GameTooltip_OnTooltipAddMoney : arg1 = "..(arg1 or ""));
--end

	Saved_DBCS_GameTooltip_OnTooltipAddMoney(self,cost);

end
GameTooltip:SetScript("OnTooltipAddMoney",DBCS_GameTooltip_OnTooltipAddMoney);

local Saved_DBCS_ContainerFrameItemButton_OnEnter = ContainerFrameItemButton_OnEnter;
function DBCS_ContainerFrameItemButton_OnEnter(self,motion)

	local link;
	local nb;
	local b;
	local c,d,e;
	local tablo;

	DBCS_desenchant_numobjet = 0;
	DBCS_prix_bag	= self:GetParent():GetID();
	DBCS_prix_slot	= self:GetID();
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("bag = "..DBCS_prix_bag.." , slot = "..DBCS_prix_slot);
--end
	_, DBCS_prix_nb, _, _, _ = GetContainerItemInfo(DBCS_prix_bag,DBCS_prix_slot);
	link = GetContainerItemLink(DBCS_prix_bag,DBCS_prix_slot);
--	"|cffffffff|Hitem:10000:0:0:0|h[blabla]|h|r");
	DBCS_prix_numobjet = -1;
	DBCS_prix_numobjet2 = -1;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_ContainerFrameItemButton_OnEnter 1 DBCS_prix_numobjet2 = "..DBCS_prix_numobjet2);
--end
	DBCS_prix_numcourt2 = -1;
	if ( link ) then
		for _, b, c, _, _, _, _, d, _, _, _, _, _, _ in string.gmatch(link,"(.+):(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)%|%h%[(.+)%](.+)") do
			DBCS_prix_numobjet = tonumber(b);
			DBCS_prix_numobjet2 = DBCS_prix_numobjet;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_ContainerFrameItemButton_OnEnter 2 DBCS_prix_numobjet2 = "..DBCS_prix_numobjet2);
--end
			DBCS_prix_numcourt2 = tonumber(c)..":0:0:0:0:"..tonumber(d)..":0:0:0:0";
			DBCS_desenchant_numobjet = DBCS_prix_numobjet;
		end
	end
	
	DBCS_prix_prix = nil;

	Saved_DBCS_ContainerFrameItemButton_OnEnter(self,motion);
	--InRepairMode()

--	if ( MerchantFrame:IsShown() ) then
--	else
--		if ( DBCS_prix_numobjet > -1 ) then
--			tablo = DBOS_detail(DBCS_prix_numobjet,"0:0:0:0:0:0:0:0:0:0");
--			if ( tablo and tablo.prix and tablo.prix > 0 ) then
--				if ( tablo.stackcount and tablo.stackcount > 1 ) then
--					if ( DBCS_prix_nb ) then
--						--GameTooltip:AddLine("Prix de vente ("..DBCS_prix_nb.."/"..tablo.stackcount..")", "", 1, 1, 1);
--					else
--						--GameTooltip:AddLine("Prix de vente ("..tablo.stackcount.." max)", "", 1, 1, 1);
--					end
--				else
--					--GameTooltip:AddLine("Prix de vente", "", 1, 1, 1);
--				end
--				if ( DBCS_prix_nb and DBCS_prix_nb > 1 ) then
--					--SetTooltipMoney(GameTooltip, tablo.prix*DBCS_prix_nb);
--				else
--					--SetTooltipMoney(GameTooltip, tablo.prix);
--				end
--				--GameTooltip:Show();
--				----ShowContainerSellCursor(self:GetParent():GetID(),button:GetID());
--			else
--				if ( tablo.stackcount and tablo.stackcount > 1 ) then
--					--GameTooltip:AddLine("("..tablo.stackcount.." max)", "", 1, 1, 1);
--					--GameTooltip:Show();
--				end
--			end
--		end
--	end

	--if ( DBCS_prix_numobjet > -1 and MerchantFrame:IsShown() and InRepairMode() == nil ) then
	--	if ( DBCS_prix_prix == nil or DBCS_prix_prix == 0 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("cet objet n'a pas de prix : "..DBCS_prix_numobjet);
--end
	--		DBobjets_prix(DBCS_prix_numobjet,DBCS_prix_numcourt2,DBCS_prix_prix);
	--	else
	--		if ( DBCS_prix_nb and DBCS_prix_nb > 1 ) then
	--			DBCS_prix_prix = DBCS_prix_prix / DBCS_prix_nb;
	--		end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("l'objet "..DBCS_prix_numobjet.." a pour prix  : "..DBCS_prix_prix);
--end
	--		DBobjets_prix(DBCS_prix_numobjet,DBCS_prix_numcourt2,DBCS_prix_prix);
	--	end
	--end

--	if ( DBCS_prix_numobjet > 0 and IsControlKeyDown() and IsAltKeyDown() ) then
--		DBcorps_AfficherObjet(DBCS_prix_numobjet,"0:0:0:0:0:0:0:0:0:0");
--		return nil;
--	end

	DBCS_prix_numobjet = -1;
	--DBCS_prix_prix = nil;
	
end
ContainerFrameItemButton_OnEnter = DBCS_ContainerFrameItemButton_OnEnter;

--local Saved_DBCS_ContainerFrameItemButton_OnClick = ContainerFrameItemButton_OnClick;
--function DBCS_ContainerFrameItemButton_OnClick(button, ignoreModifiers)
--
--local a_bag;
--local a_slot;
--
--	a_bag	= this:GetParent():GetID();
--	a_slot	= this:GetID();
--
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("bag = "..a_bag.." , slot = "..a_slot);
--end
--
--local i_bag;
--local i_slot;
--local link;
--local b;
--local inumobjet;

--	if ( IsAltKeyDown() ) then
--		i_bag	= this:GetParent():GetID();
--		i_slot	= this:GetID();
--		link = GetContainerItemLink(i_bag,i_slot);
--		if ( link ) then
--			for _, b, _, _, _, _, _, _, _, _, _ in string.gmatch(link,"(.+):(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)%|%h%[(.+)%](.+)") do
--				inumobjet = tonumber(b);
--			end
--			if ( inumobjet ) then
--				DBcorps_AfficherObjet(inumobjet,"0:0:0:0:0:0:0:0:0:0");
--			end
--		end
--		return nil;
--	else
--		Saved_DBCS_ContainerFrameItemButton_OnClick(button, ignoreModifiers);
--	end

--
--end
--ContainerFrameItemButton_OnClick = DBCS_ContainerFrameItemButton_OnClick;

--hooksecurefunc([table,] "functionName", hookfunc)

--UseContainerItem(bag,slot) 
--local Saved_DBCS_UseContainerItem = UseContainerItem;
--	 [ , onSelf ]
function DBCS_UseContainerItem(bag,slot,onSelf)

	local link;
	local name;
	local numobjet;

--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("bag : "..bag.." , slot : "..slot);
--end
	DBCS_nuage_numobjet = nil;
	link = GetContainerItemLink(bag,slot);
--	"|cffffffff|Hitem:10000:0:0:0|h[blabla]|h|r");
	if ( link ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("objet : "..link);
--end
		for _, b, _, _, _, _, _, _, _, _, _, _, a, _ in string.gmatch(link,"(.+):(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)%|%h%[(.+)%](.+)") do
			name = a;
			numobjet = tonumber(b);
			if ( numobjet == 23821 ) then
				DBCS_nuage_numobjet = 1;
			end
		end
--	name = GetItemInfo(numlong) ;
		DBCS_mob_name = name;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je pointe : "..DBCS_mob_name.." dans DBCS_UseContainerItem.");
--end
		DBCS_mob_level = 0;
		DBCS_mob_classe = "paysage";
		DBCS_mob_famille = "Objet";
		DBCS_mob_type = "Coffre";
		DBCS_mob_plusmob = nil;
		DBCS_mob_nbloot = 0;
		DBCS_mob_loot = {};
		DBCS_mob_numobjet = numobjet;
		DBCS_mob_comptesansgroupe = 1;
		DBCS_mob_x = 0;
		DBCS_mob_y = 0;
		DBCS_mob_ressource = false;
	end
	--Saved_DBCS_UseContainerItem(bag,slot);
end
--UseContainerItem = DBCS_UseContainerItem;

hooksecurefunc("UseContainerItem", DBCS_UseContainerItem);

end
--fin du if frFR

function DBcorps_OnLoad(self)

	if ( DBCS_corps_wow_build > DBCS_corps_wow_build_live ) then
		RegisterAddonMessagePrefix("DBCS");
		RegisterAddonMessagePrefix("GathX");
	end

if ( GetLocale() == "frFR" ) then

	self:RegisterEvent("BAG_OPEN");
--	self:RegisterEvent("BAG_UPDATE");
--	event CHAT_MSG_ADDON	arg1 = prefix	arg2 = message	arg3 = "PARTY/RAID/GUILD/BATTLEGROUND"	arg4 = envoyeur
	self:RegisterEvent("CHAT_MSG_ADDON");
	self:RegisterEvent("CHAT_MSG_AFK");
	self:RegisterEvent("CHAT_MSG_CHANNEL");
	self:RegisterEvent("CHAT_MSG_CHANNEL_NOTICE");
	self:RegisterEvent("CHAT_MSG_CHANNEL_NOTICE_USER");
--CHAT_MSG_COMBAT_FACTION_CHANGE
	self:RegisterEvent("CHAT_MSG_COMBAT_FACTION_CHANGE");
	self:RegisterEvent("CHAT_MSG_LOOT");
	self:RegisterEvent("CHAT_MSG_PARTY");
	self:RegisterEvent("CHAT_MSG_RAID");
--CHAT_MSG_SPELL_AURA_GONE_OTHER
--	self:RegisterEvent("CHAT_MSG_SPELL_AURA_GONE_OTHER");
--CHAT_MSG_SPELL_AURA_GONE_SELF
--	self:RegisterEvent("CHAT_MSG_SPELL_AURA_GONE_SELF");
--CHAT_MSG_SPELL_PERIODIC_PARTY_BUFFS
--	self:RegisterEvent("CHAT_MSG_SPELL_PERIODIC_PARTY_BUFFS");
--CHAT_MSG_SPELL_PERIODIC_SELF_BUFFS
--	self:RegisterEvent("CHAT_MSG_SPELL_PERIODIC_SELF_BUFFS");
--CHAT_MSG_SPELL_PERIODIC_FRIENDLYPLAYER_BUFFS
--	self:RegisterEvent("CHAT_MSG_SPELL_PERIODIC_FRIENDLYPLAYER_BUFFS");
	self:RegisterEvent("CHAT_MSG_SPELL_SELF_BUFF");
	--CHAT_MSG_SPELL_SELF_BUFF 
	self:RegisterEvent("CHAT_MSG_SYSTEM");
	self:RegisterEvent("CHAT_MSG_WHISPER");
--	self:RegisterEvent("CHAT_MSG_WHISPER_INFORM");
--	self:RegisterEvent("CURSOR_UPDATE");

	self:RegisterEvent("EJ_LOOT_DATA_RECIEVED");

--	self:RegisterEvent("ITEM_LOCK_CHANGED");
--	self:RegisterEvent("ITEM_PUSH");
	self:RegisterEvent("LOOT_CLOSED");
	self:RegisterEvent("LOOT_OPENED");
	self:RegisterEvent("LOOT_SLOT_CLEARED");
	self:RegisterEvent("MINIMAP_UPDATE_ZOOM");
	self:RegisterEvent("MERCHANT_CLOSED");
	self:RegisterEvent("MERCHANT_SHOW");
	self:RegisterEvent("MERCHANT_UPDATE");
--PARTY_LEADER_CHANGED
	self:RegisterEvent("PARTY_MEMBER_DISABLE");
	self:RegisterEvent("PARTY_MEMBER_ENABLE");
	self:RegisterEvent("PARTY_MEMBERS_CHANGED");
--PLAYER_SKINNED
	self:RegisterEvent("PLAYER_ENTERING_WORLD");
	self:RegisterEvent("PLAYER_TARGET_CHANGED");
	
	self:RegisterEvent("RAID_ROSTER_UPDATE");
	
--UNIT_SPELLCAST_SENT, "player", spell, rank, target 
	self:RegisterEvent("UNIT_SPELLCAST_SENT");
--UNIT_SPELLCAST_START, unit 
	self:RegisterEvent("UNIT_SPELLCAST_START");
--UNIT_SPELLCAST_STOP, unit 
	self:RegisterEvent("UNIT_SPELLCAST_STOP");
--UNIT_SPELLCAST_FAILED, unit 
	self:RegisterEvent("UNIT_SPELLCAST_FAILED");
--UNIT_SPELLCAST_INTERRUPTED, unit 
	self:RegisterEvent("UNIT_SPELLCAST_INTERRUPTED");
--UNIT_SPELLCAST_DELAYED, unit 
	self:RegisterEvent("UNIT_SPELLCAST_DELAYED");
--UNIT_SPELLCAST_SUCCEEDED, "player", spell, rank 
	self:RegisterEvent("UNIT_SPELLCAST_SUCCEEDED");
--UNIT_SPELLCAST_CHANNEL_START, unit 
	self:RegisterEvent("UNIT_SPELLCAST_CHANNEL_START");
--UNIT_SPELLCAST_CHANNEL_UPDATE, unit 
	self:RegisterEvent("UNIT_SPELLCAST_CHANNEL_UPDATE");
--UNIT_SPELLCAST_CHANNEL_STOP, unit 
	self:RegisterEvent("UNIT_SPELLCAST_CHANNEL_STOP");

	--self:RegisterEvent("SPELLCAST_START");
	--self:RegisterEvent("SPELLCAST_STOP");

	self:RegisterEvent("START_LOOT_ROLL");
	self:RegisterEvent("UI_INFO_MESSAGE");
	self:RegisterEvent("UI_ERROR_MESSAGE");
	self:RegisterEvent("UPDATE_MOUSEOVER_UNIT");
	self:RegisterEvent("VARIABLES_LOADED");
	self:RegisterEvent("WORLD_MAP_UPDATE");
	self:RegisterEvent("ZONE_CHANGED_NEW_AREA");
--ZONE_CHANGED_NEW_AREA


--	self:RegisterEvent("GUILD_EVENT_LOG_UPDATE");
--	self:RegisterEvent("GUILD_ROSTER_UPDATE");
--	self:RegisterEvent("GUILD_NEWS_UPDATE");

-- Register our slash command
--	SLASH_LOOTMOB1 = "/lootmob";
--	SLASH_LOOTMOB2 = "/lm";
--	SlashCmdList["LOOTMOB"] = function(msg)
--		Lootmob_SlashCommandHandler(msg);
--	end

end

	DBCC = {};
	DBCC_config = {};
	DBCC_listejoueurs = {};
	DBQC = {};
	DBQC2 = {};
	DBPC = {};
	DBMVWC = {};
	DBMobs_Local_Client = {};
	DBCS_mobs_spell_Client = {};
	DBCS_Mobs_Model_Client = {};
	DBCS_mobs_locs_Client = {};
	DBCS_mobs_detail_Client = {};
	DBobjets_Client = {};

	--DBCS = {};
	DBCS_joueur = UnitName("player");
	--DBCS_recup_enreg_joueurs_debut();
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je suis : "..DBCS_joueur);
--end

	SLASH_DBCORPS1 = "/dbcs";
	SlashCmdList["DBCORPS"] = function(msg)
		DBcorps_init();
	end
	--SLASH_DBCSOFF1 = "/dbcsoff";
	--SlashCmdList["DBCSOFF"] = function(msg)
	--	TraceFrame:AddMessage("je coupe dbcs groupe.");
	--end
	--SLASH_DBCSON1 = "/dbcson";
	--SlashCmdList["DBCSON"] = function(msg)
	--	TraceFrame:AddMessage("je mets dbcs groupe.");
	--end
	SLASH_DBCS_DEBUG_ON1 = "/dbcs_debug_on";
	SlashCmdList["DBCS_DEBUG_ON"] = function(msg)
		TraceFrame:AddMessage("je mets dbcs debug on.");
		DBCS_debug = 2;
	end
	SLASH_DBCS_DEBUG_OFF1 = "/dbcs_debug_off";
	SlashCmdList["DBCS_DEBUG_OFF"] = function(msg)
		TraceFrame:AddMessage("je mets dbcs debug off.");
		DBCS_debug = 0;
	end

	DBCS_language = GetDefaultLanguage();

end

function DBcorps_OnEvent(self,event,...)

local snom;
local snomcursor;
local a,b;
local i;
local j;
local fin;
local c, d;
local a6,a7;
local n;
local k;
local sjoueur,sonline;
local scode;
local x,y;
local snomquete;
local snomtooltip,snomtarget;
local tablo;
local ia, ib, svaleur1, svaleur2;
local sGUID;
local sGUID_1_2;
local sGUID_3;
local sGUID_7_10;
local iGUID_7_10;
local sUnitName;
local icoderegion;
local snumregion;
local snomregion;
local idate;
local sarg2_prefix;
local sdate,slead,stime;
local tsource;
--local sarg9;

local arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20 = ...;

	snomtooltip = GameTooltipTextLeft1:GetText();

	if ( DBCS_raid.time > 0 ) then
		if ( ((GetTime() * 1000) - DBCS_raid.time)/1000 > 10 ) then
			DBCS_raid.time = 0;
			DBCS_joueur = UnitName("player");
			-- je m'ajoutes ds le tablo
			if ( DBCS_CMS_numcanalCMS > 0 ) then
				DBCS_ajouter_joueur(DBCS_joueur,1);
			else
				DBCS_ajouter_joueur(DBCS_joueur,0);
			end
			DBCS_trier_joueur();
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je m'ajoutes ds le tablo.");
end
		end
	end

	if ( event == "" ) then
--	elseif ( event == "GUILD_NEWS_UPDATE" ) then
---- if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20);
----end
--	elseif ( event == "GUILD_EVENT_LOG_UPDATE" ) then
----if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20);
----end
--	elseif ( event == "GUILD_ROSTER_UPDATE" ) then
----if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20);
----end
	elseif ( event == "BAG_OPEN" ) then
		DBCS_mob_name = nil;
		DBCS_corpcompte = 0;
		DBCS_mob_ressource = false;
if ( DBCS_debug > 1 ) then
DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
end
--	elseif ( event == "BAG_UPDATE" ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--	event CHAT_MSG_ADDON	arg1 = prefix	arg2 = message	arg3 = "PARTY/RAID/GUILD/BATTLEGROUND"	arg4 = envoyeur
	elseif ( event == "CHAT_MSG_ADDON" ) then
if ( DBCS_debug > 1 ) then
DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
end
		if ( arg1 == "DBCS" ) then
			--DBCS_lire_message_groupe(arg2,arg4);
			if ( strsub(arg2,1,6) == "@DBCS@" ) then
				DBCS_liresend(strsub(arg2,7),arg4);
			elseif ( strsub(arg2,1,7) == "@ADBCS@" ) then
				DBCS_lire_message_groupe(arg2,arg4);
			end
		elseif ( arg1 == "GathX" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
			local commVersion, data = strsplit(":", arg2, 2)
			commVersion = tonumber(commVersion);
			local objectID, zoneToken, gatherX, gatherY;
			local indoorNode = false;
			if ( commVersion == 2 ) then
				objectID, zoneToken, indoorNode, gatherX, gatherY = strsplit(";", data);
				objectID = tonumber(objectID);
				indoorNode = (indoorNode == "true" and true or false);
-- TraceFrame:AddMessage("zoneToken = "..zoneToken);
				icoderegion = DBCS_Region_Gatherer_MapIdToTokenMap_inverse[zoneToken] or 0;
-- TraceFrame:AddMessage("icoderegion = "..icoderegion);
				snumregion = DBCS_Region_numregion_depuis_coderegion(icoderegion);
-- TraceFrame:AddMessage("snumregion = "..snumregion);
--				snumregion = DBCS_Region_numregion_depuis_nomrep(zoneToken);
--TraceFrame:AddMessage("snumregion = "..snumregion);
				snomregion = DBCS_Region_nom_region(snumregion);
-- TraceFrame:AddMessage("snomregion = "..snomregion);
				gatherX = tonumber(gatherX);
				gatherY = tonumber(gatherY);
				gatherX = floor((gatherX*100*1000)+.5);
				gatherY = floor((gatherY*100*1000)+.5);
				gatherX = gatherX / 1000;
				gatherY = gatherY / 1000;
-- TraceFrame:AddMessage("gatherX = "..gatherX);
-- TraceFrame:AddMessage("gatherY = "..gatherY);
				if ( DBCS_Gatherer_Nodes_Names_inverse[objectID] ) then
-- TraceFrame:AddMessage(objectID.." = "..DBCS_Gatherer_Nodes_Names_inverse[objectID]);
					if ( DBCS_Gatherer_Nodes_Objects[objectID] ) then
						if ( snumregion == "000" ) then
						else
							sdate = DBCS_date();
							slead = arg4;
							stime = DBCS_time();
							DBCS_mob = {};
							DBCS_mob.time = GetTime() * 1000;
							DBCS_mob.name = DBCS_Gatherer_Nodes_Names_inverse[objectID];
							DBCS_mob.level = 0;
							DBCS_mob.classe = "paysage";
							DBCS_mob.type = "Coffre";
							DBCS_mob.plusmob = nil;
							DBCS_mob.nbloot = 0;
							DBCS_mob.numzone = snumregion;
							DBCS_mob.x = gatherX;
							DBCS_mob.y = gatherY;
							if ( DBCS_Gatherer_Nodes_Objects[objectID] == "MINE" ) then
								DBCS_mob.famille = "Minage";
							elseif ( DBCS_Gatherer_Nodes_Objects[objectID] == "HERB" ) then
								DBCS_mob.famille = "Cueillette";
							elseif ( DBCS_Gatherer_Nodes_Objects[objectID] == "OPEN" ) then
								DBCS_mob.famille = "Ouverture";
							elseif ( DBCS_Gatherer_Nodes_Objects[objectID] == "ARCH" ) then
								DBCS_mob.famille = "Artefact";
							end
							if ( DBCS_mob.famille ) then
								if ( DBCS_CMS_numcanalCMS > 0 ) then
									DBmobs_envoyermob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
								end
								DBcorps_ajoutmob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
							end
						end
					end
				end
			end
		else
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		end
--	event CHAT_MSG_ADDON	arg1 = prefix	arg2 = message	arg3 = "PARTY/RAID/GUILD/BATTLEGROUND"	arg4 = envoyeur
	elseif ( event == "CHAT_MSG_AFK" ) then
if ( DBCS_debug > 1 ) then
DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
end
	elseif ( event == "CHAT_MSG_CHANNEL" ) then
		if ( DBCS_CMS_numcanalCMS > 0 ) then
			if ( arg9 and strlower(arg9) == DBCS_CMS_NOMCANAL ) then
				sdebut = strsub(arg1,1,2);
				if ( sdebut and sdebut == "@A" ) then
					ipos = strfind(arg1,"@",3);
					if ( ipos ) then
						saddon = strsub(arg1,3,ipos-1);
						ssuite = strsub(arg1,ipos+1);
						if ( saddon == "DBCS" ) then
							DBCS_traitermessagecms(arg2,ssuite);
							DBCS_tr_joueur_ajouter(arg2);
						elseif ( saddon == "DBQS" ) then
							DBCS_tr_joueur_ajouter(arg2);
						end
					end
				end
			end
		end
	elseif ( event == "CHAT_MSG_CHANNEL_NOTICE" ) then
		if ( arg1 == "YOU_LEFT" ) then
			if ( DBCS_CMS_numcanalCMS > 0 ) then
				if ( arg8 == DBCS_CMS_numcanalCMS ) then
					DBCS_CMS_numcanalCMS = 0;
					DBCS_raid.time = -1;
					if ( DBCS_typedegroupe() == 1 ) then
--SendChatMessage("blabla","PARTY");
--SendChatMessage("blabla","RAID");
						--SendChatMessage("@ADBCS@SD01@CMS@","PARTY");
						SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SD01@CMS@" , "PARTY" );
					elseif ( DBCS_typedegroupe() == 2 ) then
						--SendChatMessage("@ADBCS@SD01@CMS@","RAID");
						SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SD01@CMS@" , "RAID" );
					end
				else
				end
			end
		elseif ( arg1 == "YOU_JOINED" ) then
			if ( strlower(arg9) == DBCS_CMS_NOMCANAL ) then
				DBCS_CMS_numcanalCMS = tonumber(arg8);
				if ( DBCS_VERSION_envoi == false ) then
					DBCS_VERSION_envoi = true;
					DBCS_SendChatMessage("@ADBCS@"..DBCS_getlocale.."@VN01@"..DBCS_VERSION1..DBCS_VERSION2..DBCS_VERSION3.."@","CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
				end
				if ( DBCS_typedegroupe() == 1 ) then
					DBCS_raid.time = GetTime() * 1000;
					--SendChatMessage("@ADBCS@SC01@CMS@","PARTY");
					--SendChatMessage("@ADBCS@SC01@CMS@","CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
					SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@CMS@" , "PARTY" );
				elseif ( DBCS_typedegroupe() == 2 ) then
					DBCS_raid.time = GetTime() * 1000;
					--SendChatMessage("@ADBCS@SC01@CMS@","RAID");
					--SendChatMessage("@ADBCS@SC01@CMS@","CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
					SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@CMS@" , "RAID" );
				else
					DBCS_raid.time = -1;
				end
			end
		elseif ( arg1 == "YOU_CHANGED" ) then
		elseif ( arg1 == "SUSPENDED" ) then
		else
if ( DBCS_debug > 1 ) then
DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
end
		end
	elseif ( event == "CHAT_MSG_CHANNEL_NOTICE_USER" ) then
if ( DBCS_debug > 1 ) then
DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
end
	elseif ( event == "CHAT_MSG_LOOT" ) then
		if ( DBCS_typedegroupe() > 0 ) then -- pour tous
--GetLootThreshold();
--0 - Poor
--1 - Common
--2 - Uncommon
--3 - Rare
--4 - Epic
--5 - Legendary
--6 - Artifact
--GetLootMethod();
--arg1 -- the loot method.("freeforall", "roundrobin", "master", "group", "needbeforegreed")
--arg2 -- (only used for "master") returns the looter index, or nil. If the master looter is in your party (not always true in a raid) then it will return 0 for yourself, or >0 for another party member. If the master looter is NOT in your party it will return nil. 
			--if ( GetLootMethod() == "master" ) then
			--	--if ( GetLootThreshold() > 2 ) then
					DBCS_lire_chat_msg_loot(arg1);
			--	--end
			--end
		end
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--CHAT_MSG_COMBAT_FACTION_CHANGE
	elseif ( event == "CHAT_MSG_COMBAT_FACTION_CHANGE" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_ecrirecodedutexte(arg1);
--end
		--ia, ib, svaleur1, svaleur2 = string.find(arg1, "R\195\169putation aupr\195\168s de (.+) augment\195\169e de (%d+) points%.");
		--ia, ib, svaleur1, svaleur2 = string.find(arg1, "R\195\169putation aupr\195\168s \124\50 (.+) augment\195\169e de (%d+) points%.");
		ia, ib, _, svaleur1, svaleur2 = string.find(arg1, "R\195\169putation aupr\195\168s (.+)2 (.+) augment\195\169e de (%d+) points%.");
		if ( ia ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("reputation "..svaleur1.." = "..svaleur2);
end
			DBCS_reputation_loc(svaleur1,svaleur2);
		end
if ( DBCS_debug > 1 ) then
DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
end
	elseif ( event == "CHAT_MSG_PARTY" ) then
		if ( DBCS_raid.time > -1 ) then
			scode = strsub(arg1,1,1);
			if ( scode and scode == "@" ) then
				DBCS_lire_message_groupe(arg1,arg2);
			end
		end
	elseif ( event == "CHAT_MSG_RAID" ) then
		if ( DBCS_raid.time > -1 ) then
			scode = strsub(arg1,1,1);
			if ( scode and scode == "@" ) then
				DBCS_lire_message_groupe(arg1,arg2);
			end
		end

--CHAT_MSG_SPELL_AURA_GONE_OTHER
--	elseif ( event == "CHAT_MSG_SPELL_AURA_GONE_OTHER" ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);

--CHAT_MSG_SPELL_AURA_GONE_SELF
--	elseif ( event == "CHAT_MSG_SPELL_AURA_GONE_SELF" ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);

--CHAT_MSG_SPELL_PERIODIC_FRIENDLYPLAYER_BUFFS
--	elseif ( event == "CHAT_MSG_SPELL_PERIODIC_FRIENDLYPLAYER_BUFFS" ) then
--		if ( DBCS_innervation_yell == 1 ) then
--			for a, b in string.gmatch(arg1,"(.+) gagne (.+)%.$") do
--				if ( b == "Innervation" ) then
--					SendChatMessage(arg1.." par un druide,"YELL",DBCS_language);
--				end
--			end
--		end
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);

--CHAT_MSG_SPELL_PERIODIC_PARTY_BUFFS
--	elseif ( event == "CHAT_MSG_SPELL_PERIODIC_PARTY_BUFFS" ) then
--		if ( DBCS_innervation_yell == 1 ) then
--			for a, b in string.gmatch(arg1,"(.+) gagne (.+)%.$") do
--				if ( b == "Innervation" ) then
--					SendChatMessage(arg1,"YELL",DBCS_language);
--				end
--			end
--		end
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);

--CHAT_MSG_SPELL_PERIODIC_SELF_BUFFS
--	elseif ( event == "CHAT_MSG_SPELL_PERIODIC_SELF_BUFFS" ) then
--		if ( DBCS_innervation_yell == 1 ) then
--			for b in string.gmatch(arg1,"Vous gagnez (.+)%.$") do
--				if ( b == "Innervation" ) then
--					SendChatMessage(UnitName("player").." gagne Innervation.","YELL",DBCS_language);
--				end
--			end
--		end
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);

	elseif ( event == "CHAT_MSG_SPELL_SELF_BUFF" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--	DBCS_ressource_name
		for a, b in string.gmatch(arg1,"Vous ex\195\169cutez (.+) sur (.+).$") do
			DBCS_mob_name = b;
			--if ( a == "d\195\169pe\195\167age" ) then
			--	DBCS_mob_level = UnitLevel("target");
			--	if ( DBCS_mob_level < 1 ) then
			--		DBCS_mob_level = 99;
			--	end
			--	DBCS_mob_classe = UnitClassification("target");
			--	DBCS_mob_famille = UnitCreatureFamily("target");
			--	DBCS_mob_type = UnitCreatureType("target");
			--	DBCS_mob_plusmob = UnitIsPlusMob("target");
			--	DBCS_mob_nbloot = 0;
			--	DBCS_mob_loot = {};
			--	DBCS_mob_numobjet = nil;
			--	DBCS_mob_comptesansgroupe = 1;
			--	DBCS_mob_x,DBCS_mob_y = DBCS_position100(1);
			--	DBCS_mob_ressource = false;
			--else
				DBCS_mob_level = 0;
				DBCS_mob_classe = "paysage";
				DBCS_mob_famille = a;
				DBCS_mob_type = "Coffre";
				DBCS_mob_plusmob = nil;
				DBCS_mob_nbloot = 0;
				DBCS_mob_loot = {};
				DBCS_mob_numobjet = nil;
				DBCS_mob_comptesansgroupe = 1;
				DBCS_mob_x,DBCS_mob_y = DBCS_position100_x(3,1);
				DBCS_mob_ressource = true;
			--end
		end
	elseif ( event == "CHAT_MSG_WHISPER" ) then
		if ( strsub(arg1,1,6) == "@DBCS@" ) then
			DBCS_liresend(strsub(arg1,7),arg2);
		elseif ( strsub(arg1,1,7) == "@ADBCS@" ) then
			DBCS_lire_message_groupe(arg1,arg2);
		end
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--	elseif ( event == "CURSOR_UPDATE" ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--	elseif ( event == "ITEM_LOCK_CHANGED" ) then
--		DBCS_mob_name = nil;
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
	elseif ( event == "EJ_LOOT_DATA_RECIEVED" ) then
		DBCS_EJ_LOOT_DATA_RECIEVED();
	elseif ( event == "LOOT_CLOSED" ) then
if ( DBCS_debug > 1 ) then
DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
end
--		DBCS_mob_name = UnitName("target");	-- ??????????
--		DBCS_corpcompte = 0;
		if ( DBCS_corpouvert == 0 ) then
			if ( DBCS_mob_name ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je ferme "..DBCS_mob_name.." sans l'avoir ouvert, il est vide.");
end
				if ( IsShiftKeyDown() ) then
					DBCS_ouvrircorp();
				else
					DBCS_mob_vide_loc(DBCS_mob_name);
				end
			else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je ferme du vide sans l'avoir ouvert.");
end
			end
		end
		DBCS_mob_name = nil;
		DBCS_corpouvert = 0;
		DBCS_mob_ressource = false;
	elseif ( event == "LOOT_OPENED" ) then
if ( DBCS_debug > 1 ) then
DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
end
if ( DBCS_debug > 1 ) then
		for i = 1, GetNumLootItems() do
			tsource = { GetLootSourceInfo(i) };
			for j = 1, table.getn(tsource) do
				TraceFrame:AddMessage("i = "..i..", j = "..j.." : "..tsource[j]);
			end
		end
end
		DBCS_corpouvert = 1;
		DBCS_corpcompte = 0;
		if ( DBCS_mob_name or IsFishingLoot() ) then
			if ( IsFishingLoot() ) then
				DBCS_mob_name = "P\195\170che - "..GetSubZoneText(); -- "; -- .."
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je pointe : "..DBCS_mob_name);
end
				DBCS_mob_level = 0;
				DBCS_mob_classe = "paysage";
				DBCS_mob_famille = "Poisson";
				DBCS_mob_type = "Coffre";
				DBCS_mob_plusmob = nil;
				DBCS_mob_nbloot = 0;
				DBCS_mob_loot = {};
				DBCS_mob_numobjet = nil;
				DBCS_mob_comptesansgroupe = 1;
				DBCS_mob_x,DBCS_mob_y = DBCS_position100(1);
			end
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'ouvre le corp : "..DBCS_mob_name);
end
			DBCS_ouvrircorp();
		else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'ouvre un container sans nom");
end
		end
		DBCS_mob_ressource = false;
	elseif ( event == "LOOT_SLOT_CLEARED" ) then
		if ( DBCS_corpcompte == 1 ) then
			n = 0;
			if ( DBCS_numcorp == nil ) then
			else
				for i = 1, DBCS_corp[DBCS_numcorp].nbloot do
					if ( DBCS_corp[DBCS_numcorp].loot[i].clear == 0 ) then
						n = n + 1;
					end
				end
				if ( n > 1 ) then
					k = arg1;
					for i = 1, arg1-1 do
						a, b, c, d = GetLootSlotInfo(i);
						if ( b == nil or strlen(b) == 0 ) then
							k = k - 1;
						else
						end
					end
					i = 0;
					j = 0;
					fin = 0;
					while ( fin == 0 ) do
						i = i + 1 ;
						if ( DBCS_corp[DBCS_numcorp].loot[i].clear == 0 ) then
							j = j + 1 ;
						end
						if ( j == k ) then
							DBCS_corp[DBCS_numcorp].loot[i].clear = 1;
							fin = 1 ;
						else
							if ( i == DBCS_corp[DBCS_numcorp].nbloot ) then
								fin = 1 ;
							end
						end
					end
					if ( j == k ) then
					else
					end
				else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'efface ce corp : "..DBCS_numcorp);
end
					table.remove(DBCS_corp,DBCS_numcorp);
					DBCS_numcorp = 0;
					DBCS_corpcompte = 0;
				end
			end
		end
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
	elseif (event == "MINIMAP_UPDATE_ZOOM") then
		DBCS_map_InCity = DBCS_isMinimapInCity();
		DBCS_map_Nivzoom = Minimap:GetZoom();
--if ( DBCS_debug > 1 ) then
--	if ( DBCS_map_InCity == true ) then
--		TraceFrame:AddMessage("Vous etes dans une sous-zone.");
--	else
--		TraceFrame:AddMessage("Vous n'etes pas dans une sous-zone.");
--	end
--	TraceFrame:AddMessage("niv zoom : "..DBCS_map_Nivzoom);
--end
	elseif ( event == "MERCHANT_CLOSED" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		DBCS_MERCHANT_UPDATE = false;
	elseif ( event == "MERCHANT_SHOW" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		DBCS_liremarchand();
	elseif ( event == "MERCHANT_UPDATE" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		--if ( DBCS_MERCHANT_UPDATE == true ) then
			DBCS_liremarchand();
		--end
	elseif ( event == "PLAYER_ENTERING_WORLD" ) then
		DBCS_language = GetDefaultLanguage();
	elseif ( event == "PLAYER_TARGET_CHANGED" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--	/script DEFAULT_CHAT_FRAME:AddMessage((UnitFactionGroup("target") or ""));
		sUnitName = UnitName("target");
		if ( UnitIsDead("target") and UnitPlayerControlled("target") == nil ) then	--	and UnitIsPlayer("target") == nil 
			DBCS_mob_name = sUnitName;
--			DBCS_corpcompte = 0;
			if ( DBCS_mob_name ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je pointe : "..DBCS_mob_name);
end
				DBCS_mob_level = UnitLevel("target");
				if ( DBCS_mob_level < 1 ) then
					DBCS_mob_level = 99;
				end
				DBCS_mob_classe = UnitClassification("target");
				DBCS_mob_famille = UnitCreatureFamily("target");
				DBCS_mob_type = UnitCreatureType("target");
				DBCS_mob_plusmob = nil;									--	UnitIsPlusMob("target");
				DBCS_mob_nbloot = 0;
				DBCS_mob_loot = {};
				DBCS_mob_numobjet = nil;
				DBCS_mob_comptesansgroupe = 0;
				DBCS_mob_x,DBCS_mob_y = DBCS_position100(1);
			else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je ne pointe plus rien");
end
			end
		else
			DBCS_mob_name = nil;
		end
		DBCS_mob_ressource = false;
		sGUID = UnitGUID("target");
		if ( sGUID and sUnitName and ( not ( sUnitName == "Inconnu" ) ) ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage(sUnitName.." = "..sGUID);
end
			if ( strsub(sGUID,1,2) == "0x" ) then
				sGUID_1_2 = strsub(sGUID,3,4);
				if ( sGUID_1_2 == "00" ) then
				else
					sGUID_3 = strsub(sGUID,5,5);
					if ( sGUID_3 == "3" or sGUID_3 == "5" ) then
						--if ( DBCS_corps_wow_build > DBCS_corps_wow_build_live ) then
							sGUID_7_10 = strsub(sGUID,6,10);
						--else
						--	sGUID_7_10 = strsub(sGUID,9,12);
						--end
						iGUID_7_10 = tonumber(sGUID_7_10,16);
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage(sUnitName.." = "..sGUID_7_10.." = "..iGUID_7_10);
end
						idate = tonumber(DBCS_date());
						snumregion = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
						fDBmobs_Local_ajouter(iGUID_7_10,sUnitName,snumregion,idate,true);
					end
				end
			end
		end
		if ( sUnitName and IsControlKeyDown() and IsAltKeyDown() ) then
			snumregion = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
			if ( DBMS and DBMS[sUnitName] and DBMS[sUnitName][snumregion] ) then
				DBcorps_init();
				DBCS_affichermob(sUnitName,snumregion);
			end
		end
		
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
	elseif ( event == "UI_INFO_MESSAGE" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		--if ( arg1 ) then
		--	DBCS_ecrirecodedutexte(arg1);
		--end
		for a , _ , _ in string.gmatch(arg1,"(.+)\194\160: (%d+)/(%d+)") do
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("UI_INFO_MESSAGE = "..a);
--DBCS_ecrirecodedutexte(a);
--end
			if ( strsub(a,-5) == " tu\195\169" ) then
				a = strsub(a,1,strlen(a)-5);
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("mob = "..a.." : tu\195\169.");
--DBCS_ecrirecodedutexte(a);
--end
				DBCS_loc_objectif_quete(a);
			elseif ( strsub(a,-6) == " tu\195\169s" ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("faux mob = -"..strsub(a,-4).."-.");
--end
				
				a = strsub(a,1,strlen(a)-6);
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("mob = "..a.." : tu\195\169s.");
--DBCS_ecrirecodedutexte(a);
--end
				DBCS_loc_objectif_quete(a);
			else
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("objectif = "..a..".");
--end
				DBCS_loc_objectif_quete(a);
			end
		end
		for a in string.gmatch(arg1,"(.+) %(Termin\195\169e%)") do
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("objectif = "..a..".");
end
			DBCS_loc_objectif_quete(a);
		end
	elseif ( event == "UI_ERROR_MESSAGE" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		-- code pris sur gatherer
		if (arg1 and
		    (strfind(strlower(arg1), DBCS_action_necessite.." "..DBCS_action_herboriste) or strfind(strlower(arg1), DBCS_action_requiert.." "..DBCS_action_herboriste) or
		     strfind(strlower(arg1), DBCS_action_necessite.." "..DBCS_action_minage) or strfind(strlower(arg1), DBCS_action_requiert.." "..DBCS_action_minage))) then
			 DBCS_lire_ressource_sans_recolte(arg1,snomtooltip);
		end
--		if ( arg1 ) then
--			ipos = strfind(strlower(arg1), DBCS_action_requiert.." "..DBCS_action_herboriste);
--			if ( ipos ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage(DBCS_action_requiert.." "..DBCS_action_herboriste);
--end
--			end
--		end
	elseif ( event == "UPDATE_MOUSEOVER_UNIT" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
		snom = UnitName("target");
		snomcursor = UnitName("mouseover");
		if ( UnitIsCorpse("mouseover") ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage(snomcursor.." est un corp.");
end
		end
--		if ( UnitIsDead("mouseover") ) then
--			TraceFrame:AddMessage(snomcursor.." est mort.");
--		end
--		if ( UnitIsDeadOrGhost("mouseover") ) then
--			TraceFrame:AddMessage(snomcursor.." est mort ou en fantome.");
--		end
--if ( snom and snomcursor ) then
--TraceFrame:AddMessage("target : "..snom.." , mouse : "..snomcursor);
--end
		if ( DBCS_mob_name == snom ) then
		else
			if ( snom and snomcursor and snom == snomcursor ) then
				if ( UnitIsDead("mouseover") and UnitPlayerControlled("mouseover") == nil ) then	--	and UnitIsPlayer("mouseover") == nil
--TraceFrame:AddMessage("target : "..snom.." , mouse : "..snomcursor);
					--DBCS_mob_name = snom;
--					DBCS_corpcompte = 0;
					--if ( snom ) then
					DBCS_mob_name = snom;
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je pointe : "..DBCS_mob_name);
end
					DBCS_mob_level = UnitLevel("target");
					if ( DBCS_mob_level < 1 ) then
						DBCS_mob_level = 99;
					end
					DBCS_mob_classe = UnitClassification("target");
					DBCS_mob_famille = UnitCreatureFamily("target");
					DBCS_mob_type = UnitCreatureType("target");
					DBCS_mob_plusmob = nil;							--	UnitIsPlusMob("target");
					DBCS_mob_nbloot = 0;
					DBCS_mob_loot = {};
					DBCS_mob_numobjet = nil;
					DBCS_mob_comptesansgroupe = 0;
					DBCS_mob_x,DBCS_mob_y = DBCS_position100(1);
					DBCS_mob_ressource = false;
					--else
						--TraceFrame:AddMessage("je ne pointe plus rien");
					--end
				end
			end
		end
--if ( DBCS_debug > 1 ) then
--		DBCS_tooltip_connaissancebete();
--end
	elseif ( event == "VARIABLES_LOADED" ) then
----[[
		if ( ( DBOS01 == nil ) or ( DBOS02 == nil ) or ( DBOS03 == nil ) ) then
			DBOS_config = {};
			DBOS_config["datebase"] = -1;
			DBOS01 = {};
			DBOS02 = {};
			DBOS03 = {};
			DBOS_valeurs = {};
			DBOS_enchant = {};
			StaticPopupDialogs["DBCS_manque_base_objet"] = {
				text = "DBCS : manque les bases Objets\nVeuillez t\195\169l\195\169charger le zip d'addons de donn\195\169es DBCS_data_"..GetLocale().."\nou cocher les addons DBCS_data_"..GetLocale(),
				button1 = TEXT(OKAY),
				timeout = 60,
				hideOnEscape = 1
			};
			StaticPopup_Show("DBCS_manque_base_objet");
		end
----]]
		if ( DBMS == nil ) then
			DBMS = {};
			StaticPopupDialogs["DBCS_manque_base_mob"] = {
				text = "DBCS : manque la base Mobs\nVeuillez t\195\169l\195\169charger le zip d'addons de donn\195\169es DBCS_data_"..GetLocale().."\nou cocher les addons DBCS_data_"..GetLocale(),
				button1 = TEXT(OKAY),
				timeout = 60,
				hideOnEscape = 1
			};
			StaticPopup_Show("DBCS_manque_base_mob");
		end
		if ( DBCS_mobs_locs == nil ) then
			DBCS_mobs_locs = {};
			StaticPopupDialogs["DBCS_manque_base_mob_locs"] = {
				text = "DBCS : manque la base locs des Mobs\nVeuillez t\195\169l\195\169charger le zip d'addons de donn\195\169es DBCS_data_0000\nou cocher les addons DBCS_data_0000",
				button1 = TEXT(OKAY),
				timeout = 60,
				hideOnEscape = 1
			};
			StaticPopup_Show("DBCS_manque_base_mob_locs");
		end
		if ( DBCS_mobs_detail == nil ) then
			DBCS_mobs_detail = {};
			StaticPopupDialogs["DBCS_manque_base_mob_detail"] = {
				text = "DBCS : manque la base detail des Mobs\nVeuillez t\195\169l\195\169charger le zip d'addons de donn\195\169es DBCS_data_0000\nou cocher les addons DBCS_data_0000",
				button1 = TEXT(OKAY),
				timeout = 60,
				hideOnEscape = 1
			};
			StaticPopup_Show("DBCS_manque_base_mob_detail");
		end
		if ( DBCS_mobs_model == nil ) then
			DBCS_mobs_model = {};
			StaticPopupDialogs["DBCS_manque_base_mob_model"] = {
				text = "DBCS : manque la base model des Mobs\nVeuillez t\195\169l\195\169charger le zip d'addons de donn\195\169es DBCS_data_0000\nou cocher les addons DBCS_data_0000",
				button1 = TEXT(OKAY),
				timeout = 60,
				hideOnEscape = 1
			};
			StaticPopup_Show("DBCS_manque_base_mob_model");
		end
		if ( DBCS_mobs_spell == nil ) then
			DBCS_mobs_spell = {};
			StaticPopupDialogs["DBCS_manque_base_mob_spell"] = {
				text = "DBCS : manque la base spell des Mobs\nVeuillez t\195\169l\195\169charger le zip d'addons de donn\195\169es DBCS_data_0000\nou cocher les addons DBCS_data_0000",
				button1 = TEXT(OKAY),
				timeout = 60,
				hideOnEscape = 1
			};
			StaticPopup_Show("DBCS_manque_base_mob_spell");
		end
		if ( DBmobs_Local == nil ) then
			DBmobs_Local = {};
			StaticPopupDialogs["DBCS_manque_base_mob_noms"] = {
				text = "DBCS : manque la base noms des Mobs\nVeuillez t\195\169l\195\169charger le zip d'addons de donn\195\169es DBCS_data_0000\nou cocher les addons DBCS_data_0000",
				button1 = TEXT(OKAY),
				timeout = 60,
				hideOnEscape = 1
			};
			StaticPopup_Show("DBCS_manque_base_mob_noms");
		end
		if ( DBcorps_recupenreg_ON ) then
			DBCS_prog_serveur = 1;
			DBCS_debug = 2;
		end
		DBCS_nivmax = 70;
--		if ( DBCS_config["BC"] ) then
--		else
--			DBCS_config["BC"] = {};
--		end
--		if ( DBCS_config["BC"]["20070116"] ) then
--			if ( DBCS_config["BC"]["20070116"] == 1 ) then
--				DBCS_nivmax = 70;
--			end
--		else
--			DBCS_config["BC"]["20070116"] = 0;
--		end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_nivmax = "..DBCS_nivmax);
--end
--		if ( DBCS_nivmax == 60 or DBCS_config["BC"]["20070116"] == 0 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je testes si BC est mis sur les serveurs.");
--end
--			if ( tonumber("20070115") < tonumber(DBCS_date()) ) then
--			--if ( tonumber("20070117") < tonumber("20070118") ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("la date du 16 janvier 2007 est arrivee.");
--end
--				DBCC = {};
--				DBQC = {};
--				DBPC = {};
--				DBCS = {};
--				----DBQS(salaire60) = nil;
--				if ( DBQS ) then
--					for snomquete, _ in pairs(DBQS) do
--						for i = 1 , DBQS[snomquete].nb do
--							DBQS[snomquete][i][12] = nil;
--						end
--					end
--				end
--				DBCS_config["BC"]["20070116"] = 1;
--				DBCS_nivmax = 70;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_nivmax = "..DBCS_nivmax);
--end
--			end
--		end
--		--if ( DBCS_config["BC"]["20070523"] ) then
--		--else
--		--	DBCC = {};
--		--	DBCS_config["BC"]["20070523"] = 1;
--		--end
		if ( DBCS_config["affichageiconesmap"] and DBCS_config["affichageiconesmap"][DBCS_serveur] and DBCS_config["affichageiconesmap"][DBCS_serveur][DBCS_joueur] ) then
			if ( DBCS_config["affichageiconesmap"][DBCS_serveur][DBCS_joueur]["mines"] ) then
				if ( DBCS_config["affichageiconesmap"][DBCS_serveur][DBCS_joueur]["mines"] == 0 ) then
				else
					DBcorps_Worldmap_Frame_Mines_Mine:SetChecked(1);
				end
			end
			if ( DBCS_config["affichageiconesmap"][DBCS_serveur][DBCS_joueur]["plantes"] ) then
				if ( DBCS_config["affichageiconesmap"][DBCS_serveur][DBCS_joueur]["plantes"] == 0 ) then
				else
					DBcorps_Worldmap_Frame_Plantes_Plante:SetChecked(1);
				end
			end
			if ( DBCS_config["affichageiconesmap"][DBCS_serveur][DBCS_joueur]["coffres"] ) then
				if ( DBCS_config["affichageiconesmap"][DBCS_serveur][DBCS_joueur]["coffres"] == 0 ) then
				else
					DBcorps_Worldmap_Frame_Coffres_Coffre:SetChecked(1);
				end
			end
		end
		if ( DBCS_config["informer"] ) then
			if ( DBCS_config["informer"]["objets_new"] == nil ) then
				DBcorpsFrame_Objets_new:SetChecked(0);
				DBCS_afficher_new_objets = false;
				DBCS_config["informer"]["objets_new"] = false;
			else
				if ( DBCS_config["informer"]["objets_new"] == true ) then
					DBcorpsFrame_Objets_new:SetChecked(1);
					DBCS_afficher_new_objets = true;
				else
					DBcorpsFrame_Objets_new:SetChecked(0);
					DBCS_afficher_new_objets = false;
				end
			end
			if ( DBCS_config["informer"]["quetes_new"] == nil ) then
				DBcorpsFrame_Quetes_new:SetChecked(0);
				DBCS_afficher_new_quetes = false;
				DBCS_config["informer"]["quetes_new"] = false;
			else
				if ( DBCS_config["informer"]["quetes_new"] == true ) then
					DBcorpsFrame_Quetes_new:SetChecked(1);
					DBCS_afficher_new_quetes = true;
				else
					DBcorpsFrame_Quetes_new:SetChecked(0);
					DBCS_afficher_new_quetes = false;
				end
			end
			if ( DBCS_config["informer"]["HDV_stats"] == nil ) then
				DBcorpsFrame_HDV_stats:SetChecked(1);
				DBCS_afficher_HDV_stats = true;
				DBCS_config["informer"]["HDV_stats"] = true;
			else
				if ( DBCS_config["informer"]["HDV_stats"] == true ) then
					DBcorpsFrame_HDV_stats:SetChecked(1);
					DBCS_afficher_HDV_stats = true;
				else
					DBcorpsFrame_HDV_stats:SetChecked(0);
					DBCS_afficher_HDV_stats = false;
				end
			end
			if ( DBCS_config["informer"]["Objet_afficher_mobs"] == nil ) then
				DBcorpsFrame_Objet_afficher_mobs:SetChecked(1);
				DBCS_afficher_Objet_afficher_mobs = true;
				DBCS_config["informer"]["Objet_afficher_mobs"] = true;
			else
				if ( DBCS_config["informer"]["Objet_afficher_mobs"] == true ) then
					DBcorpsFrame_Objet_afficher_mobs:SetChecked(1);
					DBCS_afficher_Objet_afficher_mobs = true;
				else
					DBcorpsFrame_Objet_afficher_mobs:SetChecked(0);
					DBCS_afficher_Objet_afficher_mobs = false;
				end
			end
		else
			DBcorpsFrame_Objets_new:SetChecked(0);
			DBCS_afficher_new_objets = false;
			DBcorpsFrame_Quetes_new:SetChecked(0);
			DBCS_afficher_new_quetes = false;
			DBcorpsFrame_HDV_stats:SetChecked(1);
			DBCS_afficher_HDV_stats = true;
			DBcorpsFrame_Objet_afficher_mobs:SetChecked(1);
			DBCS_afficher_Objet_afficher_mobs = true;
		end
		DBCS_Minimap_Button:Show();
		x = DBCS_MINIMAP_X;
		y = DBCS_MINIMAP_Y;
		if ( DBCS_config and DBCS_config.positionminimap ) then
			x = (DBCS_config.positionminimap.x or x);
			y = (DBCS_config.positionminimap.y or y);
		end
		DBCS_Minimap_Position(x,y);
		--DBCS_Minimap_Position();
		DBCS_CMS_numcanalCMS = GetChannelName(DBCS_CMS_NOMCANAL); -- , nchat
		if ( DBCS_CMS_numcanalCMS > 0 ) then
			if ( DBCS_typedegroupe() == 1 ) then
				DBCS_raid.time = GetTime() * 1000;
				--SendChatMessage("@ADBCS@SC01@CMS@","PARTY");
				--SendChatMessage("@ADBCS@SC01@CMS@","CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
				SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@CMS@" , "PARTY" );
			elseif ( DBCS_typedegroupe() == 2 ) then
				DBCS_raid.time = GetTime() * 1000;
				--SendChatMessage("@ADBCS@SC01@CMS@","RAID");
				--SendChatMessage("@ADBCS@SC01@CMS@","CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
				SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@CMS@" , "RAID" );
			else
				DBCS_raid.time = -1;
			end
		else
			if ( DBCS_typedegroupe() == 1 ) then
				DBCS_raid.time = GetTime() * 1000;
				--SendChatMessage("@ADBCS@SC01@@","PARTY");
				SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@@" , "PARTY" );
			elseif ( DBCS_typedegroupe() == 2 ) then
				DBCS_raid.time = GetTime() * 1000;
				--SendChatMessage("@ADBCS@SC01@@","RAID");
				SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@@" , "RAID" );
			else
				DBCS_raid.time = -1;
			end
		end
		local numver1 = "00";
		local numver2 = "00";
		local numver3 = "00";
		if ( DBCC_config ) then
			numver1 = (DBCC_config.VERSION1 or "00");
			numver2 = (DBCC_config.VERSION2 or "00");
			numver3 = (DBCC_config.VERSION3 or "00");
		end
		if ( tonumber(numver1..numver2..numver3) < tonumber(DBCC_VERSION1..DBCC_VERSION2..DBCC_VERSION3) ) then
			if ( tonumber(numver1..numver2..numver3) == 0 ) then
				DBCC = {};
			end
		end
		DBCC_config.VERSION1 = DBCC_VERSION1;
		DBCC_config.VERSION2 = DBCC_VERSION2;
		DBCC_config.VERSION3 = DBCC_VERSION3;

		DBcorpsFrame_MobsFrame_Criteres_Purge:Hide();
		DBcorpsFrameTab1:Show();
		DBcorpsFrameTab2:Show();
		DBcorpsFrameTab3:Show();
		DBcorpsFrameTab4:Show();
		--if ( DBCS_prog_serveur == 1 ) then
		--	DBcorpsFrame_QuetesFrame_Tri_Numquete:Show();
		--else
		--	DBcorpsFrame_QuetesFrame_Tri_Numquete:Hide();
		--end
		if ( DBCS_prog_serveur == 1 ) then
			DBcorpsFrameTab5:Show();
		end
		--if ( DBCS_wow_2_4() == true ) then
			DBcorpsFrameTab6:Show();
		--end
		if ( DBCS_prog_serveur == 1 ) then
			DBcorpsFrameTab7:Show();
		else
			DBcorpsFrameTab7:Hide();
		end
		DBcorpsFrameTab8:Hide();
		if ( DBCS_HDV_exist ) then
			DBcorpsFrameTab9:Show();
			DBcorpsFrameTab10:Show();
		end
		DBcorpsFrameTab11:Show();
		DBmobsPNJ_Combo_t_init();
		if ( DBCS_mobs_detail ) then
		else
			DBcorpsFrame_PNJFrame_Criteres_Type2:Hide();
			DBcorpsFrame_PNJFrame_Criteres_Type2_Libelle:Hide();
		end
		DBcorpsFrameTab12:Hide();
		DBcorpsFrameTab13:Hide();
		PanelTemplates_SetNumTabs(DBcorpsFrame, 13);
		--if ( DBQS == nil ) then
		--	PanelTemplates_SetNumTabs(DBcorpsFrame, 4);	--	this
		--else
		--	DBcorpsFrameTab5:Show();
		--	PanelTemplates_SetNumTabs(DBcorpsFrame, 5);	--	this
		--end
		PanelTemplates_SetTab(DBcorpsFrame, 1);		--	this
		DBCS_map_brefresh = true;
		if ( DBCS_Model_Viewer_DressUpFrame ) then
			DBCS_MVW_exist = true;
		end
		if ( DBCS_config["quetes"] ) then
		else
			DBCS_config["quetes"] = {};
		end
		if ( DBCS_config["quetes"]["quetesmanquantesdepuishisto"] ) then
		else
			DBCS_config["quetes"]["quetesmanquantesdepuishisto"] = 1;
			DBquetes_copiehistoriquedssauvegarde();
		end
		DBCS_calculer_jours_de_sauvegarde();
		--if ( DBCS_config["affichageiconesmap"] and DBCS_config["affichageiconesmap"][DBCS_serveur] and DBCS_config["affichageiconesmap"][DBCS_serveur][DBCS_joueur] ) then
		if ( DBCS_config["liste_joueurs"] ) then
		else
			DBCS_config["liste_joueurs"] = {};
		end
		if ( DBCS_config["liste_joueurs"][DBCS_serveur] == nil ) then
			DBCS_config["liste_joueurs"][DBCS_serveur] = {};
		end
		if ( DBCS_config["liste_joueurs"][DBCS_serveur][DBCS_joueur] == nil ) then
			DBCS_config["liste_joueurs"][DBCS_serveur][DBCS_joueur] = {};
		end
		DBCS_config["liste_joueurs"][DBCS_serveur][DBCS_joueur].race = UnitRace("Player");
		DBCS_config["liste_joueurs"][DBCS_serveur][DBCS_joueur].classe = UnitClass("Player");
		DBCS_config["liste_joueurs"][DBCS_serveur][DBCS_joueur].niveau = UnitLevel("Player");
		DBCS_config["liste_joueurs"][DBCS_serveur][DBCS_joueur].date = tonumber(DBCS_date());
		DBCC_listejoueurs = DBCS_config["liste_joueurs"];

	elseif ( event == "CHAT_MSG_SYSTEM" ) then
		--DBCS_messageraid_01 = "(.+) a quitt\195\169 le groupe de raid$";
		for a in string.gmatch(arg1,DBCS_messageraid_01) do
			--enlever a du tablo
			DBCS_supprimer_joueur(a,0);
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage(a.." quitte le raid.");
end
			return nil;
		end
		--DBCS_messageraid_02 = "(.+) a quitt\195\169 le groupe.$";
		for a in string.gmatch(arg1,DBCS_messageraid_02) do
			--enlever a du tablo
			if ( DBCS_typedegroupe() == 1 ) then
				-- 
				DBCS_supprimer_joueur(a,0);
			end
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage(a.." quitte le groupe.");
end
			return nil;
		end
		--DBCS_messageraid_03 = "Vous avez rejoint un groupe de raid";
		if ( arg1 == DBCS_messageraid_03 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je rejoins un raid.");
end
			--if ( DBCS_CMS_numcanalCMS > 0 ) then
				DBCS_raid.time = -1;
		----		DBCS_raid.time = GetTime() * 1000;
		----		SendChatMessage("@ADBCS@SC01@CMS@","RAID");
			--end
		--	return nil;
		end
		--DBCS_messageraid_04 = "Vous avez quitt\195\169 le groupe de raid";
		if ( arg1 == DBCS_messageraid_04 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je quitte le raid.");
end
			DBCS_raid.time = -1;
			--vider tablo
			DBCS_vider_joueur();
			return nil;
		end
		--DBCS_messageraid_05 = "Vous quittez le groupe.";
		if ( arg1 == DBCS_messageraid_05 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je quitte le groupe.");
--end
			DBCS_raid.time = -1;
			--vider tablo
			DBCS_vider_joueur();
			return nil;
		end
		--DBCS_messageraid_06 = "Le groupe n'existe plus.";
		if ( arg1 == DBCS_messageraid_06 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("le groupe n'existe plus.");
--end
			DBCS_raid.time = -1;
			--vider tablo
			DBCS_vider_joueur();
			return nil;
		end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("arg1 = "..arg1);
--end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("strsub(arg1,1,23) = -"..strsub(arg1,1,23).."-");
--TraceFrame:AddMessage("strsub(arg1,1,24) = -"..strsub(arg1,1,24).."-");
--TraceFrame:AddMessage("strsub(arg1,1,25) = -"..strsub(arg1,1,25).."-");
--TraceFrame:AddMessage("strsub(arg1,1,26) = -"..strsub(arg1,1,26).."-");
--TraceFrame:AddMessage("strsub(arg1,1,27) = -"..strsub(arg1,1,27).."-");
--end
		--for _, a in string.gmatch(arg1,"Vous \195\170tes maintenant ABS : (.+)") do
--		if ( strsub(arg1,1,25) == "Vous \195\170tes maintenant ABS" ) then
--			DBCS_bAFK = 1;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("mode AFK ON");
--end
--			return nil;
--		end
--		if ( arg1 == "Vous n'\195\170tes plus ABS." ) then
--			DBCS_bAFK = 0;
--			DBCS_chrono3_itime = GetTime();
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("mode AFK OFF");
--end
--			return nil;
--		end
--		if ( strsub(arg1,1,33) == "Vous \195\170tes maintenant en mode NPD" ) then
--			DBCS_bDND = 1;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("mode DND ON");
--end
--			return nil;
--		end
--		if ( arg1 == "Vous n'\195\170tes plus signal\195\169 comme ne devant pas \195\170tre d\195\169rang\195\169." ) then
--			DBCS_bDND = 0;
--			DBCS_chrono3_itime = GetTime();
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("mode DND OFF");
--end
--			return nil;
--		end
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
	elseif ( event == "PARTY_MEMBERS_CHANGED" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		if ( DBCS_raid.time == -1 ) then
			if ( DBCS_typedegroupe() == 1 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je rejoins un groupe.");
--end
				if ( DBCS_CMS_numcanalCMS > 0 ) then
					DBCS_raid.time = GetTime() * 1000;
					--SendChatMessage("@ADBCS@SC01@CMS@","PARTY");
					--SendChatMessage("@ADBCS@SC01@CMS@","CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
					SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@CMS@" , "PARTY" );
				else
					DBCS_raid.time = GetTime() * 1000;
					--SendChatMessage("@ADBCS@SC01@@","PARTY");
					SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@@" , "PARTY" );
				end
			end
		end
		if ( DBCS_typedegroupe() == 1 ) then
				--UnitIsConnected("party1")
				--UnitIsConnected("party2")
				--UnitIsConnected("party3")
				--UnitIsConnected("party4")
				--GetNumPartyMembers()
			for i = 1, GetNumSubgroupMembers() do	--GetNumPartyMembers() do
				if ( UnitIsConnected("party"..i) == nil ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je supprime "..UnitName("party"..i));
end
					DBCS_supprimer_joueur(UnitName("party"..i),0);
				end
			end
		end
	elseif ( event == "PARTY_MEMBER_DISABLE" ) then
		-- arg1 est faux, utiliser une autre méthode
		--sjoueur = UnitName("party"..arg1);
		--if ( sjoueur ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je devrais supprimer "..sjoueur);
--end
			--DBCS_supprimer_joueur(sjoueur,0);
		--end
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
	elseif ( event == "PARTY_MEMBER_ENABLE" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
	elseif ( event == "RAID_ROSTER_UPDATE" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		if ( DBCS_raid.time == -1 ) then
			DBCS_raid.time = GetTime() * 1000;
			if ( DBCS_CMS_numcanalCMS > 0 ) then
				--SendChatMessage("@ADBCS@SC01@CMS@","RAID");
				--SendChatMessage("@ADBCS@SC01@CMS@","CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
				SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@CMS@" , "RAID" );
			else
				--SendChatMessage("@ADBCS@SC01@@","RAID");
				SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SC01@@" , "RAID" );
			end
		end
		for i = 1 , 40 do	--GetNumRaidMembers() do	--20120829
			sjoueur, _, _, _, _, _, _, sonline, _ = GetRaidRosterInfo(i);
			if ( sjoueur and ( sonline == nil ) ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je supprime le joueur : "..sjoueur);
end
				DBCS_supprimer_joueur(sjoueur,0);
			--else
			end
		end
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--UNIT_SPELLCAST_SENT, "player", spell, rank, target 
	elseif ( event == "UNIT_SPELLCAST_SENT" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		DBCS_mob_name = nil;
		DBCS_desenchant_name = nil;
		DBCS_prospection_name = nil;
		DBCS_mouture_name = nil;
		--DBCS_artefact_name = nil;
		snomtarget = UnitName("target");
		--if ( snomtooltip == nil ) then
			snomtooltip = arg4;
		--end
		--	DBCS_ressource_name
		--if ( arg2 == "Ouverture" or arg2 == "Ouverture - pas de texte"  or ( ( not ( snomtooltip == snomtarget ) ) and ( arg2 == "Minage" or arg2 == "Cueillette" ) ) ) then
		if ( strfind(arg2,"Ouverture")  or ( ( not ( snomtooltip == snomtarget ) ) and ( arg2 == "Minage" or arg2 == "Cueillette" or arg2 == "Collecte de minerai \195\169trange" ) ) ) then	--	 or arg2 == "Crochetage"
--			DBCS_mob_name = UnitName("target");
			DBCS_mob_name = snomtooltip;
			DBCS_lire_ressource_sans_recolte(arg2,snomtooltip);
			DBCS_mob_level = 0;
			DBCS_mob_classe = "paysage";
			DBCS_mob_famille = arg2;
			DBCS_mob_type = "Coffre";
			DBCS_mob_plusmob = nil;
			DBCS_mob_nbloot = 0;
			DBCS_mob_loot = {};
			DBCS_mob_numobjet = nil;
			DBCS_mob_comptesansgroupe = 1;
			DBCS_mob_x,DBCS_mob_y = DBCS_position100_x(3,1);
			DBCS_mob_ressource = true;
		elseif ( arg2 == "Vol \195\160 la tire" ) then
			DBCS_mob_name = arg4;
			DBCS_mob_level = UnitLevel("target");
			if ( DBCS_mob_level < 1 ) then
				DBCS_mob_level = 99;
			end
			DBCS_mob_classe = UnitClassification("target");
			DBCS_mob_famille = UnitCreatureFamily("target");
			DBCS_mob_type = UnitCreatureType("target");
			DBCS_mob_plusmob = nil;								--UnitIsPlusMob("target");
			DBCS_mob_nbloot = 0;
			DBCS_mob_loot = {};
			DBCS_mob_numobjet = nil;
			DBCS_mob_comptesansgroupe = 1;
			DBCS_mob_x,DBCS_mob_y = DBCS_position100(1);
			DBCS_mob_ressource = false;
		elseif ( arg2 == "Prospection" ) then
			local itemName, itemLink, itemRarity, itemLevel, itemMinLevel, itemType, itemSubType, itemStackCount, itemEquipLoc, itemTexture = GetItemInfo(DBCS_desenchant_numobjet);
			if ( itemName ) then
				DBCS_prospection_name = itemName;
			end
		elseif ( arg2 == "Mouture" ) then
			local itemName, itemLink, itemRarity, itemLevel, itemMinLevel, itemType, itemSubType, itemStackCount, itemEquipLoc, itemTexture = GetItemInfo(DBCS_desenchant_numobjet);
			if ( itemName ) then
				DBCS_mouture_name = "Mouture de "..itemName;
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je mous l'objet : "..itemName.." num = "..DBCS_desenchant_numobjet);
TraceFrame:AddMessage("DBCS_mouture_name = "..DBCS_mouture_name);
end
			end
		elseif ( arg2 == "D\195\169senchanter" ) then
			local itemName, itemLink, itemRarity, itemLevel, itemMinLevel, itemType, itemSubType, itemStackCount, itemEquipLoc, itemTexture = GetItemInfo(DBCS_desenchant_numobjet);
			DBCS_desenchant_numobjet_save = DBCS_desenchant_numobjet;
			DBCS_desenchant_numobjet_save_prix = 0;
			tablo = DBOS_detail(DBCS_desenchant_numobjet_save,"0:0:0:0:0:0:0:0:0:0");
			if ( tablo.nomobjet ) then
				DBCS_desenchant_numobjet_save_prix = (tablo.prix or 0);
			end
			--if ( DBCS_desenchant_numobjet_save_prix == 0 ) then
			--	if ( itemType == "Armure" or itemType == "Arme" ) then
			--		TraceFrame:AddMessage("ATTENTION : DBCS ne connait pas le prix de "..itemLink..", veuillez apprendre son prix chez un marchand avant de le d\195\169senchanter.");
			--	end
			--end
			DBCS_desenchant_name = itemType;
			if ( itemRarity == 2 ) then
				DBCS_desenchant_name = DBCS_desenchant_name.." vert";
			elseif ( itemRarity == 3 ) then
				DBCS_desenchant_name = DBCS_desenchant_name.." bleu";
			elseif ( itemRarity == 4 ) then
				DBCS_desenchant_name = DBCS_desenchant_name.." violet";
			--elseif ( itemRarity == nil ) then
			--	DBCS_desenchant_name = DBCS_desenchant_name.." inconnu";
			else
				DBCS_desenchant_name = (DBCS_desenchant_name or "").." ".._G["ITEM_QUALITY"..(itemRarity or tablo.rarity or 0).."_DESC"];
			end
			--if ( itemMinLevel > 0 ) then
			--	if ( itemMinLevel > 9 ) then
			--		DBCS_desenchant_name = DBCS_desenchant_name.." niv"..itemMinLevel;
			--	else
			--		DBCS_desenchant_name = DBCS_desenchant_name.." niv0"..itemMinLevel;
			--	end
			--else
			if ( itemLevel ) then
				if ( itemLevel > 9 ) then
					DBCS_desenchant_name = DBCS_desenchant_name.." (niv"..itemLevel..")";
				else
					DBCS_desenchant_name = DBCS_desenchant_name.." (niv0"..itemLevel..")";
				end
			end
			--end
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je d\195\169senchante l'objet : "..snomtooltip.." num = "..DBCS_desenchant_numobjet);
TraceFrame:AddMessage("DBCS_desenchant_name = "..DBCS_desenchant_name);
TraceFrame:AddMessage(itemLink.." = "..DBCS_desenchant_numobjet_save_prix);
--TraceFrame:AddMessage("itemRarity = "..itemRarity);
--TraceFrame:AddMessage("itemLevel = "..itemLevel);
--TraceFrame:AddMessage("itemMinLevel = "..itemMinLevel);
--TraceFrame:AddMessage("itemType = "..itemType);
end
		elseif ( arg2 == "Recherche d'art\195\169facts" ) then
			--DBCS_artefact_name = arg4;
			DBCS_enreg_loc_artefact(arg4);
		end
--UNIT_SPELLCAST_START, unit 
	elseif ( event == "UNIT_SPELLCAST_START" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--UNIT_SPELLCAST_STOP, unit 
	elseif ( event == "UNIT_SPELLCAST_STOP" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--UNIT_SPELLCAST_FAILED, unit 
	elseif ( event == "UNIT_SPELLCAST_FAILED" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		DBCS_desenchant_name = nil;
		DBCS_prospection_name = nil;
		DBCS_mouture_name = nil;
--UNIT_SPELLCAST_INTERRUPTED, unit 
	elseif ( event == "UNIT_SPELLCAST_INTERRUPTED" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		DBCS_desenchant_name = nil;
		DBCS_prospection_name = nil;
		DBCS_mouture_name = nil;
--UNIT_SPELLCAST_DELAYED, unit 
	elseif ( event == "UNIT_SPELLCAST_DELAYED" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--UNIT_SPELLCAST_SUCCEEDED, "player", spell, rank 
	elseif ( event == "UNIT_SPELLCAST_SUCCEEDED" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		if ( DBCS_desenchant_name ) then
			DBCS_mob_name = DBCS_desenchant_name;
			DBCS_mob_level = 0;
			DBCS_mob_classe = "artisanat";
			DBCS_mob_famille = "";
			DBCS_mob_type = "d\195\169senchanter";
			DBCS_mob_plusmob = nil;
			DBCS_mob_nbloot = 0;
			DBCS_mob_loot = {};
			DBCS_mob_numobjet = nil;
			DBCS_mob_comptesansgroupe = 1;
			DBCS_mob_x = 0;
			DBCS_mob_y = 0;
			DBCS_mob_ressource = false;
		elseif ( DBCS_prospection_name ) then
			DBCS_mob_name = DBCS_prospection_name;
			DBCS_mob_level = 0;
			DBCS_mob_classe = "artisanat";
			DBCS_mob_famille = "";
			DBCS_mob_type = "prospection";
			DBCS_mob_plusmob = nil;
			DBCS_mob_nbloot = 0;
			DBCS_mob_loot = {};
			DBCS_mob_numobjet = nil;
			DBCS_mob_comptesansgroupe = 1;
			DBCS_mob_x = 0;
			DBCS_mob_y = 0;
			DBCS_mob_ressource = false;
		elseif ( DBCS_mouture_name ) then
			DBCS_mob_name = DBCS_mouture_name;
			DBCS_mob_level = 0;
			DBCS_mob_classe = "artisanat";
			DBCS_mob_famille = "";
			DBCS_mob_type = "mouture";
			DBCS_mob_plusmob = nil;
			DBCS_mob_nbloot = 0;
			DBCS_mob_loot = {};
			DBCS_mob_numobjet = nil;
			DBCS_mob_comptesansgroupe = 1;
			DBCS_mob_x = 0;
			DBCS_mob_y = 0;
			DBCS_mob_ressource = false;
		elseif ( arg2 and arg2 == "Extraction de gaz" ) then
			DBCS_lire_ressource_nuage();
		end
--UNIT_SPELLCAST_CHANNEL_START, unit 
	elseif ( event == "UNIT_SPELLCAST_CHANNEL_START" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--UNIT_SPELLCAST_CHANNEL_UPDATE, unit 
	elseif ( event == "UNIT_SPELLCAST_CHANNEL_UPDATE" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--UNIT_SPELLCAST_CHANNEL_STOP, unit 
	elseif ( event == "UNIT_SPELLCAST_CHANNEL_STOP" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
	elseif ( event == "SPELLCAST_START" )  then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		if ( arg1 == "D\195\169senchanter" ) then
			DBCS_mob_name = nil;
		else
			if ( arg1 == "Minage" or arg1 == "Ouverture" or arg1 == "Cueillette" ) then
				DBCS_lire_ressource_sans_recolte(arg1,snomtooltip);
				DBCS_mob_name = GameTooltipTextLeft1:GetText();
				DBCS_mob_level = 0;
				DBCS_mob_classe = "paysage";
				DBCS_mob_famille = arg1;
				DBCS_mob_type = "Coffre";
				DBCS_mob_plusmob = nil;
				DBCS_mob_nbloot = 0;
				DBCS_mob_loot = {};
				DBCS_mob_numobjet = nil;
				DBCS_mob_comptesansgroupe = 1;
				DBCS_mob_x,DBCS_mob_y = DBCS_position100_x(3,1);
				DBCS_mob_ressource = true;
				--DBCS_ouvrircorp();
				--DBCS_mob_name = GameTooltipTextLeft1:GetText();
				--DBCS_mob_level = 0;
				--DBCS_mob_classe = "paysage";
				--DBCS_mob_famille = arg1;
				--DBCS_mob_type = "Coffre";
				--DBCS_mob_plusmob = nil;
				--DBCS_mob_nbloot = 0;
				--DBCS_mob_loot = {};
				--DBCS_mob_numobjet = nil;
				--DBCS_mob_comptesansgroupe = 1;
				--DBCS_mob_x,DBCS_mob_y = DBCS_position100_x(3,1);
				--DBCS_mob_ressource = true;
			elseif ( arg1 == "D\195\169pe\195\167age" ) then
				DBCS_mob_name = UnitName("target");
				if ( DBCS_mob_name ) then
					DBCS_mob_level = UnitLevel("target");
					if ( DBCS_mob_level < 1 ) then
						DBCS_mob_level = 99;
					end
					DBCS_mob_classe = UnitClassification("target");
					DBCS_mob_famille = UnitCreatureFamily("target");
					DBCS_mob_type = UnitCreatureType("target");
					DBCS_mob_plusmob = nil;								--UnitIsPlusMob("target");
					DBCS_mob_nbloot = 0;
					DBCS_mob_loot = {};
					DBCS_mob_numobjet = nil;
					DBCS_mob_comptesansgroupe = 1;
					DBCS_mob_x,DBCS_mob_y = DBCS_position100(1);
					DBCS_mob_ressource = false;
				end
			elseif ( arg1 == nil or arg1 == "" or strfind(strlower(arg1),"ouverture",1) ) then
					DBCS_lire_ressource_sans_recolte("action",snomtooltip);
					DBCS_mob_name = GameTooltipTextLeft1:GetText();
					DBCS_mob_level = 0;
					DBCS_mob_classe = "paysage";
					DBCS_mob_famille = "action";
					DBCS_mob_type = "Coffre";
					DBCS_mob_plusmob = nil;
					DBCS_mob_nbloot = 0;
					DBCS_mob_loot = {};
					DBCS_mob_numobjet = nil;
					DBCS_mob_comptesansgroupe = 1;
					DBCS_mob_x,DBCS_mob_y = DBCS_position100_x(3,1);
					DBCS_mob_ressource = true;
					--DBCS_ouvrircorp();
					--DBCS_mob_name = GameTooltipTextLeft1:GetText();
					--DBCS_mob_level = 0;
					--DBCS_mob_classe = "paysage";
					--DBCS_mob_famille = "action";
					--DBCS_mob_type = "Coffre";
					--DBCS_mob_plusmob = nil;
					--DBCS_mob_nbloot = 0;
					--DBCS_mob_loot = {};
					--DBCS_mob_numobjet = nil;
					--DBCS_mob_comptesansgroupe = 1;
					--DBCS_mob_x,DBCS_mob_y = DBCS_position100_x(3,1);
					--DBCS_mob_ressource = true;
				--elseif ( strfind(strlower(arg1),"ouverture",1) ) then
			else
					DBCS_mob_name = nil;
			end
			--end
		end
--	elseif ( event == "SPELLCAST_STOP" )  then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--local snil;
--			--if ( arg1 == "Minage" or arg1 == "Ouverture" or arg1 == "Cueillette" ) then
--				--DBCS_mob_name = GameTooltipTextLeft1:GetText();
--			snil = GameTooltipTextLeft1:GetText();
--if ( DBCS_debug > 1 ) then
--	if ( arg1 and snil ) then
--		TraceFrame:AddMessage("SPELLCAST_STOP : "..arg1.." , "..snil);
--	end
--end
			--end
	elseif ( event == "START_LOOT_ROLL" ) then
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		--local texture, name, count, quality = GetLootRollItemInfo(arg1);
		local link = GetLootRollItemLink(arg1);
		for a, _, _, _, _, _, a6, a7, _, _ in string.gmatch(link,"item:(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)") do
			inumobjet = tonumber(a);
			snumcourt2 = "0:0:0:0:0:"..a6..":"..a7..":0:0";
			DBCS_liredes(inumobjet,snumcourt2);
		end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage(DBobjets_GetItemLink(inumobjet,snumcourt2));
--end
	elseif ( event == "WORLD_MAP_UPDATE" ) then
if ( InCombatLockdown() ) then
	return nil;
end
--		DBCS_position100_bchange = true;
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
		--if ( arg1 ) then
		--else
			DBCS_worldmap_afficherlocs();
		--end
	elseif ( event == "ZONE_CHANGED_NEW_AREA" ) then
		DBCS_position100_bchange = true;
--if ( DBCS_debug > 1 ) then
--DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
--end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("nouvelle zone : "..GetRealZoneText());
--end
--		DBCS_testwhisperaddon();
	end

end

function DBCS_mob_vide_loc(snommob)

local sdate,slead,stime;
local tablo_mob = nil;
local bbon = true;
local inb;

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = snommob;
	DBCS_mob.level = UnitLevel("target");
	if ( DBCS_mob.level < 1 ) then
		DBCS_mob.level = 99;
	end
	DBCS_mob.classe = UnitClassification("target");
	DBCS_mob.type = UnitCreatureType("target");
	DBCS_mob.famille = UnitCreatureFamily("target");
	DBCS_mob.plusmob = nil;								--	UnitIsPlusMob("target");
	DBCS_mob.nbloot = 0;
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100(1);
	if ( DBCS_CMS_numcanalCMS > 0 ) then
		if ( DBCS_typedegroupe() == 0 ) then
			DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,1,0,DBCS_mob.nbloot);
		else
			if ( DBCS_raid_player_cms.joueur_s[1] == DBCS_joueur ) then
				DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,1,0,DBCS_mob.nbloot);
			end
		end
	end
	DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,1,0,DBCS_mob.nbloot);

end

function DBCS_traitermessagecms(sjoueur,ssuite)

local ssection,straitement,sversion,senreg;
local ideb,ifin;
local snommob,snumregion,inumobjet,snumcourt2,inb;
local iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin;
local slink,hex;
local splayer,itime,inbloot,inumloot;
local sdate,slead,sheure,stime;
local iprix;
--local inumloot;
local ix,iy;
local tablo;
local ibon,snom;
local snomserveur;
local bvide;
local a;
local snumversion;
local snumversion1;
local snumversion2;
local snumversion3;
local inumversion;
local slangue;
local smodele;
local sblp;
local inummob;
local idate;
local iGUID;
local iSPELL;
local slinkspell;
local smot_milieu;
local ilen;
local smot_tout;

	if ( sjoueur == DBCS_joueur ) then
		return;
	else
		if ( strlen(ssuite) > 5 ) then
			ifin = strfind(ssuite,"@",1);
			slangue = strsub(ssuite,1,ifin-1);
			ssuite = strsub(ssuite,ifin+1);
			ssection = strsub(ssuite,1,1);
			straitement = strsub(ssuite,2,2);
			sversion = strsub(ssuite,3,4);
			senreg = strsub(ssuite,6);
			if ( ssection == "L" ) then
				if ( straitement == "A" ) then
					if ( sversion == "01" and slangue == DBCS_getlocale ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sdate = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						slead = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sheure = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						stime = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inumloot = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inumobjet = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snumcourt2 = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inb = tonumber(strsub(senreg,ideb,ifin-1));
						-- à modifier par 1 appel à une fonction de DBOS et non pas le tablo direct
						-- exemple : DBOS_existe(inumobjet,optional snumcourt2)
						--if ( DBOS[inumobjet] == nil and not ( inumobjet == 0 ) ) then
						if ( not ( inumobjet == 0 ) ) then
							-- ajouter un message de confirmation
							--SetItemRef("item:"..inumobjet..":"..snumcourt2);
							--GameTooltip:SetOwner(DBCS_Minimap_Button, "ANCHOR_TOPLEFT");
							--GameTooltip:SetHyperlink("item:"..inumobjet..":"..snumcourt2)
							DBcorpsFrame_Tooltip:SetOwner(WorldFrame,"ANCHOR_NONE");
							DBcorpsFrame_Tooltip:SetHyperlink("item:"..inumobjet..":0:0:0:0:0:0:0:0:0:0");
							DBobjets_initobjet("item:"..inumobjet..":"..snumcourt2);
						end
						DBcorps_ajoutloot(sdate,slead,sheure.."@"..stime,inumloot,inumobjet,snumcourt2,inb);
if ( DBCS_debug > 1 ) then
	if ( inumobjet > 0 ) then
		slink = DBobjets_GetItemLink(inumobjet,snumcourt2);
		if ( slink ) then
TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink); --.." pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
		else
			_, _, _, hex = GetItemQualityColor(6);
			--sitem = "item:"..numobjet..":"..numcourt2;
			--slink = hex.."|Hitem:"..inumobjet..":"..snumcourt2.."|h["..inumobjet.."]|h|r";
			slink = "|c"..hex.."|Hitem:"..inumobjet..":"..snumcourt2.."|h[oula oula oula]|h|r";
--TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink.." oula oula oula"); --.." pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
			TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink);
		end
	else
TraceFrame:AddMessage("ajout de loot : "..inb.." pc"); -- pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
	end
end
					elseif ( sversion == "02" and slangue == DBCS_getlocale ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sdate = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						slead = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sheure = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						stime = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inumloot = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inumobjet = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snumcourt2 = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inb = tonumber(strsub(senreg,ideb,ifin-1));
						-- à modifier par 1 appel à une fonction de DBOS et non pas le tablo direct
						-- exemple : DBOS_existe(inumobjet,optional snumcourt2)
						--if ( DBOS[inumobjet] == nil and not ( inumobjet == 0 ) ) then
						if ( not ( inumobjet == 0 ) ) then
							-- ajouter un message de confirmation
							--SetItemRef("item:"..inumobjet..":"..snumcourt2);
							--GameTooltip:SetOwner(DBCS_Minimap_Button, "ANCHOR_TOPLEFT");
							--GameTooltip:SetHyperlink("item:"..inumobjet..":"..snumcourt2)
							DBcorpsFrame_Tooltip:SetOwner(WorldFrame,"ANCHOR_NONE");
							DBcorpsFrame_Tooltip:SetHyperlink("item:"..inumobjet..":0:0:0:0:0:0:0:0:0:0");
							DBobjets_initobjet("item:"..inumobjet..":"..snumcourt2);
						end
						DBcorps_ajoutloot2(sdate,slead,sheure.."@"..stime,inumloot,inumobjet,snumcourt2,inb);
if ( DBCS_debug > 1 ) then
	if ( inumobjet > 0 ) then
		slink = DBobjets_GetItemLink(inumobjet,snumcourt2);
		if ( slink ) then
TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink); --.." pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
		else
			_, _, _, hex = GetItemQualityColor(6);
			--sitem = "item:"..numobjet..":"..numcourt2;
			--slink = hex.."|Hitem:"..inumobjet..":"..snumcourt2.."|h["..inumobjet.."]|h|r";
			slink = "|c"..hex.."|Hitem:"..inumobjet..":"..snumcourt2.."|h[oula oula oula]|h|r";
--TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink.." oula oula oula"); --.." pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
			TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink);
		end
	else
TraceFrame:AddMessage("ajout de loot : "..inb.." pc"); -- pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
	end
end
					end
				end
			elseif ( ssection == "M" ) then
				if ( straitement == "A" ) then
					if ( sversion == "01" and slangue == DBCS_getlocale ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sdate = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						slead = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sheure = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						stime = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snommob = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snumregion = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						ix = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						iy = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						iniv = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sclasse = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sfamille = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						stype = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						splusmob = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inbcorp = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inbskin = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inbloot = tonumber(strsub(senreg,ideb,ifin-1));
						DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,sheure.."@"..stime,snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot);
if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("ajout de mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] dans la region "..snumregion.." en "..ix..","..iy..". par "..DBCS_lienjoueurbynom(sjoueur));
--	DB_nomregionbynum(numregion)
--TraceFrame:AddMessage("ajout de mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] dans la region "..snumregion.." : ["..DB_nomregionbynum(snumregion).."] en "..ix..","..iy..". par "..DBCS_lienjoueurbynom(sjoueur));
TraceFrame:AddMessage("ajout de mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] "..sclasse.." "..iniv.." dans la region "..snumregion.." : ["..DB_nomregionbynum(snumregion).."] en "..ix..","..iy..". par "..DBCS_lienjoueurbynom(sjoueur).." ( "..inbloot.." loot ).");
end
					elseif ( sversion == "02" and slangue == DBCS_getlocale ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sdate = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						slead = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sheure = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						stime = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snommob = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snumregion = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						ix = tonumber(strsub(senreg,ideb,ifin-1));
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("ix1 = "..ix);
--end
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						iy = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						iniv = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sclasse = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sfamille = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						stype = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						splusmob = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inbcorp = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inbskin = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inbloot = tonumber(strsub(senreg,ideb,ifin-1));
						DBcorps_ajoutmob2(DBCS_getlocale,sdate,slead,sheure.."@"..stime,snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot);
if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("ajout de mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] dans la region "..snumregion.." en "..ix..","..iy..". par "..DBCS_lienjoueurbynom(sjoueur));
--	DB_nomregionbynum(numregion)
--TraceFrame:AddMessage("ajout de mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] dans la region "..snumregion.." : ["..DB_nomregionbynum(snumregion).."] en "..ix..","..iy..". par "..DBCS_lienjoueurbynom(sjoueur));
TraceFrame:AddMessage("ajout de mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] "..sclasse.." "..iniv.." dans la region "..snumregion.." : ["..DB_nomregionbynum(snumregion).."] en "..ix..","..iy..". par "..DBCS_lienjoueurbynom(sjoueur).." ( "..inbloot.." loot ).");
end
					end
				--	numéro mob + modele du mob + date
				elseif ( straitement == "M" ) then
					if ( sversion == "01" ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						if ( ifin ) then
							inummob = tonumber(strsub(senreg,ideb,ifin-1));
							ideb = ifin+1;
							ifin = strfind(senreg,"@",ideb);
							if ( ifin ) then
								smodele = strsub(senreg,ideb,ifin-1);
								ideb = ifin+1;
								ifin = strfind(senreg,"@",ideb);
								if ( ifin ) then
									idate = tonumber(strsub(senreg,ideb,ifin-1));
									DBCS_mobs_model_ajout(inummob,smodele,idate,smodele);
if ( DBCS_debug > 1 ) then
	if ( DBmobs_Local and DBmobs_Local[inummob] ) then
		smot_milieu = format("%X",inummob);
		ilen = strlen(smot_milieu);
		--if ( DBCS_corps_wow_build > DBCS_corps_wow_build_live ) then
			smot_tout = "unit:0xF53"..strrep("0",5-ilen)..smot_milieu.."00000000:"..DBmobs_Local[inummob][1][1];
		--else
		--	smot_tout = "unit:0xF53"..strrep("0",7-ilen)..smot_milieu.."000000:"..DBmobs_Local[inummob][1][1];
		--end
		slink = "|cff4e96f7|H"..smot_tout.."|h["..DBmobs_Local[inummob][1][1].."]|h|r";
TraceFrame:AddMessage("envoi du modele "..smodele.." pour le mob numero "..inummob.." = "..slink..". par "..DBCS_lienjoueurbynom(sjoueur));
	else
TraceFrame:AddMessage("envoi du modele "..smodele.." pour le mob numero "..inummob..". par "..DBCS_lienjoueurbynom(sjoueur));
	end
end
								else
if ( DBCS_debug > 1 ) then
	if ( DBmobs_Local and DBmobs_Local[inummob] ) then
		smot_milieu = format("%X",inummob);
		ilen = strlen(smot_milieu);
		--if ( DBCS_corps_wow_build > DBCS_corps_wow_build_live ) then
			smot_tout = "unit:0xF53"..strrep("0",5-ilen)..smot_milieu.."00000000:"..DBmobs_Local[inummob][1][1];
		--else
		--	smot_tout = "unit:0xF53"..strrep("0",7-ilen)..smot_milieu.."000000:"..DBmobs_Local[inummob][1][1];
		--end
		slink = "|cff4e96f7|H"..smot_tout.."|h["..DBmobs_Local[inummob][1][1].."]|h|r";
TraceFrame:AddMessage("erreur sur envoi du modele "..senreg.." pour le mob numero "..inummob.." = "..slink..". par "..DBCS_lienjoueurbynom(sjoueur));
	else
TraceFrame:AddMessage("erreur sur envoi du modele "..senreg.." par "..DBCS_lienjoueurbynom(sjoueur));
	end
end
								end
							else
if ( DBCS_debug > 1 ) then
	if ( DBmobs_Local and DBmobs_Local[inummob] ) then
		smot_milieu = format("%X",inummob);
		ilen = strlen(smot_milieu);
		--if ( DBCS_corps_wow_build > DBCS_corps_wow_build_live ) then
			smot_tout = "unit:0xF53"..strrep("0",5-ilen)..smot_milieu.."00000000:"..DBmobs_Local[inummob][1][1];
		--else
		--	smot_tout = "unit:0xF53"..strrep("0",7-ilen)..smot_milieu.."000000:"..DBmobs_Local[inummob][1][1];
		--end
		slink = "|cff4e96f7|H"..smot_tout.."|h["..DBmobs_Local[inummob][1][1].."]|h|r";
TraceFrame:AddMessage("erreur sur envoi du modele "..senreg.." pour le mob numero "..inummob.." = "..slink..". par "..DBCS_lienjoueurbynom(sjoueur));
	else
TraceFrame:AddMessage("erreur sur envoi du modele "..senreg.." par "..DBCS_lienjoueurbynom(sjoueur));
	end
end
							end
						else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("erreur sur envoi du modele "..senreg.." par "..DBCS_lienjoueurbynom(sjoueur));
end
						end
					end
				--	numéro mob + nom mob + date
				elseif ( straitement == "N" ) then
					if ( sversion == "01" and slangue == DBCS_getlocale ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inummob = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snommob = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snumregion = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						idate = tonumber(strsub(senreg,ideb,ifin-1));
if ( DBCS_debug > 1 ) then
	if ( DBmobs_Local and DBmobs_Local[inummob] ) then
		smot_milieu = format("%X",inummob);
		ilen = strlen(smot_milieu);
		--if ( DBCS_corps_wow_build > DBCS_corps_wow_build_live ) then
			smot_tout = "unit:0xF53"..strrep("0",5-ilen)..smot_milieu.."00000000:"..DBmobs_Local[inummob][1][1];
		--else
		--	smot_tout = "unit:0xF53"..strrep("0",7-ilen)..smot_milieu.."000000:"..DBmobs_Local[inummob][1][1];
		--end
		slink = "|cff4e96f7|H"..smot_tout.."|h["..DBmobs_Local[inummob][1][1].."]|h|r";
TraceFrame:AddMessage("ajout de numero mob : "..inummob.." = "..slink.." , numregion = "..snumregion.." : ["..DB_nomregionbynum(snumregion).."], date = "..idate..". par "..DBCS_lienjoueurbynom(sjoueur));
	else
TraceFrame:AddMessage("ajout de numero mob : "..inummob.." , nom = "..snommob.." , numregion = "..snumregion.." : ["..DB_nomregionbynum(snumregion).."], date = "..idate..". par "..DBCS_lienjoueurbynom(sjoueur));
	end
end
						fDBmobs_Local_ajouter(inummob,snommob,snumregion,idate,false);
					end
				--	spells du mob
				elseif ( straitement == "S" ) then
					if ( sversion == "01" ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						iGUID = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						iSPELL = tonumber(strsub(senreg,ideb,ifin-1));
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						idate = tonumber(strsub(senreg,ideb,ifin-1));
if ( DBCS_debug > 1 ) then
	--	CMS_GetItemLink("@@blabla@-3@25000@@")
	DBcorpsFrame_Tooltip4:SetOwner(WorldFrame,"ANCHOR_NONE");
	DBcorpsFrame_Tooltip4:SetHyperlink("spell:"..iSPELL);
	slinkspell = CMS_GetItemLink("@@"..DBcorpsFrame_Tooltip4TextLeft1:GetText().."@-3@"..iSPELL.."@@");
	if ( DBmobs_Local and DBmobs_Local[iGUID] ) then
		smot_milieu = format("%X",iGUID);
		ilen = strlen(smot_milieu);
		--if ( DBCS_corps_wow_build > DBCS_corps_wow_build_live ) then
			smot_tout = "unit:0xF53"..strrep("0",5-ilen)..smot_milieu.."00000000:"..DBmobs_Local[iGUID][1][1];
		--else
		--	smot_tout = "unit:0xF53"..strrep("0",7-ilen)..smot_milieu.."000000:"..DBmobs_Local[iGUID][1][1];
		--end
		slink = "|cff4e96f7|H"..smot_tout.."|h["..DBmobs_Local[iGUID][1][1].."]|h|r";
		TraceFrame:AddMessage("ajout de spell pour le mob : "..iGUID.." : "..slink.." , numsort = "..iSPELL.." : "..slinkspell.." , date = "..idate..". par "..DBCS_lienjoueurbynom(sjoueur));
	else
		TraceFrame:AddMessage("ajout de spell pour le mob : "..iGUID.." , numsort = "..iSPELL.." : "..slinkspell.." , date = "..idate..". par "..DBCS_lienjoueurbynom(sjoueur));
	end
end
						if ( DBCS_mobs_spell ) then
							DBCS_mobs_spell_enreg(false,true,iGUID,iSPELL,idate);
						else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("l'addon DBCS_mobs_spell manque.");
end
						end
					end
				elseif ( straitement == "V" ) then
					if ( sversion == "01" and slangue == DBCS_getlocale and DBCS_Model_Viewer_ListeCreature ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sdate = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snommob = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snumregion = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						smodele = strsub(senreg,ideb,ifin-1);
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("ajout de modele : "..smodele.." pour ["..snommob.."] dans la region "..snumregion.." : ["..DB_nomregionbynum(snumregion).."], date : "..sdate..". par "..DBCS_lienjoueurbynom(sjoueur));
end
						DBmobs_MVW_enreg_modele(snommob,snumregion,smodele,sdate);
					elseif ( sversion == "02" and slangue == DBCS_getlocale and DBCS_Model_Viewer_ListeCreature ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sdate = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snommob = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snumregion = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						smodele = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sblp = strsub(senreg,ideb,ifin-1);
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("ajout de modele : "..smodele.." et blp : "..sblp.." pour ["..snommob.."] dans la region "..snumregion.." : ["..DB_nomregionbynum(snumregion).."], date : "..sdate..". par "..DBCS_lienjoueurbynom(sjoueur));
end
						DBmobs_MVW_enreg_modele_et_blp(snommob,snumregion,smodele,sblp,sdate);
					end
				end
			elseif ( ssection == "O" ) then
				if ( straitement == "C" ) then
					if ( sversion == "01" ) then
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						inumobjet = tonumber(strsub(senreg,ideb,ifin-1));
						DBOS_coffre(inumobjet,0);
					end
				--elseif ( straitement == "P" ) then
				--	if ( sversion == "01" ) then
				--		ifin = 0;
				--		ideb = ifin+1;
				--		ifin = strfind(senreg,"@",ideb);
				--		inumobjet = tonumber(strsub(senreg,ideb,ifin-1));
				--		ideb = ifin+1;
				--		ifin = strfind(senreg,"@",ideb);
				--		iprix = tonumber(strsub(senreg,ideb,ifin-1));
				--		tablo = DBOS_detail(inumobjet,"0:0:0:0:0:0:0:0:0:0");
				--		if ( tablo == nil ) then
				--			--SetItemRef("item:"..inumobjet..":0:0:0:0:0:0:0:0:0:0");
				--			--GameTooltip:SetHyperlink("item:"..inumobjet..":0:0:0:0:0:0:0:0:0:0")
				--			DBcorpsFrame_Tooltip:SetOwner(WorldFrame,"ANCHOR_NONE");
				--			DBcorpsFrame_Tooltip:SetHyperlink("item:"..inumobjet..":0:0:0:0:0:0:0:0:0:0");
				--			DBobjets_initobjet("item:"..inumobjet..":0:0:0:0:0:0:0:0:0:0");
				--		end
				--		DBobjets_prix(inumobjet,"0:0:0:0:0:0:0:0:0:0",iprix,0);
				--	end
				end
			elseif ( ssection == "S" ) then
				if ( straitement == "C" ) then
					if ( sversion == "01" ) then
						if ( DBCS_typedegroupe() == 2 ) then	-- raid
							ibon = 0;
							for i = 1, 40 do	--GetNumRaidMembers() do	--20120829
								snom, _, _, _, _, _, _, _, _ = GetRaidRosterInfo(i);
								if ( snom and ( snom == sjoueur ) ) then
									ibon = 1;
								end
							end
							if ( ibon == 1 ) then	--	UnitInRaid(sjoueur) ) then
								DBCS_lire_message_groupe("@ADBCS@"..slangue.."@SC01@"..senreg,sjoueur);
							end
						elseif ( DBCS_typedegroupe() == 1 ) then	-- groupe
							ibon = 0;
							for i = 1, GetNumSubgroupMembers() do	--GetNumPartyMembers() do
								if ( UnitName("party"..i) == sjoueur ) then
									ibon = 1;
								end
							end
							if ( ibon == 1 ) then	--	UnitInParty(sjoueur) ) then
								DBCS_lire_message_groupe("@ADBCS@"..slangue.."@SC01@"..senreg,sjoueur);
							end
						else	-- solo
						end
						--sjoueur
					end
				end
				--DBCS_lire_message_groupe(arg1,arg2);
			elseif ( ssection == "C" ) then
				if ( straitement == "S" ) then
					if ( sversion == "01" and DBCS_prog_serveur == 0 ) then	-- Corp Suppression : suppression du corp ds la sauvegarde, que pour les addon client
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snomserveur = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sdate = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						slead = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						sheure = strsub(senreg,ideb,ifin-1);
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						stime = strsub(senreg,ideb,ifin-1);
						if ( DBCC[snomserveur] and DBCC[snomserveur][sdate] and DBCC[snomserveur][sdate][slead] and DBCC[snomserveur][sdate][slead][sheure.."@"..stime] ) then
							--DBCC[snomserveur][sdate][slead][sheure.."@"..stime] = nil;
							DBCC[snomserveur][sdate][slead][sheure.."@"..stime][-3] = 0;
							--bvide = true;
							--if ( bvide == true ) then
							--	for a, _ in pairs(DBCC[snomserveur][sdate][slead]) do
							--		bvide = false;
							--	end
							--	if ( bvide == true ) then
							--		DBCC[snomserveur][sdate][slead] = nil;
							--	end
							--end
							--if ( bvide == true ) then
							--	for a, _ in pairs(DBCC[snomserveur][sdate]) do
							--		bvide = false;
							--	end
							--	if ( bvide == true ) then
							--		DBCC[snomserveur][sdate] = nil;
							--	end
							--end
							--if ( bvide == true ) then
							--	for a, _ in pairs(DBCC[snomserveur]) do
							--		bvide = false;
							--	end
							--	if ( bvide == true ) then
							--		DBCC[snomserveur] = nil;
							--	end
							--end
						end
					end
				end
			elseif ( ssection == "V" ) then
				if ( straitement == "N" ) then
					if ( sversion == "01" ) then	-- verif num version
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(senreg,"@",ideb);
						snumversion = strsub(senreg,ideb,ifin-1);
						snumversion1 = strsub(snumversion,1,2);
						snumversion2 = strsub(snumversion,3,4);
						snumversion3 = strsub(snumversion,5,6);
						inumversion = tonumber(snumversion);
if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage(inumversion);
TraceFrame:AddMessage(DBCS_lienjoueurbynom(sjoueur).." est en version "..snumversion1.."."..snumversion2.."."..snumversion3);
end
						if ( inumversion > tonumber(DBCS_VERSION1_reception..DBCS_VERSION2_reception..DBCS_VERSION3_reception) ) then
							DBCS_VERSION1_reception = snumversion1;
							DBCS_VERSION2_reception = snumversion2;
							DBCS_VERSION3_reception = snumversion3;
							TraceFrame:AddMessage("La version DBCS "..DBCS_VERSION1_reception.."."..DBCS_VERSION2_reception.."."..DBCS_VERSION3_reception.." est disponible sur http://wow.curse.com/downloads/wow-addons/details/dbcs.aspx ou http://wowui.incgamers.com/?p=mod&m=4991 ou http://wow.freehackers.org/");
						end
					end
				end
			end
		end
	end

end

function DBCS_lire_chat_msg_loot(smessage)
-- devenu inutil, pas sur

-- DBCS_messageloot_01

local sjoueur = nil;
local sitem = nil;
local inumobjet = nil;
local snumcourt2 = nil;
local a,b;
local c,d,e,f;
local snumregion;
local itemName,itemRarity;

--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_lire_chat_msg_loot smessage : "..smessage);
----DBCS_ecrirecodedutexte(smessage);
--end
	--if ( DBOS_valeurs["loot"] == nil ) then
	--	DBOS_valeurs["loot"] = {};
	--end
	--if ( DBOS_valeurs["loot"][smessage] == nil ) then
	--	DBOS_valeurs["loot"][smessage] = -1;
	--end

	--DBCS_messageloot_01 = "(.+) re\195\167oit le butin : (.+)%.$";
	if ( sjoueur == nil ) then
		for a,b in string.gmatch(smessage,DBCS_messageloot_01) do
			sjoueur = a;
			sitem = b;
		end
	end

	----DBCS_messageloot_02 = "(.+) re\195\167oit l’objet : (.+)%.$";
	--if ( sjoueur == nil ) then
	--	for a,b in string.gmatch(smessage,DBCS_messageloot_02) do
	--		sjoueur = a;
	--		sitem = b;
	--	end
	--end

	--DBCS_messageloot_03 = "Vous recevez le butin : (.+)%.$";
	if ( sjoueur == nil ) then
		for b in string.gmatch(smessage,DBCS_messageloot_03) do
			sjoueur = DBCS_joueur;
			sitem = b;
		end
	end

	----DBCS_messageloot_04 = "Vous recevez l’objet : (.+)%.$";
	--if ( sjoueur == nil ) then
	--	for b in string.gmatch(smessage,DBCS_messageloot_04) do
	--		sjoueur = DBCS_joueur;
	--		sitem = b;
	--	end
	--end

	--DBCS_messageloot_05 = "(.+) a gagn\195\169 : (.+)%$";
	--if ( sjoueur == nil ) then
	--	for a,b in string.gmatch(smessage,DBCS_messageloot_05) do
	--		sjoueur = a;
	--		sitem = b;
	--	end
	--end

	--DBCS_messageloot_06 = "Vous avez gagn\195\169 : (.+)%$";
	--if ( sjoueur == nil ) then
	--	for b in string.gmatch(smessage,DBCS_messageloot_06) do
	--		sjoueur = DBCS_joueur;
	--		sitem = b;
	--	end
	--end

	--DBCS_message_item = "(.+)%|%Hitem:(%d+):(%d+):(%d+):(%d+)%|%h%[(.+)%]%|%h%|%r$";
	if ( sitem ) then
		for _,c,d,_,_,_,_,e,f,_,_,_ in string.gmatch(sitem,DBCS_message_item) do
			inumobjet = tonumber(c);
			--snumcourt2 = "0:0:0:0:0:"..tonumber(e)..":0";
			snumcourt2 = "0:0:0:0:0:"..e..":"..f..":0:0";
			itemName, _, itemRarity, _, _, _, _, _, _, _ = GetItemInfo(inumobjet);
			if ( itemName ) then
				if ( itemRarity > 1 ) then
					DBCS_liredes(inumobjet,snumcourt2);
				end
			else
				DBCS_liredes(inumobjet,snumcourt2);
			end
		end
	end
	--if ( sjoueur and inumobjet ) then
	--	--snumregion = DBCS_Region_liste_code_region_courante_new2();	DBCS_numregionbyname(GetRealZoneText());
	--	--DBmobs_ajoutloot(DBCS_REGION,snumregion,inumobjet,snumcourt2,0);
	--	DBCS_raid_enlever_loot(inumobjet,snumcourt2);
	--end

--if ( DBCS_debug > 1 ) then
--	if ( sjoueur and sitem ) then
--TraceFrame:AddMessage("CHAT_MSG_LOOT : "..sjoueur.." , "..inumobjet.." , "..snumcourt2);
--	end
--end

end

function DBCS_ouvrircorp()

--local DBCS_mob_nbloot;
--local DBCS_mob_loot;
	--local lootIcon;
	local lootName, lootQuantity;
	--local rarity;
	local link;
	local link2;
	local itemid;
	local numcourt;
	local numcourt2;
	local a,b;
	local c,d,e,f;
	local i,j,k;

	local corpdejapris;

	local scanal;
	--local stime;
	local smessage;
	
	local sdate,slead,stime;
	
--	local tsource;

	DBCS_mob = {};
	DBCS_mob.loot = {};
	DBCS_mob.nbloot = GetNumLootItems();
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("nb objets : "..DBCS_mob.nbloot);
--end

	--ajouter la gestion du loot multi corp
	--guid1, quant1, guid2, quant2, ... = GetLootSourceInfo(lootSlot)

	for i = 1, DBCS_mob.nbloot do
--if ( DBCS_debug > 1 ) then
--		tsource = { GetLootSourceInfo(i) };
--		for j = 1, table.getn(tsource) do
--			TraceFrame:AddMessage("i = "..i..", j = "..j.." : "..tsource[j]);
--		end
--end
		--DBCS_mob.loot[i] = {};
		--lootIcon, lootName, lootQuantity, rarity= GetLootSlotInfo(i);
		--if ( LootSlotIsCoin(i) ) then
		--	DBCS_mob.loot[i].argent = 1;
		--	DBCS_mob.loot[i].link = lootName;
		--else
		--	DBCS_mob.loot[i].argent = 0;
		--	DBCS_mob.loot[i].link = GetLootSlotLink(i);
		--	DBCS_mob.loot[i].nb = lootQuantity;
		--end
		DBCS_mob.loot[i] = {};
		--texture, item, quantity, quality, locked, isQuestItem, questId, isActive = GetLootSlotInfo(slot);
		--lootIcon, lootName, lootQuantity, lootQuality, locked, isQuestItem, questID, isActive = GetLootSlotInfo(slot)
		_, lootName, lootQuantity, _ = GetLootSlotInfo(i);
		--if ( LootSlotIsCoin(i) ) then
		--LOOT_SLOT_NONE
		--LOOT_SLOT_CURRENCY
		--LootSlotHasItem
		if ( GetLootSlotType(i) == LOOT_SLOT_MONEY ) then
			DBCS_mob.loot[i].argent = 1;
			DBCS_mob.loot[i].link = lootName;
		elseif ( GetLootSlotType(i) == LOOT_SLOT_ITEM ) then
			DBCS_mob.loot[i].argent = 0;
			DBCS_mob.loot[i].link = GetLootSlotLink(i);
			DBCS_mob.loot[i].nb = lootQuantity;
		else
			DBCS_mob.loot[i].argent = 1;
			DBCS_mob.loot[i].link = "";
			DBCS_mob.loot[i].nb = 0;
		end
	end
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = DBCS_mob_name;
	DBCS_mob.level = DBCS_mob_level;
	DBCS_mob.classe = DBCS_mob_classe;
	DBCS_mob.famille = DBCS_mob_famille;
	DBCS_mob.type = DBCS_mob_type;
	DBCS_mob.plusmob = DBCS_mob_plusmob;
	DBCS_mob.comptesansgroupe = DBCS_mob_comptesansgroupe;
	if ( DBCS_mob_famille == "Objet" ) then
		DBCS_mob.numzone = "0";
		DBOS_coffre(DBCS_mob_numobjet);
	elseif ( DBCS_mob_classe == "artisanat" ) then
		DBCS_mob.numzone = "1";
	else
		DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	end
	DBCS_mob.x = DBCS_mob_x;
	DBCS_mob.y = DBCS_mob_y;
	for i = 1, DBCS_mob.nbloot do
		if ( DBCS_mob.loot[i].argent == 1 ) then
			DBCS_mob.loot[i].nb = lootName2Copper(DBCS_mob.loot[i].link);
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("DBCS_mob.loot[i].nb : "..DBCS_mob.loot[i].nb);
end
			DBCS_mob.loot[i].numobjet = 0;
			DBCS_mob.loot[i].numcourt2 = "0";
		else
			numcourt = nil;
			if ( DBCS_mob.loot[i].link ) then
				for _, b, c, _, _, _, _, e, f, _, _, _ in string.gmatch(DBCS_mob.loot[i].link,"(.+)item:(%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+):(%p?%d+)%|%h%[(.+)") do
					numcourt = tonumber(b);
					numcourt2 = tonumber(c)..":0:0:0:0:"..e..":"..f..":0:0:0";
				end
if ( DBCS_debug > 1 and numcourt ) then
if ( numcourt2 == "0:0:0:0:0:0:0:0:0:0" ) then
else
TraceFrame:AddMessage("numcourt : "..numcourt.." , numcourt2 : "..numcourt2);
	DBOS_valeurs["objet"] = {};
	--if ( DBOS_valeurs["objet"] == nil ) then
	--	DBOS_valeurs["objet"] = {};
	--end
	--if ( DBOS_valeurs["objet"][DBCS_mob.loot[i].link] == nil ) then
	--	DBOS_valeurs["objet"][DBCS_mob.loot[i].link] = -1;
	--end
end
end
				if ( numcourt ) then
					DBCS_mob.loot[i].numobjet = numcourt;
					DBCS_mob.loot[i].numcourt2 = numcourt2;
					DBobjets_initobjet("item:"..numcourt..":"..numcourt2);
				else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("bug avec le link : "..DBCS_mob.loot[i].link);
end
				end
			end
		end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("i clear 0 = "..i);
--end
		DBCS_mob.loot[i].clear = 0;
	end
	if ( strlower(strsub(DBCS_mob_name,1,11)) == "mouture de " ) then
		DBCS_mob.nbloot = DBCS_mob.nbloot + 1;
		i = DBCS_mob.nbloot;
		DBCS_mob.loot[i] = {};
		DBCS_mob.loot[i].argent = 0;
		DBCS_mob.loot[i].numobjet = DBCS_desenchant_numobjet;
		DBCS_mob.loot[i].numcourt2 = "0:0:0:0:0:0:0:0:0:0";
		--DBCS_mob.loot[i].link = GetLootSlotLink(i);
		DBCS_mob.loot[i].nb = 0;
		DBCS_mob.loot[i].clear = 1;
	end
	if ( DBCS_mob_classe == "artisanat" ) then
		if ( DBCS_mob_type == "d\195\169senchanter" ) then
			DBCS_mob.nbloot = DBCS_mob.nbloot + 1;
			i = DBCS_mob.nbloot;
			DBCS_mob.loot[i] = {};
			DBCS_mob.loot[i].nb = DBCS_desenchant_numobjet_save_prix;
			DBCS_mob.loot[i].numobjet = 0;
			DBCS_mob.loot[i].numcourt2 = "0";
		end
	end

	corpdejapris = 0;
	DBCS_corpcompte = 0;
	DBCS_numcorp = 0;
	if ( ( DBCS_typedegroupe() == 0 or DBCS_mob.comptesansgroupe == 1 ) ) then	--	and 1 == 0 
		if ( DBCS_mob.nbloot > 0 ) then
			DBCS_corpcompte = 1;
			-- boucle sur tous les corps non vidés
			-- modifier DBCS_numcorp
			i = table.getn(DBCS_corp);	--	DBCS_nbcorp;
			fin = 0;
			while ( fin == 0 ) do
				if ( i > 0 ) then
					if ( DBCS_corp[i] == nil ) then
--if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("le corp "..i.." n'existe pas, probleme memoire. je vous conseilles de deco reco.");
TraceFrame:AddMessage("le tableau DBCS_mob comporte "..table.getn(DBCS_mob).." enreg, alors que la variable DBCS_nbcorp vaut "..DBCS_nbcorp);
message("Probleme de memoire tablo avec DBCS, prevenez le concepteur et veuillez deco reco, desole.");
--end
					else
						if ( (DBCS_mob.time - DBCS_corp[i].time) <= 900000 ) then
							corpdejapris = DBCS_comparerancien(i,DBCS_mob);
							if ( corpdejapris == 1 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("ce corp existait : "..i);
end
								DBCS_numcorp = i;
								fin = 1;
							end
						else
							-- je peux supprimer ce corp
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je supprime le vieux corp : "..i);
end
							--DBCS_nbcorp = DBCS_nbcorp - 1 ;
							table.remove(DBCS_corp,i);
							--fin = 1;
						end
					end
				end
				if ( i <= 1 ) then
					fin = 1;
				end
				i = i - 1 ;
			end
		end
		if ( corpdejapris == 0 ) then
			-- vérifier que ce nest pas 1 skin ds DBCORPS_SKIN
			skin = 0;
			if ( DBCS_mob.level > 0 ) then
				fin = 0;
				i = DBCS_mob.nbloot;
				while ( fin == 0 ) do
					if ( i > 0 ) then
						if ( DBCORPS_SKIN[DBCS_mob.loot[i].numobjet] ) then
--TraceFrame:AddMessage("ce corp est du skin : "..DBCS_mob.name);
							skin = 1;
							fin = 1;
						end
					end
					i = i - 1 ;
					if ( i < 1 ) then
						fin = 1;
					end
				end
			end
			sdate = DBCS_date();
			slead = DBCS_chefdugroupe();
			stime = DBCS_time();
			-- si ce corp n est pas du dépeçage
			if ( skin == 0 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'ajoute ce corp : "..DBCS_mob.name);
end
				--if ( DBCS_typedegroupe() == 0 ) then
					--DBmobs_ajoutmob(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,1,0);
					--DBmobs_envoyermob(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,1,0);
				if ( DBCS_mob_ressource == false ) then
					if ( DBCS_CMS_numcanalCMS > 0 ) then
						DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,1,0,DBCS_mob.nbloot);
					end
					DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,1,0,DBCS_mob.nbloot);
				else
					if ( DBCS_CMS_numcanalCMS > 0 ) then
						DBmobs_envoyermob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,1,0,DBCS_mob.nbloot);
					end
					DBcorps_ajoutmob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,1,0,DBCS_mob.nbloot);
				end
				--else
					--DBmobs_ajoutmob(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0);
					--DBmobs_envoyermob(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0);
				--end
			else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'ajoute ce skin : "..DBCS_mob.name);
end
				--if ( DBCS_typedegroupe() == 0 ) then
					--DBmobs_ajoutmob(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,1);
					--DBmobs_envoyermob(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,1);
					if ( DBCS_CMS_numcanalCMS > 0 ) then
						DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,1,DBCS_mob.nbloot);
					end
					DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,1,DBCS_mob.nbloot);
				--else
					--DBmobs_ajoutmob(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0);
					--DBmobs_envoyermob(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0);
				--end
			end
			if ( DBCS_mob.nbloot > 0 ) then
				k = table.getn(DBCS_corp) + 1;
				--DBCS_nbcorp = DBCS_nbcorp + 1;
				DBCS_corp[k] = {};
				DBCS_corp[k].time = DBCS_mob.time;
				DBCS_corp[k].name = DBCS_mob.name;
				DBCS_corp[k].numzone = DBCS_mob.numzone;
				DBCS_corp[k].x = DBCS_mob.x;
				DBCS_corp[k].y = DBCS_mob.y;
				DBCS_corp[k].level = DBCS_mob.level;
				DBCS_corp[k].classe = DBCS_mob.classe;
				DBCS_corp[k].famille = DBCS_mob.famille;
				DBCS_corp[k].type = DBCS_mob.type;
				DBCS_corp[k].plusmob = DBCS_mob.plusmob;
				DBCS_corp[k].nbloot = DBCS_mob.nbloot;
				DBCS_corp[k].loot = {};
				for i = 1, DBCS_mob.nbloot do
					DBCS_corp[k].loot[i] = {};
					DBCS_corp[k].loot[i].numobjet = DBCS_mob.loot[i].numobjet;
					DBCS_corp[k].loot[i].numcourt2 = DBCS_mob.loot[i].numcourt2;
					DBCS_corp[k].loot[i].nb = DBCS_mob.loot[i].nb;
					DBCS_corp[k].loot[i].clear = DBCS_mob.loot[i].clear;
				end
				--DBCS_corp[DBCS_nbcorp] = DBCS_mob;
				DBCS_numcorp = k;	--	DBCS_nbcorp;
				for i = 1, DBCS_mob.nbloot do
					--if ( DBCS_typedegroupe() == 0 ) then
						--DBmobs_ajoutloot(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,DBCS_mob.loot[i].nb);
						--DBmobs_envoyerloot(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,DBCS_mob.loot[i].nb);
					if ( DBCS_mob_ressource == false ) then
						if ( DBCS_CMS_numcanalCMS > 0 ) then
							DBmobs_envoyerloot(DBCS_getlocale,sdate,slead,stime,i,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,DBCS_mob.loot[i].nb);
						end
						DBcorps_ajoutloot(sdate,slead,stime,i,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,DBCS_mob.loot[i].nb);
					else
						if ( DBCS_CMS_numcanalCMS > 0 ) then
							DBmobs_envoyerloot2(DBCS_getlocale,sdate,slead,stime,i,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,DBCS_mob.loot[i].nb);
						end
						DBcorps_ajoutloot2(sdate,slead,stime,i,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,DBCS_mob.loot[i].nb);
					end
					--else
						--DBmobs_ajoutloot(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,0);
						--DBmobs_envoyerloot(DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,0);
					--end
				end
			end
		-- if pas déjà ouvert
		--DBCS_ajoutcorp(DBCS_serveur,DBCS_leader,DBCS_player,DBCS_timedeb,GetTime() * 1000,DBCS_mob_name,DBCS_numzone,DBCS_mob_nbloot,DBCS_mob_loot);
		end
	else
		-- ne rien faire si j ai déjà ce corp
		
		if ( DBCS_typedegroupe() == 1 ) then
			scanal = "PARTY";
		else
			scanal = "RAID";
		end
		--scanal = "SAY";
		sdate = DBCS_date();
		slead = DBCS_chefdugroupe();
		stime = DBCS_time();
		--stime = GetTime() * 1000 ;
		smessage = "";
		smessage = smessage.."@ADBCS@";
		smessage = smessage..DBCS_getlocale.."@";
		smessage = smessage.."MA01@";
		smessage = smessage..sdate.."@";
		smessage = smessage..slead.."@";
		smessage = smessage..stime.."@";
		smessage = smessage..DBCS_mob.name.."@";
		smessage = smessage..DBCS_mob.numzone.."@";
		smessage = smessage..DBCS_mob.x.."@";
		smessage = smessage..DBCS_mob.y.."@";
		smessage = smessage..DBCS_mob.level.."@";
		if ( DBCS_mob.classe == nil ) then
			smessage = smessage.."@";
		else
			smessage = smessage..DBCS_mob.classe.."@";
		end
		if ( DBCS_mob.famille == nil ) then
			smessage = smessage.."@";
		else
			smessage = smessage..DBCS_mob.famille.."@";
		end
		if ( DBCS_mob.type == nil ) then
			smessage = smessage.."@";
		else
			smessage = smessage..DBCS_mob.type.."@";
		end
		if ( DBCS_mob.plusmob == nil ) then
			smessage = smessage.."@";
		else
			smessage = smessage..DBCS_mob.plusmob.."@";
		end
		smessage = smessage..DBCS_mob.nbloot.."@";
		-- ne plus envoyer par send mais par canal addon
--/script DEFAULT_CHAT_FRAME:AddMessage(table.getn(DBCS_raid_player.joueur_s))
		for j = 1 , table.getn(DBCS_raid_player.joueur_s) do
			--if ( DBCS_whisper_dispo == 0 ) then
			--	SendChatMessage(smessage,"WHISPER",DBCS_language,DBCS_raid_player.joueur_s[j]);
			--else
			SendAddonMessage("DBCS",smessage,"WHISPER",DBCS_raid_player.joueur_s[j]);
			--end
		end
		--SendChatMessage(smessage,"WHISPER",DBCS_language,DBCS_joueur);
		for i = 1 , DBCS_mob.nbloot do
			smessage = "";
			smessage = smessage.."@ADBCS@";
			smessage = smessage..DBCS_getlocale.."@";
			smessage = smessage.."LA01@";
			--smessage = smessage..sdate.."@";
			--smessage = smessage..slead.."@";
			smessage = smessage..stime.."@";
			smessage = smessage..i.."@";
			smessage = smessage..DBCS_mob.loot[i].numobjet.."@";
			smessage = smessage..DBCS_mob.loot[i].numcourt2.."@";
			smessage = smessage..DBCS_mob.loot[i].nb.."@";
			for j = 1 , table.getn(DBCS_raid_player.joueur_s) do
				--if ( DBCS_whisper_dispo == 0 ) then
				--	SendChatMessage(smessage,"WHISPER",DBCS_language,DBCS_raid_player.joueur_s[j]);
				--else
				SendAddonMessage("DBCS",smessage,"WHISPER",DBCS_raid_player.joueur_s[j]);
				--end
			end
			--SendChatMessage(smessage,"WHISPER",DBCS_language,DBCS_joueur);
		end
	end
	DBCS_mob_ressource = false;

end

function DBCS_comparerancien(num,tablo)

	local dejapris = 1;
	local i,j;
	local n;

	if ( dejapris == 1 ) then
		if ( DBCS_corp[num].name == tablo.name ) then
		else
			dejapris = 0;
		end
	end
	if ( dejapris == 1 ) then
		if ( DBCS_corp[num].level == tablo.level ) then
		else
			dejapris = 0;
		end
	end
	if ( dejapris == 1 ) then
		if ( DBCS_corp[num].numzone == tablo.numzone ) then
		else
			dejapris = 0;
		end
	end
	if ( dejapris == 1 ) then
		if ( DBCS_corp[num].nbloot < tablo.nbloot ) then
			dejapris = 0;
		end
	end
	if ( dejapris == 1 ) then
		j = 0;
		for i = 1, DBCS_corp[num].nbloot do
-- ajouter la gestion des objets déjà pris par le flag clear = 0 ou 1
			if ( DBCS_corp[num].loot[i].clear == 0 ) then
				j = j + 1;
				if ( dejapris == 1 ) then
					if ( DBCS_corp[num].loot[i].numobjet == tablo.loot[j].numobjet ) then
					else
						dejapris = 0;
					end
				end
				if ( dejapris == 1 ) then
					if ( DBCS_corp[num].loot[i].numcourt2 == tablo.loot[j].numcourt2 ) then
					else
						dejapris = 0;
					end
				end
				if ( dejapris == 1 ) then
					if ( DBCS_corp[num].loot[i].nb == tablo.loot[j].nb ) then
					else
						dejapris = 0;
					end
				end
			end
		end
	end

	return dejapris;

end

function DBCS_ajoutcorp(nomserveur,nomleader,nomplayer,timedeb,timeevent,nommob,numzone,x,y,nbloot,loot)

--	nomserveur	nom du serveur
--	nomleader	nom du leader
--	nomplayer	nom du joueur
--	timedeb		time depuis 1970 du début de la connexion
--	timeevent		time depuis que l ordi est allumé
--	nommob		nom du mob
--	numzone		numéro de la zone
--	nbloot		nb objets sur le mob
--	loot		tablo des objets du mob
--		numobjet		num de l objet ( court 14047 )
--		numcourt2	num de l'objet ( la fin "0:0:0" )
--		nb		nb pile de cet objet

	local i;

	if ( not DBCS ) then
		DBCS = {};
	end
	if ( not DBCS[nomserveur] ) then
		DBCS[nomserveur] = {};
	end
	if ( not DBCS[nomserveur][nomleader] ) then
		DBCS[nomserveur][nomleader] = {};
	end
	if ( not DBCS[nomserveur][nomleader][nomplayer] ) then
		DBCS[nomserveur][nomleader][nomplayer] = {};
	end
	if ( not DBCS[nomserveur][nomleader][nomplayer][timedeb] ) then
		DBCS[nomserveur][nomleader][nomplayer][timedeb] = {};
	end
	if ( not DBCS[nomserveur][nomleader][nomplayer][timedeb][timeevent] ) then
		DBCS[nomserveur][nomleader][nomplayer][timedeb][timeevent] = {};
	end
	DBCS[nomserveur][nomleader][nomplayer][timedeb][timeevent].nommob = nommob;
	DBCS[nomserveur][nomleader][nomplayer][timedeb][timeevent].numzone = numzone;
	DBCS[nomserveur][nomleader][nomplayer][timedeb][timeevent].nbloot = nbloot;
	DBCS[nomserveur][nomleader][nomplayer][timedeb][timeevent].loot = {};
	for i = 1, nbloot do
		if ( loot[i].argent == true ) then
			-- traiter loot[i].link = argent
		else
			-- traiter loot[i].link = lien vers objet
		end
		DBCS[nomserveur][nomleader][nomplayer][timedeb][timeevent].loot[i].numobjet	= loot[i].numobjet;
		DBCS[nomserveur][nomleader][nomplayer][timedeb][timeevent].loot[i].numcourt2	= loot[i].numcourt2;
		DBCS[nomserveur][nomleader][nomplayer][timedeb][timeevent].loot[i].nb	= loot[i].nb;
		--DBmobs_ajoutloot(nommob,numzone,loot[i].numobjet,loot[i].numcourt2,loot[i].nb);
	end

end

function DBCS_numregionbyname(nomregion)

	local inomcontinent;
	local inomregion;
	local i;
	local j;
	local numregion;

	numregion = "000";
	inomcontinent = -1;
	inomregion = -1;
	for i = 0, DBCS_RegionData.nb do
		for j = 1, DBCS_RegionData[i].nb do
			if ( DBCS_RegionData[i][j].name == nomregion ) then
				inomcontinent = DBCS_RegionData[i].index;
				inomregion = DBCS_RegionData[i][j].index;
			end
		end
	end	
	if ( inomcontinent == -1 ) then
		return numregion;
	end

	if ( inomregion < 10 ) then
		numregion = tostring(inomcontinent).."0"..tostring(inomregion);
	else
		numregion = tostring(inomcontinent)..""..tostring(inomregion);
	end
	return numregion;

end

function lootName2Copper(item)

	local i = 0;
	local g,s,c = 0;

	i = string.find(item, "Or" );
	if i then
		g = string.sub(item,0,i-1);
		item = string.sub(item,i+3,string.len(item));
	end
	i = 0;
	i = string.find(item, "Argent" );
	if i then
		s = string.sub(item,0,i-1);
		item = string.sub(item,i+7,string.len(item));
	end
	i = 0;
	i = string.find(item, "Cuivre" );
	if i then
		c = string.sub(item,0,i-1);
	end

	local money = 0;
	if c then
		money = money + c;
	end
	if s then
		money = money + (s * 100);
	end
	if g then
		money = money + (g * 10000);
	end

	return money;

end

function DBCS_afficherevent(event,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20)

	local arglong;

	if ( event ) then
		arglong = event;
	else
		arglong = "";
	end
	if ( arg1 ) then
		arglong = arglong.." 1 : "..arg1;
	end
	if ( arg2 ) then
		if ( type(arg2) == "boolean" ) then
			if ( arg2 == true ) then
				arglong = arglong..", 2 : vrai";
			else
				arglong = arglong..", 2 : faux";
			end
		else
			arglong = arglong..", 2 : "..arg2;
		end
	end
	if ( arg3 ) then
		if ( type(arg3) == "boolean" ) then
			if ( arg3 == true ) then
				arglong = arglong..", 3 : vrai";
			else
				arglong = arglong..", 3 : faux";
			end
		else
			arglong = arglong..", 3 : "..arg3;
		end
	end
	if ( arg4 ) then
		arglong = arglong..", 4 : "..arg4;
	end
	if ( arg5 ) then
		arglong = arglong..", 5 : "..arg5;
	end
	if ( arg6 ) then
		arglong = arglong..", 6 : "..arg6;
	end
	if ( arg7 ) then
		arglong = arglong..", 7 : "..arg7;
	end
	if ( arg8 ) then
		arglong = arglong..", 8 : "..arg8;
	end
	if ( arg9 ) then
		arglong = arglong..", 9 : "..arg9;
	end
	if ( arg10 ) then
		arglong = arglong..", 10 : "..arg10;
	end
	if ( arg11 ) then
		arglong = arglong..", 11 : "..arg11;
	end
	if ( arg12 ) then
		arglong = arglong..", 12 : "..arg12;
	end
	if ( arg13 ) then
		arglong = arglong..", 13 : "..arg13;
	end
	if ( arg14 ) then
		arglong = arglong..", 14 : "..arg14;
	end
	if ( arg15 ) then
		arglong = arglong..", 15 : "..arg15;
	end
	if ( arg16 ) then
		arglong = arglong..", 16 : "..arg16;
	end
	if ( arg17 ) then
		arglong = arglong..", 17 : "..arg17;
	end
	if ( arg18 ) then
		arglong = arglong..", 18 : "..arg18;
	end
	if ( arg19 ) then
		arglong = arglong..", 19 : "..arg19;
	end
	if ( arg20 ) then
		arglong = arglong..", 20 : "..arg20;
	end
	TraceFrame:AddMessage(arglong);

end

--/script DEFAULT_CHAT_FRAME:AddMessage(date("%Y%m%d"))
--/script DEFAULT_CHAT_FRAME:AddMessage(DBCS_date())
function DBCS_date()

	-- "20070116"
	return date("%Y%m%d");

end

--/script DEFAULT_CHAT_FRAME:AddMessage(date("%H:%M:%S")..","..GetTime())
--/script DEFAULT_CHAT_FRAME:AddMessage(DBCS_time())
function DBCS_time()

	--"10:54:24@12563478"
	return date("%H%M%S").."@"..(GetTime()*1000);

end

--/script DEFAULT_CHAT_FRAME:AddMessage(DBCS_chefdugroupe())
function DBCS_chefdugroupe()

	local i;
	local sname,irank;

	sname = DBCS_joueur;
	if ( UnitInRaid("player") ) then
		for i = 1 , 40 do	--GetNumRaidMembers() do	--20120829
			sname, irank, _, _, _, _, _, _ = GetRaidRosterInfo(i);
			if ( sname and ( irank == 2 ) ) then
				return sname;
			end
		end
	else
		if ( GetNumSubgroupMembers() > 0 ) then	--GetNumPartyMembers() > 0 ) then
			if ( UnitIsGroupLeader("player") ) then
				return DBCS_joueur;
			else
				for i = 1 , GetNumSubgroupMembers() do	--GetNumPartyMembers() do
					if ( UnitIsGroupLeader("party"..i) ) then
						return UnitName("party"..i);
					end
				end
			end
		else
			return DBCS_joueur;
		end
	end
	return sname;

end

function DBCS_typedegroupe()	--DBCS_chefdegroupe

local ibon;

--/script DEFAULT_CHAT_FRAME:AddMessage();
--GetLootThreshold();
--0 - Poor
--1 - Common
--2 - Uncommon
--3 - Rare
--4 - Epic
--5 - Legendary
--6 - Artifact
--GetLootMethod();
--arg1 -- the loot method.("freeforall", "roundrobin", "master", "group", "needbeforegreed")
--arg2 -- (only used for "master") returns the looter index, or nil. If the master looter is in your party (not always true in a raid) then it will return 0 for yourself, or >0 for another party member. If the master looter is NOT in your party it will return nil. 
--GiveMasterLoot(lootIndex, candidateIndex); 
--candidate = GetMasterLootCandidate(index); 

--TraceFrame:AddMessage("nombre en raid : "..GetNumRaidMembers());

	if ( UnitInRaid("player") ) then
--TraceFrame:AddMessage("je suis en raid.");
		--if ( GetNumRaidMembers() > 1 ) then
			--if ( IsRaidLeader() ) then
			if ( UnitIsGroupLeader("player") ) then
--TraceFrame:AddMessage("je suis le leader du raid.");
				--if ( GetLootMethod() == "master" ) then
				--	ibon = 0;
				--else
					ibon = 2;
				--end
			else
--TraceFrame:AddMessage("je ne suis pas le leader du raid.");
				ibon = 2;
			end
		--end
	else
		if ( 0 > 0 ) then	--GetNumPartyMembers() > 0 ) then
			if ( UnitIsGroupLeader("player") ) then
--TraceFrame:AddMessage("je suis le leader du groupe.");
				ibon = 1;
			else
--TraceFrame:AddMessage("je ne suis pas le leader du groupe.");
				ibon = 1;
			end
		else
--TraceFrame:AddMessage("je suis seul.");
			ibon = 0;
		end
	end

	return ibon;

end

function DBCS_ajouter_joueur(sjoueur,icms)

	if ( DBCS_raid_player.joueur_i[sjoueur] == nil ) then
		DBCS_raid_player.nbj = DBCS_raid_player.nbj + 1;
		table.insert(DBCS_raid_player.joueur_s,sjoueur);
	end
	if ( icms == 1 ) then
		if ( DBCS_raid_player_cms.joueur_i[sjoueur] == nil ) then
			DBCS_raid_player_cms.nbj = DBCS_raid_player_cms.nbj + 1;
			table.insert(DBCS_raid_player_cms.joueur_s,sjoueur);
		end
	end

end

function DBCS_supprimer_joueur(sjoueur,icms)

local n;

	if ( icms == 0 ) then
		n = DBCS_raid_player.joueur_i[sjoueur];
		if ( n ) then
			table.remove(DBCS_raid_player.joueur_s,n);
			DBCS_raid_player.nbj = DBCS_raid_player.nbj -1;
			DBCS_trier_joueur();
		end
	end
	n = DBCS_raid_player_cms.joueur_i[sjoueur];
	if ( n ) then
		--DBCS_raid_player_cms.joueur_i[sjoueur] = nil;
		table.remove(DBCS_raid_player_cms.joueur_s,n);
		DBCS_raid_player_cms.nbj = DBCS_raid_player_cms.nbj -1;
		DBCS_trier_joueur();
	end
	
end

function DBCS_trier_joueur()

	local i;

	table.sort(DBCS_raid_player.joueur_s);
	DBCS_raid_player.joueur_i = {};
	for i = 1, DBCS_raid_player.nbj do
		DBCS_raid_player.joueur_i[DBCS_raid_player.joueur_s[i]] = i;
	end
	table.sort(DBCS_raid_player_cms.joueur_s);
	DBCS_raid_player_cms.joueur_i = {};
	for i = 1, DBCS_raid_player_cms.nbj do
		DBCS_raid_player_cms.joueur_i[DBCS_raid_player_cms.joueur_s[i]] = i;
	end
	--if ( CMS_cliquer == 1 ) then
if ( DBCS_debug > 1 ) then
	TraceFrame:AddMessage("liste des joueurs avec DBCS et CMS");
	for i = 1, DBCS_raid_player_cms.nbj do
		TraceFrame:AddMessage(DBCS_raid_player_cms.joueur_s[i]);
	end
end
	--end

end

function DBCS_vider_joueur()

	DBCS_raid_player.nbj = 0;
	DBCS_raid_player.joueur_s = {};
	DBCS_raid_player.joueur_i = {};
	DBCS_raid_player_cms.nbj = 0;
	DBCS_raid_player_cms.joueur_s = {};
	DBCS_raid_player_cms.joueur_i = {};

end

function DBCS_envoyer_en_send_liste(sjoueur,icms)

	local lmax = 240;
	local snom;
	local lnom;
	local i;
	local n;
	local envoi = {};
	local sliste;
	local lliste;

	local sdebut;
	local ldebut;
	local scode = "@DBCS@";
	
	local tablo;

	if ( icms == 0 ) then
		tablo = DBCS_raid_player;
		sdebut = scode..DBCS_VERSION1..DBCS_VERSION2..DBCS_VERSION3.."@LA01@";
	else
		tablo = DBCS_raid_player_cms;
		sdebut = scode..DBCS_VERSION1..DBCS_VERSION2..DBCS_VERSION3.."@LA02@";
	end
	
	--sdebut = scode..DBCS_VERSION1..DBCS_VERSION2..DBCS_VERSION3.."@LA01@";
	ldebut = strlen(sdebut);

	sliste = "";
	lliste = 0;
	n = 0;
	for i = 1, tablo.nbj do
		snom = tablo.joueur_s[i];
		lnom = strlen(snom);
		if ( ( ldebut + lliste + lnom + 1 ) > lmax ) then
			n = n + 1;
			envoi[n] = sliste;
			sliste = "";
			lliste = 0;
		end
		sliste = sliste..snom.."@";
		lliste = lliste + lnom + 1;
	end
	if lliste > 0 then
		n = n +1;
		envoi[n] = sliste;
	end
	-- ne plus envoyer par send mais par canal addon
	for i = 1, n do
		--if ( DBCS_whisper_dispo == 0 ) then
		--	SendChatMessage(sdebut..envoi[i],"WHISPER",DBCS_language,sjoueur);
		--else
		SendAddonMessage("DBCS",sdebut..envoi[i],"WHISPER",sjoueur);
		--end
	end

end

function DBCS_liresend(message,semetteur)
--	local scode = "@DBCS@";
--	sdebut = scode..DBCS_VERSION1..DBCS_VERSION2..DBCS_VERSION3.."@LA01@";
--	sdebut = scode..DBCS_VERSION1..DBCS_VERSION2..DBCS_VERSION3.."@LA02@";

	local ideb,ifin;
	local snom;
	local sversion;
	local icms;

	--ideb = 2;
	--ifin = strfind(message,"@",ideb);
	--if ( ifin ) then
	--	saddon = strsub(message,ideb,ifin-1);
	--	ideb = ifin;
	--end
	--ideb = ideb + 1;
	ideb = 1;
	sversion = strsub(message,ideb,ideb+5);
	if ( tonumber(DBCS_VERSION1..DBCS_VERSION2..DBCS_VERSION3) < tonumber(sversion) ) then
		--if ( DBCS_newversion == 0 ) then
		--	TraceFrame:AddMessage("il existe une nouvelle version de DBCS.");
		--	DBCS_newversion = 1;
		--end
	end
	ideb = ideb + 6;
	ideb = ideb + 1;
	scode = strsub(message,ideb,ideb+3);
	if ( scode == "LA01" ) then
		icms = 1;
	else
		icms = 0;
	end
	ideb = ideb + 4;
	ideb = ideb + 1;
	ifin = 1;
	while ( ifin ) do
		ifin = strfind(message,"@",ideb);
		if ( ifin ) then
			snom = strsub(message,ideb,ifin-1);
			DBCS_ajouter_joueur(snom,icms);
			DBCS_trier_joueur();
			ideb = ifin +1;
		end
	end
	DBCS_ajouter_joueur(semetteur,icms);
	DBCS_trier_joueur();

end

function DBCS_lire_message_groupe(sarg1,sarg2)

local saddon;
local straitement;
local saction;
local snumaction;
local smessage;
local stime;
local svaleur;
local inumloot;
local sdate,slead,sheure;
local slead = ""
local sleadcms = "";
local inum;
local iindex;
local inumversion;
local i;
local inb;
local slangue;
local ssuite;
local sregion;
local ix;
local iy;
local sdate;
local stime;

local snomserveur;
--local sdate;
--local slead;
--local sheure;
--local stime;

local bvide;
local a;

	saddon = strsub(sarg1,3,6);
	if ( saddon and saddon == "DBCS" ) then --cet addon
		--if ( arg1 == "@ADBCS@frFR@SC01@CMS@" ) then
		ifin = strfind(sarg1,"@",8);
		slangue = strsub(sarg1,8,ifin-1);
		ssuite = strsub(sarg1,ifin+1);
		straitement = strsub(ssuite,1,1);
		--if ( arg1 == "@ADBCS@SC01@CMS@" ) then
		if ( straitement and straitement == "S" ) then -- service
			saction = strsub(ssuite,2,2);
			if ( saction and saction == "C" ) then --connecté
				snumaction = strsub(ssuite,3,4);
				if ( snumaction and snumaction == "01" ) then
					smessage = strsub(ssuite,6);
					slead = DBCS_raid_player.joueur_s[1];
					if ( slead == nil ) then
						slead = ""
					end
					sleadcms = DBCS_raid_player_cms.joueur_s[1];
					if ( sleadcms == nil ) then
						sleadcms = ""
					end
					if ( not ( sarg2 == DBCS_joueur ) ) then
						if ( smessage and smessage == "CMS@" ) then
							DBCS_ajouter_joueur(sarg2,1);
							DBCS_trier_joueur();
							if ( sleadcms == DBCS_joueur ) then
								DBCS_envoyer_en_send_liste(sarg2,1);
							end
						end
						DBCS_ajouter_joueur(sarg2,0);
						DBCS_trier_joueur();
						if ( slead == DBCS_joueur ) then
							DBCS_envoyer_en_send_liste(sarg2,0);
						end
					end
				end
			elseif ( saction and saction == "D" ) then --déco
				snumaction = strsub(ssuite,3,4);
				if ( snumaction and snumaction == "01" ) then
					smessage = strsub(ssuite,6);
					if ( smessage and smessage == "CMS@" ) then
						if ( not ( sarg2 == DBCS_joueur ) ) then
							DBCS_supprimer_joueur(sarg2,1);
						end
					else
						if ( not ( sarg2 == DBCS_joueur ) ) then
							DBCS_supprimer_joueur(sarg2,0);
						end
					end
				end
			end
		elseif ( straitement and straitement == "C" ) then -- corp
			saction = strsub(ssuite,2,2);
			if ( saction and saction == "S" ) then -- supprimer
				snumaction = strsub(ssuite,3,4);
				if ( snumaction and snumaction == "01" ) then
					smessage = strsub(ssuite,6);
					ifin = 0;
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					snomserveur = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					sdate = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					slead = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					sheure = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					stime = strsub(smessage,ideb,ifin-1);
					if ( DBCC[snomserveur] and DBCC[snomserveur][sdate] and DBCC[snomserveur][sdate][slead] and DBCC[snomserveur][sdate][slead][sheure.."@"..stime] ) then
						DBCC[snomserveur][sdate][slead][sheure.."@"..stime][-3] = 0;
						--DBCC[snomserveur][sdate][slead][sheure.."@"..stime] = nil;
						--bvide = true;
						--if ( bvide == true ) then
						--	for a, _ in pairs(DBCC[snomserveur][sdate][slead]) do
						--		bvide = false;
						--	end
						--	if ( bvide == true ) then
						--		DBCC[snomserveur][sdate][slead] = nil;
						--	end
						--end
						--if ( bvide == true ) then
						--	for a, _ in pairs(DBCC[snomserveur][sdate]) do
						--		bvide = false;
						--	end
						--	if ( bvide == true ) then
						--		DBCC[snomserveur][sdate] = nil;
						--	end
						--end
						--if ( bvide == true ) then
						--	for a, _ in pairs(DBCC[snomserveur]) do
						--		bvide = false;
						--	end
						--	if ( bvide == true ) then
						--		DBCC[snomserveur] = nil;
						--	end
						--end
					end
				end
			end
		elseif ( straitement and straitement == "H" ) then --histo mob
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage(sarg2.." envoi 1 enreg H");
--end
			saction = strsub(ssuite,2,2);
			if ( saction and saction == "A" ) then --ajouter
				if ( DBCS_prog_serveur == 1 ) then
					snumaction = strsub(ssuite,3,4);
					if ( snumaction and snumaction == "01" ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage(DBCS_lienjoueurbynom(sarg2).." envoi 1 enreg HA01");
--end
						smessage = strsub(ssuite,6);
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage(DBCS_lienjoueurbynom(sarg2).." envoi HA01 : "..smessage);
--end
						if ( DBCS_recup_tempo[sarg2] == nil ) then
							DBCS_recup_tempo[sarg2] = {};
						end
						ifin = 0;
						ideb = ifin+1;
						ifin = strfind(smessage,"@",ideb);
						inum = tonumber(strsub(smessage,ideb,ifin-1));
						if ( DBCS_recup_tempo[sarg2][inum] == nil ) then
							DBCS_recup_tempo[sarg2][inum] = {};
							DBCS_recup_tempo[sarg2][inum][-1] = "HA01";
						end
						ideb = ifin+1;
						ifin = strfind(smessage,"@",ideb);
						iindex = tonumber(strsub(smessage,ideb,ifin-1));
						if ( iindex == -3 ) then
							ideb = ifin+1;
							ifin = strfind(smessage,"@",ideb);
							DBCS_recup_tempo[sarg2][inum][-3] = tonumber(strsub(smessage,ideb,ifin-1));
						else
							ideb = ifin+1;
							DBCS_recup_tempo[sarg2][inum][iindex] = strsub(smessage,ideb);
						end
						if ( DBCS_recup_tempo[sarg2][inum][0] and DBCS_recup_tempo[sarg2][inum][-1] and DBCS_recup_tempo[sarg2][inum][-2] and DBCS_recup_tempo[sarg2][inum][-3] ) then
							--if ( table.getn(DBCS_recup_tempo[sarg2][inum]) == DBCS_recup_tempo[sarg2][inum][-3] ) then
								-- on peut traiter	( 	sarg2	,	inum	);
								if ( slangue == DBCS_getlocale ) then
									DBCS_traiter_histo_corp(sarg2,inum);
								end
								DBCS_tr_joueur_finenreg(sarg2);
							--end
						end
					end
				end
			elseif ( saction and saction == "R" ) then --recherche
				if ( DBCS_prog_serveur == 0 ) then
					snumaction = strsub(ssuite,3,4);
					if ( snumaction and snumaction == "01" ) then
						smessage = strsub(ssuite,6);
						DBCS_envoyer_prochain_element(sarg2);
					end
				end
			elseif ( saction and saction == "F" ) then --fin recherche mob
				if ( DBCS_prog_serveur == 1 ) then
					snumaction = strsub(ssuite,3,4);
					if ( snumaction and snumaction == "01" ) then
						smessage = strsub(ssuite,6);
						DBCS_tr_joueur_toutrecu(sarg2);
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("le joueur "..DBCS_lienjoueurbynom(sarg2).." n'a aucun enregistrement mob a envoyer.");
end
					elseif ( snumaction and snumaction == "02" ) then
						smessage = strsub(ssuite,6);
						DBCS_tr_joueur_toutrecu(sarg2);
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("le joueur "..DBCS_lienjoueurbynom(sarg2).." n'a plus d'enregistrement mob a envoyer.");
end
					end
				end
			end
		elseif ( straitement and straitement == "M" ) then --mob
			saction = strsub(ssuite,2,2);
			if ( saction and saction == "A" ) then --ajouter
				snumaction = strsub(ssuite,3,4);
				if ( snumaction and snumaction == "01" ) then
					smessage = strsub(ssuite,6);
					if ( DBCS_raid_mob_tempo[sarg2] == nil ) then
						DBCS_raid_mob_tempo[sarg2] = {};
					end
					ifin = 0;
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					sdate = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					slead = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					sheure = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					stime = strsub(smessage,ideb,ifin-1);
					if ( DBCS_raid_mob_tempo[sarg2][stime] == nil ) then
						DBCS_raid_mob_tempo[sarg2][stime] = {};
						DBCS_raid_mob_tempo[sarg2][stime].loot = {};
						DBCS_raid_mob_tempo[sarg2][stime].nblu = 0;
					end
					DBCS_raid_mob_tempo[sarg2][stime].slangue = slangue;
					DBCS_raid_mob_tempo[sarg2][stime].sdate = sdate;
					DBCS_raid_mob_tempo[sarg2][stime].slead = slead;
					DBCS_raid_mob_tempo[sarg2][stime].sheure = sheure;
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].nommob = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].numregion = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].x = tonumber(strsub(smessage,ideb,ifin-1));
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].y = tonumber(strsub(smessage,ideb,ifin-1));
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].level = tonumber(strsub(smessage,ideb,ifin-1));
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].classe = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].famille = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].type = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].plusmob = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].nbloot = tonumber(strsub(smessage,ideb,ifin-1));
					if ( DBCS_raid_mob_tempo[sarg2][stime].nbloot == DBCS_raid_mob_tempo[sarg2][stime].nblu ) then
						DBCS_raid_comparer_ancien(sarg2,stime);
					end
				end
			end
		elseif ( straitement and straitement == "L" ) then --loot
			saction = strsub(ssuite,2,2);
			if ( saction and saction == "A" ) then --ajouter
				snumaction = strsub(ssuite,3,4);
				if ( snumaction and snumaction == "01" ) then
					smessage = strsub(ssuite,6);
					if ( DBCS_raid_mob_tempo[sarg2] == nil ) then
						DBCS_raid_mob_tempo[sarg2] = {};
					end
					ifin = 0;
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					sheure = strsub(smessage,ideb,ifin-1);
					ideb = ifin +1;
					ifin = strfind(smessage,"@",ideb);
					stime = strsub(smessage,ideb,ifin-1);
					if ( DBCS_raid_mob_tempo[sarg2][stime] == nil ) then
						DBCS_raid_mob_tempo[sarg2][stime] = {};
						DBCS_raid_mob_tempo[sarg2][stime].loot = {};
						DBCS_raid_mob_tempo[sarg2][stime].nblu = 0;
					end
					if ( DBCS_raid_mob_tempo[sarg2][stime].nblu ) then
						DBCS_raid_mob_tempo[sarg2][stime].nblu = DBCS_raid_mob_tempo[sarg2][stime].nblu + 1;
					else
						DBCS_raid_mob_tempo[sarg2][stime].nblu = 1;
					end
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					inumloot = tonumber(strsub(smessage,ideb,ifin-1));
					DBCS_raid_mob_tempo[sarg2][stime].loot[inumloot] = {};
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].loot[inumloot].numobjet = tonumber(strsub(smessage,ideb,ifin-1));
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].loot[inumloot].numcourt2 = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					DBCS_raid_mob_tempo[sarg2][stime].loot[inumloot].nb = tonumber(strsub(smessage,ideb,ifin-1));
					DBCS_raid_mob_tempo[sarg2][stime].loot[inumloot].exist = 1;
					if ( DBCS_raid_mob_tempo[sarg2][stime].nbloot == DBCS_raid_mob_tempo[sarg2][stime].nblu ) then
						DBCS_raid_comparer_ancien(sarg2,stime);
					end
				end
			end
		elseif ( straitement and straitement == "V" ) then --version
			saction = strsub(ssuite,2,2);
			if ( saction and saction == "R" ) then --recherche
				snumaction = strsub(ssuite,3,4);
				if ( snumaction and snumaction == "01" ) then
					smessage = "@ADBCS@"..DBCS_getlocale.."@VI01@"..DBCS_VERSION1..DBCS_VERSION2..DBCS_VERSION3.."@";
					--if ( DBCS_whisper_dispo == 0 ) then
					--	SendChatMessage(smessage,"WHISPER",DBCS_language,sarg2);
					--else
					SendAddonMessage("DBCS",smessage,"WHISPER",sarg2);
					--end
				end
			elseif ( saction and saction == "I" ) then --info
				snumaction = strsub(ssuite,3,4);
				if ( snumaction and snumaction == "01" ) then
					inumversion = tonumber(strsub(ssuite,6,strlen(ssuite)-1));
if ( DBCS_debug > 1 ) then
	if ( inumversion ) then
		TraceFrame:AddMessage(DBCS_lienjoueurbynom(sarg2).." m'envoi la version : "..inumversion);
	else
		TraceFrame:AddMessage(DBCS_lienjoueurbynom(sarg2).." m'envoi la version : "..ssuite);
	end
end
					DBCS_tr_joueur_modifier(sarg2,inumversion);
				end
			end
		elseif ( straitement and straitement == "X" ) then --position
			if ( DBGL ) then
				saction = strsub(ssuite,2,4);
				if ( saction and saction == "LOC" ) then --localisation
					smessage = strsub(ssuite,6);
					ifin = 0;
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					sregion = strsub(smessage,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					ix = tonumber(strsub(smessage,ideb,ifin-1));
					ideb = ifin+1;
					ifin = strfind(smessage,"@",ideb);
					iy = tonumber(strsub(smessage,ideb,ifin-1));
					if ( ix == 0 and iy == 0 ) then
					else
						sdate = DBCS_date();
						stime = DBCS_time();
						if ( DBGL["z"] ) then	-- z = nomdelaguilde
						else
							DBGL["z"] = {};
						end
						if ( DBGL["z"][sarg2] ) then
						else
							DBGL["z"][sarg2] = {};
						end
						DBGL["z"][sarg2][1] = sdate;
						DBGL["z"][sarg2][2] = stime;
						DBGL["z"][sarg2][3] = sregion;
						DBGL["z"][sarg2][4] = ix;
						DBGL["z"][sarg2][5] = iy;
					end
if ( DBCS_debug > 1 ) then
	if ( sarg2 == DBCS_joueur ) then
	else
		TraceFrame:AddMessage("joueur = "..sarg2..", ssuite = "..ssuite);
	end
end
			--"@ADBCS@xxXX@XLOC@306@10@16@"
			--XLOC@306@10@16@
				end
			end
		end
	end

end

function DBCS_raid_comparer_ancien(sarg2,stime)

local i;
local ifin;
local iskin;
local inbmob;
local inouveaucorp;

local ibon;
local tablo;

local icorpdejapris;
local bcorpquete;

	inouveaucorp = 1;

	icorpdejapris = 0;
	--if ( DBCS_raid_mob_tempo[sarg2][stime].nbloot > 0 ) then
		i = table.getn(DBCS_raid_mob);
		ifin = 0;
		while ( ifin == 0 ) do
			if ( i > 0 ) then
				if ( (GetTime() - (DBCS_raid_mob[i].time/1000)) <= 900 ) then
					icorpdejapris = DBCS_raid_comparer_ancien_element(i,DBCS_raid_mob_tempo[sarg2][stime]);
					if ( icorpdejapris == 1 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("ce corp existait peut etre en : "..i);
end
						inouveaucorp = 0;
						-- je peux supprimer ce corp
						DBCS_raid_mob_tempo[sarg2][stime] = nil;
						ifin = 1;
					end
				else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je supprime ce vieux corps : "..i);
end
					-- je peux supprimer ce corp
					table.remove(DBCS_raid_mob,i);
					--ifin = 1;
				end
			end
			if ( i <= 1 ) then
				ifin = 1;
			end
			i = i - 1 ;
		end
	--end
	-- ne pas tenir compte d un corp n'ayant que des objets de quete
	bcorpquete = 0;
	if ( inouveaucorp == 1 and DBCS_raid_mob_tempo[sarg2][stime].nbloot > 0 and ( not ( DBCS_raid_mob_tempo[sarg2][stime].level == nil ) ) and DBCS_raid_mob_tempo[sarg2][stime].level > 0 ) then
		ibon = 0;
		--inouveaucorp = 0;
		for i = 1,DBCS_raid_mob_tempo[sarg2][stime].nbloot do
			tablo = DBOS_detail(DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet,DBCS_raid_mob_tempo[sarg2][stime].loot[i].numcourt2);
			if ( tablo.nomobjet ) then
				if ( tablo.type and tablo.type == DBCS_objet_type_index[6] ) then	-- 6 = objet de quete
					--ibon = 0;
				else
					ibon = 1;
				end
			else
				ibon = 1;
			end
		end
		if ( ibon == 0 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("le corp "..i.." n'a que des objets de quete."); -- donc, on ne le compte pas, car cela peut etre 1 double ouvrage de corp, quand on est en groupe
end
			--inouveaucorp = 0;
			bcorpquete = 1;
			-- mettre le nb corp nb skin nb de chaque objet à 0
		end
	end
	
	if ( inouveaucorp == 1 ) then
		DBCS_raid_mob_tempo[sarg2][stime].time = GetTime() * 1000;
		table.insert(DBCS_raid_mob,DBCS_raid_mob_tempo[sarg2][stime]);
		-- vérifier que ce n'est pas 1 skin ds DBCORPS_SKIN
		iskin = 0;
		if ( bcorpquete == 0 ) then
			inbmob = 1;
		else
			inbmob = 0;
		end
		if ( DBCS_raid_mob_tempo[sarg2][stime].level > 0 ) then
			ifin = 0;
			i = DBCS_raid_mob_tempo[sarg2][stime].nbloot;
			while ( ifin == 0 ) do
				if ( i > 0 ) then
					if ( DBCORPS_SKIN[DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet] ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("ce corp est du skin : "..DBCS_raid_mob_tempo[sarg2][stime].nommob);
end
						iskin = 1;
						inbmob = 0;
						ifin = 1;
					end
				end
				i = i - 1 ;
				if ( i < 1 ) then
					ifin = 1;
				end
			end
		end
		if ( DBCS_CMS_numcanalCMS > 0 ) then
			--test
			if ( DBCS_raid_player_cms.joueur_s[1] == DBCS_joueur ) then
			--test
				DBmobs_envoyermob(
									DBCS_raid_mob_tempo[sarg2][stime].slangue,
									DBCS_raid_mob_tempo[sarg2][stime].sdate,
									DBCS_raid_mob_tempo[sarg2][stime].slead,
									--stime,
									--DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..DBCS_raid_mob_tempo[sarg2][stime].stime,
									DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..stime,
									DBCS_raid_mob_tempo[sarg2][stime].nommob,
									DBCS_raid_mob_tempo[sarg2][stime].numregion,
									DBCS_raid_mob_tempo[sarg2][stime].x,
									DBCS_raid_mob_tempo[sarg2][stime].y,
									DBCS_raid_mob_tempo[sarg2][stime].level,
									DBCS_raid_mob_tempo[sarg2][stime].classe,
									DBCS_raid_mob_tempo[sarg2][stime].famille,
									DBCS_raid_mob_tempo[sarg2][stime].type,
									DBCS_raid_mob_tempo[sarg2][stime].plusmob,
									inbmob,
									iskin,
									DBCS_raid_mob_tempo[sarg2][stime].nbloot
								);
				DBcorps_ajoutmob(
								DBCS_raid_mob_tempo[sarg2][stime].slangue,
								DBCS_raid_mob_tempo[sarg2][stime].sdate,
								DBCS_raid_mob_tempo[sarg2][stime].slead,
								--stime,
								--DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..DBCS_raid_mob_tempo[sarg2][stime].stime,
								DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..stime,
								DBCS_raid_mob_tempo[sarg2][stime].nommob,
								DBCS_raid_mob_tempo[sarg2][stime].numregion,
								DBCS_raid_mob_tempo[sarg2][stime].x,
								DBCS_raid_mob_tempo[sarg2][stime].y,
								DBCS_raid_mob_tempo[sarg2][stime].level,
								DBCS_raid_mob_tempo[sarg2][stime].classe,
								DBCS_raid_mob_tempo[sarg2][stime].famille,
								DBCS_raid_mob_tempo[sarg2][stime].type,
								DBCS_raid_mob_tempo[sarg2][stime].plusmob,
								inbmob,
								iskin,
								DBCS_raid_mob_tempo[sarg2][stime].nbloot
							);
if ( DBCS_debug > 1 ) then
	if ( sarg2 == DBCS_joueur ) then
	else
--TraceFrame:AddMessage("ajout de mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] dans la region "..snumregion.." en "..ix..","..iy..". par "..DBCS_lienjoueurbynom(sjoueur));
--	DB_nomregionbynum(numregion)
--TraceFrame:AddMessage("ajout de mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] dans la region "..snumregion.." : ["..DB_nomregionbynum(snumregion).."] en "..ix..","..iy..". par "..DBCS_lienjoueurbynom(sjoueur));
TraceFrame:AddMessage("ajout de mob : "..inbmob.." corps et "..iskin.." skin de ["..DBCS_raid_mob_tempo[sarg2][stime].nommob.."] "..DBCS_raid_mob_tempo[sarg2][stime].classe.." "..DBCS_raid_mob_tempo[sarg2][stime].level.." dans la region "..DBCS_raid_mob_tempo[sarg2][stime].numregion.." : ["..DB_nomregionbynum(DBCS_raid_mob_tempo[sarg2][stime].numregion).."] en "..DBCS_raid_mob_tempo[sarg2][stime].x..","..DBCS_raid_mob_tempo[sarg2][stime].y..". par "..DBCS_lienjoueurbynom(sarg2));
	end
end
			--test
			end
			--test
		else
			--if ( DBCS_raid_player.joueur_s[1] == DBCS_joueur ) then
				DBcorps_ajoutmob(
								DBCS_raid_mob_tempo[sarg2][stime].slangue,
								DBCS_raid_mob_tempo[sarg2][stime].sdate,
								DBCS_raid_mob_tempo[sarg2][stime].slead,
								--stime,
								--DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..DBCS_raid_mob_tempo[sarg2][stime].stime,
								DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..stime,
								DBCS_raid_mob_tempo[sarg2][stime].nommob,
								DBCS_raid_mob_tempo[sarg2][stime].numregion,
								DBCS_raid_mob_tempo[sarg2][stime].x,
								DBCS_raid_mob_tempo[sarg2][stime].y,
								DBCS_raid_mob_tempo[sarg2][stime].level,
								DBCS_raid_mob_tempo[sarg2][stime].classe,
								DBCS_raid_mob_tempo[sarg2][stime].famille,
								DBCS_raid_mob_tempo[sarg2][stime].type,
								DBCS_raid_mob_tempo[sarg2][stime].plusmob,
								inbmob,
								iskin,
								DBCS_raid_mob_tempo[sarg2][stime].nbloot
							);
			--end

			--DBmobs_ajoutmob(
			--				DBCS_raid_mob_tempo[sarg2][stime].nommob,
			--				DBCS_raid_mob_tempo[sarg2][stime].numregion,
			--				0,
			--				0,
			--				DBCS_raid_mob_tempo[sarg2][stime].level,
			--				DBCS_raid_mob_tempo[sarg2][stime].classe,
			--				DBCS_raid_mob_tempo[sarg2][stime].famille,
			--				DBCS_raid_mob_tempo[sarg2][stime].type,
			--				DBCS_raid_mob_tempo[sarg2][stime].plusmob,
			--				inbmob,
			--				iskin
			--			);
		end
		for i = 1, DBCS_raid_mob_tempo[sarg2][stime].nbloot do
			if ( bcorpquete == 1 ) then
				DBCS_raid_mob_tempo[sarg2][stime].loot[i].nb = 0;
			end
			if ( DBCS_CMS_numcanalCMS > 0 ) then
			--test
				if ( DBCS_raid_player.joueur_s[1] == DBCS_joueur ) then
			--test
					DBmobs_envoyerloot(
										DBCS_raid_mob_tempo[sarg2][stime].slangue,
										DBCS_raid_mob_tempo[sarg2][stime].sdate,
										DBCS_raid_mob_tempo[sarg2][stime].slead,
										--stime,
										--DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..DBCS_raid_mob_tempo[sarg2][stime].stime,
										DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..stime,
										i,
										DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet,
										DBCS_raid_mob_tempo[sarg2][stime].loot[i].numcourt2,
										DBCS_raid_mob_tempo[sarg2][stime].loot[i].nb
									);
					DBcorps_ajoutloot(
									DBCS_raid_mob_tempo[sarg2][stime].sdate,
									DBCS_raid_mob_tempo[sarg2][stime].slead,
									--stime,
									--DBCS_raid_mob_tempo[sarg2][stime].stime,
									DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..stime,
									i,
									DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet,
									DBCS_raid_mob_tempo[sarg2][stime].loot[i].numcourt2,
									DBCS_raid_mob_tempo[sarg2][stime].loot[i].nb
								);
if ( DBCS_debug > 1 ) then
	if ( sarg2 == DBCS_joueur ) then
	else
		if ( DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet > 0 ) then
			slink = DBobjets_GetItemLink(DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet,DBCS_raid_mob_tempo[sarg2][stime].loot[i].numcourt2);
			if ( slink ) then
TraceFrame:AddMessage("ajout de loot : "..DBCS_raid_mob_tempo[sarg2][stime].loot[i].nb.." fois l'objet "..DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet..":"..DBCS_raid_mob_tempo[sarg2][stime].loot[i].numcourt2.." "..slink); --.." pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
			else
				_, _, _, hex = GetItemQualityColor(6);
			--sitem = "item:"..numobjet..":"..numcourt2;
			--slink = hex.."|Hitem:"..inumobjet..":"..snumcourt2.."|h["..inumobjet.."]|h|r";
				slink = "|c"..hex.."|Hitem:"..DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet..":"..DBCS_raid_mob_tempo[sarg2][stime].loot[i].numcourt2.."|h[oula oula oula]|h|r";
--TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink.." oula oula oula"); --.." pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
				TraceFrame:AddMessage("ajout de loot : "..DBCS_raid_mob_tempo[sarg2][stime].loot[i].nb.." fois l'objet "..DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet..":"..DBCS_raid_mob_tempo[sarg2][stime].loot[i].numcourt2.." "..slink);
			end
		else
TraceFrame:AddMessage("ajout de loot : "..DBCS_raid_mob_tempo[sarg2][stime].loot[i].nb.." pc"); -- pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
		end
	end
end
			--test
				end
			--test
			else
				--if ( DBCS_raid_player.joueur_s[1] == DBCS_joueur ) then
					DBcorps_ajoutloot(
									DBCS_raid_mob_tempo[sarg2][stime].sdate,
									DBCS_raid_mob_tempo[sarg2][stime].slead,
									--stime,
									--DBCS_raid_mob_tempo[sarg2][stime].stime,
									DBCS_raid_mob_tempo[sarg2][stime].sheure.."@"..stime,
									i,
									DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet,
									DBCS_raid_mob_tempo[sarg2][stime].loot[i].numcourt2,
									DBCS_raid_mob_tempo[sarg2][stime].loot[i].nb
								);
				--end
				--DBmobs_ajoutloot(
				--					DBCS_raid_mob_tempo[sarg2][stime].nommob,
				--					DBCS_raid_mob_tempo[sarg2][stime].numregion,
				--					DBCS_raid_mob_tempo[sarg2][stime].loot[i].numobjet,
				--					DBCS_raid_mob_tempo[sarg2][stime].loot[i].numcourt2,
				--					DBCS_raid_mob_tempo[sarg2][stime].loot[i].nb
				--				);
			end
		end
	end

end

function DBCS_raid_comparer_ancien_element(num,tablo)

	local dejapris = 1;
	local i,j;
	local n;

	if ( dejapris == 1 ) then
		if ( DBCS_raid_mob[num].nommob == tablo.nommob ) then
		else
			dejapris = 0;
		end
	end
	if ( dejapris == 1 ) then
		if ( DBCS_raid_mob[num].numregion == tablo.numregion ) then
		else
			dejapris = 0;
		end
	end
	if ( dejapris == 1 ) then
		if ( DBCS_raid_mob[num].level == tablo.level ) then
		else
			dejapris = 0;
		end
	end
	if ( dejapris == 1 ) then
		if ( DBCS_raid_mob[num].nbloot < tablo.nbloot ) then
			dejapris = 0;
		end
	end
	if ( dejapris == 1 ) then
		--j = 0;
		j = 1;
		for i = 1, DBCS_raid_mob[num].nbloot do
-- ajouter la gestion des objets déjà pris par le flag clear = 0 ou 1
			--if ( DBCS_raid_mob[num].loot[i].exist == 1 ) then
				--j = j + 1;
				if ( j <= tablo.nbloot ) then
					if ( DBCS_raid_mob[num].loot[i].numobjet == tablo.loot[j].numobjet and DBCS_raid_mob[num].loot[i].numcourt2 == tablo.loot[j].numcourt2 and DBCS_raid_mob[num].loot[i].nb == tablo.loot[j].nb ) then
						j = j + 1;
					else
						--dejapris = 0;
					end
					--if ( DBCS_raid_mob[num].loot[i].numobjet == 0 ) then
					--	if ( tablo.loot[j].numobjet == 0 ) then
					--		if ( dejapris == 1 ) then
					--			if ( DBCS_raid_mob[num].loot[i].nb == tablo.loot[j].nb ) then
					--			else
					--				dejapris = 0;
					--			end
					--		end
					--	else
					--		-- au prochain passage , je reviens sur le meme objet, car le fric du mob original ne disparait jamais
					--		j = j - 1;
					--	end
					--else
					--	if ( dejapris == 1 ) then
					--		if ( DBCS_raid_mob[num].loot[i].numobjet == tablo.loot[j].numobjet ) then
					--		else
					--			dejapris = 0;
					--		end
					--	end
					--	if ( dejapris == 1 ) then
					--		if ( DBCS_raid_mob[num].loot[i].numcourt2 == tablo.loot[j].numcourt2 ) then
					--		else
					--			dejapris = 0;
					--		end
					--	end
					--	if ( dejapris == 1 ) then
					--		if ( DBCS_raid_mob[num].loot[i].nb == tablo.loot[j].nb ) then
					--		else
					--			dejapris = 0;
					--		end
					--	end
					--end
				--else
				--	dejapris = 0;
				end
				--if ( dejapris == 0 ) then
				--	exit do
				--end
			--end
		end
		if ( j <= tablo.nbloot ) then
			dejapris = 0;
		end
		--if ( dejapris == 1 ) then
		--	if ( j == tablo.nbloot ) then
		--	else
		--		dejapris = 0;
		--	end
		--end
	end

	return dejapris;

end

function DBCS_raid_enlever_loot(inumobjet,snumcourt2)
-- devenu inutil

local i;
local ifin;
local j;
local isupp;

	i = table.getn(DBCS_raid_mob);
	ifin = 0;
	while ( ifin == 0 ) do
		if ( i > 0 ) then
			if ( (GetTime() - (DBCS_raid_mob[i].time/1000)) <= 1800 ) then
				j = DBCS_raid_mob[i].nbloot;
				while ( j > 0 ) do
					if ( DBCS_raid_mob[i].loot[j].exist == 1 ) then
						if ( DBCS_raid_mob[i].loot[j].numobjet == inumobjet and DBCS_raid_mob[i].loot[j].numcourt2 == snumcourt2 ) then
							DBCS_raid_mob[i].loot[j].exist = 0;
							-- vérifier si ce corp est à supprimer
							isupp = 1;
							for j = 1, DBCS_raid_mob[i].nbloot do
								if ( DBCS_raid_mob[i].loot[j].exist == 1 ) then
									isupp = 0;
								end
							end
							if ( isupp == 1 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je supprime ce corps devenu vide : "..i);
end
								-- je peux supprimer ce corp devenu vide
								table.remove(DBCS_raid_mob,i);
							end
							--fin vérif
							j = 0;
							ifin = 1;
						end
					end
					j = j -1;
				end
			else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("je supprime ce vieux corps : "..i);
end
				-- je peux supprimer ce corp
				table.remove(DBCS_raid_mob,i);
				ifin = 1;
			end
		end
		if ( i <= 1 ) then
			ifin = 1;
		end
		i = i - 1 ;
	end

end

--/script DBcorps_deplacerDBCC_liste_serveur();
function DBcorps_deplacerDBCC_liste_serveur()

	local a;

	for a, _ in pairs(DBCC) do
		TraceFrame:AddMessage("d\195\169placer historique : serveur : "..a);
	end

end

--/script DBcorps_deplacerDBCC(10000)
--/script DBcorps_deplacerDBCC(1000)
--/script DBcorps_deplacerDBCC(100)
--/script DBcorps_deplacerDBCC(10)
--/script DBcorps_deplacerDBCC(1,1)
function DBcorps_deplacerDBCC(imaxtrouve,baffiche,binvisible)

	local itrouve;
	--local imaxtrouve = 1;
	local a;
	local b;
	local c;
	local d;
	local smois;
	local itime_debut;
	local itime_fin;
	--local ia;
	local ib;
	local ic;
	local id;
	local inb;
	local tobjet;
	
	if ( baffiche ) then
		baffiche = 1;
	else
		baffiche = 0;
	end
	if ( binvisible == nil ) then
		binvisible = false;
	end

	itime_debut = GetTime();
	itrouve = 0;
	--ia = 0;
	inb = 0;
	for a, _ in pairs(DBCC) do
		--if ( itrouve < imaxtrouve ) then
			if ( type(DBCC[a]) == "table" ) then
				ib = 0;
				for b, _ in pairs(DBCC[a]) do
					--if ( itrouve < imaxtrouve ) then
						if ( b == "OP" or b == "OP1" or b == "OI" or b == "OI2" ) then
							if ( binvisible == false ) then
								DBCC[a][b] = nil;
							end
						elseif ( b == "OC" ) then
							for c, _ in pairs(DBCC[a][b]) do
								if ( DBOS01 and DBOS02 and DBOS03 ) then
									tobjet = DBobjets_numobjet_tableau_lire(c);
									tobjet = DBobjets_numobjet_tableau_lire_t;
									if ( tobjet ) then
										tobjet[9] = 1;
										if ( binvisible == false ) then
											DBCC[a][b][c] = nil;
										end
										DBobjets_numobjet_tableau_ecrire(c,tobjet);
									end
								end
							end
							--DBCC[a][b] = nil;
						else
							smois = strsub(b,1,6);
							if ( ( tonumber(smois) > 200704 ) and ( ( DBCS_prog_serveur == 0 ) or ( ( DBCS_prog_serveur == 1 ) and ( tonumber(smois) < 201306 ) ) ) ) then
								if ( type(DBCC[a][b]) == "table" ) then
									ic = 0;
									for c, _ in pairs(DBCC[a][b]) do
										--if ( itrouve < imaxtrouve ) then
											if ( type(DBCC[a][b][c]) == "table" ) then
												id = 0;
												for d, _ in pairs(DBCC[a][b][c]) do
													if ( itrouve < imaxtrouve ) then
														if ( type(DBCC[a][b][c][d]) == "table" ) then
if ( binvisible == false and baffiche == 1 ) then
	TraceFrame:AddMessage("---------------------------------------------------------------------------------------------------------------");
	TraceFrame:AddMessage("d\195\169placer historique : serveur : "..a.." , date : "..b.." , nomjoueur : "..DBCS_lienjoueurbynom(c).." , time : "..d);
end
--function DBcorps_ajoutloot(sdate,slead,stime,inumloot,inumobjet,snumcourt2,inb,nomserveur)
--function DBcorps_ajoutmob(slangue,sdate,slead,stime,snommob,snumregion,x,y,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot,nomserveur)
															itrouve = itrouve + 1;
															-- l'enreg date d'avant cataclysme
															if ( tonumber(b) < 20101125 ) then
																DBCC[a][b][c][d] = nil;
															else
																if ( binvisible == false ) then
																	DBCS_deplacer_histo_corp(a,b,c,d,baffiche);
																else
																	DBCS_deplacer_histo_corp(a,b,c,d,0);
																end
																if ( binvisible == false ) then
																	DBCC[a][b][c][d] = nil;
																end
															end
														else
															ib = ib + 1;
															ic = ic + 1;
															id = id + 1;
														end
													else
														ib = ib + 1;
														ic = ic + 1;
														id = id + 1;
														inb = inb + 1;
													end
												end
												if ( id == 0 ) then
													if ( binvisible == false ) then
														DBCC[a][b][c] = nil;
													end
												end
											else
												ib = ib + 1;
												ic = ic + 1;
											end
										--else
										--	ib = ib + 1;
										--	ic = ic + 1;
										--end
									end
									if ( ic == 0 ) then
										if ( binvisible == false ) then
											DBCC[a][b] = nil;
										end
									end
								else
									ib = ib + 1;
								end
							else
								ib = ib + 1;
							end
						end
					--else
					--	ib = ib + 1;
					--end
				end
				if ( ib == 0 ) then
					--if ( binvisible == false ) then
					--	DBCC[a] = nil;
					--end
				end
			end
		--end
	end
	itime_fin = GetTime();
if ( binvisible == false ) then
TraceFrame:AddMessage("nb d\195\169placement : "..itrouve);
TraceFrame:AddMessage("time debut : "..itime_debut);
TraceFrame:AddMessage("time fin : "..itime_fin);
TraceFrame:AddMessage("reste : "..inb.." d\195\169placement");
end

end

function DBCS_deplacer_histo_corp(snomserveur,sdate,snomjoueur,stime,baffiche)

local ideb;
local ifin;
local senreg;
local slangue;
--local snomserveur;
--local sdate;
--local snomjoueur;
--local sheure;
--local stime;
local scode;
local snommob;
local snumregion;
local ix;
local iy;
local iniv;
local sclasse;
local sfamille;
local stype;
local splusmob;
local inbcorp;
local inbskin;
local inbloot;
local i;
local bbon;
local bbon2;
local inumloot;
local inumobjet;
local snumcourt2;
local inb;
local smessage;
local slink;
local hex;

	scode = strsub(DBCC[snomserveur][sdate][snomjoueur][stime][-1] or "",1,4);
	slangue = DBCC[snomserveur][sdate][snomjoueur][stime][-2] or "frFR";
	senreg = DBCC[snomserveur][sdate][snomjoueur][stime][0];
	if ( senreg ) then
	else
		return;
	end
	ifin = 0;
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	snommob = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	snumregion = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	ix = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	iy = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	iniv = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	sclasse = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	sfamille = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	stype = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	splusmob = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	inbcorp = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	inbskin = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	inbloot = tonumber(strsub(senreg,ideb,ifin-1));
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("deplacer historique : serveur : "..snomserveur.." , date : "..sdate.." , nomjoueur : "..snomjoueur.." , time : "..stime);
if ( baffiche == 1 ) then
	TraceFrame:AddMessage("d\195\169placer mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] "..sclasse.." "..iniv.." dans la region "..snumregion.." : ["..DB_nomregionbynum(snumregion).."] en "..ix..","..iy.." ( "..inbloot.." loot ).");
end
--end
	if ( scode == "CA01" ) then
		DBcorps_ajoutmob(slangue,sdate,snomjoueur,stime,snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot,snomserveur,abs(baffiche-1));
	elseif ( scode == "CA02" ) then
		bbon2 = true;
		if ( ( tonumber(sdate) < 20070524 ) ) then
			bbon2 = false;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("cet enreg est trop vieux");
--end
		end
		if ( bbon2 == true ) then
			DBcorps_ajoutmob2(slangue,sdate,snomjoueur,stime,snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot,snomserveur,abs(baffiche-1));
		end
	end
	bbon = true;
	for i = 1 , inbloot do
		senreg = DBCC[snomserveur][sdate][snomjoueur][stime][i];
		if ( senreg ) then
			ifin = 0;
			ideb = ifin + 1;
			ifin = strfind(senreg,"@",ideb);
			inumobjet = tonumber(strsub(senreg,ideb,ifin-1));
			ideb = ifin + 1;
			ifin = strfind(senreg,"@",ideb);
			snumcourt2 = strsub(senreg,ideb,ifin-1);
			ideb = ifin + 1;
			ifin = strfind(senreg,"@",ideb);
			inb = tonumber(strsub(senreg,ideb,ifin-1));
--if ( DBCS_debug > 1 ) then
if ( baffiche == 1 ) then
	if ( inumobjet > 0 ) then
		slink = DBobjets_GetItemLink(inumobjet,snumcourt2);
		if ( slink ) then
TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink);
		else
			_, _, _, hex = GetItemQualityColor(6);
			slink = "|c"..hex.."|Hitem:"..inumobjet..":"..snumcourt2.."|h[oula oula oula]|h|r";
			TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink);
		end
	else
TraceFrame:AddMessage("ajout d'argent : "..inb.." pc");
	end
end
--end
			if ( scode == "CA01" ) then
				DBcorps_ajoutloot(sdate,snomjoueur,stime,i,inumobjet,snumcourt2,inb,snomserveur,abs(baffiche-1));
			elseif ( scode == "CA02" ) then
				bbon2 = true;
				if ( ( tonumber(sdate) < 20070524 ) ) then
					bbon2 = false;
--if ( DBCS_debug > 1 ) then
if ( baffiche == 1 ) then
--TraceFrame:AddMessage("cet enreg est trop vieux");
end
--end
				end
				if ( bbon2 == true ) then
					DBcorps_ajoutloot2(sdate,snomjoueur,stime,i,inumobjet,snumcourt2,inb,snomserveur,abs(baffiche-1));
				end
			end
		else
			bbon = false;
		end
	end

end

function DBcorps_ajoutloot(sdate,slead,stime,inumloot,inumobjet,snumcourt2,inb,nomserveur,bcopie)

local snomserveur;
local smois;

	if ( nomserveur ) then
		snomserveur = nomserveur;
	else
		snomserveur = DBCS_serveur;
	end

	if ( DBCS_prog_serveur == 0 ) then
		if ( DBCC[snomserveur] == nil ) then
			DBCC[snomserveur] = {};
		end
		if ( DBCC[snomserveur][sdate] == nil ) then
			DBCC[snomserveur][sdate] = {};
		end
		if ( DBCC[snomserveur][sdate][slead] == nil ) then
			DBCC[snomserveur][sdate][slead] = {};
		end
		if ( DBCC[snomserveur][sdate][slead][stime] == nil ) then
			DBCC[snomserveur][sdate][slead][stime] = {};
		end
		DBCC[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
	else
		smois = strsub(sdate,1,6);
		if ( smois == "201305" ) then
			if ( DBCS_loaded_addon("DBCC_201305") == 1 ) then
				if ( DBCC_201305[snomserveur] == nil ) then
					DBCC_201305[snomserveur] = {};
				end
				if ( DBCC_201305[snomserveur][sdate] == nil ) then
					DBCC_201305[snomserveur][sdate] = {};
				end
				if ( DBCC_201305[snomserveur][sdate][slead] == nil ) then
					DBCC_201305[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201305[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201305[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201305[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201304" ) then
			if ( DBCS_loaded_addon("DBCC_201304") == 1 ) then
				if ( DBCC_201304[snomserveur] == nil ) then
					DBCC_201304[snomserveur] = {};
				end
				if ( DBCC_201304[snomserveur][sdate] == nil ) then
					DBCC_201304[snomserveur][sdate] = {};
				end
				if ( DBCC_201304[snomserveur][sdate][slead] == nil ) then
					DBCC_201304[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201304[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201304[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201304[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201303" ) then
			if ( DBCS_loaded_addon("DBCC_201303") == 1 ) then
				if ( DBCC_201303[snomserveur] == nil ) then
					DBCC_201303[snomserveur] = {};
				end
				if ( DBCC_201303[snomserveur][sdate] == nil ) then
					DBCC_201303[snomserveur][sdate] = {};
				end
				if ( DBCC_201303[snomserveur][sdate][slead] == nil ) then
					DBCC_201303[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201303[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201303[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201303[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201302" ) then
			if ( DBCS_loaded_addon("DBCC_201302") == 1 ) then
				if ( DBCC_201302[snomserveur] == nil ) then
					DBCC_201302[snomserveur] = {};
				end
				if ( DBCC_201302[snomserveur][sdate] == nil ) then
					DBCC_201302[snomserveur][sdate] = {};
				end
				if ( DBCC_201302[snomserveur][sdate][slead] == nil ) then
					DBCC_201302[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201302[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201302[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201302[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201301" ) then
			if ( DBCS_loaded_addon("DBCC_201301") == 1 ) then
				if ( DBCC_201301[snomserveur] == nil ) then
					DBCC_201301[snomserveur] = {};
				end
				if ( DBCC_201301[snomserveur][sdate] == nil ) then
					DBCC_201301[snomserveur][sdate] = {};
				end
				if ( DBCC_201301[snomserveur][sdate][slead] == nil ) then
					DBCC_201301[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201301[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201301[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201301[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201212" ) then
			if ( DBCS_loaded_addon("DBCC_201212") == 1 ) then
				if ( DBCC_201212[snomserveur] == nil ) then
					DBCC_201212[snomserveur] = {};
				end
				if ( DBCC_201212[snomserveur][sdate] == nil ) then
					DBCC_201212[snomserveur][sdate] = {};
				end
				if ( DBCC_201212[snomserveur][sdate][slead] == nil ) then
					DBCC_201212[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201212[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201212[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201212[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201211" ) then
			if ( DBCS_loaded_addon("DBCC_201211") == 1 ) then
				if ( DBCC_201211[snomserveur] == nil ) then
					DBCC_201211[snomserveur] = {};
				end
				if ( DBCC_201211[snomserveur][sdate] == nil ) then
					DBCC_201211[snomserveur][sdate] = {};
				end
				if ( DBCC_201211[snomserveur][sdate][slead] == nil ) then
					DBCC_201211[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201211[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201211[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201211[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201210" ) then
			if ( DBCS_loaded_addon("DBCC_201210") == 1 ) then
				if ( DBCC_201210[snomserveur] == nil ) then
					DBCC_201210[snomserveur] = {};
				end
				if ( DBCC_201210[snomserveur][sdate] == nil ) then
					DBCC_201210[snomserveur][sdate] = {};
				end
				if ( DBCC_201210[snomserveur][sdate][slead] == nil ) then
					DBCC_201210[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201210[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201210[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201210[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201209" ) then
			if ( DBCS_loaded_addon("DBCC_201209") == 1 ) then
				if ( DBCC_201209[snomserveur] == nil ) then
					DBCC_201209[snomserveur] = {};
				end
				if ( DBCC_201209[snomserveur][sdate] == nil ) then
					DBCC_201209[snomserveur][sdate] = {};
				end
				if ( DBCC_201209[snomserveur][sdate][slead] == nil ) then
					DBCC_201209[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201209[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201209[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201209[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201208" ) then
			if ( DBCS_loaded_addon("DBCC_201208") == 1 ) then
				if ( DBCC_201208[snomserveur] == nil ) then
					DBCC_201208[snomserveur] = {};
				end
				if ( DBCC_201208[snomserveur][sdate] == nil ) then
					DBCC_201208[snomserveur][sdate] = {};
				end
				if ( DBCC_201208[snomserveur][sdate][slead] == nil ) then
					DBCC_201208[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201208[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201208[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201208[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201207" ) then
			if ( DBCS_loaded_addon("DBCC_201207") == 1 ) then
				if ( DBCC_201207[snomserveur] == nil ) then
					DBCC_201207[snomserveur] = {};
				end
				if ( DBCC_201207[snomserveur][sdate] == nil ) then
					DBCC_201207[snomserveur][sdate] = {};
				end
				if ( DBCC_201207[snomserveur][sdate][slead] == nil ) then
					DBCC_201207[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201207[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201207[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201207[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201206" ) then
			if ( DBCS_loaded_addon("DBCC_201206") == 1 ) then
				if ( DBCC_201206[snomserveur] == nil ) then
					DBCC_201206[snomserveur] = {};
				end
				if ( DBCC_201206[snomserveur][sdate] == nil ) then
					DBCC_201206[snomserveur][sdate] = {};
				end
				if ( DBCC_201206[snomserveur][sdate][slead] == nil ) then
					DBCC_201206[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201206[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201206[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201206[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201205" ) then
			if ( DBCS_loaded_addon("DBCC_201205") == 1 ) then
				if ( DBCC_201205[snomserveur] == nil ) then
					DBCC_201205[snomserveur] = {};
				end
				if ( DBCC_201205[snomserveur][sdate] == nil ) then
					DBCC_201205[snomserveur][sdate] = {};
				end
				if ( DBCC_201205[snomserveur][sdate][slead] == nil ) then
					DBCC_201205[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201205[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201205[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201205[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201204" ) then
			if ( DBCS_loaded_addon("DBCC_201204") == 1 ) then
				if ( DBCC_201204[snomserveur] == nil ) then
					DBCC_201204[snomserveur] = {};
				end
				if ( DBCC_201204[snomserveur][sdate] == nil ) then
					DBCC_201204[snomserveur][sdate] = {};
				end
				if ( DBCC_201204[snomserveur][sdate][slead] == nil ) then
					DBCC_201204[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201204[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201204[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201204[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201203" ) then
			if ( DBCS_loaded_addon("DBCC_201203") == 1 ) then
				if ( DBCC_201203[snomserveur] == nil ) then
					DBCC_201203[snomserveur] = {};
				end
				if ( DBCC_201203[snomserveur][sdate] == nil ) then
					DBCC_201203[snomserveur][sdate] = {};
				end
				if ( DBCC_201203[snomserveur][sdate][slead] == nil ) then
					DBCC_201203[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201203[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201203[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201203[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201202" ) then
			if ( DBCS_loaded_addon("DBCC_201202") == 1 ) then
				if ( DBCC_201202[snomserveur] == nil ) then
					DBCC_201202[snomserveur] = {};
				end
				if ( DBCC_201202[snomserveur][sdate] == nil ) then
					DBCC_201202[snomserveur][sdate] = {};
				end
				if ( DBCC_201202[snomserveur][sdate][slead] == nil ) then
					DBCC_201202[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201202[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201202[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201202[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201201" ) then
			if ( DBCS_loaded_addon("DBCC_201201") == 1 ) then
				if ( DBCC_201201[snomserveur] == nil ) then
					DBCC_201201[snomserveur] = {};
				end
				if ( DBCC_201201[snomserveur][sdate] == nil ) then
					DBCC_201201[snomserveur][sdate] = {};
				end
				if ( DBCC_201201[snomserveur][sdate][slead] == nil ) then
					DBCC_201201[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201201[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201201[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201201[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201112" ) then
			if ( DBCS_loaded_addon("DBCC_201112") == 1 ) then
				if ( DBCC_201112[snomserveur] == nil ) then
					DBCC_201112[snomserveur] = {};
				end
				if ( DBCC_201112[snomserveur][sdate] == nil ) then
					DBCC_201112[snomserveur][sdate] = {};
				end
				if ( DBCC_201112[snomserveur][sdate][slead] == nil ) then
					DBCC_201112[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201112[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201112[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201112[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201111" ) then
			if ( DBCS_loaded_addon("DBCC_201111") == 1 ) then
				if ( DBCC_201111[snomserveur] == nil ) then
					DBCC_201111[snomserveur] = {};
				end
				if ( DBCC_201111[snomserveur][sdate] == nil ) then
					DBCC_201111[snomserveur][sdate] = {};
				end
				if ( DBCC_201111[snomserveur][sdate][slead] == nil ) then
					DBCC_201111[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201111[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201111[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201111[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201110" ) then
			if ( DBCS_loaded_addon("DBCC_201110") == 1 ) then
				if ( DBCC_201110[snomserveur] == nil ) then
					DBCC_201110[snomserveur] = {};
				end
				if ( DBCC_201110[snomserveur][sdate] == nil ) then
					DBCC_201110[snomserveur][sdate] = {};
				end
				if ( DBCC_201110[snomserveur][sdate][slead] == nil ) then
					DBCC_201110[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201110[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201110[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201110[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201109" ) then
			if ( DBCS_loaded_addon("DBCC_201109") == 1 ) then
				if ( DBCC_201109[snomserveur] == nil ) then
					DBCC_201109[snomserveur] = {};
				end
				if ( DBCC_201109[snomserveur][sdate] == nil ) then
					DBCC_201109[snomserveur][sdate] = {};
				end
				if ( DBCC_201109[snomserveur][sdate][slead] == nil ) then
					DBCC_201109[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201109[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201109[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201109[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201108" ) then
			if ( DBCS_loaded_addon("DBCC_201108") == 1 ) then
				if ( DBCC_201108[snomserveur] == nil ) then
					DBCC_201108[snomserveur] = {};
				end
				if ( DBCC_201108[snomserveur][sdate] == nil ) then
					DBCC_201108[snomserveur][sdate] = {};
				end
				if ( DBCC_201108[snomserveur][sdate][slead] == nil ) then
					DBCC_201108[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201108[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201108[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201108[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201107" ) then
			if ( DBCS_loaded_addon("DBCC_201107") == 1 ) then
				if ( DBCC_201107[snomserveur] == nil ) then
					DBCC_201107[snomserveur] = {};
				end
				if ( DBCC_201107[snomserveur][sdate] == nil ) then
					DBCC_201107[snomserveur][sdate] = {};
				end
				if ( DBCC_201107[snomserveur][sdate][slead] == nil ) then
					DBCC_201107[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201107[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201107[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201107[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201106" ) then
			if ( DBCS_loaded_addon("DBCC_201106") == 1 ) then
				if ( DBCC_201106[snomserveur] == nil ) then
					DBCC_201106[snomserveur] = {};
				end
				if ( DBCC_201106[snomserveur][sdate] == nil ) then
					DBCC_201106[snomserveur][sdate] = {};
				end
				if ( DBCC_201106[snomserveur][sdate][slead] == nil ) then
					DBCC_201106[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201106[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201106[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201106[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201105" ) then
			if ( DBCS_loaded_addon("DBCC_201105") == 1 ) then
				if ( DBCC_201105[snomserveur] == nil ) then
					DBCC_201105[snomserveur] = {};
				end
				if ( DBCC_201105[snomserveur][sdate] == nil ) then
					DBCC_201105[snomserveur][sdate] = {};
				end
				if ( DBCC_201105[snomserveur][sdate][slead] == nil ) then
					DBCC_201105[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201105[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201105[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201105[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201104" ) then
			if ( DBCS_loaded_addon("DBCC_201104") == 1 ) then
				if ( DBCC_201104[snomserveur] == nil ) then
					DBCC_201104[snomserveur] = {};
				end
				if ( DBCC_201104[snomserveur][sdate] == nil ) then
					DBCC_201104[snomserveur][sdate] = {};
				end
				if ( DBCC_201104[snomserveur][sdate][slead] == nil ) then
					DBCC_201104[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201104[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201104[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201104[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201103" ) then
			if ( DBCS_loaded_addon("DBCC_201103") == 1 ) then
				if ( DBCC_201103[snomserveur] == nil ) then
					DBCC_201103[snomserveur] = {};
				end
				if ( DBCC_201103[snomserveur][sdate] == nil ) then
					DBCC_201103[snomserveur][sdate] = {};
				end
				if ( DBCC_201103[snomserveur][sdate][slead] == nil ) then
					DBCC_201103[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201103[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201103[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201103[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201102" ) then
			if ( DBCS_loaded_addon("DBCC_201102") == 1 ) then
				if ( DBCC_201102[snomserveur] == nil ) then
					DBCC_201102[snomserveur] = {};
				end
				if ( DBCC_201102[snomserveur][sdate] == nil ) then
					DBCC_201102[snomserveur][sdate] = {};
				end
				if ( DBCC_201102[snomserveur][sdate][slead] == nil ) then
					DBCC_201102[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201102[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201102[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201102[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201101" ) then
			if ( DBCS_loaded_addon("DBCC_201101") == 1 ) then
				if ( DBCC_201101[snomserveur] == nil ) then
					DBCC_201101[snomserveur] = {};
				end
				if ( DBCC_201101[snomserveur][sdate] == nil ) then
					DBCC_201101[snomserveur][sdate] = {};
				end
				if ( DBCC_201101[snomserveur][sdate][slead] == nil ) then
					DBCC_201101[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201101[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201101[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201101[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201012" ) then
			if ( DBCS_loaded_addon("DBCC_201012") == 1 ) then
				if ( DBCC_201012[snomserveur] == nil ) then
					DBCC_201012[snomserveur] = {};
				end
				if ( DBCC_201012[snomserveur][sdate] == nil ) then
					DBCC_201012[snomserveur][sdate] = {};
				end
				if ( DBCC_201012[snomserveur][sdate][slead] == nil ) then
					DBCC_201012[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201012[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201012[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201012[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201011" ) then
			if ( DBCS_loaded_addon("DBCC_201011") == 1 ) then
				if ( DBCC_201011[snomserveur] == nil ) then
					DBCC_201011[snomserveur] = {};
				end
				if ( DBCC_201011[snomserveur][sdate] == nil ) then
					DBCC_201011[snomserveur][sdate] = {};
				end
				if ( DBCC_201011[snomserveur][sdate][slead] == nil ) then
					DBCC_201011[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201011[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201011[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201011[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201010" ) then
			if ( DBCS_loaded_addon("DBCC_201010") == 1 ) then
				if ( DBCC_201010[snomserveur] == nil ) then
					DBCC_201010[snomserveur] = {};
				end
				if ( DBCC_201010[snomserveur][sdate] == nil ) then
					DBCC_201010[snomserveur][sdate] = {};
				end
				if ( DBCC_201010[snomserveur][sdate][slead] == nil ) then
					DBCC_201010[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201010[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201010[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201010[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201009" ) then
			if ( DBCS_loaded_addon("DBCC_201009") == 1 ) then
				if ( DBCC_201009[snomserveur] == nil ) then
					DBCC_201009[snomserveur] = {};
				end
				if ( DBCC_201009[snomserveur][sdate] == nil ) then
					DBCC_201009[snomserveur][sdate] = {};
				end
				if ( DBCC_201009[snomserveur][sdate][slead] == nil ) then
					DBCC_201009[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201009[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201009[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201009[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201008" ) then
			if ( DBCS_loaded_addon("DBCC_201008") == 1 ) then
				if ( DBCC_201008[snomserveur] == nil ) then
					DBCC_201008[snomserveur] = {};
				end
				if ( DBCC_201008[snomserveur][sdate] == nil ) then
					DBCC_201008[snomserveur][sdate] = {};
				end
				if ( DBCC_201008[snomserveur][sdate][slead] == nil ) then
					DBCC_201008[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201008[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201008[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201008[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201007" ) then
			if ( DBCS_loaded_addon("DBCC_201007") == 1 ) then
				if ( DBCC_201007[snomserveur] == nil ) then
					DBCC_201007[snomserveur] = {};
				end
				if ( DBCC_201007[snomserveur][sdate] == nil ) then
					DBCC_201007[snomserveur][sdate] = {};
				end
				if ( DBCC_201007[snomserveur][sdate][slead] == nil ) then
					DBCC_201007[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201007[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201007[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201007[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201006" ) then
			if ( DBCS_loaded_addon("DBCC_201006") == 1 ) then
				if ( DBCC_201006[snomserveur] == nil ) then
					DBCC_201006[snomserveur] = {};
				end
				if ( DBCC_201006[snomserveur][sdate] == nil ) then
					DBCC_201006[snomserveur][sdate] = {};
				end
				if ( DBCC_201006[snomserveur][sdate][slead] == nil ) then
					DBCC_201006[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201006[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201006[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201006[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201005" ) then
			if ( DBCS_loaded_addon("DBCC_201005") == 1 ) then
				if ( DBCC_201005[snomserveur] == nil ) then
					DBCC_201005[snomserveur] = {};
				end
				if ( DBCC_201005[snomserveur][sdate] == nil ) then
					DBCC_201005[snomserveur][sdate] = {};
				end
				if ( DBCC_201005[snomserveur][sdate][slead] == nil ) then
					DBCC_201005[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201005[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201005[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201005[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201004" ) then
			if ( DBCS_loaded_addon("DBCC_201004") == 1 ) then
				if ( DBCC_201004[snomserveur] == nil ) then
					DBCC_201004[snomserveur] = {};
				end
				if ( DBCC_201004[snomserveur][sdate] == nil ) then
					DBCC_201004[snomserveur][sdate] = {};
				end
				if ( DBCC_201004[snomserveur][sdate][slead] == nil ) then
					DBCC_201004[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201004[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201004[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201004[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201003" ) then
			if ( DBCS_loaded_addon("DBCC_201003") == 1 ) then
				if ( DBCC_201003[snomserveur] == nil ) then
					DBCC_201003[snomserveur] = {};
				end
				if ( DBCC_201003[snomserveur][sdate] == nil ) then
					DBCC_201003[snomserveur][sdate] = {};
				end
				if ( DBCC_201003[snomserveur][sdate][slead] == nil ) then
					DBCC_201003[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201003[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201003[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201003[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201002" ) then
			if ( DBCS_loaded_addon("DBCC_201002") == 1 ) then
				if ( DBCC_201002[snomserveur] == nil ) then
					DBCC_201002[snomserveur] = {};
				end
				if ( DBCC_201002[snomserveur][sdate] == nil ) then
					DBCC_201002[snomserveur][sdate] = {};
				end
				if ( DBCC_201002[snomserveur][sdate][slead] == nil ) then
					DBCC_201002[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201002[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201002[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201002[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201001" ) then
			if ( DBCS_loaded_addon("DBCC_201001") == 1 ) then
				if ( DBCC_201001[snomserveur] == nil ) then
					DBCC_201001[snomserveur] = {};
				end
				if ( DBCC_201001[snomserveur][sdate] == nil ) then
					DBCC_201001[snomserveur][sdate] = {};
				end
				if ( DBCC_201001[snomserveur][sdate][slead] == nil ) then
					DBCC_201001[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201001[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201001[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201001[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200912" ) then
			if ( DBCS_loaded_addon("DBCC_200912") == 1 ) then
				if ( DBCC_200912[snomserveur] == nil ) then
					DBCC_200912[snomserveur] = {};
				end
				if ( DBCC_200912[snomserveur][sdate] == nil ) then
					DBCC_200912[snomserveur][sdate] = {};
				end
				if ( DBCC_200912[snomserveur][sdate][slead] == nil ) then
					DBCC_200912[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200912[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200912[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200912[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200911" ) then
			if ( DBCS_loaded_addon("DBCC_200911") == 1 ) then
				if ( DBCC_200911[snomserveur] == nil ) then
					DBCC_200911[snomserveur] = {};
				end
				if ( DBCC_200911[snomserveur][sdate] == nil ) then
					DBCC_200911[snomserveur][sdate] = {};
				end
				if ( DBCC_200911[snomserveur][sdate][slead] == nil ) then
					DBCC_200911[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200911[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200911[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200911[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200910" ) then
			if ( DBCS_loaded_addon("DBCC_200910") == 1 ) then
				if ( DBCC_200910[snomserveur] == nil ) then
					DBCC_200910[snomserveur] = {};
				end
				if ( DBCC_200910[snomserveur][sdate] == nil ) then
					DBCC_200910[snomserveur][sdate] = {};
				end
				if ( DBCC_200910[snomserveur][sdate][slead] == nil ) then
					DBCC_200910[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200910[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200910[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200910[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200909" ) then
			if ( DBCS_loaded_addon("DBCC_200909") == 1 ) then
				if ( DBCC_200909[snomserveur] == nil ) then
					DBCC_200909[snomserveur] = {};
				end
				if ( DBCC_200909[snomserveur][sdate] == nil ) then
					DBCC_200909[snomserveur][sdate] = {};
				end
				if ( DBCC_200909[snomserveur][sdate][slead] == nil ) then
					DBCC_200909[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200909[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200909[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200909[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200908" ) then
			if ( DBCS_loaded_addon("DBCC_200908") == 1 ) then
				if ( DBCC_200908[snomserveur] == nil ) then
					DBCC_200908[snomserveur] = {};
				end
				if ( DBCC_200908[snomserveur][sdate] == nil ) then
					DBCC_200908[snomserveur][sdate] = {};
				end
				if ( DBCC_200908[snomserveur][sdate][slead] == nil ) then
					DBCC_200908[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200908[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200908[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200908[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200907" ) then
			if ( DBCS_loaded_addon("DBCC_200907") == 1 ) then
				if ( DBCC_200907[snomserveur] == nil ) then
					DBCC_200907[snomserveur] = {};
				end
				if ( DBCC_200907[snomserveur][sdate] == nil ) then
					DBCC_200907[snomserveur][sdate] = {};
				end
				if ( DBCC_200907[snomserveur][sdate][slead] == nil ) then
					DBCC_200907[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200907[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200907[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200907[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200906" ) then
			if ( DBCS_loaded_addon("DBCC_200906") == 1 ) then
				if ( DBCC_200906[snomserveur] == nil ) then
					DBCC_200906[snomserveur] = {};
				end
				if ( DBCC_200906[snomserveur][sdate] == nil ) then
					DBCC_200906[snomserveur][sdate] = {};
				end
				if ( DBCC_200906[snomserveur][sdate][slead] == nil ) then
					DBCC_200906[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200906[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200906[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200906[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200905" ) then
			if ( DBCS_loaded_addon("DBCC_200905") == 1 ) then
				if ( DBCC_200905[snomserveur] == nil ) then
					DBCC_200905[snomserveur] = {};
				end
				if ( DBCC_200905[snomserveur][sdate] == nil ) then
					DBCC_200905[snomserveur][sdate] = {};
				end
				if ( DBCC_200905[snomserveur][sdate][slead] == nil ) then
					DBCC_200905[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200905[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200905[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200905[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200904" ) then
			if ( DBCS_loaded_addon("DBCC_200904") == 1 ) then
				if ( DBCC_200904[snomserveur] == nil ) then
					DBCC_200904[snomserveur] = {};
				end
				if ( DBCC_200904[snomserveur][sdate] == nil ) then
					DBCC_200904[snomserveur][sdate] = {};
				end
				if ( DBCC_200904[snomserveur][sdate][slead] == nil ) then
					DBCC_200904[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200904[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200904[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200904[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200903" ) then
			if ( DBCS_loaded_addon("DBCC_200903") == 1 ) then
				if ( DBCC_200903[snomserveur] == nil ) then
					DBCC_200903[snomserveur] = {};
				end
				if ( DBCC_200903[snomserveur][sdate] == nil ) then
					DBCC_200903[snomserveur][sdate] = {};
				end
				if ( DBCC_200903[snomserveur][sdate][slead] == nil ) then
					DBCC_200903[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200903[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200903[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200903[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200902" ) then
			if ( DBCS_loaded_addon("DBCC_200902") == 1 ) then
				if ( DBCC_200902[snomserveur] == nil ) then
					DBCC_200902[snomserveur] = {};
				end
				if ( DBCC_200902[snomserveur][sdate] == nil ) then
					DBCC_200902[snomserveur][sdate] = {};
				end
				if ( DBCC_200902[snomserveur][sdate][slead] == nil ) then
					DBCC_200902[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200902[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200902[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200902[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200901" ) then
			if ( DBCS_loaded_addon("DBCC_200901") == 1 ) then
				if ( DBCC_200901[snomserveur] == nil ) then
					DBCC_200901[snomserveur] = {};
				end
				if ( DBCC_200901[snomserveur][sdate] == nil ) then
					DBCC_200901[snomserveur][sdate] = {};
				end
				if ( DBCC_200901[snomserveur][sdate][slead] == nil ) then
					DBCC_200901[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200901[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200901[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200901[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200812" ) then
			if ( DBCS_loaded_addon("DBCC_200812") == 1 ) then
				if ( DBCC_200812[snomserveur] == nil ) then
					DBCC_200812[snomserveur] = {};
				end
				if ( DBCC_200812[snomserveur][sdate] == nil ) then
					DBCC_200812[snomserveur][sdate] = {};
				end
				if ( DBCC_200812[snomserveur][sdate][slead] == nil ) then
					DBCC_200812[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200812[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200812[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200812[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200811" ) then
			if ( DBCS_loaded_addon("DBCC_200811") == 1 ) then
				if ( DBCC_200811[snomserveur] == nil ) then
					DBCC_200811[snomserveur] = {};
				end
				if ( DBCC_200811[snomserveur][sdate] == nil ) then
					DBCC_200811[snomserveur][sdate] = {};
				end
				if ( DBCC_200811[snomserveur][sdate][slead] == nil ) then
					DBCC_200811[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200811[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200811[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200811[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200810" ) then
			if ( DBCS_loaded_addon("DBCC_200810") == 1 ) then
				if ( DBCC_200810[snomserveur] == nil ) then
					DBCC_200810[snomserveur] = {};
				end
				if ( DBCC_200810[snomserveur][sdate] == nil ) then
					DBCC_200810[snomserveur][sdate] = {};
				end
				if ( DBCC_200810[snomserveur][sdate][slead] == nil ) then
					DBCC_200810[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200810[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200810[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200810[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200809" ) then
			if ( DBCS_loaded_addon("DBCC_200809") == 1 ) then
				if ( DBCC_200809[snomserveur] == nil ) then
					DBCC_200809[snomserveur] = {};
				end
				if ( DBCC_200809[snomserveur][sdate] == nil ) then
					DBCC_200809[snomserveur][sdate] = {};
				end
				if ( DBCC_200809[snomserveur][sdate][slead] == nil ) then
					DBCC_200809[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200809[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200809[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200809[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200808" ) then
			if ( DBCS_loaded_addon("DBCC_200808") == 1 ) then
				if ( DBCC_200808[snomserveur] == nil ) then
					DBCC_200808[snomserveur] = {};
				end
				if ( DBCC_200808[snomserveur][sdate] == nil ) then
					DBCC_200808[snomserveur][sdate] = {};
				end
				if ( DBCC_200808[snomserveur][sdate][slead] == nil ) then
					DBCC_200808[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200808[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200808[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200808[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200807" ) then
			if ( DBCS_loaded_addon("DBCC_200807") == 1 ) then
				if ( DBCC_200807[snomserveur] == nil ) then
					DBCC_200807[snomserveur] = {};
				end
				if ( DBCC_200807[snomserveur][sdate] == nil ) then
					DBCC_200807[snomserveur][sdate] = {};
				end
				if ( DBCC_200807[snomserveur][sdate][slead] == nil ) then
					DBCC_200807[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200807[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200807[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200807[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200806" ) then
			if ( DBCS_loaded_addon("DBCC_200806") == 1 ) then
				if ( DBCC_200806[snomserveur] == nil ) then
					DBCC_200806[snomserveur] = {};
				end
				if ( DBCC_200806[snomserveur][sdate] == nil ) then
					DBCC_200806[snomserveur][sdate] = {};
				end
				if ( DBCC_200806[snomserveur][sdate][slead] == nil ) then
					DBCC_200806[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200806[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200806[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200806[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200805" ) then
			if ( DBCS_loaded_addon("DBCC_200805") == 1 ) then
				if ( DBCC_200805[snomserveur] == nil ) then
					DBCC_200805[snomserveur] = {};
				end
				if ( DBCC_200805[snomserveur][sdate] == nil ) then
					DBCC_200805[snomserveur][sdate] = {};
				end
				if ( DBCC_200805[snomserveur][sdate][slead] == nil ) then
					DBCC_200805[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200805[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200805[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200805[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200804" ) then
			if ( DBCS_loaded_addon("DBCC_200804") == 1 ) then
				if ( DBCC_200804[snomserveur] == nil ) then
					DBCC_200804[snomserveur] = {};
				end
				if ( DBCC_200804[snomserveur][sdate] == nil ) then
					DBCC_200804[snomserveur][sdate] = {};
				end
				if ( DBCC_200804[snomserveur][sdate][slead] == nil ) then
					DBCC_200804[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200804[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200804[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200804[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200803" ) then
			if ( DBCS_loaded_addon("DBCC_200803") == 1 ) then
				if ( DBCC_200803[snomserveur] == nil ) then
					DBCC_200803[snomserveur] = {};
				end
				if ( DBCC_200803[snomserveur][sdate] == nil ) then
					DBCC_200803[snomserveur][sdate] = {};
				end
				if ( DBCC_200803[snomserveur][sdate][slead] == nil ) then
					DBCC_200803[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200803[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200803[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200803[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200802" ) then
			if ( DBCS_loaded_addon("DBCC_200802") == 1 ) then
				if ( DBCC_200802[snomserveur] == nil ) then
					DBCC_200802[snomserveur] = {};
				end
				if ( DBCC_200802[snomserveur][sdate] == nil ) then
					DBCC_200802[snomserveur][sdate] = {};
				end
				if ( DBCC_200802[snomserveur][sdate][slead] == nil ) then
					DBCC_200802[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200802[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200802[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200802[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200801" ) then
			if ( DBCS_loaded_addon("DBCC_200801") == 1 ) then
				if ( DBCC_200801[snomserveur] == nil ) then
					DBCC_200801[snomserveur] = {};
				end
				if ( DBCC_200801[snomserveur][sdate] == nil ) then
					DBCC_200801[snomserveur][sdate] = {};
				end
				if ( DBCC_200801[snomserveur][sdate][slead] == nil ) then
					DBCC_200801[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200801[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200801[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200801[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200712" ) then
			if ( DBCS_loaded_addon("DBCC_200712") == 1 ) then
				if ( DBCC_200712[snomserveur] == nil ) then
					DBCC_200712[snomserveur] = {};
				end
				if ( DBCC_200712[snomserveur][sdate] == nil ) then
					DBCC_200712[snomserveur][sdate] = {};
				end
				if ( DBCC_200712[snomserveur][sdate][slead] == nil ) then
					DBCC_200712[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200712[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200712[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200712[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200711" ) then
			if ( DBCS_loaded_addon("DBCC_200711") == 1 ) then
				if ( DBCC_200711[snomserveur] == nil ) then
					DBCC_200711[snomserveur] = {};
				end
				if ( DBCC_200711[snomserveur][sdate] == nil ) then
					DBCC_200711[snomserveur][sdate] = {};
				end
				if ( DBCC_200711[snomserveur][sdate][slead] == nil ) then
					DBCC_200711[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200711[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200711[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200711[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200710" ) then
			if ( DBCS_loaded_addon("DBCC_200710") == 1 ) then
				if ( DBCC_200710[snomserveur] == nil ) then
					DBCC_200710[snomserveur] = {};
				end
				if ( DBCC_200710[snomserveur][sdate] == nil ) then
					DBCC_200710[snomserveur][sdate] = {};
				end
				if ( DBCC_200710[snomserveur][sdate][slead] == nil ) then
					DBCC_200710[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200710[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200710[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200710[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200709" ) then
			if ( DBCS_loaded_addon("DBCC_200709") == 1 ) then
				if ( DBCC_200709[snomserveur] == nil ) then
					DBCC_200709[snomserveur] = {};
				end
				if ( DBCC_200709[snomserveur][sdate] == nil ) then
					DBCC_200709[snomserveur][sdate] = {};
				end
				if ( DBCC_200709[snomserveur][sdate][slead] == nil ) then
					DBCC_200709[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200709[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200709[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200709[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200708" ) then
			if ( DBCS_loaded_addon("DBCC_200708") == 1 ) then
				if ( DBCC_200708[snomserveur] == nil ) then
					DBCC_200708[snomserveur] = {};
				end
				if ( DBCC_200708[snomserveur][sdate] == nil ) then
					DBCC_200708[snomserveur][sdate] = {};
				end
				if ( DBCC_200708[snomserveur][sdate][slead] == nil ) then
					DBCC_200708[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200708[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200708[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200708[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200707" ) then
			if ( DBCS_loaded_addon("DBCC_200707") == 1 ) then
				if ( DBCC_200707[snomserveur] == nil ) then
					DBCC_200707[snomserveur] = {};
				end
				if ( DBCC_200707[snomserveur][sdate] == nil ) then
					DBCC_200707[snomserveur][sdate] = {};
				end
				if ( DBCC_200707[snomserveur][sdate][slead] == nil ) then
					DBCC_200707[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200707[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200707[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200707[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200706" ) then
			if ( DBCS_loaded_addon("DBCC_200706") == 1 ) then
				if ( DBCC_200706[snomserveur] == nil ) then
					DBCC_200706[snomserveur] = {};
				end
				if ( DBCC_200706[snomserveur][sdate] == nil ) then
					DBCC_200706[snomserveur][sdate] = {};
				end
				if ( DBCC_200706[snomserveur][sdate][slead] == nil ) then
					DBCC_200706[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200706[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200706[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200706[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200705" ) then
			if ( DBCS_loaded_addon("DBCC_200705") == 1 ) then
				if ( DBCC_200705[snomserveur] == nil ) then
					DBCC_200705[snomserveur] = {};
				end
				if ( DBCC_200705[snomserveur][sdate] == nil ) then
					DBCC_200705[snomserveur][sdate] = {};
				end
				if ( DBCC_200705[snomserveur][sdate][slead] == nil ) then
					DBCC_200705[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200705[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200705[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200705[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		else
			if ( DBCC[snomserveur] == nil ) then
				DBCC[snomserveur] = {};
			end
			if ( DBCC[snomserveur][sdate] == nil ) then
				DBCC[snomserveur][sdate] = {};
			end
			if ( DBCC[snomserveur][sdate][slead] == nil ) then
				DBCC[snomserveur][sdate][slead] = {};
			end
			if ( DBCC[snomserveur][sdate][slead][stime] == nil ) then
				DBCC[snomserveur][sdate][slead][stime] = {};
			end
			DBCC[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
		end
	end
	DBcorps_ajoutcorp(sdate,slead,stime,snomserveur,bcopie);

end

function DBcorps_ajoutmob(slangue,sdate,slead,stime,snommob,snumregion,x,y,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot,nomserveur,bcopie)

local snomserveur;
local smois;

	if ( nomserveur ) then
		snomserveur = nomserveur;
	else
		snomserveur = DBCS_serveur;
	end

	if ( sfamille == nil ) then
		sfamille = "";
	end
	if ( stype == nil ) then
		stype = "";
	end
	if ( splusmob == nil ) then
		splusmob = "";
	end

	if ( DBCS_prog_serveur == 0 ) then
		if ( DBCC[snomserveur] == nil ) then
			DBCC[snomserveur] = {};
		end
		if ( DBCC[snomserveur][sdate] == nil ) then
			DBCC[snomserveur][sdate] = {};
		end
		if ( DBCC[snomserveur][sdate][slead] == nil ) then
			DBCC[snomserveur][sdate][slead] = {};
		end
		if ( DBCC[snomserveur][sdate][slead][stime] == nil ) then
			DBCC[snomserveur][sdate][slead][stime] = {};
		end
		DBCC[snomserveur][sdate][slead][stime][-2] = slangue;
		DBCC[snomserveur][sdate][slead][stime][-1] = "CA01";
		DBCC[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
	else
		smois = strsub(sdate,1,6);
		if ( smois == "201305" ) then
--TraceFrame:AddMessage("mis ds 201305");
			if ( DBCS_loaded_addon("DBCC_201305") == 1 ) then
				if ( DBCC_201305[snomserveur] == nil ) then
					DBCC_201305[snomserveur] = {};
				end
				if ( DBCC_201305[snomserveur][sdate] == nil ) then
					DBCC_201305[snomserveur][sdate] = {};
				end
				if ( DBCC_201305[snomserveur][sdate][slead] == nil ) then
					DBCC_201305[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201305[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201305[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201305[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201305[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201305[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201304" ) then
--TraceFrame:AddMessage("mis ds 201304");
			if ( DBCS_loaded_addon("DBCC_201304") == 1 ) then
				if ( DBCC_201304[snomserveur] == nil ) then
					DBCC_201304[snomserveur] = {};
				end
				if ( DBCC_201304[snomserveur][sdate] == nil ) then
					DBCC_201304[snomserveur][sdate] = {};
				end
				if ( DBCC_201304[snomserveur][sdate][slead] == nil ) then
					DBCC_201304[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201304[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201304[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201304[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201304[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201304[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201303" ) then
--TraceFrame:AddMessage("mis ds 201303");
			if ( DBCS_loaded_addon("DBCC_201303") == 1 ) then
				if ( DBCC_201303[snomserveur] == nil ) then
					DBCC_201303[snomserveur] = {};
				end
				if ( DBCC_201303[snomserveur][sdate] == nil ) then
					DBCC_201303[snomserveur][sdate] = {};
				end
				if ( DBCC_201303[snomserveur][sdate][slead] == nil ) then
					DBCC_201303[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201303[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201303[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201303[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201303[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201303[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201302" ) then
--TraceFrame:AddMessage("mis ds 201302");
			if ( DBCS_loaded_addon("DBCC_201302") == 1 ) then
				if ( DBCC_201302[snomserveur] == nil ) then
					DBCC_201302[snomserveur] = {};
				end
				if ( DBCC_201302[snomserveur][sdate] == nil ) then
					DBCC_201302[snomserveur][sdate] = {};
				end
				if ( DBCC_201302[snomserveur][sdate][slead] == nil ) then
					DBCC_201302[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201302[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201302[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201302[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201302[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201302[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201301" ) then
--TraceFrame:AddMessage("mis ds 201301");
			if ( DBCS_loaded_addon("DBCC_201301") == 1 ) then
				if ( DBCC_201301[snomserveur] == nil ) then
					DBCC_201301[snomserveur] = {};
				end
				if ( DBCC_201301[snomserveur][sdate] == nil ) then
					DBCC_201301[snomserveur][sdate] = {};
				end
				if ( DBCC_201301[snomserveur][sdate][slead] == nil ) then
					DBCC_201301[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201301[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201301[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201301[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201301[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201301[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201212" ) then
--TraceFrame:AddMessage("mis ds 201212");
			if ( DBCS_loaded_addon("DBCC_201212") == 1 ) then
				if ( DBCC_201212[snomserveur] == nil ) then
					DBCC_201212[snomserveur] = {};
				end
				if ( DBCC_201212[snomserveur][sdate] == nil ) then
					DBCC_201212[snomserveur][sdate] = {};
				end
				if ( DBCC_201212[snomserveur][sdate][slead] == nil ) then
					DBCC_201212[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201212[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201212[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201212[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201212[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201212[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201211" ) then
--TraceFrame:AddMessage("mis ds 201211");
			if ( DBCS_loaded_addon("DBCC_201211") == 1 ) then
				if ( DBCC_201211[snomserveur] == nil ) then
					DBCC_201211[snomserveur] = {};
				end
				if ( DBCC_201211[snomserveur][sdate] == nil ) then
					DBCC_201211[snomserveur][sdate] = {};
				end
				if ( DBCC_201211[snomserveur][sdate][slead] == nil ) then
					DBCC_201211[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201211[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201211[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201211[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201211[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201211[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201210" ) then
--TraceFrame:AddMessage("mis ds 201210");
			if ( DBCS_loaded_addon("DBCC_201210") == 1 ) then
				if ( DBCC_201210[snomserveur] == nil ) then
					DBCC_201210[snomserveur] = {};
				end
				if ( DBCC_201210[snomserveur][sdate] == nil ) then
					DBCC_201210[snomserveur][sdate] = {};
				end
				if ( DBCC_201210[snomserveur][sdate][slead] == nil ) then
					DBCC_201210[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201210[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201210[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201210[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201210[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201210[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201209" ) then
--TraceFrame:AddMessage("mis ds 201209");
			if ( DBCS_loaded_addon("DBCC_201209") == 1 ) then
				if ( DBCC_201209[snomserveur] == nil ) then
					DBCC_201209[snomserveur] = {};
				end
				if ( DBCC_201209[snomserveur][sdate] == nil ) then
					DBCC_201209[snomserveur][sdate] = {};
				end
				if ( DBCC_201209[snomserveur][sdate][slead] == nil ) then
					DBCC_201209[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201209[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201209[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201209[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201209[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201209[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201208" ) then
--TraceFrame:AddMessage("mis ds 201208");
			if ( DBCS_loaded_addon("DBCC_201208") == 1 ) then
				if ( DBCC_201208[snomserveur] == nil ) then
					DBCC_201208[snomserveur] = {};
				end
				if ( DBCC_201208[snomserveur][sdate] == nil ) then
					DBCC_201208[snomserveur][sdate] = {};
				end
				if ( DBCC_201208[snomserveur][sdate][slead] == nil ) then
					DBCC_201208[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201208[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201208[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201208[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201208[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201208[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201207" ) then
--TraceFrame:AddMessage("mis ds 201207");
			if ( DBCS_loaded_addon("DBCC_201207") == 1 ) then
				if ( DBCC_201207[snomserveur] == nil ) then
					DBCC_201207[snomserveur] = {};
				end
				if ( DBCC_201207[snomserveur][sdate] == nil ) then
					DBCC_201207[snomserveur][sdate] = {};
				end
				if ( DBCC_201207[snomserveur][sdate][slead] == nil ) then
					DBCC_201207[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201207[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201207[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201207[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201207[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201207[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201206" ) then
--TraceFrame:AddMessage("mis ds 201206");
			if ( DBCS_loaded_addon("DBCC_201206") == 1 ) then
				if ( DBCC_201206[snomserveur] == nil ) then
					DBCC_201206[snomserveur] = {};
				end
				if ( DBCC_201206[snomserveur][sdate] == nil ) then
					DBCC_201206[snomserveur][sdate] = {};
				end
				if ( DBCC_201206[snomserveur][sdate][slead] == nil ) then
					DBCC_201206[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201206[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201206[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201206[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201206[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201206[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201205" ) then
--TraceFrame:AddMessage("mis ds 201205");
			if ( DBCS_loaded_addon("DBCC_201205") == 1 ) then
				if ( DBCC_201205[snomserveur] == nil ) then
					DBCC_201205[snomserveur] = {};
				end
				if ( DBCC_201205[snomserveur][sdate] == nil ) then
					DBCC_201205[snomserveur][sdate] = {};
				end
				if ( DBCC_201205[snomserveur][sdate][slead] == nil ) then
					DBCC_201205[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201205[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201205[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201205[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201205[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201205[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201204" ) then
--TraceFrame:AddMessage("mis ds 201204");
			if ( DBCS_loaded_addon("DBCC_201204") == 1 ) then
				if ( DBCC_201204[snomserveur] == nil ) then
					DBCC_201204[snomserveur] = {};
				end
				if ( DBCC_201204[snomserveur][sdate] == nil ) then
					DBCC_201204[snomserveur][sdate] = {};
				end
				if ( DBCC_201204[snomserveur][sdate][slead] == nil ) then
					DBCC_201204[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201204[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201204[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201204[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201204[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201204[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201203" ) then
--TraceFrame:AddMessage("mis ds 201203");
			if ( DBCS_loaded_addon("DBCC_201203") == 1 ) then
				if ( DBCC_201203[snomserveur] == nil ) then
					DBCC_201203[snomserveur] = {};
				end
				if ( DBCC_201203[snomserveur][sdate] == nil ) then
					DBCC_201203[snomserveur][sdate] = {};
				end
				if ( DBCC_201203[snomserveur][sdate][slead] == nil ) then
					DBCC_201203[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201203[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201203[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201203[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201203[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201203[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201202" ) then
--TraceFrame:AddMessage("mis ds 201202");
			if ( DBCS_loaded_addon("DBCC_201202") == 1 ) then
				if ( DBCC_201202[snomserveur] == nil ) then
					DBCC_201202[snomserveur] = {};
				end
				if ( DBCC_201202[snomserveur][sdate] == nil ) then
					DBCC_201202[snomserveur][sdate] = {};
				end
				if ( DBCC_201202[snomserveur][sdate][slead] == nil ) then
					DBCC_201202[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201202[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201202[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201202[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201202[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201202[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201201" ) then
--TraceFrame:AddMessage("mis ds 201201");
			if ( DBCS_loaded_addon("DBCC_201201") == 1 ) then
				if ( DBCC_201201[snomserveur] == nil ) then
					DBCC_201201[snomserveur] = {};
				end
				if ( DBCC_201201[snomserveur][sdate] == nil ) then
					DBCC_201201[snomserveur][sdate] = {};
				end
				if ( DBCC_201201[snomserveur][sdate][slead] == nil ) then
					DBCC_201201[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201201[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201201[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201201[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201201[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201201[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201112" ) then
--TraceFrame:AddMessage("mis ds 201112");
			if ( DBCS_loaded_addon("DBCC_201112") == 1 ) then
				if ( DBCC_201112[snomserveur] == nil ) then
					DBCC_201112[snomserveur] = {};
				end
				if ( DBCC_201112[snomserveur][sdate] == nil ) then
					DBCC_201112[snomserveur][sdate] = {};
				end
				if ( DBCC_201112[snomserveur][sdate][slead] == nil ) then
					DBCC_201112[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201112[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201112[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201112[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201112[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201112[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201111" ) then
--TraceFrame:AddMessage("mis ds 201111");
			if ( DBCS_loaded_addon("DBCC_201111") == 1 ) then
				if ( DBCC_201111[snomserveur] == nil ) then
					DBCC_201111[snomserveur] = {};
				end
				if ( DBCC_201111[snomserveur][sdate] == nil ) then
					DBCC_201111[snomserveur][sdate] = {};
				end
				if ( DBCC_201111[snomserveur][sdate][slead] == nil ) then
					DBCC_201111[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201111[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201111[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201111[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201111[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201111[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201110" ) then
--TraceFrame:AddMessage("mis ds 201110");
			if ( DBCS_loaded_addon("DBCC_201110") == 1 ) then
				if ( DBCC_201110[snomserveur] == nil ) then
					DBCC_201110[snomserveur] = {};
				end
				if ( DBCC_201110[snomserveur][sdate] == nil ) then
					DBCC_201110[snomserveur][sdate] = {};
				end
				if ( DBCC_201110[snomserveur][sdate][slead] == nil ) then
					DBCC_201110[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201110[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201110[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201110[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201110[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201110[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201109" ) then
--TraceFrame:AddMessage("mis ds 201109");
			if ( DBCS_loaded_addon("DBCC_201109") == 1 ) then
				if ( DBCC_201109[snomserveur] == nil ) then
					DBCC_201109[snomserveur] = {};
				end
				if ( DBCC_201109[snomserveur][sdate] == nil ) then
					DBCC_201109[snomserveur][sdate] = {};
				end
				if ( DBCC_201109[snomserveur][sdate][slead] == nil ) then
					DBCC_201109[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201109[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201109[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201109[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201109[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201109[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201108" ) then
--TraceFrame:AddMessage("mis ds 201108");
			if ( DBCS_loaded_addon("DBCC_201108") == 1 ) then
				if ( DBCC_201108[snomserveur] == nil ) then
					DBCC_201108[snomserveur] = {};
				end
				if ( DBCC_201108[snomserveur][sdate] == nil ) then
					DBCC_201108[snomserveur][sdate] = {};
				end
				if ( DBCC_201108[snomserveur][sdate][slead] == nil ) then
					DBCC_201108[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201108[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201108[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201108[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201108[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201108[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201107" ) then
--TraceFrame:AddMessage("mis ds 201107");
			if ( DBCS_loaded_addon("DBCC_201107") == 1 ) then
				if ( DBCC_201107[snomserveur] == nil ) then
					DBCC_201107[snomserveur] = {};
				end
				if ( DBCC_201107[snomserveur][sdate] == nil ) then
					DBCC_201107[snomserveur][sdate] = {};
				end
				if ( DBCC_201107[snomserveur][sdate][slead] == nil ) then
					DBCC_201107[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201107[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201107[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201107[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201107[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201107[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201106" ) then
--TraceFrame:AddMessage("mis ds 201106");
			if ( DBCS_loaded_addon("DBCC_201106") == 1 ) then
				if ( DBCC_201106[snomserveur] == nil ) then
					DBCC_201106[snomserveur] = {};
				end
				if ( DBCC_201106[snomserveur][sdate] == nil ) then
					DBCC_201106[snomserveur][sdate] = {};
				end
				if ( DBCC_201106[snomserveur][sdate][slead] == nil ) then
					DBCC_201106[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201106[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201106[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201106[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201106[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201106[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201105" ) then
--TraceFrame:AddMessage("mis ds 201105");
			if ( DBCS_loaded_addon("DBCC_201105") == 1 ) then
				if ( DBCC_201105[snomserveur] == nil ) then
					DBCC_201105[snomserveur] = {};
				end
				if ( DBCC_201105[snomserveur][sdate] == nil ) then
					DBCC_201105[snomserveur][sdate] = {};
				end
				if ( DBCC_201105[snomserveur][sdate][slead] == nil ) then
					DBCC_201105[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201105[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201105[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201105[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201105[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201105[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201104" ) then
--TraceFrame:AddMessage("mis ds 201104");
			if ( DBCS_loaded_addon("DBCC_201104") == 1 ) then
				if ( DBCC_201104[snomserveur] == nil ) then
					DBCC_201104[snomserveur] = {};
				end
				if ( DBCC_201104[snomserveur][sdate] == nil ) then
					DBCC_201104[snomserveur][sdate] = {};
				end
				if ( DBCC_201104[snomserveur][sdate][slead] == nil ) then
					DBCC_201104[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201104[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201104[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201104[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201104[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201104[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201103" ) then
--TraceFrame:AddMessage("mis ds 201103");
			if ( DBCS_loaded_addon("DBCC_201103") == 1 ) then
				if ( DBCC_201103[snomserveur] == nil ) then
					DBCC_201103[snomserveur] = {};
				end
				if ( DBCC_201103[snomserveur][sdate] == nil ) then
					DBCC_201103[snomserveur][sdate] = {};
				end
				if ( DBCC_201103[snomserveur][sdate][slead] == nil ) then
					DBCC_201103[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201103[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201103[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201103[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201103[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201103[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201102" ) then
--TraceFrame:AddMessage("mis ds 201102");
			if ( DBCS_loaded_addon("DBCC_201102") == 1 ) then
				if ( DBCC_201102[snomserveur] == nil ) then
					DBCC_201102[snomserveur] = {};
				end
				if ( DBCC_201102[snomserveur][sdate] == nil ) then
					DBCC_201102[snomserveur][sdate] = {};
				end
				if ( DBCC_201102[snomserveur][sdate][slead] == nil ) then
					DBCC_201102[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201102[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201102[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201102[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201102[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201102[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201101" ) then
--TraceFrame:AddMessage("mis ds 201101");
			if ( DBCS_loaded_addon("DBCC_201101") == 1 ) then
				if ( DBCC_201101[snomserveur] == nil ) then
					DBCC_201101[snomserveur] = {};
				end
				if ( DBCC_201101[snomserveur][sdate] == nil ) then
					DBCC_201101[snomserveur][sdate] = {};
				end
				if ( DBCC_201101[snomserveur][sdate][slead] == nil ) then
					DBCC_201101[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201101[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201101[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201101[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201101[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201101[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201012" ) then
--TraceFrame:AddMessage("mis ds 201012");
			if ( DBCS_loaded_addon("DBCC_201012") == 1 ) then
				if ( DBCC_201012[snomserveur] == nil ) then
					DBCC_201012[snomserveur] = {};
				end
				if ( DBCC_201012[snomserveur][sdate] == nil ) then
					DBCC_201012[snomserveur][sdate] = {};
				end
				if ( DBCC_201012[snomserveur][sdate][slead] == nil ) then
					DBCC_201012[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201012[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201012[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201012[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201012[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201012[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201011" ) then
--TraceFrame:AddMessage("mis ds 201011");
			if ( DBCS_loaded_addon("DBCC_201011") == 1 ) then
				if ( DBCC_201011[snomserveur] == nil ) then
					DBCC_201011[snomserveur] = {};
				end
				if ( DBCC_201011[snomserveur][sdate] == nil ) then
					DBCC_201011[snomserveur][sdate] = {};
				end
				if ( DBCC_201011[snomserveur][sdate][slead] == nil ) then
					DBCC_201011[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201011[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201011[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201011[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201011[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201011[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201010" ) then
--TraceFrame:AddMessage("mis ds 201010");
			if ( DBCS_loaded_addon("DBCC_201010") == 1 ) then
				if ( DBCC_201010[snomserveur] == nil ) then
					DBCC_201010[snomserveur] = {};
				end
				if ( DBCC_201010[snomserveur][sdate] == nil ) then
					DBCC_201010[snomserveur][sdate] = {};
				end
				if ( DBCC_201010[snomserveur][sdate][slead] == nil ) then
					DBCC_201010[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201010[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201010[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201010[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201010[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201010[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201009" ) then
--TraceFrame:AddMessage("mis ds 201009");
			if ( DBCS_loaded_addon("DBCC_201009") == 1 ) then
				if ( DBCC_201009[snomserveur] == nil ) then
					DBCC_201009[snomserveur] = {};
				end
				if ( DBCC_201009[snomserveur][sdate] == nil ) then
					DBCC_201009[snomserveur][sdate] = {};
				end
				if ( DBCC_201009[snomserveur][sdate][slead] == nil ) then
					DBCC_201009[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201009[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201009[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201009[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201009[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201009[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201008" ) then
--TraceFrame:AddMessage("mis ds 201008");
			if ( DBCS_loaded_addon("DBCC_201008") == 1 ) then
				if ( DBCC_201008[snomserveur] == nil ) then
					DBCC_201008[snomserveur] = {};
				end
				if ( DBCC_201008[snomserveur][sdate] == nil ) then
					DBCC_201008[snomserveur][sdate] = {};
				end
				if ( DBCC_201008[snomserveur][sdate][slead] == nil ) then
					DBCC_201008[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201008[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201008[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201008[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201008[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201008[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201007" ) then
--TraceFrame:AddMessage("mis ds 201007");
			if ( DBCS_loaded_addon("DBCC_201007") == 1 ) then
				if ( DBCC_201007[snomserveur] == nil ) then
					DBCC_201007[snomserveur] = {};
				end
				if ( DBCC_201007[snomserveur][sdate] == nil ) then
					DBCC_201007[snomserveur][sdate] = {};
				end
				if ( DBCC_201007[snomserveur][sdate][slead] == nil ) then
					DBCC_201007[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201007[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201007[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201007[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201007[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201007[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201006" ) then
--TraceFrame:AddMessage("mis ds 201006");
			if ( DBCS_loaded_addon("DBCC_201006") == 1 ) then
				if ( DBCC_201006[snomserveur] == nil ) then
					DBCC_201006[snomserveur] = {};
				end
				if ( DBCC_201006[snomserveur][sdate] == nil ) then
					DBCC_201006[snomserveur][sdate] = {};
				end
				if ( DBCC_201006[snomserveur][sdate][slead] == nil ) then
					DBCC_201006[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201006[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201006[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201006[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201006[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201006[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201005" ) then
--TraceFrame:AddMessage("mis ds 201005");
			if ( DBCS_loaded_addon("DBCC_201005") == 1 ) then
				if ( DBCC_201005[snomserveur] == nil ) then
					DBCC_201005[snomserveur] = {};
				end
				if ( DBCC_201005[snomserveur][sdate] == nil ) then
					DBCC_201005[snomserveur][sdate] = {};
				end
				if ( DBCC_201005[snomserveur][sdate][slead] == nil ) then
					DBCC_201005[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201005[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201005[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201005[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201005[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201005[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201004" ) then
--TraceFrame:AddMessage("mis ds 201004");
			if ( DBCS_loaded_addon("DBCC_201004") == 1 ) then
				if ( DBCC_201004[snomserveur] == nil ) then
					DBCC_201004[snomserveur] = {};
				end
				if ( DBCC_201004[snomserveur][sdate] == nil ) then
					DBCC_201004[snomserveur][sdate] = {};
				end
				if ( DBCC_201004[snomserveur][sdate][slead] == nil ) then
					DBCC_201004[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201004[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201004[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201004[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201004[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201004[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201003" ) then
--TraceFrame:AddMessage("mis ds 201003");
			if ( DBCS_loaded_addon("DBCC_201003") == 1 ) then
				if ( DBCC_201003[snomserveur] == nil ) then
					DBCC_201003[snomserveur] = {};
				end
				if ( DBCC_201003[snomserveur][sdate] == nil ) then
					DBCC_201003[snomserveur][sdate] = {};
				end
				if ( DBCC_201003[snomserveur][sdate][slead] == nil ) then
					DBCC_201003[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201003[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201003[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201003[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201003[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201003[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201002" ) then
--TraceFrame:AddMessage("mis ds 201002");
			if ( DBCS_loaded_addon("DBCC_201002") == 1 ) then
				if ( DBCC_201002[snomserveur] == nil ) then
					DBCC_201002[snomserveur] = {};
				end
				if ( DBCC_201002[snomserveur][sdate] == nil ) then
					DBCC_201002[snomserveur][sdate] = {};
				end
				if ( DBCC_201002[snomserveur][sdate][slead] == nil ) then
					DBCC_201002[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201002[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201002[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201002[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201002[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201002[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201001" ) then
--TraceFrame:AddMessage("mis ds 201001");
			if ( DBCS_loaded_addon("DBCC_201001") == 1 ) then
				if ( DBCC_201001[snomserveur] == nil ) then
					DBCC_201001[snomserveur] = {};
				end
				if ( DBCC_201001[snomserveur][sdate] == nil ) then
					DBCC_201001[snomserveur][sdate] = {};
				end
				if ( DBCC_201001[snomserveur][sdate][slead] == nil ) then
					DBCC_201001[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201001[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201001[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201001[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201001[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_201001[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200912" ) then
--TraceFrame:AddMessage("mis ds 200912");
			if ( DBCS_loaded_addon("DBCC_200912") == 1 ) then
				if ( DBCC_200912[snomserveur] == nil ) then
					DBCC_200912[snomserveur] = {};
				end
				if ( DBCC_200912[snomserveur][sdate] == nil ) then
					DBCC_200912[snomserveur][sdate] = {};
				end
				if ( DBCC_200912[snomserveur][sdate][slead] == nil ) then
					DBCC_200912[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200912[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200912[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200912[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200912[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200912[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200911" ) then
--TraceFrame:AddMessage("mis ds 200911");
			if ( DBCS_loaded_addon("DBCC_200911") == 1 ) then
				if ( DBCC_200911[snomserveur] == nil ) then
					DBCC_200911[snomserveur] = {};
				end
				if ( DBCC_200911[snomserveur][sdate] == nil ) then
					DBCC_200911[snomserveur][sdate] = {};
				end
				if ( DBCC_200911[snomserveur][sdate][slead] == nil ) then
					DBCC_200911[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200911[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200911[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200911[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200911[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200911[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200910" ) then
--TraceFrame:AddMessage("mis ds 200910");
			if ( DBCS_loaded_addon("DBCC_200910") == 1 ) then
				if ( DBCC_200910[snomserveur] == nil ) then
					DBCC_200910[snomserveur] = {};
				end
				if ( DBCC_200910[snomserveur][sdate] == nil ) then
					DBCC_200910[snomserveur][sdate] = {};
				end
				if ( DBCC_200910[snomserveur][sdate][slead] == nil ) then
					DBCC_200910[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200910[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200910[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200910[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200910[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200910[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200909" ) then
--TraceFrame:AddMessage("mis ds 200909");
			if ( DBCS_loaded_addon("DBCC_200909") == 1 ) then
				if ( DBCC_200909[snomserveur] == nil ) then
					DBCC_200909[snomserveur] = {};
				end
				if ( DBCC_200909[snomserveur][sdate] == nil ) then
					DBCC_200909[snomserveur][sdate] = {};
				end
				if ( DBCC_200909[snomserveur][sdate][slead] == nil ) then
					DBCC_200909[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200909[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200909[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200909[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200909[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200909[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200908" ) then
--TraceFrame:AddMessage("mis ds 200908");
			if ( DBCS_loaded_addon("DBCC_200908") == 1 ) then
				if ( DBCC_200908[snomserveur] == nil ) then
					DBCC_200908[snomserveur] = {};
				end
				if ( DBCC_200908[snomserveur][sdate] == nil ) then
					DBCC_200908[snomserveur][sdate] = {};
				end
				if ( DBCC_200908[snomserveur][sdate][slead] == nil ) then
					DBCC_200908[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200908[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200908[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200908[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200908[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200908[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200907" ) then
--TraceFrame:AddMessage("mis ds 200907");
			if ( DBCS_loaded_addon("DBCC_200907") == 1 ) then
				if ( DBCC_200907[snomserveur] == nil ) then
					DBCC_200907[snomserveur] = {};
				end
				if ( DBCC_200907[snomserveur][sdate] == nil ) then
					DBCC_200907[snomserveur][sdate] = {};
				end
				if ( DBCC_200907[snomserveur][sdate][slead] == nil ) then
					DBCC_200907[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200907[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200907[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200907[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200907[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200907[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200906" ) then
--TraceFrame:AddMessage("mis ds 200906");
			if ( DBCS_loaded_addon("DBCC_200906") == 1 ) then
				if ( DBCC_200906[snomserveur] == nil ) then
					DBCC_200906[snomserveur] = {};
				end
				if ( DBCC_200906[snomserveur][sdate] == nil ) then
					DBCC_200906[snomserveur][sdate] = {};
				end
				if ( DBCC_200906[snomserveur][sdate][slead] == nil ) then
					DBCC_200906[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200906[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200906[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200906[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200906[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200906[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200905" ) then
--TraceFrame:AddMessage("mis ds 200905");
			if ( DBCS_loaded_addon("DBCC_200905") == 1 ) then
				if ( DBCC_200905[snomserveur] == nil ) then
					DBCC_200905[snomserveur] = {};
				end
				if ( DBCC_200905[snomserveur][sdate] == nil ) then
					DBCC_200905[snomserveur][sdate] = {};
				end
				if ( DBCC_200905[snomserveur][sdate][slead] == nil ) then
					DBCC_200905[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200905[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200905[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200905[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200905[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200905[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200904" ) then
--TraceFrame:AddMessage("mis ds 200904");
			if ( DBCS_loaded_addon("DBCC_200904") == 1 ) then
				if ( DBCC_200904[snomserveur] == nil ) then
					DBCC_200904[snomserveur] = {};
				end
				if ( DBCC_200904[snomserveur][sdate] == nil ) then
					DBCC_200904[snomserveur][sdate] = {};
				end
				if ( DBCC_200904[snomserveur][sdate][slead] == nil ) then
					DBCC_200904[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200904[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200904[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200904[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200904[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200904[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200903" ) then
--TraceFrame:AddMessage("mis ds 200903");
			if ( DBCS_loaded_addon("DBCC_200903") == 1 ) then
				if ( DBCC_200903[snomserveur] == nil ) then
					DBCC_200903[snomserveur] = {};
				end
				if ( DBCC_200903[snomserveur][sdate] == nil ) then
					DBCC_200903[snomserveur][sdate] = {};
				end
				if ( DBCC_200903[snomserveur][sdate][slead] == nil ) then
					DBCC_200903[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200903[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200903[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200903[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200903[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200903[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200902" ) then
--TraceFrame:AddMessage("mis ds 200902");
			if ( DBCS_loaded_addon("DBCC_200902") == 1 ) then
				if ( DBCC_200902[snomserveur] == nil ) then
					DBCC_200902[snomserveur] = {};
				end
				if ( DBCC_200902[snomserveur][sdate] == nil ) then
					DBCC_200902[snomserveur][sdate] = {};
				end
				if ( DBCC_200902[snomserveur][sdate][slead] == nil ) then
					DBCC_200902[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200902[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200902[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200902[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200902[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200902[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200901" ) then
--TraceFrame:AddMessage("mis ds 200901");
			if ( DBCS_loaded_addon("DBCC_200901") == 1 ) then
				if ( DBCC_200901[snomserveur] == nil ) then
					DBCC_200901[snomserveur] = {};
				end
				if ( DBCC_200901[snomserveur][sdate] == nil ) then
					DBCC_200901[snomserveur][sdate] = {};
				end
				if ( DBCC_200901[snomserveur][sdate][slead] == nil ) then
					DBCC_200901[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200901[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200901[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200901[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200901[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200901[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200812" ) then
--TraceFrame:AddMessage("mis ds 200812");
			if ( DBCS_loaded_addon("DBCC_200812") == 1 ) then
				if ( DBCC_200812[snomserveur] == nil ) then
					DBCC_200812[snomserveur] = {};
				end
				if ( DBCC_200812[snomserveur][sdate] == nil ) then
					DBCC_200812[snomserveur][sdate] = {};
				end
				if ( DBCC_200812[snomserveur][sdate][slead] == nil ) then
					DBCC_200812[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200812[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200812[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200812[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200812[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200812[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200811" ) then
--TraceFrame:AddMessage("mis ds 200811");
			if ( DBCS_loaded_addon("DBCC_200811") == 1 ) then
				if ( DBCC_200811[snomserveur] == nil ) then
					DBCC_200811[snomserveur] = {};
				end
				if ( DBCC_200811[snomserveur][sdate] == nil ) then
					DBCC_200811[snomserveur][sdate] = {};
				end
				if ( DBCC_200811[snomserveur][sdate][slead] == nil ) then
					DBCC_200811[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200811[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200811[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200811[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200811[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200811[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200810" ) then
--TraceFrame:AddMessage("mis ds 200810");
			if ( DBCS_loaded_addon("DBCC_200810") == 1 ) then
				if ( DBCC_200810[snomserveur] == nil ) then
					DBCC_200810[snomserveur] = {};
				end
				if ( DBCC_200810[snomserveur][sdate] == nil ) then
					DBCC_200810[snomserveur][sdate] = {};
				end
				if ( DBCC_200810[snomserveur][sdate][slead] == nil ) then
					DBCC_200810[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200810[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200810[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200810[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200810[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200810[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200809" ) then
--TraceFrame:AddMessage("mis ds 200809");
			if ( DBCS_loaded_addon("DBCC_200809") == 1 ) then
				if ( DBCC_200809[snomserveur] == nil ) then
					DBCC_200809[snomserveur] = {};
				end
				if ( DBCC_200809[snomserveur][sdate] == nil ) then
					DBCC_200809[snomserveur][sdate] = {};
				end
				if ( DBCC_200809[snomserveur][sdate][slead] == nil ) then
					DBCC_200809[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200809[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200809[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200809[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200809[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200809[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200808" ) then
--TraceFrame:AddMessage("mis ds 200808");
			if ( DBCS_loaded_addon("DBCC_200808") == 1 ) then
				if ( DBCC_200808[snomserveur] == nil ) then
					DBCC_200808[snomserveur] = {};
				end
				if ( DBCC_200808[snomserveur][sdate] == nil ) then
					DBCC_200808[snomserveur][sdate] = {};
				end
				if ( DBCC_200808[snomserveur][sdate][slead] == nil ) then
					DBCC_200808[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200808[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200808[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200808[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200808[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200808[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200807" ) then
--TraceFrame:AddMessage("mis ds 200807");
			if ( DBCS_loaded_addon("DBCC_200807") == 1 ) then
				if ( DBCC_200807[snomserveur] == nil ) then
					DBCC_200807[snomserveur] = {};
				end
				if ( DBCC_200807[snomserveur][sdate] == nil ) then
					DBCC_200807[snomserveur][sdate] = {};
				end
				if ( DBCC_200807[snomserveur][sdate][slead] == nil ) then
					DBCC_200807[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200807[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200807[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200807[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200807[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200807[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200806" ) then
--TraceFrame:AddMessage("mis ds 200806");
			if ( DBCS_loaded_addon("DBCC_200806") == 1 ) then
				if ( DBCC_200806[snomserveur] == nil ) then
					DBCC_200806[snomserveur] = {};
				end
				if ( DBCC_200806[snomserveur][sdate] == nil ) then
					DBCC_200806[snomserveur][sdate] = {};
				end
				if ( DBCC_200806[snomserveur][sdate][slead] == nil ) then
					DBCC_200806[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200806[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200806[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200806[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200806[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200806[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200805" ) then
--TraceFrame:AddMessage("mis ds 200805");
			if ( DBCS_loaded_addon("DBCC_200805") == 1 ) then
				if ( DBCC_200805[snomserveur] == nil ) then
					DBCC_200805[snomserveur] = {};
				end
				if ( DBCC_200805[snomserveur][sdate] == nil ) then
					DBCC_200805[snomserveur][sdate] = {};
				end
				if ( DBCC_200805[snomserveur][sdate][slead] == nil ) then
					DBCC_200805[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200805[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200805[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200805[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200805[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200805[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200804" ) then
--TraceFrame:AddMessage("mis ds 200804");
			if ( DBCS_loaded_addon("DBCC_200804") == 1 ) then
				if ( DBCC_200804[snomserveur] == nil ) then
					DBCC_200804[snomserveur] = {};
				end
				if ( DBCC_200804[snomserveur][sdate] == nil ) then
					DBCC_200804[snomserveur][sdate] = {};
				end
				if ( DBCC_200804[snomserveur][sdate][slead] == nil ) then
					DBCC_200804[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200804[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200804[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200804[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200804[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200804[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200803" ) then
--TraceFrame:AddMessage("mis ds 200803");
			if ( DBCS_loaded_addon("DBCC_200803") == 1 ) then
				if ( DBCC_200803[snomserveur] == nil ) then
					DBCC_200803[snomserveur] = {};
				end
				if ( DBCC_200803[snomserveur][sdate] == nil ) then
					DBCC_200803[snomserveur][sdate] = {};
				end
				if ( DBCC_200803[snomserveur][sdate][slead] == nil ) then
					DBCC_200803[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200803[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200803[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200803[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200803[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200803[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200802" ) then
--TraceFrame:AddMessage("mis ds 200802");
			if ( DBCS_loaded_addon("DBCC_200802") == 1 ) then
				if ( DBCC_200802[snomserveur] == nil ) then
					DBCC_200802[snomserveur] = {};
				end
				if ( DBCC_200802[snomserveur][sdate] == nil ) then
					DBCC_200802[snomserveur][sdate] = {};
				end
				if ( DBCC_200802[snomserveur][sdate][slead] == nil ) then
					DBCC_200802[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200802[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200802[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200802[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200802[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200802[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200801" ) then
--TraceFrame:AddMessage("mis ds 200801");
			if ( DBCS_loaded_addon("DBCC_200801") == 1 ) then
				if ( DBCC_200801[snomserveur] == nil ) then
					DBCC_200801[snomserveur] = {};
				end
				if ( DBCC_200801[snomserveur][sdate] == nil ) then
					DBCC_200801[snomserveur][sdate] = {};
				end
				if ( DBCC_200801[snomserveur][sdate][slead] == nil ) then
					DBCC_200801[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200801[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200801[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200801[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200801[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200801[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200712" ) then
--TraceFrame:AddMessage("mis ds 200712");
			if ( DBCS_loaded_addon("DBCC_200712") == 1 ) then
				if ( DBCC_200712[snomserveur] == nil ) then
					DBCC_200712[snomserveur] = {};
				end
				if ( DBCC_200712[snomserveur][sdate] == nil ) then
					DBCC_200712[snomserveur][sdate] = {};
				end
				if ( DBCC_200712[snomserveur][sdate][slead] == nil ) then
					DBCC_200712[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200712[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200712[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200712[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200712[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200712[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200711" ) then
--TraceFrame:AddMessage("mis ds 200711");
			if ( DBCS_loaded_addon("DBCC_200711") == 1 ) then
				if ( DBCC_200711[snomserveur] == nil ) then
					DBCC_200711[snomserveur] = {};
				end
				if ( DBCC_200711[snomserveur][sdate] == nil ) then
					DBCC_200711[snomserveur][sdate] = {};
				end
				if ( DBCC_200711[snomserveur][sdate][slead] == nil ) then
					DBCC_200711[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200711[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200711[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200711[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200711[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200711[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200710" ) then
--TraceFrame:AddMessage("mis ds 200710");
			if ( DBCS_loaded_addon("DBCC_200710") == 1 ) then
				if ( DBCC_200710[snomserveur] == nil ) then
					DBCC_200710[snomserveur] = {};
				end
				if ( DBCC_200710[snomserveur][sdate] == nil ) then
					DBCC_200710[snomserveur][sdate] = {};
				end
				if ( DBCC_200710[snomserveur][sdate][slead] == nil ) then
					DBCC_200710[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200710[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200710[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200710[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200710[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200710[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200709" ) then
--TraceFrame:AddMessage("mis ds 200709");
			if ( DBCS_loaded_addon("DBCC_200709") == 1 ) then
				if ( DBCC_200709[snomserveur] == nil ) then
					DBCC_200709[snomserveur] = {};
				end
				if ( DBCC_200709[snomserveur][sdate] == nil ) then
					DBCC_200709[snomserveur][sdate] = {};
				end
				if ( DBCC_200709[snomserveur][sdate][slead] == nil ) then
					DBCC_200709[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200709[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200709[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200709[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200709[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200709[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200708" ) then
--TraceFrame:AddMessage("mis ds 200708");
			if ( DBCS_loaded_addon("DBCC_200708") == 1 ) then
				if ( DBCC_200708[snomserveur] == nil ) then
					DBCC_200708[snomserveur] = {};
				end
				if ( DBCC_200708[snomserveur][sdate] == nil ) then
					DBCC_200708[snomserveur][sdate] = {};
				end
				if ( DBCC_200708[snomserveur][sdate][slead] == nil ) then
					DBCC_200708[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200708[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200708[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200708[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200708[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200708[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200707" ) then
--TraceFrame:AddMessage("mis ds 200707");
			if ( DBCS_loaded_addon("DBCC_200707") == 1 ) then
				if ( DBCC_200707[snomserveur] == nil ) then
					DBCC_200707[snomserveur] = {};
				end
				if ( DBCC_200707[snomserveur][sdate] == nil ) then
					DBCC_200707[snomserveur][sdate] = {};
				end
				if ( DBCC_200707[snomserveur][sdate][slead] == nil ) then
					DBCC_200707[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200707[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200707[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200707[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200707[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200707[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200706" ) then
--TraceFrame:AddMessage("mis ds 200706");
			if ( DBCS_loaded_addon("DBCC_200706") == 1 ) then
				if ( DBCC_200706[snomserveur] == nil ) then
					DBCC_200706[snomserveur] = {};
				end
				if ( DBCC_200706[snomserveur][sdate] == nil ) then
					DBCC_200706[snomserveur][sdate] = {};
				end
				if ( DBCC_200706[snomserveur][sdate][slead] == nil ) then
					DBCC_200706[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200706[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200706[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200706[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200706[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200706[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200705" ) then
--TraceFrame:AddMessage("mis ds 200705");
			if ( DBCS_loaded_addon("DBCC_200705") == 1 ) then
				if ( DBCC_200705[snomserveur] == nil ) then
					DBCC_200705[snomserveur] = {};
				end
				if ( DBCC_200705[snomserveur][sdate] == nil ) then
					DBCC_200705[snomserveur][sdate] = {};
				end
				if ( DBCC_200705[snomserveur][sdate][slead] == nil ) then
					DBCC_200705[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200705[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200705[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200705[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200705[snomserveur][sdate][slead][stime][-1] = "CA01";
				DBCC_200705[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		else
			if ( DBCC[snomserveur] == nil ) then
				DBCC[snomserveur] = {};
			end
			if ( DBCC[snomserveur][sdate] == nil ) then
				DBCC[snomserveur][sdate] = {};
			end
			if ( DBCC[snomserveur][sdate][slead] == nil ) then
				DBCC[snomserveur][sdate][slead] = {};
			end
			if ( DBCC[snomserveur][sdate][slead][stime] == nil ) then
				DBCC[snomserveur][sdate][slead][stime] = {};
			end
			DBCC[snomserveur][sdate][slead][stime][-2] = slangue;
			DBCC[snomserveur][sdate][slead][stime][-1] = "CA01";
			DBCC[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
		end
	end
	DBcorps_ajoutcorp(sdate,slead,stime,snomserveur,bcopie);

end

function DBcorps_ajoutcorp(sdate,slead,stime,nomserveur,bcopie)

local ideb,ifin;
local slangue;
local snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot;
local ibon;
local i;
local senreg;
local inumobjet,snumcourt2,inb;
local tablo;

local snomserveur;
local smois;
local bbcopie;

	if ( nomserveur ) then
		snomserveur = nomserveur;
	else
		snomserveur = DBCS_serveur;
	end
	if ( bcopie ) then
		bbcopie = bcopie;
	else
		bbcopie = 0;
	end

	tablo = nil;
	if ( DBCS_prog_serveur == 0 ) then
		if ( DBCC[snomserveur] ) then
			if ( DBCC[snomserveur][sdate] ) then
				if ( DBCC[snomserveur][sdate][slead] ) then
					if ( DBCC[snomserveur][sdate][slead][stime] ) then
						tablo = DBCC[snomserveur][sdate][slead][stime];
					end
				end
			end
		end
	else
		smois = strsub(sdate,1,6);
		if ( smois == "201305" ) then
			if ( DBCS_loaded_addon("DBCC_201305") == 1 ) then
				if ( DBCC_201305[snomserveur] ) then
					if ( DBCC_201305[snomserveur][sdate] ) then
						if ( DBCC_201305[snomserveur][sdate][slead] ) then
							if ( DBCC_201305[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201305[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201304" ) then
			if ( DBCS_loaded_addon("DBCC_201304") == 1 ) then
				if ( DBCC_201304[snomserveur] ) then
					if ( DBCC_201304[snomserveur][sdate] ) then
						if ( DBCC_201304[snomserveur][sdate][slead] ) then
							if ( DBCC_201304[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201304[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201303" ) then
			if ( DBCS_loaded_addon("DBCC_201303") == 1 ) then
				if ( DBCC_201303[snomserveur] ) then
					if ( DBCC_201303[snomserveur][sdate] ) then
						if ( DBCC_201303[snomserveur][sdate][slead] ) then
							if ( DBCC_201303[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201303[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201302" ) then
			if ( DBCS_loaded_addon("DBCC_201302") == 1 ) then
				if ( DBCC_201302[snomserveur] ) then
					if ( DBCC_201302[snomserveur][sdate] ) then
						if ( DBCC_201302[snomserveur][sdate][slead] ) then
							if ( DBCC_201302[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201302[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201301" ) then
			if ( DBCS_loaded_addon("DBCC_201301") == 1 ) then
				if ( DBCC_201301[snomserveur] ) then
					if ( DBCC_201301[snomserveur][sdate] ) then
						if ( DBCC_201301[snomserveur][sdate][slead] ) then
							if ( DBCC_201301[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201301[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201212" ) then
			if ( DBCS_loaded_addon("DBCC_201212") == 1 ) then
				if ( DBCC_201212[snomserveur] ) then
					if ( DBCC_201212[snomserveur][sdate] ) then
						if ( DBCC_201212[snomserveur][sdate][slead] ) then
							if ( DBCC_201212[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201212[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201211" ) then
			if ( DBCS_loaded_addon("DBCC_201211") == 1 ) then
				if ( DBCC_201211[snomserveur] ) then
					if ( DBCC_201211[snomserveur][sdate] ) then
						if ( DBCC_201211[snomserveur][sdate][slead] ) then
							if ( DBCC_201211[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201211[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201210" ) then
			if ( DBCS_loaded_addon("DBCC_201210") == 1 ) then
				if ( DBCC_201210[snomserveur] ) then
					if ( DBCC_201210[snomserveur][sdate] ) then
						if ( DBCC_201210[snomserveur][sdate][slead] ) then
							if ( DBCC_201210[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201210[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201209" ) then
			if ( DBCS_loaded_addon("DBCC_201209") == 1 ) then
				if ( DBCC_201209[snomserveur] ) then
					if ( DBCC_201209[snomserveur][sdate] ) then
						if ( DBCC_201209[snomserveur][sdate][slead] ) then
							if ( DBCC_201209[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201209[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201208" ) then
			if ( DBCS_loaded_addon("DBCC_201208") == 1 ) then
				if ( DBCC_201208[snomserveur] ) then
					if ( DBCC_201208[snomserveur][sdate] ) then
						if ( DBCC_201208[snomserveur][sdate][slead] ) then
							if ( DBCC_201208[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201208[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201207" ) then
			if ( DBCS_loaded_addon("DBCC_201207") == 1 ) then
				if ( DBCC_201207[snomserveur] ) then
					if ( DBCC_201207[snomserveur][sdate] ) then
						if ( DBCC_201207[snomserveur][sdate][slead] ) then
							if ( DBCC_201207[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201207[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201206" ) then
			if ( DBCS_loaded_addon("DBCC_201206") == 1 ) then
				if ( DBCC_201206[snomserveur] ) then
					if ( DBCC_201206[snomserveur][sdate] ) then
						if ( DBCC_201206[snomserveur][sdate][slead] ) then
							if ( DBCC_201206[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201206[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201205" ) then
			if ( DBCS_loaded_addon("DBCC_201205") == 1 ) then
				if ( DBCC_201205[snomserveur] ) then
					if ( DBCC_201205[snomserveur][sdate] ) then
						if ( DBCC_201205[snomserveur][sdate][slead] ) then
							if ( DBCC_201205[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201205[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201204" ) then
			if ( DBCS_loaded_addon("DBCC_201204") == 1 ) then
				if ( DBCC_201204[snomserveur] ) then
					if ( DBCC_201204[snomserveur][sdate] ) then
						if ( DBCC_201204[snomserveur][sdate][slead] ) then
							if ( DBCC_201204[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201204[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201203" ) then
			if ( DBCS_loaded_addon("DBCC_201203") == 1 ) then
				if ( DBCC_201203[snomserveur] ) then
					if ( DBCC_201203[snomserveur][sdate] ) then
						if ( DBCC_201203[snomserveur][sdate][slead] ) then
							if ( DBCC_201203[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201203[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201202" ) then
			if ( DBCS_loaded_addon("DBCC_201202") == 1 ) then
				if ( DBCC_201202[snomserveur] ) then
					if ( DBCC_201202[snomserveur][sdate] ) then
						if ( DBCC_201202[snomserveur][sdate][slead] ) then
							if ( DBCC_201202[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201202[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201201" ) then
			if ( DBCS_loaded_addon("DBCC_201201") == 1 ) then
				if ( DBCC_201201[snomserveur] ) then
					if ( DBCC_201201[snomserveur][sdate] ) then
						if ( DBCC_201201[snomserveur][sdate][slead] ) then
							if ( DBCC_201201[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201201[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201112" ) then
			if ( DBCS_loaded_addon("DBCC_201112") == 1 ) then
				if ( DBCC_201112[snomserveur] ) then
					if ( DBCC_201112[snomserveur][sdate] ) then
						if ( DBCC_201112[snomserveur][sdate][slead] ) then
							if ( DBCC_201112[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201112[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201111" ) then
			if ( DBCS_loaded_addon("DBCC_201111") == 1 ) then
				if ( DBCC_201111[snomserveur] ) then
					if ( DBCC_201111[snomserveur][sdate] ) then
						if ( DBCC_201111[snomserveur][sdate][slead] ) then
							if ( DBCC_201111[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201111[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201110" ) then
			if ( DBCS_loaded_addon("DBCC_201110") == 1 ) then
				if ( DBCC_201110[snomserveur] ) then
					if ( DBCC_201110[snomserveur][sdate] ) then
						if ( DBCC_201110[snomserveur][sdate][slead] ) then
							if ( DBCC_201110[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201110[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201109" ) then
			if ( DBCS_loaded_addon("DBCC_201109") == 1 ) then
				if ( DBCC_201109[snomserveur] ) then
					if ( DBCC_201109[snomserveur][sdate] ) then
						if ( DBCC_201109[snomserveur][sdate][slead] ) then
							if ( DBCC_201109[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201109[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201108" ) then
			if ( DBCS_loaded_addon("DBCC_201108") == 1 ) then
				if ( DBCC_201108[snomserveur] ) then
					if ( DBCC_201108[snomserveur][sdate] ) then
						if ( DBCC_201108[snomserveur][sdate][slead] ) then
							if ( DBCC_201108[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201108[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201107" ) then
			if ( DBCS_loaded_addon("DBCC_201107") == 1 ) then
				if ( DBCC_201107[snomserveur] ) then
					if ( DBCC_201107[snomserveur][sdate] ) then
						if ( DBCC_201107[snomserveur][sdate][slead] ) then
							if ( DBCC_201107[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201107[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201106" ) then
			if ( DBCS_loaded_addon("DBCC_201106") == 1 ) then
				if ( DBCC_201106[snomserveur] ) then
					if ( DBCC_201106[snomserveur][sdate] ) then
						if ( DBCC_201106[snomserveur][sdate][slead] ) then
							if ( DBCC_201106[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201106[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201105" ) then
			if ( DBCS_loaded_addon("DBCC_201105") == 1 ) then
				if ( DBCC_201105[snomserveur] ) then
					if ( DBCC_201105[snomserveur][sdate] ) then
						if ( DBCC_201105[snomserveur][sdate][slead] ) then
							if ( DBCC_201105[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201105[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201104" ) then
			if ( DBCS_loaded_addon("DBCC_201104") == 1 ) then
				if ( DBCC_201104[snomserveur] ) then
					if ( DBCC_201104[snomserveur][sdate] ) then
						if ( DBCC_201104[snomserveur][sdate][slead] ) then
							if ( DBCC_201104[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201104[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201103" ) then
			if ( DBCS_loaded_addon("DBCC_201103") == 1 ) then
				if ( DBCC_201103[snomserveur] ) then
					if ( DBCC_201103[snomserveur][sdate] ) then
						if ( DBCC_201103[snomserveur][sdate][slead] ) then
							if ( DBCC_201103[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201103[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201102" ) then
			if ( DBCS_loaded_addon("DBCC_201102") == 1 ) then
				if ( DBCC_201102[snomserveur] ) then
					if ( DBCC_201102[snomserveur][sdate] ) then
						if ( DBCC_201102[snomserveur][sdate][slead] ) then
							if ( DBCC_201102[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201102[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201101" ) then
			if ( DBCS_loaded_addon("DBCC_201101") == 1 ) then
				if ( DBCC_201101[snomserveur] ) then
					if ( DBCC_201101[snomserveur][sdate] ) then
						if ( DBCC_201101[snomserveur][sdate][slead] ) then
							if ( DBCC_201101[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201101[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201012" ) then
			if ( DBCS_loaded_addon("DBCC_201012") == 1 ) then
				if ( DBCC_201012[snomserveur] ) then
					if ( DBCC_201012[snomserveur][sdate] ) then
						if ( DBCC_201012[snomserveur][sdate][slead] ) then
							if ( DBCC_201012[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201012[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201011" ) then
			if ( DBCS_loaded_addon("DBCC_201011") == 1 ) then
				if ( DBCC_201011[snomserveur] ) then
					if ( DBCC_201011[snomserveur][sdate] ) then
						if ( DBCC_201011[snomserveur][sdate][slead] ) then
							if ( DBCC_201011[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201011[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201010" ) then
			if ( DBCS_loaded_addon("DBCC_201010") == 1 ) then
				if ( DBCC_201010[snomserveur] ) then
					if ( DBCC_201010[snomserveur][sdate] ) then
						if ( DBCC_201010[snomserveur][sdate][slead] ) then
							if ( DBCC_201010[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201010[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201009" ) then
			if ( DBCS_loaded_addon("DBCC_201009") == 1 ) then
				if ( DBCC_201009[snomserveur] ) then
					if ( DBCC_201009[snomserveur][sdate] ) then
						if ( DBCC_201009[snomserveur][sdate][slead] ) then
							if ( DBCC_201009[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201009[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201008" ) then
			if ( DBCS_loaded_addon("DBCC_201008") == 1 ) then
				if ( DBCC_201008[snomserveur] ) then
					if ( DBCC_201008[snomserveur][sdate] ) then
						if ( DBCC_201008[snomserveur][sdate][slead] ) then
							if ( DBCC_201008[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201008[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201007" ) then
			if ( DBCS_loaded_addon("DBCC_201007") == 1 ) then
				if ( DBCC_201007[snomserveur] ) then
					if ( DBCC_201007[snomserveur][sdate] ) then
						if ( DBCC_201007[snomserveur][sdate][slead] ) then
							if ( DBCC_201007[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201007[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201006" ) then
			if ( DBCS_loaded_addon("DBCC_201006") == 1 ) then
				if ( DBCC_201006[snomserveur] ) then
					if ( DBCC_201006[snomserveur][sdate] ) then
						if ( DBCC_201006[snomserveur][sdate][slead] ) then
							if ( DBCC_201006[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201006[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201005" ) then
			if ( DBCS_loaded_addon("DBCC_201005") == 1 ) then
				if ( DBCC_201005[snomserveur] ) then
					if ( DBCC_201005[snomserveur][sdate] ) then
						if ( DBCC_201005[snomserveur][sdate][slead] ) then
							if ( DBCC_201005[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201005[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201004" ) then
			if ( DBCS_loaded_addon("DBCC_201004") == 1 ) then
				if ( DBCC_201004[snomserveur] ) then
					if ( DBCC_201004[snomserveur][sdate] ) then
						if ( DBCC_201004[snomserveur][sdate][slead] ) then
							if ( DBCC_201004[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201004[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201003" ) then
			if ( DBCS_loaded_addon("DBCC_201003") == 1 ) then
				if ( DBCC_201003[snomserveur] ) then
					if ( DBCC_201003[snomserveur][sdate] ) then
						if ( DBCC_201003[snomserveur][sdate][slead] ) then
							if ( DBCC_201003[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201003[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201002" ) then
			if ( DBCS_loaded_addon("DBCC_201002") == 1 ) then
				if ( DBCC_201002[snomserveur] ) then
					if ( DBCC_201002[snomserveur][sdate] ) then
						if ( DBCC_201002[snomserveur][sdate][slead] ) then
							if ( DBCC_201002[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201002[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201001" ) then
			if ( DBCS_loaded_addon("DBCC_201001") == 1 ) then
				if ( DBCC_201001[snomserveur] ) then
					if ( DBCC_201001[snomserveur][sdate] ) then
						if ( DBCC_201001[snomserveur][sdate][slead] ) then
							if ( DBCC_201001[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201001[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200912" ) then
			if ( DBCS_loaded_addon("DBCC_200912") == 1 ) then
				if ( DBCC_200912[snomserveur] ) then
					if ( DBCC_200912[snomserveur][sdate] ) then
						if ( DBCC_200912[snomserveur][sdate][slead] ) then
							if ( DBCC_200912[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200912[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200911" ) then
			if ( DBCS_loaded_addon("DBCC_200911") == 1 ) then
				if ( DBCC_200911[snomserveur] ) then
					if ( DBCC_200911[snomserveur][sdate] ) then
						if ( DBCC_200911[snomserveur][sdate][slead] ) then
							if ( DBCC_200911[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200911[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200910" ) then
			if ( DBCS_loaded_addon("DBCC_200910") == 1 ) then
				if ( DBCC_200910[snomserveur] ) then
					if ( DBCC_200910[snomserveur][sdate] ) then
						if ( DBCC_200910[snomserveur][sdate][slead] ) then
							if ( DBCC_200910[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200910[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200909" ) then
			if ( DBCS_loaded_addon("DBCC_200909") == 1 ) then
				if ( DBCC_200909[snomserveur] ) then
					if ( DBCC_200909[snomserveur][sdate] ) then
						if ( DBCC_200909[snomserveur][sdate][slead] ) then
							if ( DBCC_200909[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200909[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200908" ) then
			if ( DBCS_loaded_addon("DBCC_200908") == 1 ) then
				if ( DBCC_200908[snomserveur] ) then
					if ( DBCC_200908[snomserveur][sdate] ) then
						if ( DBCC_200908[snomserveur][sdate][slead] ) then
							if ( DBCC_200908[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200908[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200907" ) then
			if ( DBCS_loaded_addon("DBCC_200907") == 1 ) then
				if ( DBCC_200907[snomserveur] ) then
					if ( DBCC_200907[snomserveur][sdate] ) then
						if ( DBCC_200907[snomserveur][sdate][slead] ) then
							if ( DBCC_200907[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200907[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200906" ) then
			if ( DBCS_loaded_addon("DBCC_200906") == 1 ) then
				if ( DBCC_200906[snomserveur] ) then
					if ( DBCC_200906[snomserveur][sdate] ) then
						if ( DBCC_200906[snomserveur][sdate][slead] ) then
							if ( DBCC_200906[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200906[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200905" ) then
			if ( DBCS_loaded_addon("DBCC_200905") == 1 ) then
				if ( DBCC_200905[snomserveur] ) then
					if ( DBCC_200905[snomserveur][sdate] ) then
						if ( DBCC_200905[snomserveur][sdate][slead] ) then
							if ( DBCC_200905[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200905[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200904" ) then
			if ( DBCS_loaded_addon("DBCC_200904") == 1 ) then
				if ( DBCC_200904[snomserveur] ) then
					if ( DBCC_200904[snomserveur][sdate] ) then
						if ( DBCC_200904[snomserveur][sdate][slead] ) then
							if ( DBCC_200904[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200904[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200903" ) then
			if ( DBCS_loaded_addon("DBCC_200903") == 1 ) then
				if ( DBCC_200903[snomserveur] ) then
					if ( DBCC_200903[snomserveur][sdate] ) then
						if ( DBCC_200903[snomserveur][sdate][slead] ) then
							if ( DBCC_200903[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200903[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200902" ) then
			if ( DBCS_loaded_addon("DBCC_200902") == 1 ) then
				if ( DBCC_200902[snomserveur] ) then
					if ( DBCC_200902[snomserveur][sdate] ) then
						if ( DBCC_200902[snomserveur][sdate][slead] ) then
							if ( DBCC_200902[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200902[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200901" ) then
			if ( DBCS_loaded_addon("DBCC_200901") == 1 ) then
				if ( DBCC_200901[snomserveur] ) then
					if ( DBCC_200901[snomserveur][sdate] ) then
						if ( DBCC_200901[snomserveur][sdate][slead] ) then
							if ( DBCC_200901[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200901[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200812" ) then
			if ( DBCS_loaded_addon("DBCC_200812") == 1 ) then
				if ( DBCC_200812[snomserveur] ) then
					if ( DBCC_200812[snomserveur][sdate] ) then
						if ( DBCC_200812[snomserveur][sdate][slead] ) then
							if ( DBCC_200812[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200812[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200811" ) then
			if ( DBCS_loaded_addon("DBCC_200811") == 1 ) then
				if ( DBCC_200811[snomserveur] ) then
					if ( DBCC_200811[snomserveur][sdate] ) then
						if ( DBCC_200811[snomserveur][sdate][slead] ) then
							if ( DBCC_200811[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200811[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200810" ) then
			if ( DBCS_loaded_addon("DBCC_200810") == 1 ) then
				if ( DBCC_200810[snomserveur] ) then
					if ( DBCC_200810[snomserveur][sdate] ) then
						if ( DBCC_200810[snomserveur][sdate][slead] ) then
							if ( DBCC_200810[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200810[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200809" ) then
			if ( DBCS_loaded_addon("DBCC_200809") == 1 ) then
				if ( DBCC_200809[snomserveur] ) then
					if ( DBCC_200809[snomserveur][sdate] ) then
						if ( DBCC_200809[snomserveur][sdate][slead] ) then
							if ( DBCC_200809[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200809[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200808" ) then
			if ( DBCS_loaded_addon("DBCC_200808") == 1 ) then
				if ( DBCC_200808[snomserveur] ) then
					if ( DBCC_200808[snomserveur][sdate] ) then
						if ( DBCC_200808[snomserveur][sdate][slead] ) then
							if ( DBCC_200808[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200808[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200807" ) then
			if ( DBCS_loaded_addon("DBCC_200807") == 1 ) then
				if ( DBCC_200807[snomserveur] ) then
					if ( DBCC_200807[snomserveur][sdate] ) then
						if ( DBCC_200807[snomserveur][sdate][slead] ) then
							if ( DBCC_200807[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200807[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200806" ) then
			if ( DBCS_loaded_addon("DBCC_200806") == 1 ) then
				if ( DBCC_200806[snomserveur] ) then
					if ( DBCC_200806[snomserveur][sdate] ) then
						if ( DBCC_200806[snomserveur][sdate][slead] ) then
							if ( DBCC_200806[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200806[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200805" ) then
			if ( DBCS_loaded_addon("DBCC_200805") == 1 ) then
				if ( DBCC_200805[snomserveur] ) then
					if ( DBCC_200805[snomserveur][sdate] ) then
						if ( DBCC_200805[snomserveur][sdate][slead] ) then
							if ( DBCC_200805[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200805[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200804" ) then
			if ( DBCS_loaded_addon("DBCC_200804") == 1 ) then
				if ( DBCC_200804[snomserveur] ) then
					if ( DBCC_200804[snomserveur][sdate] ) then
						if ( DBCC_200804[snomserveur][sdate][slead] ) then
							if ( DBCC_200804[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200804[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200803" ) then
			if ( DBCS_loaded_addon("DBCC_200803") == 1 ) then
				if ( DBCC_200803[snomserveur] ) then
					if ( DBCC_200803[snomserveur][sdate] ) then
						if ( DBCC_200803[snomserveur][sdate][slead] ) then
							if ( DBCC_200803[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200803[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200802" ) then
			if ( DBCS_loaded_addon("DBCC_200802") == 1 ) then
				if ( DBCC_200802[snomserveur] ) then
					if ( DBCC_200802[snomserveur][sdate] ) then
						if ( DBCC_200802[snomserveur][sdate][slead] ) then
							if ( DBCC_200802[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200802[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200801" ) then
			if ( DBCS_loaded_addon("DBCC_200801") == 1 ) then
				if ( DBCC_200801[snomserveur] ) then
					if ( DBCC_200801[snomserveur][sdate] ) then
						if ( DBCC_200801[snomserveur][sdate][slead] ) then
							if ( DBCC_200801[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200801[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200712" ) then
			if ( DBCS_loaded_addon("DBCC_200712") == 1 ) then
				if ( DBCC_200712[snomserveur] ) then
					if ( DBCC_200712[snomserveur][sdate] ) then
						if ( DBCC_200712[snomserveur][sdate][slead] ) then
							if ( DBCC_200712[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200712[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200711" ) then
			if ( DBCS_loaded_addon("DBCC_200711") == 1 ) then
				if ( DBCC_200711[snomserveur] ) then
					if ( DBCC_200711[snomserveur][sdate] ) then
						if ( DBCC_200711[snomserveur][sdate][slead] ) then
							if ( DBCC_200711[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200711[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200710" ) then
			if ( DBCS_loaded_addon("DBCC_200710") == 1 ) then
				if ( DBCC_200710[snomserveur] ) then
					if ( DBCC_200710[snomserveur][sdate] ) then
						if ( DBCC_200710[snomserveur][sdate][slead] ) then
							if ( DBCC_200710[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200710[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200709" ) then
			if ( DBCS_loaded_addon("DBCC_200709") == 1 ) then
				if ( DBCC_200709[snomserveur] ) then
					if ( DBCC_200709[snomserveur][sdate] ) then
						if ( DBCC_200709[snomserveur][sdate][slead] ) then
							if ( DBCC_200709[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200709[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200708" ) then
			if ( DBCS_loaded_addon("DBCC_200708") == 1 ) then
				if ( DBCC_200708[snomserveur] ) then
					if ( DBCC_200708[snomserveur][sdate] ) then
						if ( DBCC_200708[snomserveur][sdate][slead] ) then
							if ( DBCC_200708[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200708[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200707" ) then
			if ( DBCS_loaded_addon("DBCC_200707") == 1 ) then
				if ( DBCC_200707[snomserveur] ) then
					if ( DBCC_200707[snomserveur][sdate] ) then
						if ( DBCC_200707[snomserveur][sdate][slead] ) then
							if ( DBCC_200707[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200707[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200706" ) then
			if ( DBCS_loaded_addon("DBCC_200706") == 1 ) then
				if ( DBCC_200706[snomserveur] ) then
					if ( DBCC_200706[snomserveur][sdate] ) then
						if ( DBCC_200706[snomserveur][sdate][slead] ) then
							if ( DBCC_200706[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200706[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200705" ) then
			if ( DBCS_loaded_addon("DBCC_200705") == 1 ) then
				if ( DBCC_200705[snomserveur] ) then
					if ( DBCC_200705[snomserveur][sdate] ) then
						if ( DBCC_200705[snomserveur][sdate][slead] ) then
							if ( DBCC_200705[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200705[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		else
			if ( DBCC[snomserveur] ) then
				if ( DBCC[snomserveur][sdate] ) then
					if ( DBCC[snomserveur][sdate][slead] ) then
						if ( DBCC[snomserveur][sdate][slead][stime] ) then
							tablo = DBCC[snomserveur][sdate][slead][stime];
						end
					end
				end
			end
		end
	end

	if ( tablo and tablo[0] ) then
		slangue = tablo[-2] or "frFR";
		senreg = tablo[0];
		ifin = 0;
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		snommob = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		snumregion = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		ix = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		iy = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		iniv = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		sclasse = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		sfamille = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		stype = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		splusmob = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		inbcorp = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		inbskin = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		inbloot = tonumber(strsub(senreg,ideb,ifin-1));
		ibon = 1;
		for i = 1,inbloot do
			if ( tablo[i] == nil ) then
				ibon = 0;
			end
		end
		if ( ibon == 1 ) then
			if ( DBCS_ajout_enreg(snomserveur,sdate,slead,stime) == 1 ) then
				if ( snumregion == "000" ) then
					snumregion = DBmobs_region000(snommob,snumregion,iniv,sclasse,sfamille,stype,splusmob);
				end
				DBmobs_ajoutmob(snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin);
				for i = 1,inbloot do
					senreg = tablo[i];
					ifin = 0;
					ideb = ifin+1;
					ifin = strfind(senreg,"@",ideb);
					inumobjet = tonumber(strsub(senreg,ideb,ifin-1));
					ideb = ifin+1;
					ifin = strfind(senreg,"@",ideb);
					snumcourt2 = strsub(senreg,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(senreg,"@",ideb);
					inb = tonumber(strsub(senreg,ideb,ifin-1));
					DBmobs_ajoutloot(snommob,snumregion,inumobjet,snumcourt2,inb);
				end
if ( DBCS_debug > 1 and bbcopie == 0 ) then	--	and bmob == 1 
TraceFrame:AddMessage("cet enreg existe pas ds la base : "..snomserveur.." - "..sdate.." - "..slead.." - "..stime);
end
				-- envoyer la suppression de cet enreg ds les bases de sauvegarde des autres
				--if ( DBCS_prog_serveur == 1 and DBcorps_recupenreg_ON and bbcopie == 0 ) then
				--	if ( DBCS_CMS_numcanalCMS > 0 ) then
				--		smessage = "@ADBCS@"..slangue.."@CS01@";	-- suppression du corp ds la sauvegarde
				--		smessage = smessage..snomserveur.."@"..sdate.."@"..slead.."@"..stime.."@";
				--		-- je n'envoi plus de demande de suppression d'enreg
				--		--DBCS_SendChatMessage(smessage,"CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
				--	end
				--end
			else
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("cet enreg existe.");
--end
			end
		end
	end

end

function DBcorps_ajoutloot2(sdate,slead,stime,inumloot,inumobjet,snumcourt2,inb,nomserveur,bcopie)

local snomserveur;
local smois;

	if ( nomserveur ) then
		snomserveur = nomserveur;
	else
		snomserveur = DBCS_serveur;
	end

	if ( DBCS_prog_serveur == 0 ) then
		if ( DBCC[snomserveur] == nil ) then
			DBCC[snomserveur] = {};
		end
		if ( DBCC[snomserveur][sdate] == nil ) then
			DBCC[snomserveur][sdate] = {};
		end
		if ( DBCC[snomserveur][sdate][slead] == nil ) then
			DBCC[snomserveur][sdate][slead] = {};
		end
		if ( DBCC[snomserveur][sdate][slead][stime] == nil ) then
			DBCC[snomserveur][sdate][slead][stime] = {};
		end
		DBCC[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
	else
		smois = strsub(sdate,1,6);
		if ( smois == "201305" ) then
			if ( DBCS_loaded_addon("DBCC_201305") == 1 ) then
				if ( DBCC_201305[snomserveur] == nil ) then
					DBCC_201305[snomserveur] = {};
				end
				if ( DBCC_201305[snomserveur][sdate] == nil ) then
					DBCC_201305[snomserveur][sdate] = {};
				end
				if ( DBCC_201305[snomserveur][sdate][slead] == nil ) then
					DBCC_201305[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201305[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201305[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201305[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201304" ) then
			if ( DBCS_loaded_addon("DBCC_201304") == 1 ) then
				if ( DBCC_201304[snomserveur] == nil ) then
					DBCC_201304[snomserveur] = {};
				end
				if ( DBCC_201304[snomserveur][sdate] == nil ) then
					DBCC_201304[snomserveur][sdate] = {};
				end
				if ( DBCC_201304[snomserveur][sdate][slead] == nil ) then
					DBCC_201304[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201304[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201304[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201304[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201303" ) then
			if ( DBCS_loaded_addon("DBCC_201303") == 1 ) then
				if ( DBCC_201303[snomserveur] == nil ) then
					DBCC_201303[snomserveur] = {};
				end
				if ( DBCC_201303[snomserveur][sdate] == nil ) then
					DBCC_201303[snomserveur][sdate] = {};
				end
				if ( DBCC_201303[snomserveur][sdate][slead] == nil ) then
					DBCC_201303[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201303[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201303[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201303[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201302" ) then
			if ( DBCS_loaded_addon("DBCC_201302") == 1 ) then
				if ( DBCC_201302[snomserveur] == nil ) then
					DBCC_201302[snomserveur] = {};
				end
				if ( DBCC_201302[snomserveur][sdate] == nil ) then
					DBCC_201302[snomserveur][sdate] = {};
				end
				if ( DBCC_201302[snomserveur][sdate][slead] == nil ) then
					DBCC_201302[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201302[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201302[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201302[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201301" ) then
			if ( DBCS_loaded_addon("DBCC_201301") == 1 ) then
				if ( DBCC_201301[snomserveur] == nil ) then
					DBCC_201301[snomserveur] = {};
				end
				if ( DBCC_201301[snomserveur][sdate] == nil ) then
					DBCC_201301[snomserveur][sdate] = {};
				end
				if ( DBCC_201301[snomserveur][sdate][slead] == nil ) then
					DBCC_201301[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201301[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201301[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201301[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201212" ) then
			if ( DBCS_loaded_addon("DBCC_201212") == 1 ) then
				if ( DBCC_201212[snomserveur] == nil ) then
					DBCC_201212[snomserveur] = {};
				end
				if ( DBCC_201212[snomserveur][sdate] == nil ) then
					DBCC_201212[snomserveur][sdate] = {};
				end
				if ( DBCC_201212[snomserveur][sdate][slead] == nil ) then
					DBCC_201212[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201212[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201212[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201212[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201211" ) then
			if ( DBCS_loaded_addon("DBCC_201211") == 1 ) then
				if ( DBCC_201211[snomserveur] == nil ) then
					DBCC_201211[snomserveur] = {};
				end
				if ( DBCC_201211[snomserveur][sdate] == nil ) then
					DBCC_201211[snomserveur][sdate] = {};
				end
				if ( DBCC_201211[snomserveur][sdate][slead] == nil ) then
					DBCC_201211[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201211[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201211[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201211[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201210" ) then
			if ( DBCS_loaded_addon("DBCC_201210") == 1 ) then
				if ( DBCC_201210[snomserveur] == nil ) then
					DBCC_201210[snomserveur] = {};
				end
				if ( DBCC_201210[snomserveur][sdate] == nil ) then
					DBCC_201210[snomserveur][sdate] = {};
				end
				if ( DBCC_201210[snomserveur][sdate][slead] == nil ) then
					DBCC_201210[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201210[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201210[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201210[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201209" ) then
			if ( DBCS_loaded_addon("DBCC_201209") == 1 ) then
				if ( DBCC_201209[snomserveur] == nil ) then
					DBCC_201209[snomserveur] = {};
				end
				if ( DBCC_201209[snomserveur][sdate] == nil ) then
					DBCC_201209[snomserveur][sdate] = {};
				end
				if ( DBCC_201209[snomserveur][sdate][slead] == nil ) then
					DBCC_201209[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201209[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201209[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201209[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201208" ) then
			if ( DBCS_loaded_addon("DBCC_201208") == 1 ) then
				if ( DBCC_201208[snomserveur] == nil ) then
					DBCC_201208[snomserveur] = {};
				end
				if ( DBCC_201208[snomserveur][sdate] == nil ) then
					DBCC_201208[snomserveur][sdate] = {};
				end
				if ( DBCC_201208[snomserveur][sdate][slead] == nil ) then
					DBCC_201208[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201208[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201208[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201208[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201207" ) then
			if ( DBCS_loaded_addon("DBCC_201207") == 1 ) then
				if ( DBCC_201207[snomserveur] == nil ) then
					DBCC_201207[snomserveur] = {};
				end
				if ( DBCC_201207[snomserveur][sdate] == nil ) then
					DBCC_201207[snomserveur][sdate] = {};
				end
				if ( DBCC_201207[snomserveur][sdate][slead] == nil ) then
					DBCC_201207[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201207[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201207[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201207[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201206" ) then
			if ( DBCS_loaded_addon("DBCC_201206") == 1 ) then
				if ( DBCC_201206[snomserveur] == nil ) then
					DBCC_201206[snomserveur] = {};
				end
				if ( DBCC_201206[snomserveur][sdate] == nil ) then
					DBCC_201206[snomserveur][sdate] = {};
				end
				if ( DBCC_201206[snomserveur][sdate][slead] == nil ) then
					DBCC_201206[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201206[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201206[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201206[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201205" ) then
			if ( DBCS_loaded_addon("DBCC_201205") == 1 ) then
				if ( DBCC_201205[snomserveur] == nil ) then
					DBCC_201205[snomserveur] = {};
				end
				if ( DBCC_201205[snomserveur][sdate] == nil ) then
					DBCC_201205[snomserveur][sdate] = {};
				end
				if ( DBCC_201205[snomserveur][sdate][slead] == nil ) then
					DBCC_201205[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201205[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201205[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201205[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201204" ) then
			if ( DBCS_loaded_addon("DBCC_201204") == 1 ) then
				if ( DBCC_201204[snomserveur] == nil ) then
					DBCC_201204[snomserveur] = {};
				end
				if ( DBCC_201204[snomserveur][sdate] == nil ) then
					DBCC_201204[snomserveur][sdate] = {};
				end
				if ( DBCC_201204[snomserveur][sdate][slead] == nil ) then
					DBCC_201204[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201204[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201204[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201204[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201203" ) then
			if ( DBCS_loaded_addon("DBCC_201203") == 1 ) then
				if ( DBCC_201203[snomserveur] == nil ) then
					DBCC_201203[snomserveur] = {};
				end
				if ( DBCC_201203[snomserveur][sdate] == nil ) then
					DBCC_201203[snomserveur][sdate] = {};
				end
				if ( DBCC_201203[snomserveur][sdate][slead] == nil ) then
					DBCC_201203[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201203[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201203[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201203[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201202" ) then
			if ( DBCS_loaded_addon("DBCC_201202") == 1 ) then
				if ( DBCC_201202[snomserveur] == nil ) then
					DBCC_201202[snomserveur] = {};
				end
				if ( DBCC_201202[snomserveur][sdate] == nil ) then
					DBCC_201202[snomserveur][sdate] = {};
				end
				if ( DBCC_201202[snomserveur][sdate][slead] == nil ) then
					DBCC_201202[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201202[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201202[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201202[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201201" ) then
			if ( DBCS_loaded_addon("DBCC_201201") == 1 ) then
				if ( DBCC_201201[snomserveur] == nil ) then
					DBCC_201201[snomserveur] = {};
				end
				if ( DBCC_201201[snomserveur][sdate] == nil ) then
					DBCC_201201[snomserveur][sdate] = {};
				end
				if ( DBCC_201201[snomserveur][sdate][slead] == nil ) then
					DBCC_201201[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201201[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201201[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201201[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201112" ) then
			if ( DBCS_loaded_addon("DBCC_201112") == 1 ) then
				if ( DBCC_201112[snomserveur] == nil ) then
					DBCC_201112[snomserveur] = {};
				end
				if ( DBCC_201112[snomserveur][sdate] == nil ) then
					DBCC_201112[snomserveur][sdate] = {};
				end
				if ( DBCC_201112[snomserveur][sdate][slead] == nil ) then
					DBCC_201112[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201112[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201112[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201112[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201111" ) then
			if ( DBCS_loaded_addon("DBCC_201111") == 1 ) then
				if ( DBCC_201111[snomserveur] == nil ) then
					DBCC_201111[snomserveur] = {};
				end
				if ( DBCC_201111[snomserveur][sdate] == nil ) then
					DBCC_201111[snomserveur][sdate] = {};
				end
				if ( DBCC_201111[snomserveur][sdate][slead] == nil ) then
					DBCC_201111[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201111[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201111[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201111[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201110" ) then
			if ( DBCS_loaded_addon("DBCC_201110") == 1 ) then
				if ( DBCC_201110[snomserveur] == nil ) then
					DBCC_201110[snomserveur] = {};
				end
				if ( DBCC_201110[snomserveur][sdate] == nil ) then
					DBCC_201110[snomserveur][sdate] = {};
				end
				if ( DBCC_201110[snomserveur][sdate][slead] == nil ) then
					DBCC_201110[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201110[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201110[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201110[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201109" ) then
			if ( DBCS_loaded_addon("DBCC_201109") == 1 ) then
				if ( DBCC_201109[snomserveur] == nil ) then
					DBCC_201109[snomserveur] = {};
				end
				if ( DBCC_201109[snomserveur][sdate] == nil ) then
					DBCC_201109[snomserveur][sdate] = {};
				end
				if ( DBCC_201109[snomserveur][sdate][slead] == nil ) then
					DBCC_201109[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201109[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201109[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201109[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201108" ) then
			if ( DBCS_loaded_addon("DBCC_201108") == 1 ) then
				if ( DBCC_201108[snomserveur] == nil ) then
					DBCC_201108[snomserveur] = {};
				end
				if ( DBCC_201108[snomserveur][sdate] == nil ) then
					DBCC_201108[snomserveur][sdate] = {};
				end
				if ( DBCC_201108[snomserveur][sdate][slead] == nil ) then
					DBCC_201108[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201108[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201108[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201108[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201107" ) then
			if ( DBCS_loaded_addon("DBCC_201107") == 1 ) then
				if ( DBCC_201107[snomserveur] == nil ) then
					DBCC_201107[snomserveur] = {};
				end
				if ( DBCC_201107[snomserveur][sdate] == nil ) then
					DBCC_201107[snomserveur][sdate] = {};
				end
				if ( DBCC_201107[snomserveur][sdate][slead] == nil ) then
					DBCC_201107[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201107[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201107[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201107[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201106" ) then
			if ( DBCS_loaded_addon("DBCC_201106") == 1 ) then
				if ( DBCC_201106[snomserveur] == nil ) then
					DBCC_201106[snomserveur] = {};
				end
				if ( DBCC_201106[snomserveur][sdate] == nil ) then
					DBCC_201106[snomserveur][sdate] = {};
				end
				if ( DBCC_201106[snomserveur][sdate][slead] == nil ) then
					DBCC_201106[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201106[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201106[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201106[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201105" ) then
			if ( DBCS_loaded_addon("DBCC_201105") == 1 ) then
				if ( DBCC_201105[snomserveur] == nil ) then
					DBCC_201105[snomserveur] = {};
				end
				if ( DBCC_201105[snomserveur][sdate] == nil ) then
					DBCC_201105[snomserveur][sdate] = {};
				end
				if ( DBCC_201105[snomserveur][sdate][slead] == nil ) then
					DBCC_201105[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201105[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201105[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201105[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201104" ) then
			if ( DBCS_loaded_addon("DBCC_201104") == 1 ) then
				if ( DBCC_201104[snomserveur] == nil ) then
					DBCC_201104[snomserveur] = {};
				end
				if ( DBCC_201104[snomserveur][sdate] == nil ) then
					DBCC_201104[snomserveur][sdate] = {};
				end
				if ( DBCC_201104[snomserveur][sdate][slead] == nil ) then
					DBCC_201104[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201104[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201104[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201104[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201103" ) then
			if ( DBCS_loaded_addon("DBCC_201103") == 1 ) then
				if ( DBCC_201103[snomserveur] == nil ) then
					DBCC_201103[snomserveur] = {};
				end
				if ( DBCC_201103[snomserveur][sdate] == nil ) then
					DBCC_201103[snomserveur][sdate] = {};
				end
				if ( DBCC_201103[snomserveur][sdate][slead] == nil ) then
					DBCC_201103[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201103[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201103[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201103[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201102" ) then
			if ( DBCS_loaded_addon("DBCC_201102") == 1 ) then
				if ( DBCC_201102[snomserveur] == nil ) then
					DBCC_201102[snomserveur] = {};
				end
				if ( DBCC_201102[snomserveur][sdate] == nil ) then
					DBCC_201102[snomserveur][sdate] = {};
				end
				if ( DBCC_201102[snomserveur][sdate][slead] == nil ) then
					DBCC_201102[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201102[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201102[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201102[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201101" ) then
			if ( DBCS_loaded_addon("DBCC_201101") == 1 ) then
				if ( DBCC_201101[snomserveur] == nil ) then
					DBCC_201101[snomserveur] = {};
				end
				if ( DBCC_201101[snomserveur][sdate] == nil ) then
					DBCC_201101[snomserveur][sdate] = {};
				end
				if ( DBCC_201101[snomserveur][sdate][slead] == nil ) then
					DBCC_201101[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201101[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201101[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201101[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201012" ) then
			if ( DBCS_loaded_addon("DBCC_201012") == 1 ) then
				if ( DBCC_201012[snomserveur] == nil ) then
					DBCC_201012[snomserveur] = {};
				end
				if ( DBCC_201012[snomserveur][sdate] == nil ) then
					DBCC_201012[snomserveur][sdate] = {};
				end
				if ( DBCC_201012[snomserveur][sdate][slead] == nil ) then
					DBCC_201012[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201012[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201012[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201012[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201011" ) then
			if ( DBCS_loaded_addon("DBCC_201011") == 1 ) then
				if ( DBCC_201011[snomserveur] == nil ) then
					DBCC_201011[snomserveur] = {};
				end
				if ( DBCC_201011[snomserveur][sdate] == nil ) then
					DBCC_201011[snomserveur][sdate] = {};
				end
				if ( DBCC_201011[snomserveur][sdate][slead] == nil ) then
					DBCC_201011[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201011[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201011[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201011[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201010" ) then
			if ( DBCS_loaded_addon("DBCC_201010") == 1 ) then
				if ( DBCC_201010[snomserveur] == nil ) then
					DBCC_201010[snomserveur] = {};
				end
				if ( DBCC_201010[snomserveur][sdate] == nil ) then
					DBCC_201010[snomserveur][sdate] = {};
				end
				if ( DBCC_201010[snomserveur][sdate][slead] == nil ) then
					DBCC_201010[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201010[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201010[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201010[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201009" ) then
			if ( DBCS_loaded_addon("DBCC_201009") == 1 ) then
				if ( DBCC_201009[snomserveur] == nil ) then
					DBCC_201009[snomserveur] = {};
				end
				if ( DBCC_201009[snomserveur][sdate] == nil ) then
					DBCC_201009[snomserveur][sdate] = {};
				end
				if ( DBCC_201009[snomserveur][sdate][slead] == nil ) then
					DBCC_201009[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201009[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201009[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201009[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201008" ) then
			if ( DBCS_loaded_addon("DBCC_201008") == 1 ) then
				if ( DBCC_201008[snomserveur] == nil ) then
					DBCC_201008[snomserveur] = {};
				end
				if ( DBCC_201008[snomserveur][sdate] == nil ) then
					DBCC_201008[snomserveur][sdate] = {};
				end
				if ( DBCC_201008[snomserveur][sdate][slead] == nil ) then
					DBCC_201008[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201008[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201008[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201008[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201007" ) then
			if ( DBCS_loaded_addon("DBCC_201007") == 1 ) then
				if ( DBCC_201007[snomserveur] == nil ) then
					DBCC_201007[snomserveur] = {};
				end
				if ( DBCC_201007[snomserveur][sdate] == nil ) then
					DBCC_201007[snomserveur][sdate] = {};
				end
				if ( DBCC_201007[snomserveur][sdate][slead] == nil ) then
					DBCC_201007[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201007[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201007[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201007[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201006" ) then
			if ( DBCS_loaded_addon("DBCC_201006") == 1 ) then
				if ( DBCC_201006[snomserveur] == nil ) then
					DBCC_201006[snomserveur] = {};
				end
				if ( DBCC_201006[snomserveur][sdate] == nil ) then
					DBCC_201006[snomserveur][sdate] = {};
				end
				if ( DBCC_201006[snomserveur][sdate][slead] == nil ) then
					DBCC_201006[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201006[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201006[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201006[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201005" ) then
			if ( DBCS_loaded_addon("DBCC_201005") == 1 ) then
				if ( DBCC_201005[snomserveur] == nil ) then
					DBCC_201005[snomserveur] = {};
				end
				if ( DBCC_201005[snomserveur][sdate] == nil ) then
					DBCC_201005[snomserveur][sdate] = {};
				end
				if ( DBCC_201005[snomserveur][sdate][slead] == nil ) then
					DBCC_201005[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201005[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201005[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201005[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201004" ) then
			if ( DBCS_loaded_addon("DBCC_201004") == 1 ) then
				if ( DBCC_201004[snomserveur] == nil ) then
					DBCC_201004[snomserveur] = {};
				end
				if ( DBCC_201004[snomserveur][sdate] == nil ) then
					DBCC_201004[snomserveur][sdate] = {};
				end
				if ( DBCC_201004[snomserveur][sdate][slead] == nil ) then
					DBCC_201004[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201004[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201004[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201004[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201003" ) then
			if ( DBCS_loaded_addon("DBCC_201003") == 1 ) then
				if ( DBCC_201003[snomserveur] == nil ) then
					DBCC_201003[snomserveur] = {};
				end
				if ( DBCC_201003[snomserveur][sdate] == nil ) then
					DBCC_201003[snomserveur][sdate] = {};
				end
				if ( DBCC_201003[snomserveur][sdate][slead] == nil ) then
					DBCC_201003[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201003[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201003[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201003[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201002" ) then
			if ( DBCS_loaded_addon("DBCC_201002") == 1 ) then
				if ( DBCC_201002[snomserveur] == nil ) then
					DBCC_201002[snomserveur] = {};
				end
				if ( DBCC_201002[snomserveur][sdate] == nil ) then
					DBCC_201002[snomserveur][sdate] = {};
				end
				if ( DBCC_201002[snomserveur][sdate][slead] == nil ) then
					DBCC_201002[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201002[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201002[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201002[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "201001" ) then
			if ( DBCS_loaded_addon("DBCC_201001") == 1 ) then
				if ( DBCC_201001[snomserveur] == nil ) then
					DBCC_201001[snomserveur] = {};
				end
				if ( DBCC_201001[snomserveur][sdate] == nil ) then
					DBCC_201001[snomserveur][sdate] = {};
				end
				if ( DBCC_201001[snomserveur][sdate][slead] == nil ) then
					DBCC_201001[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201001[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201001[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201001[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200912" ) then
			if ( DBCS_loaded_addon("DBCC_200912") == 1 ) then
				if ( DBCC_200912[snomserveur] == nil ) then
					DBCC_200912[snomserveur] = {};
				end
				if ( DBCC_200912[snomserveur][sdate] == nil ) then
					DBCC_200912[snomserveur][sdate] = {};
				end
				if ( DBCC_200912[snomserveur][sdate][slead] == nil ) then
					DBCC_200912[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200912[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200912[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200912[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200911" ) then
			if ( DBCS_loaded_addon("DBCC_200911") == 1 ) then
				if ( DBCC_200911[snomserveur] == nil ) then
					DBCC_200911[snomserveur] = {};
				end
				if ( DBCC_200911[snomserveur][sdate] == nil ) then
					DBCC_200911[snomserveur][sdate] = {};
				end
				if ( DBCC_200911[snomserveur][sdate][slead] == nil ) then
					DBCC_200911[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200911[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200911[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200911[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200910" ) then
			if ( DBCS_loaded_addon("DBCC_200910") == 1 ) then
				if ( DBCC_200910[snomserveur] == nil ) then
					DBCC_200910[snomserveur] = {};
				end
				if ( DBCC_200910[snomserveur][sdate] == nil ) then
					DBCC_200910[snomserveur][sdate] = {};
				end
				if ( DBCC_200910[snomserveur][sdate][slead] == nil ) then
					DBCC_200910[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200910[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200910[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200910[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200909" ) then
			if ( DBCS_loaded_addon("DBCC_200909") == 1 ) then
				if ( DBCC_200909[snomserveur] == nil ) then
					DBCC_200909[snomserveur] = {};
				end
				if ( DBCC_200909[snomserveur][sdate] == nil ) then
					DBCC_200909[snomserveur][sdate] = {};
				end
				if ( DBCC_200909[snomserveur][sdate][slead] == nil ) then
					DBCC_200909[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200909[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200909[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200909[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200908" ) then
			if ( DBCS_loaded_addon("DBCC_200908") == 1 ) then
				if ( DBCC_200908[snomserveur] == nil ) then
					DBCC_200908[snomserveur] = {};
				end
				if ( DBCC_200908[snomserveur][sdate] == nil ) then
					DBCC_200908[snomserveur][sdate] = {};
				end
				if ( DBCC_200908[snomserveur][sdate][slead] == nil ) then
					DBCC_200908[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200908[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200908[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200908[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200907" ) then
			if ( DBCS_loaded_addon("DBCC_200907") == 1 ) then
				if ( DBCC_200907[snomserveur] == nil ) then
					DBCC_200907[snomserveur] = {};
				end
				if ( DBCC_200907[snomserveur][sdate] == nil ) then
					DBCC_200907[snomserveur][sdate] = {};
				end
				if ( DBCC_200907[snomserveur][sdate][slead] == nil ) then
					DBCC_200907[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200907[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200907[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200907[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200906" ) then
			if ( DBCS_loaded_addon("DBCC_200906") == 1 ) then
				if ( DBCC_200906[snomserveur] == nil ) then
					DBCC_200906[snomserveur] = {};
				end
				if ( DBCC_200906[snomserveur][sdate] == nil ) then
					DBCC_200906[snomserveur][sdate] = {};
				end
				if ( DBCC_200906[snomserveur][sdate][slead] == nil ) then
					DBCC_200906[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200906[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200906[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200906[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200905" ) then
			if ( DBCS_loaded_addon("DBCC_200905") == 1 ) then
				if ( DBCC_200905[snomserveur] == nil ) then
					DBCC_200905[snomserveur] = {};
				end
				if ( DBCC_200905[snomserveur][sdate] == nil ) then
					DBCC_200905[snomserveur][sdate] = {};
				end
				if ( DBCC_200905[snomserveur][sdate][slead] == nil ) then
					DBCC_200905[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200905[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200905[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200905[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200904" ) then
			if ( DBCS_loaded_addon("DBCC_200904") == 1 ) then
				if ( DBCC_200904[snomserveur] == nil ) then
					DBCC_200904[snomserveur] = {};
				end
				if ( DBCC_200904[snomserveur][sdate] == nil ) then
					DBCC_200904[snomserveur][sdate] = {};
				end
				if ( DBCC_200904[snomserveur][sdate][slead] == nil ) then
					DBCC_200904[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200904[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200904[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200904[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200903" ) then
			if ( DBCS_loaded_addon("DBCC_200903") == 1 ) then
				if ( DBCC_200903[snomserveur] == nil ) then
					DBCC_200903[snomserveur] = {};
				end
				if ( DBCC_200903[snomserveur][sdate] == nil ) then
					DBCC_200903[snomserveur][sdate] = {};
				end
				if ( DBCC_200903[snomserveur][sdate][slead] == nil ) then
					DBCC_200903[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200903[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200903[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200903[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200902" ) then
			if ( DBCS_loaded_addon("DBCC_200902") == 1 ) then
				if ( DBCC_200902[snomserveur] == nil ) then
					DBCC_200902[snomserveur] = {};
				end
				if ( DBCC_200902[snomserveur][sdate] == nil ) then
					DBCC_200902[snomserveur][sdate] = {};
				end
				if ( DBCC_200902[snomserveur][sdate][slead] == nil ) then
					DBCC_200902[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200902[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200902[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200902[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200901" ) then
			if ( DBCS_loaded_addon("DBCC_200901") == 1 ) then
				if ( DBCC_200901[snomserveur] == nil ) then
					DBCC_200901[snomserveur] = {};
				end
				if ( DBCC_200901[snomserveur][sdate] == nil ) then
					DBCC_200901[snomserveur][sdate] = {};
				end
				if ( DBCC_200901[snomserveur][sdate][slead] == nil ) then
					DBCC_200901[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200901[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200901[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200901[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200812" ) then
			if ( DBCS_loaded_addon("DBCC_200812") == 1 ) then
				if ( DBCC_200812[snomserveur] == nil ) then
					DBCC_200812[snomserveur] = {};
				end
				if ( DBCC_200812[snomserveur][sdate] == nil ) then
					DBCC_200812[snomserveur][sdate] = {};
				end
				if ( DBCC_200812[snomserveur][sdate][slead] == nil ) then
					DBCC_200812[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200812[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200812[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200812[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200811" ) then
			if ( DBCS_loaded_addon("DBCC_200811") == 1 ) then
				if ( DBCC_200811[snomserveur] == nil ) then
					DBCC_200811[snomserveur] = {};
				end
				if ( DBCC_200811[snomserveur][sdate] == nil ) then
					DBCC_200811[snomserveur][sdate] = {};
				end
				if ( DBCC_200811[snomserveur][sdate][slead] == nil ) then
					DBCC_200811[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200811[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200811[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200811[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200810" ) then
			if ( DBCS_loaded_addon("DBCC_200810") == 1 ) then
				if ( DBCC_200810[snomserveur] == nil ) then
					DBCC_200810[snomserveur] = {};
				end
				if ( DBCC_200810[snomserveur][sdate] == nil ) then
					DBCC_200810[snomserveur][sdate] = {};
				end
				if ( DBCC_200810[snomserveur][sdate][slead] == nil ) then
					DBCC_200810[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200810[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200810[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200810[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200809" ) then
			if ( DBCS_loaded_addon("DBCC_200809") == 1 ) then
				if ( DBCC_200809[snomserveur] == nil ) then
					DBCC_200809[snomserveur] = {};
				end
				if ( DBCC_200809[snomserveur][sdate] == nil ) then
					DBCC_200809[snomserveur][sdate] = {};
				end
				if ( DBCC_200809[snomserveur][sdate][slead] == nil ) then
					DBCC_200809[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200809[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200809[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200809[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200808" ) then
			if ( DBCS_loaded_addon("DBCC_200808") == 1 ) then
				if ( DBCC_200808[snomserveur] == nil ) then
					DBCC_200808[snomserveur] = {};
				end
				if ( DBCC_200808[snomserveur][sdate] == nil ) then
					DBCC_200808[snomserveur][sdate] = {};
				end
				if ( DBCC_200808[snomserveur][sdate][slead] == nil ) then
					DBCC_200808[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200808[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200808[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200808[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200807" ) then
			if ( DBCS_loaded_addon("DBCC_200807") == 1 ) then
				if ( DBCC_200807[snomserveur] == nil ) then
					DBCC_200807[snomserveur] = {};
				end
				if ( DBCC_200807[snomserveur][sdate] == nil ) then
					DBCC_200807[snomserveur][sdate] = {};
				end
				if ( DBCC_200807[snomserveur][sdate][slead] == nil ) then
					DBCC_200807[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200807[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200807[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200807[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200806" ) then
			if ( DBCS_loaded_addon("DBCC_200806") == 1 ) then
				if ( DBCC_200806[snomserveur] == nil ) then
					DBCC_200806[snomserveur] = {};
				end
				if ( DBCC_200806[snomserveur][sdate] == nil ) then
					DBCC_200806[snomserveur][sdate] = {};
				end
				if ( DBCC_200806[snomserveur][sdate][slead] == nil ) then
					DBCC_200806[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200806[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200806[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200806[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200805" ) then
			if ( DBCS_loaded_addon("DBCC_200805") == 1 ) then
				if ( DBCC_200805[snomserveur] == nil ) then
					DBCC_200805[snomserveur] = {};
				end
				if ( DBCC_200805[snomserveur][sdate] == nil ) then
					DBCC_200805[snomserveur][sdate] = {};
				end
				if ( DBCC_200805[snomserveur][sdate][slead] == nil ) then
					DBCC_200805[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200805[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200805[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200805[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200804" ) then
			if ( DBCS_loaded_addon("DBCC_200804") == 1 ) then
				if ( DBCC_200804[snomserveur] == nil ) then
					DBCC_200804[snomserveur] = {};
				end
				if ( DBCC_200804[snomserveur][sdate] == nil ) then
					DBCC_200804[snomserveur][sdate] = {};
				end
				if ( DBCC_200804[snomserveur][sdate][slead] == nil ) then
					DBCC_200804[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200804[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200804[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200804[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200803" ) then
			if ( DBCS_loaded_addon("DBCC_200803") == 1 ) then
				if ( DBCC_200803[snomserveur] == nil ) then
					DBCC_200803[snomserveur] = {};
				end
				if ( DBCC_200803[snomserveur][sdate] == nil ) then
					DBCC_200803[snomserveur][sdate] = {};
				end
				if ( DBCC_200803[snomserveur][sdate][slead] == nil ) then
					DBCC_200803[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200803[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200803[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200803[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200802" ) then
			if ( DBCS_loaded_addon("DBCC_200802") == 1 ) then
				if ( DBCC_200802[snomserveur] == nil ) then
					DBCC_200802[snomserveur] = {};
				end
				if ( DBCC_200802[snomserveur][sdate] == nil ) then
					DBCC_200802[snomserveur][sdate] = {};
				end
				if ( DBCC_200802[snomserveur][sdate][slead] == nil ) then
					DBCC_200802[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200802[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200802[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200802[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200801" ) then
			if ( DBCS_loaded_addon("DBCC_200801") == 1 ) then
				if ( DBCC_200801[snomserveur] == nil ) then
					DBCC_200801[snomserveur] = {};
				end
				if ( DBCC_200801[snomserveur][sdate] == nil ) then
					DBCC_200801[snomserveur][sdate] = {};
				end
				if ( DBCC_200801[snomserveur][sdate][slead] == nil ) then
					DBCC_200801[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200801[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200801[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200801[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200712" ) then
			if ( DBCS_loaded_addon("DBCC_200712") == 1 ) then
				if ( DBCC_200712[snomserveur] == nil ) then
					DBCC_200712[snomserveur] = {};
				end
				if ( DBCC_200712[snomserveur][sdate] == nil ) then
					DBCC_200712[snomserveur][sdate] = {};
				end
				if ( DBCC_200712[snomserveur][sdate][slead] == nil ) then
					DBCC_200712[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200712[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200712[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200712[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200711" ) then
			if ( DBCS_loaded_addon("DBCC_200711") == 1 ) then
				if ( DBCC_200711[snomserveur] == nil ) then
					DBCC_200711[snomserveur] = {};
				end
				if ( DBCC_200711[snomserveur][sdate] == nil ) then
					DBCC_200711[snomserveur][sdate] = {};
				end
				if ( DBCC_200711[snomserveur][sdate][slead] == nil ) then
					DBCC_200711[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200711[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200711[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200711[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200710" ) then
			if ( DBCS_loaded_addon("DBCC_200710") == 1 ) then
				if ( DBCC_200710[snomserveur] == nil ) then
					DBCC_200710[snomserveur] = {};
				end
				if ( DBCC_200710[snomserveur][sdate] == nil ) then
					DBCC_200710[snomserveur][sdate] = {};
				end
				if ( DBCC_200710[snomserveur][sdate][slead] == nil ) then
					DBCC_200710[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200710[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200710[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200710[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200709" ) then
			if ( DBCS_loaded_addon("DBCC_200709") == 1 ) then
				if ( DBCC_200709[snomserveur] == nil ) then
					DBCC_200709[snomserveur] = {};
				end
				if ( DBCC_200709[snomserveur][sdate] == nil ) then
					DBCC_200709[snomserveur][sdate] = {};
				end
				if ( DBCC_200709[snomserveur][sdate][slead] == nil ) then
					DBCC_200709[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200709[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200709[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200709[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200708" ) then
			if ( DBCS_loaded_addon("DBCC_200708") == 1 ) then
				if ( DBCC_200708[snomserveur] == nil ) then
					DBCC_200708[snomserveur] = {};
				end
				if ( DBCC_200708[snomserveur][sdate] == nil ) then
					DBCC_200708[snomserveur][sdate] = {};
				end
				if ( DBCC_200708[snomserveur][sdate][slead] == nil ) then
					DBCC_200708[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200708[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200708[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200708[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200707" ) then
			if ( DBCS_loaded_addon("DBCC_200707") == 1 ) then
				if ( DBCC_200707[snomserveur] == nil ) then
					DBCC_200707[snomserveur] = {};
				end
				if ( DBCC_200707[snomserveur][sdate] == nil ) then
					DBCC_200707[snomserveur][sdate] = {};
				end
				if ( DBCC_200707[snomserveur][sdate][slead] == nil ) then
					DBCC_200707[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200707[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200707[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200707[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200706" ) then
			if ( DBCS_loaded_addon("DBCC_200706") == 1 ) then
				if ( DBCC_200706[snomserveur] == nil ) then
					DBCC_200706[snomserveur] = {};
				end
				if ( DBCC_200706[snomserveur][sdate] == nil ) then
					DBCC_200706[snomserveur][sdate] = {};
				end
				if ( DBCC_200706[snomserveur][sdate][slead] == nil ) then
					DBCC_200706[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200706[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200706[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200706[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		elseif ( smois == "200705" ) then
			if ( DBCS_loaded_addon("DBCC_200705") == 1 ) then
				if ( DBCC_200705[snomserveur] == nil ) then
					DBCC_200705[snomserveur] = {};
				end
				if ( DBCC_200705[snomserveur][sdate] == nil ) then
					DBCC_200705[snomserveur][sdate] = {};
				end
				if ( DBCC_200705[snomserveur][sdate][slead] == nil ) then
					DBCC_200705[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200705[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200705[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200705[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
			end
		else
			if ( DBCC[snomserveur] == nil ) then
				DBCC[snomserveur] = {};
			end
			if ( DBCC[snomserveur][sdate] == nil ) then
				DBCC[snomserveur][sdate] = {};
			end
			if ( DBCC[snomserveur][sdate][slead] == nil ) then
				DBCC[snomserveur][sdate][slead] = {};
			end
			if ( DBCC[snomserveur][sdate][slead][stime] == nil ) then
				DBCC[snomserveur][sdate][slead][stime] = {};
			end
			DBCC[snomserveur][sdate][slead][stime][inumloot] = inumobjet.."@"..snumcourt2.."@"..inb.."@";
		end
	end
	DBcorps_ajoutcorp2(sdate,slead,stime,snomserveur,bcopie);

end

function DBcorps_ajoutmob2(slangue,sdate,slead,stime,snommob,snumregion,x,y,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot,nomserveur,bcopie)

local snomserveur;
local smois;

	if ( nomserveur ) then
		snomserveur = nomserveur;
	else
		snomserveur = DBCS_serveur;
	end

	if ( sfamille == nil ) then
		sfamille = "";
	end
	if ( splusmob == nil ) then
		splusmob = "";
	end

	if ( DBCS_prog_serveur == 0 ) then
		if ( DBCC[snomserveur] == nil ) then
			DBCC[snomserveur] = {};
		end
		if ( DBCC[snomserveur][sdate] == nil ) then
			DBCC[snomserveur][sdate] = {};
		end
		if ( DBCC[snomserveur][sdate][slead] == nil ) then
			DBCC[snomserveur][sdate][slead] = {};
		end
		if ( DBCC[snomserveur][sdate][slead][stime] == nil ) then
			DBCC[snomserveur][sdate][slead][stime] = {};
		end
		DBCC[snomserveur][sdate][slead][stime][-2] = slangue;
		DBCC[snomserveur][sdate][slead][stime][-1] = "CA02";
		DBCC[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
	else
		smois = strsub(sdate,1,6);
		if ( smois == "201305" ) then
--TraceFrame:AddMessage("mis ds 201305");
			if ( DBCS_loaded_addon("DBCC_201305") == 1 ) then
				if ( DBCC_201305[snomserveur] == nil ) then
					DBCC_201305[snomserveur] = {};
				end
				if ( DBCC_201305[snomserveur][sdate] == nil ) then
					DBCC_201305[snomserveur][sdate] = {};
				end
				if ( DBCC_201305[snomserveur][sdate][slead] == nil ) then
					DBCC_201305[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201305[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201305[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201305[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201305[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201305[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201304" ) then
--TraceFrame:AddMessage("mis ds 201304");
			if ( DBCS_loaded_addon("DBCC_201304") == 1 ) then
				if ( DBCC_201304[snomserveur] == nil ) then
					DBCC_201304[snomserveur] = {};
				end
				if ( DBCC_201304[snomserveur][sdate] == nil ) then
					DBCC_201304[snomserveur][sdate] = {};
				end
				if ( DBCC_201304[snomserveur][sdate][slead] == nil ) then
					DBCC_201304[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201304[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201304[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201304[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201304[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201304[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201303" ) then
--TraceFrame:AddMessage("mis ds 201303");
			if ( DBCS_loaded_addon("DBCC_201303") == 1 ) then
				if ( DBCC_201303[snomserveur] == nil ) then
					DBCC_201303[snomserveur] = {};
				end
				if ( DBCC_201303[snomserveur][sdate] == nil ) then
					DBCC_201303[snomserveur][sdate] = {};
				end
				if ( DBCC_201303[snomserveur][sdate][slead] == nil ) then
					DBCC_201303[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201303[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201303[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201303[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201303[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201303[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201302" ) then
--TraceFrame:AddMessage("mis ds 201302");
			if ( DBCS_loaded_addon("DBCC_201302") == 1 ) then
				if ( DBCC_201302[snomserveur] == nil ) then
					DBCC_201302[snomserveur] = {};
				end
				if ( DBCC_201302[snomserveur][sdate] == nil ) then
					DBCC_201302[snomserveur][sdate] = {};
				end
				if ( DBCC_201302[snomserveur][sdate][slead] == nil ) then
					DBCC_201302[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201302[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201302[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201302[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201302[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201302[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201301" ) then
--TraceFrame:AddMessage("mis ds 201301");
			if ( DBCS_loaded_addon("DBCC_201301") == 1 ) then
				if ( DBCC_201301[snomserveur] == nil ) then
					DBCC_201301[snomserveur] = {};
				end
				if ( DBCC_201301[snomserveur][sdate] == nil ) then
					DBCC_201301[snomserveur][sdate] = {};
				end
				if ( DBCC_201301[snomserveur][sdate][slead] == nil ) then
					DBCC_201301[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201301[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201301[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201301[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201301[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201301[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201212" ) then
--TraceFrame:AddMessage("mis ds 201212");
			if ( DBCS_loaded_addon("DBCC_201212") == 1 ) then
				if ( DBCC_201212[snomserveur] == nil ) then
					DBCC_201212[snomserveur] = {};
				end
				if ( DBCC_201212[snomserveur][sdate] == nil ) then
					DBCC_201212[snomserveur][sdate] = {};
				end
				if ( DBCC_201212[snomserveur][sdate][slead] == nil ) then
					DBCC_201212[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201212[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201212[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201212[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201212[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201212[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201211" ) then
--TraceFrame:AddMessage("mis ds 201211");
			if ( DBCS_loaded_addon("DBCC_201211") == 1 ) then
				if ( DBCC_201211[snomserveur] == nil ) then
					DBCC_201211[snomserveur] = {};
				end
				if ( DBCC_201211[snomserveur][sdate] == nil ) then
					DBCC_201211[snomserveur][sdate] = {};
				end
				if ( DBCC_201211[snomserveur][sdate][slead] == nil ) then
					DBCC_201211[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201211[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201211[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201211[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201211[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201211[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201210" ) then
--TraceFrame:AddMessage("mis ds 201210");
			if ( DBCS_loaded_addon("DBCC_201210") == 1 ) then
				if ( DBCC_201210[snomserveur] == nil ) then
					DBCC_201210[snomserveur] = {};
				end
				if ( DBCC_201210[snomserveur][sdate] == nil ) then
					DBCC_201210[snomserveur][sdate] = {};
				end
				if ( DBCC_201210[snomserveur][sdate][slead] == nil ) then
					DBCC_201210[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201210[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201210[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201210[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201210[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201210[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201209" ) then
--TraceFrame:AddMessage("mis ds 201209");
			if ( DBCS_loaded_addon("DBCC_201209") == 1 ) then
				if ( DBCC_201209[snomserveur] == nil ) then
					DBCC_201209[snomserveur] = {};
				end
				if ( DBCC_201209[snomserveur][sdate] == nil ) then
					DBCC_201209[snomserveur][sdate] = {};
				end
				if ( DBCC_201209[snomserveur][sdate][slead] == nil ) then
					DBCC_201209[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201209[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201209[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201209[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201209[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201209[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201208" ) then
--TraceFrame:AddMessage("mis ds 201208");
			if ( DBCS_loaded_addon("DBCC_201208") == 1 ) then
				if ( DBCC_201208[snomserveur] == nil ) then
					DBCC_201208[snomserveur] = {};
				end
				if ( DBCC_201208[snomserveur][sdate] == nil ) then
					DBCC_201208[snomserveur][sdate] = {};
				end
				if ( DBCC_201208[snomserveur][sdate][slead] == nil ) then
					DBCC_201208[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201208[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201208[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201208[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201208[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201208[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201207" ) then
--TraceFrame:AddMessage("mis ds 201207");
			if ( DBCS_loaded_addon("DBCC_201207") == 1 ) then
				if ( DBCC_201207[snomserveur] == nil ) then
					DBCC_201207[snomserveur] = {};
				end
				if ( DBCC_201207[snomserveur][sdate] == nil ) then
					DBCC_201207[snomserveur][sdate] = {};
				end
				if ( DBCC_201207[snomserveur][sdate][slead] == nil ) then
					DBCC_201207[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201207[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201207[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201207[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201207[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201207[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201206" ) then
--TraceFrame:AddMessage("mis ds 201206");
			if ( DBCS_loaded_addon("DBCC_201206") == 1 ) then
				if ( DBCC_201206[snomserveur] == nil ) then
					DBCC_201206[snomserveur] = {};
				end
				if ( DBCC_201206[snomserveur][sdate] == nil ) then
					DBCC_201206[snomserveur][sdate] = {};
				end
				if ( DBCC_201206[snomserveur][sdate][slead] == nil ) then
					DBCC_201206[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201206[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201206[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201206[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201206[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201206[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201205" ) then
--TraceFrame:AddMessage("mis ds 201205");
			if ( DBCS_loaded_addon("DBCC_201205") == 1 ) then
				if ( DBCC_201205[snomserveur] == nil ) then
					DBCC_201205[snomserveur] = {};
				end
				if ( DBCC_201205[snomserveur][sdate] == nil ) then
					DBCC_201205[snomserveur][sdate] = {};
				end
				if ( DBCC_201205[snomserveur][sdate][slead] == nil ) then
					DBCC_201205[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201205[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201205[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201205[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201205[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201205[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201204" ) then
--TraceFrame:AddMessage("mis ds 201204");
			if ( DBCS_loaded_addon("DBCC_201204") == 1 ) then
				if ( DBCC_201204[snomserveur] == nil ) then
					DBCC_201204[snomserveur] = {};
				end
				if ( DBCC_201204[snomserveur][sdate] == nil ) then
					DBCC_201204[snomserveur][sdate] = {};
				end
				if ( DBCC_201204[snomserveur][sdate][slead] == nil ) then
					DBCC_201204[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201204[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201204[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201204[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201204[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201204[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201203" ) then
--TraceFrame:AddMessage("mis ds 201203");
			if ( DBCS_loaded_addon("DBCC_201203") == 1 ) then
				if ( DBCC_201203[snomserveur] == nil ) then
					DBCC_201203[snomserveur] = {};
				end
				if ( DBCC_201203[snomserveur][sdate] == nil ) then
					DBCC_201203[snomserveur][sdate] = {};
				end
				if ( DBCC_201203[snomserveur][sdate][slead] == nil ) then
					DBCC_201203[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201203[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201203[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201203[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201203[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201203[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201202" ) then
--TraceFrame:AddMessage("mis ds 201202");
			if ( DBCS_loaded_addon("DBCC_201202") == 1 ) then
				if ( DBCC_201202[snomserveur] == nil ) then
					DBCC_201202[snomserveur] = {};
				end
				if ( DBCC_201202[snomserveur][sdate] == nil ) then
					DBCC_201202[snomserveur][sdate] = {};
				end
				if ( DBCC_201202[snomserveur][sdate][slead] == nil ) then
					DBCC_201202[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201202[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201202[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201202[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201202[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201202[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201201" ) then
--TraceFrame:AddMessage("mis ds 201201");
			if ( DBCS_loaded_addon("DBCC_201201") == 1 ) then
				if ( DBCC_201201[snomserveur] == nil ) then
					DBCC_201201[snomserveur] = {};
				end
				if ( DBCC_201201[snomserveur][sdate] == nil ) then
					DBCC_201201[snomserveur][sdate] = {};
				end
				if ( DBCC_201201[snomserveur][sdate][slead] == nil ) then
					DBCC_201201[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201201[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201201[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201201[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201201[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201201[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201112" ) then
--TraceFrame:AddMessage("mis ds 201112");
			if ( DBCS_loaded_addon("DBCC_201112") == 1 ) then
				if ( DBCC_201112[snomserveur] == nil ) then
					DBCC_201112[snomserveur] = {};
				end
				if ( DBCC_201112[snomserveur][sdate] == nil ) then
					DBCC_201112[snomserveur][sdate] = {};
				end
				if ( DBCC_201112[snomserveur][sdate][slead] == nil ) then
					DBCC_201112[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201112[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201112[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201112[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201112[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201112[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201111" ) then
--TraceFrame:AddMessage("mis ds 201111");
			if ( DBCS_loaded_addon("DBCC_201111") == 1 ) then
				if ( DBCC_201111[snomserveur] == nil ) then
					DBCC_201111[snomserveur] = {};
				end
				if ( DBCC_201111[snomserveur][sdate] == nil ) then
					DBCC_201111[snomserveur][sdate] = {};
				end
				if ( DBCC_201111[snomserveur][sdate][slead] == nil ) then
					DBCC_201111[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201111[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201111[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201111[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201111[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201111[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201110" ) then
--TraceFrame:AddMessage("mis ds 201110");
			if ( DBCS_loaded_addon("DBCC_201110") == 1 ) then
				if ( DBCC_201110[snomserveur] == nil ) then
					DBCC_201110[snomserveur] = {};
				end
				if ( DBCC_201110[snomserveur][sdate] == nil ) then
					DBCC_201110[snomserveur][sdate] = {};
				end
				if ( DBCC_201110[snomserveur][sdate][slead] == nil ) then
					DBCC_201110[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201110[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201110[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201110[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201110[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201110[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201109" ) then
--TraceFrame:AddMessage("mis ds 201109");
			if ( DBCS_loaded_addon("DBCC_201109") == 1 ) then
				if ( DBCC_201109[snomserveur] == nil ) then
					DBCC_201109[snomserveur] = {};
				end
				if ( DBCC_201109[snomserveur][sdate] == nil ) then
					DBCC_201109[snomserveur][sdate] = {};
				end
				if ( DBCC_201109[snomserveur][sdate][slead] == nil ) then
					DBCC_201109[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201109[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201109[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201109[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201109[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201109[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201108" ) then
--TraceFrame:AddMessage("mis ds 201108");
			if ( DBCS_loaded_addon("DBCC_201108") == 1 ) then
				if ( DBCC_201108[snomserveur] == nil ) then
					DBCC_201108[snomserveur] = {};
				end
				if ( DBCC_201108[snomserveur][sdate] == nil ) then
					DBCC_201108[snomserveur][sdate] = {};
				end
				if ( DBCC_201108[snomserveur][sdate][slead] == nil ) then
					DBCC_201108[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201108[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201108[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201108[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201108[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201108[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201107" ) then
--TraceFrame:AddMessage("mis ds 201107");
			if ( DBCS_loaded_addon("DBCC_201107") == 1 ) then
				if ( DBCC_201107[snomserveur] == nil ) then
					DBCC_201107[snomserveur] = {};
				end
				if ( DBCC_201107[snomserveur][sdate] == nil ) then
					DBCC_201107[snomserveur][sdate] = {};
				end
				if ( DBCC_201107[snomserveur][sdate][slead] == nil ) then
					DBCC_201107[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201107[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201107[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201107[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201107[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201107[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201106" ) then
--TraceFrame:AddMessage("mis ds 201106");
			if ( DBCS_loaded_addon("DBCC_201106") == 1 ) then
				if ( DBCC_201106[snomserveur] == nil ) then
					DBCC_201106[snomserveur] = {};
				end
				if ( DBCC_201106[snomserveur][sdate] == nil ) then
					DBCC_201106[snomserveur][sdate] = {};
				end
				if ( DBCC_201106[snomserveur][sdate][slead] == nil ) then
					DBCC_201106[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201106[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201106[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201106[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201106[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201106[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201105" ) then
--TraceFrame:AddMessage("mis ds 201105");
			if ( DBCS_loaded_addon("DBCC_201105") == 1 ) then
				if ( DBCC_201105[snomserveur] == nil ) then
					DBCC_201105[snomserveur] = {};
				end
				if ( DBCC_201105[snomserveur][sdate] == nil ) then
					DBCC_201105[snomserveur][sdate] = {};
				end
				if ( DBCC_201105[snomserveur][sdate][slead] == nil ) then
					DBCC_201105[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201105[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201105[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201105[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201105[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201105[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201104" ) then
--TraceFrame:AddMessage("mis ds 201104");
			if ( DBCS_loaded_addon("DBCC_201104") == 1 ) then
				if ( DBCC_201104[snomserveur] == nil ) then
					DBCC_201104[snomserveur] = {};
				end
				if ( DBCC_201104[snomserveur][sdate] == nil ) then
					DBCC_201104[snomserveur][sdate] = {};
				end
				if ( DBCC_201104[snomserveur][sdate][slead] == nil ) then
					DBCC_201104[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201104[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201104[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201104[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201104[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201104[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201103" ) then
--TraceFrame:AddMessage("mis ds 201103");
			if ( DBCS_loaded_addon("DBCC_201103") == 1 ) then
				if ( DBCC_201103[snomserveur] == nil ) then
					DBCC_201103[snomserveur] = {};
				end
				if ( DBCC_201103[snomserveur][sdate] == nil ) then
					DBCC_201103[snomserveur][sdate] = {};
				end
				if ( DBCC_201103[snomserveur][sdate][slead] == nil ) then
					DBCC_201103[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201103[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201103[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201103[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201103[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201103[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201102" ) then
--TraceFrame:AddMessage("mis ds 201102");
			if ( DBCS_loaded_addon("DBCC_201102") == 1 ) then
				if ( DBCC_201102[snomserveur] == nil ) then
					DBCC_201102[snomserveur] = {};
				end
				if ( DBCC_201102[snomserveur][sdate] == nil ) then
					DBCC_201102[snomserveur][sdate] = {};
				end
				if ( DBCC_201102[snomserveur][sdate][slead] == nil ) then
					DBCC_201102[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201102[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201102[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201102[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201102[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201102[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201101" ) then
--TraceFrame:AddMessage("mis ds 201101");
			if ( DBCS_loaded_addon("DBCC_201101") == 1 ) then
				if ( DBCC_201101[snomserveur] == nil ) then
					DBCC_201101[snomserveur] = {};
				end
				if ( DBCC_201101[snomserveur][sdate] == nil ) then
					DBCC_201101[snomserveur][sdate] = {};
				end
				if ( DBCC_201101[snomserveur][sdate][slead] == nil ) then
					DBCC_201101[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201101[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201101[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201101[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201101[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201101[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201012" ) then
--TraceFrame:AddMessage("mis ds 201012");
			if ( DBCS_loaded_addon("DBCC_201012") == 1 ) then
				if ( DBCC_201012[snomserveur] == nil ) then
					DBCC_201012[snomserveur] = {};
				end
				if ( DBCC_201012[snomserveur][sdate] == nil ) then
					DBCC_201012[snomserveur][sdate] = {};
				end
				if ( DBCC_201012[snomserveur][sdate][slead] == nil ) then
					DBCC_201012[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201012[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201012[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201012[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201012[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201012[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201011" ) then
--TraceFrame:AddMessage("mis ds 201011");
			if ( DBCS_loaded_addon("DBCC_201011") == 1 ) then
				if ( DBCC_201011[snomserveur] == nil ) then
					DBCC_201011[snomserveur] = {};
				end
				if ( DBCC_201011[snomserveur][sdate] == nil ) then
					DBCC_201011[snomserveur][sdate] = {};
				end
				if ( DBCC_201011[snomserveur][sdate][slead] == nil ) then
					DBCC_201011[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201011[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201011[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201011[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201011[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201011[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201010" ) then
--TraceFrame:AddMessage("mis ds 201010");
			if ( DBCS_loaded_addon("DBCC_201010") == 1 ) then
				if ( DBCC_201010[snomserveur] == nil ) then
					DBCC_201010[snomserveur] = {};
				end
				if ( DBCC_201010[snomserveur][sdate] == nil ) then
					DBCC_201010[snomserveur][sdate] = {};
				end
				if ( DBCC_201010[snomserveur][sdate][slead] == nil ) then
					DBCC_201010[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201010[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201010[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201010[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201010[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201010[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201009" ) then
--TraceFrame:AddMessage("mis ds 201009");
			if ( DBCS_loaded_addon("DBCC_201009") == 1 ) then
				if ( DBCC_201009[snomserveur] == nil ) then
					DBCC_201009[snomserveur] = {};
				end
				if ( DBCC_201009[snomserveur][sdate] == nil ) then
					DBCC_201009[snomserveur][sdate] = {};
				end
				if ( DBCC_201009[snomserveur][sdate][slead] == nil ) then
					DBCC_201009[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201009[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201009[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201009[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201009[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201009[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201008" ) then
--TraceFrame:AddMessage("mis ds 201008");
			if ( DBCS_loaded_addon("DBCC_201008") == 1 ) then
				if ( DBCC_201008[snomserveur] == nil ) then
					DBCC_201008[snomserveur] = {};
				end
				if ( DBCC_201008[snomserveur][sdate] == nil ) then
					DBCC_201008[snomserveur][sdate] = {};
				end
				if ( DBCC_201008[snomserveur][sdate][slead] == nil ) then
					DBCC_201008[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201008[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201008[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201008[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201008[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201008[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201007" ) then
--TraceFrame:AddMessage("mis ds 201007");
			if ( DBCS_loaded_addon("DBCC_201007") == 1 ) then
				if ( DBCC_201007[snomserveur] == nil ) then
					DBCC_201007[snomserveur] = {};
				end
				if ( DBCC_201007[snomserveur][sdate] == nil ) then
					DBCC_201007[snomserveur][sdate] = {};
				end
				if ( DBCC_201007[snomserveur][sdate][slead] == nil ) then
					DBCC_201007[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201007[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201007[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201007[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201007[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201007[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201006" ) then
--TraceFrame:AddMessage("mis ds 201006");
			if ( DBCS_loaded_addon("DBCC_201006") == 1 ) then
				if ( DBCC_201006[snomserveur] == nil ) then
					DBCC_201006[snomserveur] = {};
				end
				if ( DBCC_201006[snomserveur][sdate] == nil ) then
					DBCC_201006[snomserveur][sdate] = {};
				end
				if ( DBCC_201006[snomserveur][sdate][slead] == nil ) then
					DBCC_201006[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201006[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201006[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201006[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201006[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201006[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201005" ) then
--TraceFrame:AddMessage("mis ds 201005");
			if ( DBCS_loaded_addon("DBCC_201005") == 1 ) then
				if ( DBCC_201005[snomserveur] == nil ) then
					DBCC_201005[snomserveur] = {};
				end
				if ( DBCC_201005[snomserveur][sdate] == nil ) then
					DBCC_201005[snomserveur][sdate] = {};
				end
				if ( DBCC_201005[snomserveur][sdate][slead] == nil ) then
					DBCC_201005[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201005[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201005[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201005[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201005[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201005[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201004" ) then
--TraceFrame:AddMessage("mis ds 201004");
			if ( DBCS_loaded_addon("DBCC_201004") == 1 ) then
				if ( DBCC_201004[snomserveur] == nil ) then
					DBCC_201004[snomserveur] = {};
				end
				if ( DBCC_201004[snomserveur][sdate] == nil ) then
					DBCC_201004[snomserveur][sdate] = {};
				end
				if ( DBCC_201004[snomserveur][sdate][slead] == nil ) then
					DBCC_201004[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201004[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201004[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201004[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201004[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201004[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201003" ) then
--TraceFrame:AddMessage("mis ds 201003");
			if ( DBCS_loaded_addon("DBCC_201003") == 1 ) then
				if ( DBCC_201003[snomserveur] == nil ) then
					DBCC_201003[snomserveur] = {};
				end
				if ( DBCC_201003[snomserveur][sdate] == nil ) then
					DBCC_201003[snomserveur][sdate] = {};
				end
				if ( DBCC_201003[snomserveur][sdate][slead] == nil ) then
					DBCC_201003[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201003[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201003[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201003[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201003[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201003[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201002" ) then
--TraceFrame:AddMessage("mis ds 201002");
			if ( DBCS_loaded_addon("DBCC_201002") == 1 ) then
				if ( DBCC_201002[snomserveur] == nil ) then
					DBCC_201002[snomserveur] = {};
				end
				if ( DBCC_201002[snomserveur][sdate] == nil ) then
					DBCC_201002[snomserveur][sdate] = {};
				end
				if ( DBCC_201002[snomserveur][sdate][slead] == nil ) then
					DBCC_201002[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201002[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201002[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201002[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201002[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201002[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "201001" ) then
--TraceFrame:AddMessage("mis ds 201001");
			if ( DBCS_loaded_addon("DBCC_201001") == 1 ) then
				if ( DBCC_201001[snomserveur] == nil ) then
					DBCC_201001[snomserveur] = {};
				end
				if ( DBCC_201001[snomserveur][sdate] == nil ) then
					DBCC_201001[snomserveur][sdate] = {};
				end
				if ( DBCC_201001[snomserveur][sdate][slead] == nil ) then
					DBCC_201001[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_201001[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_201001[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_201001[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_201001[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_201001[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200912" ) then
--TraceFrame:AddMessage("mis ds 200912");
			if ( DBCS_loaded_addon("DBCC_200912") == 1 ) then
				if ( DBCC_200912[snomserveur] == nil ) then
					DBCC_200912[snomserveur] = {};
				end
				if ( DBCC_200912[snomserveur][sdate] == nil ) then
					DBCC_200912[snomserveur][sdate] = {};
				end
				if ( DBCC_200912[snomserveur][sdate][slead] == nil ) then
					DBCC_200912[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200912[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200912[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200912[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200912[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200912[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200911" ) then
--TraceFrame:AddMessage("mis ds 200911");
			if ( DBCS_loaded_addon("DBCC_200911") == 1 ) then
				if ( DBCC_200911[snomserveur] == nil ) then
					DBCC_200911[snomserveur] = {};
				end
				if ( DBCC_200911[snomserveur][sdate] == nil ) then
					DBCC_200911[snomserveur][sdate] = {};
				end
				if ( DBCC_200911[snomserveur][sdate][slead] == nil ) then
					DBCC_200911[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200911[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200911[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200911[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200911[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200911[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200910" ) then
--TraceFrame:AddMessage("mis ds 200910");
			if ( DBCS_loaded_addon("DBCC_200910") == 1 ) then
				if ( DBCC_200910[snomserveur] == nil ) then
					DBCC_200910[snomserveur] = {};
				end
				if ( DBCC_200910[snomserveur][sdate] == nil ) then
					DBCC_200910[snomserveur][sdate] = {};
				end
				if ( DBCC_200910[snomserveur][sdate][slead] == nil ) then
					DBCC_200910[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200910[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200910[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200910[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200910[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200910[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200909" ) then
--TraceFrame:AddMessage("mis ds 200909");
			if ( DBCS_loaded_addon("DBCC_200909") == 1 ) then
				if ( DBCC_200909[snomserveur] == nil ) then
					DBCC_200909[snomserveur] = {};
				end
				if ( DBCC_200909[snomserveur][sdate] == nil ) then
					DBCC_200909[snomserveur][sdate] = {};
				end
				if ( DBCC_200909[snomserveur][sdate][slead] == nil ) then
					DBCC_200909[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200909[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200909[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200909[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200909[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200909[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200908" ) then
--TraceFrame:AddMessage("mis ds 200908");
			if ( DBCS_loaded_addon("DBCC_200908") == 1 ) then
				if ( DBCC_200908[snomserveur] == nil ) then
					DBCC_200908[snomserveur] = {};
				end
				if ( DBCC_200908[snomserveur][sdate] == nil ) then
					DBCC_200908[snomserveur][sdate] = {};
				end
				if ( DBCC_200908[snomserveur][sdate][slead] == nil ) then
					DBCC_200908[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200908[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200908[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200908[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200908[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200908[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200907" ) then
--TraceFrame:AddMessage("mis ds 200907");
			if ( DBCS_loaded_addon("DBCC_200907") == 1 ) then
				if ( DBCC_200907[snomserveur] == nil ) then
					DBCC_200907[snomserveur] = {};
				end
				if ( DBCC_200907[snomserveur][sdate] == nil ) then
					DBCC_200907[snomserveur][sdate] = {};
				end
				if ( DBCC_200907[snomserveur][sdate][slead] == nil ) then
					DBCC_200907[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200907[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200907[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200907[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200907[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200907[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200906" ) then
--TraceFrame:AddMessage("mis ds 200906");
			if ( DBCS_loaded_addon("DBCC_200906") == 1 ) then
				if ( DBCC_200906[snomserveur] == nil ) then
					DBCC_200906[snomserveur] = {};
				end
				if ( DBCC_200906[snomserveur][sdate] == nil ) then
					DBCC_200906[snomserveur][sdate] = {};
				end
				if ( DBCC_200906[snomserveur][sdate][slead] == nil ) then
					DBCC_200906[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200906[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200906[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200906[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200906[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200906[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200905" ) then
--TraceFrame:AddMessage("mis ds 200905");
			if ( DBCS_loaded_addon("DBCC_200905") == 1 ) then
				if ( DBCC_200905[snomserveur] == nil ) then
					DBCC_200905[snomserveur] = {};
				end
				if ( DBCC_200905[snomserveur][sdate] == nil ) then
					DBCC_200905[snomserveur][sdate] = {};
				end
				if ( DBCC_200905[snomserveur][sdate][slead] == nil ) then
					DBCC_200905[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200905[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200905[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200905[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200905[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200905[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200904" ) then
--TraceFrame:AddMessage("mis ds 200904");
			if ( DBCS_loaded_addon("DBCC_200904") == 1 ) then
				if ( DBCC_200904[snomserveur] == nil ) then
					DBCC_200904[snomserveur] = {};
				end
				if ( DBCC_200904[snomserveur][sdate] == nil ) then
					DBCC_200904[snomserveur][sdate] = {};
				end
				if ( DBCC_200904[snomserveur][sdate][slead] == nil ) then
					DBCC_200904[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200904[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200904[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200904[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200904[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200904[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200903" ) then
--TraceFrame:AddMessage("mis ds 200903");
			if ( DBCS_loaded_addon("DBCC_200903") == 1 ) then
				if ( DBCC_200903[snomserveur] == nil ) then
					DBCC_200903[snomserveur] = {};
				end
				if ( DBCC_200903[snomserveur][sdate] == nil ) then
					DBCC_200903[snomserveur][sdate] = {};
				end
				if ( DBCC_200903[snomserveur][sdate][slead] == nil ) then
					DBCC_200903[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200903[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200903[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200903[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200903[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200903[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200902" ) then
--TraceFrame:AddMessage("mis ds 200902");
			if ( DBCS_loaded_addon("DBCC_200902") == 1 ) then
				if ( DBCC_200902[snomserveur] == nil ) then
					DBCC_200902[snomserveur] = {};
				end
				if ( DBCC_200902[snomserveur][sdate] == nil ) then
					DBCC_200902[snomserveur][sdate] = {};
				end
				if ( DBCC_200902[snomserveur][sdate][slead] == nil ) then
					DBCC_200902[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200902[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200902[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200902[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200902[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200902[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200901" ) then
--TraceFrame:AddMessage("mis ds 200901");
			if ( DBCS_loaded_addon("DBCC_200901") == 1 ) then
				if ( DBCC_200901[snomserveur] == nil ) then
					DBCC_200901[snomserveur] = {};
				end
				if ( DBCC_200901[snomserveur][sdate] == nil ) then
					DBCC_200901[snomserveur][sdate] = {};
				end
				if ( DBCC_200901[snomserveur][sdate][slead] == nil ) then
					DBCC_200901[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200901[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200901[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200901[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200901[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200901[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200812" ) then
--TraceFrame:AddMessage("mis ds 200812");
			if ( DBCS_loaded_addon("DBCC_200812") == 1 ) then
				if ( DBCC_200812[snomserveur] == nil ) then
					DBCC_200812[snomserveur] = {};
				end
				if ( DBCC_200812[snomserveur][sdate] == nil ) then
					DBCC_200812[snomserveur][sdate] = {};
				end
				if ( DBCC_200812[snomserveur][sdate][slead] == nil ) then
					DBCC_200812[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200812[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200812[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200812[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200812[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200812[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200811" ) then
--TraceFrame:AddMessage("mis ds 200811");
			if ( DBCS_loaded_addon("DBCC_200811") == 1 ) then
				if ( DBCC_200811[snomserveur] == nil ) then
					DBCC_200811[snomserveur] = {};
				end
				if ( DBCC_200811[snomserveur][sdate] == nil ) then
					DBCC_200811[snomserveur][sdate] = {};
				end
				if ( DBCC_200811[snomserveur][sdate][slead] == nil ) then
					DBCC_200811[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200811[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200811[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200811[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200811[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200811[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200810" ) then
--TraceFrame:AddMessage("mis ds 200810");
			if ( DBCS_loaded_addon("DBCC_200810") == 1 ) then
				if ( DBCC_200810[snomserveur] == nil ) then
					DBCC_200810[snomserveur] = {};
				end
				if ( DBCC_200810[snomserveur][sdate] == nil ) then
					DBCC_200810[snomserveur][sdate] = {};
				end
				if ( DBCC_200810[snomserveur][sdate][slead] == nil ) then
					DBCC_200810[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200810[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200810[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200810[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200810[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200810[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200809" ) then
--TraceFrame:AddMessage("mis ds 200809");
			if ( DBCS_loaded_addon("DBCC_200809") == 1 ) then
				if ( DBCC_200809[snomserveur] == nil ) then
					DBCC_200809[snomserveur] = {};
				end
				if ( DBCC_200809[snomserveur][sdate] == nil ) then
					DBCC_200809[snomserveur][sdate] = {};
				end
				if ( DBCC_200809[snomserveur][sdate][slead] == nil ) then
					DBCC_200809[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200809[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200809[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200809[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200809[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200809[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200808" ) then
--TraceFrame:AddMessage("mis ds 200808");
			if ( DBCS_loaded_addon("DBCC_200808") == 1 ) then
				if ( DBCC_200808[snomserveur] == nil ) then
					DBCC_200808[snomserveur] = {};
				end
				if ( DBCC_200808[snomserveur][sdate] == nil ) then
					DBCC_200808[snomserveur][sdate] = {};
				end
				if ( DBCC_200808[snomserveur][sdate][slead] == nil ) then
					DBCC_200808[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200808[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200808[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200808[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200808[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200808[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200807" ) then
--TraceFrame:AddMessage("mis ds 200807");
			if ( DBCS_loaded_addon("DBCC_200807") == 1 ) then
				if ( DBCC_200807[snomserveur] == nil ) then
					DBCC_200807[snomserveur] = {};
				end
				if ( DBCC_200807[snomserveur][sdate] == nil ) then
					DBCC_200807[snomserveur][sdate] = {};
				end
				if ( DBCC_200807[snomserveur][sdate][slead] == nil ) then
					DBCC_200807[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200807[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200807[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200807[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200807[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200807[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200806" ) then
--TraceFrame:AddMessage("mis ds 200806");
			if ( DBCS_loaded_addon("DBCC_200806") == 1 ) then
				if ( DBCC_200806[snomserveur] == nil ) then
					DBCC_200806[snomserveur] = {};
				end
				if ( DBCC_200806[snomserveur][sdate] == nil ) then
					DBCC_200806[snomserveur][sdate] = {};
				end
				if ( DBCC_200806[snomserveur][sdate][slead] == nil ) then
					DBCC_200806[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200806[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200806[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200806[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200806[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200806[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200805" ) then
--TraceFrame:AddMessage("mis ds 200805");
			if ( DBCS_loaded_addon("DBCC_200805") == 1 ) then
				if ( DBCC_200805[snomserveur] == nil ) then
					DBCC_200805[snomserveur] = {};
				end
				if ( DBCC_200805[snomserveur][sdate] == nil ) then
					DBCC_200805[snomserveur][sdate] = {};
				end
				if ( DBCC_200805[snomserveur][sdate][slead] == nil ) then
					DBCC_200805[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200805[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200805[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200805[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200805[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200805[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200804" ) then
--TraceFrame:AddMessage("mis ds 200804");
			if ( DBCS_loaded_addon("DBCC_200804") == 1 ) then
				if ( DBCC_200804[snomserveur] == nil ) then
					DBCC_200804[snomserveur] = {};
				end
				if ( DBCC_200804[snomserveur][sdate] == nil ) then
					DBCC_200804[snomserveur][sdate] = {};
				end
				if ( DBCC_200804[snomserveur][sdate][slead] == nil ) then
					DBCC_200804[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200804[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200804[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200804[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200804[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200804[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200803" ) then
--TraceFrame:AddMessage("mis ds 200803");
			if ( DBCS_loaded_addon("DBCC_200803") == 1 ) then
				if ( DBCC_200803[snomserveur] == nil ) then
					DBCC_200803[snomserveur] = {};
				end
				if ( DBCC_200803[snomserveur][sdate] == nil ) then
					DBCC_200803[snomserveur][sdate] = {};
				end
				if ( DBCC_200803[snomserveur][sdate][slead] == nil ) then
					DBCC_200803[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200803[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200803[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200803[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200803[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200803[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200802" ) then
--TraceFrame:AddMessage("mis ds 200802");
			if ( DBCS_loaded_addon("DBCC_200802") == 1 ) then
				if ( DBCC_200802[snomserveur] == nil ) then
					DBCC_200802[snomserveur] = {};
				end
				if ( DBCC_200802[snomserveur][sdate] == nil ) then
					DBCC_200802[snomserveur][sdate] = {};
				end
				if ( DBCC_200802[snomserveur][sdate][slead] == nil ) then
					DBCC_200802[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200802[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200802[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200802[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200802[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200802[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200801" ) then
--TraceFrame:AddMessage("mis ds 200801");
			if ( DBCS_loaded_addon("DBCC_200801") == 1 ) then
				if ( DBCC_200801[snomserveur] == nil ) then
					DBCC_200801[snomserveur] = {};
				end
				if ( DBCC_200801[snomserveur][sdate] == nil ) then
					DBCC_200801[snomserveur][sdate] = {};
				end
				if ( DBCC_200801[snomserveur][sdate][slead] == nil ) then
					DBCC_200801[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200801[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200801[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200801[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200801[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200801[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200712" ) then
--TraceFrame:AddMessage("mis ds 200712");
			if ( DBCS_loaded_addon("DBCC_200712") == 1 ) then
				if ( DBCC_200712[snomserveur] == nil ) then
					DBCC_200712[snomserveur] = {};
				end
				if ( DBCC_200712[snomserveur][sdate] == nil ) then
					DBCC_200712[snomserveur][sdate] = {};
				end
				if ( DBCC_200712[snomserveur][sdate][slead] == nil ) then
					DBCC_200712[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200712[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200712[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200712[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200712[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200712[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200711" ) then
--TraceFrame:AddMessage("mis ds 200711");
			if ( DBCS_loaded_addon("DBCC_200711") == 1 ) then
				if ( DBCC_200711[snomserveur] == nil ) then
					DBCC_200711[snomserveur] = {};
				end
				if ( DBCC_200711[snomserveur][sdate] == nil ) then
					DBCC_200711[snomserveur][sdate] = {};
				end
				if ( DBCC_200711[snomserveur][sdate][slead] == nil ) then
					DBCC_200711[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200711[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200711[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200711[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200711[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200711[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200710" ) then
--TraceFrame:AddMessage("mis ds 200710");
			if ( DBCS_loaded_addon("DBCC_200710") == 1 ) then
				if ( DBCC_200710[snomserveur] == nil ) then
					DBCC_200710[snomserveur] = {};
				end
				if ( DBCC_200710[snomserveur][sdate] == nil ) then
					DBCC_200710[snomserveur][sdate] = {};
				end
				if ( DBCC_200710[snomserveur][sdate][slead] == nil ) then
					DBCC_200710[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200710[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200710[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200710[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200710[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200710[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200709" ) then
--TraceFrame:AddMessage("mis ds 200709");
			if ( DBCS_loaded_addon("DBCC_200709") == 1 ) then
				if ( DBCC_200709[snomserveur] == nil ) then
					DBCC_200709[snomserveur] = {};
				end
				if ( DBCC_200709[snomserveur][sdate] == nil ) then
					DBCC_200709[snomserveur][sdate] = {};
				end
				if ( DBCC_200709[snomserveur][sdate][slead] == nil ) then
					DBCC_200709[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200709[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200709[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200709[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200709[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200709[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200708" ) then
--TraceFrame:AddMessage("mis ds 200708");
			if ( DBCS_loaded_addon("DBCC_200708") == 1 ) then
				if ( DBCC_200708[snomserveur] == nil ) then
					DBCC_200708[snomserveur] = {};
				end
				if ( DBCC_200708[snomserveur][sdate] == nil ) then
					DBCC_200708[snomserveur][sdate] = {};
				end
				if ( DBCC_200708[snomserveur][sdate][slead] == nil ) then
					DBCC_200708[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200708[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200708[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200708[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200708[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200708[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200707" ) then
--TraceFrame:AddMessage("mis ds 200707");
			if ( DBCS_loaded_addon("DBCC_200707") == 1 ) then
				if ( DBCC_200707[snomserveur] == nil ) then
					DBCC_200707[snomserveur] = {};
				end
				if ( DBCC_200707[snomserveur][sdate] == nil ) then
					DBCC_200707[snomserveur][sdate] = {};
				end
				if ( DBCC_200707[snomserveur][sdate][slead] == nil ) then
					DBCC_200707[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200707[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200707[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200707[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200707[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200707[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200706" ) then
--TraceFrame:AddMessage("mis ds 200706");
			if ( DBCS_loaded_addon("DBCC_200706") == 1 ) then
				if ( DBCC_200706[snomserveur] == nil ) then
					DBCC_200706[snomserveur] = {};
				end
				if ( DBCC_200706[snomserveur][sdate] == nil ) then
					DBCC_200706[snomserveur][sdate] = {};
				end
				if ( DBCC_200706[snomserveur][sdate][slead] == nil ) then
					DBCC_200706[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200706[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200706[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200706[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200706[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200706[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		elseif ( smois == "200705" ) then
--TraceFrame:AddMessage("mis ds 200705");
			if ( DBCS_loaded_addon("DBCC_200705") == 1 ) then
				if ( DBCC_200705[snomserveur] == nil ) then
					DBCC_200705[snomserveur] = {};
				end
				if ( DBCC_200705[snomserveur][sdate] == nil ) then
					DBCC_200705[snomserveur][sdate] = {};
				end
				if ( DBCC_200705[snomserveur][sdate][slead] == nil ) then
					DBCC_200705[snomserveur][sdate][slead] = {};
				end
				if ( DBCC_200705[snomserveur][sdate][slead][stime] == nil ) then
					DBCC_200705[snomserveur][sdate][slead][stime] = {};
				end
				DBCC_200705[snomserveur][sdate][slead][stime][-2] = slangue;
				DBCC_200705[snomserveur][sdate][slead][stime][-1] = "CA02";
				DBCC_200705[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
			end
		else
			if ( DBCC[snomserveur] == nil ) then
				DBCC[snomserveur] = {};
			end
			if ( DBCC[snomserveur][sdate] == nil ) then
				DBCC[snomserveur][sdate] = {};
			end
			if ( DBCC[snomserveur][sdate][slead] == nil ) then
				DBCC[snomserveur][sdate][slead] = {};
			end
			if ( DBCC[snomserveur][sdate][slead][stime] == nil ) then
				DBCC[snomserveur][sdate][slead][stime] = {};
			end
			DBCC[snomserveur][sdate][slead][stime][-2] = slangue;
			DBCC[snomserveur][sdate][slead][stime][-1] = "CA02";
			DBCC[snomserveur][sdate][slead][stime][0] = snommob.."@"..snumregion.."@"..x.."@"..y.."@"..iniv.."@"..sclasse.."@"..sfamille.."@"..stype.."@"..splusmob.."@"..inbcorp.."@"..inbskin.."@"..inbloot.."@";
		end
	end
	DBcorps_ajoutcorp2(sdate,slead,stime,snomserveur,bcopie);

end

function DBcorps_ajoutcorp2(sdate,slead,stime,nomserveur,bcopie)

local ideb,ifin;
local snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot;
local slangue;
local ibon;
local i;
local senreg;
local inumobjet,snumcourt2,inb;
local smessage;
local tablo;

local snomserveur;
local smois;
local bbcopie;

	if ( nomserveur ) then
		snomserveur = nomserveur;
	else
		snomserveur = DBCS_serveur;
	end
	if ( bcopie ) then
		bbcopie = bcopie
	else
		bbcopie = 0;
	end

	tablo = nil;
	if ( DBCS_prog_serveur == 0 ) then
		if ( DBCC[snomserveur] ) then
			if ( DBCC[snomserveur][sdate] ) then
				if ( DBCC[snomserveur][sdate][slead] ) then
					if ( DBCC[snomserveur][sdate][slead][stime] ) then
						tablo = DBCC[snomserveur][sdate][slead][stime];
					end
				end
			end
		end
	else
		smois = strsub(sdate,1,6);
		if ( smois == "201305" ) then
			if ( DBCS_loaded_addon("DBCC_201305") == 1 ) then
				if ( DBCC_201305[snomserveur] ) then
					if ( DBCC_201305[snomserveur][sdate] ) then
						if ( DBCC_201305[snomserveur][sdate][slead] ) then
							if ( DBCC_201305[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201305[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201304" ) then
			if ( DBCS_loaded_addon("DBCC_201304") == 1 ) then
				if ( DBCC_201304[snomserveur] ) then
					if ( DBCC_201304[snomserveur][sdate] ) then
						if ( DBCC_201304[snomserveur][sdate][slead] ) then
							if ( DBCC_201304[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201304[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201303" ) then
			if ( DBCS_loaded_addon("DBCC_201303") == 1 ) then
				if ( DBCC_201303[snomserveur] ) then
					if ( DBCC_201303[snomserveur][sdate] ) then
						if ( DBCC_201303[snomserveur][sdate][slead] ) then
							if ( DBCC_201303[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201303[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201302" ) then
			if ( DBCS_loaded_addon("DBCC_201302") == 1 ) then
				if ( DBCC_201302[snomserveur] ) then
					if ( DBCC_201302[snomserveur][sdate] ) then
						if ( DBCC_201302[snomserveur][sdate][slead] ) then
							if ( DBCC_201302[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201302[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201301" ) then
			if ( DBCS_loaded_addon("DBCC_201301") == 1 ) then
				if ( DBCC_201301[snomserveur] ) then
					if ( DBCC_201301[snomserveur][sdate] ) then
						if ( DBCC_201301[snomserveur][sdate][slead] ) then
							if ( DBCC_201301[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201301[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201212" ) then
			if ( DBCS_loaded_addon("DBCC_201212") == 1 ) then
				if ( DBCC_201212[snomserveur] ) then
					if ( DBCC_201212[snomserveur][sdate] ) then
						if ( DBCC_201212[snomserveur][sdate][slead] ) then
							if ( DBCC_201212[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201212[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201211" ) then
			if ( DBCS_loaded_addon("DBCC_201211") == 1 ) then
				if ( DBCC_201211[snomserveur] ) then
					if ( DBCC_201211[snomserveur][sdate] ) then
						if ( DBCC_201211[snomserveur][sdate][slead] ) then
							if ( DBCC_201211[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201211[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201210" ) then
			if ( DBCS_loaded_addon("DBCC_201210") == 1 ) then
				if ( DBCC_201210[snomserveur] ) then
					if ( DBCC_201210[snomserveur][sdate] ) then
						if ( DBCC_201210[snomserveur][sdate][slead] ) then
							if ( DBCC_201210[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201210[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201209" ) then
			if ( DBCS_loaded_addon("DBCC_201209") == 1 ) then
				if ( DBCC_201209[snomserveur] ) then
					if ( DBCC_201209[snomserveur][sdate] ) then
						if ( DBCC_201209[snomserveur][sdate][slead] ) then
							if ( DBCC_201209[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201209[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201208" ) then
			if ( DBCS_loaded_addon("DBCC_201208") == 1 ) then
				if ( DBCC_201208[snomserveur] ) then
					if ( DBCC_201208[snomserveur][sdate] ) then
						if ( DBCC_201208[snomserveur][sdate][slead] ) then
							if ( DBCC_201208[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201208[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201207" ) then
			if ( DBCS_loaded_addon("DBCC_201207") == 1 ) then
				if ( DBCC_201207[snomserveur] ) then
					if ( DBCC_201207[snomserveur][sdate] ) then
						if ( DBCC_201207[snomserveur][sdate][slead] ) then
							if ( DBCC_201207[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201207[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201206" ) then
			if ( DBCS_loaded_addon("DBCC_201206") == 1 ) then
				if ( DBCC_201206[snomserveur] ) then
					if ( DBCC_201206[snomserveur][sdate] ) then
						if ( DBCC_201206[snomserveur][sdate][slead] ) then
							if ( DBCC_201206[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201206[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201205" ) then
			if ( DBCS_loaded_addon("DBCC_201205") == 1 ) then
				if ( DBCC_201205[snomserveur] ) then
					if ( DBCC_201205[snomserveur][sdate] ) then
						if ( DBCC_201205[snomserveur][sdate][slead] ) then
							if ( DBCC_201205[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201205[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201204" ) then
			if ( DBCS_loaded_addon("DBCC_201204") == 1 ) then
				if ( DBCC_201204[snomserveur] ) then
					if ( DBCC_201204[snomserveur][sdate] ) then
						if ( DBCC_201204[snomserveur][sdate][slead] ) then
							if ( DBCC_201204[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201204[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201203" ) then
			if ( DBCS_loaded_addon("DBCC_201203") == 1 ) then
				if ( DBCC_201203[snomserveur] ) then
					if ( DBCC_201203[snomserveur][sdate] ) then
						if ( DBCC_201203[snomserveur][sdate][slead] ) then
							if ( DBCC_201203[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201203[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201202" ) then
			if ( DBCS_loaded_addon("DBCC_201202") == 1 ) then
				if ( DBCC_201202[snomserveur] ) then
					if ( DBCC_201202[snomserveur][sdate] ) then
						if ( DBCC_201202[snomserveur][sdate][slead] ) then
							if ( DBCC_201202[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201202[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201201" ) then
			if ( DBCS_loaded_addon("DBCC_201201") == 1 ) then
				if ( DBCC_201201[snomserveur] ) then
					if ( DBCC_201201[snomserveur][sdate] ) then
						if ( DBCC_201201[snomserveur][sdate][slead] ) then
							if ( DBCC_201201[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201201[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201112" ) then
			if ( DBCS_loaded_addon("DBCC_201112") == 1 ) then
				if ( DBCC_201112[snomserveur] ) then
					if ( DBCC_201112[snomserveur][sdate] ) then
						if ( DBCC_201112[snomserveur][sdate][slead] ) then
							if ( DBCC_201112[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201112[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201111" ) then
			if ( DBCS_loaded_addon("DBCC_201111") == 1 ) then
				if ( DBCC_201111[snomserveur] ) then
					if ( DBCC_201111[snomserveur][sdate] ) then
						if ( DBCC_201111[snomserveur][sdate][slead] ) then
							if ( DBCC_201111[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201111[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201110" ) then
			if ( DBCS_loaded_addon("DBCC_201110") == 1 ) then
				if ( DBCC_201110[snomserveur] ) then
					if ( DBCC_201110[snomserveur][sdate] ) then
						if ( DBCC_201110[snomserveur][sdate][slead] ) then
							if ( DBCC_201110[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201110[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201109" ) then
			if ( DBCS_loaded_addon("DBCC_201109") == 1 ) then
				if ( DBCC_201109[snomserveur] ) then
					if ( DBCC_201109[snomserveur][sdate] ) then
						if ( DBCC_201109[snomserveur][sdate][slead] ) then
							if ( DBCC_201109[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201109[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201108" ) then
			if ( DBCS_loaded_addon("DBCC_201108") == 1 ) then
				if ( DBCC_201108[snomserveur] ) then
					if ( DBCC_201108[snomserveur][sdate] ) then
						if ( DBCC_201108[snomserveur][sdate][slead] ) then
							if ( DBCC_201108[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201108[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201107" ) then
			if ( DBCS_loaded_addon("DBCC_201107") == 1 ) then
				if ( DBCC_201107[snomserveur] ) then
					if ( DBCC_201107[snomserveur][sdate] ) then
						if ( DBCC_201107[snomserveur][sdate][slead] ) then
							if ( DBCC_201107[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201107[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201106" ) then
			if ( DBCS_loaded_addon("DBCC_201106") == 1 ) then
				if ( DBCC_201106[snomserveur] ) then
					if ( DBCC_201106[snomserveur][sdate] ) then
						if ( DBCC_201106[snomserveur][sdate][slead] ) then
							if ( DBCC_201106[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201106[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201105" ) then
			if ( DBCS_loaded_addon("DBCC_201105") == 1 ) then
				if ( DBCC_201105[snomserveur] ) then
					if ( DBCC_201105[snomserveur][sdate] ) then
						if ( DBCC_201105[snomserveur][sdate][slead] ) then
							if ( DBCC_201105[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201105[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201104" ) then
			if ( DBCS_loaded_addon("DBCC_201104") == 1 ) then
				if ( DBCC_201104[snomserveur] ) then
					if ( DBCC_201104[snomserveur][sdate] ) then
						if ( DBCC_201104[snomserveur][sdate][slead] ) then
							if ( DBCC_201104[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201104[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201103" ) then
			if ( DBCS_loaded_addon("DBCC_201103") == 1 ) then
				if ( DBCC_201103[snomserveur] ) then
					if ( DBCC_201103[snomserveur][sdate] ) then
						if ( DBCC_201103[snomserveur][sdate][slead] ) then
							if ( DBCC_201103[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201103[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201102" ) then
			if ( DBCS_loaded_addon("DBCC_201102") == 1 ) then
				if ( DBCC_201102[snomserveur] ) then
					if ( DBCC_201102[snomserveur][sdate] ) then
						if ( DBCC_201102[snomserveur][sdate][slead] ) then
							if ( DBCC_201102[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201102[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201101" ) then
			if ( DBCS_loaded_addon("DBCC_201101") == 1 ) then
				if ( DBCC_201101[snomserveur] ) then
					if ( DBCC_201101[snomserveur][sdate] ) then
						if ( DBCC_201101[snomserveur][sdate][slead] ) then
							if ( DBCC_201101[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201101[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201012" ) then
			if ( DBCS_loaded_addon("DBCC_201012") == 1 ) then
				if ( DBCC_201012[snomserveur] ) then
					if ( DBCC_201012[snomserveur][sdate] ) then
						if ( DBCC_201012[snomserveur][sdate][slead] ) then
							if ( DBCC_201012[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201012[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201011" ) then
			if ( DBCS_loaded_addon("DBCC_201011") == 1 ) then
				if ( DBCC_201011[snomserveur] ) then
					if ( DBCC_201011[snomserveur][sdate] ) then
						if ( DBCC_201011[snomserveur][sdate][slead] ) then
							if ( DBCC_201011[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201011[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201010" ) then
			if ( DBCS_loaded_addon("DBCC_201010") == 1 ) then
				if ( DBCC_201010[snomserveur] ) then
					if ( DBCC_201010[snomserveur][sdate] ) then
						if ( DBCC_201010[snomserveur][sdate][slead] ) then
							if ( DBCC_201010[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201010[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201009" ) then
			if ( DBCS_loaded_addon("DBCC_201009") == 1 ) then
				if ( DBCC_201009[snomserveur] ) then
					if ( DBCC_201009[snomserveur][sdate] ) then
						if ( DBCC_201009[snomserveur][sdate][slead] ) then
							if ( DBCC_201009[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201009[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201008" ) then
			if ( DBCS_loaded_addon("DBCC_201008") == 1 ) then
				if ( DBCC_201008[snomserveur] ) then
					if ( DBCC_201008[snomserveur][sdate] ) then
						if ( DBCC_201008[snomserveur][sdate][slead] ) then
							if ( DBCC_201008[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201008[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201007" ) then
			if ( DBCS_loaded_addon("DBCC_201007") == 1 ) then
				if ( DBCC_201007[snomserveur] ) then
					if ( DBCC_201007[snomserveur][sdate] ) then
						if ( DBCC_201007[snomserveur][sdate][slead] ) then
							if ( DBCC_201007[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201007[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201006" ) then
			if ( DBCS_loaded_addon("DBCC_201006") == 1 ) then
				if ( DBCC_201006[snomserveur] ) then
					if ( DBCC_201006[snomserveur][sdate] ) then
						if ( DBCC_201006[snomserveur][sdate][slead] ) then
							if ( DBCC_201006[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201006[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201005" ) then
			if ( DBCS_loaded_addon("DBCC_201005") == 1 ) then
				if ( DBCC_201005[snomserveur] ) then
					if ( DBCC_201005[snomserveur][sdate] ) then
						if ( DBCC_201005[snomserveur][sdate][slead] ) then
							if ( DBCC_201005[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201005[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201004" ) then
			if ( DBCS_loaded_addon("DBCC_201004") == 1 ) then
				if ( DBCC_201004[snomserveur] ) then
					if ( DBCC_201004[snomserveur][sdate] ) then
						if ( DBCC_201004[snomserveur][sdate][slead] ) then
							if ( DBCC_201004[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201004[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201003" ) then
			if ( DBCS_loaded_addon("DBCC_201003") == 1 ) then
				if ( DBCC_201003[snomserveur] ) then
					if ( DBCC_201003[snomserveur][sdate] ) then
						if ( DBCC_201003[snomserveur][sdate][slead] ) then
							if ( DBCC_201003[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201003[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201002" ) then
			if ( DBCS_loaded_addon("DBCC_201002") == 1 ) then
				if ( DBCC_201002[snomserveur] ) then
					if ( DBCC_201002[snomserveur][sdate] ) then
						if ( DBCC_201002[snomserveur][sdate][slead] ) then
							if ( DBCC_201002[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201002[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "201001" ) then
			if ( DBCS_loaded_addon("DBCC_201001") == 1 ) then
				if ( DBCC_201001[snomserveur] ) then
					if ( DBCC_201001[snomserveur][sdate] ) then
						if ( DBCC_201001[snomserveur][sdate][slead] ) then
							if ( DBCC_201001[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_201001[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200912" ) then
			if ( DBCS_loaded_addon("DBCC_200912") == 1 ) then
				if ( DBCC_200912[snomserveur] ) then
					if ( DBCC_200912[snomserveur][sdate] ) then
						if ( DBCC_200912[snomserveur][sdate][slead] ) then
							if ( DBCC_200912[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200912[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200911" ) then
			if ( DBCS_loaded_addon("DBCC_200911") == 1 ) then
				if ( DBCC_200911[snomserveur] ) then
					if ( DBCC_200911[snomserveur][sdate] ) then
						if ( DBCC_200911[snomserveur][sdate][slead] ) then
							if ( DBCC_200911[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200911[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200910" ) then
			if ( DBCS_loaded_addon("DBCC_200910") == 1 ) then
				if ( DBCC_200910[snomserveur] ) then
					if ( DBCC_200910[snomserveur][sdate] ) then
						if ( DBCC_200910[snomserveur][sdate][slead] ) then
							if ( DBCC_200910[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200910[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200909" ) then
			if ( DBCS_loaded_addon("DBCC_200909") == 1 ) then
				if ( DBCC_200909[snomserveur] ) then
					if ( DBCC_200909[snomserveur][sdate] ) then
						if ( DBCC_200909[snomserveur][sdate][slead] ) then
							if ( DBCC_200909[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200909[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200908" ) then
			if ( DBCS_loaded_addon("DBCC_200908") == 1 ) then
				if ( DBCC_200908[snomserveur] ) then
					if ( DBCC_200908[snomserveur][sdate] ) then
						if ( DBCC_200908[snomserveur][sdate][slead] ) then
							if ( DBCC_200908[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200908[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200907" ) then
			if ( DBCS_loaded_addon("DBCC_200907") == 1 ) then
				if ( DBCC_200907[snomserveur] ) then
					if ( DBCC_200907[snomserveur][sdate] ) then
						if ( DBCC_200907[snomserveur][sdate][slead] ) then
							if ( DBCC_200907[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200907[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200906" ) then
			if ( DBCS_loaded_addon("DBCC_200906") == 1 ) then
				if ( DBCC_200906[snomserveur] ) then
					if ( DBCC_200906[snomserveur][sdate] ) then
						if ( DBCC_200906[snomserveur][sdate][slead] ) then
							if ( DBCC_200906[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200906[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200905" ) then
			if ( DBCS_loaded_addon("DBCC_200905") == 1 ) then
				if ( DBCC_200905[snomserveur] ) then
					if ( DBCC_200905[snomserveur][sdate] ) then
						if ( DBCC_200905[snomserveur][sdate][slead] ) then
							if ( DBCC_200905[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200905[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200904" ) then
			if ( DBCS_loaded_addon("DBCC_200904") == 1 ) then
				if ( DBCC_200904[snomserveur] ) then
					if ( DBCC_200904[snomserveur][sdate] ) then
						if ( DBCC_200904[snomserveur][sdate][slead] ) then
							if ( DBCC_200904[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200904[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200903" ) then
			if ( DBCS_loaded_addon("DBCC_200903") == 1 ) then
				if ( DBCC_200903[snomserveur] ) then
					if ( DBCC_200903[snomserveur][sdate] ) then
						if ( DBCC_200903[snomserveur][sdate][slead] ) then
							if ( DBCC_200903[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200903[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200902" ) then
			if ( DBCS_loaded_addon("DBCC_200902") == 1 ) then
				if ( DBCC_200902[snomserveur] ) then
					if ( DBCC_200902[snomserveur][sdate] ) then
						if ( DBCC_200902[snomserveur][sdate][slead] ) then
							if ( DBCC_200902[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200902[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200901" ) then
			if ( DBCS_loaded_addon("DBCC_200901") == 1 ) then
				if ( DBCC_200901[snomserveur] ) then
					if ( DBCC_200901[snomserveur][sdate] ) then
						if ( DBCC_200901[snomserveur][sdate][slead] ) then
							if ( DBCC_200901[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200901[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200812" ) then
			if ( DBCS_loaded_addon("DBCC_200812") == 1 ) then
				if ( DBCC_200812[snomserveur] ) then
					if ( DBCC_200812[snomserveur][sdate] ) then
						if ( DBCC_200812[snomserveur][sdate][slead] ) then
							if ( DBCC_200812[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200812[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200811" ) then
			if ( DBCS_loaded_addon("DBCC_200811") == 1 ) then
				if ( DBCC_200811[snomserveur] ) then
					if ( DBCC_200811[snomserveur][sdate] ) then
						if ( DBCC_200811[snomserveur][sdate][slead] ) then
							if ( DBCC_200811[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200811[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200810" ) then
			if ( DBCS_loaded_addon("DBCC_200810") == 1 ) then
				if ( DBCC_200810[snomserveur] ) then
					if ( DBCC_200810[snomserveur][sdate] ) then
						if ( DBCC_200810[snomserveur][sdate][slead] ) then
							if ( DBCC_200810[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200810[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200809" ) then
			if ( DBCS_loaded_addon("DBCC_200809") == 1 ) then
				if ( DBCC_200809[snomserveur] ) then
					if ( DBCC_200809[snomserveur][sdate] ) then
						if ( DBCC_200809[snomserveur][sdate][slead] ) then
							if ( DBCC_200809[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200809[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200808" ) then
			if ( DBCS_loaded_addon("DBCC_200808") == 1 ) then
				if ( DBCC_200808[snomserveur] ) then
					if ( DBCC_200808[snomserveur][sdate] ) then
						if ( DBCC_200808[snomserveur][sdate][slead] ) then
							if ( DBCC_200808[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200808[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200807" ) then
			if ( DBCS_loaded_addon("DBCC_200807") == 1 ) then
				if ( DBCC_200807[snomserveur] ) then
					if ( DBCC_200807[snomserveur][sdate] ) then
						if ( DBCC_200807[snomserveur][sdate][slead] ) then
							if ( DBCC_200807[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200807[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200806" ) then
			if ( DBCS_loaded_addon("DBCC_200806") == 1 ) then
				if ( DBCC_200806[snomserveur] ) then
					if ( DBCC_200806[snomserveur][sdate] ) then
						if ( DBCC_200806[snomserveur][sdate][slead] ) then
							if ( DBCC_200806[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200806[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200805" ) then
			if ( DBCS_loaded_addon("DBCC_200805") == 1 ) then
				if ( DBCC_200805[snomserveur] ) then
					if ( DBCC_200805[snomserveur][sdate] ) then
						if ( DBCC_200805[snomserveur][sdate][slead] ) then
							if ( DBCC_200805[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200805[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200804" ) then
			if ( DBCS_loaded_addon("DBCC_200804") == 1 ) then
				if ( DBCC_200804[snomserveur] ) then
					if ( DBCC_200804[snomserveur][sdate] ) then
						if ( DBCC_200804[snomserveur][sdate][slead] ) then
							if ( DBCC_200804[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200804[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200803" ) then
			if ( DBCS_loaded_addon("DBCC_200803") == 1 ) then
				if ( DBCC_200803[snomserveur] ) then
					if ( DBCC_200803[snomserveur][sdate] ) then
						if ( DBCC_200803[snomserveur][sdate][slead] ) then
							if ( DBCC_200803[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200803[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200802" ) then
			if ( DBCS_loaded_addon("DBCC_200802") == 1 ) then
				if ( DBCC_200802[snomserveur] ) then
					if ( DBCC_200802[snomserveur][sdate] ) then
						if ( DBCC_200802[snomserveur][sdate][slead] ) then
							if ( DBCC_200802[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200802[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200801" ) then
			if ( DBCS_loaded_addon("DBCC_200801") == 1 ) then
				if ( DBCC_200801[snomserveur] ) then
					if ( DBCC_200801[snomserveur][sdate] ) then
						if ( DBCC_200801[snomserveur][sdate][slead] ) then
							if ( DBCC_200801[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200801[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200712" ) then
			if ( DBCS_loaded_addon("DBCC_200712") == 1 ) then
				if ( DBCC_200712[snomserveur] ) then
					if ( DBCC_200712[snomserveur][sdate] ) then
						if ( DBCC_200712[snomserveur][sdate][slead] ) then
							if ( DBCC_200712[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200712[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200711" ) then
			if ( DBCS_loaded_addon("DBCC_200711") == 1 ) then
				if ( DBCC_200711[snomserveur] ) then
					if ( DBCC_200711[snomserveur][sdate] ) then
						if ( DBCC_200711[snomserveur][sdate][slead] ) then
							if ( DBCC_200711[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200711[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200710" ) then
			if ( DBCS_loaded_addon("DBCC_200710") == 1 ) then
				if ( DBCC_200710[snomserveur] ) then
					if ( DBCC_200710[snomserveur][sdate] ) then
						if ( DBCC_200710[snomserveur][sdate][slead] ) then
							if ( DBCC_200710[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200710[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200709" ) then
			if ( DBCS_loaded_addon("DBCC_200709") == 1 ) then
				if ( DBCC_200709[snomserveur] ) then
					if ( DBCC_200709[snomserveur][sdate] ) then
						if ( DBCC_200709[snomserveur][sdate][slead] ) then
							if ( DBCC_200709[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200709[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200708" ) then
			if ( DBCS_loaded_addon("DBCC_200708") == 1 ) then
				if ( DBCC_200708[snomserveur] ) then
					if ( DBCC_200708[snomserveur][sdate] ) then
						if ( DBCC_200708[snomserveur][sdate][slead] ) then
							if ( DBCC_200708[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200708[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200707" ) then
			if ( DBCS_loaded_addon("DBCC_200707") == 1 ) then
				if ( DBCC_200707[snomserveur] ) then
					if ( DBCC_200707[snomserveur][sdate] ) then
						if ( DBCC_200707[snomserveur][sdate][slead] ) then
							if ( DBCC_200707[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200707[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200706" ) then
			if ( DBCS_loaded_addon("DBCC_200706") == 1 ) then
				if ( DBCC_200706[snomserveur] ) then
					if ( DBCC_200706[snomserveur][sdate] ) then
						if ( DBCC_200706[snomserveur][sdate][slead] ) then
							if ( DBCC_200706[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200706[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		elseif ( smois == "200705" ) then
			if ( DBCS_loaded_addon("DBCC_200705") == 1 ) then
				if ( DBCC_200705[snomserveur] ) then
					if ( DBCC_200705[snomserveur][sdate] ) then
						if ( DBCC_200705[snomserveur][sdate][slead] ) then
							if ( DBCC_200705[snomserveur][sdate][slead][stime] ) then
								tablo = DBCC_200705[snomserveur][sdate][slead][stime];
							end
						end
					end
				end
			end
		else
			if ( DBCC[snomserveur] ) then
				if ( DBCC[snomserveur][sdate] ) then
					if ( DBCC[snomserveur][sdate][slead] ) then
						if ( DBCC[snomserveur][sdate][slead][stime] ) then
							tablo = DBCC[snomserveur][sdate][slead][stime];
						end
					end
				end
			end
		end
	end

	if ( tablo and tablo[0] ) then
		slangue = tablo[-2] or "frFR";
		senreg = tablo[0];
		ifin = 0;
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		snommob = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		snumregion = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		ix = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		iy = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		iniv = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		sclasse = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		sfamille = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		stype = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		splusmob = strsub(senreg,ideb,ifin-1);
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		inbcorp = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		inbskin = tonumber(strsub(senreg,ideb,ifin-1));
		ideb = ifin+1;
		ifin = strfind(senreg,"@",ideb);
		inbloot = tonumber(strsub(senreg,ideb,ifin-1));
		ibon = 1;
		for i = 1,inbloot do
			if ( tablo[i] == nil ) then
				ibon = 0;
			end
		end
		if ( ibon == 1 ) then
			if ( DBCS_ajout_enreg(snomserveur,sdate,slead,stime) == 1 ) then
				if ( snumregion == "000" ) then
					snumregion = DBmobs_region000(snommob,snumregion,iniv,sclasse,sfamille,stype,splusmob);
				end
				DBmobs_ajoutmob2(snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin);
				for i = 1,inbloot do
					senreg = tablo[i];
					ifin = 0;
					ideb = ifin+1;
					ifin = strfind(senreg,"@",ideb);
					inumobjet = tonumber(strsub(senreg,ideb,ifin-1));
					ideb = ifin+1;
					ifin = strfind(senreg,"@",ideb);
					snumcourt2 = strsub(senreg,ideb,ifin-1);
					ideb = ifin+1;
					ifin = strfind(senreg,"@",ideb);
					inb = tonumber(strsub(senreg,ideb,ifin-1));
					DBmobs_ajoutloot2(snommob,snumregion,inumobjet,snumcourt2,inb);
				end
if ( DBCS_debug > 1 and bbcopie == 0 ) then	--	and bmob == 1 
TraceFrame:AddMessage("cet enreg existe pas ds la base : "..snomserveur.." - "..sdate.." - "..slead.." - "..stime);
end
								-- envoyer la suppression de cet enreg ds les bases de sauvegarde des autres
				if ( DBCS_prog_serveur == 1 and DBcorps_recupenreg_ON and bbcopie == 0 ) then
					if ( DBCS_CMS_numcanalCMS > 0 ) then
						smessage = "@ADBCS@"..slangue.."@CS01@";	-- suppression du corp ds la sauvegarde
						smessage = smessage..snomserveur.."@"..sdate.."@"..slead.."@"..stime.."@";
						-- je n'envoi plus de demande de suppression d'enreg
						--DBCS_SendChatMessage(smessage,"CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
					end
				end
			else
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("cet enreg existe.");
--end
			end
		end
	end

end

function DBcorps_objet_prix(inumobjet,iprix)

	if ( DBCC[DBCS_serveur] == nil ) then
		DBCC[DBCS_serveur] = {};
	end
	if ( DBCC[DBCS_serveur]["OP"] == nil ) then -- prix objet
		DBCC[DBCS_serveur]["OP"] = {};
	end
	DBCC[DBCS_serveur]["OP"][inumobjet] = iprix;

end

function DBcorps_objet_coffre(inumobjet)

	if ( DBCC[DBCS_serveur] == nil ) then
		DBCC[DBCS_serveur] = {};
	end
	if ( DBCC[DBCS_serveur]["OC"] == nil ) then -- objet est 1 coffre
		DBCC[DBCS_serveur]["OC"] = {};
	end
	DBCC[DBCS_serveur]["OC"][inumobjet] = 1;

end

function DBcorps_objet_info(numcourt1,numcourt2,itemName,itemRarity,itemLevel,itemMinLevel,itemType,itemSubType,itemStackCount,itemEquipLoc,itemTexture)

	if ( DBCC[DBCS_serveur] == nil ) then
		DBCC[DBCS_serveur] = {};
	end
	if ( DBCC[DBCS_serveur]["OI2"] == nil ) then -- infos de base de l'objet
		DBCC[DBCS_serveur]["OI2"] = {};
	end
	--DBCC[DBCS_serveur]["OI2"][numcourt1..":"..numcourt2] = itemName.."@"..itemRarity.."@"..itemLevel.."@"..itemMinLevel.."@"..itemType.."@"..itemSubType.."@"..itemStackCount.."@"..itemEquipLoc.."@"..itemTexture;
	DBCC[DBCS_serveur]["OI2"][numcourt1] = itemName.."@"..itemRarity.."@"..itemLevel.."@"..itemMinLevel.."@"..itemType.."@"..itemSubType.."@"..itemStackCount.."@"..itemEquipLoc.."@"..itemTexture;

end

function DBCS_ajout_enreg(snomserveur,sdate,slead,stime) -- vérifier et ajouter l'enreg ds DBCS	,bmob

local ibon = 1;
--local senreg;
local smois;

	if ( DBCS_prog_serveur == 1 ) then

		smois = strsub(sdate,1,6);
		if ( smois == "201305" ) then
			if ( DBCS_loaded_addon("DBCS_201305") == 1 ) then
				if ( DBCS_201305[snomserveur] == nil ) then
					DBCS_201305[snomserveur] = {};
				end
				if ( DBCS_201305[snomserveur][sdate] == nil ) then
					DBCS_201305[snomserveur][sdate] = {};
				end
				if ( DBCS_201305[snomserveur][sdate][slead] == nil ) then
					DBCS_201305[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201305[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201305[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201304" ) then
			if ( DBCS_loaded_addon("DBCS_201304") == 1 ) then
				if ( DBCS_201304[snomserveur] == nil ) then
					DBCS_201304[snomserveur] = {};
				end
				if ( DBCS_201304[snomserveur][sdate] == nil ) then
					DBCS_201304[snomserveur][sdate] = {};
				end
				if ( DBCS_201304[snomserveur][sdate][slead] == nil ) then
					DBCS_201304[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201304[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201304[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201303" ) then
			if ( DBCS_loaded_addon("DBCS_201303") == 1 ) then
				if ( DBCS_201303[snomserveur] == nil ) then
					DBCS_201303[snomserveur] = {};
				end
				if ( DBCS_201303[snomserveur][sdate] == nil ) then
					DBCS_201303[snomserveur][sdate] = {};
				end
				if ( DBCS_201303[snomserveur][sdate][slead] == nil ) then
					DBCS_201303[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201303[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201303[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201302" ) then
			if ( DBCS_loaded_addon("DBCS_201302") == 1 ) then
				if ( DBCS_201302[snomserveur] == nil ) then
					DBCS_201302[snomserveur] = {};
				end
				if ( DBCS_201302[snomserveur][sdate] == nil ) then
					DBCS_201302[snomserveur][sdate] = {};
				end
				if ( DBCS_201302[snomserveur][sdate][slead] == nil ) then
					DBCS_201302[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201302[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201302[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201301" ) then
			if ( DBCS_loaded_addon("DBCS_201301") == 1 ) then
				if ( DBCS_201301[snomserveur] == nil ) then
					DBCS_201301[snomserveur] = {};
				end
				if ( DBCS_201301[snomserveur][sdate] == nil ) then
					DBCS_201301[snomserveur][sdate] = {};
				end
				if ( DBCS_201301[snomserveur][sdate][slead] == nil ) then
					DBCS_201301[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201301[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201301[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201212" ) then
			if ( DBCS_loaded_addon("DBCS_201212") == 1 ) then
				if ( DBCS_201212[snomserveur] == nil ) then
					DBCS_201212[snomserveur] = {};
				end
				if ( DBCS_201212[snomserveur][sdate] == nil ) then
					DBCS_201212[snomserveur][sdate] = {};
				end
				if ( DBCS_201212[snomserveur][sdate][slead] == nil ) then
					DBCS_201212[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201212[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201212[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201211" ) then
			if ( DBCS_loaded_addon("DBCS_201211") == 1 ) then
				if ( DBCS_201211[snomserveur] == nil ) then
					DBCS_201211[snomserveur] = {};
				end
				if ( DBCS_201211[snomserveur][sdate] == nil ) then
					DBCS_201211[snomserveur][sdate] = {};
				end
				if ( DBCS_201211[snomserveur][sdate][slead] == nil ) then
					DBCS_201211[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201211[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201211[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201210" ) then
			if ( DBCS_loaded_addon("DBCS_201210") == 1 ) then
				if ( DBCS_201210[snomserveur] == nil ) then
					DBCS_201210[snomserveur] = {};
				end
				if ( DBCS_201210[snomserveur][sdate] == nil ) then
					DBCS_201210[snomserveur][sdate] = {};
				end
				if ( DBCS_201210[snomserveur][sdate][slead] == nil ) then
					DBCS_201210[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201210[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201210[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201209" ) then
			if ( DBCS_loaded_addon("DBCS_201209") == 1 ) then
				if ( DBCS_201209[snomserveur] == nil ) then
					DBCS_201209[snomserveur] = {};
				end
				if ( DBCS_201209[snomserveur][sdate] == nil ) then
					DBCS_201209[snomserveur][sdate] = {};
				end
				if ( DBCS_201209[snomserveur][sdate][slead] == nil ) then
					DBCS_201209[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201209[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201209[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201208" ) then
			if ( DBCS_loaded_addon("DBCS_201208") == 1 ) then
				if ( DBCS_201208[snomserveur] == nil ) then
					DBCS_201208[snomserveur] = {};
				end
				if ( DBCS_201208[snomserveur][sdate] == nil ) then
					DBCS_201208[snomserveur][sdate] = {};
				end
				if ( DBCS_201208[snomserveur][sdate][slead] == nil ) then
					DBCS_201208[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201208[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201208[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201207" ) then
			if ( DBCS_loaded_addon("DBCS_201207") == 1 ) then
				if ( DBCS_201207[snomserveur] == nil ) then
					DBCS_201207[snomserveur] = {};
				end
				if ( DBCS_201207[snomserveur][sdate] == nil ) then
					DBCS_201207[snomserveur][sdate] = {};
				end
				if ( DBCS_201207[snomserveur][sdate][slead] == nil ) then
					DBCS_201207[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201207[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201207[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201206" ) then
			if ( DBCS_loaded_addon("DBCS_201206") == 1 ) then
				if ( DBCS_201206[snomserveur] == nil ) then
					DBCS_201206[snomserveur] = {};
				end
				if ( DBCS_201206[snomserveur][sdate] == nil ) then
					DBCS_201206[snomserveur][sdate] = {};
				end
				if ( DBCS_201206[snomserveur][sdate][slead] == nil ) then
					DBCS_201206[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201206[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201206[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201205" ) then
			if ( DBCS_loaded_addon("DBCS_201205") == 1 ) then
				if ( DBCS_201205[snomserveur] == nil ) then
					DBCS_201205[snomserveur] = {};
				end
				if ( DBCS_201205[snomserveur][sdate] == nil ) then
					DBCS_201205[snomserveur][sdate] = {};
				end
				if ( DBCS_201205[snomserveur][sdate][slead] == nil ) then
					DBCS_201205[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201205[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201205[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201204" ) then
			if ( DBCS_loaded_addon("DBCS_201204") == 1 ) then
				if ( DBCS_201204[snomserveur] == nil ) then
					DBCS_201204[snomserveur] = {};
				end
				if ( DBCS_201204[snomserveur][sdate] == nil ) then
					DBCS_201204[snomserveur][sdate] = {};
				end
				if ( DBCS_201204[snomserveur][sdate][slead] == nil ) then
					DBCS_201204[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201204[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201204[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201203" ) then
			if ( DBCS_loaded_addon("DBCS_201203") == 1 ) then
				if ( DBCS_201203[snomserveur] == nil ) then
					DBCS_201203[snomserveur] = {};
				end
				if ( DBCS_201203[snomserveur][sdate] == nil ) then
					DBCS_201203[snomserveur][sdate] = {};
				end
				if ( DBCS_201203[snomserveur][sdate][slead] == nil ) then
					DBCS_201203[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201203[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201203[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201202" ) then
			if ( DBCS_loaded_addon("DBCS_201202") == 1 ) then
				if ( DBCS_201202[snomserveur] == nil ) then
					DBCS_201202[snomserveur] = {};
				end
				if ( DBCS_201202[snomserveur][sdate] == nil ) then
					DBCS_201202[snomserveur][sdate] = {};
				end
				if ( DBCS_201202[snomserveur][sdate][slead] == nil ) then
					DBCS_201202[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201202[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201202[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201201" ) then
			if ( DBCS_loaded_addon("DBCS_201201") == 1 ) then
				if ( DBCS_201201[snomserveur] == nil ) then
					DBCS_201201[snomserveur] = {};
				end
				if ( DBCS_201201[snomserveur][sdate] == nil ) then
					DBCS_201201[snomserveur][sdate] = {};
				end
				if ( DBCS_201201[snomserveur][sdate][slead] == nil ) then
					DBCS_201201[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201201[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201201[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201112" ) then
			if ( DBCS_loaded_addon("DBCS_201112") == 1 ) then
				if ( DBCS_201112[snomserveur] == nil ) then
					DBCS_201112[snomserveur] = {};
				end
				if ( DBCS_201112[snomserveur][sdate] == nil ) then
					DBCS_201112[snomserveur][sdate] = {};
				end
				if ( DBCS_201112[snomserveur][sdate][slead] == nil ) then
					DBCS_201112[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201112[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201112[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201111" ) then
			if ( DBCS_loaded_addon("DBCS_201111") == 1 ) then
				if ( DBCS_201111[snomserveur] == nil ) then
					DBCS_201111[snomserveur] = {};
				end
				if ( DBCS_201111[snomserveur][sdate] == nil ) then
					DBCS_201111[snomserveur][sdate] = {};
				end
				if ( DBCS_201111[snomserveur][sdate][slead] == nil ) then
					DBCS_201111[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201111[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201111[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201110" ) then
			if ( DBCS_loaded_addon("DBCS_201110") == 1 ) then
				if ( DBCS_201110[snomserveur] == nil ) then
					DBCS_201110[snomserveur] = {};
				end
				if ( DBCS_201110[snomserveur][sdate] == nil ) then
					DBCS_201110[snomserveur][sdate] = {};
				end
				if ( DBCS_201110[snomserveur][sdate][slead] == nil ) then
					DBCS_201110[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201110[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201110[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201109" ) then
			if ( DBCS_loaded_addon("DBCS_201109") == 1 ) then
				if ( DBCS_201109[snomserveur] == nil ) then
					DBCS_201109[snomserveur] = {};
				end
				if ( DBCS_201109[snomserveur][sdate] == nil ) then
					DBCS_201109[snomserveur][sdate] = {};
				end
				if ( DBCS_201109[snomserveur][sdate][slead] == nil ) then
					DBCS_201109[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201109[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201109[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201108" ) then
			if ( DBCS_loaded_addon("DBCS_201108") == 1 ) then
				if ( DBCS_201108[snomserveur] == nil ) then
					DBCS_201108[snomserveur] = {};
				end
				if ( DBCS_201108[snomserveur][sdate] == nil ) then
					DBCS_201108[snomserveur][sdate] = {};
				end
				if ( DBCS_201108[snomserveur][sdate][slead] == nil ) then
					DBCS_201108[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201108[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201108[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201107" ) then
			if ( DBCS_loaded_addon("DBCS_201107") == 1 ) then
				if ( DBCS_201107[snomserveur] == nil ) then
					DBCS_201107[snomserveur] = {};
				end
				if ( DBCS_201107[snomserveur][sdate] == nil ) then
					DBCS_201107[snomserveur][sdate] = {};
				end
				if ( DBCS_201107[snomserveur][sdate][slead] == nil ) then
					DBCS_201107[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201107[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201107[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201106" ) then
			if ( DBCS_loaded_addon("DBCS_201106") == 1 ) then
				if ( DBCS_201106[snomserveur] == nil ) then
					DBCS_201106[snomserveur] = {};
				end
				if ( DBCS_201106[snomserveur][sdate] == nil ) then
					DBCS_201106[snomserveur][sdate] = {};
				end
				if ( DBCS_201106[snomserveur][sdate][slead] == nil ) then
					DBCS_201106[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201106[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201106[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201105" ) then
			if ( DBCS_loaded_addon("DBCS_201105") == 1 ) then
				if ( DBCS_201105[snomserveur] == nil ) then
					DBCS_201105[snomserveur] = {};
				end
				if ( DBCS_201105[snomserveur][sdate] == nil ) then
					DBCS_201105[snomserveur][sdate] = {};
				end
				if ( DBCS_201105[snomserveur][sdate][slead] == nil ) then
					DBCS_201105[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201105[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201105[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201104" ) then
			if ( DBCS_loaded_addon("DBCS_201104") == 1 ) then
				if ( DBCS_201104[snomserveur] == nil ) then
					DBCS_201104[snomserveur] = {};
				end
				if ( DBCS_201104[snomserveur][sdate] == nil ) then
					DBCS_201104[snomserveur][sdate] = {};
				end
				if ( DBCS_201104[snomserveur][sdate][slead] == nil ) then
					DBCS_201104[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201104[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201104[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201103" ) then
			if ( DBCS_loaded_addon("DBCS_201103") == 1 ) then
				if ( DBCS_201103[snomserveur] == nil ) then
					DBCS_201103[snomserveur] = {};
				end
				if ( DBCS_201103[snomserveur][sdate] == nil ) then
					DBCS_201103[snomserveur][sdate] = {};
				end
				if ( DBCS_201103[snomserveur][sdate][slead] == nil ) then
					DBCS_201103[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201103[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201103[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201102" ) then
			if ( DBCS_loaded_addon("DBCS_201102") == 1 ) then
				if ( DBCS_201102[snomserveur] == nil ) then
					DBCS_201102[snomserveur] = {};
				end
				if ( DBCS_201102[snomserveur][sdate] == nil ) then
					DBCS_201102[snomserveur][sdate] = {};
				end
				if ( DBCS_201102[snomserveur][sdate][slead] == nil ) then
					DBCS_201102[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201102[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201102[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201101" ) then
			if ( DBCS_loaded_addon("DBCS_201101") == 1 ) then
				if ( DBCS_201101[snomserveur] == nil ) then
					DBCS_201101[snomserveur] = {};
				end
				if ( DBCS_201101[snomserveur][sdate] == nil ) then
					DBCS_201101[snomserveur][sdate] = {};
				end
				if ( DBCS_201101[snomserveur][sdate][slead] == nil ) then
					DBCS_201101[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201101[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201101[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201012" ) then
			if ( DBCS_loaded_addon("DBCS_201012") == 1 ) then
				if ( DBCS_201012[snomserveur] == nil ) then
					DBCS_201012[snomserveur] = {};
				end
				if ( DBCS_201012[snomserveur][sdate] == nil ) then
					DBCS_201012[snomserveur][sdate] = {};
				end
				if ( DBCS_201012[snomserveur][sdate][slead] == nil ) then
					DBCS_201012[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201012[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201012[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201011" ) then
			if ( DBCS_loaded_addon("DBCS_201011") == 1 ) then
				if ( DBCS_201011[snomserveur] == nil ) then
					DBCS_201011[snomserveur] = {};
				end
				if ( DBCS_201011[snomserveur][sdate] == nil ) then
					DBCS_201011[snomserveur][sdate] = {};
				end
				if ( DBCS_201011[snomserveur][sdate][slead] == nil ) then
					DBCS_201011[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201011[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201011[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201010" ) then
			if ( DBCS_loaded_addon("DBCS_201010") == 1 ) then
				if ( DBCS_201010[snomserveur] == nil ) then
					DBCS_201010[snomserveur] = {};
				end
				if ( DBCS_201010[snomserveur][sdate] == nil ) then
					DBCS_201010[snomserveur][sdate] = {};
				end
				if ( DBCS_201010[snomserveur][sdate][slead] == nil ) then
					DBCS_201010[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201010[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201010[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201009" ) then
			if ( DBCS_loaded_addon("DBCS_201009") == 1 ) then
				if ( DBCS_201009[snomserveur] == nil ) then
					DBCS_201009[snomserveur] = {};
				end
				if ( DBCS_201009[snomserveur][sdate] == nil ) then
					DBCS_201009[snomserveur][sdate] = {};
				end
				if ( DBCS_201009[snomserveur][sdate][slead] == nil ) then
					DBCS_201009[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201009[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201009[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201008" ) then
			if ( DBCS_loaded_addon("DBCS_201008") == 1 ) then
				if ( DBCS_201008[snomserveur] == nil ) then
					DBCS_201008[snomserveur] = {};
				end
				if ( DBCS_201008[snomserveur][sdate] == nil ) then
					DBCS_201008[snomserveur][sdate] = {};
				end
				if ( DBCS_201008[snomserveur][sdate][slead] == nil ) then
					DBCS_201008[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201008[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201008[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201007" ) then
			if ( DBCS_loaded_addon("DBCS_201007") == 1 ) then
				if ( DBCS_201007[snomserveur] == nil ) then
					DBCS_201007[snomserveur] = {};
				end
				if ( DBCS_201007[snomserveur][sdate] == nil ) then
					DBCS_201007[snomserveur][sdate] = {};
				end
				if ( DBCS_201007[snomserveur][sdate][slead] == nil ) then
					DBCS_201007[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201007[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201007[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201006" ) then
			if ( DBCS_loaded_addon("DBCS_201006") == 1 ) then
				if ( DBCS_201006[snomserveur] == nil ) then
					DBCS_201006[snomserveur] = {};
				end
				if ( DBCS_201006[snomserveur][sdate] == nil ) then
					DBCS_201006[snomserveur][sdate] = {};
				end
				if ( DBCS_201006[snomserveur][sdate][slead] == nil ) then
					DBCS_201006[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201006[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201006[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201005" ) then
			if ( DBCS_loaded_addon("DBCS_201005") == 1 ) then
				if ( DBCS_201005[snomserveur] == nil ) then
					DBCS_201005[snomserveur] = {};
				end
				if ( DBCS_201005[snomserveur][sdate] == nil ) then
					DBCS_201005[snomserveur][sdate] = {};
				end
				if ( DBCS_201005[snomserveur][sdate][slead] == nil ) then
					DBCS_201005[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201005[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201005[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201004" ) then
			if ( DBCS_loaded_addon("DBCS_201004") == 1 ) then
				if ( DBCS_201004[snomserveur] == nil ) then
					DBCS_201004[snomserveur] = {};
				end
				if ( DBCS_201004[snomserveur][sdate] == nil ) then
					DBCS_201004[snomserveur][sdate] = {};
				end
				if ( DBCS_201004[snomserveur][sdate][slead] == nil ) then
					DBCS_201004[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201004[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201004[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201003" ) then
			if ( DBCS_loaded_addon("DBCS_201003") == 1 ) then
				if ( DBCS_201003[snomserveur] == nil ) then
					DBCS_201003[snomserveur] = {};
				end
				if ( DBCS_201003[snomserveur][sdate] == nil ) then
					DBCS_201003[snomserveur][sdate] = {};
				end
				if ( DBCS_201003[snomserveur][sdate][slead] == nil ) then
					DBCS_201003[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201003[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201003[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201002" ) then
			if ( DBCS_loaded_addon("DBCS_201002") == 1 ) then
				if ( DBCS_201002[snomserveur] == nil ) then
					DBCS_201002[snomserveur] = {};
				end
				if ( DBCS_201002[snomserveur][sdate] == nil ) then
					DBCS_201002[snomserveur][sdate] = {};
				end
				if ( DBCS_201002[snomserveur][sdate][slead] == nil ) then
					DBCS_201002[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201002[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201002[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "201001" ) then
			if ( DBCS_loaded_addon("DBCS_201001") == 1 ) then
				if ( DBCS_201001[snomserveur] == nil ) then
					DBCS_201001[snomserveur] = {};
				end
				if ( DBCS_201001[snomserveur][sdate] == nil ) then
					DBCS_201001[snomserveur][sdate] = {};
				end
				if ( DBCS_201001[snomserveur][sdate][slead] == nil ) then
					DBCS_201001[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_201001[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_201001[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200912" ) then
			if ( DBCS_loaded_addon("DBCS_200912") == 1 ) then
				if ( DBCS_200912[snomserveur] == nil ) then
					DBCS_200912[snomserveur] = {};
				end
				if ( DBCS_200912[snomserveur][sdate] == nil ) then
					DBCS_200912[snomserveur][sdate] = {};
				end
				if ( DBCS_200912[snomserveur][sdate][slead] == nil ) then
					DBCS_200912[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200912[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200912[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200911" ) then
			if ( DBCS_loaded_addon("DBCS_200911") == 1 ) then
				if ( DBCS_200911[snomserveur] == nil ) then
					DBCS_200911[snomserveur] = {};
				end
				if ( DBCS_200911[snomserveur][sdate] == nil ) then
					DBCS_200911[snomserveur][sdate] = {};
				end
				if ( DBCS_200911[snomserveur][sdate][slead] == nil ) then
					DBCS_200911[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200911[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200911[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200910" ) then
			if ( DBCS_loaded_addon("DBCS_200910") == 1 ) then
				if ( DBCS_200910[snomserveur] == nil ) then
					DBCS_200910[snomserveur] = {};
				end
				if ( DBCS_200910[snomserveur][sdate] == nil ) then
					DBCS_200910[snomserveur][sdate] = {};
				end
				if ( DBCS_200910[snomserveur][sdate][slead] == nil ) then
					DBCS_200910[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200910[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200910[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200909" ) then
			if ( DBCS_loaded_addon("DBCS_200909") == 1 ) then
				if ( DBCS_200909[snomserveur] == nil ) then
					DBCS_200909[snomserveur] = {};
				end
				if ( DBCS_200909[snomserveur][sdate] == nil ) then
					DBCS_200909[snomserveur][sdate] = {};
				end
				if ( DBCS_200909[snomserveur][sdate][slead] == nil ) then
					DBCS_200909[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200909[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200909[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200908" ) then
			if ( DBCS_loaded_addon("DBCS_200908") == 1 ) then
				if ( DBCS_200908[snomserveur] == nil ) then
					DBCS_200908[snomserveur] = {};
				end
				if ( DBCS_200908[snomserveur][sdate] == nil ) then
					DBCS_200908[snomserveur][sdate] = {};
				end
				if ( DBCS_200908[snomserveur][sdate][slead] == nil ) then
					DBCS_200908[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200908[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200908[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200907" ) then
			if ( DBCS_loaded_addon("DBCS_200907") == 1 ) then
				if ( DBCS_200907[snomserveur] == nil ) then
					DBCS_200907[snomserveur] = {};
				end
				if ( DBCS_200907[snomserveur][sdate] == nil ) then
					DBCS_200907[snomserveur][sdate] = {};
				end
				if ( DBCS_200907[snomserveur][sdate][slead] == nil ) then
					DBCS_200907[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200907[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200907[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200906" ) then
			if ( DBCS_loaded_addon("DBCS_200906") == 1 ) then
				if ( DBCS_200906[snomserveur] == nil ) then
					DBCS_200906[snomserveur] = {};
				end
				if ( DBCS_200906[snomserveur][sdate] == nil ) then
					DBCS_200906[snomserveur][sdate] = {};
				end
				if ( DBCS_200906[snomserveur][sdate][slead] == nil ) then
					DBCS_200906[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200906[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200906[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200905" ) then
			if ( DBCS_loaded_addon("DBCS_200905") == 1 ) then
				if ( DBCS_200905[snomserveur] == nil ) then
					DBCS_200905[snomserveur] = {};
				end
				if ( DBCS_200905[snomserveur][sdate] == nil ) then
					DBCS_200905[snomserveur][sdate] = {};
				end
				if ( DBCS_200905[snomserveur][sdate][slead] == nil ) then
					DBCS_200905[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200905[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200905[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200904" ) then
			if ( DBCS_loaded_addon("DBCS_200904") == 1 ) then
				if ( DBCS_200904[snomserveur] == nil ) then
					DBCS_200904[snomserveur] = {};
				end
				if ( DBCS_200904[snomserveur][sdate] == nil ) then
					DBCS_200904[snomserveur][sdate] = {};
				end
				if ( DBCS_200904[snomserveur][sdate][slead] == nil ) then
					DBCS_200904[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200904[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200904[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200903" ) then
			if ( DBCS_loaded_addon("DBCS_200903") == 1 ) then
				if ( DBCS_200903[snomserveur] == nil ) then
					DBCS_200903[snomserveur] = {};
				end
				if ( DBCS_200903[snomserveur][sdate] == nil ) then
					DBCS_200903[snomserveur][sdate] = {};
				end
				if ( DBCS_200903[snomserveur][sdate][slead] == nil ) then
					DBCS_200903[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200903[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200903[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200902" ) then
			if ( DBCS_loaded_addon("DBCS_200902") == 1 ) then
				if ( DBCS_200902[snomserveur] == nil ) then
					DBCS_200902[snomserveur] = {};
				end
				if ( DBCS_200902[snomserveur][sdate] == nil ) then
					DBCS_200902[snomserveur][sdate] = {};
				end
				if ( DBCS_200902[snomserveur][sdate][slead] == nil ) then
					DBCS_200902[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200902[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200902[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200901" ) then
			if ( DBCS_loaded_addon("DBCS_200901") == 1 ) then
				if ( DBCS_200901[snomserveur] == nil ) then
					DBCS_200901[snomserveur] = {};
				end
				if ( DBCS_200901[snomserveur][sdate] == nil ) then
					DBCS_200901[snomserveur][sdate] = {};
				end
				if ( DBCS_200901[snomserveur][sdate][slead] == nil ) then
					DBCS_200901[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200901[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200901[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200812" ) then
			if ( DBCS_loaded_addon("DBCS_200812") == 1 ) then
				if ( DBCS_200812[snomserveur] == nil ) then
					DBCS_200812[snomserveur] = {};
				end
				if ( DBCS_200812[snomserveur][sdate] == nil ) then
					DBCS_200812[snomserveur][sdate] = {};
				end
				if ( DBCS_200812[snomserveur][sdate][slead] == nil ) then
					DBCS_200812[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200812[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200812[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200811" ) then
			if ( DBCS_loaded_addon("DBCS_200811") == 1 ) then
				if ( DBCS_200811[snomserveur] == nil ) then
					DBCS_200811[snomserveur] = {};
				end
				if ( DBCS_200811[snomserveur][sdate] == nil ) then
					DBCS_200811[snomserveur][sdate] = {};
				end
				if ( DBCS_200811[snomserveur][sdate][slead] == nil ) then
					DBCS_200811[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200811[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200811[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200810" ) then
			if ( DBCS_loaded_addon("DBCS_200810") == 1 ) then
				if ( DBCS_200810[snomserveur] == nil ) then
					DBCS_200810[snomserveur] = {};
				end
				if ( DBCS_200810[snomserveur][sdate] == nil ) then
					DBCS_200810[snomserveur][sdate] = {};
				end
				if ( DBCS_200810[snomserveur][sdate][slead] == nil ) then
					DBCS_200810[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200810[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200810[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200809" ) then
			if ( DBCS_loaded_addon("DBCS_200809") == 1 ) then
				if ( DBCS_200809[snomserveur] == nil ) then
					DBCS_200809[snomserveur] = {};
				end
				if ( DBCS_200809[snomserveur][sdate] == nil ) then
					DBCS_200809[snomserveur][sdate] = {};
				end
				if ( DBCS_200809[snomserveur][sdate][slead] == nil ) then
					DBCS_200809[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200809[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200809[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200808" ) then
			if ( DBCS_loaded_addon("DBCS_200808") == 1 ) then
				if ( DBCS_200808[snomserveur] == nil ) then
					DBCS_200808[snomserveur] = {};
				end
				if ( DBCS_200808[snomserveur][sdate] == nil ) then
					DBCS_200808[snomserveur][sdate] = {};
				end
				if ( DBCS_200808[snomserveur][sdate][slead] == nil ) then
					DBCS_200808[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200808[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200808[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200807" ) then
			if ( DBCS_loaded_addon("DBCS_200807") == 1 ) then
				if ( DBCS_200807[snomserveur] == nil ) then
					DBCS_200807[snomserveur] = {};
				end
				if ( DBCS_200807[snomserveur][sdate] == nil ) then
					DBCS_200807[snomserveur][sdate] = {};
				end
				if ( DBCS_200807[snomserveur][sdate][slead] == nil ) then
					DBCS_200807[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200807[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200807[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200806" ) then
			if ( DBCS_loaded_addon("DBCS_200806") == 1 ) then
				if ( DBCS_200806[snomserveur] == nil ) then
					DBCS_200806[snomserveur] = {};
				end
				if ( DBCS_200806[snomserveur][sdate] == nil ) then
					DBCS_200806[snomserveur][sdate] = {};
				end
				if ( DBCS_200806[snomserveur][sdate][slead] == nil ) then
					DBCS_200806[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200806[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200806[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200805" ) then
			if ( DBCS_loaded_addon("DBCS_200805") == 1 ) then
				if ( DBCS_200805[snomserveur] == nil ) then
					DBCS_200805[snomserveur] = {};
				end
				if ( DBCS_200805[snomserveur][sdate] == nil ) then
					DBCS_200805[snomserveur][sdate] = {};
				end
				if ( DBCS_200805[snomserveur][sdate][slead] == nil ) then
					DBCS_200805[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200805[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200805[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200804" ) then
			if ( DBCS_loaded_addon("DBCS_200804") == 1 ) then
				if ( DBCS_200804[snomserveur] == nil ) then
					DBCS_200804[snomserveur] = {};
				end
				if ( DBCS_200804[snomserveur][sdate] == nil ) then
					DBCS_200804[snomserveur][sdate] = {};
				end
				if ( DBCS_200804[snomserveur][sdate][slead] == nil ) then
					DBCS_200804[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200804[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200804[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200803" ) then
			if ( DBCS_loaded_addon("DBCS_200803") == 1 ) then
				if ( DBCS_200803[snomserveur] == nil ) then
					DBCS_200803[snomserveur] = {};
				end
				if ( DBCS_200803[snomserveur][sdate] == nil ) then
					DBCS_200803[snomserveur][sdate] = {};
				end
				if ( DBCS_200803[snomserveur][sdate][slead] == nil ) then
					DBCS_200803[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200803[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200803[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200802" ) then
			if ( DBCS_loaded_addon("DBCS_200802") == 1 ) then
				if ( DBCS_200802[snomserveur] == nil ) then
					DBCS_200802[snomserveur] = {};
				end
				if ( DBCS_200802[snomserveur][sdate] == nil ) then
					DBCS_200802[snomserveur][sdate] = {};
				end
				if ( DBCS_200802[snomserveur][sdate][slead] == nil ) then
					DBCS_200802[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200802[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200802[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200801" ) then
			if ( DBCS_loaded_addon("DBCS_200801") == 1 ) then
				if ( DBCS_200801[snomserveur] == nil ) then
					DBCS_200801[snomserveur] = {};
				end
				if ( DBCS_200801[snomserveur][sdate] == nil ) then
					DBCS_200801[snomserveur][sdate] = {};
				end
				if ( DBCS_200801[snomserveur][sdate][slead] == nil ) then
					DBCS_200801[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200801[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200801[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200712" ) then
			if ( DBCS_loaded_addon("DBCS_200712") == 1 ) then
				if ( DBCS_200712[snomserveur] == nil ) then
					DBCS_200712[snomserveur] = {};
				end
				if ( DBCS_200712[snomserveur][sdate] == nil ) then
					DBCS_200712[snomserveur][sdate] = {};
				end
				if ( DBCS_200712[snomserveur][sdate][slead] == nil ) then
					DBCS_200712[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200712[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200712[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200711" ) then
			if ( DBCS_loaded_addon("DBCS_200711") == 1 ) then
				if ( DBCS_200711[snomserveur] == nil ) then
					DBCS_200711[snomserveur] = {};
				end
				if ( DBCS_200711[snomserveur][sdate] == nil ) then
					DBCS_200711[snomserveur][sdate] = {};
				end
				if ( DBCS_200711[snomserveur][sdate][slead] == nil ) then
					DBCS_200711[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200711[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200711[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200710" ) then
			if ( DBCS_loaded_addon("DBCS_200710") == 1 ) then
				if ( DBCS_200710[snomserveur] == nil ) then
					DBCS_200710[snomserveur] = {};
				end
				if ( DBCS_200710[snomserveur][sdate] == nil ) then
					DBCS_200710[snomserveur][sdate] = {};
				end
				if ( DBCS_200710[snomserveur][sdate][slead] == nil ) then
					DBCS_200710[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200710[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200710[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200709" ) then
			if ( DBCS_loaded_addon("DBCS_200709") == 1 ) then
				if ( DBCS_200709[snomserveur] == nil ) then
					DBCS_200709[snomserveur] = {};
				end
				if ( DBCS_200709[snomserveur][sdate] == nil ) then
					DBCS_200709[snomserveur][sdate] = {};
				end
				if ( DBCS_200709[snomserveur][sdate][slead] == nil ) then
					DBCS_200709[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200709[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200709[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200708" ) then
			if ( DBCS_loaded_addon("DBCS_200708") == 1 ) then
				if ( DBCS_200708[snomserveur] == nil ) then
					DBCS_200708[snomserveur] = {};
				end
				if ( DBCS_200708[snomserveur][sdate] == nil ) then
					DBCS_200708[snomserveur][sdate] = {};
				end
				if ( DBCS_200708[snomserveur][sdate][slead] == nil ) then
					DBCS_200708[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200708[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200708[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200707" ) then
			if ( DBCS_loaded_addon("DBCS_200707") == 1 ) then
				if ( DBCS_200707[snomserveur] == nil ) then
					DBCS_200707[snomserveur] = {};
				end
				if ( DBCS_200707[snomserveur][sdate] == nil ) then
					DBCS_200707[snomserveur][sdate] = {};
				end
				if ( DBCS_200707[snomserveur][sdate][slead] == nil ) then
					DBCS_200707[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200707[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200707[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200706" ) then
			if ( DBCS_loaded_addon("DBCS_200706") == 1 ) then
				if ( DBCS_200706[snomserveur] == nil ) then
					DBCS_200706[snomserveur] = {};
				end
				if ( DBCS_200706[snomserveur][sdate] == nil ) then
					DBCS_200706[snomserveur][sdate] = {};
				end
				if ( DBCS_200706[snomserveur][sdate][slead] == nil ) then
					DBCS_200706[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200706[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200706[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200705" ) then
			if ( DBCS_loaded_addon("DBCS_200705") == 1 ) then
				if ( DBCS_200705[snomserveur] == nil ) then
					DBCS_200705[snomserveur] = {};
				end
				if ( DBCS_200705[snomserveur][sdate] == nil ) then
					DBCS_200705[snomserveur][sdate] = {};
				end
				if ( DBCS_200705[snomserveur][sdate][slead] == nil ) then
					DBCS_200705[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200705[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200705[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200704" ) then
			if ( DBCS_loaded_addon("DBCS_200704") == 1 ) then
				if ( DBCS_200704[snomserveur] == nil ) then
					DBCS_200704[snomserveur] = {};
				end
				if ( DBCS_200704[snomserveur][sdate] == nil ) then
					DBCS_200704[snomserveur][sdate] = {};
				end
				if ( DBCS_200704[snomserveur][sdate][slead] == nil ) then
					DBCS_200704[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200704[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200704[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200703" ) then
			if ( DBCS_loaded_addon("DBCS_200703") == 1 ) then
				if ( DBCS_200703[snomserveur] == nil ) then
					DBCS_200703[snomserveur] = {};
				end
				if ( DBCS_200703[snomserveur][sdate] == nil ) then
					DBCS_200703[snomserveur][sdate] = {};
				end
				if ( DBCS_200703[snomserveur][sdate][slead] == nil ) then
					DBCS_200703[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200703[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200703[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200702" ) then
			if ( DBCS_loaded_addon("DBCS_200702") == 1 ) then
				if ( DBCS_200702[snomserveur] == nil ) then
					DBCS_200702[snomserveur] = {};
				end
				if ( DBCS_200702[snomserveur][sdate] == nil ) then
					DBCS_200702[snomserveur][sdate] = {};
				end
				if ( DBCS_200702[snomserveur][sdate][slead] == nil ) then
					DBCS_200702[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200702[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200702[snomserveur][sdate][slead][stime] = 0;
				end
			end
		elseif ( smois == "200701" ) then
			if ( DBCS_loaded_addon("DBCS_200701") == 1 ) then
				if ( DBCS_200701[snomserveur] == nil ) then
					DBCS_200701[snomserveur] = {};
				end
				if ( DBCS_200701[snomserveur][sdate] == nil ) then
					DBCS_200701[snomserveur][sdate] = {};
				end
				if ( DBCS_200701[snomserveur][sdate][slead] == nil ) then
					DBCS_200701[snomserveur][sdate][slead] = {};
				end
				if ( DBCS_200701[snomserveur][sdate][slead][stime] ) then
					ibon = 0;
				else
					DBCS_200701[snomserveur][sdate][slead][stime] = 0;
				end
			end
		else
			if ( DBCS[snomserveur] == nil ) then
				DBCS[snomserveur] = {};
			end
			if ( DBCS[snomserveur][sdate] == nil ) then
				DBCS[snomserveur][sdate] = {};
			end
			if ( DBCS[snomserveur][sdate][slead] == nil ) then
				DBCS[snomserveur][sdate][slead] = {};
			end
			if ( DBCS[snomserveur][sdate][slead][stime] ) then
				ibon = 0;
			else
				DBCS[snomserveur][sdate][slead][stime] = 0;
			end
		end
	
	end

	return ibon;

end

--/script DBCS_copierdansmois();
function DBCS_copierdansmois()

	local snomserveur;
	local sdate;
	local smois;
	local slead;
	local stime;
	
	for snomserveur, _ in pairs(DBCS) do
		for sdate, _ in pairs(DBCS[snomserveur]) do
			smois = strsub(sdate,1,6);
			for slead, _ in pairs(DBCS[snomserveur][sdate]) do
				for stime, _ in pairs(DBCS[snomserveur][sdate][slead]) do
					if ( smois == "201305" ) then
						if ( DBCS_loaded_addon("DBCS_201305") == 1 ) then
							if ( DBCS_201305[snomserveur] == nil ) then
								DBCS_201305[snomserveur] = {};
							end
							if ( DBCS_201305[snomserveur][sdate] == nil ) then
								DBCS_201305[snomserveur][sdate] = {};
							end
							if ( DBCS_201305[snomserveur][sdate][slead] == nil ) then
								DBCS_201305[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201305[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201305[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201304" ) then
						if ( DBCS_loaded_addon("DBCS_201304") == 1 ) then
							if ( DBCS_201304[snomserveur] == nil ) then
								DBCS_201304[snomserveur] = {};
							end
							if ( DBCS_201304[snomserveur][sdate] == nil ) then
								DBCS_201304[snomserveur][sdate] = {};
							end
							if ( DBCS_201304[snomserveur][sdate][slead] == nil ) then
								DBCS_201304[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201304[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201304[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201303" ) then
						if ( DBCS_loaded_addon("DBCS_201303") == 1 ) then
							if ( DBCS_201303[snomserveur] == nil ) then
								DBCS_201303[snomserveur] = {};
							end
							if ( DBCS_201303[snomserveur][sdate] == nil ) then
								DBCS_201303[snomserveur][sdate] = {};
							end
							if ( DBCS_201303[snomserveur][sdate][slead] == nil ) then
								DBCS_201303[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201303[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201303[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201302" ) then
						if ( DBCS_loaded_addon("DBCS_201302") == 1 ) then
							if ( DBCS_201302[snomserveur] == nil ) then
								DBCS_201302[snomserveur] = {};
							end
							if ( DBCS_201302[snomserveur][sdate] == nil ) then
								DBCS_201302[snomserveur][sdate] = {};
							end
							if ( DBCS_201302[snomserveur][sdate][slead] == nil ) then
								DBCS_201302[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201302[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201302[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201301" ) then
						if ( DBCS_loaded_addon("DBCS_201301") == 1 ) then
							if ( DBCS_201301[snomserveur] == nil ) then
								DBCS_201301[snomserveur] = {};
							end
							if ( DBCS_201301[snomserveur][sdate] == nil ) then
								DBCS_201301[snomserveur][sdate] = {};
							end
							if ( DBCS_201301[snomserveur][sdate][slead] == nil ) then
								DBCS_201301[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201301[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201301[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201212" ) then
						if ( DBCS_loaded_addon("DBCS_201212") == 1 ) then
							if ( DBCS_201212[snomserveur] == nil ) then
								DBCS_201212[snomserveur] = {};
							end
							if ( DBCS_201212[snomserveur][sdate] == nil ) then
								DBCS_201212[snomserveur][sdate] = {};
							end
							if ( DBCS_201212[snomserveur][sdate][slead] == nil ) then
								DBCS_201212[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201212[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201212[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201211" ) then
						if ( DBCS_loaded_addon("DBCS_201211") == 1 ) then
							if ( DBCS_201211[snomserveur] == nil ) then
								DBCS_201211[snomserveur] = {};
							end
							if ( DBCS_201211[snomserveur][sdate] == nil ) then
								DBCS_201211[snomserveur][sdate] = {};
							end
							if ( DBCS_201211[snomserveur][sdate][slead] == nil ) then
								DBCS_201211[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201211[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201211[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201210" ) then
						if ( DBCS_loaded_addon("DBCS_201210") == 1 ) then
							if ( DBCS_201210[snomserveur] == nil ) then
								DBCS_201210[snomserveur] = {};
							end
							if ( DBCS_201210[snomserveur][sdate] == nil ) then
								DBCS_201210[snomserveur][sdate] = {};
							end
							if ( DBCS_201210[snomserveur][sdate][slead] == nil ) then
								DBCS_201210[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201210[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201210[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201209" ) then
						if ( DBCS_loaded_addon("DBCS_201209") == 1 ) then
							if ( DBCS_201209[snomserveur] == nil ) then
								DBCS_201209[snomserveur] = {};
							end
							if ( DBCS_201209[snomserveur][sdate] == nil ) then
								DBCS_201209[snomserveur][sdate] = {};
							end
							if ( DBCS_201209[snomserveur][sdate][slead] == nil ) then
								DBCS_201209[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201209[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201209[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201208" ) then
						if ( DBCS_loaded_addon("DBCS_201208") == 1 ) then
							if ( DBCS_201208[snomserveur] == nil ) then
								DBCS_201208[snomserveur] = {};
							end
							if ( DBCS_201208[snomserveur][sdate] == nil ) then
								DBCS_201208[snomserveur][sdate] = {};
							end
							if ( DBCS_201208[snomserveur][sdate][slead] == nil ) then
								DBCS_201208[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201208[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201208[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201207" ) then
						if ( DBCS_loaded_addon("DBCS_201207") == 1 ) then
							if ( DBCS_201207[snomserveur] == nil ) then
								DBCS_201207[snomserveur] = {};
							end
							if ( DBCS_201207[snomserveur][sdate] == nil ) then
								DBCS_201207[snomserveur][sdate] = {};
							end
							if ( DBCS_201207[snomserveur][sdate][slead] == nil ) then
								DBCS_201207[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201207[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201207[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201206" ) then
						if ( DBCS_loaded_addon("DBCS_201206") == 1 ) then
							if ( DBCS_201206[snomserveur] == nil ) then
								DBCS_201206[snomserveur] = {};
							end
							if ( DBCS_201206[snomserveur][sdate] == nil ) then
								DBCS_201206[snomserveur][sdate] = {};
							end
							if ( DBCS_201206[snomserveur][sdate][slead] == nil ) then
								DBCS_201206[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201206[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201206[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201205" ) then
						if ( DBCS_loaded_addon("DBCS_201205") == 1 ) then
							if ( DBCS_201205[snomserveur] == nil ) then
								DBCS_201205[snomserveur] = {};
							end
							if ( DBCS_201205[snomserveur][sdate] == nil ) then
								DBCS_201205[snomserveur][sdate] = {};
							end
							if ( DBCS_201205[snomserveur][sdate][slead] == nil ) then
								DBCS_201205[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201205[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201205[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201204" ) then
						if ( DBCS_loaded_addon("DBCS_201204") == 1 ) then
							if ( DBCS_201204[snomserveur] == nil ) then
								DBCS_201204[snomserveur] = {};
							end
							if ( DBCS_201204[snomserveur][sdate] == nil ) then
								DBCS_201204[snomserveur][sdate] = {};
							end
							if ( DBCS_201204[snomserveur][sdate][slead] == nil ) then
								DBCS_201204[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201204[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201204[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201203" ) then
						if ( DBCS_loaded_addon("DBCS_201203") == 1 ) then
							if ( DBCS_201203[snomserveur] == nil ) then
								DBCS_201203[snomserveur] = {};
							end
							if ( DBCS_201203[snomserveur][sdate] == nil ) then
								DBCS_201203[snomserveur][sdate] = {};
							end
							if ( DBCS_201203[snomserveur][sdate][slead] == nil ) then
								DBCS_201203[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201203[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201203[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201202" ) then
						if ( DBCS_loaded_addon("DBCS_201202") == 1 ) then
							if ( DBCS_201202[snomserveur] == nil ) then
								DBCS_201202[snomserveur] = {};
							end
							if ( DBCS_201202[snomserveur][sdate] == nil ) then
								DBCS_201202[snomserveur][sdate] = {};
							end
							if ( DBCS_201202[snomserveur][sdate][slead] == nil ) then
								DBCS_201202[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201202[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201202[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201201" ) then
						if ( DBCS_loaded_addon("DBCS_201201") == 1 ) then
							if ( DBCS_201201[snomserveur] == nil ) then
								DBCS_201201[snomserveur] = {};
							end
							if ( DBCS_201201[snomserveur][sdate] == nil ) then
								DBCS_201201[snomserveur][sdate] = {};
							end
							if ( DBCS_201201[snomserveur][sdate][slead] == nil ) then
								DBCS_201201[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201201[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201201[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201112" ) then
						if ( DBCS_loaded_addon("DBCS_201112") == 1 ) then
							if ( DBCS_201112[snomserveur] == nil ) then
								DBCS_201112[snomserveur] = {};
							end
							if ( DBCS_201112[snomserveur][sdate] == nil ) then
								DBCS_201112[snomserveur][sdate] = {};
							end
							if ( DBCS_201112[snomserveur][sdate][slead] == nil ) then
								DBCS_201112[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201112[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201112[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201111" ) then
						if ( DBCS_loaded_addon("DBCS_201111") == 1 ) then
							if ( DBCS_201111[snomserveur] == nil ) then
								DBCS_201111[snomserveur] = {};
							end
							if ( DBCS_201111[snomserveur][sdate] == nil ) then
								DBCS_201111[snomserveur][sdate] = {};
							end
							if ( DBCS_201111[snomserveur][sdate][slead] == nil ) then
								DBCS_201111[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201111[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201111[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201110" ) then
						if ( DBCS_loaded_addon("DBCS_201110") == 1 ) then
							if ( DBCS_201110[snomserveur] == nil ) then
								DBCS_201110[snomserveur] = {};
							end
							if ( DBCS_201110[snomserveur][sdate] == nil ) then
								DBCS_201110[snomserveur][sdate] = {};
							end
							if ( DBCS_201110[snomserveur][sdate][slead] == nil ) then
								DBCS_201110[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201110[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201110[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201109" ) then
						if ( DBCS_loaded_addon("DBCS_201109") == 1 ) then
							if ( DBCS_201109[snomserveur] == nil ) then
								DBCS_201109[snomserveur] = {};
							end
							if ( DBCS_201109[snomserveur][sdate] == nil ) then
								DBCS_201109[snomserveur][sdate] = {};
							end
							if ( DBCS_201109[snomserveur][sdate][slead] == nil ) then
								DBCS_201109[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201109[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201109[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201108" ) then
						if ( DBCS_loaded_addon("DBCS_201108") == 1 ) then
							if ( DBCS_201108[snomserveur] == nil ) then
								DBCS_201108[snomserveur] = {};
							end
							if ( DBCS_201108[snomserveur][sdate] == nil ) then
								DBCS_201108[snomserveur][sdate] = {};
							end
							if ( DBCS_201108[snomserveur][sdate][slead] == nil ) then
								DBCS_201108[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201108[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201108[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201107" ) then
						if ( DBCS_loaded_addon("DBCS_201107") == 1 ) then
							if ( DBCS_201107[snomserveur] == nil ) then
								DBCS_201107[snomserveur] = {};
							end
							if ( DBCS_201107[snomserveur][sdate] == nil ) then
								DBCS_201107[snomserveur][sdate] = {};
							end
							if ( DBCS_201107[snomserveur][sdate][slead] == nil ) then
								DBCS_201107[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201107[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201107[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201106" ) then
						if ( DBCS_loaded_addon("DBCS_201106") == 1 ) then
							if ( DBCS_201106[snomserveur] == nil ) then
								DBCS_201106[snomserveur] = {};
							end
							if ( DBCS_201106[snomserveur][sdate] == nil ) then
								DBCS_201106[snomserveur][sdate] = {};
							end
							if ( DBCS_201106[snomserveur][sdate][slead] == nil ) then
								DBCS_201106[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201106[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201106[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201105" ) then
						if ( DBCS_loaded_addon("DBCS_201105") == 1 ) then
							if ( DBCS_201105[snomserveur] == nil ) then
								DBCS_201105[snomserveur] = {};
							end
							if ( DBCS_201105[snomserveur][sdate] == nil ) then
								DBCS_201105[snomserveur][sdate] = {};
							end
							if ( DBCS_201105[snomserveur][sdate][slead] == nil ) then
								DBCS_201105[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201105[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201105[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201104" ) then
						if ( DBCS_loaded_addon("DBCS_201104") == 1 ) then
							if ( DBCS_201104[snomserveur] == nil ) then
								DBCS_201104[snomserveur] = {};
							end
							if ( DBCS_201104[snomserveur][sdate] == nil ) then
								DBCS_201104[snomserveur][sdate] = {};
							end
							if ( DBCS_201104[snomserveur][sdate][slead] == nil ) then
								DBCS_201104[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201104[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201104[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201103" ) then
						if ( DBCS_loaded_addon("DBCS_201103") == 1 ) then
							if ( DBCS_201103[snomserveur] == nil ) then
								DBCS_201103[snomserveur] = {};
							end
							if ( DBCS_201103[snomserveur][sdate] == nil ) then
								DBCS_201103[snomserveur][sdate] = {};
							end
							if ( DBCS_201103[snomserveur][sdate][slead] == nil ) then
								DBCS_201103[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201103[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201103[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201102" ) then
						if ( DBCS_loaded_addon("DBCS_201102") == 1 ) then
							if ( DBCS_201102[snomserveur] == nil ) then
								DBCS_201102[snomserveur] = {};
							end
							if ( DBCS_201102[snomserveur][sdate] == nil ) then
								DBCS_201102[snomserveur][sdate] = {};
							end
							if ( DBCS_201102[snomserveur][sdate][slead] == nil ) then
								DBCS_201102[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201102[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201102[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201101" ) then
						if ( DBCS_loaded_addon("DBCS_201101") == 1 ) then
							if ( DBCS_201101[snomserveur] == nil ) then
								DBCS_201101[snomserveur] = {};
							end
							if ( DBCS_201101[snomserveur][sdate] == nil ) then
								DBCS_201101[snomserveur][sdate] = {};
							end
							if ( DBCS_201101[snomserveur][sdate][slead] == nil ) then
								DBCS_201101[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201101[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201101[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201012" ) then
						if ( DBCS_loaded_addon("DBCS_201012") == 1 ) then
							if ( DBCS_201012[snomserveur] == nil ) then
								DBCS_201012[snomserveur] = {};
							end
							if ( DBCS_201012[snomserveur][sdate] == nil ) then
								DBCS_201012[snomserveur][sdate] = {};
							end
							if ( DBCS_201012[snomserveur][sdate][slead] == nil ) then
								DBCS_201012[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201012[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201012[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201011" ) then
						if ( DBCS_loaded_addon("DBCS_201011") == 1 ) then
							if ( DBCS_201011[snomserveur] == nil ) then
								DBCS_201011[snomserveur] = {};
							end
							if ( DBCS_201011[snomserveur][sdate] == nil ) then
								DBCS_201011[snomserveur][sdate] = {};
							end
							if ( DBCS_201011[snomserveur][sdate][slead] == nil ) then
								DBCS_201011[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201011[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201011[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201010" ) then
						if ( DBCS_loaded_addon("DBCS_201010") == 1 ) then
							if ( DBCS_201010[snomserveur] == nil ) then
								DBCS_201010[snomserveur] = {};
							end
							if ( DBCS_201010[snomserveur][sdate] == nil ) then
								DBCS_201010[snomserveur][sdate] = {};
							end
							if ( DBCS_201010[snomserveur][sdate][slead] == nil ) then
								DBCS_201010[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201010[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201010[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201009" ) then
						if ( DBCS_loaded_addon("DBCS_201009") == 1 ) then
							if ( DBCS_201009[snomserveur] == nil ) then
								DBCS_201009[snomserveur] = {};
							end
							if ( DBCS_201009[snomserveur][sdate] == nil ) then
								DBCS_201009[snomserveur][sdate] = {};
							end
							if ( DBCS_201009[snomserveur][sdate][slead] == nil ) then
								DBCS_201009[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201009[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201009[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201008" ) then
						if ( DBCS_loaded_addon("DBCS_201008") == 1 ) then
							if ( DBCS_201008[snomserveur] == nil ) then
								DBCS_201008[snomserveur] = {};
							end
							if ( DBCS_201008[snomserveur][sdate] == nil ) then
								DBCS_201008[snomserveur][sdate] = {};
							end
							if ( DBCS_201008[snomserveur][sdate][slead] == nil ) then
								DBCS_201008[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201008[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201008[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201007" ) then
						if ( DBCS_loaded_addon("DBCS_201007") == 1 ) then
							if ( DBCS_201007[snomserveur] == nil ) then
								DBCS_201007[snomserveur] = {};
							end
							if ( DBCS_201007[snomserveur][sdate] == nil ) then
								DBCS_201007[snomserveur][sdate] = {};
							end
							if ( DBCS_201007[snomserveur][sdate][slead] == nil ) then
								DBCS_201007[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201007[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201007[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201006" ) then
						if ( DBCS_loaded_addon("DBCS_201006") == 1 ) then
							if ( DBCS_201006[snomserveur] == nil ) then
								DBCS_201006[snomserveur] = {};
							end
							if ( DBCS_201006[snomserveur][sdate] == nil ) then
								DBCS_201006[snomserveur][sdate] = {};
							end
							if ( DBCS_201006[snomserveur][sdate][slead] == nil ) then
								DBCS_201006[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201006[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201006[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201005" ) then
						if ( DBCS_loaded_addon("DBCS_201005") == 1 ) then
							if ( DBCS_201005[snomserveur] == nil ) then
								DBCS_201005[snomserveur] = {};
							end
							if ( DBCS_201005[snomserveur][sdate] == nil ) then
								DBCS_201005[snomserveur][sdate] = {};
							end
							if ( DBCS_201005[snomserveur][sdate][slead] == nil ) then
								DBCS_201005[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201005[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201005[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201004" ) then
						if ( DBCS_loaded_addon("DBCS_201004") == 1 ) then
							if ( DBCS_201004[snomserveur] == nil ) then
								DBCS_201004[snomserveur] = {};
							end
							if ( DBCS_201004[snomserveur][sdate] == nil ) then
								DBCS_201004[snomserveur][sdate] = {};
							end
							if ( DBCS_201004[snomserveur][sdate][slead] == nil ) then
								DBCS_201004[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201004[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201004[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201003" ) then
						if ( DBCS_loaded_addon("DBCS_201003") == 1 ) then
							if ( DBCS_201003[snomserveur] == nil ) then
								DBCS_201003[snomserveur] = {};
							end
							if ( DBCS_201003[snomserveur][sdate] == nil ) then
								DBCS_201003[snomserveur][sdate] = {};
							end
							if ( DBCS_201003[snomserveur][sdate][slead] == nil ) then
								DBCS_201003[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201003[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201003[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201002" ) then
						if ( DBCS_loaded_addon("DBCS_201002") == 1 ) then
							if ( DBCS_201002[snomserveur] == nil ) then
								DBCS_201002[snomserveur] = {};
							end
							if ( DBCS_201002[snomserveur][sdate] == nil ) then
								DBCS_201002[snomserveur][sdate] = {};
							end
							if ( DBCS_201002[snomserveur][sdate][slead] == nil ) then
								DBCS_201002[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201002[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201002[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "201001" ) then
						if ( DBCS_loaded_addon("DBCS_201001") == 1 ) then
							if ( DBCS_201001[snomserveur] == nil ) then
								DBCS_201001[snomserveur] = {};
							end
							if ( DBCS_201001[snomserveur][sdate] == nil ) then
								DBCS_201001[snomserveur][sdate] = {};
							end
							if ( DBCS_201001[snomserveur][sdate][slead] == nil ) then
								DBCS_201001[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_201001[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_201001[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200912" ) then
						if ( DBCS_loaded_addon("DBCS_200912") == 1 ) then
							if ( DBCS_200912[snomserveur] == nil ) then
								DBCS_200912[snomserveur] = {};
							end
							if ( DBCS_200912[snomserveur][sdate] == nil ) then
								DBCS_200912[snomserveur][sdate] = {};
							end
							if ( DBCS_200912[snomserveur][sdate][slead] == nil ) then
								DBCS_200912[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200912[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200912[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200911" ) then
						if ( DBCS_loaded_addon("DBCS_200911") == 1 ) then
							if ( DBCS_200911[snomserveur] == nil ) then
								DBCS_200911[snomserveur] = {};
							end
							if ( DBCS_200911[snomserveur][sdate] == nil ) then
								DBCS_200911[snomserveur][sdate] = {};
							end
							if ( DBCS_200911[snomserveur][sdate][slead] == nil ) then
								DBCS_200911[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200911[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200911[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200910" ) then
						if ( DBCS_loaded_addon("DBCS_200910") == 1 ) then
							if ( DBCS_200910[snomserveur] == nil ) then
								DBCS_200910[snomserveur] = {};
							end
							if ( DBCS_200910[snomserveur][sdate] == nil ) then
								DBCS_200910[snomserveur][sdate] = {};
							end
							if ( DBCS_200910[snomserveur][sdate][slead] == nil ) then
								DBCS_200910[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200910[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200910[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200909" ) then
						if ( DBCS_loaded_addon("DBCS_200909") == 1 ) then
							if ( DBCS_200909[snomserveur] == nil ) then
								DBCS_200909[snomserveur] = {};
							end
							if ( DBCS_200909[snomserveur][sdate] == nil ) then
								DBCS_200909[snomserveur][sdate] = {};
							end
							if ( DBCS_200909[snomserveur][sdate][slead] == nil ) then
								DBCS_200909[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200909[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200909[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200908" ) then
						if ( DBCS_loaded_addon("DBCS_200908") == 1 ) then
							if ( DBCS_200908[snomserveur] == nil ) then
								DBCS_200908[snomserveur] = {};
							end
							if ( DBCS_200908[snomserveur][sdate] == nil ) then
								DBCS_200908[snomserveur][sdate] = {};
							end
							if ( DBCS_200908[snomserveur][sdate][slead] == nil ) then
								DBCS_200908[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200908[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200908[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200907" ) then
						if ( DBCS_loaded_addon("DBCS_200907") == 1 ) then
							if ( DBCS_200907[snomserveur] == nil ) then
								DBCS_200907[snomserveur] = {};
							end
							if ( DBCS_200907[snomserveur][sdate] == nil ) then
								DBCS_200907[snomserveur][sdate] = {};
							end
							if ( DBCS_200907[snomserveur][sdate][slead] == nil ) then
								DBCS_200907[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200907[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200907[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200906" ) then
						if ( DBCS_loaded_addon("DBCS_200906") == 1 ) then
							if ( DBCS_200906[snomserveur] == nil ) then
								DBCS_200906[snomserveur] = {};
							end
							if ( DBCS_200906[snomserveur][sdate] == nil ) then
								DBCS_200906[snomserveur][sdate] = {};
							end
							if ( DBCS_200906[snomserveur][sdate][slead] == nil ) then
								DBCS_200906[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200906[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200906[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200905" ) then
						if ( DBCS_loaded_addon("DBCS_200905") == 1 ) then
							if ( DBCS_200905[snomserveur] == nil ) then
								DBCS_200905[snomserveur] = {};
							end
							if ( DBCS_200905[snomserveur][sdate] == nil ) then
								DBCS_200905[snomserveur][sdate] = {};
							end
							if ( DBCS_200905[snomserveur][sdate][slead] == nil ) then
								DBCS_200905[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200905[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200905[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200904" ) then
						if ( DBCS_loaded_addon("DBCS_200904") == 1 ) then
							if ( DBCS_200904[snomserveur] == nil ) then
								DBCS_200904[snomserveur] = {};
							end
							if ( DBCS_200904[snomserveur][sdate] == nil ) then
								DBCS_200904[snomserveur][sdate] = {};
							end
							if ( DBCS_200904[snomserveur][sdate][slead] == nil ) then
								DBCS_200904[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200904[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200904[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200903" ) then
						if ( DBCS_loaded_addon("DBCS_200903") == 1 ) then
							if ( DBCS_200903[snomserveur] == nil ) then
								DBCS_200903[snomserveur] = {};
							end
							if ( DBCS_200903[snomserveur][sdate] == nil ) then
								DBCS_200903[snomserveur][sdate] = {};
							end
							if ( DBCS_200903[snomserveur][sdate][slead] == nil ) then
								DBCS_200903[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200903[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200903[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200902" ) then
						if ( DBCS_loaded_addon("DBCS_200902") == 1 ) then
							if ( DBCS_200902[snomserveur] == nil ) then
								DBCS_200902[snomserveur] = {};
							end
							if ( DBCS_200902[snomserveur][sdate] == nil ) then
								DBCS_200902[snomserveur][sdate] = {};
							end
							if ( DBCS_200902[snomserveur][sdate][slead] == nil ) then
								DBCS_200902[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200902[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200902[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200901" ) then
						if ( DBCS_loaded_addon("DBCS_200901") == 1 ) then
							if ( DBCS_200901[snomserveur] == nil ) then
								DBCS_200901[snomserveur] = {};
							end
							if ( DBCS_200901[snomserveur][sdate] == nil ) then
								DBCS_200901[snomserveur][sdate] = {};
							end
							if ( DBCS_200901[snomserveur][sdate][slead] == nil ) then
								DBCS_200901[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200901[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200901[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200812" ) then
						if ( DBCS_loaded_addon("DBCS_200812") == 1 ) then
							if ( DBCS_200812[snomserveur] == nil ) then
								DBCS_200812[snomserveur] = {};
							end
							if ( DBCS_200812[snomserveur][sdate] == nil ) then
								DBCS_200812[snomserveur][sdate] = {};
							end
							if ( DBCS_200812[snomserveur][sdate][slead] == nil ) then
								DBCS_200812[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200812[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200812[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200811" ) then
						if ( DBCS_loaded_addon("DBCS_200811") == 1 ) then
							if ( DBCS_200811[snomserveur] == nil ) then
								DBCS_200811[snomserveur] = {};
							end
							if ( DBCS_200811[snomserveur][sdate] == nil ) then
								DBCS_200811[snomserveur][sdate] = {};
							end
							if ( DBCS_200811[snomserveur][sdate][slead] == nil ) then
								DBCS_200811[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200811[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200811[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200810" ) then
						if ( DBCS_loaded_addon("DBCS_200810") == 1 ) then
							if ( DBCS_200810[snomserveur] == nil ) then
								DBCS_200810[snomserveur] = {};
							end
							if ( DBCS_200810[snomserveur][sdate] == nil ) then
								DBCS_200810[snomserveur][sdate] = {};
							end
							if ( DBCS_200810[snomserveur][sdate][slead] == nil ) then
								DBCS_200810[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200810[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200810[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200809" ) then
						if ( DBCS_loaded_addon("DBCS_200809") == 1 ) then
							if ( DBCS_200809[snomserveur] == nil ) then
								DBCS_200809[snomserveur] = {};
							end
							if ( DBCS_200809[snomserveur][sdate] == nil ) then
								DBCS_200809[snomserveur][sdate] = {};
							end
							if ( DBCS_200809[snomserveur][sdate][slead] == nil ) then
								DBCS_200809[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200809[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200809[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200808" ) then
						if ( DBCS_loaded_addon("DBCS_200808") == 1 ) then
							if ( DBCS_200808[snomserveur] == nil ) then
								DBCS_200808[snomserveur] = {};
							end
							if ( DBCS_200808[snomserveur][sdate] == nil ) then
								DBCS_200808[snomserveur][sdate] = {};
							end
							if ( DBCS_200808[snomserveur][sdate][slead] == nil ) then
								DBCS_200808[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200808[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200808[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200807" ) then
						if ( DBCS_loaded_addon("DBCS_200807") == 1 ) then
							if ( DBCS_200807[snomserveur] == nil ) then
								DBCS_200807[snomserveur] = {};
							end
							if ( DBCS_200807[snomserveur][sdate] == nil ) then
								DBCS_200807[snomserveur][sdate] = {};
							end
							if ( DBCS_200807[snomserveur][sdate][slead] == nil ) then
								DBCS_200807[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200807[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200807[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200806" ) then
						if ( DBCS_loaded_addon("DBCS_200806") == 1 ) then
							if ( DBCS_200806[snomserveur] == nil ) then
								DBCS_200806[snomserveur] = {};
							end
							if ( DBCS_200806[snomserveur][sdate] == nil ) then
								DBCS_200806[snomserveur][sdate] = {};
							end
							if ( DBCS_200806[snomserveur][sdate][slead] == nil ) then
								DBCS_200806[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200806[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200806[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200805" ) then
						if ( DBCS_loaded_addon("DBCS_200805") == 1 ) then
							if ( DBCS_200805[snomserveur] == nil ) then
								DBCS_200805[snomserveur] = {};
							end
							if ( DBCS_200805[snomserveur][sdate] == nil ) then
								DBCS_200805[snomserveur][sdate] = {};
							end
							if ( DBCS_200805[snomserveur][sdate][slead] == nil ) then
								DBCS_200805[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200805[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200805[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200804" ) then
						if ( DBCS_loaded_addon("DBCS_200804") == 1 ) then
							if ( DBCS_200804[snomserveur] == nil ) then
								DBCS_200804[snomserveur] = {};
							end
							if ( DBCS_200804[snomserveur][sdate] == nil ) then
								DBCS_200804[snomserveur][sdate] = {};
							end
							if ( DBCS_200804[snomserveur][sdate][slead] == nil ) then
								DBCS_200804[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200804[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200804[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200803" ) then
						if ( DBCS_loaded_addon("DBCS_200803") == 1 ) then
							if ( DBCS_200803[snomserveur] == nil ) then
								DBCS_200803[snomserveur] = {};
							end
							if ( DBCS_200803[snomserveur][sdate] == nil ) then
								DBCS_200803[snomserveur][sdate] = {};
							end
							if ( DBCS_200803[snomserveur][sdate][slead] == nil ) then
								DBCS_200803[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200803[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200803[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200802" ) then
						if ( DBCS_loaded_addon("DBCS_200802") == 1 ) then
							if ( DBCS_200802[snomserveur] == nil ) then
								DBCS_200802[snomserveur] = {};
							end
							if ( DBCS_200802[snomserveur][sdate] == nil ) then
								DBCS_200802[snomserveur][sdate] = {};
							end
							if ( DBCS_200802[snomserveur][sdate][slead] == nil ) then
								DBCS_200802[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200802[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200802[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200801" ) then
						if ( DBCS_loaded_addon("DBCS_200801") == 1 ) then
							if ( DBCS_200801[snomserveur] == nil ) then
								DBCS_200801[snomserveur] = {};
							end
							if ( DBCS_200801[snomserveur][sdate] == nil ) then
								DBCS_200801[snomserveur][sdate] = {};
							end	
							if ( DBCS_200801[snomserveur][sdate][slead] == nil ) then
								DBCS_200801[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200801[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200801[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200712" ) then
						if ( DBCS_loaded_addon("DBCS_200712") == 1 ) then
							if ( DBCS_200712[snomserveur] == nil ) then
								DBCS_200712[snomserveur] = {};
							end
							if ( DBCS_200712[snomserveur][sdate] == nil ) then
								DBCS_200712[snomserveur][sdate] = {};
							end
							if ( DBCS_200712[snomserveur][sdate][slead] == nil ) then
								DBCS_200712[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200712[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200712[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200711" ) then
						if ( DBCS_loaded_addon("DBCS_200711") == 1 ) then
							if ( DBCS_200711[snomserveur] == nil ) then
								DBCS_200711[snomserveur] = {};
							end
							if ( DBCS_200711[snomserveur][sdate] == nil ) then
								DBCS_200711[snomserveur][sdate] = {};
							end
							if ( DBCS_200711[snomserveur][sdate][slead] == nil ) then
								DBCS_200711[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200711[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200711[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200710" ) then
						if ( DBCS_loaded_addon("DBCS_200710") == 1 ) then
							if ( DBCS_200710[snomserveur] == nil ) then
								DBCS_200710[snomserveur] = {};
							end
							if ( DBCS_200710[snomserveur][sdate] == nil ) then
								DBCS_200710[snomserveur][sdate] = {};
							end
							if ( DBCS_200710[snomserveur][sdate][slead] == nil ) then
								DBCS_200710[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200710[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200710[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200709" ) then
						if ( DBCS_loaded_addon("DBCS_200709") == 1 ) then
							if ( DBCS_200709[snomserveur] == nil ) then
								DBCS_200709[snomserveur] = {};
							end
							if ( DBCS_200709[snomserveur][sdate] == nil ) then
								DBCS_200709[snomserveur][sdate] = {};
							end
							if ( DBCS_200709[snomserveur][sdate][slead] == nil ) then
								DBCS_200709[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200709[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200709[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200708" ) then
						if ( DBCS_loaded_addon("DBCS_200708") == 1 ) then
							if ( DBCS_200708[snomserveur] == nil ) then
								DBCS_200708[snomserveur] = {};
							end
							if ( DBCS_200708[snomserveur][sdate] == nil ) then
								DBCS_200708[snomserveur][sdate] = {};
							end
							if ( DBCS_200708[snomserveur][sdate][slead] == nil ) then
								DBCS_200708[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200708[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200708[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200707" ) then
						if ( DBCS_loaded_addon("DBCS_200707") == 1 ) then
							if ( DBCS_200707[snomserveur] == nil ) then
								DBCS_200707[snomserveur] = {};
							end
							if ( DBCS_200707[snomserveur][sdate] == nil ) then
								DBCS_200707[snomserveur][sdate] = {};
							end
							if ( DBCS_200707[snomserveur][sdate][slead] == nil ) then
								DBCS_200707[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200707[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200707[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200706" ) then
						if ( DBCS_loaded_addon("DBCS_200706") == 1 ) then
							if ( DBCS_200706[snomserveur] == nil ) then
								DBCS_200706[snomserveur] = {};
							end
							if ( DBCS_200706[snomserveur][sdate] == nil ) then
								DBCS_200706[snomserveur][sdate] = {};
							end
							if ( DBCS_200706[snomserveur][sdate][slead] == nil ) then
								DBCS_200706[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200706[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200706[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200705" ) then
						if ( DBCS_loaded_addon("DBCS_200705") == 1 ) then
							if ( DBCS_200705[snomserveur] == nil ) then
								DBCS_200705[snomserveur] = {};
							end
							if ( DBCS_200705[snomserveur][sdate] == nil ) then
								DBCS_200705[snomserveur][sdate] = {};
							end
							if ( DBCS_200705[snomserveur][sdate][slead] == nil ) then
								DBCS_200705[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200705[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200705[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200704" ) then
						if ( DBCS_loaded_addon("DBCS_200704") == 1 ) then
							if ( DBCS_200704[snomserveur] == nil ) then
								DBCS_200704[snomserveur] = {};
							end
							if ( DBCS_200704[snomserveur][sdate] == nil ) then
								DBCS_200704[snomserveur][sdate] = {};
							end
							if ( DBCS_200704[snomserveur][sdate][slead] == nil ) then
								DBCS_200704[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200704[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200704[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200703" ) then
						if ( DBCS_loaded_addon("DBCS_200703") == 1 ) then
							if ( DBCS_200703[snomserveur] == nil ) then
								DBCS_200703[snomserveur] = {};
							end
							if ( DBCS_200703[snomserveur][sdate] == nil ) then
								DBCS_200703[snomserveur][sdate] = {};
							end
							if ( DBCS_200703[snomserveur][sdate][slead] == nil ) then
								DBCS_200703[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200703[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200703[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200702" ) then
						if ( DBCS_loaded_addon("DBCS_200702") == 1 ) then
							if ( DBCS_200702[snomserveur] == nil ) then
								DBCS_200702[snomserveur] = {};
							end
							if ( DBCS_200702[snomserveur][sdate] == nil ) then
								DBCS_200702[snomserveur][sdate] = {};
							end
							if ( DBCS_200702[snomserveur][sdate][slead] == nil ) then
								DBCS_200702[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200702[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200702[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					elseif ( smois == "200701" ) then
						if ( DBCS_loaded_addon("DBCS_200701") == 1 ) then
							if ( DBCS_200701[snomserveur] == nil ) then
								DBCS_200701[snomserveur] = {};
							end
							if ( DBCS_200701[snomserveur][sdate] == nil ) then
								DBCS_200701[snomserveur][sdate] = {};
							end
							if ( DBCS_200701[snomserveur][sdate][slead] == nil ) then
								DBCS_200701[snomserveur][sdate][slead] = {};
							end
							if ( DBCS_200701[snomserveur][sdate][slead][stime] ) then
							else
								DBCS_200701[snomserveur][sdate][slead][stime] = 0;
							end
							DBCS[snomserveur][sdate][slead][stime] = nil;
						end
					else
					end
				end
			end
		end
	end

end

DBCS_addon_loaded_tablo = {};

function DBCS_loaded_addon(snomaddon)

--loaded = IsAddOnLoaded(index or "name")	1 or nil
--loaded, reason = LoadAddOn(index or "name")	1 or nil

local loaded;
local reason;

local ireturn = 0;

	if ( DBCS_addon_loaded_tablo[snomaddon] == nil ) then
		loaded = IsAddOnLoaded(snomaddon);
		if ( loaded == 1 ) then
			DBCS_addon_loaded_tablo[snomaddon] = 1;
			ireturn = 1;
		else
			loaded, reason = LoadAddOn(snomaddon);
			if ( loaded == 1 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("L'addon "..snomaddon.." est charg\195\169.");
end
				DBCS_addon_loaded_tablo[snomaddon] = 1;
				ireturn = 1;
			end
		end
	else
		ireturn = 1;
	end

	return ireturn;

end

--/script DBCS_objet_find_aleatoire(10254)
--/script DBCS_objet_find_aleatoire(10384)
function DBCS_objet_find_aleatoire(inumobjet)

local i;
local sname;

	if ( DBCS[inumobjet] == nil ) then
		DBCS[inumobjet] = {};
	end
	for i = 1, 3000 do
		sname, _, _, _, _, _, _, _, _, _ = GetItemInfo("item:"..inumobjet..":0:0:0:0:0:"..i..":0:0:0");
		if ( sname ) then
			DBCS[inumobjet][i] = sname;
		end
	end

end

--/script DBCS_vidermarchand()
function DBCS_vidermarchand()

local snom;
local snumregion;

	snom = MerchantNameText:GetText();
	snumregion = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	
	if ( DBMS ) then
		if ( DBMS[snom] ) then
			if ( DBMS[snom][snumregion] ) then
				DBMS[snom][snumregion][8] = nil;
			end
		end
	end

end

--/script DBCS_liremarchand()
function DBCS_liremarchand()

local sdate,slead,stime;
local link;
local c,d,e,f;
local a6,a7;
local ibon;
local i,j,k;
local name, texture, price, quantity, numAvailable, isUsable, extendedCost;
local tablo;
local tablo_mob;
local bdate;
local ilen;
local ipos;

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = MerchantNameText:GetText(); --UnitName("target");
	DBCS_mob.level = 0; --UnitLevel("target");
	DBCS_mob.classe = "paysage";
	DBCS_mob.famille = "Vendeur";
	DBCS_mob.type = "Pnj";
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = GetMerchantNumItems();
	DBCS_mob.loot = {};
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100(1);
	ibon = 1;
	for i = 1, DBCS_mob.nbloot do
		DBCS_mob.loot[i] = {};
		name, texture, price, quantity, numAvailable, isUsable, extendedCost = GetMerchantItemInfo(i);
		--name, texture, price, quantity, numAvailable, isUsable = GetMerchantItemInfo(i);
		link = GetMerchantItemLink(i);
		if ( link ) then
			for _,c,d,_,_,_,_,a6,a7,_,_,_ in string.gmatch(link,DBCS_message_item) do
				DBCS_mob.loot[i].numobjet = tonumber(c);
				DBCS_mob.loot[i].numcourt2 = tonumber(d)..":0:0:0:0:"..a6..":"..a7..":0:0";
				DBCS_mob.loot[i].nb = 0;
			end
		else
			ibon = 0;
		end
	end
	if ( ibon == 1 ) then
		tablo_mob = DBmobs_Detail(DBCS_mob.name,DBCS_mob.numzone,0);
		bdate = true;
		--DBmobs_datemob(DBCS_mob.name,DBCS_mob.numzone);
		if ( tablo_mob and tablo_mob.datemaj and tonumber(tablo_mob.datemaj) == tonumber(DBCS_date()) ) then
			bdate = false;
		end
		if ( DBCS_CMS_numcanalCMS > 0 ) then
			if ( bdate == true ) then
				DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
			end
		end
		DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
		for i = 1, DBCS_mob.nbloot do
			if ( DBCS_CMS_numcanalCMS > 0 ) then
				if ( bdate == true ) then
					DBmobs_envoyerloot(DBCS_getlocale,sdate,slead,stime,i,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,DBCS_mob.loot[i].nb);
				end
			end
			DBcorps_ajoutloot(sdate,slead,stime,i,DBCS_mob.loot[i].numobjet,DBCS_mob.loot[i].numcourt2,DBCS_mob.loot[i].nb);
--if ( DBCS_debug > 1 ) then
			local itemName, _, itemRarity, _, _, _, _, _, _, _ = GetItemInfo(DBCS_mob.loot[i].numobjet);
			--if ( itemName ) then
			--	TraceFrame:AddMessage(DBCS_mob.loot[i].numobjet.." = "..CMS_GetItemLink("@@"..itemName.."@"..itemRarity.."@"..DBCS_mob.loot[i].numobjet..":0:0:0:0:0:0:0:0:0:0@@"));
			--end
			name, texture, ivaleur1, quantity, numAvailable, isUsable, ispecial = GetMerchantItemInfo(i);
			--name, texture, price, stackCount, numAvailable, isUsable, extendedCost = GetMerchantItemInfo(index);
			--TraceFrame:AddMessage("name = "..(name or "")..", texture = "..(texture or "")..", ivaleur1 = "..(ivaleur1 or "")..", quantity = "..(quantity or "")..", numAvailable = "..(numAvailable or "")..", isUsable = "..(isUsable or "")..", ispecial = "..(ispecial or ""));
			local ivaleur2, ivaleur3, itemCount = GetMerchantItemCostInfo(i);
			--if ( ivaleur2 == nil ) then
				ivaleur2 = 0;
			--end
			--if ( ivaleur3 == nil ) then
				ivaleur3 = 0;
			--end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("honorPoints = "..(ivaleur2 or "")..", arenaPoints = "..(ivaleur3 or "")..", itemCount = "..(itemCount or ""));
--end
			local itemTexture, itemValue, itemLink;
			tablo = {};
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("MAX_ITEM_COST : "..(MAX_ITEM_COST or ""));
--end
			for j = 1 , MAX_ITEM_COST , 1 do
			--for j = 1 , itemCount , 1 do
				itemTexture, itemValue, itemLink = GetMerchantItemCostItem(i, j);
-- if ( DBCS_debug > 1 ) then
-- TraceFrame:AddMessage("objet : "..(itemLink or "")..", itemTexture = "..(itemTexture or "")..", itemValue = "..(itemValue or ""));
-- end
				if ( itemLink ) then
					for _,c,_,_,_,_,_,_,_,_,_ in string.gmatch(itemLink,DBCS_message_item) do
						tablo[j] = ""..tonumber(c)..":"..(itemValue/quantity);
					end
				--elseif ( itemTexture ) then
				--	tablo[j] = ""..itemTexture..":"..(itemValue/quantity);
				elseif ( itemTexture ) then
					--GameTooltip:SetCurrencyToken
					ilen = strlen(itemTexture);
					ipos = strfind(strrev(itemTexture),"\\");
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("itemTexture = "..itemTexture..", pos = "..((ilen+2)-ipos));
--end
					if ( ipos ) then
						itemTexture = strsub(itemTexture,(ilen+2)-ipos);
						ipos = DBCS_bons_monnaies_inverse_texture[itemTexture];
						if ( ipos ) then
							ipos = DBCS_bons_monnaies_inverse_num[ipos];
							if ( ipos ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("i = "..ipos);
--end
								tablo[j] = ""..(ipos*(-1))..":"..(itemValue/quantity);
							end
						end
					end
					--DBCS_bons_monnaies
				end
				--if ( itemTexture ) then
				--	for k = 1 , table.getn(DBCS_bons_objets) do
				--		if ( itemTexture == DBCS_bons_objets[k].texture ) then
				--			itemName, _, itemRarity, _, _, _, _, _, _, _ = GetItemInfo(DBCS_bons_objets[k].numobjet);
				--			--TraceFrame:AddMessage(DBCS_bons_objets[k].numobjet.." = "..CMS_GetItemLink("@@"..itemName.."@"..itemRarity.."@"..DBCS_bons_objets[k].numobjet..":0:0:0:0:0:0:0:0:0:0@@"));
				--			tablo[j] = ""..DBCS_bons_objets[k].numobjet..":"..(itemValue/quantity);
				--			--TraceFrame:AddMessage("tablo["..j.."] = "..tablo[j]);
				--		end
				--	end
				--end
			end
			DBOS_objetsbons(DBCS_date(),DBCS_mob.loot[i].numobjet,ispecial,ivaleur1/quantity,ivaleur2/quantity,ivaleur3/quantity,tablo[1],tablo[2],tablo[3]);
--end
--		sdate = DBCS_date();
--function DBOS_objetsbons(sdate,numobjet,svaleur1,svaleur2,svaleur3,svaleur4,svaleur5,svaleur6)
		end
		DBCS_MERCHANT_UPDATE = false;
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("DBCS arrive a bien lire les objets que vend "..DBCS_mob.name..".");
end
--	local honorPoints, arenaPoints, itemCount = GetMerchantItemCostInfo(index);
--		for i=1, MAX_ITEM_COST, 1 do
--			itemTexture, itemValue = GetMerchantItemCostItem(index, i);
--		end
	else
		DBCS_MERCHANT_UPDATE = true;
	end

end

--/script DBCS_test_xy()
function DBCS_test_xy()
--local posX, posY = GetPlayerMapPosition("player");
--Result 
--0.43320921063423, 0.69365233182907

	local x,y = GetPlayerMapPosition("player");

	TraceFrame:AddMessage("position exacte : x="..(x*100).." , y="..(y*100));
	--floor
	TraceFrame:AddMessage("position floor : x="..floor(x*100).." , y="..floor(y*100));
	--ceil
	TraceFrame:AddMessage("position ceil : x="..ceil(x*100).." , y="..ceil(y*100));
	--round
	TraceFrame:AddMessage("position round : x="..floor((x*100)+.5).." , y="..floor((y*100)+.5));

end

function DBCS_position100(bforce)

local a,b;
local x,y;
--WorldMapFrame

	--if ( bforce ) then
	--else
	--	bforce = 0;
	--end

	--if ( bforce == 0 ) then
	--	if ( WorldMapFrame:IsShown() ) then
	--	else
	--		if ( DBCS_position100_bchange == true ) then
	--			SetMapToCurrentZone();
	--			DBCS_position100_bchange = false;
	--		end
	--	end
	--else
	--	if ( DBCS_position100_bchange == true ) then
	--		SetMapToCurrentZone();
	--		DBCS_position100_bchange = false;
	--	end
	--end
	--DBCS_Region_liste_code_region_courante_new2();
	a,b = GetPlayerMapPosition("player");
	x = floor((a*100)+.5);
	y = floor((b*100)+.5);
	--if ( x == 0 and y == 0 ) then
	--	SetMapToCurrentZone();
	--	a,b = GetPlayerMapPosition("player");
	--	x = floor((a*100)+.5);
	--	y = floor((b*100)+.5);
	--end

	--a,b = GetPlayerMapPosition("player");
	--x = floor((a*100)+.5);
	--y = floor((b*100)+.5);
	--if ( x == 0 and y == 0 ) then
	---- soit on est ds une instance, soit la map n'a pas encore été ouverte
	--	SetMapToCurrentZone();
	--	a,b = GetPlayerMapPosition("player");
	--	x = floor((a*100)+.5);
	--	y = floor((b*100)+.5);
	--	if ( x == 0 and y == 0 ) then
	--	-- on doit vraiment etre ds une instance
	--	end
	--end

	return x,y;

end

DBCS_position100_bchange = true;

local Saved_DBCS_position100_SetMapZoom = SetMapZoom;
function DBCS_position100_SetMapZoom(a,b)

	Saved_DBCS_position100_SetMapZoom(a,b);
--TraceFrame:AddMessage("DBCS_position100_SetMapZoom : "..a.." , "..(b or ""));
	DBCS_position100_bchange = true;
	--DBCS_worldmap_afficherlocs();

end
SetMapZoom = DBCS_position100_SetMapZoom;

function DBCS_position100_x(nbdecimales,bforce)

local a,b;
local x,y;
local imultiple = 10^nbdecimales;

	--if ( bforce ) then
	--else
	--	bforce = 0;
	--end

	--if ( bforce == 0 ) then
	--	if ( WorldMapFrame:IsShown() ) then
	--	else
	--		if ( DBCS_position100_bchange == true ) then
	--			SetMapToCurrentZone();
	--			DBCS_position100_bchange = false;
	--		end
	--	end
	--else
	--	if ( DBCS_position100_bchange == true ) then
	--		SetMapToCurrentZone();
	--		DBCS_position100_bchange = false;
	--	end
	--end
	--DBCS_Region_liste_code_region_courante_new2();
	a,b = GetPlayerMapPosition("player");
	x = floor((a*100*imultiple)+.5);
	y = floor((b*100*imultiple)+.5);
	-- ce sera valable si carte régionale pas ouverte
	--if ( x == 0 and y == 0 ) then
	--	SetMapToCurrentZone();
	--	a,b = GetPlayerMapPosition("player");
	--	x = floor((a*100*imultiple)+.5);
	--	y = floor((b*100*imultiple)+.5);
	--end

	--a,b = GetPlayerMapPosition("player");
	--x = floor((a*100*imultiple)+.5);
	--y = floor((b*100*imultiple)+.5);
	--if ( x == 0 and y == 0 ) then
	---- soit on est ds une instance, soit la map n'a pas encore été ouverte
	--	SetMapToCurrentZone();
	--	a,b = GetPlayerMapPosition("player");
	--	x = floor((a*100*imultiple)+.5);
	--	y = floor((b*100*imultiple)+.5);
	--	if ( x == 0 and y == 0 ) then
	--	-- on doit vraiment etre ds une instance
	--	end
	--end

	x = x/imultiple;
	y = y/imultiple;
	return x,y;

end

function DBCS_position10000()

local a,b;
local x,y;

	--SetMapToCurrentZone();
	--DBCS_Region_liste_code_region_courante_new2();
	a,b = GetPlayerMapPosition("player");
	x = floor((a*10000)+.5);
	y = floor((b*10000)+.5);
	--if ( x == 0 and y == 0 ) then
	--	SetMapToCurrentZone();
	--	a,b = GetPlayerMapPosition("player");
	--	x = floor((a*10000)+.5);
	--	y = floor((b*10000)+.5);
	--end

	--a,b = GetPlayerMapPosition("player");
	--x = floor((a*10000)+.5);
	--y = floor((b*10000)+.5);
	--if ( x == 0 and y == 0 ) then
	---- soit on est ds une instance, soit la map n'a pas encore été ouverte
	--	SetMapToCurrentZone();
	--	a,b = GetPlayerMapPosition("player");
	--	x = floor((a*10000)+.5);
	--	y = floor((b*10000)+.5);
	--	if ( x == 0 and y == 0 ) then
	--	-- on doit vraiment etre ds une instance
	--	end
	--end

	return x,y;

end

function DBCS_lienjoueurbynom(nom)
--	"|Hplayer:"..PlayerName.."|h["..PlayerName.."]|h"

	if ( nom ) then
		return "|Hplayer:"..nom.."|h["..nom.."]|h"
	else
		return nil;
	end

end

function DBCS_reputation_loc(snomreput,svaleur)

local sdate,slead,stime;
local tablo_mob = nil;
local bbon = true;
local inb;

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = "faction "..snomreput.." "..svaleur;
	DBCS_mob.level = 0;
	DBCS_mob.classe = "faction";
	DBCS_mob.type = snomreput;
	DBCS_mob.famille = svaleur;
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = 0;
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100(1);
	if ( DBCS_CMS_numcanalCMS > 0 ) then
		if ( DBCS_typedegroupe() == 0 ) then
			DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
		else
			if ( DBCS_raid_player_cms.joueur_s[1] == DBCS_joueur ) then
				DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
			end
		end
	end
	DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);

end

function DBCS_liredes(inumobjet,snumcourt2)

local sdate,slead,stime;

--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_liredes : inumobjet = "..inumobjet);
--end
	sdate = DBCS_date();
	slead = DBCS_joueur;
	DBCS_raid_numlootraid = DBCS_raid_numlootraid + 1;
	stime = DBCS_time().."."..DBCS_raid_numlootraid;
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = GetRealZoneText();
	DBCS_mob.level = 0;
	DBCS_mob.classe = "r\195\169gion";
	DBCS_mob.famille = nil;
	DBCS_mob.type = "Objets";
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = 1;
	DBCS_mob.loot = {};
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100(1);
	DBCS_mob.loot[1] = {};
	DBCS_mob.loot[1].numobjet = inumobjet;
	DBCS_mob.loot[1].numcourt2 = snumcourt2;
	DBCS_mob.loot[1].nb = 0;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_CMS_numcanalCMS "..DBCS_CMS_numcanalCMS);
--end
	if ( DBCS_CMS_numcanalCMS > 0 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_raid_player_cms.joueur_s[1] = "..DBCS_raid_player_cms.joueur_s[1]);
--end
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_joueur = "..DBCS_joueur);
--end
		if ( DBCS_raid_player_cms.joueur_s[1] == DBCS_joueur ) then
			DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
			DBmobs_envoyerloot(DBCS_getlocale,sdate,slead,stime,1,DBCS_mob.loot[1].numobjet,DBCS_mob.loot[1].numcourt2,DBCS_mob.loot[1].nb);
		end
	end
	DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
	DBcorps_ajoutloot(sdate,slead,stime,1,DBCS_mob.loot[1].numobjet,DBCS_mob.loot[1].numcourt2,DBCS_mob.loot[1].nb);

end

function DBCS_loc_objectif_quete(sobjectif)

local sdate,slead,stime;
local tablo_mob = nil;
local bbon = true;
local inb;

--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_objectif_quete");
--end

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = sobjectif;
	DBCS_mob.level = 0;
	DBCS_mob.classe = "quete";
	DBCS_mob.famille = "";
	DBCS_mob.type = "";
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = 0;
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	tablo_mob = DBmobs_Detail(sobjectif,DBCS_mob.numzone,0);
	if ( tablo_mob ) then
		if ( tablo_mob.classe == "quete" ) then
		else
			bbon = false;
		end
	else
	end
	inb = DBobjets_nom_existe(sobjectif);
	if ( inb > 0 ) then
		bbon = false;
	end
	if ( bbon == true ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage(sobjectif.." est un objectif valide pour sauvegarde");
end
		DBCS_mob.x,DBCS_mob.y = DBCS_position100(1);
		if ( DBCS_CMS_numcanalCMS > 0 ) then
			DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
		end
		DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
	end

end

function DBCS_lire_ressource_nuage()

local sdate,slead,stime;

if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("DBCS_lire_ressource_nuage");
end

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = "Extraction de gaz";
	DBCS_mob.level = 0;
	DBCS_mob.classe = "paysage";
	DBCS_mob.famille = "Nuage";
	DBCS_mob.type = "Coffre";
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = 0;
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100(1);
	if ( DBCS_CMS_numcanalCMS > 0 ) then
		DBmobs_envoyermob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
	end
	DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);

end

function DBCS_lire_ressource_sans_recolte(arg1,snomtooltip)

local sdate,slead,stime;

--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_lire_ressource_sans_recolte");
--end
	if ( snomtooltip == nil ) then
		snomtooltip = GameTooltipTextLeft1:GetText();
	end

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = snomtooltip;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_mob.name = "..(DBCS_mob.name or ""));
--end
	DBCS_mob.level = 0;
	DBCS_mob.classe = "paysage";
	if ( strfind(strlower(arg1),DBCS_action_minage) ) then
		DBCS_mob.famille = "Minage";
	elseif ( strfind(strlower(arg1),DBCS_action_herboriste) ) then
		DBCS_mob.famille = "Cueillette";
	else
		DBCS_mob.famille = arg1;
	end
	DBCS_mob.type = "Coffre";
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = 0;
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100_x(3,1);
	if ( DBCS_CMS_numcanalCMS > 0 ) then
		DBmobs_envoyermob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
	end
	DBcorps_ajoutmob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);

end

local DBCS_prochain_element_num = 0;

--/script DBCS_envoyer_prochain_element();
function DBCS_envoyer_prochain_element(snomjoueur)

local a,b,c,d;
local btrouve;
local smessage_base;
local smessage;
local senreg_mob;
local ideb;
local ifin;
local inb;
local i,j;

	btrouve = false;
	for a, _ in pairs(DBCC) do
		if ( btrouve == false ) then
			if ( type(DBCC[a]) == "table" ) then
				for b, _ in pairs(DBCC[a]) do
					if ( btrouve == false ) then
--						if ( b == "OP" or b == "OP1" or b == "OI" or b == "OI2" or b == "OC" or tonumber(b) >= (tonumber(DBCS_date())-1) ) then
						if ( b == "OP" or b == "OP1" or b == "OI" or b == "OI2" or b == "OC" or tonumber(b) >= tonumber(DBCS_date()) ) then
						else
							if ( type(DBCC[a][b]) == "table" ) then
								for c, _ in pairs(DBCC[a][b]) do
									if ( btrouve == false ) then
										if ( type(DBCC[a][b][c]) == "table" ) then
											for d, _ in pairs(DBCC[a][b][c]) do
												if ( btrouve == false ) then
													if ( type(DBCC[a][b][c][d]) == "table" and DBCC[a][b][c][d][-3] == nil ) then
														btrouve = true;
														DBCS_prochain_element_num = DBCS_prochain_element_num + 1;
														if ( DBCC[a][b][c][d][-2] ) then
															smessage_base = "@ADBCS@"..DBCC[a][b][c][d][-2].."@HA01@"..DBCS_prochain_element_num.."@";
														else
															smessage_base = "@ADBCS@frFR@HA01@"..DBCS_prochain_element_num.."@";
															--smessage_base = "@ADBCS@zzZZ@HA01@"..DBCS_prochain_element_num.."@";
														end
														smessage = smessage_base.."-2@"..a.."@";
														smessage = smessage..b.."@";
														smessage = smessage..c.."@";
														smessage = smessage..d.."@";
														--if ( DBCS_whisper_dispo == 0 ) then
														--	SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
														--else
														SendAddonMessage("DBCS",smessage,"WHISPER",snomjoueur);
														--end
														senreg_mob = DBCC[a][b][c][d][-1];
														if ( senreg_mob ) then
															smessage = smessage_base.."-1@"..senreg_mob;
															--if ( DBCS_whisper_dispo == 0 ) then
															--	SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
															--else
															SendAddonMessage("DBCS",smessage,"WHISPER",snomjoueur);
															--end
														end
														senreg_mob = DBCC[a][b][c][d][0];
														i = 0;
														if ( senreg_mob ) then
															ifin = 0;
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- nommob
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- numregion
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- x
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- y
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- niv
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- classe
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- famille
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- type
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- plusmob
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- nb corp
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- nb skin
															ideb = ifin + 1;
															ifin = strfind(senreg_mob,"@",ideb);	-- nb loot
															inb = tonumber(strsub(senreg_mob,ideb,ifin-1));
															smessage = smessage_base.."0@"..senreg_mob;
															--if ( DBCS_whisper_dispo == 0 ) then
															--	SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
															--else
															SendAddonMessage("DBCS",smessage,"WHISPER",snomjoueur);
															--end
															for j = 1 , inb do
																senreg_mob = DBCC[a][b][c][d][j];
																if ( senreg_mob ) then
																	i = i + 1;
																	smessage = smessage_base..j.."@"..senreg_mob;
																	--if ( DBCS_whisper_dispo == 0 ) then
																	--	SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
																	--else
																	SendAddonMessage("DBCS",smessage,"WHISPER",snomjoueur);
																	--end
																end
															end
														else
															for j, _ in pairs(DBCC[a][b][c][d]) do
																if ( j > 0 ) then
																	if ( j > i ) then
																		i = j;
																	end
																	senreg_mob = DBCC[a][b][c][d][j];
																	if ( senreg_mob ) then
																		smessage = smessage_base..j.."@"..senreg_mob;
																		--if ( DBCS_whisper_dispo == 0 ) then
																		--	SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
																		--else
																		SendAddonMessage("DBCS",smessage,"WHISPER",snomjoueur);
																		--end
																	end
																end
															end
														end
														--DBCC[a][b][c][d] = nil;
														DBCC[a][b][c][d][-3] = 0;
														smessage = smessage_base.."-3@"..i.."@";
														--if ( DBCS_whisper_dispo == 0 ) then
														--	SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
														--else
														SendAddonMessage("DBCS",smessage,"WHISPER",snomjoueur);
														--end
													end
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
	if ( btrouve == false ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("il n'y a aucun enreg a envoyer");
end
		smessage = "@ADBCS@frFR@HF01@";
		--if ( DBCS_whisper_dispo == 0 ) then
		--	SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
		--else
		SendAddonMessage("DBCS",smessage,"WHISPER",snomjoueur);
		--end
	end

end

local DBCS_prochain_element_t_serveur = {};
local DBCS_prochain_element_t_date = {};
local DBCS_prochain_element_t_joueur = {};
local DBCS_prochain_element_t_time = {};

local DBCS_prochain_element_e_serveur = nil;
local DBCS_prochain_element_e_date = nil;
local DBCS_prochain_element_e_joueur = nil;
local DBCS_prochain_element_e_time = nil;

--/script DBCS_envoyer_prochain_element();
function DBCS_envoyer_prochain_element_old(snomjoueur)

local a,b,c,d;
local i,j,k,l;
local bfin;
local smessage;
local smessage_base;
local ideb;
local ifin;
local inb;
local senreg_mob;

	if ( DBCS_prochain_element_e_serveur == nil ) then
		-- initialisation des 4 tableaux et des 4 elements memo
		-- boucle sur les serveurs
		DBCS_prochain_element_t_serveur = {};
		DBCS_prochain_element_t_date = {};
		DBCS_prochain_element_t_joueur = {};
		DBCS_prochain_element_t_time = {};
		DBCS_prochain_element_e_serveur = 0;
		DBCS_prochain_element_e_date = 0;
		DBCS_prochain_element_e_joueur = 0;
		DBCS_prochain_element_e_time = 0;
		i = 0;
		for a, _ in pairs(DBCC) do
			i = i + 1;
			DBCS_prochain_element_t_serveur[i] = a;
			if ( i == 1 ) then
				DBCS_prochain_element_e_serveur = 1;
				-- boucle sur les dates
				j = 0;
				for b, _ in pairs(DBCC[a]) do
					if ( b == "OP" or b == "OP1" or b == "OI" or b == "OI2" or b == "OC" or tonumber(b) >= (tonumber(DBCS_date())-1) ) then
					else
						j = j + 1;
						DBCS_prochain_element_t_date[j] = b;
						if ( j == 1 ) then
							DBCS_prochain_element_e_date = 1;
							-- boucle sur les joueurs
							k = 0;
							for c, _ in pairs(DBCC[a][b]) do
								k = k + 1;
								DBCS_prochain_element_t_joueur[k] = c;
								if ( k == 1 ) then
									DBCS_prochain_element_e_joueur = 1;
									-- boucle sur les time
									l = 0;
									for d, _ in pairs(DBCC[a][b][c]) do
										l = l + 1;
										DBCS_prochain_element_t_time[l] = d;
										if ( l == 1 ) then
											DBCS_prochain_element_e_time = 1;
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end

if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("enreg : "..DBCS_prochain_element_e_serveur.."/"..table.getn(DBCS_prochain_element_t_serveur).." , "..DBCS_prochain_element_e_date.."/"..table.getn(DBCS_prochain_element_t_date).." , "..DBCS_prochain_element_e_joueur.."/"..table.getn(DBCS_prochain_element_t_joueur).." , "..DBCS_prochain_element_e_time.."/"..table.getn(DBCS_prochain_element_t_time));
end
	
	-- envoi de l élément
	if ( DBCS_prochain_element_e_serveur and DBCS_prochain_element_e_serveur > 0 and DBCS_prochain_element_e_serveur <= table.getn(DBCS_prochain_element_t_serveur) and 
			DBCS_prochain_element_e_date and DBCS_prochain_element_e_date <= table.getn(DBCS_prochain_element_t_date) and 
			DBCS_prochain_element_e_joueur and DBCS_prochain_element_e_joueur <= table.getn(DBCS_prochain_element_t_joueur) and 
			DBCS_prochain_element_e_time and DBCS_prochain_element_e_time <= table.getn(DBCS_prochain_element_t_time) ) then
		bfin = false;
		while ( bfin == false ) do
			if ( DBCS_prochain_element_e_serveur ) then
				if (
					DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur] and 
					DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]] and
					DBCS_prochain_element_t_date[DBCS_prochain_element_e_date] and
					DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]] and
					DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur] and
					DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]] and
					DBCS_prochain_element_t_time[DBCS_prochain_element_e_time] and
					DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]][DBCS_prochain_element_t_time[DBCS_prochain_element_e_time]] and
					( not ( DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur] == DBCS_serveur and DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur] == snomjoueur ) )
					)
				then
					bfin = true;
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'envoi cet enreg : "..DBCS_prochain_element_e_serveur.."/"..table.getn(DBCS_prochain_element_t_serveur).." , "..DBCS_prochain_element_e_date.."/"..table.getn(DBCS_prochain_element_t_date).." , "..DBCS_prochain_element_e_joueur.."/"..table.getn(DBCS_prochain_element_t_joueur).." , "..DBCS_prochain_element_e_time.."/"..table.getn(DBCS_prochain_element_t_time));
TraceFrame:AddMessage("serveur : "..DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]);
TraceFrame:AddMessage("date : "..DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]);
TraceFrame:AddMessage("joueur : "..DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]);
TraceFrame:AddMessage("time : "..DBCS_prochain_element_t_time[DBCS_prochain_element_e_time]);
end
					DBCS_prochain_element_num = DBCS_prochain_element_num + 1;
					if ( DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]][DBCS_prochain_element_t_time[DBCS_prochain_element_e_time]][-2] ) then
						smessage_base = "@ADBCS@"..DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]][DBCS_prochain_element_t_time[DBCS_prochain_element_e_time]][-2].."@HA01@"..DBCS_prochain_element_num.."@";
					else
						smessage_base = "@ADBCS@frFR@HA01@"..DBCS_prochain_element_num.."@";
					end
					smessage = smessage_base.."-2@"..DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur].."@";
					smessage = smessage..DBCS_prochain_element_t_date[DBCS_prochain_element_e_date].."@";
					smessage = smessage..DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur].."@";
					smessage = smessage..DBCS_prochain_element_t_time[DBCS_prochain_element_e_time].."@";
					CMS_SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
					--if ( DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]][DBCS_prochain_element_t_time[DBCS_prochain_element_e_time]][-2] ) then
					--	senreg_mob = DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]][DBCS_prochain_element_t_time[DBCS_prochain_element_e_time]][-2]
					--else
					--	senreg_mob = DBCS_getlocale.."@";
					--end
					--smessage = smessage_base.."-4@"..senreg_mob;
					--SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
					senreg_mob = DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]][DBCS_prochain_element_t_time[DBCS_prochain_element_e_time]][-1];
					smessage = smessage_base.."-1@"..senreg_mob;
					CMS_SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
					senreg_mob = DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]][DBCS_prochain_element_t_time[DBCS_prochain_element_e_time]][0];
					ifin = 0;
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- nommob
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- numregion
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- x
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- y
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- niv
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- classe
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- famille
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- type
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- plusmob
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- nb corp
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- nb skin
					ideb = ifin + 1;
					ifin = strfind(senreg_mob,"@",ideb);	-- nb loot
					inb = tonumber(strsub(senreg_mob,ideb,ifin-1));
					smessage = smessage_base.."0@"..senreg_mob;
					CMS_SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
					i = 0;
					for j = 1 , inb do
						senreg_mob = DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]][DBCS_prochain_element_t_time[DBCS_prochain_element_e_time]][j];
						if ( senreg_mob ) then
							i = i + 1;
							smessage = smessage_base..j.."@"..senreg_mob;
							CMS_SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
						end
					end
					smessage = smessage_base.."-3@"..i.."@";
					CMS_SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
				end
			else
				bfin = true;
			end
			DBCS_prochain_element_e_time = DBCS_prochain_element_e_time + 1;
			if ( DBCS_prochain_element_e_time > table.getn(DBCS_prochain_element_t_time) ) then
				DBCS_prochain_element_e_time = 1;
				DBCS_prochain_element_e_joueur = DBCS_prochain_element_e_joueur + 1;
				if ( DBCS_prochain_element_e_joueur > table.getn(DBCS_prochain_element_t_joueur) ) then
					DBCS_prochain_element_e_joueur = 1;
					DBCS_prochain_element_e_date = DBCS_prochain_element_e_date + 1;
					if ( DBCS_prochain_element_e_date > table.getn(DBCS_prochain_element_t_date) ) then
						DBCS_prochain_element_e_date = 1;
						DBCS_prochain_element_e_serveur = DBCS_prochain_element_e_serveur + 1;
						if ( DBCS_prochain_element_e_serveur > table.getn(DBCS_prochain_element_t_serveur) ) then
						else
						end
					else
					end
				else
				end
			else
			end
			if ( DBCS_prochain_element_e_serveur <= table.getn(DBCS_prochain_element_t_serveur) ) then
				DBCS_prochain_element_t_date = {};
				DBCS_prochain_element_t_joueur = {};
				DBCS_prochain_element_t_time = {};
				if ( DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur] and DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]] ) then
					j = 0;
					for b, _ in pairs(DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]]) do
						if ( b == "OP" or b == "OP1" or b == "OI" or b == "OI2" or b == "OC" or tonumber(b) >= (tonumber(DBCS_date())-1) ) then
						else
							j = j + 1;
							DBCS_prochain_element_t_date[j] = b;
						end
					end
					if ( DBCS_prochain_element_t_date[DBCS_prochain_element_e_date] and DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]] ) then
						k = 0;
-- erreur	attemp to call a nill value
						for c, _ in pairs(DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]]) do
							k = k + 1;
							DBCS_prochain_element_t_joueur[k] = c;
						end
						if ( DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur] and DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]] ) then
							l = 0;
-- dbcorps 5508 version 29bad argument #1 to pairs table expected, gotnil
							for d, _ in pairs(DBCC[DBCS_prochain_element_t_serveur[DBCS_prochain_element_e_serveur]][DBCS_prochain_element_t_date[DBCS_prochain_element_e_date]][DBCS_prochain_element_t_joueur[DBCS_prochain_element_e_joueur]]) do
								l = l + 1;
								DBCS_prochain_element_t_time[l] = d;
							end
						end
					end
				end
			else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("il n'y a plus d enreg a envoyer");
end
				bfin = true;
				DBCS_prochain_element_e_serveur = 0;
				smessage = "@ADBCS@frFR@HF02@";
				CMS_SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
			end
		end
	else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("il n'y a aucun enreg a envoyer");
end
		DBCS_prochain_element_e_serveur = 0;
		smessage = "@ADBCS@frFR@HF01@";
		CMS_SendChatMessage(smessage,"WHISPER",DBCS_language,snomjoueur);
	end

end

local DBCS_chrono2 = false;
local DBCS_chrono2_itime = 0;

--/script DBCS_envoihisto()
function DBCS_envoihisto()

	if ( DBCS_chrono2 == true ) then
		if ( ( GetTime() - DBCS_chrono2_itime ) > 5 ) then
			DBCS_envoyer_prochain_element("Fauvette");
			DBCS_chrono2_itime = GetTime();
		end
	end

end

--/script DBCS_envoihisto_debut()
function DBCS_envoihisto_debut()

	DBCS_chrono2 = true;
	DBCS_chrono2_itime = GetTime();

end
--/script DBCS_envoihisto_fin()
function DBCS_envoihisto_fin()

	DBCS_chrono2 = false;
	DBCS_chrono2_itime = 0;

end

local DBCS_tr_joueur_t = {};

function DBCS_tr_joueur_modifier(snomjoueur,inumversion)

local i;
local inb;
local bfin;

	DBCS_tr_joueur_ajouter(snomjoueur);

	bfin = false;
	inb = table.getn(DBCS_tr_joueur_t);
	i = 0;
	while ( bfin == false and i < inb ) do
		i = i + 1;
		if ( DBCS_tr_joueur_t[i].nomjoueur == snomjoueur ) then
			bfin = true;
			DBCS_tr_joueur_t[i].version = inumversion;
			DBCS_tr_joueur_t[i].timeenvoi = 0;
		end
	end

end

function DBCS_tr_joueur_finenreg(snomjoueur)

local i;
local inb;
local bfin;

	bfin = false;
	inb = table.getn(DBCS_tr_joueur_t);
	i = 0;
	while ( bfin == false and i < inb ) do
		i = i + 1;
		if ( DBCS_tr_joueur_t[i].nomjoueur == snomjoueur ) then
			bfin = true;
			DBCS_tr_joueur_t[i].timeenvoi = 0;
		end
	end

end

--/script DBCS_tr_joueur_toutrecu("eskatonia")
function DBCS_tr_joueur_toutrecu(snomjoueur)

local i;
local inb;
local bfin;

	bfin = false;
	inb = table.getn(DBCS_tr_joueur_t);
	i = 0;
	while ( bfin == false and i < inb ) do
		i = i + 1;
		if ( DBCS_tr_joueur_t[i].nomjoueur == snomjoueur ) then
			bfin = true;
			DBCS_tr_joueur_t[i].toutrecu = 1;
		end
	end

end

--/script DBCS_tr_joueur_ajouter("Yanoos")
--/script DBCS_tr_joueur_ajouter("Merzhin")
function DBCS_tr_joueur_ajouter(snomjoueur)

local i;
local bfin;
local inb;
local elem = {};
local iversion = 0;
local itimeenvoi = 0;
local itoutrecu = 0;

	if ( DBCS_prog_serveur == 0 ) then
		return;
	end
	if ( DBCS_chrono3 == false ) then
		return;
	end
	if ( snomjoueur == DBCS_joueur ) then
		return;
	end

	bfin = false;
	inb = table.getn(DBCS_tr_joueur_t);
	i = 0;
	while ( bfin == false and i < inb ) do
		i = i + 1;
		if ( DBCS_tr_joueur_t[i].nomjoueur == snomjoueur ) then
			bfin = true;
			iversion = DBCS_tr_joueur_t[i].version;
			itimeenvoi = DBCS_tr_joueur_t[i].timeenvoi;
			itoutrecu = DBCS_tr_joueur_t[i].toutrecu;
			table.remove(DBCS_tr_joueur_t,i);
		end
	end
	elem.nomjoueur = snomjoueur;
	elem.time = DBCS_time();	--GetTime();
	elem.timeenvoi = itimeenvoi;
	elem.version = iversion;
	elem.toutrecu = itoutrecu;
	table.insert(DBCS_tr_joueur_t,1,elem);
	
end

--/script DBCS_tr_joueur_afficher();
function DBCS_tr_joueur_afficher()

local i;
local inb;

TraceFrame:AddMessage("tableau temps reel des joueurs avec DBCS :");
	inb = table.getn(DBCS_tr_joueur_t);
	i = 0;
	while ( i < inb ) do
		i = i + 1;
TraceFrame:AddMessage("joueur : "..i.." = "..DBCS_lienjoueurbynom(DBCS_tr_joueur_t[i].nomjoueur).." au moment "..DBCS_tr_joueur_t[i].time.." , version : "..DBCS_tr_joueur_t[i].version.." , toutrecu = "..DBCS_tr_joueur_t[i].toutrecu..", envoi a : "..DBCS_tr_joueur_t[i].timeenvoi);
	end

end

--/script ChannelToggleAnnouncements("cms");

local DBCS_chrono3 = false;
local DBCS_chrono3_itime = 0;

--/script DBCS_recup_enreg_joueurs();
function DBCS_recup_enreg_joueurs()

local i;
local inb;
local bfin = false;
local smessage;

	--if ( DBCS_chrono_purge > 0 ) then
	--	if ( ( GetTime() - DBCS_chrono_purge ) > 10 ) then
	--		DBCS_chrono_purge = 0;
	--		DBcorpsFrame_MobsFrame_Criteres_Purge:Hide();
	--		DBcorpsFrame_MobsFrame_Criteres_LancerPurge:Show();
	--	end
	----else
	----	DBcorpsFrame_MobsFrame_Criteres_Purge:Hide();
	--end
	if ( DBCS_prog_serveur == 0 ) then
		return;
	end
	if ( DBCS_chrono3 == true ) then
		if ( StaticPopup_Visible("CAMP") or StaticPopup_Visible("QUIT") ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je n'envoi pas de demandes.");
--end
			DBCS_chrono3_itime = GetTime();
			return;
		end
		if ( GameMenuFrame:IsVisible() ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je n'envoi pas de demandes.");
--end
			DBCS_chrono3_itime = GetTime();
			return;
		end

		if ( ( GetTime() - DBCS_chrono3_itime ) > 5 ) then
			--if ( UnitIsAFK("player") ) then
			--	DBCS_chrono3_itime = GetTime();
			--	return;
			--end
			--if ( UnitIsDND("player") ) then
			--	DBCS_chrono3_itime = GetTime();
			--	return;
			--end
			
--NEW afk = UnitIsAFK("unit") -- Only works for friendly units 
--NEW dnd = UnitIsDND("unit") 

			--if ( DBCS_bAFK == 1 ) then
--			if ( UnitIsAFK("Player") == true or UnitIsDND("Player") == true ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je suis ailleurs, je n'envoi pas de demandes.");
--end
--				DBCS_chrono3_itime = GetTime();
--				return;
--			end
--			if ( DBCS_bAFK == 1 or DBCS_bDND == 1 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("je suis AFK ou DND, je n'envoi pas de demandes.");
--end
--				DBCS_chrono3_itime = GetTime();
--				return;
--			end
			bfin = false;
			inb = table.getn(DBCS_tr_joueur_t);
			i = 0;
			while ( bfin == false and i < inb ) do
				i = i + 1;
				if ( DBCS_tr_joueur_t[i] and DBCS_tr_joueur_t[i].version ) then
					if ( DBCS_tr_joueur_t[i].version == 0 ) then
						DBCS_tr_joueur_t[i].version = 1;
						DBCS_tr_joueur_t[i].timeenvoi = GetTime();
						bfin = true;
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'envoi message demande version a "..DBCS_lienjoueurbynom(DBCS_tr_joueur_t[i].nomjoueur));
end
	--if ( arg1 == "@ADBCS@SC01@CMS@" ) then
						smessage = "@ADBCS@"..DBCS_getlocale.."@VR01@";
						--if ( DBCS_whisper_dispo == 0 ) then
						--	SendChatMessage(smessage,"WHISPER",DBCS_language,DBCS_tr_joueur_t[i].nomjoueur);
						--else
						SendAddonMessage("DBCS",smessage,"WHISPER",DBCS_tr_joueur_t[i].nomjoueur);
						--end
					elseif ( DBCS_tr_joueur_t[i].version == 1 ) then
						if ( ( GetTime() - DBCS_tr_joueur_t[i].timeenvoi ) > 300 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'efface l'enreg "..i.." : "..DBCS_tr_joueur_t[i].nomjoueur);
end
							DBCS_recup_tempo[DBCS_tr_joueur_t[i].nomjoueur] = nil;
							table.remove(DBCS_tr_joueur_t,i);
							inb = table.getn(DBCS_tr_joueur_t);
						end
					--elseif ( DBCS_tr_joueur_t[i].version > 10016 ) then
					--elseif ( DBCS_tr_joueur_t[i].version > 10024 ) then
					--elseif ( DBCS_tr_joueur_t[i].version > 10031 and ( not ( DBCS_tr_joueur_t[i].nomjoueur == "Hellion" ) ) and ( not ( DBCS_tr_joueur_t[i].nomjoueur == "Morthell" ) ) ) then
					--elseif ( DBCS_tr_joueur_t[i].version > 10031 ) then
					--elseif ( DBCS_tr_joueur_t[i].version > 10034 ) then
					elseif ( DBCS_tr_joueur_t[i].version > 10049 ) then
						if ( DBCS_tr_joueur_t[i].timeenvoi == 0 ) then
							DBCS_tr_joueur_t[i].timeenvoi = GetTime();
							bfin = true;
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'envoi message demande enreg a "..DBCS_lienjoueurbynom(DBCS_tr_joueur_t[i].nomjoueur));
end
							smessage = "@ADBCS@"..DBCS_getlocale.."@HR01@";
							--if ( DBCS_whisper_dispo == 0 ) then
							--	SendChatMessage(smessage,"WHISPER",DBCS_language,DBCS_tr_joueur_t[i].nomjoueur);
							--else
							SendAddonMessage("DBCS",smessage,"WHISPER",DBCS_tr_joueur_t[i].nomjoueur);
							--end
						elseif ( ( GetTime() - DBCS_tr_joueur_t[i].timeenvoi ) > 60 ) then
							if ( DBCS_tr_joueur_t[i].toutrecu == 0 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'efface l'enreg "..i.." : "..DBCS_tr_joueur_t[i].nomjoueur);
end
								DBCS_recup_tempo[DBCS_tr_joueur_t[i].nomjoueur] = nil;
								table.remove(DBCS_tr_joueur_t,i);
								inb = table.getn(DBCS_tr_joueur_t);
								--bfin = true;
							else
							end
						end
					elseif ( DBCS_tr_joueur_t[i].version > 10011 ) then
						if ( DBCS_tr_joueur_t[i].timeenvoi == 0 ) then
							DBCS_tr_joueur_t[i].timeenvoi = GetTime();
						elseif ( ( GetTime() - DBCS_tr_joueur_t[i].timeenvoi ) > 300 ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("j'efface l'enreg "..i.." : "..DBCS_tr_joueur_t[i].nomjoueur);
end
							DBCS_recup_tempo[DBCS_tr_joueur_t[i].nomjoueur] = nil;
							table.remove(DBCS_tr_joueur_t,i);
							inb = table.getn(DBCS_tr_joueur_t);
						end
					end
				else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("l'enreg "..i.." de DBCS_tr_joueur_t est mauvais");
end
				end
			end
			DBCS_chrono3_itime = GetTime();
		end
	end

end

--/script DBCS_recup_enreg_joueurs_debut();
function DBCS_recup_enreg_joueurs_debut()

	if ( DBCS_prog_serveur == 1 ) then
		DBCS_chrono3 = true;
		DBCS_tr_joueur_t = {};
		DBCS_chrono3_itime = GetTime();
	end

end

--/script DBCS_recup_enreg_joueurs_fin();
function DBCS_recup_enreg_joueurs_fin()

	DBCS_chrono3 = false;
	DBCS_tr_joueur_t = {};
	DBCS_chrono3_itime = 0;

end

--	DBCS_innervation_yell

--/script DBCS_innervation_yell_on();
function DBCS_innervation_yell_on()
	DBCS_innervation_yell = 1;
end
--/script DBCS_innervation_yell_off();
function DBCS_innervation_yell_off()
	DBCS_innervation_yell = 0;
end

--/script DEFAULT_CHAT_FRAME:AddMessage(table.getn(_G["DBCS_setsnom"]));

function DBCS_traiter_histo_corp(nomjoueur,inum)
--if ( DBCS_recup_tempo[sarg2][inum][0] and DBCS_recup_tempo[sarg2][inum][-2] and DBCS_recup_tempo[sarg2][inum][-3] ) then

local ideb;
local ifin;
local senreg;
local snomserveur;
local sdate;
local snomjoueur;
local sheure;
local stime;
local scode;
local snommob;
local snumregion;
local ix;
local iy;
local iniv;
local sclasse;
local sfamille;
local stype;
local splusmob;
local inbcorp;
local inbskin;
local inbloot;
local i;
local bbon;
local bbon2;
local inumloot;
local inumobjet;
local snumcourt2;
local inb;
local smessage;
local slink;
local hex;

	senreg = DBCS_recup_tempo[nomjoueur][inum][-2];
	ifin = 0;
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	snomserveur = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	sdate = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	snomjoueur = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	sheure = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	stime = strsub(senreg,ideb,ifin-1);
	scode = strsub(DBCS_recup_tempo[nomjoueur][inum][-1],1,4);
--function DBcorps_ajoutmob(DBCS_getlocale,sdate,slead,stime,snommob,snumregion,x,y,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot)
	senreg = DBCS_recup_tempo[nomjoueur][inum][0];
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("0 : senreg = "..senreg);
--end
	ifin = 0;
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	snommob = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	snumregion = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	ix = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	iy = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	iniv = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	sclasse = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	sfamille = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	stype = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	splusmob = strsub(senreg,ideb,ifin-1);
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	inbcorp = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	inbskin = tonumber(strsub(senreg,ideb,ifin-1));
	ideb = ifin + 1;
	ifin = strfind(senreg,"@",ideb);
	inbloot = tonumber(strsub(senreg,ideb,ifin-1));
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("ajout historique : serveur : "..snomserveur.." , date : "..sdate.." , heure : "..sheure.." , time : "..stime.." , pour "..inbloot.." loots.");
TraceFrame:AddMessage("ajout mob : "..inbcorp.." corps et "..inbskin.." skin de ["..snommob.."] "..sclasse.." "..iniv.." dans la region "..snumregion.." : ["..DB_nomregionbynum(snumregion).."] en "..ix..","..iy..". par "..DBCS_lienjoueurbynom(snomjoueur));
end
	if ( scode == "CA01" ) then
		DBcorps_ajoutmob(DBCS_getlocale,sdate,snomjoueur,sheure.."@"..stime,snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot,snomserveur);
	elseif ( scode == "CA02" ) then
--		if ( tonumber(sdate) < 20070523 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("cet enreg est trop vieux");
--end
--		else
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("cet enreg est valable");
--end
--		end
		--if ( ( tonumber(sdate) < 20070523 ) and ( sclasse == "paysage" ) and ( stype == "Coffre" ) and ( sfamille == "Minage" ) ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("cette loc de mine est trop vieille");
--end
		bbon2 = true;
		if ( ( tonumber(sdate) < 20070524 ) ) then
			bbon2 = false;
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("cet enreg est trop vieux");
end
		end
		if ( bbon2 == true ) then
			DBcorps_ajoutmob2(DBCS_getlocale,sdate,snomjoueur,sheure.."@"..stime,snommob,snumregion,ix,iy,iniv,sclasse,sfamille,stype,splusmob,inbcorp,inbskin,inbloot,snomserveur);
		end
	end
	bbon = true;
	for i = 1 , inbloot do
		senreg = DBCS_recup_tempo[nomjoueur][inum][i];
		if ( senreg ) then
--function DBcorps_ajoutloot(sdate,slead,stime,inumloot,inumobjet,snumcourt2,inb)
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage(i.." : senreg = "..senreg);
--end
			ifin = 0;
			--ideb = ifin + 1;
			--ifin = strfind(senreg,"@",ideb);
			--inumloot = tonumber(strsub(senreg,ideb,ifin-1));
			ideb = ifin + 1;
			ifin = strfind(senreg,"@",ideb);
			inumobjet = tonumber(strsub(senreg,ideb,ifin-1));
			ideb = ifin + 1;
			ifin = strfind(senreg,"@",ideb);
			snumcourt2 = strsub(senreg,ideb,ifin-1);
			ideb = ifin + 1;
			ifin = strfind(senreg,"@",ideb);
			inb = tonumber(strsub(senreg,ideb,ifin-1));
if ( DBCS_debug > 1 ) then
	if ( inumobjet > 0 ) then
		slink = DBobjets_GetItemLink(inumobjet,snumcourt2);
		if ( slink ) then
TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink); --.." pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
		else
			_, _, _, hex = GetItemQualityColor(6);
			slink = "|c"..hex.."|Hitem:"..inumobjet..":"..snumcourt2.."|h[oula oula oula]|h|r";
			TraceFrame:AddMessage("ajout de loot : "..inb.." fois l'objet "..inumobjet..":"..snumcourt2.." "..slink);
		end
	else
TraceFrame:AddMessage("ajout de loot : "..inb.." pc"); -- pour le mob "..snommob.." dans la region "..snumregion..". par "..sjoueur);
	end
end
			if ( scode == "CA01" ) then
				DBcorps_ajoutloot(sdate,snomjoueur,sheure.."@"..stime,i,inumobjet,snumcourt2,inb,snomserveur);
			elseif ( scode == "CA02" ) then
				bbon2 = true;
				if ( ( tonumber(sdate) < 20070524 ) ) then
					bbon2 = false;
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("cet enreg est trop vieux");
end
				end
				if ( bbon2 == true ) then
					DBcorps_ajoutloot2(sdate,snomjoueur,sheure.."@"..stime,i,inumobjet,snumcourt2,inb,snomserveur);
				end
			end
		else
			bbon = false;
		end
	end
	smessage = "@ADBCS@"..DBCS_getlocale.."@CS01@";	-- suppression du corp ds la sauvegarde
	smessage = smessage..snomserveur.."@"..sdate.."@"..snomjoueur.."@"..sheure.."@"..stime.."@";
	if ( bbon == true ) then
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("historique complet");
end
		-- envoyer message cms de supp de cet enreg de DBCC pour tous les autres
		-- je n'envoi plus de messages de suppression
		--DBCS_SendChatMessage(smessage,"CHANNEL",DBCS_language,DBCS_CMS_numcanalCMS);
	else
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("historique incomplet");
end
		-- envoyer message send de supp de cet enreg de DBCC
		--if ( DBCS_whisper_dispo == 0 ) then
		--	SendChatMessage(smessage,"WHISPER",DBCS_language,nomjoueur);
		--else
		-- je n'envoi plus de messages de suppression
		--SendAddonMessage("DBCS",smessage,"WHISPER",nomjoueur);
		--end
	end
	DBCS_recup_tempo[nomjoueur][inum] = nil;

end

--local Saved_DBCS_ContainerFrame_GenerateFrame = ContainerFrame_GenerateFrame;

--function DBCS_ContainerFrame_GenerateFrame(frame, size, id)
--	Saved_DBCS_ContainerFrame_GenerateFrame(frame, size, id);
--end

function DBCS2_ContainerFrame_GenerateFrame(frame, size, id)
	if ( size < 18 and id > 0 ) then
		size = 36;
	end
	frame.size = size;
	local name = frame:GetName();
	local bgTextureTop = _G[name.."BackgroundTop"];
	local bgTextureMiddle = _G[name.."BackgroundMiddle1"];
	local bgTextureBottom = _G[name.."BackgroundBottom"];
	local columns = NUM_CONTAINER_COLUMNS;
	local rows = ceil(size / columns);
	-- if size = 0 then its the backpack
	if ( id == 0 ) then
		_G[name.."MoneyFrame"]:Show();
		-- Set Backpack texture
		bgTextureTop:SetTexture("Interface\\ContainerFrame\\UI-BackpackBackground");
		bgTextureTop:SetHeight(256);
		bgTextureTop:SetTexCoord(0, 1, 0, 1);
		
		-- Hide unused textures
		for i=1, MAX_BG_TEXTURES do
			_G[name.."BackgroundMiddle"..i]:Hide();
		end
		bgTextureBottom:Hide();
		frame:SetHeight(240);
	else
		-- Not the backpack
		-- Set whether or not its a bank bag
		local bagTextureSuffix = "";
		if ( id > NUM_BAG_FRAMES ) then
			bagTextureSuffix = "-Bank";
		elseif ( id == KEYRING_CONTAINER ) then
			bagTextureSuffix = "-Keyring";
		end
		-- Set textures
		bgTextureTop:SetTexture("Interface\\ContainerFrame\\UI-Bag-Components"..bagTextureSuffix);
		for i=1, MAX_BG_TEXTURES do
			_G[name.."BackgroundMiddle"..i]:SetTexture("Interface\\ContainerFrame\\UI-Bag-Components"..bagTextureSuffix);
			_G[name.."BackgroundMiddle"..i]:Hide();
		end
		bgTextureBottom:SetTexture("Interface\\ContainerFrame\\UI-Bag-Components"..bagTextureSuffix);
		-- Hide the moneyframe since its not the backpack
		_G[name.."MoneyFrame"]:Hide();	
		
		local bgTextureCount, height;
		local rowHeight = 41;
		-- Subtract one, since the top texture contains one row already
		local remainingRows = rows-1;

		-- See if the bag needs the texture with two slots at the top
		local isPlusTwoBag;
		if ( mod(size,columns) == 2 ) then
			isPlusTwoBag = 1;
		end

		-- Bag background display stuff
		if ( isPlusTwoBag ) then
			bgTextureTop:SetTexCoord(0, 1, 0.189453125, 0.330078125);
			bgTextureTop:SetHeight(72);
		else
			if ( rows == 1 ) then
				-- If only one row chop off the bottom of the texture
				bgTextureTop:SetTexCoord(0, 1, 0.00390625, 0.16796875);
				bgTextureTop:SetHeight(86);
			else
				bgTextureTop:SetTexCoord(0, 1, 0.00390625, 0.18359375);
				bgTextureTop:SetHeight(94);
			end
		end
		-- Calculate the number of background textures we're going to need
		bgTextureCount = ceil(remainingRows/ROWS_IN_BG_TEXTURE);
		
		local middleBgHeight = 0;
		-- If one row only special case
		if ( rows == 1 ) then
			bgTextureBottom:SetPoint("TOP", bgTextureMiddle:GetName(), "TOP", 0, 0);
			bgTextureBottom:Show();
			-- Hide middle bg textures
			for i=1, MAX_BG_TEXTURES do
				_G[name.."BackgroundMiddle"..i]:Hide();
			end
		else
			-- Try to cycle all the middle bg textures
			local firstRowPixelOffset = 9;
			local firstRowTexCoordOffset = 0.353515625;
			for i=1, bgTextureCount do
				bgTextureMiddle = _G[name.."BackgroundMiddle"..i];
				if ( remainingRows > ROWS_IN_BG_TEXTURE ) then
					-- If more rows left to draw than can fit in a texture then draw the max possible
					height = ( ROWS_IN_BG_TEXTURE*rowHeight ) + firstRowTexCoordOffset;
					bgTextureMiddle:SetHeight(height);
					bgTextureMiddle:SetTexCoord(0, 1, firstRowTexCoordOffset, ( height/BG_TEXTURE_HEIGHT + firstRowTexCoordOffset) );
					bgTextureMiddle:Show();
					remainingRows = remainingRows - ROWS_IN_BG_TEXTURE;
					middleBgHeight = middleBgHeight + height;
				else
					-- If not its a huge bag
					bgTextureMiddle:Show();
					height = remainingRows*rowHeight-firstRowPixelOffset;
					bgTextureMiddle:SetHeight(height);
					bgTextureMiddle:SetTexCoord(0, 1, firstRowTexCoordOffset, ( height/BG_TEXTURE_HEIGHT + firstRowTexCoordOffset) );
					middleBgHeight = middleBgHeight + height;
				end
			end
			-- Position bottom texture
			bgTextureBottom:SetPoint("TOP", bgTextureMiddle:GetName(), "BOTTOM", 0, 0);
			bgTextureBottom:Show();
		end
		-- Set the frame height
		frame:SetHeight(bgTextureTop:GetHeight()+bgTextureBottom:GetHeight()+middleBgHeight);	
	end
	frame:SetWidth(CONTAINER_WIDTH);
	frame:SetID(id);
	_G[frame:GetName().."PortraitButton"]:SetID(id);
	
	--Special case code for keyrings
	if ( id == KEYRING_CONTAINER ) then
		_G[frame:GetName().."Name"]:SetText(KEYRING);
		SetPortraitToTexture(frame:GetName().."Portrait", "Interface\\ContainerFrame\\KeyRing-Bag-Icon");
	else
		_G[frame:GetName().."Name"]:SetText(GetBagName(id));
		SetBagPortaitTexture(_G[frame:GetName().."Portrait"], id);
	end
	
	for j=1, size, 1 do
		local index = size - j + 1;
		local itemButton = _G[name.."Item"..j];
		itemButton:SetID(index);
		-- Set first button
		if ( j == 1 ) then
			-- Anchor the first item differently if its the backpack frame
			if ( id == 0 ) then
				itemButton:SetPoint("BOTTOMRIGHT", name, "BOTTOMRIGHT", -12, 30);
			else
				itemButton:SetPoint("BOTTOMRIGHT", name, "BOTTOMRIGHT", -12, 9);
			end
			
		else
			if ( mod((j-1), columns) == 0 ) then
				itemButton:SetPoint("BOTTOMRIGHT", name.."Item"..(j - columns), "TOPRIGHT", 0, 4);	
			else
				itemButton:SetPoint("BOTTOMRIGHT", name.."Item"..(j - 1), "BOTTOMLEFT", -5, 0);	
			end
		end

		local texture, itemCount, locked, quality, readable = GetContainerItemInfo(id, index);
		SetItemButtonTexture(itemButton, texture);
		SetItemButtonCount(itemButton, itemCount);
		SetItemButtonDesaturated(itemButton, locked, 0.5, 0.5, 0.5);

		if ( texture ) then
			ContainerFrame_UpdateCooldown(id, itemButton);
			itemButton.hasItem = 1;
		else
			_G[name.."Item"..j.."Cooldown"]:Hide();
			itemButton.hasItem = nil;
		end
		
		itemButton.readable = readable;
		itemButton:Show();
	end
	for j=size + 1, MAX_CONTAINER_ITEMS, 1 do
		_G[name.."Item"..j]:Hide();
	end
	
	-- Add the bag to the baglist
	ContainerFrame1.bags[ContainerFrame1.bagsShown + 1] = frame:GetName();
	updateContainerFrameAnchors();
	frame:Show();
end

DBCS_connaissancebete_lu = false;
DBCS_connaissancebete_nom = nil;
DBCS_connaissancebete_numregion = nil;
DBCS_connaissancebete_niveau = nil;
DBCS_connaissancebete_bete = nil;

function DBCS_tooltip_connaissancebete()

	local inb;
	local i;
	local j;
	local tablo_tooltip = nil;
	local snommob;
	local ia,ib;
	local svaleur1,svaleur2;
	local btrouve;
	local bfamilier = false;
	local iniveau;
	local stype;
	local idmin, idmax;
	local iarmure;
	local ipdv;
	local sregime;
	local inbregime;
	local sdomptable;
	local stechnique;
	local inbtechnique;
	local ideb;
	local ifin;
	local ttechnique;
	local tregime;
	local snumregion;

--DBCS_ecrirecodedutexte

		--tablo_tooltip
		--GameTooltipTextLeft
		inb = GameTooltip:NumLines();
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("tooltip = "..inb.." lignes.");
--end
		tablo_tooltip = {};
		for i = 1 , inb do
			tablo_tooltip[i] = _G["GameTooltipTextLeft"..i]:GetText();
		end
		snommob = tablo_tooltip[1];
		DBCS_connaissancebete_nom = snommob;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("nommob = "..snommob);
--end
		for i = 2 , inb do
			btrouve = false;
			if ( btrouve == false ) then
				ia, ib, svaleur1 = string.find(tablo_tooltip[i], "^Familier de (.+)$");
				if ( ia ) then
					bfamilier = true;
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("familier");
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib, svaleur1 = string.find(tablo_tooltip[i], "^Familier d'(.+)$");
				if ( ia ) then
					bfamilier = true;
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("familier");
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib, svaleur1 = string.find(tablo_tooltip[i], "^Niveau (%d+)$");
				if ( ia ) then
					iniveau = tonumber(svaleur1);
					DBCS_connaissancebete_niveau = iniveau;
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("niveau = "..iniveau);
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib, svaleur1, svaleur2 = string.find(tablo_tooltip[i], "^Niveau (%d+) (.+)$");
				if ( ia ) then
					iniveau = tonumber(svaleur1);
					DBCS_connaissancebete_niveau = iniveau;
					if ( svaleur2 == "B\195\170te" or svaleur2 == "B\195\170te (\195\137lite)" ) then
						DBCS_connaissancebete_bete = true;
					--else
						--DBCS_ecrirecodedutexte(svaleur2);
					end
					stype = svaleur2;
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("niveau = "..iniveau.." , type = "..stype);
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib, svaleur1, svaleur2 = string.find(tablo_tooltip[i], "^D\195\169g\195\162ts: (%d+) %- (%d+)$");
				if ( ia ) then
					idmin = tonumber(svaleur1);
					idmax = tonumber(svaleur2);
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("degats = "..idmin.."/"..idmax);
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib, svaleur1 = string.find(tablo_tooltip[i], "^Armure\194\160: (%d+)$");
				if ( ia ) then
					iarmure = tonumber(svaleur1);
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("armure = "..iarmure);
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib, svaleur1 = string.find(tablo_tooltip[i], "^(%d+) points de vie$");
				if ( ia ) then
					ipdv = tonumber(svaleur1);
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("pdv = "..ipdv);
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib, svaleur1 = string.find(tablo_tooltip[i], "^R\195\169gime\194\160: (.+)$");
				if ( ia ) then
					sregime = svaleur1;
					inbregime = 0;
					tregime = {};
					for svaleur1 in string.gmatch(sregime, "(.+), ") do
						inbregime = inbregime + 1;
						tregime[svaleur1] = 1;
						--if ( svaleur1 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("regime"..inbregime.." = "..svaleur1);
--end
						--end
					end
					ideb = 1;
					j = 0;
					ifin = string.find(sregime,"%,",1);
					while ( ifin and j < 10 ) do
						j = j + 1;
						ideb = ifin + 2;
						ifin = string.find(sregime,"%,",ideb+1);
					end
					ia, ib, svaleur1 = string.find(strsub(sregime,ideb), "(.+)");
					if ( ia ) then
						inbregime = inbregime + 1;
						tregime[svaleur1] = 1;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("regime"..inbregime.." = "..svaleur1);
--end
					end
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("regime = "..sregime);
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib = string.find(tablo_tooltip[i], "^Domptable$");
				if ( ia ) then
					sdomptable = "1";
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("domptable");
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib = string.find(tablo_tooltip[i], "^Insensible au domptage$");
				if ( ia ) then
					sdomptable = "0";
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("pas domptable");
--end
				end
			end
			if ( btrouve == false ) then
				ia, ib, svaleur1 = string.find(tablo_tooltip[i], "^Techniques quand dress\195\169%(e%)\194\160: (.+)$");
				if ( ia ) then
					stechnique = svaleur1;
					ttechnique = {};
					--DBCS_ecrirecodedutexte(stechnique);
					inbtechnique = 0;
					--for svaleur1, svaleur2 in string.gmatch(stechnique, "(.+) %(Rang (%d+)%), ") do
					--	inbtechnique = inbtechnique + 1;
					--	ttechnique[svaleur1] = tonumber(svaleur2);
						--if ( svaleur1 ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("technique"..inbtechnique.." = "..svaleur1.." de rang "..tonumber(svaleur2));
--end
						--end
					--end
					ideb = 1;
					--j = 0;
					ifin = string.find(stechnique,"%, ",ideb);
					while ( ifin ) do	--and j < 10 
						--j = j + 1;
						ia, ib, svaleur1, svaleur2 = string.find(strsub(stechnique,ideb,ifin-1), "(.+) %(Rang (%d+)%)");
						if ( ia ) then
							inbtechnique = inbtechnique + 1;
							ttechnique[svaleur1] = tonumber(svaleur2);
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("technique"..inbtechnique.." = "..svaleur1.." de rang "..tonumber(svaleur2));
--end
						else
							ia, ib, svaleur1 = string.find(strsub(stechnique,ideb,ifin-1), "(.+)");
							if ( ia ) then
								inbtechnique = inbtechnique + 1;
								ttechnique[svaleur1] = 1;
							end
						end
						ideb = ifin + 2;
						ifin = string.find(stechnique,"%, ",ideb);
					end
					ia, ib, svaleur1, svaleur2 = string.find(strsub(stechnique,ideb), "(.+) %(Rang (%d+)%)");
					if ( ia ) then
						inbtechnique = inbtechnique + 1;
						ttechnique[svaleur1] = tonumber(svaleur2);
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("technique"..inbtechnique.." = "..svaleur1.." de rang "..tonumber(svaleur2));
--end
					else
						ia, ib, svaleur1 = string.find(strsub(stechnique,ideb), "(.+)");
						if ( ia ) then
							inbtechnique = inbtechnique + 1;
							ttechnique[svaleur1] = 1;
						end
					end
					btrouve = true;
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("technique = "..stechnique);
--end
				end
			end
		end
		snumregion = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
		DBCS_connaissancebete_numregion = snumregion;
		if ( sdomptable and ( bfamilier == false ) ) then	--or DBCS_connaissancebete_bete == true 
			DBmobs_ajoutconnaissancebete(snommob,snumregion,iniveau,sdomptable,idmin,idmax,iarmure,ipdv);
			if ( tregime ) then
				DBmobs_ajoutregimebete(snommob,snumregion,tregime);
			end
			if ( ttechnique ) then
				DBmobs_ajouttechniquebete(snommob,snumregion,ttechnique);
			end
			DBCS_connaissancebete_lu = true;
		end
--if ( DBCS_debug > 1 ) then
		--for i = 1 , inb do
		--	DBCS_ecrirecodedutexte(tablo_tooltip[i]);
		--end
--end
		

end

function DBCS_GameTooltip_OnShow()

local sdomptable;
local stechnique;
local tablo;
local sniveau;
local iniveau;
local ibon;

	DBCS_connaissancebete_lu = false;
	DBCS_connaissancebete_nom = nil;
	DBCS_connaissancebete_numregion = nil;
	DBCS_connaissancebete_niveau = nil;
	DBCS_connaissancebete_bete = nil;

	if ( DBCS_GameTooltip_OnShow_Save ) then
		DBCS_GameTooltip_OnShow_Save(event);
	end
	
	DBCS_tooltip_connaissancebete();

	if ( DBCS_connaissancebete_nom and DBCS_connaissancebete_numregion and DBCS_connaissancebete_niveau ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("if");
--end
		sdomptable, stechnique, tablo = DBmobs_DetailConnaissanceBete(DBCS_connaissancebete_nom,DBCS_connaissancebete_numregion,DBCS_connaissancebete_niveau);
		if ( sdomptable ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("domptable");
--end
			if ( DBCS_connaissancebete_lu == false ) then
--if ( DBCS_debug > 1 ) then
--TraceFrame:AddMessage("DBCS_connaissancebete_lu");
--end
				GameTooltip:AddLine(sdomptable);
				if ( stechnique ) then
					GameTooltip:AddLine(stechnique);
				end
				GameTooltip:Show();
			end
			sniveau = "";
			for iniveau, ibon in pairs(tablo) do
				if ( ibon == 0 ) then
					sniveau = sniveau.." "..iniveau;
				end
			end
			if ( sniveau == "" ) then
			else
				GameTooltip:AddLine("Niveaux inconnus :"..sniveau);
				GameTooltip:Show();
			end
		elseif ( DBCS_connaissancebete_bete == true ) then
			GameTooltip:AddLine("Domptage inconnu");
			GameTooltip:Show();
		end
	end
end
--DBCS_GameTooltip_OnShow_Save = GameTooltip:GetScript("OnShow");
--GameTooltip:SetScript("OnShow",DBCS_GameTooltip_OnShow);

--ContainerFrame_GenerateFrame = DBCS2_ContainerFrame_GenerateFrame;

--DBCS_whisper_dispo = 0;
--SendAddonMessage("DBCS","@ADBCS@"..DBCS_getlocale.."@Z001@","WHISPER",DBCS_player);

--function DBCS_error_DBCS_testwhisperaddon(smessage)
--
----if ( DBCS_debug > 1 ) then
----	TraceFrame:AddMessage(smessage);
----end
--
--	seterrorhandler(_ERRORMESSAGE);
--	DBCS_whisper_dispo = 0;
--
--if ( DBCS_debug > 1 ) then
--	TraceFrame:AddMessage("DBCS : SendAddonMessage ne fonctionne pas avec WHISPER");
--end
--
--end

--/script DBCS_testwhisperaddon()
--function DBCS_testwhisperaddon()
--
----	SendAddonMessage( "prefix", "message" , "PARTY/RAID/GUILD/BATTLEGROUND" )	prefix+message = 254 octets max
----	event CHAT_MSG_ADDON	arg1 = prefix	arg2 = message	arg3 = "PARTY/RAID/GUILD/BATTLEGROUND"	arg4 = envoyeur
----	SendAddonMessage("prefix", "message" [,"type"] [,"target"]) 
----	WHISPER
--
--	--SendAddonMessage( "DBCS", "@ADBCS@"..DBCS_getlocale.."@SD01@CMS@" , "PARTY" );
--	--SendChatMessage
--	DBCS_whisper_dispo = 1;
--	seterrorhandler(DBCS_error_DBCS_testwhisperaddon);
--	SendAddonMessage("DBCS","@ADBCS@frFR@Z001@","WHISPER",DBCS_player);
--	seterrorhandler(_ERRORMESSAGE);
--if ( DBCS_debug > 1 ) then
--	TraceFrame:AddMessage("DBCS : SendAddonMessage fonctionne avec WHISPER");
--end
--
--end

local DBCS_SendChatMessage_tablo = {};
local DBCS_SendChatMessage_indice = 0;

function DBCS_SendChatMessage(smessage,smode,slangue,sdestinataire)

--SendChatMessageTimer_SendChatMessage(smessage,smode,slangue,sdestinataire)

--SendChatMessageTimer_Vide

	DBCS_SendChatMessage_indice = DBCS_SendChatMessage_indice + 1;
	DBCS_SendChatMessage_tablo[DBCS_SendChatMessage_indice] = {};
	DBCS_SendChatMessage_tablo[DBCS_SendChatMessage_indice][1] = smessage;
	DBCS_SendChatMessage_tablo[DBCS_SendChatMessage_indice][2] = smode;
	DBCS_SendChatMessage_tablo[DBCS_SendChatMessage_indice][3] = slangue;
	DBCS_SendChatMessage_tablo[DBCS_SendChatMessage_indice][4] = sdestinataire;

end

local DBCS_SendChatMessage_time = 0;
local DBCS_SendChatMessage_period = 0.5;

function DBCS_SendChatMessage_OnUpdate()

local itime;

	itime = GetTime();
	if ( itime - DBCS_SendChatMessage_time > DBCS_SendChatMessage_period ) then
		if ( DBCS_SendChatMessage_indice > 0 and SendChatMessageTimer_Vide() ) then
		--if ( SendChatMessageTimer_Vide() ) then
--TraceFrame:AddMessage("time = "..itime);
			SendChatMessage(DBCS_SendChatMessage_tablo[1][1],DBCS_SendChatMessage_tablo[1][2],DBCS_SendChatMessage_tablo[1][3],DBCS_SendChatMessage_tablo[1][4]);
			table.remove(DBCS_SendChatMessage_tablo,1);
			DBCS_SendChatMessage_indice = DBCS_SendChatMessage_indice - 1;
		end
		DBCS_SendChatMessage_time = GetTime();
	end

end

function DBCS_copie_mobs_spell_sauvegarde(bvisible)

local iGUID;
local iSPELL;
local idate;

	if ( bvisible == nil ) then
		bvisible = true;
	end
	for iGUID, _ in pairs(DBCS_mobs_spell_Client) do
		for iSPELL, idate in pairs(DBCS_mobs_spell_Client[iGUID]) do
			DBCS_mobs_spell_enreg(false,false,iGUID,iSPELL,idate);
		end
		if ( bvisible == true ) then
			DBCS_mobs_spell_Client[iGUID] = nil;
		end
	end

end

--/script DBCS_copie_mobs_model_client();
function DBCS_copie_mobs_model_client(bafficher)

local inummob;
local smodele;
local smodele2;
local idate;
local binummob;
local bajout;
local smot_milieu;
local ilen;
local smot_tout;
local slink;
local sblp;
local idisplay;

	if ( bafficher == nil ) then
		bafficher = true;
	end
	for inummob, _ in pairs(DBCS_Mobs_Model_Client) do
		binummob = true;
		for smodele, _ in pairs(DBCS_Mobs_Model_Client[inummob]) do
			idate = DBCS_Mobs_Model_Client[inummob][smodele];
			if ( type(idate) == "number" ) then
				smodele2 = string.gsub(smodele,"\\","/");
				bajout = DBCS_mobs_model_ajout(inummob,smodele2,idate,smodele2);
				if ( bajout == false ) then
					if ( bafficher == true ) then
						DBCS_Mobs_Model_Client[inummob][smodele] = nil;
					end
				else
					if ( bafficher == true ) then
if ( DBCS_debug and DBCS_debug > 1 ) then
						smot_milieu = format("%X",inummob);
						ilen = strlen(smot_milieu);
						--if ( DBCS_corps_wow_build > DBCS_corps_wow_build_live ) then
							if ( DBmobs_Local and DBmobs_Local[inummob] and DBmobs_Local[inummob][1] and DBmobs_Local[inummob][1][1] ) then
								smot_tout = "unit:0xF53"..strrep("0",5-ilen)..smot_milieu.."00000000:"..DBmobs_Local[inummob][1][1];
								slink = "|cff4e96f7|H"..smot_tout.."|h["..DBmobs_Local[inummob][1][1].."]|h|r";
							else
								smot_tout = "unit:0xF53"..strrep("0",5-ilen)..smot_milieu.."00000000:Inconnu";
								slink = "|cff4e96f7|H"..smot_tout.."|h[Inconnu]|h|r";
							end
						--else
						--	if ( DBmobs_Local and DBmobs_Local[inummob] and DBmobs_Local[inummob][1] and DBmobs_Local[inummob][1][1] ) then
						--		smot_tout = "unit:0xF53"..strrep("0",7-ilen)..smot_milieu.."000000:"..DBmobs_Local[inummob][1][1];
						--		slink = "|cff4e96f7|H"..smot_tout.."|h["..DBmobs_Local[inummob][1][1].."]|h|r";
						--	else
						--		smot_tout = "unit:0xF53"..strrep("0",7-ilen)..smot_milieu.."000000:Inconnu";
						--		slink = "|cff4e96f7|H"..smot_tout.."|h[Inconnu]|h|r";
						--	end
						--end
TraceFrame:AddMessage("j'ajoutes le mod\195\168le "..smodele2.." au mob "..inummob.." : "..slink.." \195\160 la date du "..idate);
end
						DBCS_Mobs_Model_Client[inummob][smodele] = nil;
					end
					binummob = false;
				end
			elseif ( type(idate) == "table" ) then
				smodele2 = string.gsub(smodele,"\\","/");
				sblp = DBCS_Mobs_Model_Client[inummob][smodele]["blp"];
				idisplay = DBCS_Mobs_Model_Client[inummob][smodele]["display"];
				idate = DBCS_Mobs_Model_Client[inummob][smodele]["date"];
				bajout = DBCS_mobs_model_display_ajout(inummob,smodele2,sblp,idisplay,idate,smodele2);
				if ( bajout == false ) then
					if ( bafficher == true ) then
						DBCS_Mobs_Model_Client[inummob][smodele] = nil;
					end
				else
					if ( bafficher == true ) then
if ( DBCS_debug and DBCS_debug > 1 ) then
						smot_milieu = format("%X",inummob);
						ilen = strlen(smot_milieu);
							if ( DBmobs_Local and DBmobs_Local[inummob] and DBmobs_Local[inummob][1] and DBmobs_Local[inummob][1][1] ) then
								smot_tout = "unit:0xF53"..strrep("0",5-ilen)..smot_milieu.."00000000:"..DBmobs_Local[inummob][1][1];
								slink = "|cff4e96f7|H"..smot_tout.."|h["..DBmobs_Local[inummob][1][1].."]|h|r";
							else
								smot_tout = "unit:0xF53"..strrep("0",5-ilen)..smot_milieu.."00000000:Inconnu";
								slink = "|cff4e96f7|H"..smot_tout.."|h[Inconnu]|h|r";
							end
TraceFrame:AddMessage("j'ajoutes le mod\195\168le "..smodele2.." au mob "..inummob.." : "..slink.." \195\160 la date du "..idate);
end
						DBCS_Mobs_Model_Client[inummob][smodele] = nil;
					end
					binummob = false;
				end
			end
		end
		--if ( binummob == true ) then
			if ( bafficher == true ) then
				DBCS_Mobs_Model_Client[inummob] = nil;
			end
		--end
	end

end

--/script SendChatMessage("1 = "..CMS_GetItemLink("@@Dards de flammes@-3@56091@@"),"WHISPER",DBCS_language,"Cygne");
--/script SendChatMessage("2 = "..CMS_GetItemLink("@@Envelopper dans les flammes@-3@56092@@"),"WHISPER",DBCS_language,"Cygne");
--/script SendChatMessage("3 = "..CMS_GetItemLink("@@Revivifier@-3@57090@@"),"WHISPER",DBCS_language,"Cygne");
--/script SendChatMessage("4 = "..CMS_GetItemLink("@@Explosion de vie@-3@57143@@"),"WHISPER",DBCS_language,"Cygne");
--/script SendChatMessage("5 = "..CMS_GetItemLink("@@Bouclier de flammes@-3@57108@@"),"WHISPER",DBCS_language,"Cygne");
--/script SendChatMessage("6 = "..CMS_GetItemLink("@@Vitesse flamboyante@-3@57092@@"),"WHISPER",DBCS_language,"Cygne");

--/script DBCS_malygos_aide("WHISPER","Cygne")
--/script DBCS_malygos_aide("GUILD",nil)
--/script DBCS_malygos_aide("RAID",nil)

function DBCS_malygos_aide(sdestination,srecepteur)

	SendChatMessage("Liste des sorts utilisables en dragon pour Malygos",sdestination,DBCS_language,srecepteur);
	SendChatMessage("1 = "..CMS_GetItemLink("@@Dards de flammes@-3@56091@@"),sdestination,DBCS_language,srecepteur);
	SendChatMessage("2 = "..CMS_GetItemLink("@@Envelopper dans les flammes@-3@56092@@"),sdestination,DBCS_language,srecepteur);
	SendChatMessage("3 = "..CMS_GetItemLink("@@Revivifier@-3@57090@@"),sdestination,DBCS_language,srecepteur);
	SendChatMessage("4 = "..CMS_GetItemLink("@@Explosion de vie@-3@57143@@"),sdestination,DBCS_language,srecepteur);
	SendChatMessage("5 = "..CMS_GetItemLink("@@Bouclier de flammes@-3@57108@@"),sdestination,DBCS_language,srecepteur);
	SendChatMessage("6 = "..CMS_GetItemLink("@@Vitesse flamboyante@-3@57092@@"),sdestination,DBCS_language,srecepteur);

end

--/script DBCS_enreg_banc_poisson()
function DBCS_enreg_banc_poisson()

local snomtooltip;
local sdate,slead,stime;

	if ( GameTooltip:IsVisible() ) then
		snomtooltip = GameTooltipTextLeft1:GetText();
	else
		return nil;
	end

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = "P\195\170che - "..snomtooltip;
	DBCS_mob.level = 0; --UnitLevel("target");
	DBCS_mob.classe = "paysage";
	DBCS_mob.famille = "Banc";
	DBCS_mob.type = "Coffre";
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = 0;
	DBCS_mob.loot = {};
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100_x(3,1);
	if ( DBCS_CMS_numcanalCMS > 0 ) then
		DBmobs_envoyermob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
	end
	DBcorps_ajoutmob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);

end

--/script DBCS_enreg_faille_CT("Faille élémentaire AIR");
--/script DBCS_enreg_faille_CT("Faille élémentaire EAU");
--/script DBCS_enreg_faille_CT("Faille élémentaire FEU");
--/script DBCS_enreg_faille_CT("Faille élémentaire TERRE");
function DBCS_enreg_faille_CT(snomfaille)	--faille cataclysme

local snomtooltip;
local sdate,slead,stime;

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = snomfaille;
	DBCS_mob.level = 0; --UnitLevel("target");
	DBCS_mob.classe = "paysage";
	DBCS_mob.famille = "Faille";
	DBCS_mob.type = "LOC";
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = 0;
	DBCS_mob.loot = {};
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100_x(3,1);
	if ( DBCS_CMS_numcanalCMS > 0 ) then
		DBmobs_envoyermob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
	end
	DBcorps_ajoutmob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);

end

--/script DBCS_enreg_loc_artefact()
function DBCS_enreg_loc_artefact(snomartefact)

local sdate,slead,stime;

	if ( snomartefact ) then
	else
		return nil;
	end

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = snomartefact;
	DBCS_mob.level = 0; --UnitLevel("target");
	DBCS_mob.classe = "paysage";
	DBCS_mob.famille = "Artefact";
	DBCS_mob.type = "Coffre";
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = 0;
	DBCS_mob.loot = {};
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100_x(3,1);
	if ( DBCS_CMS_numcanalCMS > 0 ) then
		DBmobs_envoyermob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
	end
	DBcorps_ajoutmob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);

end

--/script DBCS_enreg_loc_rare()
--/script DBCS_enreg_loc_rare("Figurine de dromadaire mystérieuse");
--/script DBCS_enreg_loc_rare("Sanguinaire");
--/script DBCS_enreg_loc_rare("Nid Raptor");
function DBCS_enreg_loc_rare(snomrare)

local sdate,slead,stime;

	if ( snomrare ) then
	else
		return nil;
	end

	sdate = DBCS_date();
	slead = DBCS_joueur;
	stime = DBCS_time();
	DBCS_mob = {};
	DBCS_mob.time = GetTime() * 1000;
	DBCS_mob.name = snomrare;
	DBCS_mob.level = 0; --UnitLevel("target");
	DBCS_mob.classe = "paysage";
	DBCS_mob.famille = "Rare";
	DBCS_mob.type = "Coffre";
	DBCS_mob.plusmob = nil;
	DBCS_mob.nbloot = 0;
	DBCS_mob.loot = {};
	DBCS_mob.numzone = DBCS_Region_liste_code_region_courante_new2();	--DBCS_numregionbyname(GetRealZoneText());
	DBCS_mob.x,DBCS_mob.y = DBCS_position100_x(3,1);
	if ( DBCS_CMS_numcanalCMS > 0 ) then
		DBmobs_envoyermob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);
	end
	DBcorps_ajoutmob2(DBCS_getlocale,sdate,slead,stime,DBCS_mob.name,DBCS_mob.numzone,DBCS_mob.x,DBCS_mob.y,DBCS_mob.level,DBCS_mob.classe,DBCS_mob.famille,DBCS_mob.type,DBCS_mob.plusmob,0,0,DBCS_mob.nbloot);

end

--/script DBCS_supprimer_donnees_avant_cataclysme();
function DBCS_supprimer_donnees_avant_cataclysme()

local tablo_region = { ["000"] = 1, ["201"] = 1, ["102"] = 1, ["121"] = 1, ["120"] = 1, ["104"] = 1, ["105"] = 1, ["106"] = 1, ["109"] = 1, ["108"] = 1, ["119"] = 1, ["114"] = 1, ["117"] = 1, ["107"] = 1, ["118"] = 1, ["111"] = 1, ["112"] = 1, ["101"] = 1, ["110"] = 1, ["113"] = 1, ["103"] = 1, ["115"] = 1, ["116"] = 1, ["208"] = 1, ["221"] = 1, ["211"] = 1, ["206"] = 1, ["207"] = 1, ["210"] = 1, ["216"] = 1, ["212"] = 1, ["222"] = 1, ["215"] = 1, ["202"] = 1, ["217"] = 1, ["214"] = 1, ["220"] = 1, ["225"] = 1, ["213"] = 1, ["209"] = 1, ["223"] = 1, ["219"] = 1, ["224"] = 1, ["205"] = 1, ["204"] = 1, ["203"] = 1, ["218"] = 1, ["004"] = 1, ["005"] = 1, ["006"] = 1, ["007"] = 1, ["008"] = 1, ["010"] = 1, ["011"] = 1, ["012"] = 1, ["013"] = 1, ["014"] = 1, ["015"] = 1, ["016"] = 1, ["017"] = 1, ["018"] = 1, ["019"] = 1, ["020"] = 1, ["023"] = 1, ["024"] = 1, ["025"] = 1, ["026"] = 1, ["028"] = 1, ["122"] = 1, ["126"] = 1, ["127"] = 1, ["226"] = 1, ["227"] = 1, ["002"] = 1 };
local inummob;
local snommob;
local snumregion;
local bvider;

--DBMS
--1 mob =
--	1 nommob			= "Crabe à pince"
--		1 numregion		= "205"
--			[1] nivmin		= 10
--			[2] nivmax	= 12
--			[3] classe		= "normal" ou "rare" ou "elite" ou "rareelite" ou "worldboss"
--			[4] famille		= "Crab" "Bear" "Wolf" etc
--			[5] type		= "Humanoid" "Demon" "Beast"
--			[6] plusmob	= true/false
--			[7] nbcorps	= 3 ( 3 fois lootés )
--			[8] objets		= tablo
--				1 numobjet			= 14047
--					1 numcourt2		= "0:0:0" = 1
--			[9] nbskin	= 1 ( 1 fois skinné )
--			[10] position = "25Y84@13Y88@"
--			[11] locprecise = {}	-- que pour minage/cueillette/ouverture
--				[11.521@26.842] = "posmingauche@posmaxdroite@posminhaut@posmaxbas@"
--			[12] datemaj	= date de dernière mise à jour de ce mob, local ou par autre utilisateur
--			[13] domptable	= nil ou 0 ou 1	( pas testé ou pas domptable ou domptable )
--			[14] regime		= { "viande" = 1, "poisson" = 1 }
--			[15] technique	= { "célérité" = 3, "Roder" = 4 }
--			[16] niveau		= { }
--				[1] dmin	=	degats min
--				[2] dmax	=	degats max
--				[3] armure	=	armure
--				[4] pdv	=	pdv
--			[20]	date du modèle
--			[21]	si character, rep du modèle
--			[22]	si character, genre du modèle
--			[23]	si character, nom du modèle
--			[24]	si character, blp du modèle
--			[25]	si creature, rep du modèle
--			[26]	si creature, nom du modèle
--			[27]	si creature, blp du modèle
--			[28]	modèles	=	{}
--				"creature@machin@@machin.m2@blp@"	=	date
--			[29]	GUID	=	"0000" à "FFFF"	en numérique
--DBCS_mobs_locs
--	[inummob]	=	numéro du mob/pnj
--		[sregion]
--			[nivcarte]
--				[0]	=	loc prise en parlant
--				[1]	=	loc prise ds journal de combat ou target
--supprimé--		[2]	=	loc prise en ouvrant le corp
--DBCS_mobs_detail
--	[1]		-- niveaux
--		[diff]	-- difficulté de l'instance
--			[80]
--				[1] = date quand vu ce niveau
--				[2]	=	dégats minimum
--				[3]	=	dégats maximum
--				[4]	=	armure
--				[5]	=	pdvmax
--	[2]		= date quand vu elite
--	[3]	=	type de créature/pnj = Bestiole, Humanoïde etc
--	[4]	=	domptable : ( nil = inconnu, 0 = indomptable, 1 = domptable, 2 = exotique
--	[5]	=	régime
--	[6]	=	technique
--	[7]	=	dépeçable				date
--	[8]	=	type non spécifié			date
--	[9]	=	date quand vu boss
--	[10]	=	famille = crabe etc
--	[11]	=	classification = trivial, normal, rare, elite, eliterare, worldboss
--	[12]	=	Requiert Minage			date
--	[13]	=	Requiert Herboristerie		date
--	[14]	=	Requiert Ingénierie		date
--	[15]	=	marchand				date
--	[16]	=	réparateur				date
--	[17]	=	banquier				date
--	[18]	=	pnj de quete			date
--	[19]	=	griffon				date								Maître des griffons
--	[20]	=	JcJ					date
--	[21]	=	faction				nil	=0	Alliance	=1	Horde	=2
--	[22]	=	faire les poches			non = 0	oui = 1
--	[23]	=	hdv					date
--	[24]	=	c'est un entraineur		tableau
--	[25]	=	aubergiste				date
--	[26]	=	maître de classe
--			{}
--				1	=	date		--	chaman
--	[27]	=	écurie				date
--	[28]	=	portail				date
--	[29]	=	guildes				date
--	[30]	=	dock					date
--	[31]	=	zeppelins				date
--	[32]	=	griffon alliance			date
--	[33]	=	griffon horde			date
--	[34]	=	maître des familiers		date
--DBCS_mobs_spell
	for inummob, _ in pairs(DBCS_mobs_spell) do
		if ( DBCS_mobs_locs[inummob] ) then
			bvider = false;
			for snumregion, _ in pairs(DBCS_mobs_locs[inummob]) do
				if ( ( bvider == false ) and ( tablo_region[snumregion] ) ) then
					bvider = true;
				end
			end
			if ( bvider == true ) then
				DBCS_mobs_spell[inummob] = nil;
			end
		end
	end
	for inummob, _ in pairs(DBCS_mobs_detail) do
		if ( DBCS_mobs_locs[inummob] ) then
			bvider = false;
			for snumregion, _ in pairs(DBCS_mobs_locs[inummob]) do
				if ( ( bvider == false ) and ( tablo_region[snumregion] ) ) then
					bvider = true;
				end
			end
			if ( bvider == true ) then
				DBCS_mobs_detail[inummob][1] = nil;
				DBCS_mobs_detail[inummob][2] = nil;
				DBCS_mobs_detail[inummob][4] = nil;
				DBCS_mobs_detail[inummob][5] = nil;
				DBCS_mobs_detail[inummob][6] = nil;
				DBCS_mobs_detail[inummob][7] = nil;
				DBCS_mobs_detail[inummob][8] = nil;
				DBCS_mobs_detail[inummob][9] = nil;
				DBCS_mobs_detail[inummob][12] = nil;
				DBCS_mobs_detail[inummob][13] = nil;
				DBCS_mobs_detail[inummob][14] = nil;
				DBCS_mobs_detail[inummob][15] = nil;
				DBCS_mobs_detail[inummob][16] = nil;
				DBCS_mobs_detail[inummob][17] = nil;
				DBCS_mobs_detail[inummob][18] = nil;
				DBCS_mobs_detail[inummob][19] = nil;
				DBCS_mobs_detail[inummob][20] = nil;
				DBCS_mobs_detail[inummob][21] = nil;
				DBCS_mobs_detail[inummob][22] = nil;
				DBCS_mobs_detail[inummob][23] = nil;
				DBCS_mobs_detail[inummob][24] = nil;
				DBCS_mobs_detail[inummob][25] = nil;
				DBCS_mobs_detail[inummob][26] = nil;
				DBCS_mobs_detail[inummob][27] = nil;
				DBCS_mobs_detail[inummob][28] = nil;
				DBCS_mobs_detail[inummob][29] = nil;
				DBCS_mobs_detail[inummob][30] = nil;
				DBCS_mobs_detail[inummob][31] = nil;
				DBCS_mobs_detail[inummob][32] = nil;
				DBCS_mobs_detail[inummob][33] = nil;
				DBCS_mobs_detail[inummob][34] = nil;
			end
		end
	end
	for inummob, _ in pairs(DBCS_mobs_locs) do
		bvider = false;
		for snumregion, _ in pairs(DBCS_mobs_locs[inummob]) do
			if ( ( bvider == false ) and ( tablo_region[snumregion] ) ) then
				bvider = true;
			end
		end
		if ( bvider == true ) then
			DBCS_mobs_locs[inummob] = nil;
		end
	end
	for snommob, _ in pairs(DBMS) do
		for snumregion, _ in pairs(DBMS[snommob]) do
			if ( tablo_region[snumregion] ) then
				DBMS[snommob][snumregion] = nil;
			end
		end
		bvider = true;
		for snumregion, _ in pairs(DBMS[snommob]) do
			bvider = false;
		end
		if ( bvider == true ) then
			DBMS[snommob] = nil;
		end
	end
--DBPS2[snompnj][snumregion]
	for snommob, _ in pairs(DBPS2) do
		for snumregion, _ in pairs(DBPS2[snommob]) do
			if ( tablo_region[snumregion] ) then
				DBPS2[snommob][snumregion] = nil;
			end
		end
		bvider = true;
		for snumregion, _ in pairs(DBPS2[snommob]) do
			bvider = false;
		end
		if ( bvider == true ) then
			DBPS2[snommob] = nil;
		end
	end

end

--EJ_SetDifficulty
function DBCS_EJ_SetDifficulty(index)

if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("DBCS_EJ_SetDifficulty : "..index);
end

end
hooksecurefunc("EJ_SetDifficulty", DBCS_EJ_SetDifficulty);

--name, description, bgImage, buttonImage, loreImage, dungeonAreaMapID, link = EJ_GetInstanceInfo([instanceID])

--EJ_LOOT_DATA_RECIEVED

function DBCS_EJ_LOOT_DATA_RECIEVED()

local i;
local inb;
local itemID;
local encounterID;

	--local name, icon, slot, armorType, itemID, link, encounterID = EJ_GetLootInfoByIndex(index);
	--_, _, _, _, itemID, _, encounterID = EJ_GetLootInfoByIndex(1);
	inb = EJ_GetNumLoot();
	for i = 1 , inb do
		_, _, _, _, itemID, _, encounterID = EJ_GetLootInfoByIndex(i);
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("DBCS_EJ_LOOT_DATA_RECIEVED : itemID"..i.." = "..itemID);
end
	end

end

function DBCS_EncounterJournal_DisplayInstance(instanceID, noButton)

local dungeonAreaMapID;

	--name, description, bgImage, buttonImage, loreImage, dungeonAreaMapID, link = EJ_GetInstanceInfo([instanceID]);
	_, _, _, _, _, dungeonAreaMapID, _ = EJ_GetInstanceInfo(instanceID);
if ( DBCS_debug > 1 ) then
TraceFrame:AddMessage("DBCS_EncounterJournal_DisplayInstance : instanceID = "..instanceID.." , dungeonAreaMapID = "..dungeonAreaMapID);
end

end
--hooksecurefunc("EncounterJournal_DisplayInstance", DBCS_EncounterJournal_DisplayInstance);
