Hatena::Groupputikonclub

あまさとしおんの新館

2019-07-15お知らせ

2019年末頃に『はてなグループ』が終了することに伴い『プチコン大好きクラブ』も終了させていただくことになりました。

バックアップ等が必要な場合は2019年12月までに各自控えていただくことをお勧めいたします。

2018-09-03画像転送でソースを送ってみた

'--------------------------------------------

'@#NAME:御子神IME(仮)

'@#INFO:文字入力ツール

'@#DATE:2018/08/XX

'@#AUTHOR:あまさとしおん(ShionAmasato)

'@#GROUP:TOOL

'--------------------------------------------

ACLS

OPTION DEFINT

OPTION STRICT

VAR SF$,SB$,KW$,IK$

VAR L$

VAR T1$,T2$,T9$

VAR H,I,BTN,TT,TX,TY

VAR SPY

VAR PXMO?E=10

VAR SPR$=CHR$(10)+""*19+CHR$(10)

VAR DBG=0

VAR ENDF=0

VAR SCY,GSCY

VAR STY#

VAR LASTFILE$

VAR LL'Limit of Lines

VAR FUNC

VAR FCOL,BCOL,CCOL

VAR KNJMODE

DIM DOC$[100],CL

'FONT LIBRARY へんすうせんげん

DIM AT[20]

