summaryrefslogblamecommitdiff
path: root/npc/quests/quests_lighthalzen.txt
blob: 5dce0480c78bcadf7ce3fa2fd94be8fc7e3db9df (plain) (tree)
1
2
3
4
5
6
7
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317





                                                               
       












































                                                                                                                         
                                                                  

                                                               
                                                    



























                                                                                                                      
                                                    












                                                                                                  
                                                                                                                                                                                                                                        

                                                          
                                                                                    









                                                                                   

                                                                                                                                                                        















                                          
                                                             



















                                                            
                                   












                                                
                                   








                                                      
                                   










                                                                     
                                                             



















                                                            
                                   












                                                
                                   








                                                      
                                   
















                                                                     
                                                     































































































































































































































































































































                                                                               
                               























                                                              
                               


            
                               

            
                              

























                                                                            
                                             

















                                                                        
                                             




























































                                                                                                                       
                                             


























                                                                       
                                                     




















                                                                        
                                             























































                                                                                      
                                             




















                                                                      
                                             




























                                                                                      
                                             







































                                                                     
                                             






































                                                                             
                                             



















































































                                                                                                                                            
                                                     



























                                                                                    
                                             




























                                                                   
                                             

















































































                                                                                                        
                                                     




















































                                                                                                                                         
                               






                                                              
                                                         





                                  
                                                         





                                  
                                                         





































































































                                                                
                                             








































































































































































































































































































































































































































































                                                                                        
                                             




















































































































































































































































































































































































































































































































                                                                                   
                                             




















                                              
                                                             







































































































































































































                                                                            
                                             
























                                              
                                                     






















                                              
 
//===== eAthena Script ======================================= 
//= Quest NPCs located in Lighthalzen
//===== By: ================================================== 
//= Persian, Vicious_Pucca, aoa00, Evera, MasterOfMupppets,
//= Lupus, Lord Gywall
//===== Current Version: ===================================== 
//= 3.0
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//= Event for the Mobster respawn
//= Bio Labs Quest
//= Friendship Quest
//= Pickpocket Mini-Quest
//= Bio Ethics Quest (Need bug testing!)
//===== Additional Comments: ================================= 
//= Grammar/script check please. This was a quick job.
//= Things to add: Look at the thread "Lighthalzen Guard" in SVN script
//= 0.3 Initial Release
//= 0.5 Added mobsters spawn and Einbroch pollution. Alert lasts either 10 minutes or all mob killed.
//= 0.6-0.9 fix small bug. Added Bio-lab entrance Quest. Added Getting security-card Quest.
//= 1.0 Patched "mobsters spawn & Alert" like Real-RO.
//= 1.0a fixed rand(1,10) + comparision. There just can't be 'X < 1' [Lupus]
//= 1.1 Changed the mobster spawn to g_mobster to prevent exploits [MasterOfMuppets]
//= 1.2 Added the cube room quest by DeNy, translated by vicious_pucca. [MasterOfMuppets]
//=	Thanks to Linuxwolf for a grammar check as well =).
//= 1.2a Moved Biolab entrance to lhz_dun warps. [Vicious]
//= 1.3 Fixed password bug, fixed endless item exploit, some typos [Lupus]
//= 1.4 Fixed password abuse. When people don't read the password under the picture
//= 	and enter Zero shit 8) (TODO: I saw some "Sticks" abuses, too.. where you could skip a part of quest...)
//= 1.5 Fixed Mobster's OnDead event(it has to start with "On"!) [Playtester]
//= 1.5a Fixed "free stick" bug, thx 2 Neouni [Lupus]
//= 1.6 Added Gywall's Pickpocket Quest
//= 1.7 Implemented the Friendship quest [MasterOfMuppets]
//= 1.8 Changed the name of the mobsters to Gangster, as it should be. [MasterOfMuppets]
//= 1.9 Added extra input check on Biolab so that the first letter of the word could be capitalized or undercase. [Evera]
//= 2.0 Removed Duplicates [Silent]
//= 2.1 Added first part of Bio Ethics Quest [Evera]
//= 2.2 Added bit to say Bio Ethics is unfinished, and if a player attempts, it warps them
//= 	out after finished part... Don't want players getting stuck ;_; [Evera]
//= 2.3 Finished Bio Ethics Quest. Need bug testers before moving to trunk, my
//=	mind was somewhere else when writing @_@ [Evera]
//= 2.4	Fixed the bug where a str&int debug was shown in the console for
//=	test tube in bio labs quest. [Evera]
//= 2.5	Fixed Kellasus giving you extra skills in Bio Ethics quest [Evera]
//= 2.6	Fixed exploit letting any class get homunculus from Bio Ethics Quest [Evera]
//= 2.6a Moved Bio Ethics Quest to Alchemist SKILL QUESTS [Lupus]
//= 2.7 fixed bugs that let people bypass some quest parts V_V [Lupus]
//=	reused cubekey var for 4 Cube Room key vars
//= 2.8 More optimization. Also fixed bug with "2x short sticks -> long" [Lupus]
//=	Now uses MISC_QUEST&512 instead of 'hzdun'. WIP
//= 2.9 Fixed Friendship Quest levelup exploit (u could get EXP twice) [Lupus]
//= 3.0 Moved a book non-related to Lighthalzen quests. [SinSloth]
//============================================================ 

lighthalzen,1,1,7	script	sneakAddSuber	-1,{
OnInit:
	set $@sneakchance, 3;	// chance of successful sneak(0 = never, 10 = always)
	set $@sneakguard, 0;	// numbers of people who sneaked past guard
	set $@threshold, 10;	// numbers of sneakers before mob appears
	set $@mob, 50;		// Max respawn numbers of "mobsters"
	set $@mobcount, 0;	// current numbers of "mobsters"
	set $@lhz_alert, 0;	// Alert on Lighthalzen(0 = off, 1 = on)
	set $@i, 0;
	
	end;

OnMinute00:
OnMinute05:
OnMinute10:
OnMinute15:
OnMinute20:
OnMinute25:
OnMinute30:
OnMinute35:
OnMinute40:
OnMinute45:
OnMinute50:
OnMinute55:
	if($@lhz_alert == 0) set $@sneakguard, $@sneakguard + rand(1,3);
	if($@lhz_alert == 1) set $@sneakguard, $@sneakguard - 1;  // Monsters will die after 5~10 min. (sneakAddSuber)
	end;
}

lighthalzen,1,1,7	script	AlertChk	-1,{
OnInit:
	initnpctimer;
	end;

OnTimer10000:
	if($@sneakguard >= $@threshold) goto MakeMob;
	if($@sneakguard == 0) goto ClearMob;  // Monsters will die after 5~10 min. (sneakAddSuber)
	setnpctimer 0;
	end;
	
MakeMob:
	if($@lhz_alert == 1) goto ChkEnd;
	set $@mobcount, $@mob;
	mapannounce "lighthalzen","Maintenance Organization of the Public Order: Currently the security of the city has been compromized, We ask the citizens to be more careful. I repeat. We ask the citizens to be more careful.", 1;
	
	for( set $@i, 0; $@i < $@mob; set $@i, $@i + 1 ) {
		monster "lighthalzen",0,0,"Gangster",1592,1,"AlertChk::OnMobKilled";
	}

	set $@lhz_alert, 1;	
	set $@sneakguard, 2;   // Monsters will die after 5~10 min. (sneakAddSuber)
	setnpctimer 0;
	end;
	
ClearMob:
	if($@lhz_alert == 0) goto ChkEnd;
	set $@mobcount, 0;
	mapannounce "lighthalzen","Maintenance organization of the Public Order: We were able to get rid of all the trouble makers in the city. You may relax now.", 1;	
	killmonster "lighthalzen","AlertChk::OnMobKilled";
	set $@lhz_alert, 0;
	set $@sneakguard, 0;
	setnpctimer 0;
	end;
		
OnMobKilled:
	set $@mobcount, $@mobcount - 1;
	if($@mobcount == 0) goto ClearMob;
	setnpctimer 0;
	end;	
	
ChkEnd:	
	setnpctimer 0;
	end;	
}

lighthalzen,267,200,3	script	Security Guard#01	868,{

	if(countitem(7350)>0) goto Lhzpass1;
	if($@lhz_alert == 1) goto Lhzstop;
	if((gettime(2)>00 && gettime(2)<10)) goto LhzTalk2;
	if((gettime(2)>30 && gettime(2)<40)) goto LhzTalk2;
	set @LhzTalk,rand(1,10);
	if(@LhzTalk  < 2 ) goto LhzTalk1;

LhzTalk:
	mes "[Guard]";
	mes "Hey! Where do you think you are going?";
	mes "I can not send nobody to the slum district!";
	mes "If we let suspecious people like you pass,";
	mes "there is no point in peace keeping!";
	close;

LhzTalk1:
	mes "-Looks like the guard is doing something else";
	mes "Now is a good time to sneak by.-";
	next;
	warp "lighthalzen",297,227;
	set $@sneakguard, $@sneakguard + 1;
	close;

LhzTalk2:
	set @LhzTalk,rand(1,10);
	if(@LhzTalk  < 2 ) goto LhzTalk;
	mes "[Guard]";
	mes "zzZ... zzZ... zzZ...";
	mes "hmm. hmm... zzZ...";
	next;
	mes "-Looks like the guard is sleeping";
	mes "Now is a good time to sneak by.-";
	next;
	warp "lighthalzen",297,227;
	close;

Lhzpass1:
	mes "[Guard]";
	mes "Who are you! ...Hmm? You have a pass?";
	mes "I'm sorry. You look like an adventurer,";
	mes "but I guess you got the authority.";
	mes "You may pass.";
	next; 
	warp "lighthalzen",297,227;
	close;

Lhzstop:
	mes "[Guard]";
	mes "Recently, there were too many people sneaking pass us,";
	mes "so we raised the security level.";
	mes "Who sneak past us anyway?";
	mes "It's troublesome...";
	close;
}

lighthalzen,294,223,7	script	Security Guard#02	868,{

	if(countitem(7350)>0) goto Lhzpass1;
	if($@lhz_alert == 1) goto Lhzstop;
	if((gettime(2)>00 && gettime(2)<10)) goto LhzTalk2;
	if((gettime(2)>30 && gettime(2)<40)) goto LhzTalk2;
	set @LhzTalk,rand(1,10);
	if(@LhzTalk  < 2 ) goto LhzTalk1;

