絵チャットSNS - nacika.com

nacika

2008年1月1日

　今日、ふと絵チャットSNSというアイデアをおもいついた。利用者は、ルームという絵チャットの部屋にわかれて、リアルタイムに絵をかいたりする。プライベートルームなど、さまざまな絵チャットルームが作れる。

　また、メッセンジャーとしても利用できる。そんなサイトがあったらいいなとおもった。

CATEGORIES

雑記

HSPでIRCクライアントを作成してみた

nacika

2008年1月1日

　IRCサーバーをWindowsでリンクさせようと足掻いては見たものの、全く出来ずただ時間を無駄にしてしまった。
そんなわけで、やけになってHSPでモジュール変数を利用したIRCクライアントを作ってみた。

　C++でいうオブジェクト指向のような形でプログラムが書けるので、サーバー単位でオブジェクトを生成。

newmod irc,ircc, <span class="synConstant">0</span>, <span class="synConstant">&#34;127.0.0.1&#34;</span>, <span class="synConstant">6667</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;NICKNAME&#34;</span>, <span class="synConstant">&#34;USERNAME&#34;</span>, <span class="synConstant">&#34;HOST NAME&#34;</span>, <span class="synConstant">&#34;SERVER NAME&#34;</span>, <span class="synConstant">&#34;REAL NAME&#34;</span>, <span class="synConstant">63</span>, <span class="synConstant">1</span>

newmod irc,ircc, 0, "127.0.0.1", 6667, "", "NICKNAME", "USERNAME", "HOST NAME", "SERVER NAME", "REAL NAME", 63, 1

　この場合、127.0.0.1 が、接続先のIRCサーバーになり、6667はポートになります。
　　newmodでオブジェクトを生成したら、その下にmod_ircc_connectを定義します。ircというのはモジュール変数です。C＋＋でいえば、クラスのようなもの。

mod_ircc_connect irc
<span class="synStatement">if</span> stat==<span class="synConstant">1</span>{
title <span class="synConstant">&#34;connected&#34;</span>
oncmd gosub *IRCC_TIMER, WM_TIMER
}

mod_ircc_connect irc

if stat==1{

title "connected"

oncmd gosub *IRCC_TIMER, WM_TIMER

}

　接続に成功すると、*IRCC_TIMERラベルにWM_TIMERメッセージが受け取られるたびにジャンプするようになります。

&#38;#<span class="synConstant">42</span>;IRCC_TIMER
mod_ircc_timer irc
<span class="synStatement">if</span> stat==<span class="synConstant">1</span>{
mod_ircc_join irc, <span class="synConstant">&#34;#test,#test2,#test3&#34;</span>
}

&#42;IRCC_TIMER

mod_ircc_timer irc

if stat==1{

mod_ircc_join irc, "#test,#test2,#test3"

}

　IRCC_TIMERラベルには、mod_ircc_timer命令を定義し
戻り値(stat)には、正常終了なら０、最初に接続が成功したときだけ１が返ります。
　この場合、statの値が1になった場合に、mod_ircc_joinが呼び出されます。
　mod_ircc_joinは、チャンネルの入室を行う命令で、指定されたモジュール変数（サーバー）に対して、#test, #test2, #test3 の部屋へ入室するようになります。

　IRC制御のほとんどの作業は、このラベルの中で行うようになります。

　マクロ機能もあり、mod_ircc_instr_privmsgやmod_ircc_instr_noticeなどの命令を追加することで、ユーザーは、チャンネル参加者の発言に含まれている言葉に反応して、処理を返すことが出来ます。

mod_ircc_instr_privmsg irc, <span class="synConstant">&#34;#test&#34;</span>, <span class="synConstant">&#34;時報&#34;</span>
<span class="synStatement">if</span> stat==<span class="synConstant">1</span>{
mod_ircc_notice irc, <span class="synConstant">&#34;#test&#34;</span>, <span class="synConstant">&#34;今&#34;</span>+gettime(<span class="synConstant">4</span>)+<span class="synConstant">&#34;時です&#34;</span>
}

mod_ircc_instr_privmsg irc, "#test", "時報"

if stat==1{

mod_ircc_notice irc, "#test", "今"+gettime(4)+"時です"

}

　いまのところ入室、退室、PRIVMSG、NOTICE、マクロ、オペレータ権限の配布、PONGの返答などの機能が使えますが、BOTとしては使えてもまだまだクライアントとしてはもうすこし機能がほしいところ。

更新履歴

0.001

サーバーとの接続とデータの受信用タイマーループを一緒にした

0.002

mod_ircc_instr系命令のモジュール変数を統一

0.003

AAなど一括してデータが転送されたときに、mod_ircc_instr系命令で処理が抜けるバグを修正

0.004

オペレーターの変更を可能に

0.005

発言にスペースが含まれていた場合に、正常に取得できていなかった問題を修正

文字コード変換が正常に行われていなかったのを修正

データが送られてきた場合と、延期された作業がある場合のみデータの処理を行うように修正

mod_ircc_deconnect命令の追加

デバッグウィンドウの画面表示を変更

mod_ircc_timer命令の戻り値を変更

コマンドの条件分岐方法をelseifからswitchに変更

文字列を分割する関数を二重に使うことで、文字列解析を行うようにした

使用されていなかったモジュール変数の削除

0.006

ログをモジュール外に出力する命令を実装

ログを整形し表示させる命令を実装

mod_ircc.hsp

　ご自由にお使いください。また，このモジュールを実行するためには、 pcbnet2プラグインとHSP開発Wiki/文字コード変換モジュールが必要になります。　pcbnet2は、開発元がサイトを閉鎖したために、Shark++氏が再頒布しています。また、文字コード変換モジュールはShark++氏のソースコードです。

ダウンロード：mod_ircc.zip

