IRCでリバーシっぽいもの。

limeChatでリバーシするjavascriptこしらえました。

javascriptをいじるのは初体験でしたが、ハマってしまいそうです^^


以下　リーバシする　スプリクト^^(わざとですよ)

+ expand sourceview plainprint?

1. var turn=0;//0黒 1 白　ターン  
2. var data = new Array(8*8);   
3. var data2 = new Array(8*8);   
4. var channel_g;  
5. var end=0;  
6.   
7. function event::onChannelText(prefix, channel, text){  
8.  channel_g=channel;  
9.  if(text.match(/^#/i)){  
10.     
11.   cmd=""+text.match(/[a-z]+$/i);  
12.   var ddd=text.match(/(\d)/g);  
13.   
14.   if(ddd!=null){  
15.   
16.    x=ddd[0];  
17.    y=ddd[1];  
18.    if(end==1){  
19.     send(channel,"<color navy,silver>＜ゲームを再開してください＞");  
20.     return(0);  
21.    }  
22.    if(x>8||x==0||y>8||y==0){  
23.     send(channel,"<color navy,silver>＜不正な入力です＞");  
24.    }else{  
25.     if(putable(x-1,y-1)==0){  
26.      send(channel,"<color navy,silver>＜そこには打てません＞");  
27.        
28.     }else{  
29.      copyArr12();  
30.      put(x-1,y-1);  
31.      turnChange()  
32.      if(numberOfPutable()==0){  
33.       turnChange()  
34.       if(numberOfPutable()==0){  
35.          
36.        if(black_n()>white_n()){  
37.         send(channel,"<color navy,silver>＜黒の勝ち＞");  
38.        }  
39.        if(black_n()<white_n()){  
40.         send(channel,"<color navy,silver>＜白の勝ち＞");  
41.        }  
42.        if(black_n()==white_n()){  
43.         send(channel,"<color navy,silver>＜引き分け＞");  
44.        }  
45.        draw();  
46.        end=1;  
47.        return(0);  
48.       }else{  
49.        send(channel,"<color navy,silver>＜打つ手がないのでパス＞");  
50.       }  
51.      }  
52.      draw();  
53.        
54.     }  
55.    }  
56.   }  
57.   
58.   if(cmd!=null){  
59.    if(cmd.search(/^new$/i)!=-1){  
60.     send(channel,"<color navy,silver>＜ゲームを開始します＞");  
61.     newGame();  
62.     draw();  
63.     end=0;  
64.    }  
65.    if(cmd.search(/^matta$/i)!=-1){  
66.     if(matta_ok==1){  
67.      send(channel,"<color navy,silver>＜\"待った\"しました＞");  
68.      copyArr21();  
69.      turnChange()  
70.      draw();  
71.      end=0;  
72.      matta_ok=0;  
73.     }else{  
74.      send(channel,"<color navy,silver>＜\"待った\"できません＞");  
75.     }  
76.    }  
77.   }  
78.  }  
79. }  
80.   
81. function newGame(){  
82.  turn=0;  
83.  for(ix=0;ix<8;ix++){  
84.   for(iy=0;iy<8;iy++){  
85.    data[(ix)*8+(iy)] = 0;  
86.   }  
87.  }  
88.  data[(3)*8+(3)]=1; //1黒？  
89.  data[(4)*8+(4)]=1; //2白  
90.  data[(4)*8+(3)]=2;  
91.  data[(3)*8+(4)]=2;  
92. }  
93. function draw(){  
94.  send(channel_g,"<color white,white>,/<color gray,white>1<color white,white>,,<color gray,white>2<color white,white>,,<color gray,white>3<color white,white>,,<color gray,white>4<color white,white>,,<color gray,white>5<color white,white>,,<color gray,white>6<color white,white>,,<color gray,white>7<color white,white>,,<color gray,white>8");  
95.  for(iy=0;iy<8;iy++){  
96.   str="";  
97.   str+="<color gray,white>"+(iy+1);  
98.   for(ix=0;ix<8;ix++){  
99.      
100.    if(data[(ix)*8+(iy)]==0){  
101.     if(putable(ix,iy)==0){  
102.      str+=""+"<color green,green>.<color black,green>・<color green,green>.";  
103.     }else{  
104.      str+=""+"<color green,green>.<color red,green>・<color green,green>."  
105.     }  
106.    }  
107.    if(data[(ix)*8+(iy)]==1){  
108.     str+=""+"<color black,green>●";  
109.    }  
110.    if(data[(ix)*8+(iy)]==2){  
111.     str+=""+"<color white,green>●";  
112.    }  
113.   }  
114.   if(iy==5){  
115.    str+="<color>  balck "+black_n();  
116.   }  
117.   if(iy==6){  
118.    str+="<color>  white "+white_n();  
119.   }  
120.   if(iy==7){  
121.    if(turn==0){  
122.    str+="<color>  黒の番です";  
123.    }else{  
124.    str+="<color>  白の番です";  
125.    }  
126.   }  
127.   send(channel_g,str);  
128.  }  
129. }  
130.   
131. function black_n(){  
132.  amount=0;  
133.  for(i=0;i<64;i++){  
134.   if(data[i]==1){  
135.    amount++;  
136.   }  
137.  }  
138.  return(amount);  
139. }  
140.   
141. function white_n(){  
142.  amount=0;  
143.  for(i=0;i<64;i++){  
144.   if(data[i]==2){  
145.    amount++;  
146.   }  
147.  }  
148.  return(amount);  
149. }  
150.   
151. function putable(x,y){  
152.  rr=0;  
153.  if(data[(x)*8+(y)]==0){  
154.   if(turn==0){  
155.    a1=2;  
156.    a2=1;  
157.   }else{  
158.    a1=1;  
159.    a2=2;  
160.   }  
161.   if(x!=0&&y!=0){  
162.    m=1;  
163.    a=0;  
164.    while(1){  
165.     if(data[(x-m)*8+(y-m)]==a1){  
166.      a=1;  
167.     }  
168.     if(data[(x-m)*8+(y-m)]==a2){  
169.      if(a==1){rr=1;}  
170.      break;  
171.     }  
172.     if(data[(x-m)*8+(y-m)]==0){  
173.      break;  
174.     }  
175.     if(x-m==0||y-m==0){  
176.      break;  
177.     }  
178.     m++;  
179.       
180.    }  
181.   }  
182.     
183.   if(y!=0){  
184.    m=1;  
185.    a=0;  
186.    while(1){  
187.     if(data[(x)*8+(y-m)]==a1){  
188.      a=1;  
189.     }  
190.     if(data[(x)*8+(y-m)]==a2){  
191.      if(a==1){rr=1;}  
192.      break;  
193.     }  
194.     if(data[(x)*8+(y-m)]==0){  
195.      break;  
196.     }  
197.     if(y-m==0){  
198.      break;  
199.     }  
200.     m++;  
201.       
202.    }  
203.   }  
204.     
205.   if(x!=7&&y!=0){  
206.    m=1;  
207.    a=0;  
208.    while(1){  
209.     if(data[(x+m)*8+(y-m)]==a1){  
210.      a=1;  
211.     }  
212.     if(data[(x+m)*8+(y-m)]==a2){  
213.      if(a==1){rr=1;}  
214.      break;  
215.     }  
216.     if(data[(x+m)*8+(y-m)]==0){  
217.      break;  
218.     }  
219.     if(x+m==7||y-m==0){  
220.      break;  
221.     }  
222.     m++;  
223.       
224.    }  
225.   }  
226.     
227.   if(x!=7){  
228.    m=1;  
229.    a=0;  
230.    while(1){  
231.     if(data[(x+m)*8+(y)]==a1){  
232.      a=1;  
233.     }  
234.     if(data[(x+m)*8+(y)]==a2){  
235.      if(a==1){rr=1;}  
236.      break;  
237.     }  
238.     if(data[(x+m)*8+(y)]==0){  
239.      break;  
240.     }  
241.     if(x+m==7){  
242.      break;  
243.     }  
244.     m++;  
245.       
246.    }  
247.   }  
248.     
249.   if(x!=7&&y!=7){  
250.    m=1;  
251.    a=0;  
252.    while(1){  
253.     if(data[(x+m)*8+(y+m)]==a1){  
254.      a=1;  
255.     }  
256.     if(data[(x+m)*8+(y+m)]==a2){  
257.      if(a==1){rr=1;}  
258.      break;  
259.     }  
260.     if(data[(x+m)*8+(y+m)]==0){  
261.      break;  
262.     }  
263.     if(x+m==7||y+m==7){  
264.      break;  
265.     }  
266.     m++;  
267.       
268.    }  
269.   }  
270.     
271.   if(y!=7){  
272.    m=1;  
273.    a=0;  
274.    while(1){  
275.     if(data[(x)*8+(y+m)]==a1){  
276.      a=1;  
277.     }  
278.     if(data[(x)*8+(y+m)]==a2){  
279.      if(a==1){rr=1;}  
280.      break;  
281.     }  
282.     if(data[(x)*8+(y+m)]==0){  
283.      break;  
284.     }  
285.     if(y+m==7){  
286.      break;  
287.     }  
288.     m++;  
289.       
290.    }  
291.   }  
292.   if(x!=0&&y!=7){  
293.    m=1;  
294.    a=0;  
295.    while(1){  
296.     if(data[(x-m)*8+(y+m)]==a1){  
297.      a=1;  
298.     }  
299.     if(data[(x-m)*8+(y+m)]==a2){  
300.      if(a==1){rr=1;}  
301.      break;  
302.     }  
303.     if(data[(x-m)*8+(y+m)]==0){  
304.      break;  
305.     }  
306.     if(x-m==0||y+m==7){  
307.      break;  
308.     }  
309.     m++;  
310.       
311.    }  
312.   }  
313.   if(x!=0){  
314.    m=1;  
315.    a=0;  
316.    while(1){  
317.     if(data[(x-m)*8+(y)]==a1){  
318.      a=1;  
319.     }  
320.     if(data[(x-m)*8+(y)]==a2){  
321.      if(a==1){rr=1;}  
322.      break;  
323.     }  
324.     if(data[(x-m)*8+(y)]==0){  
325.      break;  
326.     }  
327.     if(x-m==0){  
328.      break;  
329.     }  
330.     m++;  
331.      
332.    }  
333.   }  
334.  }  
335.  return(rr);  
336. }  
337.   
338. function put(x,y){  
339.   if(turn==0){  
340.    a1=2;  
341.    a2=1;  
342.   }else{  
343.    a1=1;  
344.    a2=2;  
345.   }  
346.   if(x!=0&&y!=0){  
347.    m=1;  
348.    a=0;  
349.    while(1){  
350.     if(data[(x-m)*8+(y-m)]==a1){  
351.      a=1;  
352.     }  
353.     if(data[(x-m)*8+(y-m)]==a2){  
354.      if(a==1){lineChange(x,y,x-m,y-m);}  
355.      break;  
356.     }  
357.     if(data[(x-m)*8+(y-m)]==0){  
358.      break;  
359.     }  
360.     if(x-m==0||y-m==0){  
361.      break;  
362.     }  
363.     m++;  
364.       
365.    }  
366.   }  
367.     
368.   if(y!=0){  
369.    m=1;  
370.    a=0;  
371.    while(1){  
372.     if(data[(x)*8+(y-m)]==a1){  
373.      a=1;  
374.     }  
375.     if(data[(x)*8+(y-m)]==a2){  
376.      if(a==1){lineChange(x,y,x,y-m);}  
377.      break;  
378.     }  
379.     if(data[(x)*8+(y-m)]==0){  
380.      break;  
381.     }  
382.     if(y-m==0){  
383.      break;  
384.     }  
385.     m++;  
386.       
387.    }  
388.   }  
389.     
390.   if(x!=7&&y!=0){  
391.    m=1;  
392.    a=0;  
393.    while(1){  
394.     if(data[(x+m)*8+(y-m)]==a1){  
395.      a=1;  
396.     }  
397.     if(data[(x+m)*8+(y-m)]==a2){  
398.      if(a==1){lineChange(x,y,x+m,y-m);}  
399.      break;  
400.     }  
401.     if(data[(x+m)*8+(y-m)]==0){  
402.      break;  
403.     }  
404.     if(x+m==7||y-m==0){  
405.      break;  
406.     }  
407.     m++;  
408.       
409.    }  
410.   }  
411.     
412.   if(x!=7){  
413.    m=1;  
414.    a=0;  
415.    while(1){  
416.     if(data[(x+m)*8+(y)]==a1){  
417.      a=1;  
418.     }  
419.     if(data[(x+m)*8+(y)]==a2){  
420.      if(a==1){lineChange(x,y,x+m,y);}  
421.      break;  
422.     }  
423.     if(data[(x+m)*8+(y)]==0){  
424.      break;  
425.     }  
426.     if(x+m==7){  
427.      break;  
428.     }  
429.     m++;  
430.       
431.    }  
432.   }  
433.     
434.   if(x!=7&&y!=7){  
435.    m=1;  
436.    a=0;  
437.    while(1){  
438.     if(data[(x+m)*8+(y+m)]==a1){  
439.      a=1;  
440.     }  
441.     if(data[(x+m)*8+(y+m)]==a2){  
442.      if(a==1){lineChange(x,y,x+m,y+m);}  
443.      break;  
444.     }  
445.     if(data[(x+m)*8+(y+m)]==0){  
446.      break;  
447.     }  
448.     if(x+m==7||y+m==7){  
449.      break;  
450.     }  
451.     m++;  
452.       
453.    }  
454.   }  
455.     
456.   if(y!=7){  
457.    m=1;  
458.    a=0;  
459.    while(1){  
460.     if(data[(x)*8+(y+m)]==a1){  
461.      a=1;  
462.     }  
463.     if(data[(x)*8+(y+m)]==a2){  
464.      if(a==1){lineChange(x,y,x,y+m);}  
465.      break;  
466.     }  
467.     if(data[(x)*8+(y+m)]==0){  
468.      break;  
469.     }  
470.     if(y+m==7){  
471.      break;  
472.     }  
473.     m++;  
474.       
475.    }  
476.   }  
477.   if(x!=0&&y!=7){  
478.    m=1;  
479.    a=0;  
480.    while(1){  
481.     if(data[(x-m)*8+(y+m)]==a1){  
482.      a=1;  
483.     }  
484.     if(data[(x-m)*8+(y+m)]==a2){  
485.      if(a==1){lineChange(x,y,x-m,y+m);}  
486.      break;  
487.     }  
488.     if(data[(x-m)*8+(y+m)]==0){  
489.      break;  
490.     }  
491.     if(x-m==0||y+m==7){  
492.      break;  
493.     }  
494.     m++;  
495.       
496.    }  
497.   }  
498.   if(x!=0){  
499.    m=1;  
500.    a=0;  
501.    while(1){  
502.     if(data[(x-m)*8+(y)]==a1){  
503.      a=1;  
504.     }  
505.     if(data[(x-m)*8+(y)]==a2){  
506.      if(a==1){lineChange(x,y,x-m,y);}  
507.      break;  
508.     }  
509.     if(data[(x-m)*8+(y)]==0){  
510.      break;  
511.     }  
512.     if(x-m==0){  
513.      break;  
514.     }  
515.     m++;  
516.      
517.    }  
518.   }  
519. }  
520.   
521. function lineChange(x1,y1,x2,y2){  
522.  if(turn==0){  
523.   a=1;  
524.  }else{  
525.   a=2;  
526.  }  
527.  mx=0  
528.  my=0  
529.  while(1){  
530.   data[(x1+mx)*8+(y1+my)]=a;  
531.   if(x2==x1+mx&&y2==y1+my){break;}  
532.   if(x2-x1>0){mx++;}  
533.   if(x2-x1<0){mx--;}  
534.   if(y2-y1>0){my++;}  
535.   if(y2-y1<0){my--;}  
536.  }  
537. }  
538.   
539. function numberOfPutable(){  
540.  amount=0;  
541.  for(ix=0;ix<8;ix++){  
542.   for(iy=0;iy<8;iy++){  
543.    if(putable(ix,iy)==1){amount++;}  
544.   }  
545.  }  
546.  //send(channel_g,""+amount);  
547.  return(amount);  
548. }  
549.   
550. function turnChange(){  
551.  if(turn==0){  
552.   turn=1;  
553.  }else{  
554.   turn=0;  
555.  }  
556. }  
557. matta_ok=0;  
558. function copyArr12(){  
559.  matta_ok=1;  
560.  for(i=0;i<64;i++){  
561.   data2[i]=data[i];  
562.  }  
563. }  
564. function copyArr21(){  
565.  for(i=0;i<64;i++){  
566.    data[i]=data2[i];  
567.  }  
568. }  

var turn=0;//0黒 1 白　ターン
var data = new Array(8*8); 
var data2 = new Array(8*8); 
var channel_g;
var end=0;

function event::onChannelText(prefix, channel, text){
 channel_g=channel;
 if(text.match(/^#/i)){
  
  cmd=""+text.match(/[a-z]+$/i);
  var ddd=text.match(/(\d)/g);

  if(ddd!=null){

   x=ddd[0];
   y=ddd[1];
   if(end==1){
    send(channel,"<color navy,silver>＜ゲームを再開してください＞");
    return(0);
   }
   if(x>8||x==0||y>8||y==0){
    send(channel,"<color navy,silver>＜不正な入力です＞");
   }else{
    if(putable(x-1,y-1)==0){
     send(channel,"<color navy,silver>＜そこには打てません＞");
     
    }else{
     copyArr12();
     put(x-1,y-1);
     turnChange()
     if(numberOfPutable()==0){
      turnChange()
      if(numberOfPutable()==0){
       
       if(black_n()>white_n()){
        send(channel,"<color navy,silver>＜黒の勝ち＞");
       }
       if(black_n()<white_n()){
        send(channel,"<color navy,silver>＜白の勝ち＞");
       }
       if(black_n()==white_n()){
        send(channel,"<color navy,silver>＜引き分け＞");
       }
       draw();
       end=1;
       return(0);
      }else{
       send(channel,"<color navy,silver>＜打つ手がないのでパス＞");
      }
     }
     draw();
     
    }
   }
  }

  if(cmd!=null){
   if(cmd.search(/^new$/i)!=-1){
    send(channel,"<color navy,silver>＜ゲームを開始します＞");
    newGame();
    draw();
    end=0;
   }
   if(cmd.search(/^matta$/i)!=-1){
    if(matta_ok==1){
     send(channel,"<color navy,silver>＜\"待った\"しました＞");
     copyArr21();
     turnChange()
     draw();
     end=0;
     matta_ok=0;
    }else{
     send(channel,"<color navy,silver>＜\"待った\"できません＞");
    }
   }
  }
 }
}

function newGame(){
 turn=0;
 for(ix=0;ix<8;ix++){
  for(iy=0;iy<8;iy++){
   data[(ix)*8+(iy)] = 0;
  }
 }
 data[(3)*8+(3)]=1; //1黒？
 data[(4)*8+(4)]=1; //2白
 data[(4)*8+(3)]=2;
 data[(3)*8+(4)]=2;
}
function draw(){
 send(channel_g,"<color white,white>,/<color gray,white>1<color white,white>,,<color gray,white>2<color white,white>,,<color gray,white>3<color white,white>,,<color gray,white>4<color white,white>,,<color gray,white>5<color white,white>,,<color gray,white>6<color white,white>,,<color gray,white>7<color white,white>,,<color gray,white>8");
 for(iy=0;iy<8;iy++){
  str="";
  str+="<color gray,white>"+(iy+1);
  for(ix=0;ix<8;ix++){
   
   if(data[(ix)*8+(iy)]==0){
    if(putable(ix,iy)==0){
     str+=""+"<color green,green>.<color black,green>・<color green,green>.";
    }else{
     str+=""+"<color green,green>.<color red,green>・<color green,green>."
    }
   }
   if(data[(ix)*8+(iy)]==1){
    str+=""+"<color black,green>●";
   }
   if(data[(ix)*8+(iy)]==2){
    str+=""+"<color white,green>●";
   }
  }
  if(iy==5){
   str+="<color>  balck "+black_n();
  }
  if(iy==6){
   str+="<color>  white "+white_n();
  }
  if(iy==7){
   if(turn==0){
   str+="<color>  黒の番です";
   }else{
   str+="<color>  白の番です";
   }
  }
  send(channel_g,str);
 }
}

function black_n(){
 amount=0;
 for(i=0;i<64;i++){
  if(data[i]==1){
   amount++;
  }
 }
 return(amount);
}

function white_n(){
 amount=0;
 for(i=0;i<64;i++){
  if(data[i]==2){
   amount++;
  }
 }
 return(amount);
}

function putable(x,y){
 rr=0;
 if(data[(x)*8+(y)]==0){
  if(turn==0){
   a1=2;
   a2=1;
  }else{
   a1=1;
   a2=2;
  }
  if(x!=0&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y-m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x-m)*8+(y-m)]==0){
     break;
    }
    if(x-m==0||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y-m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x)*8+(y-m)]==0){
     break;
    }
    if(y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y-m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x+m)*8+(y-m)]==0){
     break;
    }
    if(x+m==7||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x+m)*8+(y)]==0){
     break;
    }
    if(x+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y+m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x+m)*8+(y+m)]==0){
     break;
    }
    if(x+m==7||y+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y+m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x)*8+(y+m)]==0){
     break;
    }
    if(y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y+m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x-m)*8+(y+m)]==0){
     break;
    }
    if(x-m==0||y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x-m)*8+(y)]==0){
     break;
    }
    if(x-m==0){
     break;
    }
    m++;
   
   }
  }
 }
 return(rr);
}

