탈것 펑션

Func 탈것펑션 {
 set @id, myid();
 set @sd, mysd();
 if($riding == 1) { end; }
 if(get_state(@sd) == 3)
 {
  message @sd, 3, "말을 타곤 할 수 없습니다.";
  return;
 }
 if(get_state(@sd) != 0 || magic_aethered(@sd, name2spellid("초상비")))
 {
  message @sd, 3, "말을 탈 수 없습니다.";
  return;
 }

 set $riding, 1;
 set_riding @sd, getarg(0);
 set_speed @sd, getarg(1);
 set_state @sd, 3;

 message @sd, 5, "<기능> F2 단축키를 누르면, 말에서 내릴 수 있습니다.";
 message @sd, 3, "말을 탔습니다.";

 while(1)
 {
  if(get_state(@sd) != 3) { break; }
  sleep(1000);
 }

 set $riding, 0;
 set_speed @sd, 40;
 message @sd, 3, "말에서 내렸습니다.";
 return;
}