// Profile picks gift
string url="http://○○○.××/picks.php"; // 外部サーバーに置いたスクリプトのアドレス
default
{
touch_start(integer total_number)
{
key id=llDetectedKey(0); // タッチしたアバターのキー
if (id) {
key place=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0); // 土地のUUID取得
llHTTPRequest(url,[HTTP_METHOD,"POST", HTTP_MIMETYPE,"application/x-www-form-urlencoded"],"place="+(string)place+"&id="+(string)id); // 外部サーバーにデータを送ってチェック
}
}
http_response(key request_id, integer status, list metadata, string body)
{ // HTTPレスポンス
if (status != 200) llWhisper(0,"Error - status "+(string)status); // ステータス200以外はエラー表示
else {
body=llStringTrim(body,STRING_TRIM); // 改行コードを除去
list l=llCSV2List(body); // カンマで分割してリストに格納
key id=llList2Key(l,0); // アバターのキー
string result=llList2String(l,1); // 結果
if (id) {
if (result == "OK") { // OKだったら
llGiveInventory(id,llGetInventoryName(INVENTORY_OBJECT,0)); // コンテンツ内の最初のオブジェクトを渡す
llInstantMessage(id,"Thank you for having our place in your picks.");
}
else { // NGのとき
llInstantMessage(id,"Our place not found in your picks. ('Show in search' must be enabled) Please add this place in your picks and try again 1 or 2 days later.");
}
}
else llOwnerSay("Data error!");
}
}
}
<?php
// picks.php
// フォームデータ取得
$id=isset($_REQUEST['id'])? $_REQUEST['id']:""; // アバターのキー
$place=isset($_REQUEST['place'])? $_REQUEST['place']:""; // 土地のキー
if (!$id || !$place) exit; // フォームデータがなかったら終了
// プロフィールのピックページからデータ取得
$data=implode("",file("http://world.secondlife.com/resident/".$id."/picks"));
// 土地のキーの有無を調べて結果を出力
if (strpos($data,'/place/'.$place.'">')) echo $id.",OK";
else echo $id.",NG";
?>
#!/usr/bin/env python
# picks.py
import sys,urllib,cgi
form=cgi.FieldStorage()
id=form.getvalue("id")
place=form.getvalue("place")
print "Content-Type: text/plain; charset=UTF-8\n\n"
if id == None or place == None:
sys.exit()
fp=urllib.urlopen("http://world.secondlife.com/resident/"+id+"/picks")
if fp.read().find('/place/'+place+'">') > -1:
print id+",OK"
else:
print id+",NG"
#!/usr/bin/perl
# picks.pl
use CGI;
use LWP::Simple;
# フォームデータ取得
$q=new CGI;
$id=$q->param('id');
$place=$q->param('place');
# サーバー用ヘッダ
print "Content-Type: text/plain; charset=UTF-8\n\n";
# フォームデータがなかったら終了
if ($id eq "" || $place eq "") {
exit;
}
# プロフィールのピックページからデータ取得
$data=get("http://world.secondlife.com/resident/$id/picks");
# 土地のキーの有無を調べて結果を出力
if (index($data,'/place/'.$place.'">') > -1) {
print "$id,OK";
}
else {
print "$id,NG";
}
宝物にはちょっと雑ですがネタっぽいＡＦＫツールを作ってみました。これを装着したらＡＦＫを大々的にアピールできるんじゃないかなって思いますｗ
// ドリンク用
float time_min=20; // 飲む間隔の最小時間（秒）
float time_max=30; // 飲む間隔の最大時間（秒）
string anim="hold_R_handgun"; // 右手に銃を持つ内蔵アニメ
req_anim()
{
llRequestPermissions(llGetOwner(),PERMISSION_TRIGGER_ANIMATION); // アニメーション実行リクエスト
}
default
{
state_entry()
{
if (llGetAttached()) req_anim(); // 装着されてたらreq_anim実行
}
changed(integer change)
{
if (change & CHANGED_TELEPORT)
{ // テレポートしたら
req_anim(); // req_animへ
}
}
attach(key id)
{ // アタッチイベント
llSleep(0.1); // スクリプト停止0.1秒
if (id) req_anim(); // 装着されたらreq_animへ
else if (llGetPermissionsKey()) llStopAnimation(anim); // 一応外したらアニメ停止（不要かも？）
}
run_time_permissions(integer perm)
{
if (perm & PERMISSION_TRIGGER_ANIMATION)
{ // アニメーション実行が許可されたら
llStartAnimation(anim); // 手に持つアニメ開始
llSetTimerEvent(time_min); // タイマーをセット
}
}
timer()
{
if (llGetAttached()) { // 装着されてるとき
llSetTimerEvent(time_min+llFrand(time_max-time_min)); // 次回のタイマーの値をランダムに決める
llStartAnimation("drink"); // 飲むアニメを実行
}
else llSetTimerEvent(0); // 装着されてないときはタイマー停止
}
}
Second Lifeというメタバース内でスクリプト製品、家具、その他雑貨などのアイテムを製作販売してます。宜しくお願いします＾＾
旧ブログで書いてた過去記事は放置かも - SHOP CHIHIRO (backup)に保存してます。
掲載してるスクリプトは自由にご利用ください＾＾ 但し、一応全部自作なので著作権は発生すると思います。なのでオープンソースで配布や掲載などされるときは、載せてる記事へのリンク貼るとか、私が作者だとわかるような表示をお願いしますね＾＾
You may use published scripts on this blog, but I have those copyright. When publish, opensourced redistribution or resale them, must link to a my page of that published script or retain the copyright notice by including 'Written by Chihiro Owatatsumi' in the source code.