Bacteria/obj.base.lua at master · Moe-/Bacteria · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
cBase = CreateClass()

function cBase:Init()
	print("base init")
	self.x = 0
	self.y = 0
end

function cBase:DrawWobble(ws,wr,scalefactor) -- scale,rotate
	scalefactor = scalefactor or 1
	local wrand = self.wobble_random
	if (wrand == nil) then wrand = 0.9+0.2*randf() self.wobble_random = wrand end

	local t = gMyTime + 5
	local s = scalefactor * (1.0 + ws * sin(t*wrand*PI))
	local r = PI * wr * sin(t*wrand*0.9*PI)
	local gfx = self.gfx
	if (gfx.bIsAnim) then
		gfx = gfx[1+math.mod(floor(gMyTime / self.time_per_frame),#gfx)]
	end
	gfx:Draw(self.x+gCamShakeAddX,self.y+gCamShakeAddY,r,s,s)

	local d = self.radius or 25
	if (SHOW_DEBUG_CIRCLE) then love.graphics.circle("line",self.x,self.y,d,11) end
end

function cBase:Update(dt) end

function cBase:DistToPos(x,y)
	local dx = x-self.x
	local dy = y-self.y
	return math.sqrt(dx*dx+dy*dy)
end

function cBase:DistToObj(o) return self:DistToPos(o.x,o.y) end


function cBase:Damage(dmg,bResist)
	if (gGameFinished) then return end
	if self.kind == "player" then
		CamShakeStart(CAMSHAKE_PAIN)
		cStretch:New(slime, math.random(0, 1024), math.random(0, 768), math.random(0, 2 * PI), math.random(0.01, 0.4), math.random(1.4, 2.0))
		effects:CreateEffect("hit", self.x, self.y, math.random(0, 2*PI), true)
		--cStretch:New(slime, math.random(0, 1024), math.random(0, 768), math.random(0, 2 * PI), math.random(0.01, 0.4), math.random(1.4, 2.0))
		--cStretch:New(slime, math.random(0, 1024), math.random(0, 768), math.random(0, 2 * PI), math.random(0.01, 0.4), math.random(1.4, 2.0))
	end

	if (self.bInvulnerable) then return end
	self.energy = self.energy - dmg

	if (self.energy <= 0) then self:Die() else self:NotifyDamage(bResist) end
end

function cBase:NotifyDamage()
	-- todo: overload me
end

function cBase:Die()
	-- todo: overload me
end

function cBase:ShotTest(shot, stype)
	local damage = 20
	if self.bIsPlayer then damage = 10 end
	local bResist = false
	if (self.enemy_resist_colour == shot.colour) then -- player-shot hits enemy
		damage = 2
		bResist = true
	end

	local d = self.radius or 25
	if shot.sType == stype and shot:DistToObj(self) < d then
		--~ if (not self.bIsPlayer) then print("shothit",damage,self.enemy_resist_colour,shot.colour) end
		if (bResist) then
			shot.dirX = -0.5 * shot.dirX0
		end
		self:Damage(damage,bResist)
		if self.energy > 0 then
			if self.isPlayer then
				play_sound(snd_hit)
			else
				play_sound(snd_hit2)
			end
		end
	end
end