LhzTalk:
	mes "[Guard]";
	mes "Hey! Where do you think you are going?";
	mes "I can not send nobody to the slum district!";
	mes "If we let suspecious people like you pass,";
	mes "there is no point in peace keeping!";
	close;

LhzTalk1:
	mes "-Looks like the guard is doing something else";
	mes "Now is a good time to sneak by.-";
	next;
	warp "lighthalzen",264,200;
	set $@sneakguard, $@sneakguard + 1;
	close;

LhzTalk2:
	set @LhzTalk,rand(1,10);
	if(@LhzTalk  < 2 ) goto LhzTalk;
	mes "[Guard]";
	mes "zzZ... zzZ... zzZ...";
	mes "hmm. hmm... zzZ...";
	next;
	mes "-Looks like the guard is sleeping";
	mes "Now is a good time to sneak by.-";
	next;
	warp "lighthalzen",264,200;
	close;

Lhzpass1:
	mes "[Guard]";
	mes "Who are you! ...Hmm? You have a pass?";
	mes "I'm sorry. You look like an adventurer,";
	mes "but I guess you got the authority.";
	mes "You may pass.";
	next; 
	warp "lighthalzen",264,200;
	close;

Lhzstop:
	mes "[Guard]";
	mes "Recently, there were too many people sneaking pass us,";
	mes "so we raised the security level.";
	mes "Who sneak past us anyway?";
	mes "It's troublesome...";
	close;
}

//============================================================
// Cube Room
//============================================================

//--------------------------Piciburn--------------------------

lighthalzen,341,224,4	script	Piciburn	868,{
	if (BaseLevel < 60){
		mes "[Piciburn]";
		mes "Keep moving.";
		close;
	}
	if (MISC_QUEST&512) goto L_DONE;
	if (piciburn == 7) goto L_10;
	if (piciburn == 6) goto L_9;
	if (piciburn == 5) goto L_6;
	if (piciburn == 4) goto L_4;
	if (piciburn == 3) goto L_3;
	if (piciburn == 2) goto L_2;
	if (piciburn == 1) goto L_1;
	mes "[Piciburn]";
	mes "Hmm...? What is it?";
	mes "I am busy at the moment,";
	mes "so stop bothering me.";
	set piciburn,1;
	close;

L_1:
	mes "[Piciburn]";
	mes "I'm getting distracted because";
	mes "You keep staring at me!";
	mes "Would you please leave me alone?";
	set piciburn,piciburn+1;
	close;

L_2:
	mes "[Piciburn]";
	mes "Hmm...? Oh, it's you..";
	mes "You are really getting on my nerves.";
	mes "You're weird, you know that?";
	mes "What is it that you want from me?";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Nothing really...";
	mes "Just looking around...";
	mes "What are you doing?";
	next;
	mes "[Piciburn]";
	mes "Oh, man...";
	mes "If I just needed to show you this,";
	mes "I wouldn't have got all worked up.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "I know. Haha.";
	next;
	mes "[Piciburn]";
	mes "You really ARE a weird person...";
	mes "Are you just going to stand there";
	mes "and keep watching?";
	next;
	mes "[Piciburn]";
	mes "... You're really annoying me!";
	mes "What do you want from me?!";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "I've aready told you.";
	mes "I asked what you were doing.";
	mes "This place is hot and sticky.";
	next;
	mes "[Piciburn]";
	mes "Okay, okay..";
	mes "I'll tell you what i'm doing,";
	mes "but would you leave me in peace";
	mes "if i did? Thanks.";
	next;
	mes "[Piciburn]";
	mes "I'm.. um... doing something illegal...";
	mes "Don't tell anyone about this!";
	next;
	mes "[Piciburn]";
	mes "I am the only person who can make a route to";
	mes "the industrial city's -^FF0000Laboratory^000000- or";
	mes "places normal people wouldn't usually be able to get to.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "The -Laboratory?!!!-";
	mes "Can you really get people in there?!!!";
	next;
	mes "[Piciburn]";
	mes "Agh! Quieten down! What did i tell you?";
	mes "I've told you what i do, now will you stop staring at me?";
	mes "And be quiet~!";
	mes "You're weird.. �_�";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Ah..Haha.. I'm sorry.";
	mes "I really want to go there,";
	mes "so I got excited when I heard you can get people in there";
	next;
	mes "[Piciburn]";
	mes "Hmm? You were planning to get in there?";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Yeah, but i couldn't get in..";
	next;
	mes "[Piciburn]";
	mes "Hmm...";
	mes "This is troublesome...";
	mes "I don't usually tell people i cannot";
	mes "trust how to get into the Laboratory...";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "What do I need to do?";
	mes "How can I get into the laboratory?";
	next;
	mes "[Piciburn]";
	mes "Geez~, I'm just giving people a route, not sending them there.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Doesn't that mean the same thing?";
	next;
	mes "[Piciburn]";
	mes "What I'm saying is,";
	mes "I'm giving people the chance to get into the labs.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "You're really talented, huh.";
	next;
	mes "[Piciburn]";
	mes "Hahaha! Damn right.";
	mes "It's a piece of cake!";
	mes "...";
	mes "Actually, now i think about it, it's impossible..";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "How's it impossible?";
	mes "I haven't say anything yet~..";
	next;
	mes "[Piciburn]";
	mes "Oh come on, you were going to BEG me to send you there~!!!";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Heh...";
	mes "You really ARE clever.";
	mes "Well...";
	mes "Pretty please~~?";
	next;
	mes "[Piciburn]";
	mes "I can never let you in~..";
	mes "Never ever~!!!";
	set piciburn,piciburn+1;
	close;

L_3:
	mes "[" +strcharinfo(0) + "]";
	mes "Please?";
	next;
	mes "[Piciburn]";
	mes "No way.";
	set piciburn,piciburn+1;
	close;

L_4:
	mes "[" +strcharinfo(0) + "]";
	mes "Pleaseeeee?";
	next;
	mes "[Piciburn]";
	mes "No.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Pleaseeeeeeeeeee?";
	next;
	mes "[Piciburn]";
	mes "I don't want to.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Do it!!!";
	next;
	mes "[Piciburn]";
	mes "Never~!!!";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Why are you doing this to me?!!";
	mes "What do you want from me !?!";
	next;
	mes "[Piciburn]";
	mes "What do I want?";
	mes "Heh heh.. One billion zeny.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Are you crazy?!";
	next;
	mes "[Piciburn]";
	mes "It's your choice.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Sir, you know I don't have that much money.";
	mes "Is there anything else you need?";
	next;
	mes "[Piciburn]";
	mes "Hmm...";
	mes "Okay fine...";
	mes "Bring me 20 Jellopies.";
	mes "'Kay?";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "........";
	mes "So that's what you really wanted to ask me?";
	next;
	mes "[Piciburn]";
	mes "Hahaha...";
	mes "Yeah~~...";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "........";
	next;
	mes "[Piciburn]";
	mes "So, what're you doing just standing there?";
	mes "Are you going to do it or not?";
	next;
	menu "Definitely!",L_5,"No way! It's impossible!",-;

	mes "[Piciburn]";
	mes "Ah well, your loss,";
	mes "Too bad!";
	mes "Bye now~!!";
	close;

L_5:
	mes "[Piciburn]";
	mes "Okay then, do as I said,";
	mes "bring me 20 jellopies!";
	mes "....";
	mes "What're you waiting for?! GO!!";
	set piciburn,piciburn+1;
	close;

L_6:
	mes "[Piciburn]";
	mes "Did you get the items?";
	next;
	menu "Erm.. No..",-,"Hell yeah!",L_7,"What did you want again..?",L7_1;

	mes "[Piciburn]";
	mes "Hey, I don't feel like playing around anymore.";
	mes "If you really want to get there, bring the damn items!";
	close;

L_7:
	if (countitem(909) >= 20) goto L_8;
	mes "[Piciburn]";
	mes "Are you joking?";
	mes "If you keep doing this,";
	mes "I may not keep the promise either.";
	mes "So go and get them already!";
	close;

L7_1:
	mes "[Piciburn]";
	mes "You're really stupid~!";
	mes "It's 20 jellopies!";
	mes "Don't forget this time~";
	close;

L_8:
	delitem 909,20;
	mes "[Piciburn]";
	mes "Hmm. You're more reliable than i thought.";
	mes "Taking this errand into consideration,";
	mes "i guess you really want to get in there?";
	next;
	mes "[Piciburn]";
	mes "Coming to think of it,";
	mes "you look different.";
	mes "Should I say you look more... trustworthy..?";
	next;
	mes "[Piciburn]";
	mes "Well... Anyway...";
	mes "A promise is a promise.";
	mes "I will tell you how to get there.";
	next;
	mes "[Piciburn]";
	mes "As I told you earlier, all I can do is";
	mes "give you the opportunity to get in.";
	next;
	mes "[Piciburn]";
	mes "I used to be a manager working for the lab,";
	mes "but time moves on, as people do,";
	mes "and now I am working against the lab.";
	next;
	mes "[Piciburn]";
	mes "Now... Answer honestly on all I ask here on out.";
	mes "Where i send you all depends on how you answer.";
	next;
	mes "[Piciburn]";
	mes "Somewhere in the place I'm going to send you";
	mes "There will be things you must find,";
	mes "So search well.";
	next;
	mes "[Piciburn]";
	mes "Well, when you've made your mind up,";
	mes "come back and talk to me. Okay?";
	set piciburn,piciburn+1;
	close;

L_9:
	mes "[Piciburn]";
	mes "Hmm... So...";
	mes "Are you ready to go?";
	next;
	menu "No",-,"Yes",L9_1;

	mes "[Piciburn]";
	mes "Hmm... Not yet, huh...";
	mes "Well, I guess it is to be expected.";
	mes "But don't make me wait too long~!";
	close;

L9_1:
	mes "[Piciburn]";
	mes "This is going to be hard~";
	mes "Let's go!!!";
	close2;
	set piciburn,piciburn+1;
	set @rdm,rand(3);
	if(@rdm==1)goto L_warp1;
	if(@rdm==2)goto L_warp2;
 	warp "lhz_cube",67,193;
	end;

L_10:
	mes "[Piciburn]";
	mes "Hah!";
	mes "You failed in there, right? Hahahaha~.";
	mes "Are you going to try again? Or is it too tough~";
	next;
	menu "No",-,"Yes",L10_1;

	mes "[Piciburn]";
	mes "It was that hard huh?";
	mes "Well, come back if you change your mind.";
	close;

L10_1:
	mes "[Piciburn]";
	mes "Okay..";
	mes "I will send you there again..";
	mes "Good luck!";
	close2;
	set @rdm,rand(3);
	if(@rdm==1)goto L_warp1;
	if(@rdm==2)goto L_warp2;
 	warp "lhz_cube",67,193;
	end;

L_warp1: 
	warp "lhz_cube",66,136;
	end;
L_warp2:
	warp "lhz_cube",66,74;
	end;

L_DONE:
	mes "[Piciburn]";
	mes "Oh~ I guess you found the entrance.";
	mes "I'll tell you now...";
	mes "If you want to go in there again";
	next;
	mes "[Piciburn]";
	mes "You can get there by a sewer passage a bit south of the town.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "No wayyyyy!!";
	next;
	mes "[Piciburn]";
	mes "I know. I know...";
	mes "It is dirty.";
	mes "But it's only way in, so don't complain!";
	next;
	mes "[Piciburn]";
	mes "Now, take care of yourself~.";
	close;
}