<span class="synPreProc">#include </span><span class="synConstant">&#34;mod_encode.hsp&#34;</span> <span class="synComment">//http://hspdev-wiki.net/?Module%2F%CA%B8%BB%FA%A5%B3%A1%BC%A5%C9%CA%D1%B4%B9%A5%E2%A5%B8%A5%E5%A1%BC%A5%EB</span>
<span class="synComment">/////////////////////////////////</span>
<span class="synComment">// Created By As 0.006 //</span>
<span class="synComment">// IRCクライアントモジュール //</span>
<span class="synComment">/////////////////////////////////</span>
<span class="synPreProc">#define _irc_debug_ </span><span class="synConstant">0</span>
<span class="synPreProc">#ifndef WM_TIMER</span>
<span class="synPreProc">#define global WM_TIMER $0</span><span class="synConstant">0000113</span>
<span class="synPreProc">#endif</span>
#module
<span class="synComment">//文字列分割 ircc_strcut 配列変数, 読み出す文字列, 区切る文字</span>
#deffunc ircc_strcut array p1, str p2, str p3, <span class="synType">int</span> _limit, local s1, local s2, local s3, local s4, local s5, local s6
s1=p2 <span class="synComment">//読み出す文字列を他のローカル変数に代入</span>
s4=p3 <span class="synComment">//区切る文字</span>
s5=strlen(s4)
sdim p1
repeat
s2=instr(s1,s3,p3)
<span class="synStatement">if</span> s2=-<span class="synConstant">1</span>{
<span class="synComment">//見つからない場合</span>
getstr p1(cnt), s1, s6
<span class="synStatement">break</span>
}<span class="synStatement">else</span>{
<span class="synStatement">if</span> cnt&#62;<span class="synConstant">0</span>:<span class="synStatement">if</span> _limit=cnt{
getstr p1(cnt), s1, s6
<span class="synStatement">break</span>
}
s3+=s2 <span class="synComment">//見つかった場合s2を加算</span>
<span class="synStatement">if</span> s3-s6&#62;<span class="synConstant">0</span>{
p1(cnt)=strmid(s1,s6,s3-s6)
}<span class="synStatement">else</span>{
p1(cnt)=<span class="synConstant">&#34;&#34;</span>
}
s3+=s5 <span class="synComment">//区切る文字数分増やす</span>
s6=s3 <span class="synComment">//コピー開始位置の保持</span>
}
loop
<span class="synStatement">return</span>
<span class="synComment">//配列変数を指定した文字列で結合する</span>
<span class="synComment">//ircc_strcat 出力する変数, 配列変数, 区切る文字</span>
#deffunc ircc_strcat var _var, array _array, str _str, local s1
sdim s1,<span class="synConstant">64</span>
repeat length(_array)-<span class="synConstant">1</span>
s1+=_array(cnt)+_str
loop
s1+=_array(length(_array)-<span class="synConstant">1</span>)
_var=s1
<span class="synStatement">return</span>
#global
<span class="synComment">//ircクライアントモジュール</span>
#module ircc m_sockid, m_server, m_port, m_pass, m_nickname, m_username, m_hostname, m_realname, m_servername, m_log, m_logsellen, m_timerid, m_debugscreenid, m_new_channel, m_new_command, m_new_p1, m_new_p2, m_new_p3, m_new_p4, m_new_p5, m_connect, m_connected, m_hit, m_channellog, m_channellogname, m_nickname_s, m_nickname_e, m_nickname_accs, m_command_s, m_command_e
<span class="synPreProc">#include </span><span class="synConstant">&#34;pcbnet.as&#34;</span>
#uselib <span class="synConstant">&#34;user32.dll&#34;</span>
#func SetTimer <span class="synConstant">&#34;SetTimer&#34;</span> sptr,sptr,sptr,sptr
#func KillTimer <span class="synConstant">&#34;KillTimer&#34;</span> sptr,sptr
#func PostMessage <span class="synConstant">&#34;PostMessageA&#34;</span> <span class="synType">int</span>,<span class="synType">int</span>,<span class="synType">int</span>,<span class="synType">int</span>
<span class="synPreProc">#define sjis2jis(%</span><span class="synConstant">1</span><span class="synPreProc">, %</span><span class="synConstant">2</span><span class="synPreProc">) _FromSJIS@mod_encode %</span><span class="synConstant">2</span><span class="synPreProc">, CODEPAGE_S_JIS, %</span><span class="synConstant">1</span><span class="synPreProc">, CODEPAGE_JIS</span>
<span class="synPreProc">#define ctype jis2sjis(%</span><span class="synConstant">1</span><span class="synPreProc">) _ToSJIS@mod_encode(%</span><span class="synConstant">1</span><span class="synPreProc">, CODEPAGE_JIS, CODEPAGE_S_JIS)</span>
<span class="synComment">//コンストラクタ</span>
<span class="synComment">//_log ログが保持される変数</span>
<span class="synComment">//_sockid ソケットID</span>
<span class="synComment">//_server 接続するホスト先</span>
<span class="synComment">//_port ポート</span>
<span class="synComment">//_pass 接続に必要案パスワード</span>
<span class="synComment">//_nickname ニックネーム</span>
<span class="synComment">//_username ユーザーネーム</span>
<span class="synComment">//_hostname ホストネーム</span>
<span class="synComment">//_servername サーバーネーム</span>
<span class="synComment">//_realname リアルネーム</span>
<span class="synComment">//_debugscreenid デバッグ用ウィンドウ（初期値：６３）</span>
<span class="synComment">//_timerid タイマーID(初期値：1） ※この値は必要ない限り変えないで下さい</span>
#modinit <span class="synType">int</span> _sockid, str _server, <span class="synType">int</span> _port, str _pass, str _nickname, str _username , str _hostname, str _servername, str _realname,<span class="synType">int</span> _debugscreenid, <span class="synType">int</span> _timerid, local s1
m_sockid = _sockid
m_server = _server
m_port = _port
m_pass = _pass
m_nickname = _nickname
m_username = _username
m_hostname = _hostname
m_servername = _servername
m_realname = _realname
sdim m_channellog
sdim m_channellogname
sdim m_log,<span class="synConstant">64</span>
m_logsellen = <span class="synConstant">30</span> <span class="synComment">//ログの最大行数</span>
<span class="synStatement">if</span> _timerid=<span class="synConstant">0</span>{
m_timerid=<span class="synConstant">1</span>
}<span class="synStatement">else</span>{
m_timerid=_timerid
}
sdim m_new_channel
sdim m_new_command
sdim m_new_p1
sdim m_new_p2
sdim m_new_p3
sdim m_new_p4
sdim m_new_p5
m_nickname_s=<span class="synConstant">&#34;(&#34;</span>
m_nickname_e=<span class="synConstant">&#34;)&#34;</span>
m_nickname_accs=<span class="synConstant">&#34;*&#34;</span>
m_command_s=<span class="synConstant">&#34;(&#34;</span>
m_command_e=<span class="synConstant">&#34;)&#34;</span>
<span class="synPreProc">#ifdef _debug</span>
s1=ginfo_sel
<span class="synStatement">if</span> _debugscreenid=<span class="synConstant">0</span>{
m_debugscreenid=<span class="synConstant">63</span>
}<span class="synStatement">else</span>{
m_debugscreenid = _debugscreenid <span class="synComment">//デバッグ用ウィンドウのスクリーンIDを指定します</span>
}
dcount++
screen m_debugscreenid, <span class="synConstant">640</span>,<span class="synConstant">480</span>
mesbox m_log,ginfo_winx,ginfo_winy
gsel s1
<span class="synPreProc">#endif</span>
<span class="synStatement">return</span>
<span class="synPreProc">#ifdef _debug</span>
#modfunc mod_ircc_logreflesh local _ginfo_sel, local _m_logsize
_ginfo_sel=ginfo_sel
gsel m_debugscreenid
objprm <span class="synConstant">0</span>,m_log
gsel _ginfo_sel
<span class="synStatement">return</span>
#modfunc mod_ircc_debug_title str _title, local _ginfo_sel
_ginfo_sel=ginfo_sel
gsel m_debugscreenid
title _title
gsel _ginfo_sel
<span class="synStatement">return</span>
<span class="synPreProc">#endif</span>
#modfunc mod_ircc_addlog str _str
m_log+=_str
<span class="synComment">//ログが増えた場合削除</span>
notesel m_log
repeat notemax
<span class="synStatement">if</span> notemax&#62;m_logsellen{
notedel <span class="synConstant">0</span>
<span class="synStatement">continue</span>
}
loop
noteunsel
<span class="synPreProc">#ifdef _debug</span>
mod_ircc_logreflesh thismod
<span class="synPreProc">#endif</span>
<span class="synStatement">return</span>
<span class="synComment">//ログ用変数のクローン変数化</span>
#modfunc mod_ircc_duplog var _var
dup _var, m_log
<span class="synStatement">return</span>
<span class="synComment">//IRCサーバーに接続</span>
<span class="synComment">//戻り値</span>
<span class="synComment">//1 = 接続完了</span>
<span class="synComment">//0 = 接続エラー</span>
#modfunc mod_ircc_connect local s1, local s2, local s3, local x1, local x2, local size, local connected
tcpopen m_sockid, m_server, m_port <span class="synComment">//IRCサーバーの接続を開始</span>
repeat <span class="synConstant">6000</span>
tcpiscon m_sockid
<span class="synStatement">if</span> stat==<span class="synConstant">1</span>{
connected=<span class="synConstant">1</span>
<span class="synStatement">break</span>
}<span class="synStatement">else</span>:<span class="synStatement">if</span> stat==<span class="synConstant">2</span>{
<span class="synPreProc"> #ifdef _debug</span>
mod_ircc_addlog thismod, <span class="synConstant">&#34;IRCC: tcpopen error.</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
<span class="synPreProc"> #endif</span>
<span class="synStatement">break</span>
}
wait <span class="synConstant">1</span>
loop
<span class="synStatement">if</span> connected=<span class="synConstant">1</span>{
SetTimer hwnd, m_timerid, <span class="synConstant">500</span>, <span class="synConstant">0</span>
}
<span class="synStatement">return</span> connected
<span class="synComment">//IRCサーバーから切断</span>
#modfunc mod_ircc_deconnect
<span class="synStatement">if</span> varuse(thismod)==<span class="synConstant">0</span>:<span class="synStatement">return</span>
m_connect=<span class="synConstant">0</span>
m_connected=<span class="synConstant">0</span>
sdim m_new_channel
sdim m_new_command
sdim m_new_p1
sdim m_new_p2
sdim m_new_p3
sdim m_new_p4
sdim m_new_p5
KillTimer hwnd, m_timerid
tcpshut m_sockid
tcpclose m_sockid
<span class="synPreProc"> #ifdef _debug</span>
mod_ircc_addlog thismod, <span class="synConstant">&#34;IRCC: サーバーから切断しました&#34;</span>
<span class="synPreProc"> #endif</span>
<span class="synStatement">return</span>
<span class="synComment">//ex.mod_ircc_channellogstyle irc, &#34;(&#34;, &#34;)&#34;, &#34;*&#34;, &#34;(&#34;, &#34;)&#34;</span>
#modfunc mod_ircc_channellogstyle str _nickname_s, str _nickname_e, str _nickname_accs, str _command_s, str _command_e
m_nickname_s=_nickname_s
m_nickname_e=_nickname_e
m_nickname_accs=_nickname_accs
m_command_s=_command_s
m_command_e=_command_e
<span class="synStatement">return</span>
<span class="synComment">//チャンネルログに追加</span>
#modfunc mod_ircc_addchannellog str _channelname, str _command, str _p1, str _p2, str _p3, str _p4, str _p5, local fclog, local fccnt, local timelog, local fcname
<span class="synStatement">if</span> _channelname!<span class="synConstant">&#34;&#34;</span>{
foreach m_channellogname
<span class="synStatement">if</span> m_channellogname(cnt) == _channelname{
fclog=<span class="synConstant">1</span>
fccnt=cnt
<span class="synStatement">break</span>
}
loop
}<span class="synStatement">else</span>{
fclog=<span class="synConstant">2</span> <span class="synComment">//全てのチャンネルが対象</span>
}
<span class="synStatement">if</span> fclog == <span class="synConstant">0</span>{
<span class="synStatement">if</span> m_channellogname(<span class="synConstant">0</span>)==<span class="synConstant">&#34;&#34;</span>{
fccnt=<span class="synConstant">0</span>
}<span class="synStatement">else</span>{
fccnt=length(m_channellogname)
}
m_channellogname(fccnt)=_channelname
}
timelog=strf(<span class="synConstant">&#34;</span><span class="synSpecial">%02d</span><span class="synConstant">&#34;</span>, gettime(<span class="synConstant">4</span>))+<span class="synConstant">&#34;:&#34;</span>+strf(<span class="synConstant">&#34;</span><span class="synSpecial">%02d</span><span class="synConstant">&#34;</span>, gettime(<span class="synConstant">5</span>))
foreach m_channellogname
notesel m_channellog(fccnt)
<span class="synStatement">switch</span> _command
<span class="synStatement">case</span> <span class="synConstant">&#34;PRIVMSG&#34;</span>
ircc_strcut fcname, _p1, <span class="synConstant">&#34;!&#34;</span>
noteadd timelog+<span class="synConstant">&#34; &#34;</span>+m_nickname_s+fcname+m_nickname_e+<span class="synConstant">&#34; &#34;</span>+_p2, -<span class="synConstant">1</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;NOTICE&#34;</span>
ircc_strcut fcname, _p1, <span class="synConstant">&#34;!&#34;</span>
noteadd timelog+<span class="synConstant">&#34; &#34;</span>+m_nickname_s+fcname+m_nickname_e+<span class="synConstant">&#34; &#34;</span>+_p2, -<span class="synConstant">1</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;JOIN&#34;</span>
ircc_strcut fcname, _p1, <span class="synConstant">&#34;!&#34;</span>
noteadd timelog+<span class="synConstant">&#34; &#34;</span>+m_nickname_accs+fcname+<span class="synConstant">&#34; join &#34;</span>+_channelname+<span class="synConstant">&#34; &#34;</span>+m_command_s+fcname(<span class="synConstant">1</span>)+m_command_e, -<span class="synConstant">1</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;QUIT&#34;</span>
ircc_strcut fcname, _p1, <span class="synConstant">&#34;!&#34;</span>
noteadd timelog+<span class="synConstant">&#34; &#34;</span>+m_nickname_accs+fcname+<span class="synConstant">&#34; quit &#34;</span>+m_command_s+_p1+m_command_e, -<span class="synConstant">1</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;PART&#34;</span>
ircc_strcut fcname, _p1, <span class="synConstant">&#34;!&#34;</span>
noteadd timelog+<span class="synConstant">&#34; &#34;</span>+m_nickname_accs+fcname+<span class="synConstant">&#34; part &#34;</span>+m_command_s+_p2+m_command_e, -<span class="synConstant">1</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;TOPIC&#34;</span>
ircc_strcut fcname, _p1, <span class="synConstant">&#34;!&#34;</span>
noteadd timelog+<span class="synConstant">&#34; &#34;</span>+m_nickname_accs+fcname+<span class="synConstant">&#34; topic : &#34;</span>+_p2, -<span class="synConstant">1</span>
swbreak
swend
fccnt++
noteunsel
<span class="synStatement">if</span> fclog!<span class="synConstant">2</span>:<span class="synStatement">break</span>
loop
<span class="synStatement">return</span>
<span class="synComment">//入室</span>
#modfunc mod_ircc_join str _channelname, local s1
<span class="synStatement">if</span> _channelname=<span class="synConstant">&#34;&#34;</span>:<span class="synStatement">return</span>
mod_ircc_addlog thismod, <span class="synConstant">&#34;JOIN &#34;</span>+_channelname+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
ircc_strcut s1,_channelname,<span class="synConstant">&#34;,&#34;</span>
foreach s1
tcpput <span class="synConstant">&#34;JOIN &#34;</span>+s1(cnt)+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>, m_sockid
loop
<span class="synStatement">return</span>
<span class="synComment">//退室</span>
#modfunc mod_ircc_part str _channelname, str _partmessage, local s1, local s2
<span class="synStatement">if</span> _channelname=<span class="synConstant">&#34;&#34;</span>:<span class="synStatement">return</span>
<span class="synStatement">if</span> _partmessage!<span class="synConstant">&#34;&#34;</span>{
s1=<span class="synConstant">&#34; :&#34;</span>+_partmessage
}
mod_ircc_addlog thismod, <span class="synConstant">&#34;PART &#34;</span>+_channelname+s1+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
mod_ircc_addchannellog thismod, _channelname, <span class="synConstant">&#34;PART&#34;</span>, m_nickname, _partmessage, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
ircc_strcut s2,_channelname,<span class="synConstant">&#34;,&#34;</span>
foreach s2
tcpput <span class="synConstant">&#34;PART &#34;</span>+s2(cnt)+s1+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>, m_sockid
loop
<span class="synStatement">return</span>
<span class="synComment">//notice発言</span>
#modfunc mod_ircc_notice str _channelname, str _message, local s1
<span class="synStatement">if</span> _message=<span class="synConstant">&#34;&#34;</span>:<span class="synStatement">return</span>
<span class="synStatement">if</span> _channelname=<span class="synConstant">&#34;&#34;</span>:<span class="synStatement">return</span>
mod_ircc_addlog thismod, <span class="synConstant">&#34;NOTICE &#34;</span>+_channelname+<span class="synConstant">&#34; :&#34;</span>+_message+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
ircc_strcut s1,_channelname,<span class="synConstant">&#34;,&#34;</span>
foreach s1
mod_ircc_addchannellog thismod, s1(cnt), <span class="synConstant">&#34;NOTICE&#34;</span>, m_nickname, _message, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
tcpput <span class="synConstant">&#34;NOTICE &#34;</span>+s1(cnt)+<span class="synConstant">&#34; :&#34;</span>+_message+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>, m_sockid
loop
<span class="synStatement">return</span>
<span class="synComment">//PRIVMSG発言</span>
#modfunc mod_ircc_privmsg str _channelname, str _message, local s1
<span class="synStatement">if</span> _message=<span class="synConstant">&#34;&#34;</span>:<span class="synStatement">return</span>
<span class="synStatement">if</span> _channelname=<span class="synConstant">&#34;&#34;</span>:<span class="synStatement">return</span>
mod_ircc_addlog thismod, <span class="synConstant">&#34;privmsg &#34;</span>+_channelname+<span class="synConstant">&#34; :&#34;</span>+_message+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
ircc_strcut s1,_channelname,<span class="synConstant">&#34;,&#34;</span>
foreach s1
mod_ircc_addchannellog thismod, s1(cnt), <span class="synConstant">&#34;PRIVMSG&#34;</span>, m_nickname, _message, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
tcpput <span class="synConstant">&#34;privmsg &#34;</span>+s1(cnt)+<span class="synConstant">&#34; :&#34;</span>+_message+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>, m_sockid
loop
<span class="synStatement">return</span>
<span class="synComment">//オペレータ権限の操作</span>
<span class="synComment">//_flagが0以上でオペレータ権限を与えます</span>
#modfunc mod_ircc_vestoper str _channelname, str _nickname, <span class="synType">int</span> _flag, local s1
<span class="synStatement">if</span> _flag&#60;<span class="synConstant">0</span>:s1=<span class="synConstant">&#34;-o&#34;</span>:<span class="synStatement">else</span>:s1=<span class="synConstant">&#34;+o&#34;</span>
mod_ircc_addlog thismod, <span class="synConstant">&#34;MODE &#34;</span>+_channelname+<span class="synConstant">&#34; &#34;</span>+s1+<span class="synConstant">&#34; &#34;</span>+_nickname+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
tcpput <span class="synConstant">&#34;MODE &#34;</span>+_channelname+<span class="synConstant">&#34; &#34;</span>+s1+<span class="synConstant">&#34; &#34;</span>+_nickname+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>, m_sockid
<span class="synStatement">return</span>
<span class="synComment">//延期作業リストに追加</span>
#modfunc mod_new_add str _channelname, str _command, str _p1, str _p2, str _p3, str _p4, str _p5
repeat
<span class="synStatement">if</span> length(m_new_channel)&#60;=cnt{
m_new_channel(cnt)=_channelname
m_new_command(cnt)=_command
m_new_p1(cnt)=_p1
m_new_p2(cnt)=_p2
m_new_p3(cnt)=_p3
m_new_p4(cnt)=_p4
m_new_p5(cnt)=_p5
<span class="synStatement">break</span>
}<span class="synStatement">else</span>:<span class="synStatement">if</span> m_new_channel(cnt)=<span class="synConstant">&#34;&#34;</span>{
m_new_channel(cnt)=_channelname
m_new_command(cnt)=_command
m_new_p1(cnt)=_p1
m_new_p2(cnt)=_p2
m_new_p3(cnt)=_p3
m_new_p4(cnt)=_p4
m_new_p5(cnt)=_p5
<span class="synStatement">break</span>
}
loop
<span class="synStatement">return</span>
<span class="synComment">//接続のための情報を送信</span>
#modfunc mod_ircc_connect_infosend
<span class="synStatement">if</span> m_pass!<span class="synConstant">&#34;&#34;</span>{
tcpput <span class="synConstant">&#34;PASS &#34;</span>+m_pass+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>, m_sockid
mod_ircc_addlog thismod, <span class="synConstant">&#34;PASS &#34;</span>+m_pass+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
<span class="synStatement">if</span> stat!<span class="synConstant">0</span>:mod_ircc_addlog thismod, <span class="synConstant">&#34;IRCC: PASSを送れませんでした</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
}
tcpput <span class="synConstant">&#34;NICK &#34;</span>+m_nickname+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>, m_sockid
<span class="synStatement">if</span> stat!<span class="synConstant">0</span>:mod_ircc_addlog thismod, <span class="synConstant">&#34;IRCC: NICKを送れませんでした</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
mod_ircc_addlog thismod, <span class="synConstant">&#34;NICK &#34;</span>+m_nickname+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
tcpput <span class="synConstant">&#34;USER &#34;</span>+m_username+<span class="synConstant">&#34; &#34;</span>+m_hostname+<span class="synConstant">&#34; &#34;</span>+m_servername+<span class="synConstant">&#34; :&#34;</span>+m_realname+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>, m_sockid
<span class="synStatement">if</span> stat!<span class="synConstant">0</span>:mod_ircc_addlog thismod, <span class="synConstant">&#34;IRCC: USERを送れませんでした</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
mod_ircc_addlog thismod, <span class="synConstant">&#34;USER &#34;</span>+m_username+<span class="synConstant">&#34; &#34;</span>+m_hostname+<span class="synConstant">&#34; &#34;</span>+m_servername+<span class="synConstant">&#34; :&#34;</span>+m_realname+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
<span class="synStatement">return</span>
<span class="synComment">//指定されたチャンネルの整形されたチャンネルログを取得</span>
<span class="synComment">//この命令を実行すると、モジュール変数に保持してあるチャンネルログが初期化されます</span>
<span class="synComment">//ログを蓄積させる場合は、別途に変数を容易させる必要があります</span>
<span class="synComment">//戻り値 取得された場合1が返ります</span>
#modfunc mod_ircc_getchannellog var _var, str _channelname, local gcflag
foreach m_channellogname
<span class="synStatement">if</span> m_channellogname(cnt) == _channelname{
<span class="synStatement">if</span> m_channellog(cnt)!<span class="synConstant">&#34;&#34;</span>{
_var = m_channellog(cnt)
m_channellog(cnt)=<span class="synConstant">&#34;&#34;</span>
gcflag=<span class="synConstant">1</span>
}
<span class="synStatement">break</span>
}
loop
<span class="synStatement">if</span> gcflag==<span class="synConstant">0</span>{
_var=<span class="synConstant">&#34;&#34;</span>
}
<span class="synStatement">return</span> gcflag
<span class="synComment">//タイマー管理</span>
<span class="synComment">//戻り値</span>
<span class="synComment">// 0 = 正常終了</span>
<span class="synComment">// 1 = ユーザー情報が登録された</span>
<span class="synComment">// 2 = サーバーからデータを受信した</span>
<span class="synComment">// -1 = 接続エラー</span>
#modfunc mod_ircc_timer local get, local s1, local s2, local s3, local s4, local s5, local s6, local x1, local x2, local x3, local size, local flag
<span class="synStatement">if</span> m_connect=<span class="synConstant">0</span>{
mod_ircc_connect_infosend thismod
m_connect=<span class="synConstant">1</span>
}
tcpfail m_sockid
<span class="synStatement">if</span> stat==<span class="synConstant">2</span>{
<span class="synPreProc"> #ifdef _debug</span>
mod_ircc_addlog thismod, <span class="synConstant">&#34;IRCC :通信が切断されました</span><span class="synSpecial">\n</span><span class="synConstant">IRCC: このモジュール変数はdelmodによって削除されます</span><span class="synSpecial">\n</span><span class="synConstant">IRCC :mod_ircc_timerの戻り値に-1が返されました</span><span class="synSpecial">\n</span><span class="synConstant">開発者はこの戻り値で再接続をするプログラムを書くことが出来ます</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
<span class="synPreProc"> #endif</span>
delmod thismod
<span class="synStatement">return</span> -<span class="synConstant">1</span>
}
sdim s3,<span class="synConstant">64</span>
repeat <span class="synConstant">120</span>
tcpcount s1, m_sockid
<span class="synStatement">if</span> s1&#62;<span class="synConstant">0</span> {
sdim s2, s1+<span class="synConstant">1</span>
tcpget s2, s1, m_sockid
s3+=s2
wait <span class="synConstant">0</span>
}<span class="synStatement">else</span>:<span class="synStatement">break</span>
loop
<span class="synPreProc">#ifdef _debug</span>
mod_ircc_debug_title thismod, <span class="synConstant">&#34;【IRCデバッグ】処理スルー回数：&#34;</span>+cc+<span class="synConstant">&#34; 処理回数：&#34;</span>+cc2+<span class="synConstant">&#34; 合計：&#34;</span>+(cc+cc2)
<span class="synPreProc">#endif</span>
<span class="synStatement">if</span> s3==<span class="synConstant">&#34;&#34;</span>{
<span class="synComment">//各mod_ircc_instr_系命令でひとつも該当するものがなかった場合(m_hit=0)初期化する</span>
<span class="synStatement">if</span> m_hit=<span class="synConstant">0</span>{
<span class="synComment">//初期化</span>
sdim m_new_channel
sdim m_new_command
sdim m_new_p1
sdim m_new_p2
sdim m_new_p3
sdim m_new_p4
sdim m_new_p5
}<span class="synStatement">else</span>{
m_hit=<span class="synConstant">0</span>
flag=<span class="synConstant">2</span>
}
<span class="synPreProc"> #ifdef _debug</span>
cc++
<span class="synPreProc"> #endif</span>
<span class="synStatement">return</span> flag
}<span class="synStatement">else</span>{
s3 = jis2sjis(s3)
<span class="synStatement">if</span> m_connected==<span class="synConstant">1</span> : flag = <span class="synConstant">2</span>
}
notesel s3
repeat notemax
noteget s4,cnt
<span class="synComment">//改行コードが含まれているバグのfix</span>
<span class="synStatement">if</span> peek(s4)=<span class="synConstant">10</span>: getstr s4 ,s4, <span class="synConstant">1</span>
mod_ircc_addlog thismod, s4+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
ircc_strcut s5, s4, <span class="synConstant">&#34;:&#34;</span>, <span class="synConstant">2</span>
<span class="synComment">//文字列解析</span>
s6 = length(s5)
<span class="synStatement">if</span> s6&#62;=<span class="synConstant">1</span>{
ircc_strcut x1, s5(<span class="synConstant">0</span>), <span class="synConstant">&#34; &#34;</span>
<span class="synStatement">if</span> s6&#62;=<span class="synConstant">2</span>{
ircc_strcut x2, s5(<span class="synConstant">1</span>), <span class="synConstant">&#34; &#34;</span>
<span class="synStatement">if</span> s6&#62;=<span class="synConstant">3</span>{
x3=s5(<span class="synConstant">2</span>)
}
}
}
<span class="synComment"> #if 0</span>
<span class="synComment"> #ifdef _debug</span>
<span class="synComment"> mod_ircc_addlog thismod, &#34;IRCC: s5(0): &#34;+s5(0)+&#34;\n&#34;</span>
<span class="synComment"> if x1!0 : mod_ircc_addlog thismod, &#34;IRCC: x1(0): &#34;+x1(0)+&#34;\n&#34;</span>
<span class="synComment"> if x2!0 : mod_ircc_addlog thismod, &#34;IRCC: x2(0): &#34;+x2(0)+&#34;\n&#34;</span>
<span class="synComment"> if x3!0 : mod_ircc_addlog thismod, &#34;IRCC: x3(0): &#34;+x3(0)+&#34;\n&#34;</span>
<span class="synComment"> if x4!0 : mod_ircc_addlog thismod, &#34;IRCC: x4(0): &#34;+x4(0)+&#34;\n&#34;</span>
<span class="synComment"> if x5!0 : mod_ircc_addlog thismod, &#34;IRCC: x5(0): &#34;+x5(0)+&#34;\n&#34;</span>
<span class="synComment"> mod_ircc_addlog thismod, &#34;\n&#34;</span>
<span class="synComment"> #endif</span>
<span class="synComment"> #endif</span>
<span class="synComment">//PONG</span>
<span class="synStatement">if</span> x1(<span class="synConstant">0</span>)=<span class="synConstant">&#34;PING&#34;</span>{
tcpput <span class="synConstant">&#34;PONG :&#34;</span>+m_nickname+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>, m_sockid
mod_ircc_addlog thismod, <span class="synConstant">&#34;PONG :&#34;</span>+m_nickname+<span class="synConstant">&#34;</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span>
flag=<span class="synConstant">0</span>
}
<span class="synStatement">if</span> length(x2)&#62;=<span class="synConstant">2</span>{
<span class="synStatement">switch</span> x2(<span class="synConstant">1</span>)
<span class="synStatement">case</span> <span class="synConstant">&#34;JOIN&#34;</span>
mod_ircc_addchannellog thismod, x3, x2(<span class="synConstant">1</span>), x2(<span class="synConstant">0</span>), <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
mod_new_add thismod, x3, x2(<span class="synConstant">1</span>), x2(<span class="synConstant">0</span>), <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;PRIVMSG&#34;</span>
mod_new_add thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
mod_ircc_addchannellog thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x2(<span class="synConstant">0</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;NOTICE&#34;</span>
mod_new_add thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
mod_ircc_addchannellog thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x2(<span class="synConstant">0</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;001&#34;</span>
mod_ircc_addchannellog thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
flag=<span class="synConstant">1</span>
m_connected=<span class="synConstant">1</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;433&#34;</span>
mod_ircc_addchannellog thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
<span class="synComment">//ニックネームがすでに使われている場合</span>
m_nickname+=<span class="synConstant">&#34;_&#34;</span> <span class="synComment">//アンダーバー(_)を追加</span>
mod_ircc_connect_infosend thismod
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;QUIT&#34;</span>
mod_ircc_addchannellog thismod, <span class="synConstant">&#34;&#34;</span>, x2(<span class="synConstant">1</span>), x2(<span class="synConstant">0</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
mod_new_add thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;PART&#34;</span>
mod_ircc_addchannellog thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x2(<span class="synConstant">0</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
mod_new_add thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;TOPIC&#34;</span>
mod_ircc_addchannellog thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x2(<span class="synConstant">0</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
mod_new_add thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x3, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
swbreak
<span class="synStatement">case</span> <span class="synConstant">&#34;MODE&#34;</span>
mod_ircc_addchannellog thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x2(<span class="synConstant">3</span>), <span class="synConstant">&#34;x2(4)&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
<span class="synComment">//p1 モードの種類 p2 ターゲット</span>
mod_new_add thismod, x2(<span class="synConstant">2</span>), x2(<span class="synConstant">1</span>), x2(<span class="synConstant">3</span>), <span class="synConstant">&#34;x2(4)&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;&#34;</span>
swbreak
swend
}
loop
<span class="synPreProc">#ifdef _debug</span>
cc2++
<span class="synPreProc">#endif</span>
<span class="synStatement">return</span> flag
#modfunc mod_new_clear <span class="synType">int</span> _cnt
m_new_channel(_cnt)=<span class="synConstant">&#34;&#34;</span>
m_new_command(_cnt)=<span class="synConstant">&#34;&#34;</span>
m_new_p1(_cnt)=<span class="synConstant">&#34;&#34;</span>
m_new_p2(_cnt)=<span class="synConstant">&#34;&#34;</span>
m_new_p3(_cnt)=<span class="synConstant">&#34;&#34;</span>
m_new_p4(_cnt)=<span class="synConstant">&#34;&#34;</span>
m_new_p5(_cnt)=<span class="synConstant">&#34;&#34;</span>
<span class="synStatement">return</span>
<span class="synComment">//</span><span class="synTodo">TODO</span><span class="synComment">: ニックネームとサーバーとチャンネルの判定を分ける</span>
<span class="synComment">//</span><span class="synTodo">TODO</span><span class="synComment">: ニックネームも判定のひとつに</span>
<span class="synComment">//</span><span class="synTodo">TODO</span><span class="synComment">: オリジナルの名前とメッセージを取得できるように</span>
<span class="synComment">//指定されたチャンネルまたはサーバーまたはニックネームの最新のPRIVMSGに指定された文字列が含まれていた場合、1を返す</span>
<span class="synComment">//この命令は、WM_TIMER内mod_ircc_timer以降に入れて使用します</span>
<span class="synComment">//_flag: 1を指定すると、同じ発言に対して他の命令の判定も続けることができます</span>
#modfunc mod_ircc_instr_privmsg str _channelname, str _inmessage, <span class="synType">int</span> _flag, local _stat
foreach m_new_channel
<span class="synStatement">if</span> m_new_channel(cnt)=_channelname{
<span class="synStatement">if</span> m_new_command(cnt)=<span class="synConstant">&#34;PRIVMSG&#34;</span>{
<span class="synStatement">if</span> instr(m_new_p1(cnt), <span class="synConstant">0</span>, _inmessage)!-<span class="synConstant">1</span>{
<span class="synStatement">if</span> _flag=<span class="synConstant">0</span> : mod_new_clear thismod, cnt
_stat=<span class="synConstant">1</span>
m_hit=<span class="synConstant">1</span>
<span class="synStatement">break</span>
}
}
}
loop
<span class="synStatement">return</span> _stat
<span class="synComment">//指定されたチャンネルまたはサーバーまたはニックネームの最新のNOTICEに指定された文字列が含まれていた場合、1を返す ※非推奨</span>
<span class="synComment">//この命令は、WM_TIMER内mod_ircc_timer以降に入れて使用します</span>
#modfunc mod_ircc_instr_notice str _channelname, str _inmessage, <span class="synType">int</span> _flag, local _stat
foreach m_new_channel
<span class="synStatement">if</span> m_new_channel(cnt)=_channelname{
<span class="synStatement">if</span> m_new_command(cnt)=<span class="synConstant">&#34;NOTICE&#34;</span>{
<span class="synStatement">if</span> instr(m_new_p1(cnt), <span class="synConstant">0</span>, _inmessage)!-<span class="synConstant">1</span>{
<span class="synStatement">if</span> _flag=<span class="synConstant">0</span> : mod_new_clear thismod, cnt
_stat=<span class="synConstant">1</span>
m_hit=<span class="synConstant">1</span>
<span class="synStatement">break</span>
}
}
}
loop
<span class="synStatement">return</span> _stat
<span class="synComment">//入室を知らせる</span>
#modfunc mod_ircc_instr_join str _channelname, str _nickname, local _stat, local s1, local s2
ircc_strcut s1, _channelname, <span class="synConstant">&#34;,&#34;</span>
foreach s1
foreach m_new_channel
<span class="synStatement">if</span> m_new_channel(cnt)=s1(s2){
<span class="synStatement">if</span> m_new_command(cnt)=<span class="synConstant">&#34;JOIN&#34;</span>{
<span class="synStatement">if</span> (_nickname==<span class="synConstant">&#34;&#34;</span>)|(instr(m_new_p1(cnt), <span class="synConstant">0</span>, _nickname)!-<span class="synConstant">1</span>){
_stat = <span class="synConstant">1</span>
}
}
}
loop
s2++
loop
<span class="synStatement">return</span> _stat
#modterm
KillTimer hwnd, m_timerid
tcpshut m_sockid
tcpclose m_sockid
netclear
<span class="synStatement">return</span>
#global
<span class="synComment">//////// サンプルスクリプト ///////////////////////////////////////////////////////////////////////</span>
<span class="synPreProc">#if _irc_debug_</span>
gsel <span class="synConstant">0</span>
<span class="synComment">//左から、 モジュール変数,モジュール名, 接続するホスト, ポート, パスワード, ニックネーム...</span>
newmod irc,ircc, <span class="synConstant">0</span>, <span class="synConstant">&#34;127.0.0.1&#34;</span>, <span class="synConstant">6667</span>, <span class="synConstant">&#34;&#34;</span>, <span class="synConstant">&#34;TEST&#34;</span>, <span class="synConstant">&#34;TEST&#34;</span>, <span class="synConstant">&#34;TEST&#34;</span>, <span class="synConstant">&#34;TEST&#34;</span>, <span class="synConstant">&#34;TEST&#34;</span>, <span class="synConstant">0</span>, <span class="synConstant">1</span>
mes <span class="synConstant">&#34;接続を開始しています&#34;</span>
<span class="synComment">//サーバーに接続します。この時点ではまだ、ユーザー情報をサーバーに登録していません。</span>
mod_ircc_connect irc
<span class="synStatement">if</span> stat==<span class="synConstant">1</span>{
<span class="synComment">//接続に成功した</span>
mes <span class="synConstant">&#34;接続が完了しました&#34;</span>
title <span class="synConstant">&#34;connected&#34;</span>
oncmd gosub *IRCC_TIMER, WM_TIMER
sdim clog,<span class="synConstant">64</span>
mesbox clog, ginfo_winx,<span class="synConstant">200</span>
}<span class="synStatement">else</span>{
<span class="synComment">//接続に失敗</span>
mes <span class="synConstant">&#34;接続に失敗しました&#34;</span>
}
stop
<span class="synComment">//複数のサーバーに同時に接続する場合は、同じWM_TIMERのラベルに定義してください</span>
*IRCC_TIMER
mod_ircc_timer irc <span class="synComment">//ユーザー登録と定期的な受信（５０ミリ秒）</span>
<span class="synStatement">switch</span> stat
<span class="synComment">//サーバーにユーザー情報が登録された</span>
<span class="synStatement">case</span> <span class="synConstant">1</span>
mes <span class="synConstant">&#34;サーバーに登録が完了しました&#34;</span>
mod_ircc_join irc, <span class="synConstant">&#34;#test,#test2,#test3,#test4,#test5&#34;</span> <span class="synComment">//部屋の入室</span>
mod_ircc_part irc, <span class="synConstant">&#34;#test3,#test4,#test5&#34;</span>, <span class="synConstant">&#34;Bye&#34;</span> <span class="synComment">//#test3,#test4,#test5の部屋からメッセージを付けて退室</span>
swbreak
<span class="synComment">//データが受信された</span>
<span class="synStatement">case</span> <span class="synConstant">2</span>
mes <span class="synConstant">&#34;データ受信&#34;</span>
mod_ircc_instr_join irc, <span class="synConstant">&#34;#test,#test2&#34;</span>, <span class="synConstant">&#34;TEST&#34;</span>
<span class="synStatement">if</span> stat{
mod_ircc_privmsg irc, <span class="synConstant">&#34;#test,#test2&#34;</span>, <span class="synConstant">&#34;やあこんばんは&#34;</span> <span class="synComment">//#test,#test2の部屋に発言 </span>
}
mod_ircc_instr_privmsg irc, <span class="synConstant">&#34;#test&#34;</span>, <span class="synConstant">&#34;時報&#34;</span> <span class="synComment">//最新のPRIVMSGの中に“時報”が含まれていた場合1を返す</span>
<span class="synStatement">if</span> stat{
mod_ircc_notice irc,<span class="synConstant">&#34;#test&#34;</span>,<span class="synConstant">&#34;今&#34;</span>+gettime(<span class="synConstant">4</span>)+<span class="synConstant">&#34;時&#34;</span>+gettime(<span class="synConstant">5</span>)+<span class="synConstant">&#34;分です&#34;</span> <span class="synComment">//NOTICE発言を行う</span>
}
mod_ircc_instr_privmsg irc, <span class="synConstant">&#34;#test&#34;</span>, <span class="synConstant">&#34;再起動&#34;</span> <span class="synComment">//最新のNOTICEの中に“時報”が含まれていた場合1を返す</span>
<span class="synStatement">if</span> stat{
mod_ircc_addlog irc, <span class="synConstant">&#34;再起動開始</span><span class="synSpecial">\n</span><span class="synConstant">&#34;</span> <span class="synComment">//ログに文字列を追加する</span>
*@
mod_ircc_deconnect irc
mod_ircc_connect irc <span class="synComment">//サーバーへ接続</span>
<span class="synStatement">if</span> stat==<span class="synConstant">1</span>{
<span class="synComment">//接続成功</span>
title <span class="synConstant">&#34;connected&#34;</span>
oncmd gosub *IRCC_TIMER, WM_TIMER
}<span class="synStatement">else</span>{
<span class="synComment">//接続失敗</span>
mes <span class="synConstant">&#34;接続できませんでした１分後に再接続します&#34;</span>
wait <span class="synConstant">6000</span>
<span class="synStatement">goto</span> *@b
}
}
swbreak
<span class="synComment">//サーバーから切断された</span>
<span class="synStatement">case</span> -<span class="synConstant">1</span>
*@
mes <span class="synConstant">&#34;サーバーから切断されました１分後に再接続します&#34;</span>
<span class="synComment">//サーバーから切断されたら１分後に再接続</span>
wait <span class="synConstant">6000</span>
<span class="synComment">//新しくオブジェクトを作成</span>
mod_ircc_deconnect irc
mod_ircc_connect irc <span class="synComment">//サーバーへ接続</span>
<span class="synStatement">if</span> stat==<span class="synConstant">1</span>{
<span class="synComment">//接続成功</span>
title <span class="synConstant">&#34;connected&#34;</span>
oncmd gosub *IRCC_TIMER, WM_TIMER
}<span class="synStatement">else</span>{
<span class="synComment">//接続失敗</span>
mes <span class="synConstant">&#34;接続できませんでした&#34;</span>
<span class="synStatement">goto</span> *@b
}
wait <span class="synConstant">0</span>
swbreak
swend
<span class="synComment">//&#34;#test&#34;チャンネルのログを取得する</span>
mod_ircc_getchannellog irc, log, <span class="synConstant">&#34;#test&#34;</span>
<span class="synStatement">if</span> stat{
clog+=log
objprm <span class="synConstant">0</span>,clog
}
<span class="synStatement">return</span>
<span class="synPreProc">#endif</span>

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

