ホテル　ニューアワビ

272： ◆Y8CTTUHIlQ：2017/10/27(金) 21:05:40 ID:yqgxKyUs0: 　　　　ｉ　　　　　　 {　　　　{　　　　|　　　　|　　　　　　　　|　　＞─ 　　 |　　 |
　　　　 |　　　　　　 |　　　　|　　　　|　　　　|　　　　　　　　|／　　 |　　　　}　　 |
　　　　 |　　　　　　 |　　　　|　　　＞── ､∨　　　　　 |　| 　人　　 ./　　 |
　　　　 | 　ｉ　　　　　　 |　　　　|　／　/{　　　/　∨　　　　　　}　}／（_ｉ灯Y /　}　ﾉ
　　　　 | 　 |　　　　　　 |　　　　|　　 / |　　 /　　 ∨　　　／イヒ　} }　} }/　ｊ／!
　　　　 | 　 |　　　　　　 |　　　　|. 　 / .人云云≧　 ∨　／　　 {{ｈﾉﾉ./ /　　　ｉ
　　　　 | 　 |　　　　　　 |　　　　|　 /／ /ヒ　（_ハ　　∨/　　　ゝイノ / |　　　　|
　　　　 | 　 |　　　　　　 }　　　　| ./ヘ　 {{ｈ　　}　}　　　　　　 ´￣　　{　|　　　　|
　　　　 | 　 |　　　　 /　　　 |/　　ヽゝ　　´ノ　　　　　　　　　 /／/　 }　　　　|
　　　　 | 　 |. 　　　 ∧　　　 |　　　　　｀二´ ノ　　　　　　　　　 /　ｉ　　 .|
　　　　 | 　 |　　　 /　ｉ　　　　 |　　　　　　　　　　　　ヽ　　　　 /　　.|　　 .|
　　　　 | 　 |. 　　 /　 .|　　　　 ∨　　　　/／/　　　　　　　　　　　　/　　　|　　 .|
　　　　 | 　 |　　　/.／´|. 　　　 ∨　　　　　　　　　　　　 <＾　　 .／}　　　 |　　 .ﾄ､
　　　　 | 　 |. 　 //　　│　　　　 ∨⌒＞､　　　　　　　　　　　／　 .|.　　 /|　　 .|　ｉ
　　　　 | 　 |　 //　　　.|. 　　　　　∨＼　＞､＿＿＿＿　／　 }　 |　　/ .|　　 .|　|
　　　　 | 　 |. /´　　　　|　　　　　　 ∨　＼　　　　　　　{.　　　 /　 /从/　 |　　/　 |
　　　　 | 　 |/　　　　　 |.　　　　　　 }　　＼＿＿＿＿＼＿/　 / 　　 }/}.　/ 　 .|
　　　　　ゝ　{￣￣＼　人　　　　　　　 |　　　　　　　　　　　　　　 /　　　 /ｊ／　　 |

氷室玲愛　（Dies irae）

function SearchSp(S:String; I:Integer):Integer;
　var
　PartS:String;
　I1, I2, I3:Integer;
　begin
　PartS:=Copy(S, I, Length(S));
　I1:=Pos(' ', Copy(S, I, Length(S)));
　I2:=Pos('　', Copy(S, I, Length(S)));
　I3:=Pos('.', Copy(S, I, Length(S)));
　if (I1=0) and (I2=0) and (I3=0) then
　　Result:=0
　else if (I1=0) and (I2=0) then
　　Result:=I+I3-1
　else if (I1=0) and (I3=0) then
　　Result:=I+I2-1
　else if (I2=0) and (I3=0) then
　　Result:=I+I1-1
　else if I1=0 then
　　Result:=I+Min(I2, I3)-1
　else if I2=0 then
　　Result:=I+Min(I1, I3)-1
　else if I3=0 then
　　Result:=I+Min(I1, I2)-1
　else
　　Result:=I+Min(Min(I1, I2),Min(I1, I3))-1;
　end;

　　　　　　　　　＿　　　　　　＿_　　　　　　　　　　 |::::::::::::／
　　　　　　　　　＼≧ュ┬≦ﾆ／　　　　　　　　　　　　　　　|......／←こういうの
　　　　　　 _ｚ≦／￣￣`￣＼三≧ｭ､　　　　　　　　 |／
　　　　　　　　／::::::::::::::::::＼:::::::ヽ:＼
　　　　　　　 / /::::::/､{:/Ｎ厶}:::::::::ｉ:::::|　　　トーンパネルスクリプトを矩形選択で使った場合、
　　　　　　　　 {:::::ｲ●　　● |:::::/:|:::::|　　　連続ドットの箇所がなんかトーン塗れないなーと思ってたのでスクリプトの中身を覗いてみました。
　　　　　　　 ∨〈　　ワ　 /／::/ ::::|　　　どうもSearchSp関数が連続ドットには対応してないみたいだったので適当に追加。
　　　　　　　　 ∧:ﾄ`ｰｩ　ｔ/厶イ:::::::::|　　　正直、これで合ってるのか分かりませんが一応動いてるし、まあいいか。
　　　　　　　 /::::∨ﾚ{＾V ＾ﾌ}⌒}::::::::∧
.　　　　　　　/::::::（_/ゝｖｖイ j´￣ト､::: ∧　　画像募集。先着5名、一人当たり2枚まで。
　　　　　　　{::::::::/ヘゝＹﾉ /ｰ､ｿ　＼::∧　代理投下募集。前回投下>>72
　　　　　　　　　　　　　　　　　　　　　　　画像4枚分で。代理投下手順は>>58参照。

ホテル ニューアワビ