//--------------------------Box--------------------------

lhz_cube,248,179,0	script	Box#01	111,{
	if (MISC_QUEST&512 || cubekey&64) goto L_DONE;
	mes "There is an axe in the box.";
	next;
	menu "Take the axe.",L_1,"Leave it alone.",-;
	close;

L_1:
	mes "You acquired the ^FF0000axe^000000.";
	set cubekey,cubekey|64;
	close;

L_DONE:
	mes "There is a box that used to contain an ^FF0000axe^000000.";
	close;
}

//--------------------------Barrel--------------------------

lhz_cube,237,183,0	script	Barrel	111,{
	if (MISC_QUEST&512 || cubekey&1) goto L_DONE;
	if (cubekey&128) goto L_2;
	mes "There is a box that looks weak.";
	if ((cubekey&64) == 0) close;
	next;
	input @axe$;

	if (@axe$ == "axe" || @axe$ == "Axe") goto L_1;
	mes "There is no change.";
	close;

L_1:
	mes "When you break the barrel with an axe,";
	mes "you see that there's a box inside of it.";
	next;
	mes "On top of the box, there's a panel with the numbers 1~9";
	set cubekey,cubekey|128;
	close;

L_2:
	mes "There is a box with numbers 1~9 on it's surface.";
	next;
	set @agree,0;
	input @number;
	if (num6 == @number) set @agree,@agree+1;
	input @number;
	if (num8 == @number) set @agree,@agree+1;
	input @number;
	if (num1 == @number) set @agree,@agree+1;
	input @number;
	if (num4 == @number) set @agree,@agree+1;
	input @number;
	if (num9 == @number) set @agree,@agree+1;
	input @number;
	if (num2 == @number) set @agree,@agree+1;
	input @number;
	if (num7 == @number) set @agree,@agree+1;
	input @number;
	if (num5 == @number) set @agree,@agree+1;
	input @number;
	if (num3 == @number) set @agree,@agree+1;
	if (@agree == 9 && num1) goto L_3; //you can't enter correct numbers, till read them under that picture [Lupus]
	mes "There is no change.";
	close;

L_3:
	mes "The box opened, making a metallic click.";
	mes "Within the box, there is 'yellow key'.";
	next;
	mes "You acquired '^FF0000yellow key^000000'.";
	set cubekey,cubekey|1;
	close;

L_DONE:
	mes "This box used to have the '^FF0000yellow key^000000'";
	mes "The box is now empty.";
	close;
}

//--------------------------Drawer--------------------------

lhz_cube,242,201,0	script	Drawer	111,{
	if (MISC_QUEST&512 || cubekey&32) goto L_DONE;
	mes "The drawer is locked.";
	if (cubekey&2) goto L_1;
	close;

L_1:
	input @key$;
	if (@key$ == "red key" || @key$ == "Red Key") goto L_2;
	mes "The drawer is locked, you need some kind of key.";
	close;

L_2:
	mes "The red key fits the lock perfectly,opening the drawer.";
	mes "You found a 'small knife' inside.";
	next;
	mes "You acquired ^FF0000small knife^000000.";
	set cubekey,cubekey|32;
	close;

L_DONE:
	mes "It is the drawer you got ^FF0000small knife^000000 from.";
	mes "There is nothing inside now.";
	close;
}

//--------------------------Documents--------------------------

lhz_cube,237,198,0	script	Documents	111,{
	if (MISC_QUEST&512 || cubekey&2) goto L_DONE;
	mes "There are tons of documents here.";
	next;
	menu "Search the documents.",L_1,"Ignore.",-;
	close;

L_1:
	mes "As you look through the documents, a 'red key' falls out.";
	next;
	mes "You acquired ^FF0000red key^000000.";
	set cubekey,cubekey|2;
	close;

L_DONE:
	mes "This is where you acquired ^FF0000red key^000000.";
	mes "There's nothing else to do here.";
	close;
}

//--------------------------Bed--------------------------

lhz_cube,247,198,0	script	Bed	111,{
	mes "There is a messy bed.";
	next;
	menu "Above bed",-,"Below bed",L_1;

	mes "The blanket is messily placed.";
	mes "There is nothing special here.";
	close;

L_1:
	if (MISC_QUEST&512 || cubekey&131072) goto L_DONE;
	if (cubekey&2048){
		mes "As you look under the bed, you see that there";
		mes "is a small object covered in dust.";
		next;
		input @bed$;

		if (cubekey&4096 && (@bed$ == "long stick" || @bed$ == "Long Stick")){
			mes "You used the long stick to pull it out.";
			next;
			mes "You acquired '^FF0000cube model^000000'.";
			set cubekey,cubekey|131072;
			close;
		}
		mes "It looks like you need some kind of long item to";
		mes "Get the item out, you can't reach it!";
		close;
	}
	mes "You look below the bed and see a 'small stick'.";
	mes "It is within your grasp, but there is";
	mes "also another item hidden under the bed, which";
	mes "you'll need some kind of long item to pull it out.";
	next;
	mes "You acquired the '^FF0000small stick^000000'.";
	mes "It looks like this stick could be combined";
	mes "with another stick to make it larger.";
	set cubekey,cubekey|2048;

	if ((cubekey&4096) == 0 && cubekey&1024){
		set cubekey,cubekey|4096;
		next;
		mes "It looks similar to the decently sized stick that you";
		mes "found under the desk.";
		mes "You put the two end to end, and they click into place.";
		next;
		mes "You acquired '^FF0000long stick^000000'.";
	}
	close;

L_DONE:
	mes "This is the place where you got '^FF0000cube model^000000' from.";
	mes "There is nothing down here now but dust.";
	close;
}

//--------------------------Cup--------------------------

lhz_cube,229,184,0	script	Cup	111,{
	if (MISC_QUEST&512 || cubekey&4) goto L_DONE;
	mes "You see an empty bottle and a cup with something in it.";
	next;
	menu "Leave it alone.",-,"Look what is inside.",L_1;
	close;

L_1:
	mes "When you look inside, you see a 'rusty key'.";
	next;
	mes "You acquired the '^FF0000rusty key^000000'.";
	set cubekey,cubekey|4;
	close;

L_DONE:
	mes "You got the '^FF0000rusty key^000000' here.";
	mes "There's nothing but an empty cup and an empty bottle.";
	close;
}

//--------------------------Shelf--------------------------

lhz_cube,233,206,0	script	Shelf	111,{
	if (MISC_QUEST&512 || cubekey&8) goto L_DONE;
	mes "There are lots of bottles filled with acids lined up";
	mes "Along the shelf, they have different labels.";
	next;
	input @lathe$;

	if (cubekey&4 && (@lathe$ == "rusty key" || @lathe$ == "Rusty Key")) goto L_1;
	mes "Nothing happened.";
	close;

L_1:
	mes "As you put the 'rusty key' into a bottle, it fizzes";
	mes "and bubbles, and all the liquid disappears.";
	mes "All that's left is a clean, green key.";
	next;
	mes "You acquired the '^FF0000green key^000000'";
	set cubekey,cubekey|8;
	close;

L_DONE:
	mes "There is an acid that changed corroded all the rust";
	mes "off of your key.";
	next;
	mes "I don't see anything useful.";
	close;
}

//--------------------------Closet--------------------------

lhz_cube,249,191,0	script	Closet	111,{
	if (MISC_QUEST&512 || cubekey&8192) goto L_DONE;
	mes "There is a closet with lots of drawers.";
	if (cubekey&8) goto L_2;
	next;
	menu "Leave it alone.",-,"Open one of the drawers.",L_1;
	close;

L_1:
	mes "There's nothing of any interest in this drawer.";
	close;

L_2:
	next;
	input @gkey$;

	if (@gkey$ == "green key" || @gkey$ == "Green Key") goto L_3;
	mes "There's nothing of any interest in this drawer.";
	close;

L_3:
	mes "You put the 'green key' into a keyhole,";
	mes "opening one of the locked drawers.";
	mes "In the drawer, there is a model of";
	mes "a polygon.";
	next;
	mes "'You acquired the ^FF0000polygon model^000000.";
	set cubekey,cubekey|8192;
	close;

L_DONE:
	mes "This is the closet where you got";
	mes "the 'polygon model' from.";
	next;
	mes "The other draws will not open, there's";
	mes "nothing else to do here.";
	close;
}

//--------------------------Desk--------------------------

lhz_cube,234,200,0	script	Desk	111,{
	mes "There is a desk with lots of objects scattered around.";
	next;
	menu "Above the desk",-,"Below the desk",L_1,"Drawer",L_2;

	mes "There are lots of books, papers and";
	mes "research equipment.";
	close;

L_1:
	if(MISC_QUEST&512 || cubekey&1024) goto L_DONE;

	mes "When you look below the desk,";
	mes "You see a decent sized stick.";
	next;
	mes "You acquired '^FF0000short stick^000000'.";
	mes "It looks like this stick could be combined";
	mes "with another stick to make it larger.";
	set cubekey,cubekey|1024;
	if(cubekey&2048){
		set cubekey,cubekey|4096;
		next;
		mes "It seems like the decently sized stick can be";
		mes "combined with the 'short stick' from under the bed.";
		mes "You put the two end to end, and they click into place.";
		next;
		mes "You acquired the '^FF0000long stick^000000'";
	}
	close;
L_DONE:
	mes "This is where you acquired the '^FF0000short stick^000000'.";
	mes "There is nothing but dust now.";
	close;
L_2:
	mes "It is locked and can't be opened.";
	close;
}

