매 2시간마다 금화를 전해주는 스크립트

// 미츠가에의 작품입니다
// 뭐 대단한건 아니지만서리.. 재배포시에 주석 지우면 정말 가만히 안나둡니다
// 모르시는거나 에러나면 엠펠리움에 쪽지 주세요
// RB서버에 처음 테스트 완료했습니다.

prontera.gat,155,275,3 script 금화판매원 888,{
 mes "[금화 판매원]";
 mes "안녕하세요 확성기 판매원 미트라입니다";
 mes "'전쳇말' 을 하기 위해서는 확성기가 필요하답니다.";
 mes "확성기는 2시간에 50개에서 60개정도로 배포되요~";
 mes "저한테 구입하시면 됩니다~";
 next;
 if ($hamount == 0) goto noh;
 set @hcheck,rand(1,5);
 mes "[금화 판매원]";
 mes "한번에 구입하실수 있는 최고 수량은 3개 입니다";
 mes "현재 남은 제고량은 "+ $hamount +"";
 mes "다음 선택문은 한사람이 독점하는걸 막기 위함이니 양해해 주시기 바랍니다.";
 mes "" +@hcheck+ "를 선택해 주시기 바랍니다.";
 menu "1번",c1,"2번",c2,"3번",c3,"4번",c4,"5번",c5;
 
 c1:
 if(@hcheck == 1) goto buy;
 mes "틀렸습니다";
 mes "처음부터 다시해 주시기 바랍니다.";
 close;
 c2:
 if(@hcheck == 2) goto buy;
 mes "틀렸습니다";
 mes "처음부터 다시해 주시기 바랍니다.";
 close;
 c3:
 if(@hcheck == 3) goto buy;
 mes "틀렸습니다";
 mes "처음부터 다시해 주시기 바랍니다.";
 close;
 c4:
 if(@hcheck == 4) goto buy;
 mes "틀렸습니다";
 mes "처음부터 다시해 주시기 바랍니다.";
 close;
 c5:
 if(@hcheck == 5) goto buy;
 mes "틀렸습니다";
 mes "처음부터 다시해 주시기 바랍니다.";
 close;
 
buy:
 mes "[금화 판매원]";
 mes "살 수량을 써 주세요";
 mes "현재 남은 제고량은"+ $hamount +"개 입니다";
 mes "한번에 3개가 최고 수량입니다.";
 next;
 input @BH;
 next;
 mes "입력하신 숫자는 "+@BH+"입니다";
 next;
 
 
 if(@BH==1 ||@BH==2||@BH==3) goto buy2;
  mes "잘못 입력하셨습니다."; 
 close;
 
buy2:
 if(@BH>$hamount || @BH>3 ) goto over;
 if(zeny<(1000*@BH)) goto nozeny;
 getitem 671,@BH;
 set zeny,zeny-1000*@BH;
 set $hamount, $hamount - @BH;
 mes "거래가 완료되었습니다.";
 close;

over:
 mes "[금화 판매원]";
 mes "숫자가 3이 넘었거나";
 mes "입력하신 수량이 남은 수량 보다 많습니다";
 mes "다시 확인해주시기 바랍니다";
 mes "현재 남은 수량은 "+$hamount+"개 입니다";
 close;

nozeny:
 mes "[금화 판매원]";
 mes "꿰~에~~엑 돈이 모자라자나?";
 mes "내가 새라고 무시하는겨?!!";
 mes "워~워~ ";
close;

noh:
 mes "[금화 판매원]";
 mes "현재 남은 수량이 없내요.";
 mes "나중에 와봐요.";
 close;
 }
 
prontera.gat, 116,72,0 script Hamount -1,{

OnClock0000:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock0200:
 set $hamount,rand(5,15);
 Announce "[확성기 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock0400:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock0600:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock0800:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock1000:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock1200:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock1400:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock1600:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock1800:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock2000:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;
OnClock2200:
 set $hamount,rand(5,15);
 Announce "[금화 판매원]금화가 도착하였습니다~ 이번에 도착한 갯수는"+$hamount+"개 입니다~",8;
 End;

}

[출처] 매 2시간마다 금화를 배달해주는 금화판매원|작성자 Wz 강냉이