동의소출비령 스크립트

item 동의소출 { //사용자
 set @sk, mysd();
 set @so, myid();
 image 1, 3092, 0;
 set @pos, list2(@list,0,0, "동의출두비령", "출두");
 if(@pos == 0) end;
 else if(@list == 1) {
 set @pos, input2(@id$, 0, 20, "상대방 아이디를 입력하세요.", "상대방 아이디는", "입니다.");
 }
 set @target_id, name2id(@id$);
 set @wo_sd, id2sd(@target_id);
 set #mysd, @wo_sd;
 if(@target_id == @so) { dialog 0,0,0, "자신에게는 사용이 불가능합니다"; end;}
 if(@wo_sd == 0 ) { dialog 0,0,0, "접속중인 유저에게만 출두가 가능합니다."; end;}
 set @pos, dialog(0, 1, 1, "상대방에게 동의메시지를 보냈습니다\n잠시만 기다려주세요");
 if (@pos == 0) end;
 set #sk, @sk;
 set #x, get_x(@target_id);
 set #y, get_y(@target_id);
 set #map, get_mapid(@wo_sd);
 sleep 1000;
 runscript @wo_sd, "동의소출2";
}
Script 동의소출2 {//대상자
 set @mysd, mysd();
 set @sk, #sk;
 set #wo, @mysd;

 set @pos, dialog(0, 0, 1, "" + get_name(@sk) + "님께서 당신에게 출두하기를 원하십니다.");
 if (! @pos) end;

 set @list, list1("동의하시겠습니까?","네", "아니오");
 if(@list == 1) {
          message @sk, 8, "" + get_name(@mysd) + "님에게 출두 되었습니다.";
   warp @sk, #map, #x,#y;
   delitem @sk, name2itemid("동의출두비령"), 1;
   set #map, 0;
   set #x, 0;
   set #y, 0;
   set #sk, 0;
   set #wo, 0;
   end;
   }
 if(@list == 2 ) {

 message @sk, 8, "거절 당하셨습니다.";
   set #map, 0;
   set #x, 0;
   set #y, 0;
   set #sk, 0;
   set #wo, 0;
   if(! @pos) end;
   }
 }