기타 천년 추석스크립트

unit 이벤트자동지급;

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 OnDie (aStr : String);
procedure OnGetResult (aStr : String);

implementation

procedure OnGetResult (aStr : String);
var
   Str, Name : String;
   iKind : Integer;
begin
   if aStr = 'putitem' then begin
            iKind := Random (185);
            if iKind = 0 then begin
               Str := 'putsendermagicitem ' + '태극구슬:1';
               print (Str);
            end;
            if iKind = 1 then begin
               Str := 'putsendermagicitem ' + '보패:30';
               print (Str);
            end;
            if iKind = 2 then begin
               Str := 'putsendermagicitem ' + '태극구슬:3';
               print (Str);
            end;
            if iKind = 3 then begin
               Str := 'putsendermagicitem ' + '남자마인도포:1';
               print (Str);
            end;
            if iKind = 4 then begin
               Str := 'putsendermagicitem ' + '여자마인도포:1';
               print (Str);
            end;
            if iKind = 5 then begin
               Str := 'putsendermagicitem ' + '남자우중객도포:1';
               print (Str);
            end;
            if iKind = 6 then begin
               Str := 'putsendermagicitem ' + '여자우중객도포:1';
               print (Str);
            end;
            if iKind = 7 then begin
               Str := 'putsendermagicitem ' + '남자영웅갑옷:1';
               print (Str);
            end;
            if iKind = 8 then begin
               Str := 'putsendermagicitem ' + '여자영웅갑옷:1';
               print (Str);
            end;
            if iKind = 9 then begin
               Str := 'putsendermagicitem ' + '남자태극도관:1';
               print (Str);
            end;
            if iKind = 10 then begin
               Str := 'putsendermagicitem ' + '여자태극도관:1';
               print (Str);
            end;
            if iKind = 11 then begin
               Str := 'putsendermagicitem ' + '천년산삼:5';
               print (Str);
            end;
            if iKind = 12 then begin
               Str := 'putsendermagicitem ' + '천년산삼:10';
               print (Str);
            end;
            if iKind = 13 then begin
               Str := 'putsendermagicitem ' + '천년산삼:15';
               print (Str);
            end;
            if iKind = 14 then begin
               Str := 'putsendermagicitem ' + '천년산삼:20';
               print (Str);
            end;
            if iKind = 15 then begin
               Str := 'putsendermagicitem ' + '남자영웅투구:1';
               print (Str);
            end;
            if iKind = 16 then begin
               Str := 'putsendermagicitem ' + '여자영웅투구:1';
               print (Str);
            end;
            if iKind = 17 then begin
               Str := 'putsendermagicitem ' + '남자마인전투화:1';
               print (Str);
            end;
            if iKind = 18 then begin
               Str := 'putsendermagicitem ' + '여자마인전투화:1';
               print (Str);
            end;
            if iKind = 19 then begin
               Str := 'putsendermagicitem ' + '남자마인갑박:1';
               print (Str);
            end;
            if iKind = 20 then begin
               Str := 'putsendermagicitem ' + '여자마인갑박:1';
               print (Str);
            end;
            if iKind = 21 then begin
               Str := 'putsendermagicitem ' + '남자영웅갑박:1';
               print (Str);
            end;
            if iKind = 22 then begin
               Str := 'putsendermagicitem ' + '여자영웅갑박:1';
               print (Str);
            end;
            if iKind = 23 then begin
               Str := 'putsendermagicitem ' + '남자영웅전투화:1';
               print (Str);
            end;
            if iKind = 24 then begin
               Str := 'putsendermagicitem ' + '여자영웅전투화:1';
               print (Str);
            end;
            if iKind = 25 then begin
               Str := 'putsendermagicitem ' + '옥로환:50';
               print (Str);
            end;
            if iKind = 26 then begin
               Str := 'putsendermagicitem ' + '옥로환:100';
               print (Str);
            end;
            if iKind = 27 then begin
               Str := 'putsendermagicitem ' + '옥로환:150';
               print (Str);
            end;
            if iKind = 28 then begin
               Str := 'putsendermagicitem ' + '옥로환:200';
               print (Str);
            end;
            if iKind = 29 then begin
               Str := 'putsendermagicitem ' + '생사몽환단:5';
               print (Str);
            end;
            if iKind = 30 then begin
               Str := 'putsendermagicitem ' + '생사몽환단:10';
               print (Str);
            end;
            if iKind = 31 then begin
               Str := 'putsendermagicitem ' + '무적철장갑:1';
               print (Str);
            end;
            if iKind = 32 then begin
               Str := 'putsendermagicitem ' + '화랑대형도:1';
               print (Str);
            end;
            if iKind = 33 then begin
               Str := 'putsendermagicitem ' + '백제역날검:1';
               print (Str);
            end;
            if iKind = 34 then begin
               Str := 'putsendermagicitem ' + '백제무녀창:1';
               print (Str);
            end;
            if iKind = 35 then begin
               Str := 'putsendermagicitem ' + '곤륜대석부:1';
               print (Str);
            end;
            if iKind = 36 then begin
               Str := 'putsendermagicitem ' + '남자우중객도포:1';
               print (Str);
            end;
            if iKind = 37 then begin
               Str := 'putsendermagicitem ' + '여자우중객도포:1';
               print (Str);
            end;
            if iKind = 38 then begin
               Str := 'putsendermagicitem ' + '금화:10';
               print (Str);
            end;
            if iKind = 39 then begin
               Str := 'putsendermagicitem ' + '금화:20';
               print (Str);
            end;
            if iKind = 40 then begin
               Str := 'putsendermagicitem ' + '금화:30';
               print (Str);
            end;
            if iKind = 41 then begin
               Str := 'putsendermagicitem ' + '금화:40';
               print (Str);
            end;
            if iKind = 42 then begin
               Str := 'putsendermagicitem ' + '금화:50';
               print (Str);
            end;
            if iKind = 43 then begin
               Str := 'putsendermagicitem ' + '금화:100';
               print (Str);
            end;
            if iKind = 44 then begin
               Str := 'putsendermagicitem ' + '금화:150';
               print (Str);
            end;
            if iKind = 45 then begin
               Str := 'putsendermagicitem ' + '금화:200';
               print (Str);
            end;
            if iKind = 46 then begin
               Str := 'putsendermagicitem ' + '금화:500';
               print (Str);
            end;
            if iKind = 47 then begin
               Str := 'putsendermagicitem ' + '금화:1000';
               print (Str);
            end;
            if iKind = 48 then begin
               Str := 'putsendermagicitem ' + '금화:2000';
               print (Str);
            end;
            if iKind = 49 then begin
               Str := 'putsendermagicitem ' + '금모초:100';
               print (Str);
            end;
            if iKind = 50 then begin
               Str := 'putsendermagicitem ' + '금모초:200';
               print (Str);
            end;
            if iKind = 51 then begin
               Str := 'putsendermagicitem ' + '금모초:300';
               print (Str);
            end;
            if iKind = 52 then begin
               Str := 'putsendermagicitem ' + '금모초:400';
               print (Str);
            end;
            if iKind = 53 then begin
               Str := 'putsendermagicitem ' + '금모초:500';
               print (Str);
            end;
            if iKind = 54 then begin
               Str := 'putsendermagicitem ' + '태극패:1';
               print (Str);
            end;
            if iKind = 55 then begin
               Str := 'putsendermagicitem ' + '남자화랑도포:1';
               print (Str);
            end;
            if iKind = 56 then begin
               Str := 'putsendermagicitem ' + '여자화랑도포:1';
               print (Str);
            end;
            if iKind = 57 then begin
               Str := 'putsendermagicitem ' + '남자제왕갑:1';
               print (Str);
            end;
            if iKind = 58 then begin
               Str := 'putsendermagicitem ' + '여자제왕갑:1';
               print (Str);
            end;
            if iKind = 59 then begin
               Str := 'putsendermagicitem ' + '혈마검:1';
               print (Str);
            end;
            if iKind = 60 then begin
               Str := 'putsendermagicitem ' + '광혈수:1';
               print (Str);
            end;
            if iKind = 61 then begin
               Str := 'putsendermagicitem ' + '혈화극:1';
               print (Str);
            end;
            if iKind = 62 then begin
               Str := 'putsendermagicitem ' + '혈황부:1';
               print (Str);
            end;
            if iKind = 63 then begin
               Str := 'putsendermagicitem ' + '혈풍:1';
               print (Str);
            end;
            if iKind = 64 then begin
               Str := 'putsendermagicitem ' + '응조수:1';
               print (Str);
            end;
            if iKind = 65 then begin
               Str := 'putsendermagicitem ' + '천운보도:1';
               print (Str);
            end;
            if iKind = 66 then begin
               Str := 'putsendermagicitem ' + '청월천검:1';
               print (Str);
            end;
            if iKind = 67 then begin
               Str := 'putsendermagicitem ' + '천룡월부:1';
               print (Str);
            end;
            if iKind = 68 then begin
               Str := 'putsendermagicitem ' + '백골마봉:1';
               print (Str);
            end;
            if iKind = 69 then begin
               Str := 'putsendermagicitem ' + '서역마인창:1';
               print (Str);
            end;
            if iKind = 70 then begin
               Str := 'putsendermagicitem ' + '패왕검:1';
               print (Str);
            end;
            if iKind = 71 then begin
               Str := 'putsendermagicitem ' + '천왕도:1';
               print (Str);
            end;
            if iKind = 72 then begin
               Str := 'putsendermagicitem ' + '월광:1';
               print (Str);
            end;
            if iKind = 73 then begin
               Str := 'putsendermagicitem ' + '금나수:1';
               print (Str);
            end;
            if iKind = 74 then begin
               Str := 'putsendermagicitem ' + '용광검:1';
               print (Str);
            end;
            if iKind = 75 then begin
               Str := 'putsendermagicitem ' + '남자태극도포:1';
               print (Str);
            end;
            if iKind = 76 then begin
               Str := 'putsendermagicitem ' + '여자태극도포:1';
               print (Str);
            end;
            if iKind = 77 then begin
               Str := 'putsendermagicitem ' + '남자태극갑박:1';
               print (Str);
            end;
            if iKind = 78 then begin
               Str := 'putsendermagicitem ' + '여자태극갑박:1';
               print (Str);
            end;
            if iKind = 79 then begin
               Str := 'putsendermagicitem ' + '남자계림활복:1';
               print (Str);
            end;
            if iKind = 80 then begin
               Str := 'putsendermagicitem ' + '여자계림활복:1';
               print (Str);
            end;
            if iKind = 81 then begin
               Str := 'putsendermagicitem ' + '이화접목:1';
               print (Str);
            end;
            if iKind = 82 then begin
               Str := 'putsendermagicitem ' + '괴력기공:1';
               print (Str);
            end;
            if iKind = 83 then begin
               Str := 'putsendermagicitem ' + '일발필살:1';
               print (Str);
            end;
            if iKind = 84 then begin
               Str := 'putsendermagicitem ' + '팔방기화:1';
               print (Str);
            end;
            if iKind = 85 then begin
               Str := 'putsendermagicitem ' + '풍운:1';
               print (Str);
            end;
            if iKind = 86 then begin
               Str := 'putsendermagicitem ' + '사방기출:1';
               print (Str);
            end;
            if iKind = 87 then begin
               Str := 'putsendermagicitem ' + '팔방필살:1';
               print (Str);
            end;
            if iKind = 88 then begin
               Str := 'putsendermagicitem ' + '흡혈지초:1';
               print (Str);
            end;
            if iKind = 89 then begin
               Str := 'putsendermagicitem ' + '흡월정법:1';
               print (Str);
            end;
            if iKind = 90 then begin
               Str := 'putsendermagicitem ' + '점혈:1';
               print (Str);
            end;
            if iKind = 91 then begin
               Str := 'putsendermagicitem ' + '염제화령부:1';
               print (Str);
            end;
            if iKind = 92 then begin
               Str := 'putsendermagicitem ' + '미룡골각:1';
               print (Str);
            end;
            if iKind = 93 then begin
               Str := 'putsendermagicitem ' + '남자호피:1';
               print (Str);
            end;
            if iKind = 94 then begin
               Str := 'putsendermagicitem ' + '여자호피:1';
               print (Str);
            end;
            if iKind = 95 then begin
               Str := 'putsendermagicitem ' + '남자황금갑옷:1';
               print (Str);
            end;
            if iKind = 96 then begin
               Str := 'putsendermagicitem ' + '여자황금갑옷:1';
               print (Str);
            end;
            if iKind = 97 then begin
               Str := 'putsendermagicitem ' + '남자황금갑옷고급:1';
               print (Str);
            end;
            if iKind = 98 then begin
               Str := 'putsendermagicitem ' + '여자황금갑옷고급:1';
               print (Str);
            end;
            if iKind = 99 then begin
               Str := 'putsendermagicitem ' + '주먹밥:5';
               print (Str);
            end;
            if iKind = 100 then begin
               Str := 'putsendermagicitem ' + '고기:1';
               print (Str);
            end;
            if iKind = 101 then begin
               Str := 'putsendermagicitem ' + '고기:2';
               print (Str);
            end;
            if iKind = 102 then begin
               Str := 'putsendermagicitem ' + '고기:3';
               print (Str);
            end;
            if iKind = 103 then begin
               Str := 'putsendermagicitem ' + '고기:4';
               print (Str);
            end;
            if iKind = 104 then begin
               Str := 'putsendermagicitem ' + '고기:5';
               print (Str);
            end;
            if iKind = 105 then begin
               Str := 'putsendermagicitem ' + '고기:6';
               print (Str);
            end;
            if iKind = 106 then begin
               Str := 'putsendermagicitem ' + '고기:7';
               print (Str);
            end;
            if iKind = 107 then begin
               Str := 'putsendermagicitem ' + '고기:8';
               print (Str);
            end;
            if iKind = 108 then begin
               Str := 'putsendermagicitem ' + '고기:9';
               print (Str);
            end;
            if iKind = 109 then begin
               Str := 'putsendermagicitem ' + '고기:10';
               print (Str);
            end;
            if iKind = 110 then begin
               Str := 'putsendermagicitem ' + '주먹밥:6';
               print (Str);
            end;
            if iKind = 111 then begin
               Str := 'putsendermagicitem ' + '주먹밥:7';
               print (Str);
            end;
            if iKind = 112 then begin
               Str := 'putsendermagicitem ' + '주먹밥:8';
               print (Str);
            end;
            if iKind = 113 then begin
               Str := 'putsendermagicitem ' + '新태극신창:1';
               print (Str);
            end;
            if iKind = 114 then begin
               Str := 'putsendermagicitem ' + '新태극대부:1';
               print (Str);
            end;
            if iKind = 115 then begin
               Str := 'putsendermagicitem ' + '新태극월도:1';
               print (Str);
            end;
            if iKind = 116 then begin
               Str := 'putsendermagicitem ' + '新태극장갑:1';
               print (Str);
            end;
            if iKind = 117 then begin
               Str := 'putsendermagicitem ' + '新태극일검:1';
               print (Str);
            end;
            if iKind = 119 then begin
               Str := 'putsendermagicitem ' + '은화:2';
               print (Str);
            end;
            if iKind = 120 then begin
               Str := 'putsendermagicitem ' + '은화:20';
               print (Str);
            end;
            if iKind = 121 then begin
               Str := 'putsendermagicitem ' + '은화:40';
               print (Str);
            end;
            if iKind = 122 then begin
               Str := 'putsendermagicitem ' + '은화:60';
               print (Str);
            end;
            if iKind = 123 then begin
               Str := 'putsendermagicitem ' + '은화:80';
               print (Str);
            end;
            if iKind = 124 then begin
               Str := 'putsendermagicitem ' + '은화:100';
               print (Str);
            end;
            if iKind = 125 then begin
               Str := 'putsendermagicitem ' + '은화:200';
               print (Str);
            end;
            if iKind = 126 then begin
               Str := 'putsendermagicitem ' + '신라보검:1';
               print (Str);
            end;
            if iKind = 127 then begin
               Str := 'putsendermagicitem ' + '일본도:1';
               print (Str);
            end;
            if iKind = 128 then begin
               Str := 'putsendermagicitem ' + '구척사모:1';
               print (Str);
            end;
            if iKind = 129 then begin
               Str := 'putsendermagicitem ' + '묵철퇴:1';
               print (Str);
            end;
            if iKind = 130 then begin
               Str := 'putsendermagicitem ' + '묵철검:1';
               print (Str);
            end;
            if iKind = 130 then begin
               Str := 'putsendermagicitem ' + '묵철도:1';
               print (Str);
            end;
            if iKind = 131 then begin
               Str := 'putsendermagicitem ' + '묵철사모:1';
               print (Str);
            end;
            if iKind = 132 then begin
               Str := 'putsendermagicitem ' + '황룡도끼:1';
               print (Str);
            end;
            if iKind = 133 then begin
               Str := 'putsendermagicitem ' + '황룡검:1';
               print (Str);
            end;
            if iKind = 134 then begin
               Str := 'putsendermagicitem ' + '남자흑룡갑옷:1';
               print (Str);
            end;
            if iKind = 135 then begin
               Str := 'putsendermagicitem ' + '남자백룡갑옷:1';
               print (Str);
            end;
            if iKind = 136 then begin
               Str := 'putsendermagicitem ' + '여자흑룡갑옷:1';
               print (Str);
            end;
            if iKind = 137 then begin
               Str := 'putsendermagicitem ' + '남자마인삿갓:1';
               print (Str);
            end;
            if iKind = 138 then begin
               Str := 'putsendermagicitem ' + '여자마인삿갓:1';
               print (Str);
            end;
            if iKind = 139 then begin
               Str := 'putsendermagicitem ' + '남자제왕투구:1';
               print (Str);
            end;
            if iKind = 140 then begin
               Str := 'putsendermagicitem ' + '여자제왕투구:1';
               print (Str);
            end;
            if iKind = 141 then begin
               Str := 'putsendermagicitem ' + '남자천잠갑박:1';
               print (Str);
            end;
            if iKind = 142 then begin
               Str := 'putsendermagicitem ' + '여자천잠갑박:1';
               print (Str);
            end;
            if iKind = 143 then begin
               Str := 'putsendermagicitem ' + '남자뿔장화:1';
               print (Str);
            end;
            if iKind = 144 then begin
               Str := 'putsendermagicitem ' + '여자뿔장화:1';
               print (Str);
            end;
            if iKind = 145 then begin
               Str := 'putsendermagicitem ' + '사철갑:1';
               print (Str);
            end;
            if iKind = 146 then begin
               Str := 'putsendermagicitem ' + '금사투갑:1';
               print (Str);
            end;
            if iKind = 147 then begin
               Str := 'putsendermagicitem ' + '귀혼투갑:1';
               print (Str);
            end;
            if iKind = 148 then begin
               Str := 'putsendermagicitem ' + '구마열화궁:1';
               print (Str);
            end;
            if iKind = 149 then begin
               Str := 'putsendermagicitem ' + '북해연환궁:1';
               print (Str);
            end;
            if iKind = 150 then begin
               Str := 'putsendermagicitem ' + '황룡궁:1';
               print (Str);
            end;
            if iKind = 151 then begin
               Str := 'putsendermagicitem ' + '안정액:1';
               print (Str);
            end;
            if iKind = 152 then begin
               Str := 'putsendermagicitem ' + '안정액:10';
               print (Str);
            end;
            if iKind = 153 then begin
               Str := 'putsendermagicitem ' + '안정액:20';
               print (Str);
            end;
            if iKind = 154 then begin
               Str := 'putsendermagicitem ' + '안정액:50';
               print (Str);
            end;
            if iKind = 155 then begin
               Str := 'putsendermagicitem ' + '안정액:100';
               print (Str);
            end;
            if iKind = 156 then begin
               Str := 'putsendermagicitem ' + '안정액:200';
               print (Str);
            end;
            if iKind = 157 then begin
               Str := 'putsendermagicitem ' + '황룡궁:1';
               print (Str);
            end;
            if iKind = 158 then begin
               Str := 'putsendermagicitem ' + '초재부:1';
               print (Str);
            end;
            if iKind = 159 then begin
               Str := 'putsendermagicitem ' + '초재부:3';
               print (Str);
            end;
            if iKind = 160 then begin
               Str := 'putsendermagicitem ' + '초재부:5';
               print (Str);
            end;
            if iKind = 161 then begin
               Str := 'putsendermagicitem ' + '구룡보도:1';
               print (Str);
            end;
            if iKind = 162 then begin
               Str := 'putsendermagicitem ' + '망월:1';
               print (Str);
            end;
            if iKind = 163 then begin
               Str := 'putsendermagicitem ' + '오철보도:1';
               print (Str);
            end;
            if iKind = 164 then begin
               Str := 'putsendermagicitem ' + '혈루:5';
               print (Str);
            end;
            if iKind = 165 then begin
               Str := 'putsendermagicitem ' + '빙옥:1';
               print (Str);
            end;
            if iKind = 166 then begin
               Str := 'putsendermagicitem ' + '북해빙옥:1';
               print (Str);
            end;
            if iKind = 167 then begin
               Str := 'putsendermagicitem ' + '남자우중객도포고급:1';
               print (Str);
            end;
            if iKind = 168 then begin
               Str := 'putsendermagicitem ' + '여자우중객도포고급:1';
               print (Str);
            end;
            if iKind = 169 then begin
               Str := 'putsendermagicitem ' + '작봉:1';
               print (Str);
            end;
            if iKind = 170 then begin
               Str := 'putsendermagicitem ' + '참월:1';
               print (Str);
            end;
            if iKind = 171 then begin
               Str := 'putsendermagicitem ' + '빙륜환:1';
               print (Str);
            end;
            if iKind = 172 then begin
               Str := 'putsendermagicitem ' + '천견:1';
               print (Str);
            end;
            if iKind = 173 then begin
               Str := 'putsendermagicitem ' + '귀등환:1';
               print (Str);
            end;
            if iKind = 174 then begin
               Str := 'putsendermagicitem ' + '사조혼:1';
               print (Str);
            end;
            if iKind = 175 then begin
               Str := 'putsendermagicitem ' + '송편:40';
               print (Str);
            end;
            if iKind = 176 then begin
               Str := 'putsendermagicitem ' + '송편:30';
               print (Str);
            end;
            if iKind = 177 then begin
               Str := 'putsendermagicitem ' + '송편:20';
               print (Str);
            end;
            if iKind = 178 then begin
               Str := 'putsendermagicitem ' + '작봉:1';
               print (Str);
            end;
            if iKind = 179 then begin
               Str := 'putsendermagicitem ' + '참월:1';
               print (Str);
            end;
            if iKind = 180 then begin
               Str := 'putsendermagicitem ' + '빙륜환:1';
               print (Str);
            end;
            if iKind = 181 then begin
               Str := 'putsendermagicitem ' + '천견:1';
               print (Str);
            end;
            if iKind = 182 then begin
               Str := 'putsendermagicitem ' + '귀등환:1';
               print (Str);
            end;
            if iKind = 183 then begin
               Str := 'putsendermagicitem ' + '사조혼:1';
               print (Str);
            end;
            if iKind = 184 then begin
               Str := 'putsendermagicitem ' + '남자우중객삿갓고급:1';
               print (Str);
            end;
            if iKind = 185 then begin
               Str := 'putsendermagicitem ' + '여자우중객삿갓고급:1';
               print (Str);
            end;
               exit;
               end;
end;
end;

procedure OnDie (aStr : String);
var
   Str, Name, MagicCheck, Map : String;
   iKind : Integer;
begin

            iKind := Random (20);
            if iKind = 0 then begin
               Str := 'say ' + '메롱~추석이나_잘보내거라~';
               print (Str);
            end;
            if iKind = 1 then begin
               Str := 'showwindow .\help\추석한우.txt 0';
               print (Str);
            end;
            if iKind = 2 then begin
               Str := 'say ' + '메롱~추석이나_잘보내거라~';
               print (Str);
            end;
            if iKind = 3 then begin
               Str := 'say ' + '메롱~추석이나_잘보내거라~';
               print (Str);
            end;
            if iKind = 4 then begin
               Str := 'say ' + '메롱~추석이나_잘보내거라~';
               print (Str);
            end;
            if iKind = 5 then begin
               Str := 'say ' + '메롱~추석이나_잘보내거라~';
               print (Str);
            end;
            if iKind = 6 then begin
               Str := 'say ' + '메롱~추석이나_잘보내거라~';
               print (Str);
            end;
               exit;
               end;
           end;

end.