HSPTV!掲示板

OSもどきのようなものを作る際、Wingdingsでカーソルを用意することが必要になったので、
õ(oにチルダ)を表示するにはどうすればいいでしょうか。
ご教授お願いします。

strf関数（「%c」）を組み合わせてください。

どうすればいいんですか？
わからないもので・・・・

以前教えてもらったものを改造してみたもの。
直接表示します。

#include "user32.as"

    #define DT_TOP              0x00000000
    #define DT_LEFT             0x00000000
    #define DT_CENTER           0x00000001
    #define DT_RIGHT            0x00000002
    #define DT_VCENTER          0x00000004
    #define DT_BOTTOM           0x00000008
    #define DT_WORDBREAK        0x00000010
    #define DT_SINGLELINE       0x00000020
    #define DT_EXPANDTABS       0x00000040
    #define DT_TABSTOP          0x00000080
    #define DT_NOCLIP           0x00000100
    #define DT_EXTERNALLEADING  0x00000200
    #define DT_CALCRECT         0x00000400
    #define DT_NOPREFIX         0x00000800
    #define DT_INTERNAL         0x00001000
    
    #define DT_EDITCONTROL      0x00002000
    #define DT_PATH_ELLIPSIS    0x00004000
    #define DT_END_ELLIPSIS     0x00008000
    #define DT_MODIFYSTRING     0x00010000
    #define DT_RTLREADING       0x00020000
    #define DT_WORD_ELLIPSIS    0x00040000
    
	font msgothic, 16
	moji=$30933053, $3061306B, $000D306F, $4F60000A, $000D597D, $C548000A, $D558B155, $C694C138, $000A000D, $26632660, $26662665, $000A000D, $0000
	iti=0,0,300,300
	//http://msdn.microsoft.com/ja-jp/library/cc428478.aspx
	//HSP3掲示板過去ログの13777付近を元に（検索ワードは：Unicode）
	DrawTextExW hdc,varptr(moji),-1,varptr(iti), DT_WORDBREAK | DT_EXPANDTABS,NULL
	redraw 1//必ず必要

「Wingdings strf」とかでググってください。

	fsize=30
	screen 0,fsize*33,fsize*17,,0,0
	font "ＭＳ ゴシック",fsize
	x=fsize
	repeat 16
		s=cnt: s=strf("%X",s)
		pos x,0: mes s
		pos fsize*16+x,y: mes s
		x+=fsize
	loop
	y=fsize: repeat 16,0: pos 0,y: s=cnt: s=strf("%X",s): mes s: y+=fsize: loop
	s="a": c=0: y=fsize
	repeat 16: x=fsize
		repeat 16
			poke s,0,c
			font "Wingdings",fsize
			pos x,y: mes s
			font "Times New Roman",fsize
			pos fsize*16+x,y: mes s
			c++: x+=fsize
		loop
		y+=fsize
	loop

たくさんのスクリプトありがとうございます。
Wingdings strfでググって見ると、こんなスクリプトを発見しました。（改変しています）
sdim data
font "Wingdings", 30, 16

i = 30
repeat 12
repeat 18
poke data, cnt, strf("%c", i)
i++
loop
mes data
loop

これに出る一番最後（右下）の文字を拝借したいのですが、どうすればできますか？

すいません。囲むのを忘れていました。

	sdim data
	font "Wingdings", 30, 16

	i = 30
	repeat 12
		repeat 18
			poke data, cnt, strf("%c", i)
			i++
		loop
		mes data
		loop

edit = 0

repeat
	redraw 0
		// 背景描画
		color 220,220,220
		boxf
		
		font "Wingdings", 30, 16
		// 16x16
		repeat 16
			cnt_y = cnt
			repeat 16
				cnt_x= cnt
				color 0,0,0
				if cnt_x*40-2 <= mousex & cnt_x*40+38 > mousex {
				if cnt_y*30-1 <= mousey & cnt_y*30+29 > mousey {
					edit = cnt_y*16+cnt_x
					// マウスが範囲内なら発光
					color 192,240,240
					boxf cnt_x*40-2,cnt_y*30,cnt_x*40+38,cnt_y*30+29
					color 192,255,255
					boxf cnt_x*40+1,cnt_y*30+5,cnt_x*40+35,cnt_y*30+24
					color 220,255,255
					boxf cnt_x*40+4,cnt_y*30+10,cnt_x*40+32,cnt_y*30+19
					// タイトルバーテキスト変更
					title "("+mousex+","+mousey+") "+edit
					color 64,0,0
				}}
				// 表示文字
				pos cnt_x*40,cnt_y*30-3
				mes strf("%c",cnt_y*16+cnt_x)
			loop
			// 枠線
			color 192,192,192
			line 0,29+cnt_y*30,640,29+cnt_y*30
			line 38+cnt_y*40,0,38+cnt_y*40,480
		loop

		// マウスにくっつくあれ
		font "",12
		color 255,255,192
		boxf mousex+8,mousey,mousex+32,mousey+16
		color 0,0,0
		pos mousex+12,mousey+2
		mes ""+edit
	redraw 1
	wait 1
loop

/*
	// これで得た数値をフォントとしてかく
	
	font "Wingdings",48
	mes strf("%c",138)		// ここに数値を入れる
	
*/

ありがとうございました。謎が消えました。

カーソルをなんでフォントで解決しようとするのか
っていう疑問はこの際　もっちゃいけないんでしょうか。

なんだ・・・教えて君のスレッドだったんですね
ageてすみませんでした＞＜