Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #define nodo 50
- #module
- #defcfunc nameup var name, int byte
- hoge=peek(name,byte)
- if hoge>'9' | hoge<'0' : return 1
- if hoge='9' {
- if byte<1 | nameup(name,byte-1) : return 1
- hoge='0'-1
- }
- poke name,byte,hoge+1
- return 0
- #global
- buffer 1
- buffer 2
- gsel 0
- title"右側1ページ目を選択してください。"
- dialog,16
- if stat=0 : end
- iname=refstr
- oname=getpath(iname,1)+".bmp"
- mask=getpath(iname,8)
- flag=0
- start=-1
- repeat strlen(mask)
- char=peek(mask,cnt)-'0'
- if 0<=char&char<=9 {
- if flag=0 : start=cnt
- start+
- logmes""+start
- } else : flag=0
- loop
- if start<0 : dialog"ERROR: 数字が見つかりませんでした!",1 : end
- start+=strlen(getpath(iname,32))
- repeat
- exist iname
- if strsize<0 : break
- gsel 1
- picload iname
- x1=ginfo(12)
- y1=ginfo(13)
- if nameup(iname,start-1) : break
- exist iname
- if strsize<0 : break
- gsel 2
- picload iname
- x2=ginfo(12)
- y2=ginfo(13)
- x3=x1+x2+nodo
- y3=y1 : if y2>y3 : y3=y2
- buffer 3,x3,y3
- pos 0,0
- gcopy 2,0,0,x2,y2
- pos x2+nodo,0
- gcopy 1,0,0,x1,y1
- bmpsave oname
- if nameup(iname,start-1) : break
- hogehoge=nameup(oname,start-1)
- loop
- ;if y3<1200 : dialog"注意!\n縦が1200px未満です!",1
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement