#include "mod_menu.as"
#define ctype LOWORD(%1) (%1 & $FFFF)
#enum ID_NEW
#enum ID_OPEN
#enum ID_SAVE
#enum ID_SAVEAS
#enum ID_EXIT
title "スーパーメモ帳くん ver.0.1"
oncmd gosub *command, WM_COMMAND
newmenu SubMenu.1, 1
addmenu SubMenu.1, "新規(&N)", ID_NEW
addmenu SubMenu.1, "開く(&O)", ID_OPEN
addmenu SubMenu.1, "上書き保存(&S)", ID_SAVE
addmenu SubMenu.1, "名前を付けて保存(&A)...", ID_SAVEAS
addmenu SubMenu.1, "", 0, $800
addmenu SubMenu.1, "終了(&X)", ID_EXIT
newmenu Menu, 0
addmenu Menu, "ファイル(&F)", SubMenu.1, $10
applymenu Menu
*top
; --------------基本設定
screen 0,600,460,0,,,,,
cls 1
objmode 1
s_title=""
s_text=""
mixi_mail=""
mixi_pass=""
twitter_mail=""
twitter_pass=""
ameba_mail=""
ameba_pass=""
buf=""
fname=""
; --------------左側のタイトル&本文入力ボックス
pos 5,5
mesbox s_title,425,,3,24
pos 5,35
mesbox s_text,425,400,1,500
; --------------右側の送信先選択エリア
pos 435,5
objsize 160,20
button "mixi", *mixi
pos 435,35
objsize 160,20
button "Twitter", *twitter
pos 435,65
objsize 160,20
button "Ameba", *ameba
pos 435,415
objsize 80,20
button "設定", *option
*main
stop
; --------------mixi投稿確認ウィンドウ
; はいが選択された場合はif命令で送信処理へ
; いいえが選択された場合はif命令で確認ウィンドウを閉じる
*mixi
dialog "この内容で送信しますか?",2,"確認"
if stat=6{
}
if stat=7{
gosub *main
}
stop
; --------------twitter投稿確認ウィンドウ
; はいが選択された場合はif命令で送信処理へ
; いいえが選択された場合はif命令で確認ウィンドウを閉じる
; twitterに限りs_text部分のみを送信する処理に(タイトル部分が無い為)
*twitter
dialog "この内容で送信しますか?",2,"確認"
if stat=6{
}
if stat=7{
gosub *main
}
stop
; --------------ameba投稿確認入力ウィンドウ
; はいが選択された場合はif命令で送信処理へ
; いいえが選択された場合はif命令で確認ウィンドウを閉じる
*ameba
dialog "この内容で送信しますか?",2,"確認"
if stat=6{
}
if stat=7{
gosub *main
}
stop
; --------------設定画面
; 各サイトのログイン設定などを行う
*option
onkey gosub *o_onkey
screen 1,350,400,8
color 0,0,255
line 0,100,350,100
line 0,200,350,200
line 0,300,350,300
color 0,0,0
font "MS P明朝",15,1
pos 10,10
mes"mixi"
font "MS P明朝",10,0
pos 10,30
mes "メールアドレス"
pos 10,45
input mixi_mail,150,15,50
pos 10,65
mes "パスワード"
pos 10,80
input mixi_pass,150,15,50
hInput = objinfo(stat, 2)
sendmsg hInput, $CC, '*'
font "MS P明朝",15,1
pos 10,110
mes"Twitter"
font "MS P明朝",10,0
pos 10,130
mes "メールアドレス"
pos 10,145
input twitter_mail,150,15,50
pos 10,165
mes "パスワード"
pos 10,180
input twitter_pass,150,15,50
hInput = objinfo(stat, 2)
sendmsg hInput, $CC, '*'
font "MS P明朝",15,1
pos 10,210
mes "Ameba"
font "MS P明朝",10,0
pos 10,230
mes "メールアドレス"
pos 10,245
input ameba_mail,150,15,50
pos 10,265
mes "パスワード"
pos 10,280
input ameba_pass,150,15,50
hInput = objinfo(stat, 2)
sendmsg hInput, $CC, '*'
pos 280,370
button "キャンセル", *o_cancel
pos 210,370
button "OK", *o_ok
stop
*o_onkey
if wparam = 13{
objsel -1
if stat = 0^5 :gosub *o_ok
}
stop
*o_cancel
gsel 1,-1
gosub *main
*o_ok
gsel 1,-1
gosub *main
*command
wID = LOWORD(wparam)
if wID == ID_NEW {
buf=""
objprm 0, buf
fname = ""
}
if wID == ID_OPEN {
dialog "txt", 16, "テキストファイル"
if stat == 1 {
fname = refstr
bload fname, buf
objprm 0, buf
}
}
if wID == ID_SAVE {
if fname == "" {
dialog "txt", 17, "テキストファイル"
if stat == 1 {
fname = refstr
} else {
return
}
}
bsave fname, buf
}
if wID == ID_SAVEAS {
dialog "txt", 17, "テキストファイル"
if stat == 1{
fname = refstr
i = instr(fname, 0, ".txt")
if (i == -1) {
fname = fname + ".txt"
}
bsave fname,s_text
}
}
if wID == ID_EXIT {
end
}
return
end