function put(x,y){
  if(turn==0){
   a1=2;
   a2=1;
  }else{
   a1=1;
   a2=2;
  }
  if(x!=0&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y-m)]==a2){
     if(a==1){lineChange(x,y,x-m,y-m);}
     break;
    }
    if(data[(x-m)*8+(y-m)]==0){
     break;
    }
    if(x-m==0||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y-m)]==a2){
     if(a==1){lineChange(x,y,x,y-m);}
     break;
    }
    if(data[(x)*8+(y-m)]==0){
     break;
    }
    if(y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y-m)]==a2){
     if(a==1){lineChange(x,y,x+m,y-m);}
     break;
    }
    if(data[(x+m)*8+(y-m)]==0){
     break;
    }
    if(x+m==7||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y)]==a2){
     if(a==1){lineChange(x,y,x+m,y);}
     break;
    }
    if(data[(x+m)*8+(y)]==0){
     break;
    }
    if(x+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y+m)]==a2){
     if(a==1){lineChange(x,y,x+m,y+m);}
     break;
    }
    if(data[(x+m)*8+(y+m)]==0){
     break;
    }
    if(x+m==7||y+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y+m)]==a2){
     if(a==1){lineChange(x,y,x,y+m);}
     break;
    }
    if(data[(x)*8+(y+m)]==0){
     break;
    }
    if(y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y+m)]==a2){
     if(a==1){lineChange(x,y,x-m,y+m);}
     break;
    }
    if(data[(x-m)*8+(y+m)]==0){
     break;
    }
    if(x-m==0||y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y)]==a2){
     if(a==1){lineChange(x,y,x-m,y);}
     break;
    }
    if(data[(x-m)*8+(y)]==0){
     break;
    }
    if(x-m==0){
     break;
    }
    m++;
   
   }
  }
}