655

656

#include "mod_encode.hsp" //http://hspdev-wiki.net/?Module%2F%CA%B8%BB%FA%A5%B3%A1%BC%A5%C9%CA%D1%B4%B9%A5%E2%A5%B8%A5%E5%A1%BC%A5%EB

/////////////////////////////////

// Created By As 0.006 //

// IRCクライアントモジュール //

/////////////////////////////////

#define _irc_debug_ 0

#ifndef WM_TIMER

#define global WM_TIMER $00000113

#endif

#module

//文字列分割 ircc_strcut 配列変数, 読み出す文字列, 区切る文字

#deffunc ircc_strcut array p1, str p2, str p3, int _limit, local s1, local s2, local s3, local s4, local s5, local s6

s1=p2 //読み出す文字列を他のローカル変数に代入

s4=p3 //区切る文字

s5=strlen(s4)

sdim p1

repeat

s2=instr(s1,s3,p3)

if s2=-1{

//見つからない場合

getstr p1(cnt), s1, s6

break

}else{

if cnt>0:if _limit=cnt{

getstr p1(cnt), s1, s6

break

}

s3+=s2 //見つかった場合s2を加算

if s3-s6>0{

p1(cnt)=strmid(s1,s6,s3-s6)

}else{

p1(cnt)=""

}

s3+=s5 //区切る文字数分増やす

s6=s3 //コピー開始位置の保持

}

