package java.game.parts.rgearpart.reciprocatingrgearpart;

import java.render.osd.*;
import java.io.*;
import java.util.*;
import java.util.resource.*;
import java.game.cars.*;
import java.game.*;
import java.game.parts.*;
import java.game.parts.bodypart.*;
import java.game.parts.enginepart.*;
import java.game.parts.rgearpart.*;

public class Tyre extends ReciprocatingRGearPart
{
final static int tcSTREET = 0;
final static int tcSPORT = 1;
final static int tcSUPERSPORT = 2;
final static int tcDRAGRADIAL = 3;

float friction = 1.0; //static friction coeff.
float sliction = 1.0; //ratio of dynamic/static
float frictn_x = 1.0; //factor (unused now)
float radius = 0.01;
float stiffness = 10.0;
float rollres = 0.01; //rolling resistance
float loadcap = 5000.0; //load capacity
float loadsmooth = 0.5;
float CPatchMaximumAngle = 0.300;

// Sala: the following variables are used for scripted calculations //

float insider_friction = 1.0;
float wheel_radius;
float profile_ratio;
float tyre_width;
float profile_height;
float min_radius;
float max_radius;
float slide_interval;

float min_rollres;
float optimal_inflation;
float inflation;
float par_8;

int maxRimWidth_i;
int minRimWidth_i;
float maxRimWidth;
float minRimWidth;

float default_fric=1.0;
float fric_mul=1.30;
float load_mul2=10.500;
float CPatchMaxA=16.000;
float CPatchMinA= 4.000;
float roll_res_mul = 0.725;
float slic_mul=1.100;
float rubber_rigidity=1.000;
// float load_progress = 0.000;

float load_mul=1.000;

// debug vars, remove them after use //
float slide_cm;

int[] render_types = new int[22];
String tyre_size_label;

public Tyre()
{
repair_max_wear = 0.0;
prestige_calc_weight = 15.0;

catalog_view_ypr = new Ypr( 1.571, -0.7, 0.0 );
}

public void SetInflation( float I )
{
SetInflation( I, 0 );
}

public void SetInflation( float I, int forced )
{
if (inflation != I || forced)
{
inflation = I;

if (inflation < 0.5)
inflation = 0.5;
if (inflation > optimal_inflation)
inflation = optimal_inflation;

float misinflation;

if (inflation < optimal_inflation)
misinflation = inflation / optimal_inflation;
else
misinflation = optimal_inflation / inflation;

misinflation = misinflation*misinflation*misinflation*0.6+0.4;

// System.log("misinflation = "+misinflation);

insider_friction = friction * (0.5+0.5*(tyre_width/275.0)) * fric_mul;

float t = profile_ratio*optimal_inflation/inflation;

loadcap = 4000.0+(0.75+profile_ratio/0.4*0.25)*(0.9+0.1*t)*(tyre_width-165.0)*9.81*load_mul*1.350/friction/fric_mul; // tyre: max load capacity (Ns = kgs*gravity)
loadcap /= rubber_rigidity;
CPatchMaximumAngle = 3.1415926535897932384626433832795/180.0 * (CPatchMinA+(0.6+(405.0-tyre_width)/405.0*0.4) /* *misinflation */ *profile_ratio*(CPatchMaxA-CPatchMinA));
// System.log(name+"->CPatchMaximumAngle = "+CPatchMaximumAngle);
stiffness = -18.0+(1.0-slide_interval)*(1.0-profile_ratio)*(0.5+0.5*misinflation)*80.0;
stiffness = clampTo(stiffness,8.0,40.0);
radius = max_radius; // min_radius+(max_radius-min_radius)/misinflation;
rollres = misinflation*min_rollres;//*(1.0-(tyre_width-215.0)/1000.0); // tyre: rolling resistance - hungarian note: az inflation fuggvenye

setMaxWear((0.15+(rubber_rigidity*rubber_rigidity*rubber_rigidity*rubber_rigidity)*0.85)*50000000000.0*misinflation);

par_8 = 1.055+(insider_friction-default_fric)*0.045;
}

WheelRef w = getWheel();

if (w)
{
w.setSliction( sliction );
w.setPacejka( 1, 0.0 );
w.setFriction( insider_friction );
w.setPacejka( 3, 0.000 );//0.013 );
w.setStiffness( stiffness );
w.setPacejka( 5, 0.0 );
w.setPacejka( 6, 0.0 );
w.setPacejka( 7, 0.0 );
w.setPacejka( 8, -1.00000 );//par_8 );
w.setPacejka( 9, 0.0 );
w.setPacejka( 10, 0.0 );
w.setMaxLoad( loadcap );
w.setPacejka( 12, 1.0 );//0.2 );
// w.setPacejka( 15, load_progress ); // nevleges load a 'stiffness'-hez
// w.setPacejka( 16, load_progress ); // +load ; 15+16 -nal lesz fel 'stiffness' ertek
w.setFrictn_x( 1.0 );
w.setLoadSmooth( 0.4 );

w.setRadius( radius );
w.setWidth( tyre_width/1000.0 );
w.setRollRes( rollres );
w.setBearing( 20.0 );

/*
System.log("Pacejka vars for tyre #"+getWheelID()+" ("+name+")");
System.log(" Sliction: "+sliction);
System.log(" #1: "+0.0);
System.log(" Friction: "+friction);
System.log(" #3: "+0.000 );//0.013 );
System.log(" Stiffness: "+stiffness);
System.log(" #5: "+0.0);
System.log(" #6: "+0.0);
System.log(" #7: "+0.0);
System.log(" #8: "+(-1.00000) );//par_8 );
System.log(" #9: "+0.0);
System.log(" #10: "+0.0);
System.log(" Load capacity: "+loadcap);
System.log(" #12: "+1.0 );//0.2 );
System.log(" Friction-x: "+1.0);
System.log(" LoadSmooth: "+0.4);
*/

int whlID = getWheelID();

if ((whlID>=0) && ((whlID % 2)==1))
setSlotPos(1, new Vector3(0.0,0.0,0.0), new Ypr(0.0,0.0,0.0) );
else
setSlotPos(1, new Vector3(0.0,0.0,0.0), new Ypr(3.142,0.0,0.0) );
}
}

public void SetupRubber( int RT )
{
String compound_label;

if (RT == tcSPORT) // sport tyre //
{
rubber_rigidity = 0.900;
load_mul = 0.800*load_mul2;
min_rollres = 0.005*roll_res_mul; // tyre: depends on contact patch
friction = default_fric/rubber_rigidity; // tyre: static friction (compound efficiency)
sliction = 0.740*slic_mul; // tyre: slip ratio (sliction*friction = slipfriction)
frictn_x = 1.000; // tyre: longitudinal friction and sliction * ratio = horizontal friction and sliction
loadsmooth = 0.300;
compound_label = " medium compound sport tyre";
police_check_fine_value = 0.0;
} else
if (RT == tcSUPERSPORT) // supersport tyre //
{
rubber_rigidity = 0.750;
load_mul = 0.800*load_mul2;
min_rollres = 0.004*roll_res_mul; // tyre: depends on contact patch
friction = default_fric/rubber_rigidity; // tyre: static friction (compound efficiency)
sliction = 0.760*slic_mul; // tyre: slip ratio (sliction*friction = slipfriction)
frictn_x = 1.000; // tyre: longitudinal friction and sliction * ratio = horizontal friction and sliction
loadsmooth = 0.250;
compound_label = " soft compound racing tyre";
police_check_fine_value = 50.0;
} else
if (RT == tcDRAGRADIAL) // drag-radial //
{
rubber_rigidity = 0.550;
load_mul = 1.800*load_mul2;
min_rollres = 0.002*roll_res_mul; // tyre: depends on contact patch
friction = default_fric/rubber_rigidity; // tyre: static friction (compound efficiency)
sliction = 0.720*slic_mul; // tyre: slip ratio (sliction*friction = slipfriction)
frictn_x = 1.000; // tyre: longitudinal friction and sliction * ratio = horizontal friction and sliction
loadsmooth = 0.750;
compound_label = " drag radial";
police_check_fine_value = 50.0;
}
else
if (RT == tcSTREET) // street tyre //
{
rubber_rigidity = 1.000;
load_mul = 0.750*load_mul2;
min_rollres = 0.0055*roll_res_mul; // tyre: depends on contact patch
friction = default_fric/rubber_rigidity; // tyre: static friction (compound efficiency)
sliction = 0.695*slic_mul; // tyre: slip ratio (sliction*friction = slipfriction)
frictn_x = 1.000; // tyre: longitudinal friction and sliction * ratio = horizontal friction and sliction
loadsmooth = 0.500;
compound_label = " hard compound street tyre";
police_check_fine_value = 0.0;
}
else
{
rubber_rigidity = 1.000;
load_mul = 0.750*load_mul2;
min_rollres = 0.0055*roll_res_mul; // tyre: depends on contact patch
friction = default_fric/rubber_rigidity; // tyre: static friction (compound efficiency)
sliction = 0.695*slic_mul; // tyre: slip ratio (sliction*friction = slipfriction)
frictn_x = 1.000; // tyre: longitudinal friction and sliction * ratio = horizontal friction and sliction
loadsmooth = 0.500;
compound_label = " tyre";
police_check_fine_value = 0.0;
}
friction = (1.3+(friction-1.0)/0.8*0.4)*1.15;
value /= rubber_rigidity;
brand_new_prestige_value = 25.0/rubber_rigidity + tyre_width/10.0-20.0;
name = name_prefix + " " + tyre_size_label+compound_label;
}

public void calcStuffs()
{
for (minRimWidth_i=0; minRimWidth_i<21; minRimWidth_i++)
if (render_types[minRimWidth_i])
{
minRimWidth = minRimWidth_i*0.5+5.0;
break;
}

for (maxRimWidth_i=20; maxRimWidth_i>=0; maxRimWidth_i--)
if (render_types[maxRimWidth_i])
{
maxRimWidth = maxRimWidth_i*0.5+5.0;
break;
}

float R = wheel_radius*2.0/25.4;
description = "This "+name+" is a "+Float.toString(tyre_width, "%1.0f mm wide ")+" tyre, that's diameter is "+Float.toString(R, "%1.0f inch at the rims and the height of its sidewalls is ")+Float.toString(profile_height, "%1.0f mm. ")+Float.toString(R, "It is compatible with all %1.0f inch rims ")+Float.toString(minRimWidth, "that are between %1.1f and ")+Float.toString(maxRimWidth, "%1.1f inch in width.");

if (police_check_fine_value > 0.0)
description = description + Float.toString(police_check_fine_value, " This tyre is not street legal! Police may fine you up to $%1.0f!");
}

public String installCheck( Part p, int[] slotId )
{
if (p)
{
if (p instanceof Wheel)
{
Wheel wheel = p;
int wr1=wheel.wheel_radius*1000.0;
int wr2=wheel_radius;
if (wr1 != wr2)
return "The tyre inner radius does not match the rim!";
else
if (wheel.rim_width > maxRimWidth)
return "This tyre is too narrow for this rim!";
else
if (wheel.rim_width < minRimWidth)
return "This tyre is too wide for this rim!";

return null;
}
else
return "Tyres can only be installed on rims!";
}
//else
return "There's nothing to install this part to!";
}

public void SetupTyre( float W, float r, float R, float rW, int compound_type )
{
SetupTyre( W, r, R, rW, compound_type, -1.0 );
}

public void SetupTyre( float W, float r, float R, float rW, int compound_type, float optI )
{
value = HUF2USD(W*80+2500*(R-13.0));

wheel_radius = R*25.4/2.0;
tyre_width = W;
profile_ratio = r/100.0;
if (optI > 0.0)
optimal_inflation = optI;
slide_cm = (tyre_width-rW*25.4)/10.0;
slide_interval = (tyre_width-rW*25.4)/tyre_width; // Sala: percentage to the tyre width //
if (slide_interval < 0.0)
slide_interval = 0.0;
if (slide_interval > 1.0)
slide_interval = 1.0;

profile_height = tyre_width*profile_ratio;
max_radius = (wheel_radius+profile_height)/1000.0; // Sala: mm -> m //
min_radius = wheel_radius/1000.0; // Sala: 1.5cm more than rim diameter, mm -> m //
if (max_radius < min_radius)
min_radius = max_radius-0.01;

SetupRubber(compound_type);
if (optI > 0.0)
SetInflation(optimal_inflation);
}

public void updatevariables()
{
SetInflation(inflation,1);
}

public void load( File saveGame )
{
super.load( saveGame );

int save_ver = saveGame.readInt();

if (save_ver >= 1)
{
inflation = saveGame.readFloat();
}
}

public void save( File saveGame )
{
super.save( saveGame );

int save_ver = 1;

saveGame.write( save_ver );
if (save_ver >= 1)
{
saveGame.write( inflation );
}
}

//---------tuning
public int isTuneable()
{
return 1;
}

// backup values //
float old_inflation;
float new_inflation;

public void buildTuningMenu( Menu m )
{
old_inflation = inflation;
new_inflation = inflation;
m.addItem( "Inflation", 1, inflation, 0.5, optimal_inflation, (optimal_inflation-0.5)/0.1+1, null ).changeVLabelText( Float.toString(new_inflation, "%1.2f bar")+Float.toString(new_inflation*14.7, " (%1.2f psi)"));
}

public void endTuningSession( int cancelled )
{
if( cancelled )
{
SetInflation(old_inflation,1);
}
else
{
SetInflation(new_inflation,1);
GameLogic.spendTime(1*60);
}

getCar_LocalVersion();
if (the_car)
the_car.forceUpdate();
}

public void handleMessage( Event m )
{
if( m.cmd == 1 )
{
new_inflation = ((Slider)m.gadget).value;
((Slider)m.gadget).changeVLabelText( Float.toString(new_inflation, "%1.2f bar")+Float.toString(new_inflation*14.7, " (%1.2f psi)"));
}
}
//---------tuning
}

