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
106
107
108
109
110
|
local ITEM = {}
ITEM.Name = "Fireball"
ITEM.Class = "weapon"
ITEM.Desc = "Warning: Warm"
ITEM.Model = "models/props_debris/wood_board02a.mdl"
ITEM.Icon = Material("wintersurvival2/hud/ws2_icons/icon_spellfireball.png")
ITEM.HoldType = "magic"
//Load some nessessary stuff
game.AddParticles("particles/particletest.pcf")
PrecacheParticleSystem("firetest")
ITEM.Structure = {
{
Bone = "ValveBiped.Bip01_R_Hand",
Model = "models/props_junk/Rock001a.mdl",
Size = Vector(1,1,1),
Pos = Vector(0,0,0),
Ang = Angle(0,0,0),
},
}
ITEM.CD = 0.25
ITEM.Range = 9999
--[[
The number of fireballs a player has is held in a global table where each entry is
[player] = # of fireballs
]]
local NumFireballs = {}
local MaxFireballs = 3
local fireball = {}
fireball["model"] = "models/hunter/blocks/cube025x025x025.mdl"
fireball["speed"] = 700
fireball["drop"] = 50
fireball["init"] = function(fb) fb:Ignite(10) end
fireball["onhit"] = function (self,data,phys)
local exp = ents.Create("env_explosion")
exp:SetPos(self:GetPos())
exp:Fire("Explode","",0)
exp:Spawn()
for k,v in pairs(ents.FindInSphere(self:GetPos(),200)) do
if v.TakeDamage then
local dmg = (200 - v:GetPos():Distance(self:GetPos())) / 2
v:TakeDamage(dmg,nil,self)
end
end
self.Remove(self)
end
function ITEM:DoFireball(pl)
print("Fully successfull fireball callback:")
print(pl)
local aim = pl:GetAimVector()
local D = ents.Create("ws_projectile")
for k,v in pairs(fireball) do
D[k] = v
end
D:SetPos(pl:GetShootPos() + aim * 50)
D:SetOwner(pl)
D:SetAngles(aim:Angle())
D:Spawn()
pl:EmitSound(Sound("physics/flesh/flesh_impact_hard.wav"),100,math.random(90,110))
end
function ITEM:OnSecondary(pl,tr)
ParticleEffect("firetest",pl:GetPos(),pl:GetAngles(),pl)
if NumFireballs[pl] ~= nil and NumFireballs[pl] > 0 then
self:DoFireball(pl)
NumFireballs[pl] = NumFireballs[pl]-1
end
end
hook.Add("PlayerDeath","remove_fireball_count",function(victim,inflictor,attacker)
if NumFireballs ~= nil then
NumFireballs[victim] = 0
else
error("Tried to remove fireball count from non-existant table!")
end
end)
hook.Add("PlayerDisconnected","clean_fireball_count",function(ply)
NumFireballs[ply] = nil
end)
local fireballfunc = function(num,pl,self)
print("Fireball func called with ",num,pl,self)
print("NumFireballs was",NumFireballs)
if num == 0 then return end
if NumFireballs[pl] == nil then
NumFireballs[pl] = 1
elseif NumFireballs[pl] < MaxFireballs then
NumFireballs[pl] = NumFireballs[pl] + 1
end
end
function ITEM:OnPrimary(pl,tr)
if CLIENT then return end
print("Attempting to cast...")
if NumFireballs[pl] == nil or NumFireballs[pl] < 3 then
pl:Cast("Fireball",fireballfunc,self)
else
pl:ChatPrint("You can't summon any more fireballs")
end
end
RegisterItem(ITEM)
|
