-module(robot_chat).
-compile(export_all).

%-include("common.hrl").
-include("robot.hrl").

%%----------------------  自动聊天机数据  ----------------------
-define(AUTO_CHAT_LIST, [
   <<"伟大的中国共产党">>,
   <<"跟随失败,队长不能自己跟随自己.">>,
   <<"石家庄在下雪">>,
   <<"是鹅毛大雪">>,
   <<"像是宰了一群鹅">>,
   <<"拔了好多鹅毛">>,
   <<"也不装进袋子里">>,
   <<"像是羽绒服破了">>,
   <<"也不缝上">>,
   <<"北京也在下雪">>,
   <<"不是鹅毛大雪">>,
   <<"是白沙粒">>,
   <<"有些像白砂糖">>,
   <<"有些像碘盐">>,
   <<"廊坊夹在石家庄和北京之间">>,
   <<"廊坊什么雪也不下">>,
   <<"看不到鹅毛">>,
   <<"也看不到白砂糖和碘盐">>,
   <<"廊坊只管阴着天">>,
   <<"像一个女人吊着脸">>,
   <<"说话尖酸、刻薄">>,
   <<"还冷飕飕的">>,
   <<"汉皇①重色思倾国，御宇②多年求不得。杨家有女初长成，养在深闺人未识。">>,
   <<"天生丽质难自弃，一朝选在君王侧。回眸一笑百媚生，六宫粉黛无颜色。 ">>,
   <<"春寒赐浴华清池，温泉水滑洗凝脂。侍儿扶起娇无力，始是新承恩泽时。 ">>,
   <<"云鬓花颜金步摇，芙蓉帐暖度春宵。春宵苦短日高起，从此君王不早朝。 ">>,
   <<"承欢侍宴无闲暇，春从春游夜专夜。 后宫佳丽三千人，三千宠爱在一身。 ">>,
   <<"金屋妆成娇侍夜，玉楼宴罢醉和春。姊妹弟兄皆列土，可怜光彩生门户③。">>,
   <<"遂令天下父母心，不重生男重生女。骊宫高处入青云，仙乐风飘处处闻。 ">>,
   <<"缓歌谩舞凝丝竹，尽日君王看不足。渔阳鼙鼓④动地来，惊破霓裳羽衣曲。">>,
   <<"九重城阙烟尘生，千乘万骑西南行。翠华摇摇行复止，西出都门百余里。 ">>,
   <<"六军不发无奈何，宛转蛾眉马前死。花钿委地无人收，翠翘金雀玉搔头。 ">>,
   <<"君王掩面救不得，回看血泪相和流。黄埃散漫风萧索，云栈萦纡登剑阁。 ">>,
   <<"峨嵋山下少人行，旌旗无光日色薄⑤。蜀江水碧蜀山青，圣主朝朝暮暮情。 ">>,
   <<"行宫见月伤心色，夜雨闻铃肠断声。 天旋地转回龙驭，到此踌躇不能去。 ">>,
   <<"马嵬坡下泥土中，不见玉颜空死处。君臣相顾尽沾衣，东望都门信⑥马归。">>,
   <<"归来池苑皆依旧，太液芙蓉未央柳。芙蓉如面柳如眉，对此如何不泪垂。 ">>,
   <<"春风桃李花开日，秋雨梧桐叶落时。 西宫南内多秋草，落叶满阶红不扫。 ">>,
   <<"梨园弟子白发新，椒房阿监青娥老。夕殿萤飞思悄然，孤灯挑尽未成眠。 ">>,
   <<"迟迟钟鼓初长夜，耿耿星河欲曙天。 鸳鸯瓦冷霜华重，翡翠衾寒谁与共。 ">>,
   <<"悠悠生死别经年，魂魄不曾来入梦。 临邛道士鸿都客，能以精诚致魂魄。 ">>,
   <<"为感君王辗转思，遂教方士殷勤觅。排空驭气奔如电，升天入地求之遍。 ">>,
   <<"上穷碧落⑦下黄泉，两处茫茫皆不见。忽闻海上有仙山，山在虚无缥渺间。 ">>,
   <<"楼阁玲珑五云起，其中绰约多仙子。中有一人字太真，雪肤花貌参差是。 ">>,
   <<"金阙西厢叩玉扃⑧，转教小玉报双成。闻道汉家天子使，九华帐里梦魂惊。 ">>,
   <<"揽衣推枕起徘徊，珠箔银屏迤逦开⑨。云鬓半偏新睡觉，花冠不整下堂来。 ">>,
   <<"风吹仙袂飘飘举，犹似霓裳羽衣舞。玉容寂寞泪阑干⑩，梨花一枝春带雨。">>,
   <<"含情凝睇谢君王，一别音容两渺茫。昭阳殿里恩爱绝，蓬莱宫中日月长。 ">>,
   <<"回头下望人寰处，不见长安见尘雾。惟将旧物表深情，钿合金钗寄将去。 ">>,
   <<"钗留一股合一扇，钗擘黄金合分钿。但教心似金钿坚，天上人间会相见。 ">>,
   <<"临别殷勤重寄词，词中有誓两心知。 七月七日长生殿，夜半无人私语时。 ">>,
   <<"在天愿作比翼鸟，在地愿为连理枝。 天长地久有时尽，此恨绵绵无绝期。">>,
   <<"明年上国富春光">>,
   <<"朝廷自昔选才良">>,
   <<"时平空山老壮士">>,
   <<"代言直似汉文章">>,
   <<"生来自秀培来秀">>,
   <<"日移花影上窗香">>,
   <<"快意一时荷叶雨">>,
   <<"乐来一顾遇孙阳">>,
   <<"メールアドレス">>,
   <<"バックアップファイルのパスを入力して下さい">>,
   <<"項目を埋めて Jabber User を検索して下さい">>,
   <<"ユーザー統計の取得">>,
   <<"は提携が変更されたためキックされました">>,
   <<"该点不可行走！">>
]).


handle(State) ->
   io:format("chat handle"),
   Cmds = [11001],
   Chat_List = ?AUTO_CHAT_LIST,
   Msg = tool:to_list(lists:nth(random:uniform(length(Chat_List)), Chat_List)),
   Cmd = lists:nth(random:uniform(length(Cmds)), Cmds),
   {ok, BinData} = ptr_11:write(Cmd, [1, Msg]),
   gen_tcp:send(State#robot.socket, BinData),
   State.

do_parse_packet(_Socket, _Pid, Cmd, BinData) ->
   {ok, _Result} = ptr_11:read(Cmd, BinData),
   ?TRACE("Cmd: ~p, Result: ~p~n", [Cmd, _Result]).