//--------------------------Picture--------------------------

lhz_cube,237,206,0	script	Picture	111,{
	if (MISC_QUEST&512 || num1 > 0) goto L_DONE;
	mes "There is a picture on the wall.";
	next;
	menu "Move it.",L_1,"Leave it alone.",-;
	close;

L_1:
	mes "It does not move.";
	next;
	input @knife$;

	if (cubekey&32 && (@knife$ == "small knife" || @knife$ == "Small Knife")) goto L1_1;
	mes "Nothing happened.";
	close;

L1_1:
	mes "You slid the 'small knife' behind the frame";
	mes "and used it to twist the picture.";
	mes "As you turn the frame, the picture detatches and";
	mes "falls from the wall.";
	next;
	set num1,rand(1,9);
	Lset1:
	set num2,rand(1,9);
	if (num1 == num2) goto Lset1;
	Lset2:
	set num3,rand(1,9);
	if (num1 == num3) goto Lset2;
	if (num2 == num3) goto Lset2;
	Lset3:
	set num4,rand(1,9);
	if (num1 == num4) goto Lset3;
	if (num2 == num4) goto Lset3;
	if (num3 == num4) goto Lset3;
	Lset4:
	set num5,rand(1,9);
	if (num1 == num5) goto Lset4;
	if (num2 == num5) goto Lset4;
	if (num3 == num5) goto Lset4;
	if (num4 == num5) goto Lset4;
	Lset5:
	set num6,rand(1,9);
	if (num1 == num6) goto Lset5;
	if (num2 == num6) goto Lset5;
	if (num3 == num6) goto Lset5;
	if (num4 == num6) goto Lset5;
	if (num5 == num6) goto Lset5;
	Lset6:
	set num7,rand(1,9);
	if (num1 == num7) goto Lset6;
	if (num2 == num7) goto Lset6;
	if (num3 == num7) goto Lset6;
	if (num4 == num7) goto Lset6;
	if (num5 == num7) goto Lset6;
	if (num6 == num7) goto Lset6;
	Lset7:
	set num8,rand(1,9);
	if (num1 == num8) goto Lset7;
	if (num2 == num8) goto Lset7;
	if (num3 == num8) goto Lset7;
	if (num4 == num8) goto Lset7;
	if (num5 == num8) goto Lset7;
	if (num6 == num8) goto Lset7;
	if (num7 == num8) goto Lset7;
	Lset8:
	set num9,rand(1,9);
	if (num1 == num9) goto Lset8;
	if (num2 == num9) goto Lset8;
	if (num3 == num9) goto Lset8;
	if (num4 == num9) goto Lset8;
	if (num5 == num9) goto Lset8;
	if (num6 == num9) goto Lset8;
	if (num7 == num9) goto Lset8;
	if (num8 == num9) goto Lset8;

L_DONE:
	mes "There is a number behind the picture.";
	mes "" + num1 + "3 " + num2 + "6 " + num3 + "9 " + num4 + "4 " + num5 + "8 " + num6 + "1 " + num7 + "7 " + num8 + "2 " + num9 + "5";
	mes "Perhaps you should write this number down somewhere...";
	close;
}

//--------------------------generator--------------------------

lhz_cube,224,192,0	script	Generator	111,{
	if (MISC_QUEST&512 || cubekey&256) goto L_DONE;
	mes "The big machine is running, making a huge noise.";
	mes "There are lots weird symbols and";
	mes "a small key hole beside them.";
	next;
	input @key$;

	if (cubekey&1 && (@key$ == "yellow key" || @key$ == "Yellow Key")) goto L_1;
	mes "There's nothing to do here.";
	close;

L_1:
	mes "You insert the 'yellow key' into the keyhole";
	mes "and twist it.";
	mes "The machine clicks, and becomes silent.";
	next;
	mes "When it was stopped, the lamp next to the bed";
	mes "also turned off.";
	set cubekey,cubekey|256;
	close;

L_DONE:
	mes "The big machine sits quietly.";
	close;
}

//--------------------------Lamp--------------------------

lhz_cube,248,205,0	script	Lamp	111,{
	if (MISC_QUEST&512 || cubekey&16) goto L_DONE;
	if (cubekey&256) goto L_1;
	mes "There is a bright lamp.";
	mes "Seems like there is something inside";
	mes "but it is too hot to touch.";
	mes "It looks like you need to somehow turn the lamp off.";
	close;

L_1:
	mes "There is something inside of the bulb.";
	next;
	menu "Leave it alone.",-,"Break the bulb.",L_2;
	close;

L_2:
	mes "When you break the bulb, a";
	mes "'black key' falls out.";
	next;
	mes "You acquired the '^FF0000black key^000000'.";
	set cubekey,cubekey|16;
	close;

L_DONE:
	mes "There nothing but a broken bulb.";
	close;
}

//--------------------------Box--------------------------

lhz_cube,248,193,0	script	Box#02	111,{
	if (MISC_QUEST&512 || countitem(2657) || @gotLPkey) goto L_DONE;
	mes "There is a box with three holes.";
	next;
	if (cubekey&65536 && cubekey&262144 && cubekey&16384) goto L_4;
	menu "Ellipse hole",L_1,"Square hole",L_2,"Polygonal hole",L_3;

L_1:
	if (cubekey&65536) goto L1_2;
	input @ellipse$;

	if (cubekey&32768 && (@ellipse$ == "ellipse model" || @ellipse$ == "Ellipse Model")) goto L1_1;
	mes "Nothing happened.";
	close;

L1_1:
	mes "You inserted the 'ellipse model' into the ellipse-shaped hole.";
	mes "The box makes a metallic click.";
	set cubekey,cubekey|65536;
	close;

L1_2:
	mes "You've already inserted the 'ellipse model'.";
	close;

L_2:
	if (cubekey&262144) goto L2_2;
	input @quadrangle$;

	if (cubekey&131072 && (@quadrangle$ == "cube model" || @quadrangle$ == "Cube Model")) goto L2_1;
	mes "Nothing happened.";
	close;

L2_1:
	mes "You inserted the 'cube model' into the square-shaped hole.";
	mes "The box makes a metallic click.";
	set cubekey,cubekey|262144;
	close;

L2_2:
	mes "You already inserted the 'square model'.";
	close;

L_3:
	if (cubekey&16384) goto L3_2;
	input @polygon$;

	if (cubekey&8192 && (@polygon$ == "polygon model" || @polygon$ == "Polygon Model")) goto L3_1;
	mes "Nothing happened.";
	close;

L3_1:
	mes "You inserted the 'polygon model' into the polygonal hole.";
	mes "The box makes a metallic click.";
	set cubekey,cubekey|16384;
	close;

L3_2:
	mes "You've already inserted the 'polygon model'.";
	close;

L_4:
	mes "All holes are filled with keymodels.";
	next;
	menu "Leave it alone.",-,"Open the box.",L4_1;
	close;

L4_1:
	mes "There is a small card inside of it.";
	next;
	mes "You acquired the 'Laboratory Permit'.";
	set @gotLPkey,1;
	getitem 2657,1;
	close;

L_DONE:
	mes "There is an opened box.";
	mes "There is nothing inside.";
	close;
}

//--------------------------Test tube--------------------------

lhz_cube,224,197,0	script	Test Tube	111,{
	if (MISC_QUEST&512) goto L_DONE;
	if (countitem(2657) > 0) goto L_3;
	if (cubekey&32768) goto L_2;
	mes "There is a weird test tube.";
	mes "It seems like there is something inside.";
	mes "There' a keyhole and a hole that fits a thin object.";
	next;
	input @key$;

	if (cubekey&16 && (@key$ == "black key" || @key$ == "Black Key")) goto L_1;
	mes "Nothing happened.";
	close;

L_1:
	mes "You inserted the 'black key' and turned it.";
	mes "The glass window at the front of the machine opened,";
	mes "Revealing an ellipse model.";
	next;
	mes "You acquired the '^FF0000ellipse model^000000'.";
	set cubekey,cubekey|32768;
	close;

L_2:
	mes "This is where you got '^FF0000ellipse model^000000'.";
	mes "There is a weird symbol on the bottom of the machine.";
	mes "It looks like it could open as it has hinges on one side.";
	close;

L_3:
	mes "There is a rectangular hole in the front of the machine.";
	next;
	input @answer$;

	if (@answer$ == "Laboratory Permit" || @answer$ == "permit" || @answer$ == "laboratory permit" || @answer$ == "Permit") goto L_4;
	mes "Nothing happened.";
	close;

L_4:
	mes "You inserted the 'Laboratory Keycard' in the hole,";
	mes "and the stair leading down appeared on the floor.";
	next;
	menu "Go down.",L4_1,"Do not go down.",-;
	close;

L4_1:
	mes "It connected to a long staircase.";
	set cubekey,0;	
	set num1,0;	set num2,0;	set num3,0;	set num4,0;	set num5,0;
	set num6,0;	set num7,0;	set num8,0;	set num9,0;
	set piciburn,0;
	set MISC_QUEST,MISC_QUEST|512;
	close2;
L_DONE:
	warp "lhz_cube",177,13;
	end;
}

//============================================================
// Lighthalzen Pickpocket Mini-Quest
//============================================================

lighthalzen,240,216,4	script	Man#Pickpocket1	870,2,2,{
	end;
OnTouch:
	callfunc "F_LHZPick",33,1;
	close;
}

lighthalzen,220,169,4	script	Man#Pickpocket2	870,2,2,{
	end;
OnTouch:
	callfunc "F_LHZPick",33,2;
	close;
}

lighthalzen,164,127,4	script	Man#Pickpocket3	870,2,2,{
	end;
