시라소니
1906 시라소니

전체보기 (1580)

윳놀이 껴 (스트립트) 완성본
오퍼레이션 2017.11.25 13:57



김관   윳놀이 스트립트
애인과 연인과 부부와 즐겨요


좋아요공감 더 보기
· 답글 달기 · 방금관리.




김관




김관   컴퓨터 껴와


좋아요공감 더 보기
· 답글 달기 · 방금
완성품

AUTO 1,(000001.1)

000001 USINPR "|||||----------------------------------------------------------------------------------------------------------|||||"
000002 USINPR "|||||----------------------------------------------------------------------------------------------------------|||||"
000003 USINPR "|||||----------------------------------------------------------------------------------------------------------|||||"
000004 USINPR "|||||                                                                                                                                                                                                                   |||||"
000005 USINPR "|||||     **************             **************             **************               **************               **************     |||||"                       
000006 USINPR "|||||     **************             **************             **************               **************               **************     |||||"        
000007 USINPR "|||||     **                   **             **                   **             **                   **               **                   **               **                   **     |||||"         
000008 USINPR "|||||     **                   **             **                   **             **             **               **                   **               **   모($)     **     |||||"                 
000009 USINPR "|||||     **                   **             **                   **             **                   **               **                   **               **                   **     |||||"        
000010 USINPR "|||||     **                   **             **                   **             **                   **               **                   **               **                   **     |||||"        
000011 USINPR "|||||     **************             **************             **************               **************               **************     |||||"        
000012 USINPR "|||||     **************             **************             **************                 **************             **************     |||||"
000013 USINPR "|||||                                                                                                                                                                                                                   |||||"
000014 USINPR "|||||                                                                                                                                                                                                                   |||||"
RANDOM RANGE INKEY PRINT=(RR)
RANDOM RANGE INKEY PRINT=(HH)
RANDOM RANGE INKEY PRINT=(KL)
RANDOM RANGE INKEY PRINT=(BM)
RANDOM RANGE INKEY PRINT=(CC)
RANDOM RANGE INKEY PRINT=(KK)
RANDOM RANGE INKEY PRINT=(PK)
RANDOM RANGE INKEY PRINT=(YU)
RANDOM RANGE INKEY PRINT=(GG)
RANDOM RANGE INKEY PRINT=(SS)
RANDOM RANGE INKEY PRINT=(RT)
RANDOM RANGE INKEY PRINT=(FG)
RANDOM RANGE INKEY PRINT=(BK)
RANDOM RANGE INKEY PRINT=(JOKW)
RANDOM RANGE INKEY PRINT=(BN)
RANDOM RANGE INKEY PRINT=(LOL)
RANDOM RANGE INKEY PRINT=(HK)
RANDOM RANGE INKEY PRINT=(SEL)
RANDOM RANGE INKEY PRINT=(PK)
RANDOM RANGE INKEY PRINT=(KJ)

엔진까지 완성품
IF 4=RR($)+HH($)+KL($)+BM($) THAN GO TO LOCATION=(SET) AND PRINT"윷"
IF 0=RR($)+HH($)+KL($)+BM($) THAN GO TO LOCATION=(SET) AND PRINT"모"
IF 1=RR($)+HH($)+KL($)+BM($) THAN GO TO LOCATION=(SET) AND PRINT"도"
IF 2=RR($)+HH($)+KL($)+BM($) THAN GO TO LOCATION=(SET) AND PRINT"개"
IF 3=RR($)+HH($)+KL($)+BM($) THAN GO TO LOCATION=(SET) AND PRINT"걸"
                         ************   ************   ************   ************   ************                ||"
