//처음 만들었던거에 비해 스크롤의 압박도 생겼고... 수정하기가 더 어려워 진것 같네요 -_-;;
//암튼 수정하실분은 mes구문안에 있는 내용을 바꿔 주시기 바랍니다..
//잘은모르겠지만서도.. 만드신분이.. 서버 리스하면.. 이것도 리스가된데요...^^;;
quiz_00.gat,69,24,3 script 설문조사npc 109,{
mes "[설문조사npc]";
mes "박호근은 대략 킹카다!";
mes "그렇게 생각치 않나?";
mes "ㅋㅋ..'';;";
mes "그렇다=1 그렇지 않다=2 기타=3 모른다=4 투표결과보기=5";
mes "다시투표하기 =6";
input @sulmoon;
next;
goto yes;
yes:
if(@sulmoon <= 0) goto error1;
if(@sulmoon == 1) goto one;
if(@sulmoon == 2) goto two;
if(@sulmoon == 3) goto thr;
if(@sulmoon == 4) goto for;
if(@sulmoon == 5) goto total;
if(@sulmoon == 6) goto rere;
if(@sulmoon >= 7) goto error;
one:
if(a_aaa == 1) goto Already;
if(a_aa == 2) goto Already;
if(a_a == 3) goto Already;
if(a == 4) goto Already;
set $sul,$sul+1;
set a_aaa,1;
set a_aa,2;
set a_a,3;
set a,4;
set x,1;
mes "[설문조사npc]";
mes "투표해 주어서 고맙네 ^^";
close;
two:
if(a_aaa == 1) goto Already;
if(a_aa == 2) goto Already;
if(a_a == 3) goto Already;
if(a == 4) goto Already;
set $sul1,$sul1+1;
set a_aaa,1;
set a_aa,2;
set a_a,3;
set a,4;
set x1,1
mes "[설문조사npc]";
mes "투표해 주어서 고맙네 ^^";
close;
thr:
if(a_aaa == 1) goto Already;
if(a_aa == 2) goto Already;
if(a_a == 3) goto Already;
if(a == 4) goto Already;
set $sul2,$sul2+1;
set a_aaa,1;
set a_aa,2;
set a_a,3;
set a,4;
set x2,1;
mes "[설문조사npc]";
mes "투표해 주어서 고맙네 ^^";
close;
for:
if(a_aaa == 1) goto Already;
if(a_aa == 2) goto Already;
if(a_a == 3) goto Already;
if(a == 4) goto Already;
set $sul3,$sul3+1;
set a_aaa,1;
set a_aa,2;
set a_a,3;
set a,4;
set x3,1;
mes "[설문조사npc]";
mes "투표해 주어서 고맙네 ^^";
close;
error:
if(a_aaa == 1) goto Already;
if(a_aa == 2) goto Already;
if(a_a == 3) goto Already;
if(a == 4) goto Already;
mes "[설문조사npc]";
mes "진지하게 못하겠는가!!";
mes "7이상의 숫자는 찍을수 없어!";
mes "다시한번 할 기회를 더 주겠네";
next;
mes "[설문조사npc]";
mes "[GM]SNAKE는 뷁이라네!";
mes "그렇게 생각치 않나?";
mes " ";
mes "그렇다=1 그렇지 않다=2 기타=3 모른다=4 투표결과보기=5";
mes "다시한번 투표하기 =6";
input @sulmoon;
next;
goto yes;
error1:
if(a_aaa == 1) goto Already;
if(a_aa == 2) goto Already;
if(a_a == 3) goto Already;
if(a == 4) goto Already;
mes "[설문조사npc]";
mes "0이하의 숫자는 찍을수 없다네~";
mes "다시 한번 할 기회를 주지";
next;
mes "[설문조사npc]";
mes "[GM]SNAKE는 뷁이라네!";
mes "그렇게 생각치 않나?";
mes " ";
mes "그렇다=1 그렇지 않다=2 기타=3 모른다=4 투표결과보기=5";
mes "다시한번 투표하기 =6";
input @sulmoon;
next;
goto yes;
rere:
mes "[설문조사npc]";
mes "다시한번 투표하겠다고?";
mes "그 전에 검사할게 있다네!";
mes "투표를 했는가의 여부네!";
next;
mes "[설문조사npc]";
mes "설문은...[1/4]";
next;
if(a_aaa == 0) goto nono;
mes "[설문조사npc]";
mes "설문은 한것 같군..";
next;
mes "[설문조사npc]";
mes "그다음 설문은...[2/4]";
next;
if(a_aa == 0) goto nono;
mes "[설문조사npc]";
mes "설문을 한것 같군..";
next;
mes "[설문조사npc]";
mes "그다음 설문은...[3/4]";
next;
if(a_a == 0) goto nono;
mes "[설문조사npc]";
mes "설문을 한것 같군..";
next;
mes "[설문조사npc]";
mes "그다음 설문은...[4/4]";
next;
if(a == 0) goto nono;
mes "[설문조사npc]";
mes "설문을 한것 같군..";
next;
mes "[설문조사npc";
mes "자 재투표를 위한 과정을 마쳤으니";
mes "재투표를 해볼까?";
next;
if(x == 1) goto sulb;
if(x1 == 1) goto sulbb;
if(x2 == 1) goto sulbbb;
if(x3 == 1) goto sulbbbb;
nono:
mes "[설문조사npc]";
mes "장난하나 지금?";
mes "투표도 안하고 다시하겠다는건가?";
mes "자꾸 장난치면 너의 살가죽을 벗겨서";
mes "똥구멍에 쑤셔 버릴 걸세!";
close;
sulb:
set a_aaa,a_aaa-1;
set a_aa,a_aa-1;
set a_a,a_a-1;
set a,a-1;
set x,x-1;
set $sul,$sul-1;
mes "[설문조사npc]";
mes "[GM]SNAKE는 뷁이라네!";
mes "그렇게 생각치 않나?";
mes " ";
mes "그렇다=1 그렇지 않다=2 기타=3 모른다=4 투표결과보기=5";
mes "다시한번 투표하기 =6";
input @sulmoon;
next;
goto yes;
sulbb:
set a_aaa,a_aaa-1;
set a_aa,a_aa-1;
set a_a,a_a-1;
set a,a-1;
set x1,x1-1;
set $sul1,$sul1-1;
mes "[설문조사npc]";
mes "[GM]SNAKE는 뷁이라네!";
mes "그렇게 생각치 않나?";
mes " ";
mes "그렇다=1 그렇지 않다=2 기타=3 모른다=4 투표결과보기=5";
mes "다시한번 투표하기 =6";
input @sulmoon;
next;
goto yes;
sulbbb:
set a_aaa,a_aaa-1;
set a_aa,a_aa-1;
set a_a,a_a-1;
set a,a-1;
set x2,x2-1;
set $sul2,$sul2-1;
mes "[설문조사npc]";
mes "[GM]SNAKE는 뷁이라네!";
mes "그렇게 생각치 않나?";
mes " ";
mes "그렇다=1 그렇지 않다=2 기타=3 모른다=4 투표결과보기=5";
mes "다시한번 투표하기 =6";
input @sulmoon;
next;
goto yes;
sulbbbb:
set a_aaa,a_aaa-1;
set a_aa,a_aa-1;
set a_a,a_a-1;
set a,a-1;
set x3,x3-1;
set $sul3,$sul3-1;
mes "[설문조사npc]";
mes "[GM]SNAKE는 뷁이라네!";
mes "그렇게 생각치 않나?";
mes " ";
mes "그렇다=1 그렇지 않다=2 기타=3 모른다=4 투표결과보기=5";
mes "다시한번 투표하기 =6";
input @sulmoon;
next;
goto yes;
Total:
mes "[설문조사npc]";
mes "'그렇다'을 선택한 사람은^ff0000" + $sul + "^000000명입니다";
mes "'그렇지않다'를 선택한 사람은^ff0000" + $sul1 + "^000000명 입니다.";
mes "'기타'을 선택한 사람은^ff0000" + $sul2 + "^000000명 입니다.";
mes "'모른다'를 선택한 사람은^ff0000" + $sul3 + "^000000명 입니다.";
close;
Already:
mes "[설문조사npc]";
mes "이미 투표를 했네 ^^";
close;
}
[출처] 라그나로크 참고용입니다 설문조사 |작성자 Wz 강냉이
'게임 관련 정보 > 라그나로크' 카테고리의 다른 글
11민블루시퍼에 관련 스크립트 (0) | 2012.12.01 |
---|---|
상점관련 참고용 스크립트 (0) | 2012.12.01 |
라그나로크 호문클루스 AI 설명 (0) | 2012.12.01 |
직업 코드 관련 번호 (0) | 2012.12.01 |
무적인 운영자 아이템 관련 설명 (0) | 2012.12.01 |