OnTouch:
	callfunc "F_LHZPick",20,3;
	if(@caught!=1) close;
	mes "[Strange Man]";
	mes "Ayee! I'm trapped.";
	mes "If you will forgive me,";
	mes "I can give you something good.";
	mes "["+strcharinfo(0)+"]";
	mes "You're forgiven, now what is this";
	mes "good thing you mentioned?";
	next;
	mes "[Strange Man]";
	mes "The lower part of your body,";
	mes "will produce a strong power";
	mes "once you've taken the secret potion.";
	mes "It's very useful";
	mes "when you want to run quickly";
	next;
	mes "[Strange Man]";
	mes "I will sell you them for a bargin";
	mes "price of 15,000 zeny to a maximum";
	mes "of three potions.";
	mes "How many do you want?";
	next;
	input @number;
	if(@number>3) set @number,3;
	set @cost,15000*@number;
	if(Zeny<@cost) goto L_Zeny;
	//please check that you add the script to it.
	set Zeny,zeny-@cost;
	getitem 12016,@number; //Speed Potion
	mes "[Strange Man]";
	mes "Thanks for your money.";
	if(rand(1,2)==1) goto L_Reset;
	disablenpc "Man#Pickpocket3";
	enablenpc "Man#Pickpocket2";
	close;
L_Reset:
	disablenpc "Man#Pickpocket3";
	enablenpc "Man#Pickpocket1";
	close;
L_Zeny:
	mes "[Strange Man]";
	mes "Too bad.";
	mes "No zeny makes you a poor man.";
	close;
OnInit:
	disablenpc "Man#Pickpocket2";
	disablenpc "Man#Pickpocket3";
}

function	script	F_LHZPick	{
	if(Zeny<100) set Zeny,0;
	if(Zeny>=100) set Zeny,zeny-100;
	mes "Pickpocket";
	next;
	if(rand(0,100)<getarg(0)) goto L_Caught;
	mes "Hehehehe....";
	return;
L_Caught:
	mes "(You notice the man put his";
	mes "hand in your pocket!)";
	mes "["+strcharinfo(0)+"]";
	mes "Eh!? What are you doing!";
	mes "You are!! Stealing my money?!";
	mes "[Strange Man]";
	mes "Ah! I'm caught!";
	mes "["+strcharinfo(0)+"]";
	mes "You're a pickpocket?!?";
	mes "[Strange Man]";
	mes "Hehehehe....";
	next;
	set @rand,rand(1,4);
	if(getarg(1)==1 && @rand<4) goto L_MoveB;
	if(getarg(1)==2 && @rand<4) goto L_MoveA;
	if(getarg(1)==1 && @rand==4) goto L_MoveC1;
	if(getarg(1)==2 && @rand==4) goto L_MoveC2;
	set @caught,1;
	return;
L_MoveA:
	disablenpc "Man#Pickpocket2";
	enablenpc "Man#Pickpocket1";
	return;
L_MoveB:
	disablenpc "Man#Pickpocket1";
	enablenpc "Man#Pickpocket2";
	return;
L_MoveC1:
	disablenpc "Man#Pickpocket1";
	enablenpc "Man#Pickpocket3";
	return;
L_MoveC2:
	disablenpc "Man#Pickpocket2";
	enablenpc "Man#Pickpocket3";
	return;
}

//==============================================================
// Friendship
//==============================================================

lhz_in02,201,210,3	script	Digotz	869,{

	if(friendship > 9)goto s_Dead;
	if(friendship == 9)goto s_Wounded;
	if(friendship == 8)goto s_Cont7;
	if(friendship == 6 && friendship2 || friendship == 7)goto s_Cont6;
	if(friendship == 6)goto s_Cont5;
	if(friendship == 4 || friendship == 5)goto s_Cont4;
	if(friendship == 3)goto s_Cont3;
	if(friendship == 2)goto s_Cont2;
	mes "[Digotz]";
	mes "Oh, an adventurer?";
	mes "Welcome to Uptown";
	mes "Lighthalzen. However,";
	mes "I'm afraid this area won't";
	mes "have much to offer you";
	mes "in the way of excitement.";
	next;
	if(friendship == 1)goto s_Cont;
	mes "[Digotz]";
	mes "Feel free to take";
	mes "a look around if you";
	mes "so wish. I'm actually";
	mes "glad to see somebody";
	mes "aside from the stuck up";
	mes "rich people who live here.";
	close;

s_Cont:
	mes "[Digotz]";
	mes "My name is Digotz,";
	mes "just another citizen";
	mes "of Upper Lighthalzen.";
	mes "I hope that you enjoy";
	mes "your stay in my hometown";
	next;
	menu "Do you know someone named Maku?",-;

	mes "[Digotz]";
	mes "Maku? Maku. Yes, he's my";
	mes "childhood friend. Or he was,";
	mes "anyway. Now he's just a jerk.";
	mes "In an case, we can't hang";
	mes "out, even if we wanted to,";
	mes "for several reasons.";
	next;
	mes "[Digotz]";
	mes "Hey, why am I even";
	mes "talking about this? It's";
	mes "not like I'm bothered by";
	mes "the fact that me and Maku aren't";
	mes "pals anymore. You know what?";
	mes "Just forget everything I said.";
	set friendship,2;
	close;

s_Cont2:
	mes "[Digotz]";
	mes "What are you still";
	mes "doing hanging around";
	mes "here? There's nothing";
	mes "interesting in Uptown";
	mes "for you to see, adventurer.";
	next;
	mes "[Digotz]";
	mes "Gosh...!";
	mes "Just hearing about";
	mes "Maku makes me so feel";
	mes "so upset for some reason!";
	close;

s_Cont3:
	mes "[Digotz]";
	mes "I know that the";
	mes "opulence of Uptown";
	mes "seems rather attractive,";
	mes "but trust me. This place";
	mes "is colorless. Now, have";
	mes "you visited the poor district?";
	next;
	menu "Yes, I did already...",-;

	mes "[" + strcharinfo(0) + "]";
	mes "Yes, I did already...";
	mes "And I met someone";
	mes "named Maku there.";
	next;
	mes "[Digotz]";
	mes "Maku?! Oh, he must have";
	mes "mentioned something about";
	mes "me. But I don't care what he";
	mes "says, unless it's an apology";
	mes "for being a fully blown jerk.";
	mes "Ever since we were kids...";
	next;
	mes "[Digotz]";
	mes "Anyway, we used to be close,";
	mes "but that guy was never a true";
	mes "friend of mine! Like that one";
	mes "time he cheated to beat me at";
	mes "arm wrestling! Or when he never";
	mes "thanked me for buying us lunch!";
	next;
	mes "[Digotz]";
	mes "Sure, he might have helped";
	mes "me a little in meeting my first";
	mes "girlfriend, but I'll never ever";
	mes "forgive him for fixing me up";
	mes "on the worst blind dates a";
	mes "man can possible experience!";
	next;
	mes "[Digotz]";
	mes "Maku doesn't know a damn";
	mes "about friendship! Even if I did";
	mes "want to see him, there are these";
	mes "people who don't want the rich";
	mes "to ever meet with the poor.";
	next;
	mes "If Maku's fine, that's";
	mes "good enough to hear for";
	mes "me! There's no need for me";
	mes "to go all the way over there";
	mes "and check up on him! I only";
	mes "have one regret though...";
	next;
	mes "[Digotz]";
	mes "I only wish I had one";
	mes "last chance to see Maku...";
	mes "So that I could kick his sorry";
	mes "ass myself! Yeah, that's right!";
	mes "Arrogant bastard! But still,";
	mes "I'm not able to do that...";
	next;
	mes "[Digotz]";
	mes "The security guards here";
	mes "will never allow the rich and";
	mes "poor to meet, fearing that";
	mes "the poor will disturb the peace";
	mes "and order of the city. It's a dumb";
	mes "rule made for dumb people.";
	next;
	mes "[Digotz]";
	mes "Still, it's pretty scary that";
	mes "someone can get punished";
	mes "for violating such a stupid";
	mes "taboo, actually. Anyway, if";
	mes "you see Maku again, tell";
	mes "him this for me, got it?";
	next;
	mes "[Digotz]";
	mes "^FF0000Hopeless bastard!";
	mes "You're still a stubborn jerk!";
	mes "You owe me at least 3 lunches!";
	mes "Not to mention an apology!";
	mes "But who cares what you think?!";
	mes "I'm so goddamn happy without you!";
	set friendship,4;
	close;

s_Cont4:
	mes "[Digotz]";
	mes "Still checking out";
	mes "Uptown Lighthalzen?";
	mes "Not like I'd care, but if you";
	mes "do happen to see Maku,";
	mes "deliver this little message";
	mes "for me, sentence by sentence.";
	next;
	mes "[Digotz]";
	mes "^FF0000Hopeless bastard!";
	mes "You're still a stubborn jerk!";
	mes "You owe me at least 3 lunches!";
	mes "Not to mention an apology!";
	mes "But who cares what you think?!";
	mes "I'm so goddamn happy without you!";
	close;

s_Cont5:
	mes "[Digotz]";
	mes "Oh, it's been a while.";
	mes "What are you doing back";
	mes "over here? And, um, did";
	mes "you deliver that message";
	mes "to Maku? Now when I think";
	mes "about it, I was kind of--";
	next;
	mes "[" + strcharinfo(0) + "]";
	mes "I delivered your message";
	mes "word for word, and Maku";
	mes "got angry, called you names";
	mes "and has been threatening to";
	mes "beat you up pretty badly.";
	next;
	mes "[Digotz]";
	mes "That no-good, dirty";
	mes "lying rotten scoundrel!";
	mes "If it weren't for those";
	mes "guards, I'd head over to";
	mes "the ghetto and beat Maku";
	mes "up myself! That stupid guy!";
	next;
	mes "[Digotz]";
	mes "During times like this,";
	mes "I really miss ^FF0000Benkaistein^000000";
	mes "That guy would always have";
	mes "an answer for this kind of";
	mes "situation. Yeah, I think he's";
	mes "in some far off town, studying.";
	next;
	mes "[Digotz]";
	mes "Supposedly he's in that";
	mes "place, whatever it's called,";
	mes "since there's a ton of books";
	mes "there that he can use. But";
	mes "yeah, Benkaistein would";
	mes "always be the mediator...";
	next;
	mes "[Digotz]";
	mes "Even back then, when";
	mes "me, him and Maku used to";
	mes "hang out, Benkastein would";
	mes "mediate if we got into some";
	mes "argument. Still, he couldn't";
	mes "do anything about Maku now...";
	next;
	mes "[Digotz]";
	mes "I don't know why,";
	mes "but I'm so angry!";
	mes "Why am I stressing";
	mes "out so much over this?!";
	set friendship2,1;
	close;

s_Cont6:
	mes "[Digotz]";
	mes "Even if Benkaistein came";
	mes "back from wherever he was";
	mes "studying, I don't think he'd be";
	mes "able to get Maku to apologize";
	mes "to me. That guy is just way";
	mes "too stubborn for his own good!";
	if(friendship != 7)close;
	next;
	menu "Show Benkastein's Journal",s_Journal,"Don't show Benkastein's Journal.",-;

	mes "[Digotz]";
	mes "I don't understand";
	mes "why I'm so angry!";
	mes "I'm starting to act";
	mes "more like Maku, though,";
	mes "don't get me wrong, it's";
	mes "not like I care about the guy.";
	close;

s_Journal:
	mes "[Digotz]";
	mes "Why am I so ticked off?";
	mes "^3131FF*Sigh*^000000 You have something";
	mes "to show me? Huh? Benkastein";
	mes "wanted me to read this diary";
	mes "of his? Sure, why not? I do";
	mes "owe him a lot over the years...";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Today, me, Digotz and";
	mes "Maku played this crazy flying";
	mes "game. Basically, we make";
	mes "these wings out of wood and";
	mes "paper, jump of these hills";
	mes "and try to fly. Dumb, I know.";
	next;
	mes "^000000[Benkastein's Journal]";
	mes "^AD9595Today it was my turn to";
	mes "jump and flap my arms with";
	mes "these fake, badly made wings.";
	mes "It's not really a fun game when";
	mes "I think about it. Boy, I hope";
	mes "we don't do that again.";
	next;
	mes "^000000[Digotz]";
	mes "Oh yeah, I remember that!";
	mes "Maky wore the wings most";
	mes "of the time, but I still hold";
	mes "the record for staying in the";
	mes "air the longest! Yeah, I was";
	mes "a regular Kid Pegasus~";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Maku, Digotz and me went";
	mes "outside of town. Of course,";
	mes "we didn't tell anyone or else";
	mes "we'd get in trouble. It was";
	mes "a really exciting day. But";
	mes "then, we ran into a monster!";
	next;
	mes "^000000[Benkastein's Journal]";
	mes "^AD9595I wanted to run away but Maku";
	mes "and Digotz wanted to beat it so";
	mes "that we could become heroes.";
	mes "Of course, we got hurt pretty";
	mes "bad and the monster got away.";
	mes "Boy, mom was not happy...";
	next;
	mes "^000000[Digotz]";
	mes "Huh. I don't remember";
	mes "that so well. But I know that";
	mes "Benkastein, me and Maku";
	mes "weren't afraid of anything back";
	mes "then. We must have been totally";
	mes "nuts to fight a monster, though.";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Digotz's been sick for three";
	mes "days now. It's just a normal";
	mes "cold and Maku keeps saying";
	mes "it's Digotz's fault he got sick.";
	mes "But he's always asking me to";
	mes "go visit him and see if he's okay.";
	next;
	mes "^000000[Digotz]";
	mes "I think I remember being";
	mes "pretty sick. Maku was worried?";
	mes "I... I must have had a horrible";
	mes "life threatening disease like,";
	mes "um, Gonorrhitis. You know.";
	mes "That might have been it.";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Mom and dad keep telling";
	mes "me not to hang out with Maku";
	mes "anymore. Their reason is really";
	mes "dumb, and I don't care if he is";
	mes "poor. He's one of the best guys";
	mes "that I'll ever know.";
	next;
	mes "^000000[Benkastein's Journal]";
	mes "^AD9595Digotz's family is really";
	mes "rich and they don't want him";
	mes "to see Maku anymore either.";
	mes "But Digotz doesn't care.";
	mes "I know he likes Maku a lot.";
	next;
	mes "^000000[Digotz]";
	mes "Well, we were a lot";
	mes "younger and closer back";
	mes "then, so... ^111111*Ahem!*^000000Why did";
	mes "Benkastein even write that?!";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Today, the three of us";
	mes "made an oath of brotherhood,";
	mes "just like we read in the comic";
	mes "book. We swore we'd always";
	mes "be friends no matter what.";
	mes "For always and for always.";
	next;
	mes "^000000[Digotz]";
	mes "I... I was forced to make";
	mes "that oath! And people do";
	mes "change, you know! I mean,";
	mes "we were basically just kids,";
	mes "it's not like that oath really";
	mes "means anything now, does it?";
	next;
	mes "[Digotz]";
	mes "That does it. I'm gonna";
	mes "go see that Maku. I don't";
	mes "miss him or anything, but";
	mes "I gotta get him to cancel";
	mes "that oath. And maybe I'll";
	mes "beat up him a little bit.";
	set friendship,8;
	close;

s_Cont7:
	mes "[Digotz]";
	mes "Wh-whoa, I need to";
	mes "get ready! That Maku's";
	mes "gonna make fun of me if";
	mes "I look too rich and pampered.";
	mes "Damn! Where did I put all of";
	mes "my fashionable street clothes?";
	close;

s_Wounded:
	mes "^3131FFDigotz is seriously";
	mes "injured from a wound";
	mes "by a knife that is still";
	mes "embedded in his belly.^000000";
	next;
	mes "[" + strcharinfo(0) + "]";
	mes "Digotz...?";
	mes "Oh no, let me";
	mes "get you some help!";
	next;
	mes "[Digotz]";
	mes "H-het... It's the";
	mes "adventurer... Man,";
	mes "that Maku. He always";
	mes "did bring me bad luck...";
	mes "It's too late for me and";
	mes "I don't have much time...";
	next;
	mes "[Digotz]";
	mes "Those guards I told you";
	mes "about... The ones who don't";
	mes "want the poor and the rich to";
	mes "mingle? I... Guess they found";
	mes "out I was gonna meet my old";
	mes "pal. I just wanted to see him...";
	next;
	mes "[Digotz]";
	mes "This guy... In a black";
	mes "suit... He just... He just";
	mes "stabbed me! I... God. It's";
	mes "been so long since I've talked";
	mes "to him. We'll hang out and have";
	mes "fun, just like the good old days.";
	next;
	mes "[Digotz]";
	mes "I missed my buddies, but now...";
	mes "Now I can hear them calling me.";
	mes "Now we can all be together just";
	mes "like we all promised. Yeah...";
	mes "I was wrong. Life's too short";
	mes "to be angry with your frie--";
	next;
	mes "[Digotz]";
	mes "..............";
	next;
	mes "[Digotz]";
	mes "..............";
	mes ".......................";
	next;
	mes "[Digotz]";
	mes "..............";
	mes ".......................";
	mes "................................";
	next;
	mes "^3131FFDigotz stopped breating.";
	mes "You remove the Knife from";
	mes "his lifeless body as a final";
	mes "courtesy to a man who";
	mes "dearly loved his friends.";
	next;
	set friendship,10;
	getitem 1201,1;
	close;

s_Dead:
	mes "^3131FFDigotz has passed";
	mes "away, but the look on";
	mes "his face seems very";
	mes "peaceful and content.";
	close;

}