000116 LOCATION USINPR "||                               ************   ************   ************   ************   ************                ||"
000117 LOCATION USINPR "||                               **               **   **               **   **               **   **               **   **               **                             ||"                               
000118 LOCATION USINPR "||                               **"(/KL/)"**   **"(/PK/)"**   **"(/RT/)"**   **"(/GW/)"**   **"(/BN/)"**                ||"                                       
000119 LOCATION USINPR "||                               **               **   **               **   **               **   **               **   **               **                ||"
000120 LOCATION USINPR "||                               **               **   **               **   **               **   **               **   **               **                ||"                                   
000121 LOCATION USINPR "||                               ************   ************   ************   ************   ************                             ||"                                                                                     
000122 LOCATION USINPR "||                               ************   ************   ************   ************   ************                  ||"
000123 LOCATION USINPR "||                               ************   ************   ************   ************   ************                ||"
000124 LOCATION USINPR "||                               ************   ************   ************   ************   ************                ||"
000125 LOCATION USINPR "||                               **               **   **               **   **               **   **               **   **               **                ||"
000126 LOCATION USINPR "||                               **"(/BM/)"**   **"(/YU/)"**   **"(/FG/)"**   *"(/SEL/)"**   ** "/LOL/"**                ||"
000127 LOCATION USINPR "||                               **               **   **               **   **               **   **               **   **               **                ||"
000128 LOCATION USINPR "||                               **               **   **               **   **               **   **               **   **               **                ||"
000129 LOCATION USINPR "||                               ************   ************   ************   ************   ************                ||"
000130 LOCATION USINPR "||                               ************   ************   ************   ************   ************                  ||"
000131 LOCATION USINPR "||=========================================================================================
000033 USINPR "|||||                 *                                                                   *           *               *                                                                           *                 |||||"
000034 USINPR "|||||     **************             **************             ***************             ***************                   **************     |||||"                       
000035 USINPR "|||||     **************             **************             **************               ***************                   **************     |||||"         
000036 USINPR "|||||     **                   **             **                   **             **                   **               **                     **                   **                   **     |||||"     
000037 USINPR "|||||     **                   **             **                   **             **                   **               **                     **                   **     걸($)   **     |||||"         
000038 USINPR "|||||     **                   ***********                   ***********                   ************                     **                   **                   **     |||||"         
000039 USINPR "|||||     **                   **             **                   **             **                   **               **                     **                   **                   **     |||||"         
000040 USINPR "|||||     **************             **************             **************               ***************                   **************     |||||"         
000041 USINPR "|||||     **************           **************             **************                 ***************                   **************     |||||"
000042 USINPR "|||||                 *                                                                     *         *               *                         *                                               *                 |||||"
000043 USINPR "|||||                 *                                                                   *           *                 *                       *                                               *                 |||||"
SET(모)={RR($)+HH($)+(KL)$+(BM)}-[{JOK($)+HK($)+BN($)+LOL($)}]