function lineChange(x1,y1,x2,y2){
 if(turn==0){
  a=1;
 }else{
  a=2;
 }
 mx=0
 my=0
 while(1){
  data[(x1+mx)*8+(y1+my)]=a;
  if(x2==x1+mx&&y2==y1+my){break;}
  if(x2-x1>0){mx++;}
  if(x2-x1<0){mx--;}
  if(y2-y1>0){my++;}
  if(y2-y1<0){my--;}
 }
}

function numberOfPutable(){
 amount=0;
 for(ix=0;ix<8;ix++){
  for(iy=0;iy<8;iy++){
   if(putable(ix,iy)==1){amount++;}
  }
 }
 //send(channel_g,""+amount);
 return(amount);
}

function turnChange(){
 if(turn==0){
  turn=1;
 }else{
  turn=0;
 }
}
matta_ok=0;
function copyArr12(){
 matta_ok=1;
 for(i=0;i<64;i++){
  data2[i]=data[i];
 }
}
function copyArr21(){
 for(i=0;i<64;i++){
   data[i]=data2[i];
 }
}

ケンタッキーフライドチキンについて

時々ケンタッキーを食べる機会が自分にはあります。

個人的にケンタッキーを目の前にするとテンション上がります。


だって、おいしいじゃないですか。^^


