moreÍÑ¥Ú¥¤¥ó¥È¥½¡¼¥¹£³

init&term

func int(dummy){return dummy}
func startdlg(f,w,h){
while(scan){}
if(f){soft1("Æɹþ")}
else{soft1("")}
soft2("ÆþÎÏ")
color(255,255,190)
frect(0,0,width,height)
setfont("S")
color(0,155,0)
text("Canvas Size",width/2-stwide("Canvas Size")/2,3,0)
if(w==0||h==0){w=h=16}
rect((width-stwide(w))/2-2,(height-h)/2,w,h)
s=scan
while(1){
flg=1
t=tick
while(scan==s){
if(flg||tick-t>=500){
if(s&65536){csx=w csy=h return 0}
elsif(f&&(s&131072)){
return 1
}
elsif(s&262144){
 w=stringreplace(inputdlg("","Éý".w,5000,0),"Éý","")
 h=stringreplace(inputdlg("","¹â¤µ".h,5000,0),"¹â¤µ","")
}
elsif(s&32768&&h<120){h++}
elsif(s&4096&&h>1){h--}
elsif(s&8192&&w>1){w--}
elsif(s&16384&&w<120){w++}
lock()
color(255,255,190)
frect(0,sthigh+3,width,height)
col(255)
line(a=(width-w)/2,b=(height-h)/2-10,a+w,b)
'line(a,b,a+2,b-2)
line(a,b,a+2,b+2)'
line(a+w,b,a+w-2,b-2)
line(a+w,b,a+w-2,b+2)
line(a-10,b+10,a-10,b+10+h)
'line(a-10,b+10,a-12,b+12)
line(a-10,b+10,a-8,b+12)'
line(a-10,b+10+h,a-12,b+h+8)
line(a-10,b+10+h,a-8,b+h+8)
col(0)
rect(a,b+10,w,h)
text(h,a-14-stwide(h),height/2-sthigh,0)
text(w,width/2-stwide(w)/2,b-3-sthigh,0)
col(0xFFFFFF)
frect(a+1,b+11,w-1,h-1)
flg=0
unlock(1)
}
}
s=input()
}}
func initialize(){
c[1]=1c[9]=1c[3]=255<<16c[4]=255<<8c[5]=255c[6]=c[3]+c[4]c[7]=c[4]+c[5]c[8]=c[3]+c[5]c[2]=c[3]+c[4]+c[5]
soft2("½ªÎ»")
soft1("menu")
pen="pen"
pw=int(240/max(csx,csy))
mxo=myo=int(min(csx,csy)/2)
makeimg(bk,240,240)
makeimg(smpw,csx,csy)
trgt(off)
clear(0,0,240,240)
trgt(bk)
chx=(240-pw*csx)/2/pw
chy=(240-pw*csy)/2/pw
chh=csy+chy-1
chw=csx+chx-1
clip(chx*pw,chy*pw,pw*csx+2,pw*csy+2)
color(210,210,210)
if(pw>1){
for(i=0;i<=241;i=i+pw){
line(i,0,i,240)
}
for(i=0;i<=241;i=i+pw){
line(0,i,240,i)
}
}elsif(pw==1){
msgdlg("ùÜ","120*120°Ê¾å¤Î¥µ
¥¤¥º¤Ç¤Ï³Æµ¡Ç½¤¬¤¦¤Þ
¤¯Æ¯¤«¤Ê¤¤²ÄǽÀ­¤¬¤¢¤ê¤Þ¤¹")
rect(chx,chy,csx+1,csy+1)
}else{msgdlg("ùÜ","ÉÔÀµ¤Ê¥µ¥¤¥º")end}
repaint()}
func run(){
trgt(off)
drawimg(bk,0,0,0)
clearkey()
while(1){
sleep(90)
s=scan
trgt(off)
lock()
color(210,210,210)
rect(pw*mxo,pw*myo,pw,pw)
myo=myo-((s&4096)!=0)+((s&32768)!=0)
if(myo<chy){myo=chh}elsif(myo>chh){myo=chy}
mxo=mxo-((s&8192)!=0)+((s&16384)!=0)
if(mxo<chx){mxo=chw}elsif(mxo>chw){mxo=chx}
col(0xFF0000)
rect(pw*mxo,pw*myo,pw,pw)
unlock(0)
if(s!=0){
if(s&65536){
if(pen=="pen"){draw(mxo,myo,bc)}
elsif(pen=="can"){can()}
elsif(pen=="line"){iline()}
elsif(pen=="rect"){irect()}
}elsif(s&2){bc=c[1]sc(1)}elsif(s&4){bc=c[2]sc(2)}elsif(s&8){bc=c[3]sc(3)}elsif(s&16){bc=c[4]sc(4)}elsif(s&32){bc=c[5]sc(5)}elsif(s&64){bc=c[6]sc(6)}elsif
(s&128){bc=c[7]sc(7)}elsif(s&256){bc=c[8]sc(8)}elsif(s&512){bc=c[9]sc(9)}
elsif((s&131072)&&(sp!=1)){lsoft()
}elsif(s&262144){
terminate()
}}
repaint()
}
}
func terminate(){
if(change==1){
 r=yndlg("ùÜ","ÊÔ½¸¸åÊݸ¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£ËÜÅö¤Ë½ªÎ»¤·¤Þ¤¹¤«¡©")
 if(r=="YES"||r==1){
  end
 }else{
  repaint()return
 }
}else{
end
}
}

util

func stringreplace(srs,oldparam,newparam){
 srr=index(srs,oldparam)
 while(srr != -1){
  s1=substr(srs,0,srr)
  s2=substr(srs,srr+strlen(oldparam),strlen(srs)-srr-strlen(oldparam))
  srs=s1_newparam_s2
  srr=index(srs,oldparam)}
 result=srs
return result
}
func splitstring(sss,sskey) {
 gji=-1
ssr=index(sss,sskey)
 while(ssr != -1) {
  gji=gji+1
  result[gji]=substr(sss,0,ssr)
  sss=substr(sss,ssr+strlen(sskey),strlen(sss)-ssr-strlen(sskey))
  ssr=index(sss,sskey)
 }
 gji=gji+1
 result[gji]=sss
result=gji
return result+1
}
func ismore(){
 ism=1
 try{
  "1.0"+0
 }catch(e){
  ism=0
 }
 if(3/2!=1){ism=0}
 return ism
}
vkret="
"

moreÍÑ¥Ú¥¤¥ó¥È¥½¡¼¥¹£´