if (RT == tcSPORT) // sport tyre //
{
rubber_rigidity = 1.500;
load_mul = 0.800*load_mul2;
min_rollres = 0.005*roll_res_mul; // tyre: depends on contact patch
friction = default_fric/rubber_rigidity; // tyre: static friction (compound efficiency)
sliction = 0.740*slic_mul; // tyre: slip ratio (sliction*friction = slipfriction)
frictn_x = 1.000; // tyre: longitudinal friction and sliction * ratio = horizontal friction and sliction
loadsmooth = 0.300;
compound_label = " medium compound sport tyre";
police_check_fine_value = 0.0;
} else
if (RT == tcSUPERSPORT) // supersport tyre //
{
rubber_rigidity = 0.800;
load_mul = 0.800*load_mul2;
min_rollres = 0.0054*roll_res_mul; // tyre: depends on contact patch
friction = default_fric/rubber_rigidity; // tyre: static friction (compound efficiency)
sliction = 0.760*slic_mul; // tyre: slip ratio (sliction*friction = slipfriction)
frictn_x = 1.000; // tyre: longitudinal friction and sliction * ratio = horizontal friction and sliction
loadsmooth = 0.250;
compound_label = " soft compound racing tyre";
police_check_fine_value = 50.0;
} else
if (RT == tcDRAGRADIAL) // drag-radial //
{
rubber_rigidity = 0.250;
load_mul = 1.800*load_mul2;
min_rollres = 0.002*roll_res_mul; // tyre: depends on contact patch
friction = default_fric/rubber_rigidity; // tyre: static friction (compound efficiency)
sliction = 0.720*slic_mul; // tyre: slip ratio (sliction*friction = slipfriction)
frictn_x = 1.000; // tyre: longitudinal friction and sliction * ratio = horizontal friction and sliction
loadsmooth = 0.750;
compound_label = " drag radial";
police_check_fine_value = 50.0;
}
else
if (RT == tcSTREET) // street tyre //
{
rubber_rigidity = 2.650;
load_mul = 0.750*load_mul2;
min_rollres = 0.0055*roll_res_mul; // tyre: depends on contact patch
friction = default_fric/rubber_rigidity; // tyre: static friction (compound efficiency)
sliction = 0.695*slic_mul; // tyre: slip ratio (sliction*friction = slipfriction)
frictn_x = 1.000; // tyre: longitudinal friction and sliction * ratio = horizontal friction and sliction
loadsmooth = 0.500;
compound_label = " hard compound street tyre";
police_check_fine_value = 0.0;