為什麼我的換頁游標都是在左上方....囧

mild134

最近在弄換頁游標還有對話視窗按鈕的東西...
只是不知道為什麼游標都是在左上方...有人可以幫小弟解答一下嘛~~囧?

;mode800
*define
textgosub *cursor
textgosub *text_window_btn
effect 2,10,400
roff
;===============================================================================
game
;===============================================================================
*start
goto *game_start
;===============================================================================
*cursor
erasetextwindow 0
btndef ""
ispage %0; 取得單擊等候取得換頁等候
getcursorpos %1,%2;取得文本的末尾的座標
if %0 = 1 amsp 1,%1,%2:vsp 1,1:vsp 0,0 ;單擊等候時候的處理
if %0 = 0 amsp 0,%1,%2:vsp 0,1:vsp 1,0 ;換頁等候時候的處理
print 1
;=======================================
*btn_loop
btndef clear
textbtnwait %0
repaint
if %0 = 0 goto *text_end
if %0 = -1 goto *btn_loop
goto *btn_loop
;=======================================
*text_end;游標消除
vsp 0,0:vsp 1,0 ;兩個游標都消失
print 1
texec ;換頁等候的情況消去對話框
saveon ; textgosub的自動saveoff指令改為saveon
return
;===============================================================================
;★系統按鈕事件群
*btn
btn 1,744,504,21,96,0,0 ;快速存檔
btn 2,769,488,21,112,22,0;快速讀檔
return

*text_window_btn
erasetextwindow 0
btndef ":a;window_btn.jpg" ;預截按鈕圖
gosub *btn

*textloop
if %0==1 vsp 1,1:vsp 0,0
if %0==0 vsp 0,1:vsp 1,0
print 2

textbtnwait %0
repaint
if %0==-2 goto *textbtn_end ;自動前進
if %0=0 goto *textbtn_end ;繼續前進
if %0=1 savegame 15
if %0=2 loadgame 15
goto *textloop

*textbtn_end
texec
vsp 0,0:vsp 1,0:print 1
saveon

return
;===============================================================================
*game_start

lsph 0,":l/4,100,2;cursor0.bmp",0,0 ;單擊等候游標
lsph 1,":l/4,100,2;cursor1.bmp",0,0 ;換頁等候游標

erasetextwindow 0
setwindow 65,502,32,3,22,20,0,12,0,1,1,":a;window_bg.jpg",0,487

吼\

拉拉\

哈哈哈哈\

呼呼呼呼呼呼\
click

end

以下是素材

CountD

lsph 0,":l/4,100,2;cursor0.bmp",0,0 ;單擊等候游標

...............
最后两个0,0是游标位置...你说为什么呢...

mild134

不過我在這邊就已經有取得座標位置&改變游標的位置了

ispage %0; 取得單擊等候取得換頁等候
getcursorpos %1,%2;取得文本的末尾的座標
if %0 = 1 amsp 1,%1,%2:vsp 1,1:vsp 0,0 ;單擊等候時候的處理
if %0 = 0 amsp 0,%1,%2:vsp 0,1:vsp 1,0 ;換頁等候時候的處理
print 1

若是把座標位置改成
lsph 0,":l/4,100,2;cursor0.bmp",%1,%2 ;單擊等候游標
lsph 1,":l/4,100,2;cursor1.bmp",%1,%2 ;換頁等候游標
還是一樣在左上方阿~~..OTZ


如果我把系統按鈕部分去掉的話，游標就可以正常的跟在文字的後面了
總覺得...好詭異阿...||||

;mode800
*define
textgosub *cursor
effect 2,10,400
roff
;===============================================================================
game
;===============================================================================
*start
goto *game_start
;===============================================================================
*cursor
erasetextwindow 0
btndef ""
ispage %0; 取得單擊等候取得換頁等候
getcursorpos %1,%2;取得文本的末尾的座標
if %0 = 1 amsp 1,%1,%2:vsp 1,1:vsp 0,0 ;單擊等候時候的處理
if %0 = 0 amsp 0,%1,%2:vsp 0,1:vsp 1,0 ;換頁等候時候的處理
print 1
;=======================================
*btn_loop
btndef clear
textbtnwait %0
repaint
if %0 = 0 goto *text_end
if %0 = -1 goto *btn_loop
goto *btn_loop
;=======================================
*text_end;游標消除
vsp 0,0:vsp 1,0 ;兩個游標都消失
print 1
texec ;換頁等候的情況消去對話框
saveon ; textgosub的自動saveoff指令改為saveon
return
;===============================================================================
;===============================================================================
*game_start

lsph 0,":l/4,100,2;cursor0.bmp",0,0 ;單擊等候游標
lsph 1,":l/4,100,2;cursor1.bmp",0,0 ;換頁等候游標

erasetextwindow 0
setwindow 65,502,32,3,22,20,0,12,0,1,1,":a;window_bg.jpg",0,487

吼\\

拉拉\\

哈哈哈哈\\

呼呼呼呼呼呼\\
click

end

CountD

如果我把系統按鈕部分去掉的話，游標就可以正常的跟在文字的後面了
總覺得...好詭異阿...||||

不加任何一个按钮还是不用textgosub?
PS:图看不到

PS
我知道了

textgosub *cursor
textgosub *text_window_btn

这个只能定义一个的...你写了两个的话前一个可能就会失效吧...= =|||

mild134

這樣阿...那要合在一起寫了...囧
謝謝D大的指導~~