lighthalzen,337,232,3	script	Maku	870,{

	if(friendship > 1)goto Switches;
	mes "[Maku]";
	mes "Hey, you're on of";
	mes "those adventurers, eh?";
	mes "Welcome to the ghetto.";
	mes "Nothing too adventurous";
	mes "here, but hey, you can";
	mes "explore all you want.";
	next;
	mes "[Maku]";
	mes "I don't know if you know";
	mes "but actually, the people who";
	mes "live here ain't allowed to";
	mes "explore this whole city. It's";
	mes "kind of taboo to talk about,";
	mes "but what do I care, right?";
	next;
	mes "[Maku]";
	mes "Yeah, basically the rich";
	mes "people here are too afraid";
	mes "of the poor people comin' to";
	mes "see them, so the security in";
	mes "this city is pretty tight! Those";
	mes "upper class guys are trash...";
	next;
	mes "[Maku]";
	mes "I didn't use to think";
	mes "this way. I actually used";
	mes "to have a pretty rich friend";
	mes "till I found out he's not all";
	mes "I thought he was. That";
	mes "moron! Why's he like that?!";
	next;
	mes "[Maku]";
	mes "Eh, forget about it.";
	mes "Why am I even talking";
	mes "about my personal life";
	mes "to someone I just met";
	mes "anyway? Sure, we all";
	mes "do it, but still...";
	next;
	mes "[Maku]";
	mes "Well, when you get";
	mes "bored of the ghetto,";
	mes "you really oughta check";
	mes "out the rich section of town.";
	mes "I'm bitter, but I'll also admit";
	mes "it's way nicer than this place.";
	if(BaseLevel > 29) set friendship,1;
	close;


Switches:
	switch(friendship)
	{
	
	case 2:
		mes "[Maku]";
		mes "Hey, what are you";
		mes "doing back over here?";
		mes "I thought I recommended";
		mes "going over to check out";
		mes "Uptown Lighthalzen. This";
		mes "place is pretty run-down...";
		next;
		menu "I actually met Digotz and...",-;

		mes "[Maku]";
		mes "You what...?!";
		mes "You saw my old pal,";
		mes "Digotz?! Er, I mean,";
		mes "Mister Alexander Digotz,";
		mes "who used to be my buddy,";
		mes "but obviously not anymore.";
		next;
		mes "[Maku]";
		mes "Sure, we were real close";
		mes "at one time, but that was";
		mes "too long ago. It's been a";
		mes "long time since we hung";
		mes "out and he probable hates";
		mes "my penniless guts and...";
		next;
		mes "[Maku]";
		mes "Crud, just listen to";
		mes "me, I sound like a wuss.";
		mes "I don't miss Digotz! In fact,";
		mes "I hate the guy, one hundred";
		mes "percent! The next time I see";
		mes "him, I'll beat him to a pulp!";
		set friendship,3;
		close;
	break;

	case 3:
		mes "[Maku]";
		mes "Man, I need to blow off some";
		mes "steam! Sure, me and Digotz";
		mes "were buds before and maybe";
		mes "we might seem like friends now,";
		mes "but not anymore, though we used";
		mes "to be closer than this. Argh!";
		next;
		mes "[Maku]";
		mes "Don't get me wrong, I don't";
		mes "miss the guy or anything like";
		mes "that and I don't feel sorry about";
		mes "what happened. But if he ever";
		mes "came to apologize to me, I'd";
		mes "probably accept, you know.";
		next;
		mes "[Maku]";
		mes "Well, after thinking";
		mes "about it, of course.";
		mes "I mean, I'm not the one";
		mes "holding a grudge. It's all";
		mes "that guy's fault! Sheeeesh!";
		close;
	break;

	case 4:
		mes "[Maku]";
		mes "What the hell are you";
		mes "still doing around here?";
		mes "You must have better things";
		mes "to do than talk to a ruffian";
		mes "like me or that snobby and";
		mes "totally prickish Digotz.";
		next;
		menu "Speaking of which...",-;
		mes "[" + strcharinfo(0) + "]";
		mes "Speaking of which...";
		mes "I spoke to Digotz again.";
		mes "He told me to give you a";
		mes "message, but I'm not sure th--";
		next;
		mes "[Maku]";
		mes "That no-good bastard";
		mes "has a message for me?!";
		mes "Oh, I'm soooo honored~";
		mes "Tell me what that fink";
		mes "has to say, line by line!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "Hopeless bastard!")goto failstr;
		mes "[Maku]";
		mes "\"Hopeless Bastard?!\"";
		mes "Well, at least he had";
		mes "the stomach to say that.";
		mes "Through somebody else";
		mes "anyway! What else'd he say?!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "You're still a stubborn jerk!")goto failstr;
		mes "[Maku]";
		mes "\"Stubborn Jerk?!\"";
		mes "Takes no one to know one,";
		mes "bastard! Why I oughta--";
		mes "Grrr! What'd he say next?!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "You owe me at least 3 lunches!")goto failstr;
		mes "[Maku]";
		mes "Three lunches?!";
		mes "I treated that guy to";
		mes "lunch like, fifteen times!";
		mes "I tell you, the guy does not";
		mes "know the meaning of friendship!";
		mes "What else did that moron say?!";
		next;
		input @digotzstr$;	
		if(@digotzstr$ != "Not to mention an apology!")goto failstr;
		mes "[Maku]";
		mes "Me, apologize?!";
		mes "He should be on his hands";
		mes "and knees begging for my";
		mes "frickin' forgiveness! That...";
		mes "That selfish no-good stupid...";
		mes "W-what else did he tell you?!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "But who cares what you think?!")goto failstr;
		mes "[Maku]";
		mes "Who cares what I think?!";
		mes "GRRRAAH~!! Who cares";
		mes "what he thinks!! ^111111*Pant Pant*^000000";
		mes "I'm gonna murderlize that";
		mes "dumb creep! He can't possibly";
		mes "make me angrier than I am now!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "I'm so goddamn happy without you!")goto failstr;
		mes "[Maku]";
		mes "That's it.";
		mes "It's decided. The";
		mes "next time I see Digotz,";
		mes "I'm gonna plaster his";
		mes "face all over the floor.";
		set friendship,5;
		close;
	break;

	case 5:
		mes "[Maku]";
		mes "RrrrRrrrr.....";
		mes "RrrrrRRRrrRR.....";
		mes "GGGGGRRRRR...";
		next;
		mes "^3131FFUh oh...";
		mes "It looks like Maku";
		mes "is starting to rage";
		mes "just a bit too much.^000000";
		next;
		mes "[Maku]";
		mes "...";
		mes "......";
		mes ".........";
		next;
		mes "[Maku]";
		mes "Gggrrrr...";
		next;
		mes "[Maku]";
		mes "GRAAAAAAAAH~!";
		mes "Who the hell does he";
		mes "think he is, telling me";
		mes "all sorts of crap!? Digotz,";
		mes "you're not getting away";
		mes "with this! Gonna wreck you!!";
		next;
		set Hp,MaxHp/2;
		mes "^3131FFMaku's seething quickly";
		mes "explodes into pure, violent";
		mes "rage. You manage to calm";
		mes "him down after a while, but";
		mes "barely keep yourself from";
		mes "getting killed in this outburst^000000";
		next;
		mes "[Maku]";
		mes "^111111*Pant pant* *Whew~*^000000";
		mes "D-don't worry, I've got";
		mes "a grip on myself now.";
		mes "Thanks for not letting me";
		mes "get too crazy. Times like";
		mes "this, I really miss ^FF0000Benkaistein^000000.";
		next;
		mes "[Maku]";
		mes "Benkastein would always";
		mes "make sure that I'd stay out";
		mes "of fights. I really miss that";
		mes "guy. Still, he ain't around...";
		next;
		mes "[Maku]";
		mes "Damn those guards!";
		mes "If they weren't there,";
		mes "I could just go over and";
		mes "kick Digotz's ass! I swear,";
		mes "if it weren't for them...!";		
		set friendship,6;
		close;
	break;

	case 6:
		mes "[Maku]";
		mes "Arrrrgh! Whenever I hear";
		mes "about that Digotz, I get so";
		mes "peeved! Is that guy giving";
		mes "me the brushoff just because";
		mes "I'm not a rich guy like he is?!";
		next;
		mes "[Maku]";
		mes "I can't...";
		mes "I can't even beat him up";
		mes "all properly because of";
		mes "all those freakin' guards!";
		mes "Arrrrrrrgh! Man, where's";
		mes "Benkastein when I need him?";
		close;
	break;

	case 7:
		mes "[Maku]";
		mes "Arrrrgh! Whenever I hear";
		mes "about that Digotz, I get so";
		mes "peeved! Is that guy giving";
		mes "me the brushoff just because";
		mes "I'm not a rich guy like he is?!";
		next;
		mes "[Maku]";
		mes "I can't...";
		mes "I can't even beat him up";
		mes "all properly because of";
		mes "all those freakin' guards!";
		mes "Arrrrrrrgh! Man, where's";
		mes "Benkastein when I need him?";
		close;
	break;

	case 8:
		mes "[Maku]";
		mes "Hey, what is that? You want";
		mes "me to read this journal?";
		mes "Er, okay, but I'm none too";
		mes "comfortable going through";
		mes "somebody's diary. It's just";
		mes "kinda... creepy, you know?";
		next;
		mes "[Maku]";
		mes "Hey, this think is";
		mes "Benkastein's. I haven't";
		mes "seen that guy in a long while.";
		mes "Ah, so he gave it to you for me";
		mes "to read? Alright, I owe him a";
		mes "favor or two, so I oughta...";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Today, me, Digotz and";
		mes "Maku played this crazy flying";
		mes "game. Basically, we make";
		mes "these wings out of wood and";
		mes "paper, jump of these hills";
		mes "and try to fly. Dumb, I know.";
		next;
		mes "^000000[Benkastein's Journal]";
		mes "^AD9595Today it was my turn to";
		mes "jump and flap my arms with";
		mes "these fake, badly made wings.";
		mes "It's not really a fun game when";
		mes "I think about it. Boy, I hope";
		mes "we don't do that again.";
		next;
		mes "^000000[Maku]";
		mes "What is he talking about?!";
		mes "That game was real fun!";
		mes "Yeah, I usually wore the";
		mes "wings and Digotz always";
		mes "wanted to wear them too.";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Maku, Digotz and me went";
		mes "outside of town. Of course,";
		mes "we didn't tell anyone or else";
		mes "we'd get in trouble. It was";
		mes "a really exciting day. But";
		mes "then, we ran into a monster!";
		next;
		mes "^000000[Benkastein's Journal]";
		mes "^AD9595I wanted to run away but Maku";
		mes "and Digotz wanted to beat it so";
		mes "that we could become heroes.";
		mes "Of course, we got hurt pretty";
		mes "bad and the monster got away.";
		mes "Boy, mom was not happy...";
		next;
		mes "^000000[Maku]";
		mes "That's right! Back then,";
		mes "the three of us weren't";
		mes "afraid of anything! Of course,";
		mes "Digotz got beat up the most.";
		mes "But I gotta say, he was also";
		mes "the most fearless of us.";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Digotz's been sick for three";
		mes "days now. It's just a normal";
		mes "cold and Maku keeps saying";
		mes "it's Digotz's fault he got sick.";
		mes "But he's always asking me to";
		mes "go visit him and see if he's okay.";
		next;
		mes "^000000[Maku]";
		mes "Wh-what?! No, I wasn't";
		mes "worried at all! That must";
		mes "have been the time Digotz";
		mes "caught Clymonia. You know,";
		mes "that, uh, horrible disease. No";
		mes "one should have that one!";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Mom and dad keep telling";
		mes "me not to hang out with Maku";
		mes "anymore. Their reason is really";
		mes "dumb, and I don't care if he is";
		mes "poor. He's one of the best guys";
		mes "that I'll ever know.";
		next;
		mes "^000000[Benkastein's Journal]";
		mes "^AD9595Digotz's family is really";
		mes "rich and they don't want him";
		mes "to see Maku anymore either.";
		mes "But Digotz doesn't care.";
		mes "I know he likes Maku a lot.";
		next;
		mes "^000000[Maku]";
		mes "...";
		mes "......";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Today, the three of us";
		mes "made an oath of brotherhood,";
		mes "just like we read in the comic";
		mes "book. We swore we'd always";
		mes "be friends no matter what.";
		mes "For always and for always.";
		next;
		mes "^000000[Maku]";
		mes "Well, that's true,";
		mes "I guess, but people";
		mes "change! Besides, we got";
		mes "that idea from a comic book!";
		mes "Well, if he apologizes first,";
		mes "I guess I better forgive him.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Good...";
		mes "Because Digotz said";
		mes "that he'll be coming";
		mes "by in a few days.";
		next;
		mes "[Maku]";
		mes "What?! He's really coming";
		mes "here? What for? It's too late";
		mes "to patch things up! Still, I'd be";
		mes "a real prick if I didn't see him";
		mes "Alright, fine! I'll teach that guy";
		mes "a lesson once he's here!";
		next;
		mes "[Maku]";
		mes "And, um, gimme that";
		mes "journal! I'm gonna read";
		mes "more of it so I can make";
		mes "fun of Digotz. Bwahahaha!";
		mes "But yeah, um, thanks. Not";
		mes "that I'm grateful or anything.";
		next;
		mes "[Maku]";
		mes "So, uh, I guess";
		mes "I'll see you later.";
		mes "Um, now I gotta get";
		mes "ready for something.";
		mes "^111111(But not to see Digotz!)";
		if(countitem(7351))delitem 7351,1;
		set friendship,9;
		close;
	break;

	case 9:
		mes "[Maku]";
		mes "Why is Digotz";
		mes "so late? This isn't";
		mes "like him at all. Maybe";
		mes "something's wrong?";
		close;
	break;

	case 10:
		mes "[Maku]";
		mes "Why is Digotz";
		mes "so late? This isn't";
		mes "like him at all. Maybe";
		mes "something's wrong?";
		next;
		mes "[Maku]";
		mes "Eh, he might have";
		mes "some kinda reason for";
		mes "being late, but if he don't,";
		mes "i've been saving a whole";
		mes "six pack of kickass to open,";
		mes "just for him. Heh heh heh~";
		close;
	break;

	case 11:
		mes "[Maku]";
		mes "Why is Digotz";
		mes "so late? This isn't";
		mes "like him at all. Maybe";
		mes "something's wrong?";
		next;
		mes "[Maku]";
		mes "Eh, he might have";
		mes "some kinda reason for";
		mes "being late, but if he don't,";
		mes "i've been saving a whole";
		mes "six pack of kickass to open,";
		mes "just for him. Heh heh heh~";
		close;
	break;
	}

failstr:
	mes "[Maku]";
	mes "Wha...? I dunno if Digotz";
	mes "would say something like";
	mes "that. You sure you heard";
	mes "him carefully enough? It's";
	mes "been a while, but I know";
	mes "how Digotz talks, man.";
	close;
}