loop

return

//配列変数を指定した文字列で結合する

//ircc_strcat 出力する変数, 配列変数, 区切る文字

#deffunc ircc_strcat var _var, array _array, str _str, local s1

sdim s1,64

repeat length(_array)-1

s1+=_array(cnt)+_str

loop

s1+=_array(length(_array)-1)

_var=s1

return

#global

//ircクライアントモジュール

#module ircc m_sockid, m_server, m_port, m_pass, m_nickname, m_username, m_hostname, m_realname, m_servername, m_log, m_logsellen, m_timerid, m_debugscreenid, m_new_channel, m_new_command, m_new_p1, m_new_p2, m_new_p3, m_new_p4, m_new_p5, m_connect, m_connected, m_hit, m_channellog, m_channellogname, m_nickname_s, m_nickname_e, m_nickname_accs, m_command_s, m_command_e

#include "pcbnet.as"

#uselib "user32.dll"

#func SetTimer "SetTimer" sptr,sptr,sptr,sptr

#func KillTimer "KillTimer" sptr,sptr

#func PostMessage "PostMessageA" int,int,int,int

#define sjis2jis(%1, %2) _FromSJIS@mod_encode %2, CODEPAGE_S_JIS, %1, CODEPAGE_JIS

#define ctype jis2sjis(%1) _ToSJIS@mod_encode(%1, CODEPAGE_JIS, CODEPAGE_S_JIS)