SET(4모)={RR($)+HH($)+(KL)$+(BM)}
SET(0윷)={RR($)+HH($)+(KL)$+(BM)}
SET(1도)={RR($)+HH($)+(KL)$+(BM)}
SET(2개)={RR($)+HH($)+(KL)$+(BM)}
SET(3걸)={RR($)+HH($)+(KL)$+(BM)}
옵션은 차후에 선택으로
000032 USINPR "|||||                 *                                                                 *             *                 *                                                                         *                 |||||"
000033 USINPR "|||||                 *                                                                   *           *               *                                                                           *                 |||||"
000034 USINPR "|||||     **************             **************             ***************             ***************                   **************     |||||"                       
000035 USINPR "|||||     **************             **************             **************               ***************                   **************     |||||"         
000036 USINPR "|||||     **[{("OP")}]**             **[{("OP")}]**             **[{("OP")}]**               **[{("OP")}] **                   **[{("OP")}]**     |||||"     
000037 USINPR "|||||     **                   **             **                   **             **                   **               **                     **                   **     걸($)   **     |||||"         
000038 USINPR "|||||     **                   ***********                   ***********                   ************                     **                   **[{("OW")}]**     |||||"         
000039 USINPR "|||||     **[{("OW")}]**             **[{("OW")}]**             **[{("OW")}]**               **[{("OW")}] **                   **                   **     |||||"         
000040 USINPR "|||||     **************             **************             **************               ***************                   **************     |||||"         
000041 USINPR "|||||     **************           **************             **************                 ***************                   **************     |||||"
000042 USINPR "|||||                 *                                                                     *         *               *                         *                                               *                 |||||"
000043 USINPR "|||||                 *                                                                   *           *                 *                       *                                               *                 |||||"
000044 USINPR "|||||                 *                                                                 *             *                   *                     *                                               *                 |||||"
000045 USINPR "|||||                 *                                                               *               *                     *                   *                                               *                 |||||"
000046 USINPR "|||||                 *                                                             *                 *                       *                 *                                               *                 |||||"
000047 USINPR "|||||                 *                                                           *                   *                         *               *                                               *                 |||||"
000048 USINPR "|||||                 *                                                         *                     *                           *             *                                               *                 |||||"
000049 USINPR "|||||                 *                                                       *                       *                             *           *                                               *                 |||||"
000050 USINPR "|||||     **************             **************             **************               **************                     **************     |||||"                       
000051 USINPR "|||||     **************             **************             **************               **************                     **************     |||||"         
000052 USINPR "|||||     **OP[{("")}]**             **[{("OP")}]**             **[{("OP")}]**               **[{("OP")}]**                     **                   **     |||||"         
000053 USINPR "|||||     **OW[{("")}]**             **[{("OW")}]**             **                   **               **                   **                     **     개($)   **     |||||"         
000054 USINPR "|||||     **                   ***********                   **             **                   **               **                   **                     **[{("OP")}]**     |||||"         
000055 USINPR "|||||     **                   **             **                   **             **[{("OW")}]**               **[{("OW")}]**                     **[{("OW")}]**     |||||"         
000056 USINPR "|||||     **************             **************             **************               **************                     **************     |||||"         
000057 USINPR "|||||     **************           **************             **************                 **************                   **************     |||||"
000018 USINPR "|||||                 *                         *                                                     *                                                               *                           *                 |||||"
000019 USINPR "|||||     **************             **************             **************               ****************                 **************     |||||"                           
000020 USINPR "|||||     **************             **************             **************               ****************                 **************     |||||"        
000021 USINPR "|||||     **[{("OP")}]**             **[{("OP")}]**             **[{("OP")}]**               **[{("OP")}]   **                 ** LOAD 3     **     |||||"        
000022 USINPR "|||||     **"LOAD 12"                   **"LOAD 11" **             **"LOAD 10" **               ** "LOAD 9"     **                 **     윷($)   **     |||||"        
000023 USINPR "|||||     **                   **             **                   **             **                   **               **                       **                 **[{("OP")}]**     |||||"        
000024 USINPR "|||||     **[{("OW")}]**             **[{("OW")}]**             **[{("OW")}]**               **[{("OW")}]   **                 **[{("OW")}]**     |||||"        
000025 USINPR "|||||     **************             **************             **************               ****************                 **************     |||||"        
000026 USINPR "|||||     **************           **************             **************                 ****************                   **************     |||||"
000027 USINPR "|||||                 *                                                       *                       *                           *                                                               *                 |||||"
000028 USINPR "|||||                 *                                                         *                     *                         *                                                                 *                 |||||"
000029 USINPR "|||||                 *                                                           *                   *                       *                                                                   *                 |||||"
000030 USINPR "|||||                 *                                                             *                 *                     *                                                                     *                 |||||"
000031 USINPR "|||||                 *                                                               *               *                   *                                                                       *                 |||||"
000032 USINPR "|||||                 *                                                                 *             *                 *                                                                         *                 |||||"
000033 USINPR "|||||                 *                                                                   *           *               *                                                                           *                 |||||"
000034 USINPR "|||||     **************             **************             ***************             ***************                   **************     |||||"                       
000035 USINPR "|||||     **************             **************             **************               ***************                   **************     |||||"         
000036 USINPR "|||||     **[{("OP")}]**             **[{("OP")}]**             **[{("OP")}]**               **[{("OP")}] **                   **[{("OP")}]**     |||||"     
000037 USINPR "|||||     **"LOAD 13" **             **"LOAD 14" **             **"LOAD 15" **               **"LOAD 16"   **                   **     걸($)   **     |||||"         
000038 USINPR "|||||     **                   ***********                   ***********                   ************                     **                   **[{("OW")}]**     |||||"         
000039 USINPR "|||||     **[{("OW")}]**             **[{("OW")}]**             **[{("OW")}]**               **[{("OW")}] **                   ** "LOAD 2" **     |||||"         
000040 USINPR "|||||     **************             **************             **************               ***************                   **************     |||||"         
000041 USINPR "|||||     **************           **************             **************                 ***************                   **************     |||||"
000042 USINPR "|||||                 *                                                                     *         *               *                         *                                               *                 |||||"
000043 USINPR "|||||                 *                                                                   *           *                 *                       *                                               *                 |||||"
[{("OP")}]=([OP])
MOVE RANGE[{("OP")}]=[{("OP")}]-MOVE POINT ()-1,()


