게임존 - 게임정보 커뮤니티 - 천년 선물상자 스크립트

기타게임 소스자료실 기타 ()

천년 선물상자 스크립트

- Hacker
- 2017.06.08 - 15:23 151

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.

이 게시물을..

소울워커(SoulWorker) 스팀 asm 스크립트잼과베이컨

9

Hacker

글쓴이의 서명작성글 감추기

댓글 쓰기 에디터 사용하기 닫기

view_headline 목록

SEARCH

천년 선물상자 스크립트

Hacker 님의 최근 글

Hacker 님의 최근 댓글