//コンストラクタ

//_log ログが保持される変数

//_sockid ソケットID

//_server 接続するホスト先

//_port ポート

//_pass 接続に必要案パスワード

//_nickname ニックネーム

//_username ユーザーネーム

//_hostname ホストネーム

//_servername サーバーネーム

//_realname リアルネーム

//_debugscreenid デバッグ用ウィンドウ（初期値：６３）

//_timerid タイマーID(初期値：1） ※この値は必要ない限り変えないで下さい

#modinit int _sockid, str _server, int _port, str _pass, str _nickname, str _username , str _hostname, str _servername, str _realname,int _debugscreenid, int _timerid, local s1

m_sockid = _sockid

m_server = _server

m_port = _port

m_pass = _pass

m_nickname = _nickname

m_username = _username

m_hostname = _hostname

m_servername = _servername

m_realname = _realname

sdim m_channellog

sdim m_channellogname

sdim m_log,64

m_logsellen = 30 //ログの最大行数

if _timerid=0{

m_timerid=1

}else{

m_timerid=_timerid

}

sdim m_new_channel

sdim m_new_command

sdim m_new_p1

sdim m_new_p2

sdim m_new_p3

sdim m_new_p4

sdim m_new_p5

m_nickname_s="("

m_nickname_e=")"

