1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 #include "pcbnet2.as" mes "irc.freenode.net : 6667に接続中" tcpopen sock, "irc.freenode.net", 6667 if stat : dialog "接続エラー", 1 : stop repeat tcpiscon sock if stat : break wait 10 loop if stat != 1 { tcpclose sock end } tcpput "NICK ****\n", sock if stat != 0 : mes "error" mes "send : USER **** 0 * :****" tcpput "USER **** 0 * :****\n", sock if stat != 0 : mes "error" reply = "" repeat tcpgetl reply, 1024, sock if stat : gosub *message wait 10 loop tcpclose sock *message gcopy 0, 0, 20, ginfo( 12), ginfo( 13) -20 return
|