IF CHKFILE("TOKEN.TXT") THEN

 DBG=LEFT$(LOAD("TXT:TOKEN.TXT",0),5)=="DEBUG"

 KNJMODE=(LEFT$(LOAD("TXT:TOKEN.TXT?,0),2)=="EX")*100

ENDIF

'***** せってい *****

IF KNJMODE<100 THEN

 IF CHKFILE("KNJ_FNT_LIB") THEN

  KNJMODE=(DIALOG(CV$("あべ れいじさんのフォントライブラリも\使用できます。\\切り替えますか?"),1)==1)*100

 ELSE

  KNJMODE=0

 ENDIF

ENDIF

'しょきFILENAME

T2$=DATE$:T2$[7]="":T2$[4]=""

LASTFILE$=T2$+".TXT"

'がめん はいしょく

FCOL=#WHITE

BCOL=0

CCOL=#MAROON'へんかん はんいの いろ

'へんこうSAMPLE

'FCOL=#BLACK:BCOL=&HFFC0C0C0:CCOL=#CYAN

'****************

IF !CHKFILE("_JDATA") THEN

 LOAD "PRG3:C_JDATA.TXT",0

 PRGEDIT 3

 L$=""

 WHILE 1

  T1$=PRGGET$()

  IF T1$=="" THEN BREAK

  IF T1$[0]==CHR$(34) THEN T1$="DATA"+T1$

  IF T1$[0]==" " THEN T1$[0]=""

  INC L$,T1$

 WEND

 PRGDEL -1

 SAVE "TXT:_JDATA",L$

 DELETE "C_JDAT?.TXT"

 L$="":T1$=""

ENDIF

EXEC "PRG3:_JDATA"

FOR I=0 TO 7

 BREPEAT I,24,4

NEXT

GCLS BCOL

IF KNJMODE==100 THEN

 EXEC "PRG1:KNJ_FNT_LIB"

 AT[0]=0'BG-COLOR

 AT[1]=FCOL'FONT-COLOR

 AT[18]=12'FONT-SIZE

 AT[19]=0'かんかく

 KATTR AT

 SYSFNTCFG AT[18],AT[18]

ELSE

 EXEC "PRG2:KNJLIB"

 GKNJCOLOR FCOL

 GKNJFONT 4+(PXMODE==12)

 SYSFNTCFG GKNJW(),GKNJH()

ENDIF

LL=512 DIV SYSFNTH()

SPDEF 4040,400,432,PXMODE/2,1

SPSET 80,4040

SPSCALE 80,2,2

SPANIM 80,"C",30,-1,30,0,0

KEY 3,"+メニュー

KEY 5,"[現在時刻]

WHILE 1

 VSYNC

 IF ENDF THEN BREAK

 BTN=BUTTON(1) AND &H,FF

 STICK OUT ,STY#

 TOUCH OUT TT,TX,TY

' DEC GSCY,STY#*3

 IF GSCY<0 THEN GSCY=0

 IK$=INKEY$()

 FUNC=0

 IF TT==1 && T^<20 THEN

  FUNC=TX DIV 64+1

  IK$=KEY(FUNC)

 ENDIF

 IF IK$=="[現在時刻]" THEN IK$=TIME$

 IF BUTTON()==#L+#R THEN GOSUB @MENU

 IF !LEN(KW$) && BTN AND 15 THEN

  IF BTN AND 1 && CL THEN CNGLINE CL-1

  IF BTN AND 2 THEN CNGLINE CL+1

  IF LEN(SF$) && BTN AND 4 THEN SB$=POP(SF$)+SB$

  IF LEN(SB$) && BTN AND 8 THEN SF$=SF$+SHIFT(SB$)

  BTN=0

 ENDIF

 REPEAT

  SPY=(CL+1)*SYSFNTH()-2-GSCY

  IF SPY<0 THEN DEC GSCY,SYSFNTH()

  IF SPY>239 THEN INC GSCY,SYSFNTH()

 UNTIL SPY>=0 && SPY<240

 SPOFS 80,LEN(KW$+SF$)*SYSFNTW(),SPY

 GOFS 0,GSCY

 IF !LEN(IK$) && !BTN THEN CONTINUE

 IF IK$==CHR$(13) || BTN==#A THEN

  IF LEN(KW$) THEN

   SF$=SF$+KW$

   KW$=""

   LCLR:LWRITE

  ELSE

   CNGLINE CL+1

  ENDIF

 ELSEIF IK$==CHR$(8) || BTN==#Y THEN

  IF LEN(KW$) THEN

   KW$=LEFT$(KW$,LE?(KW$)-1)

  ELSE

   SF$=LEFT$(SF$,MAX(LEN(SF$)-1,0))

  ENDIF

  LCLR:LWRITE

 ELSE

  INC KW$,IK$

  LCLR:LWRITE

 ENDIF

 IF BTN==2 THEN GOSUB @C

WEND

ACLS

END

@MENU

 WHILE DIALOG(CV$("ロード<HR>セーブ<HR>新規作成<HR>プログラムの終了<HR>"),-9,"メニュー[メニューを閉じる]",)

  IF BUTTON()==#B THEN BREAK

  TOUCH OUT ,,TY

  TY=(TY+1) DIV 34

  IF TY==1 THEN GOSUB @LOAD

  IF TY==2 THEN GOSUB @SAVE

  IF TY==3 THEN GOSUB @INIT

  IF TY==4 THEN ENDF=DIALOG(CV$("プログラムを終了します。\\よろしいですか?"),1,"確認 - プログラム終了")==1:BREAK

 WEND

RETURN

@INIT

 IF DIALOG(CV$("編集内容を消去します。\\よろしいですか?"),1,"確認 - 新規作成")-1 THEN RETURN

 FILL DOC$,"":SF$="":KW$="":SB$=""

 T2$=DATE$:T2$[7]="":T2$[4]=""

 LASTFILE$=T2$+".TXT"

 GSCY=0:CL=0

 GCLS BCOL

RETURN

@SAVE

 T2$=DIALOG(LASTFILE$,"セーブするファイル名を入力")

 IF !LEN(T2$) THEN RETURN

 CNGLINE CL

 T1$=""

 FOR I=0 TO LEN(DOC$)-1

  INC T1$,DOC$[I]+CHR$(10)

 NEXT

 WHILE RIGHT$(T1$,2)==CHR$(10)*2

  T1$[LEN(T1$)-1]=""

 WEND

 SAVE "TXT:"+T2$,T1$

 LASTFILE$=""+T2$

RETURN

@LOAD

 T1$=NAMESEL$()

 IF T1$=="" THEN RETURN

 FILL DOC$,"":SF$="":KW$="":SB$=""

 LOAD "PRG1:"+T1$,0

 LASTFILE$=""+T1$

 PRGEDIT 1,1

 FOR I=0 TO LL-1

  DOC$[I]=PRGGET$()

  IF DOC$[I]=="" THEN BREAK

  T1$=POP(DOC$[I])

  IF LEN(DOC$[I]) THEN CL=I

 NEXT

 GSCY=MAX??CL+2-240 DIV SYSFNTH())*SYSFNTH(),0)

 INC CL

 GCLS BCOL:ALLWRITE

RETURN

@C

FOR H=MIN(12,LEN(KW$)) TO 1 STEP -1

 L$=FORMAT$("3:@LABEL_%D",ASC(KW$))

 IF !CHKLABEL(L$) THEN

  INC SF$,SHIFT(KW$)

  LCLR:LWRITE

  CONTINUE

 ENDIF

 RESTORE L$

 'とりのこし ぼうし

 IF ISSMALL(MID$(KW$,H,1))==1 THEN DEC H

 WHILE 1

  READ T1$,T2$

  IF T1$=="" THEN BREAK

  IF LEN(T1$)-H THEN CONTINUE

  IF T1$!=LEFT$(KW$,H) THEN CONTINUE

  T9$=SEL(T1$,T2$)

  IF LEN(T9$) THEN

   INC SF$,T9$

   'DIALOG FORMAT$("%D,%S,%S",H,KW$,T9$)

   KW$=RIGHT$(KW$,LEN(KW$)-H)

   IF LEN(KW$) THEN

    H=MIN(12,LEN(KW$))+1

   ELSE

    H=-9

   ENDIF

  ENDIF

  LCLR:LWRITE

 WEND

NEXT

RETURN

DEF SEL(X$,Y$)

 VAR I,J,K

 VAR A$,Z$

 VAR W$[600],OJ,PC,PG,TY

 Z$=Y$+","

 FILL W$,""

 W$[0]=X$*1

 W$[1]=CVKANA$(X$)

 J=0:PC=1

 FOR I=2 TO 599

  OJ=J:J=INSTR(J+1,Z$,";0,")+3

  IF J<3 THEN PC=CEIL(I/6):BREAK

  W$[I]=MID$(Z$,OJ,J-OJ-3)

  WHILE 1

   K=INSTR(W$[I],"\u")

   IF K<0 THEN BREAK

   W$[I]=SUBST$(W$[I],K,6,CHR$(VAL("&H"+MID$(W$[I],K+2,4))))

  WEND

 NEXT

'DIALOG Z$

 WHILE 1

  Z$=""

  FOR I=0 TO 5

   INC Z$,W$[I+PG*6]+SPR$

  NEXT

  I=DIALOG(Z$,-11,FORMAT$("%S %D/%D %S[キャンセル]%S",X$,PG+1,PC,"[前候補]"*!!PG,"[次候補]"*(PG<PC-1)),)

  TOUCH OUT ,,TY

  IF I==134 THEN DEC PG

  IF I==135 THEN INC PG

  PG=MAX(MIN(PG,PC-1),0)

  IF I==129 THEN

   A$="":BREAK

  ELSEIF I==140 && TY>31 THEN

   A$=W$[MIN(TY>>5,6)-1+PG*6]*1:BREAK

  ENDIF

 WEND

 RETURN A$

END

DEF NAMESEL$()

 VAR I,J

 VAR A$,Z$

 VAR W$[0],OJ,PC,PG,TY

 FILES "TXT:",W$

 FOR I=0 TO LEN(W$)-1

  A$=SHIFT(W$[I])

 NEXT

 PC=CEIL(LEN(W$)/6)

 WHILE 1

  Z$=""

  FOR I=0 TO 5

   IF LEN(W$)==I+PG*6 THEN BREAK

   INC Z$,W$[I+PG*6]+SPR$

  NEXT

  I=DIALOG(Z$,-11,FORMAT$("%D/%D %S[キャンセル]%S",PG+1,PC,"[前候補]"*!!PG,"[次候補]"*(PG<PC-1)),)

  TOUCH OUT ,,TY

  IF I==134 THEN DEC PG

  IF I==135 THEN INC PG

  PG=MAX(MIN(PG,PC-1),0)

  IF I==129 THEN

   A$="":BREAK

  ELSEIF I==140 && TY>31 THEN

   IF MIN(TY>>5,6)+PG*6<=LEN(W$) THEN

    A$=W$[MIN(TY>>5,6)-1+PG*6]*1:BREAK

   ENDIF

  ENDIF

 WEND

 RETURN A$

END

DEF CNGLINE NEW

 IF DBG THEN KEY 2,SF$

 DOC$[CL]=SF$+KW$+SB$

 CL=NEW-0

 SF$=LEFT$(DOC$[CL],140):KW$="":SB$=""

 LCLR:LWRITE

END

DEF ALLWRITE

 VAR Y

 LWRITE

 FOR Y=0 TO LL

  SYSFNTBGCOLOR BCOL

  IF Y-CL THEN

   SYSFNT 0,Y*SYSFNTH(),DOC$[Y]

  ENDIF

 NEXT

 DBEEP 5

END

DEF LWRITE

 DBEEP 3

 SYSFNTBGCOLOR BCOL

 SYSFNT 0,CL*SYSFNTH(),SF$

 SYSFNTBGCOLOR CCOL

 SYSFNT SYSFNTW()*LEN(SF$),CL*SYSFNTH(),KW$

 SYSFNTBGCOLOR BCOL

 SYSFNT SYSFNTW()*LEN(SF$+KW$),CL*SYSFNTH(),SB$

END

DEF LCLR

 GFILLW 0,CL*SYSFNTH(),400,SYSFNTH(),BCOL

END

COMMON DEF CVKANA$(S$)

 VAR B,C

 VAR T$,R$

 IF S$>0<3 THEN

  T$=CHR$(S$)

 ELSE

  T$=S$*1

 ENDIF

 FOR I=0 TO LEN(T$)-1

  C=ASC(T$[I])

  IF C==12289 THEN INC R$,T$[I]:CONTINUE

  IF C==12290 THEN INC R$,T$[I]:CONTINUE

  IF C==12540 THEN INC R$,T$[I]:CONTINUE

  IF C>&H30A0 THEN DEC C,96 ELSE INC C,96

  INC R$,CHR$(C)

 NEXT

 RETURN R$

END

COMMON DEF GFILLW X,Y,W,H,C

 GFILL X,Y,X+W-1,Y+H-1,C

END

COMMON DEF CV$(T$)

 VAR S$=""+T$

 WHILE INSTR(S$,"?")+1

  S$[INSTR(S$,"?")]=CHR$(&HFF1F)

 WEND

 WHILE INSTR(S$,"<HR>")+1

  S$=SUBST$(S$,INSTR(S$,"<HR>"),4,"\"+""*19)

 WEND

 WHILE INSTR(S$,"\")+1

  S$[INSTR(S$,"\")]=CHR$(10)

 WEND

 RETURN S$

END

COMMON DEF ISSMALL(S$)

 VAR B,C

 VAR T$

 IF S$>0<3 THEN

  C=S$

 ELSEIF LEN(S$) THEN

  C=ASC(S$)

 ELSE

  RETURN 0

 ENDIF

 IF C>&H30A0 THEN DEC C,96

 B=C>=ASC("ぁ") && C<=ASC("ぉ")

 B=B || (C>=ASC("ゃ") && C<=ASC("ょ"))

 B=B && C AND 1

 B=B || (C>=ASC("a") && C<=ASC("z"))

 RETURN B

END

DEF DBEEP N

 IF DBG THEN BEEP N

END

DEF SYSFNT X,Y,S$

 IF KNJMODE==100 THEN

  KNJSTR X,Y,H2Z$(S$)

 ELSE

  GKNJPRINT X,Y,S$

 ENDIF

END

VAR S001%,S002%

DEF SYSFETCFG W,H

 S001%=W

 S002%=H

END

DEF SYSFNTW()

 RETURN S001%

END

DEF SYSFNTH()

 RETURN S002%

END

DEF SYSFNTBGCOLOR COL

 IF KNJMODE==100 THEN

  AT[0]=COL'BG-COLOR

  KATTR AT

 ELSE

  GKNJBGCOLOR COL

 ENDIF

END

DEF H2Z$(ST$)

 VAR I

 VAR S$=""+ST$

 FOR I=0 TO LEN(S$)-1

  IF ASC(S$[I])<128 THEN S$[I]=CHR$(ASC(S$[I])+&HFEE0)

 NEXT

 RETURN S$

END

ugowayoruvaiugowayoruvai2019/07/06 09:53http://mewkid.net/buy-amoxicillin/ - Buy Amoxicillin Online <a href="http://mewkid.net/buy-amoxicillin/">Amoxicillin 500mg Capsules</a> zjk.vqur.putikonclub.g.hatena.ne.jp.xdv.ee http://mewkid.net/buy-amoxicillin/

2018-06-15今日の更新

  • 練習所」の微修正。
    • みんなのタグ辞書のリンク先がおかしなことになってたorz...
  • プログラム 一覧」の微修正。
    • プチコンmkII向けの旨を追記。
    • divタグが冗長なので調整(しかし何も変わらなかった)
  • GGK N12」の微修正。
    • うごメモ記法が終了していたので撤去。
    • Flashがデフォルトで阻止される風潮に合わせて、動画埋め込みも撤去(元ファイルはそのままです)

ところで、orirakkusuさんはどこいったんだろう

2018-05-05エニモンメモ

LOADMAP id,filename$

filename$のRMBファイルをロードしてマップ表示する。

idはマップを区別する番号。同じだと「フラグ」を共有する。

(例えば、ストーリー中で火山が噴火した時などにはidを変えずにLOADMAPするとを宝箱を開けたかどうか引き継げる。)

MOVECHR x,y,a

(x,y)にaの向きで主人公の表示を移動する。


基本セットで使う

LOADMAP 51,"CENTRALHALL"

MOVECHR 13,24,0

2018-03-28

なんかFontFaceって長いなぁと思ったら

eot

woff

ttf

という3形式の分、書いてるかららしい。


eofは古いIE用だし、省こうかなぁ


ところで

昔に書いたコードって自分でも汚く感じるよね。

気分次第で修繕していきます。

2018-03-23

あら、プチコンフォントはお茶会のアドレスにはいってるのか

というわけでぼちぼち直します



試しに適用したところ、行番号のフォントがでない?

プチコンmkIIのサイトでDLできるフォントと、3号のサイトでDLできるフォントが違うからか。

うーん

そういえば、日記のCSSは別に書かないとだめだ。

0001.BEEP 34

2018-03-22

Chromeでフォントが効かないよぅ

うぇーん。

otyakenrabuotyakenrabu2018/03/22 21:53codeタグが原因なのでcodeタグを除去するか
.basic-source-bk code {
font-family: 'プチコン';
}
みたいなCSS書くといい

otyakenrabuotyakenrabu2018/03/22 21:55あと
@font-face {
font-family: 'プチコン';
src: url('https://files.otyakai.xyz/smilebasic/SMILEBASIC.eot?320');
src: url('https://files.otyakai.xyz/smilebasic/SMILEBASIC.eot?#iefix') format('embedded-opentype'), url('https://files.otyakai.xyz/smilebasic/SMILEBASIC.woff?320') format('woff'), url('https://files.otyakai.xyz/smilebasic/SMILEBASIC.ttf?320') format('truetype');
}
というCSSを核とプチコンフォントが入っていない環境でも表示されるようになる

2018-03-19管理人新アカウントのご案内

はてなにある「サブアカウント」機能でブログ用に作ったアカウントです。

切り替えが面倒なため、プチコン大好きクラブでもこちらを使用することにしました。