[{("OW")}]=[OW()]
LOCATION MOVE=[{("OP")}]
LOCATION MOVE=[{("OW")}]

IF -1=RR($)+HH($)+KL($)+BM($)=[{("OP")}] THAN LOCATION MOVE=([{"OP"}]),(MOVE POINT=[-100])
IF 4=RR($)+HH($)+KL($)+BM($)=[{("OP")}] THAN LOCATION MOVE=[{("OP")}],(MOVE POINT=[400])
IF 0=RR($)+HH($)+KL($)+BM($)=[{("OP")}] THAN LOCATION MOVE=[{("OP")}],(MOVE POINT=[500])
IF 1=RR($)+HH($)+KL($)+BM($)=[{("OP")}] THAN LOCATION MOVE=[{("OP")}],(MOVE POINT=[100])
IF 2=RR($)+HH($)+KL($)+BM($)=[{("OP")}] THAN LOCATION MOVE=[{("OP")}],(MOVE POINT=[200])
IF 3=RR($)+HH($)+KL($)+BM($)=[{("OP")}] THAN LOCATION MOVE=[{("OP")}],(MOVE POINT=[300])
장인은 못돼도 기사는 초등학교 6학년 때 끝났다.
MOVE POINT LOAD 0=(S),(E)
MOVE POINT LOAD 1=(),()
MOVE POINT LOAD 2=(),()
MOVE POINT LOAD 3=(),()
MOVE POINT LOAD 4=(),()
MOVE POINT LOAD 5=(),()
MOVE POINT LOAD 6=(),()
MOVE POINT LOAD 7=(),()
MOVE POINT LOAD 8=(),()
MOVE POINT LOAD 9=(),()
MOVE POINT LOAD 10=(),()
MOVE POINT LOAD 11=(),()
MOVE POINT LOAD 12=(),()
MOVE POINT LOAD 13=(),()
MOVE POINT LOAD 14=(),()
MOVE POINT LOAD 15=(),()
MOVE POINT LOAD 16=(),()
MOVE POINT LOAD 17=(),()
MOVE POINT LOAD 18=(),()
MOVE POINT LOAD 19=(),()
MOVE POINT LOAD 20=(),()
MOVE POINT LOAD 21=(),()
MOVE POINT LOAD 22=(),()
MOVE POINT LOAD 23=(),()
MOVE POINT LOAD 24=(),()
MOVE POINT LOAD 0=(S),(E)
MOVE POINT LOAD 1=(),()
MOVE POINT LOAD 2=(),()
MOVE POINT LOAD 3=(),()
MOVE POINT LOAD 4=(),()
MOVE POINT LOAD 5=(),()
MOVE POINT LOAD 6=(),()
MOVE POINT LOAD 7=(),()
MOVE POINT LOAD 8=(),()
MOVE POINT LOAD 9=(),()
MOVE POINT LOAD 10=(),()
MOVE POINT LOAD 11=(),()
MOVE POINT LOAD 12=(),()
MOVE POINT LOAD 13=(),()
MOVE POINT LOAD 14=(),()
MOVE POINT LOAD 15=(),()
MOVE POINT LOAD 16=(),()
MOVE POINT LOAD 17=(),()
MOVE POINT LOAD 18=(),()
MOVE POINT LOAD 19=(),()
MOVE POINT LOAD 20=(),()
MOVE POINT LOAD 21=(),()
MOVE POINT LOAD 22=(),()
MOVE POINT LOAD 23=(),()
MOVE POINT LOAD 24=(),()
MOVE POINT LOAD 0=(S),(E)
MOVE POINT LOAD 1=(S),(E)
MOVE POINT LOAD 2=(S),(E)
MOVE POINT LOAD 3=(S),(E)
MOVE POINT LOAD 4=(S),(E)
MOVE POINT LOAD 5=(S),(E)
MOVE POINT LOAD 6=(S),(E)
MOVE POINT LOAD 7=(S),(E)
MOVE POINT LOAD 8=(S),(E)
MOVE POINT LOAD 9=(S),(E)
MOVE POINT LOAD 10=(S),(E)
MOVE POINT LOAD 11=(S),(E)
MOVE POINT LOAD 12=(S),(E)
MOVE POINT LOAD 13=(S),(E)
MOVE POINT LOAD 14=(S),(E)
MOVE POINT LOAD 15=(S),(E)
MOVE POINT LOAD 16=(S),(E)
MOVE POINT LOAD 17=(S),(E)
MOVE POINT LOAD 18=(S),(E)
MOVE POINT LOAD 19=(S),(E)
MOVE POINT LOAD 20=(S),(E)
MOVE POINT LOAD 21=(S),(E)
MOVE POINT LOAD 22=(S),(E)
MOVE POINT LOAD 23=(S),(E)
MOVE POINT LOAD 24=(S),(E)

