기타 천3 새해이벤트

procedure OnBowHit(uSource, uDest:integer);
begin
setmonsterlifedata(uDest,'as',getlifedata(uSource,'as'));
setmonsterlifedata(uDest,'av',getlifedata(uSource,'av'));
setmonsterlifedata(uDest,'ac',getlifedata(uSource,'ac'));
setmonsterlifedata(uDest,'db',getlifedata(uSource,'db'));
setmonsterlifedata(uDest,'dh',getlifedata(uSource,'dh'));
setmonsterlifedata(uDest,'da',getlifedata(uSource,'da'));
setmonsterlifedata(uDest,'dl',getlifedata(uSource,'dl'));
setmonsterlifedata(uDest,'ab',getlifedata(uSource,'ab'));
setmonsterlifedata(uDest,'ah',getlifedata(uSource,'ah'));
setmonsterlifedata(uDest,'aa',getlifedata(uSource,'aa'));
setmonsterlifedata(uDest,'al',getlifedata(uSource,'al'));
end;

procedure OnHit(uSource, uDest:integer);
begin

setmonsterlifedata(uDest,'as',getlifedata(uSource,'as'));
setmonsterlifedata(uDest,'av',getlifedata(uSource,'av'));
setmonsterlifedata(uDest,'ac',getlifedata(uSource,'ac'));
setmonsterlifedata(uDest,'db',getlifedata(uSource,'db'));
setmonsterlifedata(uDest,'dh',getlifedata(uSource,'dh'));
setmonsterlifedata(uDest,'da',getlifedata(uSource,'da'));
setmonsterlifedata(uDest,'dl',getlifedata(uSource,'dl'));
setmonsterlifedata(uDest,'ab',getlifedata(uSource,'ab'));
setmonsterlifedata(uDest,'ah',getlifedata(uSource,'ah'));
setmonsterlifedata(uDest,'aa',getlifedata(uSource,'aa'));
setmonsterlifedata(uDest,'al',getlifedata(uSource,'al'));
end;

procedure OnDie(uSource, uDest:integer; aRACE:integer);
var
slevel, count :integer;
cellcount, cellcount1, cellcount2, cellcount3, cellcount4, cellcount5:integer;
ran,x,y,i,sm,level,iKind, kk:integer;
item,sex:string;
begin

if getmonstername(uDest) = '福돼지' then say(uDest,'꿀꿀~복많이받으셔엉~');
if getmonstername(uDest) = '福말' then say(uDest,'으으으응나복마니바다아아아으앙');

x := Integer(StrSpilit(getmonsterxy(uDest),1,':'));
y := Integer(StrSpilit(getmonsterxy(uDest),2,':'));

for i := 0 to 3 do
begin
ran := RANDOM(4);

if ran = 0 then
begin
x := x + RANDOM(RANDOM(4));
y := y + RANDOM(RANDOM(4));
end;

if ran = 1 then
begin
x := x - RANDOM(RANDOM(4));
y := y - RANDOM(RANDOM(4));
end;

if ran = 2 then
begin
x := x + RANDOM(RANDOM(4));
y := y - RANDOM(RANDOM(4));
end;

if ran = 3 then
begin
x := x - RANDOM(RANDOM(4));
y := y + RANDOM(RANDOM(4));
end;

cellcount := random(5);
cellcount1 := random(100);
cellcount2 := random(2);
cellcount3 := random(2);
cellcount4 := random(2);
cellcount5 := random(30);

if cellcount < 1 then cellcount := 1;
if cellcount1 < 1 then cellcount1 := 1;
if cellcount2 < 1 then cellcount2 := 1;
if cellcount3 < 1 then cellcount3 := 1;
if cellcount4 < 1 then cellcount4 := 1;
if cellcount5 < 1 then cellcount5 := 1;
 
 
MonsterDropItem(uDest,'코어석',x+RANDOM(5),y+RANDOM(5),cellcount,0,0);
MonsterDropItem(uDest,'은화',x+RANDOM(5),y+RANDOM(5),cellcount1,0,0);
MonsterDropItem(uDest,'옥로환',x+RANDOM(5),y+RANDOM(5),cellcount2,0,0);
MonsterDropItem(uDest,'소환단',x+RANDOM(5),y+RANDOM(5),cellcount3,0,0);
//MonsterDropItem(uDest,'옥로환',x+RANDOM(5),y+RANDOM(5),cellcount4,0,0);
//MonsterDropItem(uDest,'은화',x+RANDOM(5),y+RANDOM(5),cellcount5,0,0);

 
 
 
sm := RANDOM(100);

if sm = 0 then level := 4;
if sm = 1 then level := 3;
if sm = 2 then level := 2;
if sm > 2 then level := RANDOM(5);

item := '';

iKind := RANDOM(300);

if RANDOM(2) = 1 then sex := '남자'
else sex := '여자';
 
count := 1;

