ｓｕｂ ｇｅｔ＿ｐｌａｙｅｒｄａｔａ｛＃改造
＃台詞改造…個人キャラ別 ＃ 例、ｓｒｆ２／１／ｓｒｆ１３．ｃｇｉ
ｆｏｒ（＄ｉ＝１；＄ｉ＜３；＄ｉ＋＋）｛
＃フォルダ１つに１０のデータ
＄ｓｒｆ＿ｖａｌ［＄ｉ］＝ｉｎｔ（（＄ｐｌａｙｅｒ［＄ｉ］）／１０）；
＄ｓｒｆ＿ｖａｌ［＄ｉ］＝’ｓｒｆ２／’．＄ｓｒｆ＿ｖａｌ［＄ｉ］．’／ｓｒｆ’．＄ｐｌａｙｅｒ［＄ｉ］．’．ｃｇｉ’；
ｏｐｅｎ（ＳＲＦ，”＄ｓｒｆ＿ｖａｌ［＄ｉ］”）；
ｃｈｏｍｐ（＠ｌｉｎ＝＜ＳＲＦ＞）；ｓｈｉｆｔ（＠ｌｉｎ）；
ｉｆ（＄ｐｎ［＄ｉ］ ｅｑ ””）｛＄ｐｎ［＄ｉ］ ＝ ＄ｌｉｎ［０］；｝ ＃ 追加
ｉｆ（＄ｐｌａｙｅｒ［＄ｉ］ ｎｅ ””）｛
ｆｏｒ（＠ｌｉｎ）｛
＄ｌｉｎ［＄＿］＝～ｓ／￥ｓ＋＄／／ｇ；
＠ｔｍｐ ＝ ｓｐｌｉｔ（／￥ｔ／，＄ｌｉｎ［＄＿］）；
ｍｙ ＄ｎｕｍ＝ｓｈｉｆｔ（＠ｔｍｐ）；ｓｈｉｆｔ（＠ｔｍｐ）；
ｉｆ（＄ｎｕｍ ｎｅ ”” ＆＆ ＄ｔｍｐ［ｒａｎｄ ＠ｔｍｐ］）｛＄ｓｒｆ［＄ｉ］［＄ｎｕｍ］＝＄ｔｍｐ［ｒａｎｄ ＠ｔｍｐ］；｝
ｅｌｓｅ｛ｎｅｘｔ；｝
｝
｝
｝
｝
srf50.cgi
テンプレート CARD jibun-teki ＠（～枚） TMP（属性）－tmp（種族） FROM_TMP（手札or場から） 「（カード名）の（効果の種類）効果発動！」 ATK－DEF
エロ之内
0 開始 デュエル！
1 開始（vs♀）
2 ＤＰドロー オレの番かよ…へへ―― エロ戦車隊出撃ーっ！
3 ＤＰドロー（余裕） へへ―、わくわくするぜ！ へへ――、どきどきするぜ！
4 ＤＰドロー（劣勢） くそっ！ ときめきシーンが来ないっ！
5 （～を引いた） CARDを引いたぜ！ CARDだぜ！
………（以下略）
左の数値を取得してるので下記のような書き方も可能。（shift(@lin);が要らないが）
5 （～を引いた） CARDを引いたぜ！ CARDだぜ！
4 ＤＰドロー（劣勢） くそっ！ ときめきシーンが来ないっ！
ランダムで台詞。
各台詞の発動時に特別な台詞が無ければデフォルトの設定を用意した方が良い（全部登録するなら不要）。例、
＃ ピンチ時
ｉｆ（＄ｌｐ［＄ｓ＿ａ］＜＄ｌｐ［＄ｓ＿ｄ］ ＆＆ ＄ｌｐ［＄ｓ＿ａ］＜２０００ ＆＆ ＄ｓｒｆ［＄ｓ＿ａ］［４］ ｎｅ ””）｛＆ａｄｄ＿ｍｓｇ（＄ｐｎ［＄ｓ＿ａ］，＄ｓｒｆ［＄ｓ＿ａ］［４］）；｝
＃ 余裕時
ｅｌｓｉｆ（＄ｌｐ［＄ｓ＿ａ］＞２＊＄ｌｐ［＄ｓ＿ｄ］ ＆＆ ＄ｌｐ［＄ｓ＿ａ］＞１０００
＆＆ ＄ｓｒｆ［＄ｓ＿ａ］［３］ ｎｅ ””）｛＆ａｄｄ＿ｍｓｇ（＄ｐｎ［＄ｓ＿ａ］，＄ｓｒｆ［＄ｓ＿ａ］［３］）；｝
ｅｌｓｉｆ（＄ｌｐ［＄ｓ＿ａ］＞＄ｌｐ［＄ｓ＿ｄ］ ＆＆ ＄ｌｐ［＄ｓ＿ａ］＜２０００
＆＆ ＄ｓｒｆ［＄ｓ＿ａ］［３］ ｎｅ ””）｛＆ａｄｄ＿ｍｓｇ（＄ｐｎ［＄ｓ＿ａ］，＄ｓｒｆ［＄ｓ＿ａ］［３］）；｝
ｅｌｓｅ｛ ＆ａｄｄ＿ｍｓｇ（＄ｐｎ［＄ｓ＿ａ］，＄ｓｒｆ［＄ｓ＿ａ］［２］）；｝
PR