m_nickname_accs="*"

m_command_s="("

m_command_e=")"

#ifdef _debug

s1=ginfo_sel

if _debugscreenid=0{

m_debugscreenid=63

}else{

m_debugscreenid = _debugscreenid //デバッグ用ウィンドウのスクリーンIDを指定します

}

dcount++

screen m_debugscreenid, 640,480

mesbox m_log,ginfo_winx,ginfo_winy

gsel s1

#endif

return

#ifdef _debug

#modfunc mod_ircc_logreflesh local _ginfo_sel, local _m_logsize

_ginfo_sel=ginfo_sel

gsel m_debugscreenid

objprm 0,m_log

gsel _ginfo_sel

return

#modfunc mod_ircc_debug_title str _title, local _ginfo_sel

_ginfo_sel=ginfo_sel

gsel m_debugscreenid

title _title

gsel _ginfo_sel

return

#endif

#modfunc mod_ircc_addlog str _str

m_log+=_str

//ログが増えた場合削除

notesel m_log

repeat notemax

if notemax>m_logsellen{

notedel 0

continue

}

loop

noteunsel

#ifdef _debug

mod_ircc_logreflesh thismod

#endif

return

//ログ用変数のクローン変数化

#modfunc mod_ircc_duplog var _var

dup _var, m_log

return

//IRCサーバーに接続

//戻り値

//1 = 接続完了

//0 = 接続エラー

#modfunc mod_ircc_connect local s1, local s2, local s3, local x1, local x2, local size, local connected

tcpopen m_sockid, m_server, m_port //IRCサーバーの接続を開始

repeat 6000

tcpiscon m_sockid

if stat==1{

connected=1

break

}else:if stat==2{

#ifdef _debug

mod_ircc_addlog thismod, "IRCC: tcpopen error.\n"

#endif

break

}

wait 1

loop

if connected=1{

SetTimer hwnd, m_timerid, 500, 0

}

return connected

//IRCサーバーから切断

#modfunc mod_ircc_deconnect

if varuse(thismod)==0:return

m_connect=0

m_connected=0

sdim m_new_channel

sdim m_new_command

sdim m_new_p1

sdim m_new_p2

sdim m_new_p3

sdim m_new_p4

sdim m_new_p5

KillTimer hwnd, m_timerid

tcpshut m_sockid

tcpclose m_sockid

#ifdef _debug

mod_ircc_addlog thismod, "IRCC: サーバーから切断しました"

#endif

return

//ex.mod_ircc_channellogstyle irc, "(", ")", "*", "(", ")"

#modfunc mod_ircc_channellogstyle str _nickname_s, str _nickname_e, str _nickname_accs, str _command_s, str _command_e

m_nickname_s=_nickname_s

m_nickname_e=_nickname_e

m_nickname_accs=_nickname_accs

m_command_s=_command_s

m_command_e=_command_e

return

//チャンネルログに追加

#modfunc mod_ircc_addchannellog str _channelname, str _command, str _p1, str _p2, str _p3, str _p4, str _p5, local fclog, local fccnt, local timelog, local fcname

if _channelname!""{

foreach m_channellogname

if m_channellogname(cnt) == _channelname{

fclog=1

fccnt=cnt

break

}

loop

}else{

fclog=2 //全てのチャンネルが対象

}

if fclog == 0{

if m_channellogname(0)==""{

fccnt=0

}else{

fccnt=length(m_channellogname)

}

m_channellogname(fccnt)=_channelname

}

timelog=strf("%02d", gettime(4))+":"+strf("%02d", gettime(5))

foreach m_channellogname

notesel m_channellog(fccnt)

switch _command

case "PRIVMSG"

ircc_strcut fcname, _p1, "!"

noteadd timelog+" "+m_nickname_s+fcname+m_nickname_e+" "+_p2, -1

swbreak

case "NOTICE"

ircc_strcut fcname, _p1, "!"

noteadd timelog+" "+m_nickname_s+fcname+m_nickname_e+" "+_p2, -1

swbreak

case "JOIN"

ircc_strcut fcname, _p1, "!"

noteadd timelog+" "+m_nickname_accs+fcname+" join "+_channelname+" "+m_command_s+fcname(1)+m_command_e, -1

swbreak

case "QUIT"

ircc_strcut fcname, _p1, "!"

noteadd timelog+" "+m_nickname_accs+fcname+" quit "+m_command_s+_p1+m_command_e, -1

swbreak

case "PART"

ircc_strcut fcname, _p1, "!"

noteadd timelog+" "+m_nickname_accs+fcname+" part "+m_command_s+_p2+m_command_e, -1

swbreak

case "TOPIC"

ircc_strcut fcname, _p1, "!"

noteadd timelog+" "+m_nickname_accs+fcname+" topic : "+_p2, -1

swbreak

swend

fccnt++

noteunsel

if fclog!2:break

loop

return

//入室

#modfunc mod_ircc_join str _channelname, local s1

if _channelname="":return

mod_ircc_addlog thismod, "JOIN "+_channelname+"\n"

ircc_strcut s1,_channelname,","

foreach s1

tcpput "JOIN "+s1(cnt)+"\n", m_sockid

loop

return

//退室

#modfunc mod_ircc_part str _channelname, str _partmessage, local s1, local s2

if _channelname="":return

if _partmessage!""{

s1=" :"+_partmessage

}

mod_ircc_addlog thismod, "PART "+_channelname+s1+"\n"

mod_ircc_addchannellog thismod, _channelname, "PART", m_nickname, _partmessage, "", "", ""

ircc_strcut s2,_channelname,","

foreach s2

tcpput "PART "+s2(cnt)+s1+"\n", m_sockid

loop

return

//notice発言

#modfunc mod_ircc_notice str _channelname, str _message, local s1

if _message="":return

if _channelname="":return

mod_ircc_addlog thismod, "NOTICE "+_channelname+" :"+_message+"\n"

ircc_strcut s1,_channelname,","

foreach s1

mod_ircc_addchannellog thismod, s1(cnt), "NOTICE", m_nickname, _message, "", "", ""

tcpput "NOTICE "+s1(cnt)+" :"+_message+"\n", m_sockid

loop

return

//PRIVMSG発言

#modfunc mod_ircc_privmsg str _channelname, str _message, local s1

if _message="":return

if _channelname="":return

mod_ircc_addlog thismod, "privmsg "+_channelname+" :"+_message+"\n"

ircc_strcut s1,_channelname,","

foreach s1

mod_ircc_addchannellog thismod, s1(cnt), "PRIVMSG", m_nickname, _message, "", "", ""

tcpput "privmsg "+s1(cnt)+" :"+_message+"\n", m_sockid

loop

return

//オペレータ権限の操作

//_flagが0以上でオペレータ権限を与えます

#modfunc mod_ircc_vestoper str _channelname, str _nickname, int _flag, local s1

if _flag<0:s1="-o":else:s1="+o"

mod_ircc_addlog thismod, "MODE "+_channelname+" "+s1+" "+_nickname+"\n"

tcpput "MODE "+_channelname+" "+s1+" "+_nickname+"\n", m_sockid

return

//延期作業リストに追加

#modfunc mod_new_add str _channelname, str _command, str _p1, str _p2, str _p3, str _p4, str _p5