ただ、鳥をミンチとかにせずそのままカットして揚げているので
それぞれ肉に、ばらつきあったりしますよね。


何でも　ウィング　サイ　キール　ドラム　リブ　の五種類があるそうです。


やっぱり一番大きな肉が食べたいですよね。


なんとケンタッキーでは部位が選択できる　かも　なのです。

（部位を指定して買えるか。　に対して）「ご来店時に、ご相談ください。
少数であれば、その時の商品の状況によって、お受けできる場合もありますので、
ご来店の際にご相談ください。
なお、必ずご希望にそえるということではございませんのでご了承願います。
」

だそうです。

リブ　10個！！　とか無理そうですけど　常識の範囲内であれば　偏った注文もできそうです。

勝手な推測ですが、"オリジナルチキン" 5ピース　を頼めば、　上で言った　
五種類全部　"かぶり"なしで買えるんでしょうかね？

個人的にドラムとリブは苦手なので、　、"オリジナルチキン" 4ピース ドラムとリブはなしで　と言う注文がしたいですね。

食べ物の話をしていると、おなかが減ってきました。。。　そんなこんなで　I love KFC.

文字列を延々と歪ませる ピクセル間 補正 有り

文字列を延々と歪ませる ピクセル間 補正 有り。
この前のは変形するたびに、汚くなっていったので　ピクセル間で補正してみました。