yuno_in04,107,14,4	script	Student	754,{

	mes "[Joey Choryee]";
	mes "This is a study area where";
	mes "you're not supposed to speak,";
	mes "walk or even breathe loudly.";
	mes "Still, students like Benkastein";
	mes "can tune out the whole world";
	mes "when they study hard enough...";
	if(friendship != 6)close;
	next;
	mes "[Joey Choryee]";
	mes "Benkastein...?";
	mes "He's in the north part.";
	mes "of this room. He's a real";
	mes "nice guy, but a little anal.";
	mes "Well, he's too organized";
	mes "and he labels everything!";
	close;

}

yuno_in04,96,106,4	script	Passionate Student	754,{

	if(friendship == 10)goto s_Ask;
	if(friendship3 == 2 || friendship3 == 3)goto s_Cont2;
	if(friendship3 == 1)goto s_Cont;
	mes "[Passionate Student]";
	mes "Let's see, now.";
	mes "Wind Magic, Black Magic,";
	mes "Porings, ah, there it is";
	mes "Monster race properties.";
	mes "Hopefully this contains";
	mes "the information I need...";
	next;
	if(friendship != 6)goto s_Dialog;
	mes "Upon briefly glancing at";
	mes "this student's belongings,";
	mes "you notice that the name";
	mes "\"Benkastein\" is printed";
	mes "on them. This is the friend";
	mes "mentioned by Maku and Digotz!";
	next;
	menu "Excuse me...",-;
	mes "[" + strcharinfo(0) + "]";
	mes "Excuse me...";
	mes "Benkastein?";
	next;
	mes "[Passionate Student]";
	mes "...The world of humans";
	mes "and the world of demons,";
	mes "yes, yes... No, what I'm";
	mes "looking for is a reference";
	mes "to the heavens of Asgard.";
	mes "Hmm, this here might help...";
	next;
	menu "Hey...",-;
	mes "[" + strcharinfo(0) + "]";
	mes "Hey...";
	mes "Over here.";
	mes "Benkastein!";
	next;
	mes "[Passionate Student]";
	mes "...Oh, now that's a very";
	mes "interesting observation.";
	mes "If I can incorporate that";
	mes "into my thesis without too";
	mes "much trouble, my standpoint";
	mes "would look much more solid...";
	next;
	menu "HEY YOU...!",-;
	mes "[" + strcharinfo(0) + "]";
	mes "HEY YOU...!";
	mes "BENKASTEIN~!";
	next;
	mes "[Passionate Student]";
	mes "Oh, good heavens!";
	mes "C-can't you keep";
	mes "your voice down?";
	mes "I-I'm trying to study!";
	mes "No, wait. Have you been";
	mes "calling me all this time?";
	set friendship3,1;
	close;

s_Cont:
	mes "[Passionate Student]";
	mes "Oh, you startled me!";
	mes "Still, I'm aware that it's";
	mes "hard to get my attention";
	mes "once I immerse myself";
	mes "in a book. So, how can";
	mes "I help you, adventurer?";
	next;
	menu "Tell him about Maku and Digotz.",-;
	mes "[Benkastein]";
	mes "Oh, how are my friends";
	mes "doing? Oh, what? They're";
	mes "having a huge fight just";
	mes "because one's rich and";
	mes "the other one's poor?";
	mes "That's pretty childish!";
	next;
	mes "[Benkastein]";
	mes "But then again, that's just";
	mes "like them. ^111111*Sigh*^000000 I really want";
	mes "to go back home and get those";
	mes "two to make up, but I also need";
	mes "to finish this thesis. Let's see...";
	mes "What can I possibly do from here?";
	next;
	mes "[Benkastein]";
	mes "Oh, I know what I can do!";
	mes "Wait, but where did I put it?";
	mes "Oh, how cold I lose something";
	mes "so important? Wait! Would you";
	mes "please wait a second while";
	mes "I look for something?";
	set friendship3,2;
	close;

s_Cont2:
	mes "[Benkastein]";
	mes "Aw nuts, this is";
	mes "taking much longer";
	mes "than I had expected.";
	mes "Now where did I put";
	mes "that thing? Hmmmm...";
	if(friendship3 == 3)goto s_Cont3;
	next;
	mes "^3131FFPerhaps it would";
	mes "be best if you help";
	mes "Benkastein to look for";
	mes "what he's searching for.";
	close;

s_Cont3:
	next;
	mes "[Benkastein]";
	mes "Oh, is that it?";
	mes "Did you find my";
	mes "journal? Quick, let";
	mes "me check. Yes, yes...";
	mes "This is it! Thank you";
	mes "for finding this for me!";
	next;
	mes "[Benkastein]";
	mes "Would you mind doing";
	mes "a favor for me? It'd be";
	mes "better if I talk to them";
	mes "myself, but I'm too busy";
	mes "working on this thesis...";
	next;
	mes "[Benkastein]";
	mes "Would you please give this";
	mes "journal to Digotz and Maku?";
	mes "I wrote it in when we were";
	mes "really young, so it should";
	mes "remind them of all the good";
	mes "times we used to share.";
	next;
	mes "[Benkastein]";
	mes "Anyway, this should at";
	mes "least help them realize";
	mes "how stupid they've been";
	mes "acting. Thanks in advance,";
	mes "and please take care of";
	mes "Maku and Digotz for me.";
	if(friendship == 6)set friendship,7;
	close;

s_Dialog:
	mes "^3131FFThis student seems to";
	mes "be dilligently conducting";
	mes "intensive research on some";
	mes "academic subject. For now,";
	mes "it would be best to leave him";
	mes "alone so that he can study.";
	close;

s_Ask:
	mes "[Benkastein]";
	mes "Were you able to bring";
	mes "my journal to Digotz and";
	mes "Maku? I'm pretty sure it'd";
	mes "remind them of all the good";
	mes "times we had. I know they";
	mes "sure can be stubborn...";
	next;
	mes "[Benkastein]";
	mes "Anyway, I really";
	mes "appreciate all your";
	mes "help. When I go back";
	mes "home, I look forward to";
	mes "seeing the two of them again.";
	next;
	mes "[Benkastein]";
	mes "Until then, I need to research,";
	mes "finish my thesis and accomplish";
	mes "my academic goals. Oh, please";
	mes "take this pass which will let you";
	mes "go back and forth between the";
	mes "rich and poor areas as my thanks.";
	next;
	mes "[Benkastein]";
	mes "Anyway, I wish you";
	mes "safety in your travels,";
	mes "adventurer. When the three";
	mes "of us get together, I'll be";
	mes "sure to let you know~";
	if(BaseLevel < 41)set BaseExp,BaseExp+49500;
	else if(BaseLevel > 40 && BaseLevel < 61)set BaseExp,BaseExp+99000;
	else if(BaseLevel > 60 && BaseLevel < 71)set BaseExp,BaseExp+198000;
	else if(BaseLevel > 70 && BaseLevel < 81)set BaseExp,BaseExp+396000;
	else if(BaseLevel > 80 && BaseLevel < 91)set BaseExp,BaseExp+594000;
	else if(BaseLevel > 90)set BaseExp,BaseExp+792000;
	getitem 7350,1;
	set friendship,11;
	set friendship3,0;
	close;

}