if iKind < 111 then
begin
if RANDOM(10) = 1 then item := '버그리포트[쿠폰]'
else item := '금화';

count := 1;
end;

if iKind = 111 then begin
item := '대환단';
count := RANDOM(2) + 1;
end;

if iKind = 112 then begin
item := '천년산삼';
count := RANDOM(2) + 1;
end;

if iKind = 113 then begin
item := '태극구슬';
count := RANDOM(2) + 1;
end;

if iKind = 114 then begin
item := '여우내단';
count := RANDOM(2) + 1;
end;

if iKind = 115 then begin
item := sex + '요화포';
count := 1;
end;

if iKind = 116 then begin
item := sex + '이빨장화';
count := 1;
end;

if iKind = 117 then begin
item := '염제화령부';
count := 1;
end;

if iKind = 118 then begin
item := '낭아곤';
count := 1;
end;

if iKind = 119 then begin
item := '월광';
count := 1;
end;

if iKind = 120 then begin
item := '용광검';
count := 1;
end;

if iKind = 121 then begin
item := '금나수';
count := 1;
end;

if iKind = 122 then begin
item := '곤륜대석부';
count := 1;
end;

if iKind = 123 then begin
item := '백제무녀창';
count := 1;
end;

if iKind = 124 then begin
item := '화랑대형도';
count := 1;
end;

if iKind = 125 then begin
item := '백제역날검';
count := 1;
end;

if iKind = 126 then begin
item := '무적철장갑';
count := 1;
end;

 

if iKind = 127 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 128 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 129 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 130 then begin
item := sex + '영웅갑옷';

end;
if iKind = 131 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 132 then begin
item := '대환단';

end;
if iKind = 133 then begin
item := '천년산삼';

end;
if iKind = 134 then begin
item := '옥로환';

end;
if iKind = 135 then begin
item := '태극구슬';

end;
if iKind = 136 then begin
item := sex + '영웅갑박';

end;
if iKind = 137 then begin
item := sex + '영웅투구';

end;
if iKind = 138 then begin
item := sex + '영웅전투화';

end;
if iKind = 139 then begin
item := '남자황룡활복';

end;
if iKind = 140 then begin
item := '여자황룡활복';

end;
if iKind = 141 then begin
item := '남자황룡갑박';

end;
if iKind = 142 then begin
item := '여자황룡갑박';

end;
if iKind = 143 then begin
item := '여자황룡가죽신';

end;
if iKind = 144 then begin
item := '황룡검';

end;
if iKind = 145 then begin
item := '황룡장갑';

end;
if iKind = 146 then begin
item := '황룡도';

end;
if iKind = 147 then begin
item := '황룡창';

end;
if iKind = 148 then begin
item := '황룡도끼';

end;
if iKind = 149 then begin
item := '금화';

end;
if iKind = 150 then begin
item := '여우내단';

end;
if iKind = 151 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 152 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 153 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 154 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 155 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 156 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 157 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 158 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 159 then begin
item := '코어석';
count := RANDOM(10) + 1;

end;
if iKind = 160 then begin
item := '소환단';

end;
if iKind = 161 then begin
item := '소환단';

end;
if iKind = 162 then begin
item := '소환단';

end;
if iKind = 163 then begin
item := '남자흑룡갑옷';

end;
if iKind = 164 then begin
item := '여자흑룡갑옷';

end;
if iKind = 165 then begin
item := '남자백룡갑옷';

end;
if iKind = 166 then begin
item := '여자백룡갑옷';