+ expand sourceview plainprint?

1. #module  
2. #uselib "gdi32.dll"  
3. #func GetTextExtentPoint32 "GetTextExtentPoint32A" int,int,int,int  
4. #deffunc messize var tBuf,array tSize  
5. notesel tBuf  
6. repeat notemax  
7. noteget tBuf2,cnt  
8.  tBuf3=tBuf2  
9.  txtLen=strlen(tBuf3)  
10.  dim tSize,2  
11.  GetTextExtentPoint32 hdc,varptr(tBuf3),txtLen,varptr(tSize)  
12.  if cnt=0:x=tSize(0)  
13.  if x<tSize(0):x=tSize(0)  
14.  loop  
15.  tSize(0)=x  
16.  tSize(1)=tSize(1)*notemax  
17.  return  
18. #global  
19.   
20. #include "hspmath.as"  
21. #define ctype stogx(%1) (( (%1)-offsetx )*(bai)+ginfo_winx/2)  
22. #define ctype stogy(%1) (((%1)-offsety )*(-1.0)*(bai)+ginfo_winy/2)   
23. #define e 2.718281828459045235360287471352   
24. #define pi 3.1415926535897932384626433832795028841971  
25. bai=1.0       //表示倍率  
26. offsetx=0      //表示中心 X  
27. offsety=0      //表示中心 Y  
28. randomize  
29. title "文字列を延々と歪ませる ピクセル間補正有り"  
30. onexit *exit  
31. goto *sake  
32. *exit  
33.  end  
34. *sake  
35.   
36. screen 3  
37.   
38. skx=-320.0  
39. sky=-240.0  
40. smx=320.0  
41. smy=240.0  
42.   
43. dialog ".bmp;*.jpg",16,""  
44. if stat!=0{  
45. picload refstr,1  
46.   
47.   
48.   
49. color 255,128,128  
50. }else{color 128,128,128}  
51. repeat  
52. x+=30  
53. line x,-1,x,ginfo_winy  
54. if x>ginfo_winx:break  
55. loop  
56.   
57. repeat  
58. y+=30  
59. line -1,y,ginfo_winx,y  
60. if y>ginfo_winy:break  
61. loop  
62.   
63.   
64. font "",50  
65.   
66. buf=""  
67.   
68. repeat 8  
69. f=rnd(2)  
70. buf+=strf("%c",f*(rnd(26)+65)+(f!1)*(rnd(26)+97))  
71. loop  
72. messize Buf,textSize  
73.   
74. pos stogx(-textSize(0)/2)-1,stogy(-textSize(1)/2)-1  
75. color 255,255,255  
76. mes buf  
77. pos stogx(-textSize(0)/2)-1,stogy(-textSize(1)/2)+1  
78. color 255,255,255  
79. mes buf  
80. pos stogx(-textSize(0)/2)+1,stogy(-textSize(1)/2)-1  
81. color 255,255,255  
82. mes buf  
83. pos stogx(-textSize(0)/2)+1,stogy(-textSize(1)/2)+1  
84. color 255,255,255  
85. mes buf  
86.   
87. pos stogx(-textSize(0)/2),stogy(-textSize(1)/2)  
88. color 0,0,0  
89. mes buf  
90.   
91. gsel 0,1  
92.   
93.   
94. repeat   
95.   
96. x_=skx  
97. y_=sky  
98. xx=0  
99. yy=0  
100. ox=1.0*rnd(300)-150  
101. sx=1.0*rnd(60)+5  
102. bx=1.0*rnd(100)+5  
103. rad=1.0*rnd(360)*pi/180  
104.   
105. repeat  
106. x__=x_*cos(rad)-y_*sin(rad)  
107. y__=x_*sin(rad)+y_*cos(rad)  
108. x=x__*cos(rad)+(1.0/(pow(e,(x__-ox)/sx)+pow(e,-(x__-ox)/sx))*bx+y__)*sin(rad)  
109. y=-x__*sin(rad)+(1.0/(pow(e,(x__-ox)/sx)+pow(e,-(x__-ox)/sx))*bx+y__)*cos(rad)  
110.   
111. gsel 3  
112. pget stogx(x),stogy(y)  
113. r1=ginfo_r  
114. g1=ginfo_g  
115. b1=ginfo_b  
116. pget stogx(x-1),stogy(y)  
117. r2=ginfo_r  
118. g2=ginfo_g  
119. b2=ginfo_b  
120. pget stogx(x),stogy(y-1)  
121. r3=ginfo_r  
122. g3=ginfo_g  
123. b3=ginfo_b  
124. pget stogx(x-1),stogy(y-1)  
125. r4=ginfo_r  
126. g4=ginfo_g  
127. b4=ginfo_b  
128.   
129. xt=1*x  
130. if x>0:xt+=1  
131. yt=1*y  
132. if y>0:yt+=1  
133. xx=1.0*xt-x  
134. yy=1.0*yt-y  
135.   
136. r=((1.0-xx)*(1.0-yy))*r1+((xx)*(1.0-yy))*r2+((1.0-xx)*yy)*r3+(xx*yy)*r4  
137. g=((1.0-xx)*(1.0-yy))*g1+((xx)*(1.0-yy))*g2+((1.0-xx)*yy)*g3+(xx*yy)*g4  
138. b=((1.0-xx)*(1.0-yy))*b1+((xx)*(1.0-yy))*b2+((1.0-xx)*yy)*b3+(xx*yy)*b4  
139.   
140.   
141. gsel 0  
142. color r,g,b  
143. pset stogx(x_),stogy(y_)  
144.   
145. x_+  
146. if x_>=smx:x_=skx:y_+:if y_>=smy:y_=sky:break  
147.   
148. wait 0  
149. loop  
150. gsel 3  
151. gmode 0,640,480,0  
152. pos 0,0  
153. gcopy 0,0,0,640,480  
154.   
155. loop  

