기타 천년 선물상자 스크립트

unit [이벤트]선물상자1;

interface
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnDblClick(aStr : String);

implementation

procedure OnDblClick(aStr : String);
var
   Str, Name, item : String;
begin
Name := callfunc ('getsendername');
if Name = '아리아' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '사마녀' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '깡만왕' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '비타민' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '유비' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '가막살나무' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '절망' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '地' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '달나라토끼' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '색동' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '던힐' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '사또' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '이온유내꼬' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '스미스' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '꼬마' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '왕고추' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = 'VVIP' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = 'ToP' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '로맨스' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '서린' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = 'HERA' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '조조' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '노찌룡' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '보살' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '봄' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '산다라박' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '독백' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '라백구' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '여우' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '클리토리스' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '칼리토리스' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '컬리토리스' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '기시노' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '진월' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '씹툴어진년' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '씽' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '싱글' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '갈색물고기' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '레노' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '멍게구름' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '도신' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '야릇' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '달빛따라' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '신드래곤' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '원츄' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '시넌군' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = '달자' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
if Name = 'Chu' then begin
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 0');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
exit;
end;
      print ('getsenderitem 이벤선물상자1:1');
      print('sendsenderchatmessage 선물상자를_사용하셨습니다. 1');
      item := callfunc ('getrandomitem 1');   
      Str := 'putsendermagicitem ' + item;
      Str := Str + ' @선물상자 4';
      print (Str);
      exit;
end;

end;
end.