end;
           if iKind = 167 then begin
               item := '남자천잠갑박';              
            end;
            if iKind = 168 then begin
               item := '여자천잠갑박';              
            end;
            if iKind = 169 then begin
               item := '묵철도';              
            end;
            if iKind = 170 then begin
               item := '옥로환';               
            end;
            if iKind = 171 then begin
               item := '옥로환';                
            end;
            if iKind = 172 then begin
               item := '옥로환';                
            end;
            if iKind = 173 then begin
               item := '옥로환';                
            end;
            if iKind = 174 then begin
               item := '옥로환';               
            end;
            if iKind = 175 then begin
               item := '금화';             
            end;
              if iKind = 176 then begin
               item := '금화';                  
            end;
              if iKind = 177 then begin
               item := '금화';                 
            end;
              if iKind = 178 then begin
               item := '금화';                
            end;
              if iKind = 179 then begin
               item := '금화';                
            end;
              if iKind = 180 then begin
               item := '남자천잠사';               
            end;
              if iKind = 181 then begin
               item := '여자천잠사';              
            end;
              if iKind = 182 then begin
               item := '남자제왕갑';              
            end;
              if iKind = 183 then begin
               item := '여자제왕갑';               
            end;
              if iKind = 184 then begin
               item := '생약';               
            end;

              if iKind = 185 then begin
               item := '패왕검';               
            end;
              if iKind = 186 then begin
               item := '제왕퇴';               
            end;
              if iKind = 187 then begin
               item := '천운보도';               
            end;
              if iKind = 188 then begin
               item := '청월천검';               
            end;
              if iKind = 189 then begin
               item := '천룡월부';               
            end;
              if iKind = 190 then begin
               item := '응조수';               
            end;
              if iKind = 191 then begin
               item := '백골마봉';               
            end;
              if iKind = 192 then begin
               item := '파편장갑';               
            end;
              if iKind = 193 then begin
               item := '용광검';               
            end;
              if iKind = 194 then begin
               item := '월광';               
            end;
              if iKind = 195 then begin
               item := '남자요화포';               
            end;
              if iKind = 196 then begin
               item := '여자요화포';               
            end;
              if iKind = 197 then begin
               item := '호국신검';               
            end;
              if iKind = 198 then begin
               item := '남자마인갑박';               
            end;
              if iKind = 199 then begin
               item := '여자마인갑박';               
            end;
              if iKind = 200 then begin
               item := '남자마인전투화';               
            end;
              if iKind = 201 then begin
               item := '여자마인전투화';               
            end;
              if iKind = 202 then begin
               item := '남자태극도포';               
            end;
              if iKind = 203 then begin
               item := '여자태극도포';               
            end;
              if iKind = 204 then begin
               item := '여자마인삿갓';               
            end;
              if iKind = 205 then begin
               item := '남자마인삿갓';               
            end;
              if iKind = 206 then begin
               item := '남자태극도포';               
            end;
              if iKind = 207 then begin
               item := '여자태극도포';               
            end;
              if iKind = 208 then begin
item := '코어석';
count := RANDOM(10) + 1;      
            end;
              if iKind = 209 then begin
item := '코어석';
count := RANDOM(10) + 1;          
            end;
              if iKind = 210 then begin
item := '코어석';
count := RANDOM(10) + 1;         
            end;
              if iKind = 211 then begin
item := '코어석';
count := RANDOM(10) + 1;          
            end;
              if iKind = 212 then begin
item := '코어석';
count := RANDOM(10) + 1;           
            end;
              if iKind = 213 then begin
item := '코어석';
count := RANDOM(10) + 1;             
            end;
              if iKind = 214 then begin
             if RANDOM(5) = 1 then item := '진주파편'
             else item := '코어석';               
            end;
              if iKind = 215 then begin
             if RANDOM(5) = 1 then item := '호박파편'
             else item := '코어석';                
            end;
              if iKind = 216 then begin
             if RANDOM(5) = 1 then item := '수정파편'
             else item := '코어석';              
            end;
              if iKind = 217 then begin
             if RANDOM(5) = 1 then item := '비취파편'
             else item := '코어석';              
            end;
              if iKind = 218 then begin
               item := '태극장갑';               
            end;
              if iKind = 219 then begin
               item := '태극일검';               
            end;
              if iKind = 220 then begin
               item := '태극월도';               
            end;
              if iKind = 221 then begin
               item := '태극신창';               
            end;
              if iKind = 222 then begin
               item := '태극대부';               
            end;
              if iKind = 223 then begin
item := '코어석';
count := RANDOM(10) + 1;           
            end;
              if iKind = 224 then begin
item := '코어석';
count := RANDOM(10) + 1;              
            end;
              if iKind = 225 then begin
               item := '금화';               
            end;
              if iKind = 226 then begin
               item := '남자우중객도포';               
            end;
              if iKind = 227 then begin
               item := '여자우중객도포';               
            end;
              if iKind = 228 then begin
               item := '남자우중객삿갓';               
            end;
              if iKind = 229 then begin
               item := '여자우중객삿갓';               
            end;
              if iKind = 230 then begin
kk := RANDOM(10);
               if kk = 0 then item := '남자우중객도포고급';       
               if kk > 0 then item := '남자우중객도포';               
            end;
              if iKind = 231 then begin
kk := RANDOM(10);
            if kk = 0 then item := '여자우중객도포고급';  
            if kk > 0 then item := '여자우중객도포';               
            end;
              if iKind = 232 then begin
kk := RANDOM(10);
           if kk = 0 then item := '남자우중객삿갓고급';     
           if kk > 0 then item := '남자우중객삿갓';               
            end;
              if iKind = 233 then begin
kk := RANDOM(10);
               if kk = 0 then item := '여자우중객삿갓고급';   
               if kk > 0 then item := '여자우중객삿갓';               
            end;
 
 
 
if item = '' then
begin
 item := '금화';
level := 0;
 
end;

if count < 1 then count := 1;
 

end;

slevel := 1;
if RANDOM(3) = 1 then slevel := 2;
if RANDOM(10) = 1 then slevel := 3;
if RANDOM(50) = 1 then slevel := 4;

MonsterDropItem(uDest,item,x,y,count,level,slevel);  

end;