#module
#uselib "gdi32.dll"
#func GetTextExtentPoint32 "GetTextExtentPoint32A" int,int,int,int
#deffunc messize var tBuf,array tSize
notesel tBuf
repeat notemax
noteget tBuf2,cnt
 tBuf3=tBuf2
 txtLen=strlen(tBuf3)
 dim tSize,2
 GetTextExtentPoint32 hdc,varptr(tBuf3),txtLen,varptr(tSize)
 if cnt=0:x=tSize(0)
 if x<tSize(0):x=tSize(0)
 loop
 tSize(0)=x
 tSize(1)=tSize(1)*notemax
 return
#global

#include "hspmath.as"
#define ctype stogx(%1) (( (%1)-offsetx )*(bai)+ginfo_winx/2)
#define ctype stogy(%1) (((%1)-offsety )*(-1.0)*(bai)+ginfo_winy/2) 
#define e 2.718281828459045235360287471352 
#define pi 3.1415926535897932384626433832795028841971
bai=1.0       //表示倍率
offsetx=0      //表示中心 X
offsety=0      //表示中心 Y
randomize
title "文字列を延々と歪ませる ピクセル間補正有り"
onexit *exit
goto *sake
*exit
 end
*sake

screen 3

skx=-320.0
sky=-240.0
smx=320.0
smy=240.0

