/////////////////////////////VARIABLES MODIFIABLES//////////////////////////////////////
                                                                                      //
int nDD=20;  //20=facile, 30 moderer et 40-50 dur.                                    //
                                                                                      //
int nHourMax=90;//le nombre d'heure max pour piste detectable                        //
                                                                                      //
////////////////////////////////////////////////////////////////////////////////////////
int CurrentTime(); //heure actuelle

void main()
{
object oTarget=OBJECT_SELF;
location lTarget=GetLocation(oTarget);
object oArea=GetAreaFromLocation(lTarget);
int iCurrentTime, iTempsPasser;
iCurrentTime=CurrentTime();
/////////////////////////////////////////////////////////////////////////////
///////////////////CALCULS DE TEMPS POUR CHAQUE RACE/////////////////////////
/////////////////////////////////////////////////////////////////////////////
int iTempsPiste1=  GetLocalInt(oArea,"ptabberration");
int iTempsPiste2=  GetLocalInt(oArea,"ptanimal");
int iTempsPiste3=  GetLocalInt(oArea,"ptbeast");
int iTempsPiste4=  GetLocalInt(oArea,"ptartificiel");
int iTempsPiste5=  GetLocalInt(oArea,"ptdragon");
int iTempsPiste6=  GetLocalInt(oArea,"ptnain");
int iTempsPiste7=  GetLocalInt(oArea,"ptelemental");
int iTempsPiste8=  GetLocalInt(oArea,"ptelfe");
int iTempsPiste9=  GetLocalInt(oArea,"ptfee");
int iTempsPiste10= GetLocalInt(oArea,"ptgeant");
int iTempsPiste11= GetLocalInt(oArea,"ptgnome");
int iTempsPiste12= GetLocalInt(oArea,"ptdemielf");
int iTempsPiste13= GetLocalInt(oArea,"pthalfling");
int iTempsPiste14= GetLocalInt(oArea,"ptdemiorc");
int iTempsPiste15= GetLocalInt(oArea,"pthumain");
int iTempsPiste16= GetLocalInt(oArea,"ptgoblin");
int iTempsPiste17= GetLocalInt(oArea,"pthumanoide");
int iTempsPiste18= GetLocalInt(oArea,"ptorc");
int iTempsPiste19= GetLocalInt(oArea,"ptreptile");
int iTempsPiste20= GetLocalInt(oArea,"ptmagique");
int iTempsPiste21= GetLocalInt(oArea,"ptvase");
int iTempsPiste22= GetLocalInt(oArea,"ptoutsider");
int iTempsPiste23= GetLocalInt(oArea,"ptshapechanger");
int iTempsPiste24= GetLocalInt(oArea,"ptundead");
int iTempsPiste25= GetLocalInt(oArea,"ptvermine");
//////////////////////////////////////////INT/////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
/////////////////////Strings selon le temps de la piste///////////////////////
//////////////////////////////////////////////////////////////////////////////
iTempsPasser;                                                              //
string sTemps;//                                                            //
if  (0<=iTempsPasser<=1)                                                  //
{sTemps= "très peu de temps!";                                              //
} else if (1< iTempsPasser<=23)                                            //
{sTemps= IntToString(iTempsPasser) + " heures.";                            //
}else if (23<iTempsPasser<=47)                                              //
{sTemps= "un jour.";                                                        //
}else if (47<iTempsPasser<=71)                                              //
{sTemps= "2 jours.";                                                        //
}else if (iTempsPasser>=72)                                                //
{sTemps= ("environ 3 jours.");                                              //
}else {                                                                    //
}                                                                          //
////////////////////////////////FIN DES PHRASES///////////////////////////////

//////////////////////////////////REFRESH////////////////////////////////////
SignalEvent(oArea,EventUserDefined(4000)); //on fait un refresh si on active.
/////////////////////////////////////////////////////////////////////////////

/////////////////////////////CALCULS POUR RODEUR/////////////////////////////
int nlvl=GetHitDice(oTarget);
int nSearch=SKILL_SEARCH;
int nLore=SKILL_LORE;
int nCalcul=nlvl*2 + d20()+ (nSearch + nLore)/2 - (iTempsPasser)/2;
/////////////////////////////////////////////////////////////////////////////


/////////////////////////////////////////////////////////////////////////////
////////////////////////////////FONCTIONS////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
ActionPlayAnimation( ANIMATION_LOOPING_GET_LOW, 1.0, 15.0);
/////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste1;
if (iTempsPiste1 >=nHourMax && GetLocalString(oArea, "abberration") =="d'abberration")
{
DeleteLocalString(oArea, "abberration");
DeleteLocalInt(oArea, "ptabberration");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "abberration")=="d'abberration")
{
//string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"abberration"))+" il y a "+ (sTemps), oTarget);
}
/////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste2;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"animal")!= "")
{
DeleteLocalString(oArea, "animal");
DeleteLocalInt(oArea, "ptanimal");
}
if (GetLocalString(oArea, "animal")!="" )
{
//string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"animal"))+" il y a "+ sTemps, oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste3;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"beast")=="de bête primitive")
{
DeleteLocalString(oArea, "beast");
DeleteLocalInt(oArea, "ptbeast");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "beast")=="de bête primitive")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"beast"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste4;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"artificiel")=="de créature artificielle")
{
DeleteLocalString(oArea, "artificiel");
DeleteLocalInt(oArea, "ptartificiel");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "artificiel")== "de créature artificielle")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"artificiel"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste5;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"dragon")=="de dragon")
{
DeleteLocalString(oArea, "dragon");
DeleteLocalInt(oArea, "ptdragon");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "dragon")=="de dragon")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"dragon"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste6;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"nain")=="de nain")
{
DeleteLocalString(oArea, "nain");
DeleteLocalInt(oArea, "ptnain");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "nain")=="de nain")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"nain"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste7;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"elemental")=="d'élémental")
{
DeleteLocalString(oArea, "elemental");
DeleteLocalInt(oArea, "ptelemental");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "elemental")=="d'élémental")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"elemental"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste8;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"elfe")=="d'elfe")
{
DeleteLocalString(oArea, "elfe");
DeleteLocalInt(oArea, "ptelfe");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "elfe")=="d'elfe")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"elfe"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste9;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"fee")=="de fée")
{
DeleteLocalString(oArea, "fee");
DeleteLocalInt(oArea, "ptfee");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "fee")=="de fée")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"fee"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste10;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea, "geant")=="de géant")
{
DeleteLocalString(oArea, "geant");
DeleteLocalInt(oArea, "ptgeant");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "geant")=="de géant")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"geant"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste11;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"gnome")=="de gnome")
{
DeleteLocalString(oArea, "gnome");
DeleteLocalInt(oArea, "ptgnome");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "gnome")=="de gnome")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"gnome"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste12;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"demielf")=="de demi-elfe")
{
DeleteLocalString(oArea, "demielf");
DeleteLocalInt(oArea, "ptdemielf");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "demielf")=="de demi-elfe")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"demielf"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste13;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"halfling")=="de petit-gens")
{
DeleteLocalString(oArea, "halfling");
DeleteLocalInt(oArea, "pthalfling");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "halfling")=="de petit-gens")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"halfling"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste14;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"demiorc")=="de demi-orque")
{
DeleteLocalString(oArea, "demiorc");
DeleteLocalInt(oArea, "ptdemiorc");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "demiorc")=="de demi-orque")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"demiorc"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste15;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"humain")=="d'humain")
{
DeleteLocalString(oArea, "humain");
DeleteLocalInt(oArea, "pthumain");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "humain")=="d'humain")//  && nDD < nCalcul)
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"humain"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste16;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"goblin")=="de goblin")
{
DeleteLocalString(oArea, "goblin");
DeleteLocalInt(oArea, "ptgoblin");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "goblin")=="de gobelin")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"goblin"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste17;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"humanoide")=="d'humanoide")
{
DeleteLocalString(oArea, "humanoide");
DeleteLocalInt(oArea, "pthumanoide");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "humanoide")=="d'humanoide")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"humanoide"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste18;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"orc")=="d'orque")
{
DeleteLocalString(oArea, "orc");
DeleteLocalInt(oArea, "ptorc");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "orc")=="d'orque")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"orc"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste19;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"reptile")=="reptile")
{
DeleteLocalString(oArea, "reptile");
DeleteLocalInt(oArea, "ptreptile");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "reptile")=="reptile")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"reptile"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste20;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"magique")=="de créature magique")
{
DeleteLocalString(oArea, "magique");
DeleteLocalInt(oArea, "ptmagique");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "magique")=="de monstre magique")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"magique"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste21;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"vase")=="de vase")
{
DeleteLocalString(oArea, "vase");
DeleteLocalInt(oArea, "ptvase");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "vase")=="de vase")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"vase"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste22;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"outsider")=="d'extra-planètaire")
{
DeleteLocalString(oArea, "outsider");
DeleteLocalInt(oArea, "ptoutsider");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "outsider")=="d'extra-planètaire")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"outsider"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste23;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"shapechanger")=="de changeur de forme")
{
DeleteLocalString(oArea, "shapechanger");
DeleteLocalInt(oArea, "ptshapechanger");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "shapechanger")=="de changeur de forme")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"shapechanger"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste24;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"undead")=="de mort-vivant")
{
DeleteLocalString(oArea, "undead");
DeleteLocalInt(oArea, "ptundead");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "undead")=="de mort-vivant")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"undead"))+" il y a "+ (sTemps), oTarget);
}
////////////////////////////////////////////////////////////////////////////
iTempsPasser= iCurrentTime - iTempsPiste25;
if ( iTempsPasser >= nHourMax && GetLocalString(oArea,"vermine")!="")
{
DeleteLocalString(oArea, "vermine");
DeleteLocalInt(oArea, "ptvermine");
}
if (iTempsPasser < nHourMax && GetLocalString(oArea, "vermine")!="")
{
string sTemps=IntToString(iTempsPasser)+" heure(s).";
FloatingTextStringOnCreature("Des traces " + (GetLocalString(oArea,"vermine"))+" il y a "+ (sTemps), oTarget);
}
///////////////////////////////FIN DES LOCALINT/////////////////////////////////
}  //end  ok
///////////////////////////////FIN DES FONCTIONS////////////////////////////////

//////////////////////////////////CALENDRIER////////////////////////////////////
int CurrentTime()
{          //ok
return GetCalendarYear()*8064 + GetCalendarMonth()*672 + GetCalendarDay()*24 + GetTimeHour();
}          //ok
////////////////////////////////////////////////////////////////////////////////