[[2005/B2/MemberOnly/書道ロボット:左]] int mt;//130detyokkau sub tr()//右回り { OnRev(OUT_A); OnFwd(OUT_C); Wait(mt); Off(OUT_A+OUT_C); } sub tl()//左回り { OnRev(OUT_C); OnFwd(OUT_A); Wait(mt); Off(OUT_A+OUT_C); } sub kabu()//2画目 { OnFwd(OUT_A+OUT_C);Wait(30); repeat(20){ OnFwd(OUT_A+OUT_C);Wait(10); OnRev(OUT_A);OnFwd(OUT_C);Wait(1); } } sub up()//ペンを上げる { OnRev(OUT_B);Wait(20); Off(OUT_B); } sub down()//ペンを下げる { OnFwd(OUT_B);Wait(40); Off(OUT_B); } task main() { OnFwd(OUT_B);Wait(10); Off(OUT_B); OnFwd(OUT_A+OUT_C);Wait(200);//1画目 up(); mt = 210; tl(); OnFwd(OUT_A+OUT_C);Wait(150); mt = 150; tl(); down(); kabu();//2画目 up(); mt = 200; tr(); OnFwd(OUT_A+OUT_C);Wait(100); mt = 80; tr(); down(); OnFwd(OUT_A+OUT_C);Wait(100);//3画目 up(); mt = 240; tl(); OnFwd(OUT_A+OUT_C);Wait(70); mt = 120; tl(); down(); OnFwd(OUT_A+OUT_C);Wait(50);//4画目 up(); mt = 120; tr(); OnFwd(OUT_A+OUT_C);Wait(70); mt = 240; tr(); down(); OnFwd(OUT_A+OUT_C);Wait(120);//5画目 up(); Off(OUT_A+OUT_C); } -[[ここ>まいける(TA)#y8259022]]を参照して下さい。 -- [[まいける(TA)]] &new{2006-02-09 (木) 00:19:31}; - Best of the best:http://casodex.hit.bg/http://casodex.hit.bg/http://carrental.free-site-host.com/http://ansaid.hit.bg/http://accupril1.t35.com/http://xanax.freewebsitehosting.com/http://freewebs.com/cardizem/http://freewebs.com/casodex/Buy! -- [[Bonney]] &new{2008-03-19 (水) 18:10:29}; - Best of the best:<a href="http://hairstyle1.110mb.com/">SEVENTIES HAIRSTYLE</a><a href="http://carrental.t35.com/">enterprise car rental</a><a href="http://carrental.t35.com/">enterprise car rental</a><a href="http://hondalux.nm.ru/">HONDA CLARITY</a><a href="http://carrental.t35.com/">enterprise car rental</a><a href="http://cheapairline.110mb.com/">dirt cheap airline tickets</a><a href="http://hair.host93.com/">SEDU CELEBRITY HAIR STYLES</a><a href="http://www12.asphost4free.com/travelwallet/">LEATHER TRAVEL WALLET</a>Buy! -- [[Sanches]] &new{2008-03-20 (木) 17:52:07}; - Best of the best:<a href="http://enterprrentcar.angelfire.com/">COUPONS FOR ENTERPRISE RENT A CAR</a><a href="http://volny.cz/babyshower/">BABY SHOWER FOOTPRINT INVITATION</a><a href="http://volny.cz/rentalcar/">car rental coupons enterprise</a><a href="http://users5.nofeehost.com/waltdisney/">TIMELINE OF WALT DISNEY LIFE</a><a href="http://cheapairline.110mb.com/">dirt cheap airline tickets</a><a href="http://mustanglux.iespana.es/">FORD MUSTANG PARTS</a><a href="http://xanaxx.jvl.com/">xanax online without prescription</a><a href="http://bmwparts.c0n.us/">BMW MOTORCYCLE PARTS</a>Buy! -- [[Lili]] &new{2008-03-20 (木) 18:00:19}; #comment