為什麼我的換頁游標都是在左上方....囧
最近在弄換頁游標還有對話視窗按鈕的東西...只是不知道為什麼游標都是在左上方...有人可以幫小弟解答一下嘛~~囧?
;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
以下是素材
http://gandum.myweb.hinet.net/reimu/acgstat/window_bg.jpg
http://gandum.myweb.hinet.net/reimu/acgstat/window_btn.jpg
http://gandum.myweb.hinet.net/reimu/acgstat/cursor0.bmp
http://gandum.myweb.hinet.net/reimu/acgstat/cursor0.bmp lsph 0,":l/4,100,2;cursor0.bmp",0,0 ;單擊等候游標
...............
最后两个0,0是游标位置...你说为什么呢... 不過我在這邊就已經有取得座標位置&改變游標的位置了
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 如果我把系統按鈕部分去掉的話，游標就可以正常的跟在文字的後面了
總覺得...好詭異阿...||||
不加任何一个按钮还是不用textgosub?
PS:图看不到
PS
我知道了
textgosub *cursor
textgosub *text_window_btn
这个只能定义一个的...你写了两个的话前一个可能就会失效吧...= =||| 這樣阿...那要合在一起寫了...囧
謝謝D大的指導~~
页:
[1]