Recrit 【捨丸&KID】backlog

[PR]

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

2024/04/26 (Fri)

回想模式很容易，關鍵指令就只有getlog與logsp，其他就只是按鈕的配置而已：
;==========BackLog(回想Mode)==========
;Return值Memo　左Click0　右Click-1　Space-11　Enter-19　Esc-10　Wheel上-2　Wheel下-3　↑-40　↓-42
*backlog
Texthide ;先把遊戲原本的文字框隱藏
csp -1

for %0 = 1 to 10
getlog $%0,%0
next
;將遊戲的log輸入，這邊是輸入10頁，只要文字框有換頁就算一頁，不管字數多少。

lsp 500,":a;sys/backlog.jpg",0,0
lsp 98,":c/2,0,3;sys/up.jpg",770,5
lsp 99,":c/2,0,3;sys/down.jpg",770,540

goto *log_1

;-----BackLog跳出-----
*log_end
btndef clear
csp -1
textshow
repaint
return

;-----Log１-----
*log_1
logsp 400,$1,40,30
;將輸入的log在這裡叫出，後面兩個數值是X 、Y值
print 16

btndef ""
spbtn 98,1:spbtn 99,2

*log_1_lp
getcursor
textbtnwait %BtnRes
if %BtnRes=-1 goto *log_end

;上（回去）判定
if %BtnRes=1 csp 400:goto *log_2
if %BtnRes=-2 csp 400:goto *log_2
if %BtnRes=-40 csp 400:goto *log_2

;下（前進）判定
if %BtnRes=2 goto *log_end
if %BtnRes=-3 goto *log_end
if %BtnRes=-42 goto *log_end

;以外的輸入
goto *log_1_lp

;-----Log２-----
*log_2
logsp 400,$2,40,30
print 16

btndef ""
spbtn 98,1:spbtn 99,2

*log_2_lp
getcursor
textbtnwait %BtnRes
if %BtnRes=-1 goto *log_end

;上（回去）判定
if %BtnRes=1 csp 400:goto *log_3
if %BtnRes=-2 csp 400:goto *log_3
if %BtnRes=-40 csp 400:goto *log_3

;下（前進）判定
if %BtnRes=2 csp 400:goto *log_1
if %BtnRes=-3 csp 400:goto *log_1
if %BtnRes=-42 csp 400:goto *log_1

;以外的輸入
goto *log_2_lp

;-----Log３-----
*log_3
……

[4回]