Offline
WOuld one of you guys stand up and write for me how do you make an emoticon system? like when you say
or When you say 
? i already have the images. so make it gfx/emoticons/biggrin.pngThanks
Forum
CS2D
Scripts [Request] Emoticon System
[Request] Emoticon System
12 replies
1 
WOuld one of you guys stand up and write for me how do you make an emoticon system? like when you say
or When you say ? i already have the images. so make it gfx/emoticons/biggrin.pngThanks
but displaying smiley images over the heads of players or something like that would be quite easy.
P.S. I'm busy now, so I'll make that script after 1 week.
@Vectar, 1 week!?! DAMN!
a picture of a big grin shows up on top of your head. You can download it from the file archive here.
U have to ajust the time of fadeout or hide the emoticon
When you say ": )" w/o quotes, will appear a emoticon
1
2
3
4
5
6
7
2
3
4
5
6
7
addhook("say","onsay")
function onsay(id,txt)
freeimage(id)
if (txt==":)") then
id=image("gfx/weiwen/happy.png",1,1,200+id)
end
end
Obs: I used the weiwen Happy png, if u don't have change the file.
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
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
s = {}
function s.c(path, ...)
local args = {...}
local id = #s + 1
s[id] = {p = path, s = args}
end
-- Add new Emoticons here:
-- Like this: s.c(IMAGE_PATH,EMOTICON1,EMOTICON2,...)
--***--
s.c("gfx/weiwen/happy.png",":D",":)","=)")
--***--
addhook([[say]], [[say_hook]], -10)
function say_hook(id, txt)
for m = 1, #s, 1 do
local w = nil
for _,l in ipairs(s[m].s) do
if txt:find(l) then
w = l
end
end
if w ~= nil then
local b = image(s[m].p,player(id,"x"),player(id,"y"),3)
timer(0,"imagep",b..","..id,0)
timer(1000,"imagealpha",b..",0.75")
timer(1200,"imagealpha",b..",0.5")
timer(1400,"imagealpha",b..",0.25")
timer(1600,"freeimage",b)
timer(1600,"freetimer","imagep,'"..b..","..id.."'")
end
end
end
function string:totable(m)
if not m then m = "%s" end
local tbl = {}
for w in self:gmatch("[^"..m.."]+") do
table.insert(tbl,w)
end
return tbl
end
_imagealpha = imagealpha
function imagealpha(id, alpha)
if type(id) == "string" then
alpha = id:totable(",")[2]
id = id:totable(",")[1]
end
_imagealpha(id, alpha)
end
function imagep(b)
id = tonumber(b:totable(",")[1])
pl = tonumber(b:totable(",")[2])
imagepos(id, player(pl,"x"), player(pl,"y"), 0)
end
1