yuno_in04,168,117,1	script	Book	111,{

	if(friendship3 >= 3)goto Book2;
	if(friendship3 == 2)goto Book;
	mes "^3131FFThis book is labeled,";
	mes "\"Benkastein's Journal";
	mes "Vol. 6.\".";
	close;
Book:
	mes "^3131FFThis book is labeled,";
	mes "\"Benkastein's Journal";
	mes "Vol. 6.\". This is probably";
	mes "what Benkastein was trying";
	mes "to find, so it might be best to";
	mes "bring this and show it to him";
	set friendship3,3;
	getitem 7351,1;
	close;
Book2:
	mes "^3131FFThis is where you found";
	mes "the book that Benkastein";
	mes "was looking for.";
	close;

}

yuno_in04,171,117,1	script	List of Books	111,{

	mes "^3131FFYou find a series";
	mes "of paperback books";
	mes "with titles, printed";
	mes "on the binding in an";
	mes "elegantly decorative";
	mes "cursive style font.";
	mes "The titles include...";
	next;
	mes "*Volcanic Passion*";
	mes "*Midnight Crescendo*";
	mes "*A Paris Affair*";
	mes "*Fever Pitch*";
	mes "*The Cowyboy Next Door*";
	mes "*Platonic Romance*";
	mes "*How Lara Got Her Groove Back*";
	next;
	mes "^000000[" + strcharinfo(0) + "]";
	mes "What the...?!";
	mes "This place even has";
	mes "a romance novel section?";
	close;

}