Switch to edit mode.
Name(s): `* point1: ""
2: " `red:20 hello!"
3: " `cyan:20 hello?"
4: " `violet:20 hello."
5: " `purple:20 hello. :)"
6: " `pink:20 hello! :)))"
7: " `#4444ff:30 *A frog ribits nearby."
8: " `rgb(255,255,0):10 \"*Bow Wow!"
9: " `lime:15 *\"Please come in. (same as last style)"
10: ""
11: this.owner:tell("POINT command: ", verb + " " + argstr)
12: if (!argstr)
13: player:tell("Misformed command! Got a space just before the message?")
14: return
15: endif
16: r = {}
17: if (!listassoc(this.hyperpeople, player))
18: player:tell()
19: player:tell("You are in TELNET TEXT MODE! You must first, be using Moozilla, and you must then type... hyper go (enter). If you have done this, and the buttons command still doesn't work for you, contact Wingy.")
20: player:tell()
21: else
22: target = ""
23: myverb = verb
24: wherecolon = length(myverb)
25: this.owner:tell("POINT command: ", myverb + " " + argstr + " wherecolon: " + tostr(wherecolon))
26: if (length(verb) == 1)
27: color = "lime"
28: size = "50"
29: else
30: if (wherecolon = index(verb, ":"))
31: size = myverb[wherecolon + 1..$]
32: myverb = myverb[1..wherecolon - 1]
33: color = myverb[2..$]
34: else
35: color = myverb[2..$]
36: size = "50"
37: endif
38: endif
39: myplayer = player.name
40: outstr = argstr
41: sep = ", "
42: quote = "\""
43: if (length(outstr) > 1 && outstr[1..2] == "\"*")
44: myplayer = sep = does = ""
45: outstr = outstr[3..$]
46: elseif (length(outstr) > 1 && outstr[1..2] == "*\"")
47: myplayer = sep = does = ""
48: outstr = outstr[3..$]
49: elseif (outstr[1] == "*")
50: myplayer = sep = quote = does = ""
51: outstr = outstr[2..$]
52: elseif (outstr[$] == "!")
53: does = " exclaims"
54: elseif (length(outstr) > 1 && outstr[$ - 1..$] == "))")
55: does = " laughs"
56: elseif (outstr[$] == ")")
57: does = " smiles"
58: elseif (outstr[$] == "?")
59: does = " asks"
60: else
61: does = " says"
62: endif
63: r = {@r, myplayer + does + sep + "<em style='letter-spacing: 2pt; line-height: .9em; max-width: 98%; font-size: " + size + "pt; font-weight: bold; font-style: normal; color: " + color + "; '>" + quote + outstr + quote + "</em>"}
64: s = {myplayer + does + sep + quote + outstr + quote}
65: roomies = $set_utils:intersection(connected_players(), player.location.contents)
66: this.owner:tell(":point roomies: ", toliteral(roomies))
67: hyperlist = listassoc(this.hyperpeople, player)[2]
68: this.owner:tell(":point hyperlist: ", toliteral(hyperlist))
69: for person in (roomies)
70: if (person in hyperlist)
71: person:tell($string_utils:from_list(r))
72: else
73: person:tell($string_utils:from_list(s))
74: endif
75: endfor
76: endif
77: "Last modified by whiz (#3135) on Wed Jan 24 09:47:29 2007 EST."