Heres my notsogreat Emotes.
Ill try to fix it so that it does something if you try to do one that you havent unlocked.
Procedure Emoter2(emoter:integer);
var
emx,emy,emb,emo:integer;
begin
If(emoter<1) or (emoter>36)then Exit
emb:=1;
if(emoter<21) then emb:=1;
if(emoter>20) then emb:=2;
Mouse(711,483,8,8,True);
Wait(100+Random(100));
//Get X's
emo:=emoter;
repeat
if(emo>4)then emo:=emo-4;
until(emo<5)
Case emo of
1: emx:=573;
2: emx:=617;
3: emx:=660;
4: emx:=705;
end;
//Get Y's
// Case emoter of
// 1: emy:=
if(emoter>0) and (emoter<5)then emy:=238;
if(emoter>4) and (emoter<9)then emy:=286;
if(emoter>8) and (emoter<13)then emy:=333;
if(emoter>12) and (emoter<17)then emy:=378;
if(emoter>16) and (emoter<21)then emy:=430;
if(emoter>20) and (emoter<25)then emy:=284;
if(emoter>24) and (emoter<29)then emy:=331;
if(emoter>28) and (emoter<33)then emy:=384;
if(emoter>32) and (emoter<37)then emy:=433;
if(emb=1)then
begin
mouse(734,245,5,18,True);
Wait(300+random(100));
end;
if(emb=2)then
begin
mouse(734,421,5,18,True);
Wait(300+random(100));
end;
mouse(emx,emy,8,12,True);
wait(1000+random(1000));
end;