Bacteria/obj.shot.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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
cShot = CreateClass(cBase)

-- ***** ***** ***** ***** ***** global shot functions

function Shots_Update(dt) for o,_ in pairs(gShots) do o:Update(dt) end end

function Shots_Draw() for o,_ in pairs(gShots) do o:Draw() end end

function Shots_HitTest()
	for o,_ in pairs(gShots) do
		Enemies_ShotTest(o)
		gPlayer:ShotTest(o, "white")
	end
end

function Shots_BlockPlayerShotsAtPos(x,y,r)
	 for o,_ in pairs(gShots) do
		if (o.bIsPlayerShot and o:DistToPos(x,y) < r) then o:Destroy() end
	end
end

-- ***** ***** ***** ***** ***** cShot

function cShot:Init(x, y, dirX, dirY, lifetime, sType, colour)
	self.x = x
	self.y = y
	self.dirX = dirX
	self.dirY = dirY
	self.dirX0 = dirX
	self.dirY0 = dirY
	self.lifetime = lifetime
	self.sType = sType
	if(sType == "player") then
		if (colour == "white") then colour = "yellow" end
		self.bIsPlayerShot = true
		if (colour == "blue") then self.gfx = gfx_shotplayer_blau
		elseif (colour == "green") then self.gfx = gfx_shotplayer_gruen
		elseif (colour == "red") then self.gfx = gfx_shotplayer_rot
		elseif (colour == "white") then self.gfx = gfx_shotplayer_weis
		elseif (colour == "yellow") then self.gfx = gfx_shotplayer_weis
		end
	else
		self.gfx = gfx_shotweiss
    end
	self.colour = colour

	if(sType == "player") then
		if (colour == "blue") then play_sound(snd_shoot3)
		elseif (colour == "green") then play_sound(snd_shoot4)
		elseif (colour == "red") then play_sound(snd_shoot5)
		else play_sound(snd_shoot6)
		end
	else
		if (colour == "blue") then
    		play_sound(snd_shoot)
		else
			play_sound(snd_shoot2)
		end
	end

	-- register
	gShots[self] = true
end

function cShot:Destroy()
	gShots[self] = nil
end

function cShot:Update(dt)
	self.lifetime = self.lifetime - dt
	if (self.lifetime < 0) then self:Destroy() return end
	self.x = self.x + self.dirX * dt * 1000
	self.y = self.y + self.dirY * dt * 1000

	if self.sType == "player" then
		if self.colour == "red" then
			effects:CreateEffect("trail_red", self.x, self.y, math.atan(self.dirY/self.dirX)*180/PI, false)
		elseif self.colour == "green" then
			effects:CreateEffect("trail_green", self.x, self.y, math.atan(self.dirY/self.dirX)*180/PI, false)
		elseif self.colour == "blue" then
			effects:CreateEffect("trail_blue", self.x, self.y, math.atan(self.dirY/self.dirX)*180/PI, false)
		elseif self.colour == "white" then
			effects:CreateEffect("trail_yellow", self.x, self.y, math.atan(self.dirY/self.dirX)*180/PI, false)
		elseif self.colour == "yellow" then
			effects:CreateEffect("trail_yellow", self.x, self.y, math.atan(self.dirY/self.dirX)*180/PI, false)
		else -- colour type is weird
			print("warning, unexpected colour",self.sType,self.colour)
			effects:CreateEffect("trail_blue", self.x, self.y, math.atan(self.dirY/self.dirX)*180/PI, false)
		end
	else
		--~ if self.colour == "blue" then
			--~ effects:CreateEffect("trail_blue", self.x, self.y, math.atan(self.dirY/self.dirX)*180/PI, false)
		--~ else
			--~ effects:CreateEffect("trail_yellow", self.x, self.y, math.atan(self.dirY/self.dirX)*180/PI, false)
		--~ end
		effects:CreateEffect("trail_white", self.x, self.y, math.atan(self.dirY/self.dirX)*180/PI, false)
	end

	return true
end

function cShot:Draw()
	love.graphics.draw(self.gfx.img,self.x+gCamShakeAddX,self.y+gCamShakeAddY,0,1,1,self.gfx.ox,self.gfx.oy)
end