Code:
program FreeEmotions;
procedure HandleEmotions(szParameters:String);
var
i:Integer;
Parameters:TStringArray;
begin
Parameters:=GetParameters(LowerCase(szParameters));
i:=StrToInt(Parameters[0]);
SendPacket('6C 00 '+IntToHex(i,2)+' 00 00 00 FF FF FF FF 00');
RecvPacket('E4 01 '+IntToHex(i,2)+' 00 00 00 D0 07 00 00 00');
end;
begin
RegisterCommandHandler('emote','HandleEmotions');
end.
Run the above script. Then type in your chat bar !emote emoteid for emotions. Anything from 1 to 255 is valid but certain emotes duplicate once you get high enough. Experiment to see what emotes you get. Both you and other people will see the emotes.
Sample Emotions:
Sweet - !emote 10
Knock Back - !emote 13
Goggling Eyes - !emote 14
Ghost - !emote 18
Credits:
whatishacks for reminding N. this still worked.
N. for making it client sided as well as server sided.