dialog ".bmp;*.jpg",16,""
if stat!=0{
picload refstr,1



color 255,128,128
}else{color 128,128,128}
repeat
x+=30
line x,-1,x,ginfo_winy
if x>ginfo_winx:break
loop

repeat
y+=30
line -1,y,ginfo_winx,y
if y>ginfo_winy:break
loop


font "",50

buf=""

repeat 8
f=rnd(2)
buf+=strf("%c",f*(rnd(26)+65)+(f!1)*(rnd(26)+97))
loop
messize Buf,textSize

pos stogx(-textSize(0)/2)-1,stogy(-textSize(1)/2)-1
color 255,255,255
mes buf
pos stogx(-textSize(0)/2)-1,stogy(-textSize(1)/2)+1
color 255,255,255
mes buf
pos stogx(-textSize(0)/2)+1,stogy(-textSize(1)/2)-1
color 255,255,255
mes buf
pos stogx(-textSize(0)/2)+1,stogy(-textSize(1)/2)+1
color 255,255,255
mes buf

pos stogx(-textSize(0)/2),stogy(-textSize(1)/2)
color 0,0,0
mes buf

gsel 0,1


repeat 

x_=skx
y_=sky
xx=0
yy=0
ox=1.0*rnd(300)-150
sx=1.0*rnd(60)+5
bx=1.0*rnd(100)+5
rad=1.0*rnd(360)*pi/180