IF "LOAD (0)"=(MOVE POINT(S)+(E))=(MOVE POINT([OP])) THAN MOVE POINT([OP])="((S)+500,(E)+500)"
IF "LOAD (0)"<>(MOVE POINT(S)+(E))=(MOVE POINT([OP])) THAN ROOP 000141
IF "LOAD (1)"=(MOVE POINT(S)+(E))=(MOVE POINT([OP])) THAN MOVE POINT([OP])="((S)+100,(E)+100)"
IF "LOAD (2)"=(MOVE POINT(S)+(E))=(MOVE POINT([OP])) THAN MOVE POINT([OP])="((S)+200,(E)+200)"
IF "LOAD (3)"=(MOVE POINT(S)+(E))=(MOVE POINT([OP])) THAN MOVE POINT([OP])="((S)+300,(E)+300)"
IF "LOAD (4)"=(MOVE POINT(S)+(E))=(MOVE POINT([OP])) THAN MOVE POINT([OP])="((S)+400,(E)+400)"

LOAD (6)=(LOAD (1))+(LOAD (0))
LOAD (7)=(LOAD (5))+(LOAD (1)+(LOAD (1))
LOAD (7)=(LOAD (5))+(LOAD (2)
LOAD (8)=(LOAD (5))+(LOAD (1)+(LOAD (1)+(LOAD (1)))
LOAD (8)=(LOAD (5))+(LOAD (2)+(LOAD (1))
LOAD (8)=(LOAD (5))+(LOAD (3))
등록
텍스티콘 텍스티콘
3454ERERTRET.zip (54 KB) 다운로드

'전체보기' 카테고리의 다른 글