diff --git a/automobiles_catrelle/README.md b/automobiles_catrelle/README.md new file mode 100755 index 0000000..2e9214a --- /dev/null +++ b/automobiles_catrelle/README.md @@ -0,0 +1,10 @@ +## Coupe + +This mod adds a coupe automobile to Minetest. + +## Licenses +- Code: see [LICENSE](/LICENSE) +- Media: Model adapted from car assets v1 made by https://www.racoon-media.nl; licence CC0 + +## Screenshot +![coupe](/automobiles_coupe/screenshot.jpg) diff --git a/automobiles_catrelle/crafts.lua b/automobiles_catrelle/crafts.lua new file mode 100644 index 0000000..0def7b1 --- /dev/null +++ b/automobiles_catrelle/crafts.lua @@ -0,0 +1,66 @@ +local S = minetest.get_translator(minetest.get_current_modname()) + +-- +-- items +-- + +-- body +minetest.register_craftitem("automobiles_catrelle:catrelle_body",{ + description = S("Catrelle Body"), + inventory_image = "automobiles_catrelle_body.png", +}) + +-- catrelle +minetest.register_craftitem("automobiles_catrelle:catrelle", { + description = S("Catrelle"), + inventory_image = "automobiles_catrelle.png", + liquids_pointable = false, + + on_place = function(itemstack, placer, pointed_thing) + if pointed_thing.type ~= "node" then + return + end + + local pointed_pos = pointed_thing.above + --pointed_pos.y=pointed_pos.y+0.2 + local car = minetest.add_entity(pointed_pos, "automobiles_catrelle:catrelle") + if car and placer then + local ent = car:get_luaentity() + local owner = placer:get_player_name() + if ent then + ent.owner = owner + ent._catrelle_type = 0 + --minetest.chat_send_all("owner: " .. ent.owner) + car:set_yaw(placer:get_look_horizontal()) + itemstack:take_item() + ent.object:set_acceleration({x=0,y=-automobiles_lib.gravity,z=0}) + automobiles_lib.setText(ent, "Catrelle") + automobiles_lib.create_inventory(ent, catrelle.trunk_slots, owner) + end + end + + return itemstack + end, +}) + + +-- +-- crafting +-- +if minetest.get_modpath("default") then + minetest.register_craft({ + output = "automobiles_catrelle:catrelle", + recipe = { + {"automobiles_lib:wheel", "automobiles_lib:engine", "automobiles_lib:wheel"}, + {"automobiles_lib:wheel","automobiles_catrelle:catrelle_body", "automobiles_lib:wheel"}, + } + }) + minetest.register_craft({ + output = "automobiles_catrelle:catrelle_body", + recipe = { + {"default:glass" ,"default:steel_ingot","default:steel_ingot"}, + {"default:steel_ingot","default:steel_ingot","default:steel_ingot"}, + {"default:steelblock","default:steelblock", "default:steelblock"}, + } + }) +end diff --git a/automobiles_catrelle/entities.lua b/automobiles_catrelle/entities.lua new file mode 100755 index 0000000..23e3739 --- /dev/null +++ b/automobiles_catrelle/entities.lua @@ -0,0 +1,808 @@ +-- +-- entity +-- + +minetest.register_entity('automobiles_catrelle:wheel',{ +initial_properties = { + physical = false, + collide_with_objects=false, + pointable=false, + visual = "mesh", + mesh = "automobiles_catrelle_wheel.b3d", + backface_culling = false, + textures = {"automobiles_black.png", "automobiles_metal.png", "automobiles_catrelle_wheel.png"}, + }, + + on_activate = function(self,std) + self.sdata = minetest.deserialize(std) or {} + if self.sdata.remove then self.object:remove() end + end, + + get_staticdata=function(self) + self.sdata.remove=true + return minetest.serialize(self.sdata) + end, + +}) + +minetest.register_entity('automobiles_catrelle:front_suspension',{ +initial_properties = { + physical = true, + collide_with_objects=true, + collisionbox = {-0.5, 0, -0.5, 0.5, 1, 0.5}, + pointable=false, + visual = "mesh", + mesh = "automobiles_pivot_mesh.b3d", + textures = {"automobiles_black.png",}, + }, + + on_activate = function(self,std) + self.sdata = minetest.deserialize(std) or {} + if self.sdata.remove then self.object:remove() end + end, + + get_staticdata=function(self) + self.sdata.remove=true + return minetest.serialize(self.sdata) + end, + + --[[on_step = function(self, dtime, moveresult) + minetest.chat_send_all(dump(moveresult)) + end,]]-- + +}) + +minetest.register_entity('automobiles_catrelle:rear_suspension',{ +initial_properties = { + physical = true, + collide_with_objects=true, + pointable=false, + visual = "mesh", + mesh = "automobiles_pivot_mesh.b3d", + textures = {"automobiles_black.png",}, + }, + + on_activate = function(self,std) + self.sdata = minetest.deserialize(std) or {} + if self.sdata.remove then self.object:remove() end + end, + + get_staticdata=function(self) + self.sdata.remove=true + return minetest.serialize(self.sdata) + end, + +}) + +minetest.register_entity('automobiles_catrelle:f_lights',{ +initial_properties = { + physical = false, + collide_with_objects=false, + pointable=false, + glow = 0, + visual = "mesh", + mesh = "automobiles_catrelle_f_lights.b3d", + textures = {"automobiles_grey.png"}, + }, + + on_activate = function(self,std) + self.sdata = minetest.deserialize(std) or {} + if self.sdata.remove then self.object:remove() end + end, + + get_staticdata=function(self) + self.sdata.remove=true + return minetest.serialize(self.sdata) + end, + +}) + +minetest.register_entity('automobiles_catrelle:r_lights',{ +initial_properties = { + physical = false, + collide_with_objects=false, + pointable=false, + glow = 0, + visual = "mesh", + mesh = "automobiles_catrelle_pos_lights.b3d", + textures = {"automobiles_rear_lights_off.png"}, + }, + + on_activate = function(self,std) + self.sdata = minetest.deserialize(std) or {} + if self.sdata.remove then self.object:remove() end + end, + + get_staticdata=function(self) + self.sdata.remove=true + return minetest.serialize(self.sdata) + end, + +}) + +minetest.register_entity('automobiles_catrelle:turn_left_light',{ +initial_properties = { + physical = false, + collide_with_objects=false, + pointable=false, + glow = 0, + visual = "mesh", + mesh = "automobiles_catrelle_turn_l_light.b3d", + textures = {"automobiles_turn.png",}, + }, + + on_activate = function(self,std) + self.sdata = minetest.deserialize(std) or {} + if self.sdata.remove then self.object:remove() end + end, + + get_staticdata=function(self) + self.sdata.remove=true + return minetest.serialize(self.sdata) + end, + +}) + +minetest.register_entity('automobiles_catrelle:turn_right_light',{ +initial_properties = { + physical = false, + collide_with_objects=false, + pointable=false, + glow = 0, + visual = "mesh", + mesh = "automobiles_catrelle_turn_r_light.b3d", + textures = {"automobiles_turn.png",}, + }, + + on_activate = function(self,std) + self.sdata = minetest.deserialize(std) or {} + if self.sdata.remove then self.object:remove() end + end, + + get_staticdata=function(self) + self.sdata.remove=true + return minetest.serialize(self.sdata) + end, + +}) + +minetest.register_entity('automobiles_catrelle:pivot_mesh',{ +initial_properties = { + physical = false, + collide_with_objects=false, + pointable=false, + visual = "mesh", + mesh = "automobiles_pivot_mesh.b3d", + textures = {"automobiles_black.png",}, + }, + + on_activate = function(self,std) + self.sdata = minetest.deserialize(std) or {} + if self.sdata.remove then self.object:remove() end + end, + + get_staticdata=function(self) + self.sdata.remove=true + return minetest.serialize(self.sdata) + end, + +}) + +minetest.register_entity('automobiles_catrelle:pointer',{ +initial_properties = { + physical = false, + collide_with_objects=false, + pointable=false, + visual = "mesh", + mesh = "automobiles_pointer.b3d", + visual_size = {x = 0.5, y = 0.5, z = 0.5}, + textures = {"automobiles_white.png"}, + }, + + on_activate = function(self,std) + self.sdata = minetest.deserialize(std) or {} + if self.sdata.remove then self.object:remove() end + end, + + get_staticdata=function(self) + self.sdata.remove=true + return minetest.serialize(self.sdata) + end, +}) + +minetest.register_entity("automobiles_catrelle:catrelle", { + initial_properties = { + physical = true, + collide_with_objects = true, + collisionbox = {-0.1, -0.4, -0.1, 0.1, 1.8, 0.1}, + selectionbox = {-2.0, 0.0, -2.0, 2.0, 2, 2.0}, + stepheight = 0.65, + visual = "mesh", + mesh = "automobiles_catrelle_body.b3d", + --use_texture_alpha = true, + --backface_culling = false, + textures = { + "automobiles_black.png", --bancos + "automobiles_painting.png", --pintura + "automobiles_black.png", --paralamas + "automobiles_black.png", --grade_motor + "automobiles_catrelle_bars.png", --grade_motor + "automobiles_painting.png", --interior 1 + "automobiles_dark_grey.png", --interior 2 + "automobiles_black.png", --painel1 + "automobiles_catrelle_fuel.png", --combustivel + "automobiles_catrelle_glass.png", --parabrisa + "automobiles_metal.png", --para choques + "automobiles_painting.png", --pintura portas + "automobiles_dark_grey.png", --forracao portas + "automobiles_catrelle_glass.png", --vidros + "automobiles_black.png", --volante + "automobiles_black.png", --ventilação + }, + }, + textures = {}, + driver_name = nil, + sound_handle = nil, + owner = "", + static_save = true, + infotext = "A very nice Catrelle!", + hp = 50, + buoyancy = 2, + physics = automobiles_lib.physics, + lastvelocity = vector.new(), + time_total = 0, + _passenger = nil, + _color = "#0063b0", + _steering_angle = 0, + _engine_running = false, + _last_checkpoint = "", + _total_laps = -1, + _race_id = "", + _energy = 1, + _last_time_collision_snd = 0, + _last_time_drift_snd = 0, + _last_time_command = 0, + _roll = math.rad(0), + _pitch = 0, + _longit_speed = 0, + _show_rag = true, + _show_lights = false, + _light_old_pos = nil, + _last_ground_check = 0, + _last_light_move = 0, + _last_engine_sound_update = 0, + _turn_light_timer = 0, + _inv = nil, + _inv_id = "", + _change_color = automobiles_lib.paint, + _intensity = 4, + _car_gravity = -automobiles_lib.gravity, + _is_flying = 0, + + get_staticdata = function(self) -- unloaded/unloads ... is now saved + return minetest.serialize({ + stored_owner = self.owner, + stored_hp = self.hp, + stored_color = self._color, + stored_steering = self._steering_angle, + stored_energy = self._energy, + --race data + stored_last_checkpoint = self._last_checkpoint, + stored_total_laps = self._total_laps, + stored_race_id = self._race_id, + stored_rag = self._show_rag, + stored_pitch = self._pitch, + stored_light_old_pos = self._light_old_pos, + stored_inv_id = self._inv_id, + stored_catrelle_type = self._catrelle_type, + stored_car_gravity = self._car_gravity, + }) + end, + + on_deactivate = function(self) + automobiles_lib.save_inventory(self) + end, + + on_activate = function(self, staticdata, dtime_s) + if staticdata ~= "" and staticdata ~= nil then + local data = minetest.deserialize(staticdata) or {} + self.owner = data.stored_owner + self.hp = data.stored_hp + self._color = data.stored_color + self._steering_angle = data.stored_steering + self._energy = data.stored_energy + --minetest.debug("loaded: ", self.energy) + --race data + self._last_checkpoint = data.stored_last_checkpoint + self._total_laps = data.stored_total_laps + self._race_id = data.stored_race_id + self._show_rag = data.stored_rag + self._pitch = data.stored_pitch + self._light_old_pos = data.stored_light_old_pos + self._inv_id = data.stored_inv_id + + self._catrelle_type = data.stored_catrelle_type + self._car_gravity = data.stored_car_gravity or -automobiles_lib.gravity + + automobiles_lib.setText(self, "catrelle") + end + + self.object:set_animation({x = 1, y = 8}, 0, 0, true) + + automobiles_lib.paint(self, self._color) + local pos = self.object:get_pos() + + local front_suspension=minetest.add_entity(self.object:get_pos(),'automobiles_catrelle:front_suspension') + front_suspension:set_attach(self.object,'',{x=0,y=-0.2,z=30.5},{x=0,y=0,z=0}) + self.front_suspension = front_suspension + + local lf_wheel=minetest.add_entity(pos,'automobiles_catrelle:wheel') + lf_wheel:set_attach(self.front_suspension,'',{x=-catrelle.front_wheel_xpos,y=0,z=0},{x=0,y=0,z=0}) + -- set the animation once and later only change the speed + lf_wheel:set_animation({x = 1, y = 49}, 0, 0, true) + self.lf_wheel = lf_wheel + + local rf_wheel=minetest.add_entity(pos,'automobiles_catrelle:wheel') + rf_wheel:set_attach(self.front_suspension,'',{x=catrelle.front_wheel_xpos,y=0,z=0},{x=0,y=180,z=0}) + -- set the animation once and later only change the speed + rf_wheel:set_animation({x = 1, y = 49}, 0, 0, true) + self.rf_wheel = rf_wheel + + local rear_suspension=minetest.add_entity(self.object:get_pos(),'automobiles_catrelle:rear_suspension') + rear_suspension:set_attach(self.object,'',{x=0,y=-0.2,z=0},{x=0,y=0,z=0}) + self.rear_suspension = rear_suspension + + local lr_wheel=minetest.add_entity(pos,'automobiles_catrelle:wheel') + lr_wheel:set_attach(self.rear_suspension,'',{x=-catrelle.rear_wheel_xpos,y=0,z=0},{x=0,y=0,z=0}) + -- set the animation once and later only change the speed + lr_wheel:set_animation({x = 1, y = 49}, 0, 0, true) + self.lr_wheel = lr_wheel + + local rr_wheel=minetest.add_entity(pos,'automobiles_catrelle:wheel') + rr_wheel:set_attach(self.rear_suspension,'',{x=catrelle.rear_wheel_xpos,y=0,z=0},{x=0,y=180,z=0}) + -- set the animation once and later only change the speed + rr_wheel:set_animation({x = 1, y = 49}, 0, 0, true) + self.rr_wheel = rr_wheel + + self.object:set_bone_position("drive_adjust", {x=-4.0, y=8.00, z=21}, {x=15, y=0, z=0}) + + local driver_seat=minetest.add_entity(pos,'automobiles_catrelle:pivot_mesh') + driver_seat:set_attach(self.object,'',{x=-4.0,y=3,z=15},{x=0,y=0,z=0}) + self.driver_seat = driver_seat + + local passenger_seat=minetest.add_entity(pos,'automobiles_catrelle:pivot_mesh') + passenger_seat:set_attach(self.object,'',{x=4.0,y=3,z=15},{x=0,y=0,z=0}) + self.passenger_seat = passenger_seat + + local fuel_gauge=minetest.add_entity(pos,'automobiles_catrelle:pointer') + fuel_gauge:set_attach(self.object,'',catrelle_GAUGE_FUEL_POSITION,{x=0,y=0,z=0}) + self.fuel_gauge = fuel_gauge + + local lights = minetest.add_entity(pos,'automobiles_catrelle:f_lights') + lights:set_attach(self.object,'',{x=0,y=0,z=0},{x=0,y=0,z=0}) + self.lights = lights + self.lights:set_properties({is_visible=true}) + + local r_lights = minetest.add_entity(pos,'automobiles_catrelle:r_lights') + r_lights:set_attach(self.object,'',{x=0,y=0,z=0},{x=0,y=0,z=0}) + self.r_lights = r_lights + self.r_lights:set_properties({is_visible=true}) + + local turn_l_light = minetest.add_entity(pos,'automobiles_catrelle:turn_left_light') + turn_l_light:set_attach(self.object,'',{x=0,y=0,z=0},{x=0,y=0,z=0}) + self.turn_l_light = turn_l_light + self.turn_l_light:set_properties({is_visible=true}) + + local turn_r_light = minetest.add_entity(pos,'automobiles_catrelle:turn_right_light') + turn_r_light:set_attach(self.object,'',{x=0,y=0,z=0},{x=0,y=0,z=0}) + self.turn_r_light = turn_r_light + self.turn_r_light:set_properties({is_visible=true}) + + self.object:set_armor_groups({immortal=1}) + + local inv = minetest.get_inventory({type = "detached", name = self._inv_id}) + -- if the game was closed the inventories have to be made anew, instead of just reattached + if not inv then + automobiles_lib.create_inventory(self, catrelle.trunk_slots) + else + self.inv = inv + end + + + automobiles_lib.actfunc(self, staticdata, dtime_s) + end, + + on_step = function(self, dtime) + automobiles_lib.stepfunc(self, dtime) + --[[sound play control]]-- + self._last_time_collision_snd = self._last_time_collision_snd + dtime + if self._last_time_collision_snd > 1 then self._last_time_collision_snd = 1 end + self._last_time_drift_snd = self._last_time_drift_snd + dtime + if self._last_time_drift_snd > 1 then self._last_time_drift_snd = 1 end + --[[end sound control]]-- + + local rotation = self.object:get_rotation() + local yaw = rotation.y + local newyaw=yaw + local pitch = rotation.x + + local hull_direction = minetest.yaw_to_dir(yaw) + local nhdir = {x=hull_direction.z,y=0,z=-hull_direction.x} -- lateral unit vector + local velocity = self.object:get_velocity() + + local longit_speed = automobiles_lib.dot(velocity,hull_direction) + local fuel_weight_factor = (5 - self._energy)/5000 + local longit_drag = vector.multiply(hull_direction,(longit_speed*longit_speed) * + (catrelle.LONGIT_DRAG_FACTOR - fuel_weight_factor) * -1 * automobiles_lib.sign(longit_speed)) + + local later_speed = automobiles_lib.dot(velocity,nhdir) + local later_drag = vector.multiply(nhdir,later_speed* + later_speed*catrelle.LATER_DRAG_FACTOR*-1*automobiles_lib.sign(later_speed)) + + local accel = vector.add(longit_drag,later_drag) + local stop = nil + local curr_pos = self.object:get_pos() + + local player = nil + local is_attached = false + if self.driver_name then + player = minetest.get_player_by_name(self.driver_name) + + if player then + local player_attach = player:get_attach() + if player_attach then + if self.driver_seat then + if player_attach == self.driver_seat then is_attached = true end + end + end + end + end + + local is_breaking = false + if is_attached then + local ctrl = player:get_player_control() + if ctrl.aux1 then + --sets the engine running - but sets a delay also, cause keypress + if self._last_time_command > 0.8 then + self._last_time_command = 0 + minetest.sound_play({name = "automobiles_horn"}, + {object = self.object, gain = 0.6, pitch = 1.0, max_hear_distance = 32, loop = false,}) + end + end + if ctrl.down then + is_breaking = true + self.r_lights:set_properties({textures={"automobiles_rear_lights_full.png"}, glow=15}) + end + end + + self._last_light_move = self._last_light_move + dtime + if self._last_light_move > 0.15 then + self._last_light_move = 0 + if self._show_lights == true then + --self.lights:set_properties({is_visible=true}) + self.lights:set_properties({textures={"automobiles_catrelle_lights.png"}, glow=15}) + if is_breaking == false then + self.r_lights:set_properties({textures={"automobiles_rear_lights.png"}, glow=10}) + end + automobiles_lib.put_light(self) + else + --self.lights:set_properties({is_visible=false}) + self.lights:set_properties({textures={"automobiles_grey.png"}, glow=0}) + if is_breaking == false then + self.r_lights:set_properties({textures={"automobiles_rear_lights_off.png"}, glow=0}) + end + automobiles_lib.remove_light(self) + end + end + + -- impacts and control + self.object:move_to(curr_pos) + if is_attached then --and self.driver_name == self.owner then + local impact = automobiles_lib.get_hipotenuse_value(velocity, self.lastvelocity) + if impact > 1 then + --self.damage = self.damage + impact --sum the impact value directly to damage meter + if self._last_time_collision_snd > 0.3 then + self._last_time_collision_snd = 0 + minetest.sound_play("collision", { + to_player = self.driver_name, + --pos = curr_pos, + --max_hear_distance = 5, + gain = 1.0, + fade = 0.0, + pitch = 1.0, + }) + end + --[[if self.damage > 100 then --if acumulated damage is greater than 100, adieu + automobiles_lib.destroy(self) + end]]-- + end + + --control + local steering_angle_max = 30 + local steering_speed = 40 + if math.abs(longit_speed) > 3 then + local mid_speed = (steering_speed/2) + steering_speed = mid_speed + mid_speed / math.abs(longit_speed*0.25) + end + accel, stop = automobiles_lib.control(self, dtime, hull_direction, longit_speed, longit_drag, later_drag, accel, catrelle.max_acc_factor, catrelle.max_speed, steering_angle_max, steering_speed) + else + self._show_lights = false + if self.sound_handle ~= nil then + minetest.sound_stop(self.sound_handle) + self.sound_handle = nil + end + end + + local angle_factor = self._steering_angle / 10 + + --whell turn + self.lf_wheel:set_attach(self.front_suspension,'',{x=-catrelle.front_wheel_xpos,y=0,z=0},{x=0,y=-self._steering_angle-angle_factor,z=0}) + self.rf_wheel:set_attach(self.front_suspension,'',{x=catrelle.front_wheel_xpos,y=0,z=0},{x=0,y=(-self._steering_angle+angle_factor)+180,z=0}) + self.lr_wheel:set_attach(self.rear_suspension,'',{x=-catrelle.rear_wheel_xpos,y=0,z=0},{x=0,y=0,z=0}) + self.rr_wheel:set_attach(self.rear_suspension,'',{x=catrelle.rear_wheel_xpos,y=0,z=0},{x=0,y=180,z=0}) + + --check if the tyres is touching the pavement + local noded = automobiles_lib.nodeatpos(automobiles_lib.pos_shift(curr_pos,{y=-0.5})) + if (noded and noded.drawtype ~= 'airlike') then + if noded.drawtype ~= 'liquid' then + local min_later_speed = 0.9 + if (later_speed > min_later_speed or later_speed < -min_later_speed) and + self._last_time_drift_snd > 0.6 then + self._last_time_drift_snd = 0 + minetest.sound_play("drifting", { + pos = curr_pos, + max_hear_distance = 5, + gain = 1.0, + fade = 0.0, + pitch = 1.0, + ephemeral = true, + }) + end + + self.lf_wheel:set_animation_frame_speed(longit_speed * (12 - angle_factor)) + self.rf_wheel:set_animation_frame_speed(-longit_speed * (12 + angle_factor)) + self.lr_wheel:set_animation_frame_speed(longit_speed * (12 - angle_factor)) + self.rr_wheel:set_animation_frame_speed(-longit_speed * (12 + angle_factor)) + end + end + + --drive wheel turn + self.object:set_bone_position("drive_wheel", {x=-0, y=0, z=0}, {x=0, y=0, z=-self._steering_angle*2}) + + + if math.abs(self._steering_angle)>5 then + local turn_rate = math.rad(40) + newyaw = yaw + dtime*(1 - 1 / (math.abs(longit_speed) + 1)) * + self._steering_angle / 30 * turn_rate * automobiles_lib.sign(longit_speed) + end + + --turn light + self._turn_light_timer = self._turn_light_timer + dtime + if math.abs(self._steering_angle) > 15 and self._turn_light_timer >= 1 then + self._turn_light_timer = 0 + --set turn light + --minetest.chat_send_all(self._steering_angle) + if self._steering_angle < 0 then + --minetest.chat_send_all("direita") + self.turn_r_light:set_properties({textures={"automobiles_turn_on.png"}, glow=20}) + end + if self._steering_angle > 0 then + --minetest.chat_send_all("esquerda") + self.turn_l_light:set_properties({textures={"automobiles_turn_on.png"}, glow=20}) + end + end + if self._turn_light_timer > 0.5 then + self.turn_l_light:set_properties({textures={"automobiles_turn.png"}, glow=0}) + self.turn_r_light:set_properties({textures={"automobiles_turn.png"}, glow=0}) + end + if self._turn_light_timer > 1 then + self._turn_light_timer = 1 + end + + --[[ + accell correction + under some circunstances the acceleration exceeds the max value accepted by set_acceleration and + the game crashes with an overflow, so limiting the max acceleration in each axis prevents the crash + ]]-- + local max_factor = 25 + local acc_adjusted = 10 + if accel.x > max_factor then accel.x = acc_adjusted end + if accel.x < -max_factor then accel.x = -acc_adjusted end + if accel.z > max_factor then accel.z = acc_adjusted end + if accel.z < -max_factor then accel.z = -acc_adjusted end + -- end correction + + -- calculate energy consumption -- + ---------------------------------- + if self._energy > 0 then + local zero_reference = vector.new() + local acceleration = automobiles_lib.get_hipotenuse_value(accel, zero_reference) + --minetest.chat_send_all(acceleration) + local consumed_power = acceleration/40000 + self._energy = self._energy - consumed_power; + end + if self._energy <= 0 then + self._engine_running = false + self._is_flying = 0 + if self.sound_handle then minetest.sound_stop(self.sound_handle) end + --minetest.chat_send_player(self.driver_name, "Out of fuel") + else + self._last_engine_sound_update = self._last_engine_sound_update + dtime + if self._last_engine_sound_update > 0.300 then + self._last_engine_sound_update = 0 + catrelle.engine_set_sound_and_animation(self, longit_speed) + end + end + + local energy_indicator_angle = automobiles_lib.get_gauge_angle(self._energy) + self.fuel_gauge:set_attach(self.object,'',catrelle_GAUGE_FUEL_POSITION,{x=0,y=0,z=energy_indicator_angle}) + ---------------------------- + -- end energy consumption -- + + --gravity works + if not self._is_flying or self._is_flying == 0 then + accel.y = -automobiles_lib.gravity + else + local time_correction = (self.dtime/catrelle.ideal_step) + local y_accel = self._car_gravity*time_correction + accel.y = y_accel --sets the anti gravity + end + + if stop ~= true then + --self.object:set_velocity(velocity) + self.object:set_acceleration(accel) + else + if stop == true then + self.object:set_acceleration({x=0,y=0,z=0}) + self.object:set_velocity({x=0,y=0,z=0}) + end + end + + self._last_ground_check = self._last_ground_check + dtime + if self._last_ground_check > 0.18 then + self._last_ground_check = 0 + automobiles_lib.ground_get_distances(self, 0.372, 2.6) + end + local newpitch = self._pitch --velocity.y * math.rad(6) + + local newroll = 0 + if self._is_flying == 1 then + local turn_effect_speed = longit_speed + if turn_effect_speed > 10 then turn_effect_speed = 10 end + newroll = (-self._steering_angle/100)*(turn_effect_speed/10) + if math.abs(self._steering_angle) < 1 then newroll = 0 end + + --pitch + local max_pitch = 6 + local h_vel_compensation = (((longit_speed * 2) * 100)/max_pitch)/100 + if h_vel_compensation < 0 then h_vel_compensation = 0 end + if h_vel_compensation > max_pitch then h_vel_compensation = max_pitch end + newpitch = newpitch + (velocity.y * math.rad(max_pitch - h_vel_compensation)) + end + + self.object:set_rotation({x=newpitch,y=newyaw,z=newroll}) + + --saves last velocity for collision detection (abrupt stop) + self.lastvelocity = self.object:get_velocity() + self._longit_speed = longit_speed + + end, + + on_punch = function(self, puncher, ttime, toolcaps, dir, damage) + if not puncher or not puncher:is_player() then + return + end + + local name = puncher:get_player_name() + --[[if self.owner and self.owner ~= name and self.owner ~= "" then return end]]-- + if self.owner == nil then + self.owner = name + end + + if self.driver_name and self.driver_name ~= name then + -- do not allow other players to remove the object while there is a driver + return + end + + local is_attached = false + if puncher:get_attach() == self.driver_seat then is_attached = true end + + local itmstck=puncher:get_wielded_item() + local item_name = "" + if itmstck then item_name = itmstck:get_name() end + + --refuel procedure + --[[ + refuel works it car is stopped and engine is off + ]]-- + local velocity = self.object:get_velocity() + local speed = automobiles_lib.get_hipotenuse_value(vector.new(), velocity) + if math.abs(speed) <= 0.1 then + if automobiles_lib.loadFuel(self, puncher:get_player_name(), false, catrelle.max_fuel) then return end + end + -- end refuel + + if is_attached == false then + + -- deal with painting or destroying + if itmstck then + --race status restart + if item_name == "checkpoints:status_restarter" and self._engine_running == false then + --restart race current status + self._last_checkpoint = "" + self._total_laps = -1 + self._race_id = "" + return + end + + if automobiles_lib.set_paint(self, puncher, itmstck) == false then + local is_admin = false + is_admin = minetest.check_player_privs(puncher, {server=true}) + --minetest.chat_send_all('owner '.. self.owner ..' - name '.. name) + if not self.driver and (self.owner == name or is_admin == true) and toolcaps and + toolcaps.damage_groups and toolcaps.damage_groups.fleshy then + self.hp = self.hp - 10 + minetest.sound_play("collision", { + object = self.object, + max_hear_distance = 5, + gain = 1.0, + fade = 0.0, + pitch = 1.0, + }) + end + end + end + + if self.hp <= 0 then + catrelle.destroy(self) + end + + end + + end, + + on_rightclick = function(self, clicker) + if not clicker or not clicker:is_player() then + return + end + + local name = clicker:get_player_name() + --[[if self.owner and self.owner ~= name and self.owner ~= "" then return end]]-- + if self.owner == "" then + self.owner = name + end + + if name == self.driver_name then + catrelle.driver_formspec(name) + else + if name == self.owner then + if clicker:get_player_control().aux1 == true then + automobiles_lib.show_vehicle_trunk_formspec(self, clicker, catrelle.trunk_slots) + else + --is the owner, okay, lets attach + automobiles_lib.attach_driver(self, clicker) + -- sound + self.sound_handle = minetest.sound_play({name = catrelle.engine_sound}, + {object = self.object, gain = 1.5, pitch = 1, max_hear_distance = 30, loop = true,}) + end + else + --minetest.chat_send_all("clicou") + --a passenger + if self._passenger == nil then + --there is no passenger, so lets attach + if self.driver_name then + automobiles_lib.attach_pax(self, clicker, true) + end + else + --there is a passeger + if self._passenger == name then + --if you are the psenger, so deattach + automobiles_lib.dettach_pax(self, clicker) + end + end + end + end + end, +}) + + diff --git a/automobiles_catrelle/forms.lua b/automobiles_catrelle/forms.lua new file mode 100644 index 0000000..69f46c5 --- /dev/null +++ b/automobiles_catrelle/forms.lua @@ -0,0 +1,83 @@ + +-------------- +-- Manual -- +-------------- + +function catrelle.getCarFromPlayer(player) + local seat = player:get_attach() + if seat then + local car = seat:get_attach() + return car + end + return nil +end + +function catrelle.driver_formspec(name) + local player = minetest.get_player_by_name(name) + local vehicle_obj = catrelle.getCarFromPlayer(player) + if vehicle_obj == nil then + return + end + local ent = vehicle_obj:get_luaentity() + + local yaw = "false" + if ent._yaw_by_mouse then yaw = "true" end + + local flight = "false" + if ent._is_flying == 1 then flight = "true" end + + local basic_form = table.concat({ + "formspec_version[3]", + "size[6,7]", + }, "") + + basic_form = basic_form.."button[1,1.0;4,1;go_out;Go Offboard]" + basic_form = basic_form.."button[1,2.5;4,1;lights;Lights]" + if ent._catrelle_type == 1 then basic_form = basic_form.."checkbox[1,4.0;flight;Flight Mode;"..flight.."]" end + basic_form = basic_form.."checkbox[1,5.5;yaw;Direction by mouse;"..yaw.."]" + + minetest.show_formspec(name, "catrelle:driver_main", basic_form) +end + +minetest.register_on_player_receive_fields(function(player, formname, fields) + if formname == "catrelle:driver_main" then + local name = player:get_player_name() + local car_obj = catrelle.getCarFromPlayer(player) + if car_obj then + local ent = car_obj:get_luaentity() + if ent then + if fields.go_out then + if ent._passenger then --any pax? + local pax_obj = minetest.get_player_by_name(ent._passenger) + automobiles_lib.dettach_pax(ent, pax_obj) + end + ent._is_flying = 0 + automobiles_lib.dettach_driver(ent, player) + end + if fields.lights then + if ent._show_lights == true then + ent._show_lights = false + else + ent._show_lights = true + end + end + if fields.yaw then + if ent._yaw_by_mouse == true then + ent._yaw_by_mouse = false + else + ent._yaw_by_mouse = true + end + end + if fields.flight then + if ent._is_flying == 1 then + ent._is_flying = 0 + else + ent._is_flying = 1 + end + catrelle.turn_flight_mode(ent) + end + end + end + minetest.close_formspec(name, "catrelle:driver_main") + end +end) diff --git a/automobiles_catrelle/init.lua b/automobiles_catrelle/init.lua new file mode 100755 index 0000000..0a6dd3e --- /dev/null +++ b/automobiles_catrelle/init.lua @@ -0,0 +1,29 @@ +-- +-- constants +-- +catrelle={} +catrelle.LONGIT_DRAG_FACTOR = 0.12*0.12 +catrelle.LATER_DRAG_FACTOR = 8.0 +catrelle.gravity = automobiles_lib.gravity +catrelle.max_speed = 14 +catrelle.max_acc_factor = 5 +catrelle.max_fuel = 10 +catrelle.trunk_slots = 32 +catrelle.ideal_step = 0.2 +catrelle.engine_sound = "automobiles_engine" + +catrelle_GAUGE_FUEL_POSITION = {x=-4.47,y=8.50,z=20.5} + +catrelle.front_wheel_xpos = 7.5 +catrelle.rear_wheel_xpos = 7.5 + +dofile(minetest.get_modpath("automobiles_lib") .. DIR_DELIM .. "custom_physics.lua") +dofile(minetest.get_modpath("automobiles_lib") .. DIR_DELIM .. "fuel_management.lua") +dofile(minetest.get_modpath("automobiles_lib") .. DIR_DELIM .. "ground_detection.lua") +dofile(minetest.get_modpath("automobiles_lib") .. DIR_DELIM .. "control.lua") +dofile(minetest.get_modpath("automobiles_catrelle") .. DIR_DELIM .. "utilities.lua") +dofile(minetest.get_modpath("automobiles_catrelle") .. DIR_DELIM .. "entities.lua") +dofile(minetest.get_modpath("automobiles_catrelle") .. DIR_DELIM .. "forms.lua") +dofile(minetest.get_modpath("automobiles_catrelle") .. DIR_DELIM .. "crafts.lua") + + diff --git a/automobiles_catrelle/locale/automobiles_delorean.eo.tr b/automobiles_catrelle/locale/automobiles_delorean.eo.tr new file mode 100644 index 0000000..9e87c16 --- /dev/null +++ b/automobiles_catrelle/locale/automobiles_delorean.eo.tr @@ -0,0 +1,5 @@ +# textdomain: automobiles_delorean + +### crafts.lua ### +Delorean Body=Korpo de Delorean +Delorean=Delorean diff --git a/automobiles_catrelle/locale/template.txt b/automobiles_catrelle/locale/template.txt new file mode 100644 index 0000000..39433c4 --- /dev/null +++ b/automobiles_catrelle/locale/template.txt @@ -0,0 +1,5 @@ +# textdomain: automobiles_coupe + +### coupe_crafts.lua ### +Coupe Body= +Coupe= diff --git a/automobiles_catrelle/mod.conf b/automobiles_catrelle/mod.conf new file mode 100755 index 0000000..9f88201 --- /dev/null +++ b/automobiles_catrelle/mod.conf @@ -0,0 +1,5 @@ +name=automobiles_catrelle +title=Catrelle +description=Une 4L pour mes amis français +author=apercy +depends=biofuel,automobiles_lib diff --git a/automobiles_catrelle/models/automobiles_catrelle_body.b3d b/automobiles_catrelle/models/automobiles_catrelle_body.b3d new file mode 100755 index 0000000..6443ec1 Binary files /dev/null and b/automobiles_catrelle/models/automobiles_catrelle_body.b3d differ diff --git a/automobiles_catrelle/models/automobiles_catrelle_f_lights.b3d b/automobiles_catrelle/models/automobiles_catrelle_f_lights.b3d new file mode 100755 index 0000000..724cedc Binary files /dev/null and b/automobiles_catrelle/models/automobiles_catrelle_f_lights.b3d differ diff --git a/automobiles_catrelle/models/automobiles_catrelle_pos_lights.b3d b/automobiles_catrelle/models/automobiles_catrelle_pos_lights.b3d new file mode 100755 index 0000000..da8d375 Binary files /dev/null and b/automobiles_catrelle/models/automobiles_catrelle_pos_lights.b3d differ diff --git a/automobiles_catrelle/models/automobiles_catrelle_turn_l_light.b3d b/automobiles_catrelle/models/automobiles_catrelle_turn_l_light.b3d new file mode 100755 index 0000000..b60acdf Binary files /dev/null and b/automobiles_catrelle/models/automobiles_catrelle_turn_l_light.b3d differ diff --git a/automobiles_catrelle/models/automobiles_catrelle_turn_r_light.b3d b/automobiles_catrelle/models/automobiles_catrelle_turn_r_light.b3d new file mode 100755 index 0000000..2f617ce Binary files /dev/null and b/automobiles_catrelle/models/automobiles_catrelle_turn_r_light.b3d differ diff --git a/automobiles_catrelle/models/automobiles_catrelle_wheel.b3d b/automobiles_catrelle/models/automobiles_catrelle_wheel.b3d new file mode 100755 index 0000000..646ae47 Binary files /dev/null and b/automobiles_catrelle/models/automobiles_catrelle_wheel.b3d differ diff --git a/automobiles_catrelle/screenshot.png b/automobiles_catrelle/screenshot.png new file mode 100644 index 0000000..4429e34 Binary files /dev/null and b/automobiles_catrelle/screenshot.png differ diff --git a/automobiles_catrelle/sounds/delorean_engine.ogg b/automobiles_catrelle/sounds/delorean_engine.ogg new file mode 100644 index 0000000..fb9170f Binary files /dev/null and b/automobiles_catrelle/sounds/delorean_engine.ogg differ diff --git a/automobiles_catrelle/textures/automobiles_catrelle.png b/automobiles_catrelle/textures/automobiles_catrelle.png new file mode 100755 index 0000000..38b5644 Binary files /dev/null and b/automobiles_catrelle/textures/automobiles_catrelle.png differ diff --git a/automobiles_catrelle/textures/automobiles_catrelle_bars.png b/automobiles_catrelle/textures/automobiles_catrelle_bars.png new file mode 100755 index 0000000..715d8a5 Binary files /dev/null and b/automobiles_catrelle/textures/automobiles_catrelle_bars.png differ diff --git a/automobiles_catrelle/textures/automobiles_catrelle_body.png b/automobiles_catrelle/textures/automobiles_catrelle_body.png new file mode 100755 index 0000000..a146a07 Binary files /dev/null and b/automobiles_catrelle/textures/automobiles_catrelle_body.png differ diff --git a/automobiles_catrelle/textures/automobiles_catrelle_fuel.png b/automobiles_catrelle/textures/automobiles_catrelle_fuel.png new file mode 100755 index 0000000..089e6c4 Binary files /dev/null and b/automobiles_catrelle/textures/automobiles_catrelle_fuel.png differ diff --git a/automobiles_catrelle/textures/automobiles_catrelle_glass.png b/automobiles_catrelle/textures/automobiles_catrelle_glass.png new file mode 100755 index 0000000..551d2aa Binary files /dev/null and b/automobiles_catrelle/textures/automobiles_catrelle_glass.png differ diff --git a/automobiles_catrelle/textures/automobiles_catrelle_lights.png b/automobiles_catrelle/textures/automobiles_catrelle_lights.png new file mode 100755 index 0000000..6c7d532 Binary files /dev/null and b/automobiles_catrelle/textures/automobiles_catrelle_lights.png differ diff --git a/automobiles_catrelle/textures/automobiles_catrelle_wheel.png b/automobiles_catrelle/textures/automobiles_catrelle_wheel.png new file mode 100644 index 0000000..d608df6 Binary files /dev/null and b/automobiles_catrelle/textures/automobiles_catrelle_wheel.png differ diff --git a/automobiles_catrelle/utilities.lua b/automobiles_catrelle/utilities.lua new file mode 100755 index 0000000..637f145 --- /dev/null +++ b/automobiles_catrelle/utilities.lua @@ -0,0 +1,74 @@ + + +-- destroy the catrelle +function catrelle.destroy(self, puncher) + automobiles_lib.remove_light(self) + if self.sound_handle then + minetest.sound_stop(self.sound_handle) + self.sound_handle = nil + end + + if self.driver_name then + -- detach the driver first (puncher must be driver) + if puncher then + puncher:set_detach() + puncher:set_eye_offset({x = 0, y = 0, z = 0}, {x = 0, y = 0, z = 0}) + if minetest.global_exists("player_api") then + player_api.player_attached[self.driver_name] = nil + -- player should stand again + player_api.set_animation(puncher, "stand") + end + end + self.driver_name = nil + end + + local pos = self.object:get_pos() + + if self.front_suspension then self.front_suspension:remove() end + if self.lf_wheel then self.lf_wheel:remove() end + if self.rf_wheel then self.rf_wheel:remove() end + if self.rear_suspension then self.rear_suspension:remove() end + if self.lr_wheel then self.lr_wheel:remove() end + if self.rr_wheel then self.rr_wheel:remove() end + if self.driver_seat then self.driver_seat:remove() end + if self.passenger_seat then self.passenger_seat:remove() end + if self.fuel_gauge then self.fuel_gauge:remove() end + if self.lights then self.lights:remove() end + if self.r_lights then self.r_lights:remove() end + if self.turn_l_light then self.turn_l_light:remove() end + if self.turn_r_light then self.turn_r_light:remove() end + + automobiles_lib.destroy_inventory(self) + self.object:remove() + + pos.y=pos.y+2 + + --minetest.add_item({x=pos.x+math.random()-0.5,y=pos.y,z=pos.z+math.random()-0.5},'automobiles_catrelle:catrelle') + minetest.add_item({x=pos.x+math.random()-0.5,y=pos.y,z=pos.z+math.random()-0.5},'automobiles_lib:engine') + minetest.add_item({x=pos.x+math.random()-0.5,y=pos.y,z=pos.z+math.random()-0.5},'automobiles_lib:wheel') + minetest.add_item({x=pos.x+math.random()-0.5,y=pos.y,z=pos.z+math.random()-0.5},'automobiles_lib:wheel') + minetest.add_item({x=pos.x+math.random()-0.5,y=pos.y,z=pos.z+math.random()-0.5},'automobiles_lib:wheel') + minetest.add_item({x=pos.x+math.random()-0.5,y=pos.y,z=pos.z+math.random()-0.5},'automobiles_lib:wheel') +end + +function catrelle.engine_set_sound_and_animation(self, _longit_speed) + --minetest.chat_send_all('test1 ' .. dump(self._engine_running) ) + if self.sound_handle then + if (math.abs(self._longit_speed) > math.abs(_longit_speed) + 0.03) or (math.abs(self._longit_speed) + 0.03 < math.abs(_longit_speed)) then + --minetest.chat_send_all('test2') + catrelle.engineSoundPlay(self) + end + end +end + +function catrelle.engineSoundPlay(self) + --sound + if self.sound_handle then minetest.sound_stop(self.sound_handle) end + if self.object then + self.sound_handle = minetest.sound_play({name = catrelle.engine_sound}, + {object = self.object, gain = 2, + pitch = 1 + ((self._longit_speed/10)/2), + max_hear_distance = 10, + loop = true,}) + end +end