repeat

if length(m_new_channel)<=cnt{

m_new_channel(cnt)=_channelname

m_new_command(cnt)=_command

m_new_p1(cnt)=_p1

m_new_p2(cnt)=_p2

m_new_p3(cnt)=_p3

m_new_p4(cnt)=_p4

m_new_p5(cnt)=_p5

break

}else:if m_new_channel(cnt)=""{

m_new_channel(cnt)=_channelname

m_new_command(cnt)=_command

m_new_p1(cnt)=_p1

m_new_p2(cnt)=_p2

m_new_p3(cnt)=_p3

m_new_p4(cnt)=_p4

m_new_p5(cnt)=_p5

break

}

loop

return

//接続のための情報を送信

#modfunc mod_ircc_connect_infosend

if m_pass!""{

tcpput "PASS "+m_pass+"\n", m_sockid

mod_ircc_addlog thismod, "PASS "+m_pass+"\n"

if stat!0:mod_ircc_addlog thismod, "IRCC: PASSを送れませんでした\n"

}

tcpput "NICK "+m_nickname+"\n", m_sockid

if stat!0:mod_ircc_addlog thismod, "IRCC: NICKを送れませんでした\n"

mod_ircc_addlog thismod, "NICK "+m_nickname+"\n"

tcpput "USER "+m_username+" "+m_hostname+" "+m_servername+" :"+m_realname+"\n", m_sockid

if stat!0:mod_ircc_addlog thismod, "IRCC: USERを送れませんでした\n"

mod_ircc_addlog thismod, "USER "+m_username+" "+m_hostname+" "+m_servername+" :"+m_realname+"\n"

return

//指定されたチャンネルの整形されたチャンネルログを取得

//この命令を実行すると、モジュール変数に保持してあるチャンネルログが初期化されます

//ログを蓄積させる場合は、別途に変数を容易させる必要があります

//戻り値取得された場合1が返ります

#modfunc mod_ircc_getchannellog var _var, str _channelname, local gcflag

foreach m_channellogname

if m_channellogname(cnt) == _channelname{

if m_channellog(cnt)!""{

_var = m_channellog(cnt)

m_channellog(cnt)=""

gcflag=1

}

break

}

loop

if gcflag==0{

_var=""

}

return gcflag

//タイマー管理

//戻り値

// 0 = 正常終了

// 1 = ユーザー情報が登録された

// 2 = サーバーからデータを受信した

// -1 = 接続エラー

#modfunc mod_ircc_timer local get, local s1, local s2, local s3, local s4, local s5, local s6, local x1, local x2, local x3, local size, local flag

if m_connect=0{

mod_ircc_connect_infosend thismod

m_connect=1

}

tcpfail m_sockid

if stat==2{

#ifdef _debug

mod_ircc_addlog thismod, "IRCC :通信が切断されました\nIRCC: このモジュール変数はdelmodによって削除されます\nIRCC :mod_ircc_timerの戻り値に-1が返されました\n開発者はこの戻り値で再接続をするプログラムを書くことが出来ます\n"

#endif

delmod thismod

return -1

}

sdim s3,64

repeat 120

tcpcount s1, m_sockid

if s1>0 {

sdim s2, s1+1

tcpget s2, s1, m_sockid

s3+=s2

wait 0

}else:break

loop

#ifdef _debug

mod_ircc_debug_title thismod, "【IRCデバッグ】処理スルー回数："+cc+" 処理回数："+cc2+" 合計："+(cc+cc2)

#endif

if s3==""{

//各mod_ircc_instr_系命令でひとつも該当するものがなかった場合(m_hit=0)初期化する

if m_hit=0{

//初期化

sdim m_new_channel

sdim m_new_command

sdim m_new_p1

sdim m_new_p2

sdim m_new_p3

sdim m_new_p4

sdim m_new_p5

}else{

m_hit=0

flag=2

}

#ifdef _debug

cc++

#endif

return flag

}else{

s3 = jis2sjis(s3)

if m_connected==1 : flag = 2

}

notesel s3

repeat notemax

noteget s4,cnt

//改行コードが含まれているバグのfix

if peek(s4)=10: getstr s4 ,s4, 1

mod_ircc_addlog thismod, s4+"\n"

ircc_strcut s5, s4, ":", 2

//文字列解析

s6 = length(s5)