repeat
x__=x_*cos(rad)-y_*sin(rad)
y__=x_*sin(rad)+y_*cos(rad)
x=x__*cos(rad)+(1.0/(pow(e,(x__-ox)/sx)+pow(e,-(x__-ox)/sx))*bx+y__)*sin(rad)
y=-x__*sin(rad)+(1.0/(pow(e,(x__-ox)/sx)+pow(e,-(x__-ox)/sx))*bx+y__)*cos(rad)

gsel 3
pget stogx(x),stogy(y)
r1=ginfo_r
g1=ginfo_g
b1=ginfo_b
pget stogx(x-1),stogy(y)
r2=ginfo_r
g2=ginfo_g
b2=ginfo_b
pget stogx(x),stogy(y-1)
r3=ginfo_r
g3=ginfo_g
b3=ginfo_b
pget stogx(x-1),stogy(y-1)
r4=ginfo_r
g4=ginfo_g
b4=ginfo_b

xt=1*x
if x>0:xt+=1
yt=1*y
if y>0:yt+=1
xx=1.0*xt-x
yy=1.0*yt-y

r=((1.0-xx)*(1.0-yy))*r1+((xx)*(1.0-yy))*r2+((1.0-xx)*yy)*r3+(xx*yy)*r4
g=((1.0-xx)*(1.0-yy))*g1+((xx)*(1.0-yy))*g2+((1.0-xx)*yy)*g3+(xx*yy)*g4
b=((1.0-xx)*(1.0-yy))*b1+((xx)*(1.0-yy))*b2+((1.0-xx)*yy)*b3+(xx*yy)*b4


gsel 0
color r,g,b
pset stogx(x_),stogy(y_)

x_+
if x_>=smx:x_=skx:y_+:if y_>=smy:y_=sky:break

wait 0
loop
gsel 3
gmode 0,640,480,0
pos 0,0
gcopy 0,0,0,640,480

loop