// mesbox描画用module // 以下MBとはmesboxのこと #module m_MB_draw // 変数定義 #deffunc _4MB_init target="" stock="" ID=0 return // IDのsetter #deffunc _4MB_set_ID int p ID=p return // MB描画 #deffunc MB_draw target=stock+target stock="" objprm ID,target return // 描画用文字列に追加(すぐは描画しない) #deffunc MB_add str _4add stock+=_4add return // 描画用文字列に追加(すぐは描画しない)改行付加 #deffunc MB_add_line str _4add stock+=_4add+"\n" return #global sdim var4MB,20000 mesbox var4MB,300,480,0 ID4MB=stat _4MB_init _4MB_set_ID ID4MB sdim dt_var_names,96,100 dt_var_names.0="btstr1","btstr2","btstr3","btstr4","btstr5","btstr6","btstr7","btstr8" dt_var_names.8="btnext1","btnext2","btnext3","btnext4","btnext5","btnext6","btnext7","btnext8" dt_var_names.16="nm_bt" sdim dt_vars,96,100 sdim dt_op_text,64000 dt_op_text={" this:@a@ bstr1:A next1:@aa@ bstr2:B next2:@ab@ nm_bt:2 cl_text ptext:ボタンを押してください show_text this_end this:@aa@ bstr1:NEXT next1:@a@ nm_bt:1 cl_text ptext:あなたはAを押しましたね show_text this_end this:@ab@ bstr1:NEXT next1:@a@ nm_bt:1 cl_text ptext:あなたはBを押しましたね show_text this_end"} #module stock_sc m_ID,m_contents #modinit str p_id;,str p_con m_ID=p_id ; m_contents=p_con m_contents="" return #modcfunc show_ID return m_ID #modfunc add_con str p_s m_contents+=p_s return #modcfunc show_con return m_contents #global notesel dt_op_text newmod one_sc,stock_sc,"this:@a@" i=0 j=0 for j,0,notemax,1 tmp="" noteget tmp,j if instr(tmp,0,"this_end")==-1{ add_con one_sc(0),tmp+"\n" }else{ add_con one_sc(0),tmp _break } next j++ newmod one_sc,stock_sc,"this:@aa@" i=0 for jj,j,notemax,1 tmp="" noteget tmp,jj if instr(tmp,0,"this_end")==-1{ add_con one_sc(1),tmp+"\n" }else{ add_con one_sc(1),tmp _break } next jj++ newmod one_sc,stock_sc,"this:@ab@" i=0 for jjj,jj,notemax,1 tmp="" noteget tmp,jjj if instr(tmp,0,"this_end")==-1{ add_con one_sc(2),tmp+"\n" }else{ add_con one_sc(2),tmp _break } next jjj++ MB_add "・ID\n"+show_ID(one_sc(0))+"\n\n" MB_add "・con\n"+show_con(one_sc(0))+"\n\n" MB_add "・ID\n"+show_ID(one_sc(1))+"\n\n" MB_add "・con\n"+show_con(one_sc(1))+"\n\n" MB_add "・ID\n"+show_ID(one_sc(2))+"\n\n" MB_add "・con\n"+show_con(one_sc(2))+"\n\n" MB_draw
タグ
コメントをかく