smiley.irc

smiley.irc

# Copyright (c) 1999-2001 Upi Tamminen <desaster@dragonlight.fi>
# See the COPYRIGHT file for more information

package smiley

alias h.smiley {
    while (1) {
        @ :smiley = randread(~/.hienoa/smileys)
        if (strlen($h.last_smiley) && smiley == h.last_smiley) {
            continue
        }
        break
    }
    @ h.last_smiley = smiley
    return $smiley
}

alias h.smiley_append {
    if (strlen($L) && right(1 L) != [ ]) {
        xtype -l  $h.smiley()
    } else {
        xtype -l $h.smiley()
    }
    if (strlen($0) && [$0] == [1]) {
        type $chr(10)
    }
}

bind ^[s parse_command h.smiley_append
bind ^[l parse_command h.smiley_append 1

# vim: set ai tw=75 sw=4:

smileys

:-)
;-)
:-(
:-I
:->
>:->
>;->
(-:
%-)
:*)
[:]
8-)
B:-)
::-)
B-)
8:-)
:-)-8
:-{)
:-{}
{:-)
}:-(
:-[
:-E
:-F
:-7
:-*
:-)~
:-~)
:'-(
:'-)
:-@
:-#
:^)
:v)
:_)
:<)
:-&
=:-)
-:-)
-:-(
:=)
+-:-)
`:-)
,:-)
|-I
|-O
:-Q
:-?
O-)
O :-)
:-`
:-S
:-D
:-X
:-C
<|-)
<|-(
:-/
C=:-)
@=
*<:-)
:-o
(8-o
*:o)
3:]
3:[
d8=
E-:-)
:-9
%-6
[:-)
(:I
<:-I
K:P
@:-)
:-0
:-:
.-)
,-)
X-(
8 :-)
-=* :-)
:)
:]
=)
:}
:)
:>
:@
:D
:I
:(
:[
:<
:{
:O
:C
:Q
:,(
[]
:*
|I
^o
C=}>;*{))
}:^#})
~~:-(
O |-)
8 :-I
X-(
E-:-I
:-)
|-)
|-D
:->
:-(
:-I
:-O
:-P