0

私は mIRC を使用して URL から短いテキスト行を読み取り、誰かが !test と入力したときにそれをエコー/チャットに書き込もうとしています。

私のPCのwampで実行されているため、ソケットホストはXXXXXXXXXXXXです。

ページのデータは長くありません。ここにページがあります。

SnOwEfLaKe の戦場 4(pc) 統計 | ランク: 140 | キル: 66393 | K/D: 2 | 幅/長さ: 1.38 | スコア: 60646533 | プレイ時間: 53.27 日 | 精度: 14.17%

alias demo {
var %user = $$1, %chan = $2, %sockname = demo. $+ $ticks
hfree -w %sockname | hmake %sockname
hadd %sockname user %user
hadd %sockname chan %chan
hadd %sockname host XXXXXXXXX
hadd %sockname port 80
hadd %sockname request /nb/bf4stats.php
sockopen -e %sockname $hget(%sockname,host) $hget(%sockname,port)
}

on *:text:!test:#:{
demo #
}

on *:sockopen:demo.*: {
var %<< = sockwrite -nt $sockname
%<< GET $hget($sockname,request) HTTP/1.0
%<< Host: $sock($sockname).addr
%<< $crlf
}

on *:sockread:demo.*: {
var %header, %content
if (!$hget($sockname,header.complete)) {
sockread %header
while (%header != $null) {
  if (HTTP/* 2?? * iswm %header) { hadd $sockname following $true }
  elseif (HTTP/* 4?? * iswm %header) { hadd $sockname following $false }
  ;echo -ag %header
  sockread %header
}
if ($sockbr) hadd $sockname header.complete $true
}

if ($hget($sockname,header.complete)) {
 while ($sockbr) {
  sockread -f %content
  ;if (%content != $null) echo -ag %content
}
}
}

on *:sockclose:demo.*:{
  if ($hget($sockname,following)) { var %msg = Following }
  else { var %msg = Not following }

if ($hget($sockname,chan)) { msg $v1 %msg }
  else { echo -ag %msg }

  hfree $sockname
 }

運がない

4

1 に答える 1

0

私はそれを行う方法を考え出しました。

on *:TEXT:*:#blood_wolf89:{
if ($strip($1) === !bf4stats) {
var %user = $iif($2, $strip($2), Blood_Wolff89)
var %urlSafeUser = $regsubex(%user, /[^a-z\d_-]/gi, % $+ $base($asc(\t), 10, 16, 2))
var %url = http://api.bf4stats.com/api/playerInfo?plat=pc&name= $+ %urlSafeuser

JSONOpen -ud bf4stat %url

var %name = $JSON(bf4stat, player, name)
var %rank = $JSON(bf4stat, player, rank, nr)
var %score = $JSON(bf4stat, player, score)

var %kills = $JSON(bf4stat, stats, kills)
var %deaths = $JSON(bf4stat, stats, deaths)
var %kdRatio = $round($calc(%kills / %deaths), 2)

var %wins = $JSON(bf4stat, stats, numWins)
var %losses = $JSON(bf4stat, stats, numLosses)
var %wlRatio = $round($calc(%wins / %losses), 2)


var %played = $duration($JSON(bf4stat, stats, timePlayed))

var %hits = $JSON(bf4stat, stats, shotsHit)
var %misses = $JSON(bf4stat, stats, shotsFired)
var %accuracy = $round($calc(%hits / %misses * 100),2) $+ %
if ((%user == %name) || (%urlSafeuser == %name)) { msg # [BF4Stats]:  %name      $+ 's Battlefield 4(PC) Stats $(|,0) Rank: %rank $(|,0) Kills: %kills $(|,0) K/D: %kdRatio $(|,0) W/L: %wlRatio $(|,0) Score: %score $(|,0) Time Played: %played $(|,0) Accuracy: %accuracy } 
if ((%urlSafeuser !== %name)) {  msg # [BF4Stats]: Invalid Battlefield 4 Name.  }
}
}

その後、ここから取得した JSON パーサーがあります: http://hawkee.com/snippet/10194

于 2015-03-26T06:14:01.037 に答える