板 1- 前 次 新 ﾚｽ
どんなくだらねぇ質問にもマジレスするスレPart16
[17]名無しさん(ザコ)：2008/03/18(火) 19:04:43 ID:bRrNF31w0
変数使おうぜ、と思った。
さて、アプローチの仕方が違うし、無駄が多いが。
Local 残り解説文 v
Local 改行後解説文
残り解説文 = Args(1)
do
if (Instr(残り解説文,";") + Instr(残り解説文,":")) > 0 then
if Instr(残り解説文,";") > Instr(残り解説文,":") then
改行後解説文[Count(改行後解説文) + 1] = Left(残り解説文,(Instr(残り解説文,":") - 1))
残り解説文 = "$(Left(残り解説文,(Instr(残り解説文,":") - 1)))$(Mid(残り解説文,(Instr(残り解説文,":") + 1)))"
BaseX = 0
BaseY = 0
PaintString Info(ユニット,なんか適当なユニット, 特殊能力, i)
for v = 1 to Count(改行後解説文)
PaintString 改行後解説文[v]
next
Unset 改行後解説文[Count(改行後解説文)]
wait click
else
改行後解説文[Count(改行後解説文) + 1] = Left(残り解説文,(Instr(残り解説文,";") - 1))
残り解説文 = Mid(残り解説文,(Instr(残り解説文,";") + 1))
endif
else
改行後解説文[Count(改行後解説文) + 1] = 残り解説文
残り解説文 = ""
BaseX = 0
BaseY = 0
PaintString Info(ユニット,なんか適当なユニット,特殊能力,i)
for v = 1 to Count(改行後解説文)
PaintString 改行後解説文[v]
next
wait click
endif
loop while (Len(残り解説文) > 0)
長すぎて画面からはみ出る場合の処置はファイトで頑張れｗ
前 次
0ch BBS 2005-06-05