if s6>=1{

ircc_strcut x1, s5(0), " "

if s6>=2{

ircc_strcut x2, s5(1), " "

if s6>=3{

x3=s5(2)

}

#if 0

#ifdef _debug

mod_ircc_addlog thismod, "IRCC: s5(0): "+s5(0)+"\n"

if x1!0 : mod_ircc_addlog thismod, "IRCC: x1(0): "+x1(0)+"\n"

if x2!0 : mod_ircc_addlog thismod, "IRCC: x2(0): "+x2(0)+"\n"

if x3!0 : mod_ircc_addlog thismod, "IRCC: x3(0): "+x3(0)+"\n"

if x4!0 : mod_ircc_addlog thismod, "IRCC: x4(0): "+x4(0)+"\n"

if x5!0 : mod_ircc_addlog thismod, "IRCC: x5(0): "+x5(0)+"\n"

mod_ircc_addlog thismod, "\n"

#endif

//PONG

if x1(0)="PING"{

tcpput "PONG :"+m_nickname+"\n", m_sockid

mod_ircc_addlog thismod, "PONG :"+m_nickname+"\n"

flag=0

}

if length(x2)>=2{

switch x2(1)

case "JOIN"

mod_ircc_addchannellog thismod, x3, x2(1), x2(0), "", "", "", ""

mod_new_add thismod, x3, x2(1), x2(0), "", "", "", ""

swbreak

case "PRIVMSG"

mod_new_add thismod, x2(2), x2(1), x3, "", "", "", ""

mod_ircc_addchannellog thismod, x2(2), x2(1), x2(0), x3, "", "", ""

swbreak

case "NOTICE"

swbreak

case "001"

mod_ircc_addchannellog thismod, x2(2), x2(1), x3, "", "", "", ""

flag=1

m_connected=1

swbreak

case "433"

//ニックネームがすでに使われている場合

m_nickname+="_" //アンダーバー(_)を追加

mod_ircc_connect_infosend thismod

swbreak

case "QUIT"

mod_ircc_addchannellog thismod, "", x2(1), x2(0), x3, "", "", ""

swbreak

case "PART"

swbreak

case "TOPIC"

swbreak

case "MODE"

mod_ircc_addchannellog thismod, x2(2), x2(1), x2(3), "x2(4)", "", "", ""

//p1 モードの種類 p2 ターゲット

mod_new_add thismod, x2(2), x2(1), x2(3), "x2(4)", "", "", ""

swbreak

swend

}

loop

#ifdef _debug

cc2++

#endif

return flag

#modfunc mod_new_clear int _cnt

m_new_channel(_cnt)=""

m_new_command(_cnt)=""

m_new_p1(_cnt)=""

m_new_p2(_cnt)=""

m_new_p3(_cnt)=""

m_new_p4(_cnt)=""

m_new_p5(_cnt)=""

return

//TODO: ニックネームとサーバーとチャンネルの判定を分ける

//TODO: ニックネームも判定のひとつに

//TODO: オリジナルの名前とメッセージを取得できるように

//指定されたチャンネルまたはサーバーまたはニックネームの最新のPRIVMSGに指定された文字列が含まれていた場合、1を返す

//この命令は、WM_TIMER内mod_ircc_timer以降に入れて使用します

//_flag: 1を指定すると、同じ発言に対して他の命令の判定も続けることができます

#modfunc mod_ircc_instr_privmsg str _channelname, str _inmessage, int _flag, local _stat

foreach m_new_channel

if m_new_channel(cnt)=_channelname{

if m_new_command(cnt)="PRIVMSG"{

if instr(m_new_p1(cnt), 0, _inmessage)!-1{

if _flag=0 : mod_new_clear thismod, cnt

_stat=1

m_hit=1

break

}

loop

return _stat

//指定されたチャンネルまたはサーバーまたはニックネームの最新のNOTICEに指定された文字列が含まれていた場合、1を返す ※非推奨

//この命令は、WM_TIMER内mod_ircc_timer以降に入れて使用します

#modfunc mod_ircc_instr_notice str _channelname, str _inmessage, int _flag, local _stat

foreach m_new_channel

if m_new_channel(cnt)=_channelname{

if m_new_command(cnt)="NOTICE"{

if instr(m_new_p1(cnt), 0, _inmessage)!-1{

if _flag=0 : mod_new_clear thismod, cnt

_stat=1

m_hit=1

break

}

loop

return _stat

//入室を知らせる

#modfunc mod_ircc_instr_join str _channelname, str _nickname, local _stat, local s1, local s2

ircc_strcut s1, _channelname, ","

foreach s1

foreach m_new_channel

if m_new_channel(cnt)=s1(s2){

if m_new_command(cnt)="JOIN"{

if (_nickname=="")|(instr(m_new_p1(cnt), 0, _nickname)!-1){

_stat = 1

}

loop

s2++

loop

return _stat

#modterm

KillTimer hwnd, m_timerid

tcpshut m_sockid

tcpclose m_sockid

netclear

return

#global

//////// サンプルスクリプト ///////////////////////////////////////////////////////////////////////

#if _irc_debug_

gsel 0

//左から、モジュール変数,モジュール名, 接続するホスト, ポート, パスワード, ニックネーム...

newmod irc,ircc, 0, "127.0.0.1", 6667, "", "TEST", "TEST", "TEST", "TEST", "TEST", 0, 1

mes "接続を開始しています"

//サーバーに接続します。この時点ではまだ、ユーザー情報をサーバーに登録していません。

mod_ircc_connect irc

if stat==1{

//接続に成功した

mes "接続が完了しました"

title "connected"

oncmd gosub *IRCC_TIMER, WM_TIMER

sdim clog,64

mesbox clog, ginfo_winx,200

}else{

//接続に失敗

mes "接続に失敗しました"

}

stop

//複数のサーバーに同時に接続する場合は、同じWM_TIMERのラベルに定義してください

*IRCC_TIMER

mod_ircc_timer irc //ユーザー登録と定期的な受信（５０ミリ秒）

switch stat

//サーバーにユーザー情報が登録された

case 1

mes "サーバーに登録が完了しました"

mod_ircc_join irc, "#test,#test2,#test3,#test4,#test5" //部屋の入室

mod_ircc_part irc, "#test3,#test4,#test5", "Bye" //#test3,#test4,#test5の部屋からメッセージを付けて退室

swbreak

//データが受信された

case 2

mes "データ受信"

mod_ircc_instr_join irc, "#test,#test2", "TEST"

if stat{

mod_ircc_privmsg irc, "#test,#test2", "やあこんばんは" //#test,#test2の部屋に発言

}

mod_ircc_instr_privmsg irc, "#test", "時報" //最新のPRIVMSGの中に“時報”が含まれていた場合1を返す

if stat{

mod_ircc_notice irc,"#test","今"+gettime(4)+"時"+gettime(5)+"分です" //NOTICE発言を行う

}

mod_ircc_instr_privmsg irc, "#test", "再起動" //最新のNOTICEの中に“時報”が含まれていた場合1を返す

if stat{

mod_ircc_addlog irc, "再起動開始\n" //ログに文字列を追加する

mod_ircc_deconnect irc

mod_ircc_connect irc //サーバーへ接続

if stat==1{

//接続成功

title "connected"

oncmd gosub *IRCC_TIMER, WM_TIMER

}else{

//接続失敗

mes "接続できませんでした１分後に再接続します"

wait 6000

goto *@b

}

swbreak

//サーバーから切断された

case -1

mes "サーバーから切断されました１分後に再接続します"

//サーバーから切断されたら１分後に再接続

wait 6000

//新しくオブジェクトを作成

mod_ircc_deconnect irc

mod_ircc_connect irc //サーバーへ接続

if stat==1{

//接続成功

title "connected"

oncmd gosub *IRCC_TIMER, WM_TIMER

}else{

//接続失敗

mes "接続できませんでした"

goto *@b

}

wait 0

swbreak

swend

//"#test"チャンネルのログを取得する

mod_ircc_getchannellog irc, log, "#test"

if stat{

clog+=log

objprm 0,clog

}

return

#endif

CATEGORIES

HSPスクリプト

EeeStorage 自動バックアップの使い方

nacika

2008年1月1日

　Eee Storage*1は，低速ながらもDropBoxにも優る利便性があります。そこで，今回はちょっと新しく追加された機能自動バックアップについて取り上げてみようと思います。
　DropBoxの場合，My Dropboxフォルダ内でのみ，ファイルをドロップすることで自動的にウェブストレージと同期し，バックアップすることが出来ますが，Eee Storageの自動バックアップは予めバックアップしておきたいフォルダまたはファイルのパスを設定しておくだけで，自動的にそれらのファイルが更新されたときにファイルを同期します。

自動バックアップの有効

　自動バックアップを利用するためには，最新のEee Storageであることを確認してください。（Ver.2.09.390）最新のバージョンを使用していないと，この自動バックアップ機能は使用することができません。
　その後，デスクトップから“Eee Storage”のアイコンをクリックします。

　最初に，バックアップフォルダ名をどうするか聞かれるので，今使用しているPCにちなんだ名前を指定します。これは，複数のPCで自動バックアップを使用する場合に衝突を避けるのに必要な設定です。
　例えば，EeePCで使用する場合は“EeePC” メインのPCで使用する場合は“Main”というように設定するといいです。

　次に，“バックアップの状態”タブから，自動バックアップを有効にするにチェックを入れて，次に“バックアップアイテム”タブに切り替えます。
　デフォルトでPC内の全てのファイルをバックアップする設定になっているので，全てのチェックを外します。チェックを外すと，自動的にその項目が消えるのでただチェックを外すだけでかまいません。
　最後に“設定を保存する”をクリックしたら自動バックアップ設定は終了です。

フォルダを自動バックアップの対象にする。

　自動バックアップの設定がすんだら，今度はバックアップするための対象を設定する必要があります。前見出しの画像にある“新しいバックアップアイテムを追加する”でも可能ですが，コンテキストメニューから登録する方法を紹介します。
　今回は，WindowsXPのSample Picuturesフォルダを自動バックアップ対象にしてみることにします。
「C:\Documents and Settings\All Users.WINDOWS\Documents\My Pictures\Sample Pictures」

　Sample Picturesフォルダを開いたら，画面左上のフォルダアイコンを右クリックします。

　この右クリックで表示されるこのメニューのことを“コンテキストメニュー”と呼びます。
　コンテキストメニューに“Eee Storage”という項目があったら，この項目を開きます。
　そして“このアイテムをバックアップします”をクリックします。

　すると，画面右下にこのようなアラートが表示されたら自動バックアップが完了します。

　このように自動バックアップ設定にしっかり登録されていることが確認できました。
　
あとは，「Eee Storage ＞ Eeeウェブストレージ＞ Eee バックアップセンター＞設定したフォルダ名＞」
にバックアップフォルダがしばらくすると保存されるようになります。
DropBoxと違って，バックアップが完了するまでこの画面に表示されないのが特徴です。
また，自動バックアップに設定されたファイルは最大２０回までの更新分を保持することができます。しかし，画像や動画圧縮ファイルなどは容量が肥大化するために更新分は保持されません。

*1：Eee storage のアカウントの有効期限は３年間

CATEGORIES

HSPで命令を定義するのは多分これが一番わかりやすいんじゃないかとおもう

nacika

2008年1月1日

　HSPでは，命令（関数）を定義するときに#deffunc等のプリプロセッサ命令を使う。引数が極端に多くなってしまったり，ローカル変数の定義が多くなってしまったりすると下のように非常にわかりずらくなってしまう。

#module
#deffunc imgbtn str _btntext, int _width, int _height, int _btn_default_hspwinid, int _btn_default_width, int _btn_default_height, int _btn_mouse_hspwinid, int _btn_mouse_width, int _btn_mouse_height, int _btn_push_hspwinid, int _btn_push_width, int _btn_push_height, int _gmode, local s1
#global
imgbtn &#34;&#34;
stop

#module

#deffunc imgbtn str _btntext, int _width, int _height, int _btn_default_hspwinid, int _btn_default_width, int _btn_default_height, int _btn_mouse_hspwinid, int _btn_mouse_width, int _btn_mouse_height, int _btn_push_hspwinid, int _btn_push_width, int _btn_push_height, int _gmode, local s1

#global

imgbtn ""

stop

　おそらく，HSPユーザー以外の人がこれを見たら吐き気がしてくるんじゃないかとおもう。
　しかし，それでもHSPを使ってしまう真性HSPユーザーのために，若干ながらもわかりやすくなるような書き方を紹介しよう。

#module
#deffunc imgbtn &#92;
str _btntext, &#92;
int _width, &#92;
int _height, &#92;
int _btn_default_hspwinid, &#92;
int _btn_default_width, &#92;
int _btn_default_height, &#92;
int _btn_mouse_hspwinid, &#92;
int _btn_mouse_width, &#92;
int _btn_mouse_height, &#92;
int _btn_push_hspwinid, &#92;
int _btn_push_width, &#92;
int _btn_push_height, &#92;
int _gmode, &#92;
local s1
return
#global
imgbtn &#34;&#34;
stop

#module

#deffunc imgbtn \

str _btntext, \

int _width, \

int _height, \

int _btn_default_hspwinid, \

int _btn_default_width, \

int _btn_default_height, \

int _btn_mouse_hspwinid, \

int _btn_mouse_width, \

int _btn_mouse_height, \

int _btn_push_hspwinid, \

int _btn_push_width, \

int _btn_push_height, \

int _gmode, \

local s1

return

#global

imgbtn ""

stop

　どうだろうか，これは，プリプロセッサ命令の場合のみ，末尾に“\”をつけると次の行から続いて引数を定義することができるようになる機能を利用している。
　しかしこれには問題があって，“\”以降またはそれ以前にコメント行がいれられない。それらの引数がどういった動作をするのかということをコメント行で書き示すことができないのです。
　
　仕方ないので，とてつもなく邪道な方法を考えてみた。
　その邪道な方法とはこれだ。

#module
#define ctype _(%1) //
#deffunc imgbtn &#92;
str _btntext , _(&#34;ボタンの文字列&#34;)&#92;
int _width, _(&#34;ボタンの横の長さ&#34;)&#92;
int _height, _(&#34;ボタンの縦の長さ&#34;)&#92;
int _btn_default_hspwinid, _(&#34;ボタン画像のID&#34;)&#92;
int _btn_default_width, &#92;
int _btn_default_height, &#92;
int _btn_mouse_hspwinid, &#92;
int _btn_mouse_width, &#92;
int _btn_mouse_height, &#92;
int _btn_push_hspwinid, &#92;
int _btn_push_width, &#92;
int _btn_push_height, &#92;
int _gmode, &#92;
local s1
return
#global
imgbtn &#34;&#34;, 0, 0, 0, 0, 0, 0, 0
stop

#module

#define ctype _(%1) //

#deffunc imgbtn \

str _btntext , _("ボタンの文字列")\

int _width, _("ボタンの横の長さ")\

int _height, _("ボタンの縦の長さ")\

int _btn_default_hspwinid, _("ボタン画像のID")\

int _btn_default_width, \

int _btn_default_height, \

int _btn_mouse_hspwinid, \

int _btn_mouse_width, \

int _btn_mouse_height, \

int _btn_push_hspwinid, \

int _btn_push_width, \

int _btn_push_height, \

int _gmode, \

local s1

return

#global

imgbtn "", 0, 0, 0, 0, 0, 0, 0

stop

　邪道すぎて非常に申し訳ない。これで実行できてしまうんだから不思議というかインタプリタだから当たり前というか・・・。
　最後に，これらの方法はプログラミングの記法なんてどうでもいいと考えている方にお勧めします＾＾；

CATEGORIES

更新履歴

0.001

0.002

0.003

0.004

0.005

0.006

mod_ircc.hsp

自動バックアップの有効

フォルダを自動バックアップの対象にする。

Posts

Category

Archives