Rikimaru

I searched on eAthena and found a post of AnnieRuru ,so I edited her Soul Linker NPC to make it work for you,like you wanted it to work. Here it is :
http://pastebin.com/C2uH07ac

Try this :

NPC,Header,here,{ OnInit: set .map$,"YOURMAPHERE"; waitingroom "["+getmapusers(.map$)+"/15]",0; end; }

Why don't you just edit your item_db.txt to give all weapons / equipments 4 slots and then take an already scripted Mall script. I just used this one and edited it :

//##################################################################### //# # //# ##### # ######## # # ##### ## # # # //# # ### ## # # # # # # ### # //# #### # # ## ###### #### # # # # # # //# # ####### ## # # # # # # ####### # //# ##### # # ## # # ##### # ## # # # //# # //##################################################################### // // //===== Athena Script =============================================== //= Shopping Mall Script //===== Credits to ================================================== //= Created by : Ayumi //= Edit and Bug Fixed By : jm1211 //= Edited and Bug fixed again,added 3rd Job Shops : Rikimaru //===== Current Version: ============================================ //= 1.0 //===== Compatible With: ============================================ //= Any Athena Version //===== Description: ================================================ //= Shopping Mall cointaining most item except cards //===== Additional Comments: ======================================== //= please include my name if u edited this script //=================================================================== //The Shops quiz_02,322,83,5 shop Upper Headgear 1 731,5105:1000000,5106:1000000,5201:1000000,5097:1000000,5226:1000000,5011:1000000,5137:1000000,5207:1000000,5246:1000000,2254:1000000,5132:1000000,5153:1000000,5333:1000000,2284:1000000,2285:100000,2261:1000000,5264:1000000,5189:1000000,5270:1000000,5174:1000000,5116:1000000,2211:10000,5042:1000000,5147:1000000,5076:1000000,5172:1000000,2244:50000,5129:1000000,2216:100000,5057:1000000,5065:1000000,5052:1000000,2279:50000,5017:1000000,5016:1000000,5150:1000000,5114:50000,5034:1000000,2214:1000000,5024:1000000,5178:1000000,2226:50000,5145:1000000,5026:1000000,2232:50000,2249:1000000,5019:1000000,5075:1000000,5048:1000000,5036:1000000,5080:1000000,5081:1000000,2235:1000000,2250:50000,5082:1000000,5038:1000000,2273:1000000,5058:500000,2283:1000000,5015:10000,5146:1000000,2255:1000000,2207:100000,5047:1000000,5170:1000000,5018:1000000,2215:1000000,5061:1000000,5124:500000,5056:100000,2290:100000,5111:1000000,5144:1000000,2230:500000,2274:1000000,5063:1000000,5128:500000,2246:1000000,5007:1000000,2298:1000000,5021:1000000,2210:10000,2282:1000000,2220:10000,5001:1000000,5041:1000000,5025:1000000,2228:100000,5070:1000000 quiz_02,325,84,5 shop Upper Headgear 2 762,5072:1000000,5190:1000000,5010:1000000,5071:1000000,5209:1000000,2271:1000000,5002:1000000,5003:1000000,5020:1000000,5140:1000000,5069:1000000,2213:1000000,5084:1000000,5139:1000000,5027:1000000,5138:1000000,5045:1000000,5122:1000000,2256:1000000,5141:1000000,5031:1000000,2259:1000000,5073:1000000,2251:100000,5126:1000000,5127:1000000,5117:1000000,5148:1000000,5099:1000000,2277:100000,5037:100000,2299:100000,5030:100000,5023:1000000,5060:1000000,5012:100000,2287:100000,2289:1000000,5035:1000000,2293:1000000,5134:1000000,5182:1000000,5118:1000000,5008:100000,5033:1000000,5039:1000000,2275:1000000,5109:1000000,5083:1000000,5108:1000000,2208:10000,2247:500000,5009:1000000,2280:1000000,5100:1000000,5078:1000000,5133:1000000,5149:1000000,5064:1000000,5212:1000000,5067:1000000,2258:1000000,5029:1000000,2294:1000000,2272:1000000,5062:1000000,5049:1000000,5066:1000000,5287:1000000,5032:1000000,5103:1000000,2253:1000000,2245:500000,5059:1000000,2234:1000000,5077:1000000,2222:100000,5123:500000,2257:500000,2206:100000,2248:500000,5044:1000000,5115:1000000,2252:1000000,5050:1000000,5079:1000000 quiz_02,328,85,5 shop Middle Headgear 899,5074:1000000,2276:1000000,2296:1000000,5102:1000000,2295:500000,5800:1000000,5040:1000000,5135:1000000,5104:1000000,2205:100000,2286:1000000,5068:1000000,2212:100000,5154:1000000,5014:1000000,2243:100000,2203:100000,5006:100000,2291:1000000,2260:100000,2239:100000,5043:1000000,2242:100000,5325:1000000,5248:1000000,5250:1000000,5085:1000000,2201:100000,5101:1000000,2263:1000000 quiz_02,331,85,5 shop Lower Headgear 853,5113:1000000,5096:1000000,5110:1000000,2237:500000,2240:500000,2267:1000000,2262:1000000,5107:1000000,5156:1000000,5155:1000000,2218:500000,2265:1000000,2241:500000,2266:1000000,5004:1000000,2268:1000000,5051:1000000,2269:1000000,2270:1000000,5206:1000000 quiz_02,334,85,5 shop Upper/Middle/Lower Head 873,5086:1000000,5089:1000000,5005:1000000,5090:1000000,2297:1000000,5314:1000000,5332:1000000,2288:1000000,2278:10000,2281:50000,5087:1000000,5203:1000000,5272:1000000,5088:1000000,2292:1000000,5093:500000,5142:1000000,5091:1000000,5258:1000000,5276:1000000,5273:1000000,5274:1000000,2224:100000,5181:3000000,5094:1000000,5130:1000000,5151:1000000,5152:1000000,5098:1000000,5121:1000000,5046:1000000,5131:1000000,5143:1000000,2264:1000000,5053:1000000 quiz_02,341,85,3 shop Armor 752,2306:100000,2315:1000000,2310:50000,2302:5000,2320:1000000,2317:1000000,2319:1000000,2354:1000000,2373:1000000,2304:10000,2342:1000000,2318:1000000,2372:1000000,2308:1000000,2311:1000000,2359:1000000,2353:1000000,2313:1000000,2371:10000,2360:1000000,2326:1000000,2324:1000000,2322:500000,2333:500000,2336:1000000,2331:1000000,2338:1000000,2329:50000,2349:3000000,2351:3000000,2345:3000000,2347:3000000 quiz_02,344,85,3 shop Shield 707,2118:1000000,2131:1000000,2104:1000000,2130:1000000,2102:10000,2110:1000000,2120:1000000,2121:1000000,2108:1000000,2128:1000000,2129:1000000,2106:50000,2114:1000000,2125:1000000,2124:1000000 quiz_02,347,85,3 shop Garment 806,2525:1000000,2515:1000000,2516:1000000,2520:1000000,2513:1000000,2502:10000,2506:50000,2518:1000000,2519:1000000,2504:50000,2514:1000000,2508:1000000,2511:1000000,2509:1000000,2523:50000,2517:1000000 quiz_02,350,84,3 shop Footgear 913,2406:50000,2415:50000,2407:50000,2417:1000000,2419:1000000,2412:1000000,2432:50000,2422:30000,2413:50000,2402:10000,2408:50000,2404:50000,2418:1000000 quiz_02,352,82,3 shop Accessory 856,2656:20000,2664:10000,2627:20000,2655:1000000,2671:1000000,2605:30000,2646:1000000,2617:10000,2631:1000000,2607:30000,2616:1000000,2613:1000000,2602:30000,2665:1000000,2614:1000000,2641:1000000,2612:2000,2663:1000000,2604:30000,2652:1000000,2636:50000,2610:50000,2640:1000000,2657:1000000,2666:1000000,2618:10000,2645:1000000,2649:1000000,2648:1000000,2650:1000000,2651:1000000,2603:50000,2658:1000000,2639:1000000,2638:1000000,2667:1000000,2670:1000000,2601:50000,2669:1000000,2620:1000000,2608:20000,2615:1000000,2643:1000000,2654:1000000,2637:40000,2611:40000,2715:1000000,2634:1000000,2635:1000000 quiz_02,318,79,5 shop One-handed Sword 733,1109:1000000,1140:1000000,1134:1000000,13400:1000000,1132:1000000,1137:1000000,1106:1000000,1133:1000000,1149:1000000,1143:1000000,1128:1000000,1145:1000000,1131:1000000,1141:1000000,1142:1000000,1138:1000000,1130:1000000,1124:1000000,1112:1000000,1125:1000000,1127:1000000,1144:1000000,1115:1000000,1136:1000000,1148:1000000,1103:1000000,1139:1000000,1147:1000000,1121:1000000,1108:1000000 quiz_02,321,79,5 shop Two-handed Sword 734,1156:30000,1162:70000,1172:80000,1180:1000000,1179:1000000,1118:30000,1170:1000000,1165:1000000,1164:1000000,1178:1000000,1153:30000,1159:70000,1171:1000000 quiz_02,318,76,5 shop One-handed Spear 767,1415:1000000,1414:1000000,1418:1000000,1403:1000000,1409:1000000,1417:1000000,1406:1000000,1416:1000000,1408:1000000,1402:1000000,1405:1000000 quiz_02,321,76,5 shop Two-handed Spear 780,1467:1000000,1470:1000000,1476:1000000,1475:1000000,1474:1000000,1456:20000,1453:15000,1465:55000,1412:60000,1469:1000000,1459:30000,1462:60000,1468:1000000 quiz_02,318,73,5 shop One-handed Axe 826,1303:1000000,1304:1000000,1305:1000000,1308:1000000,1306:1000000,1307:1000000,1302:1000000,1309:1000000 quiz_02,321,73,5 shop Two-handed Axe 813,1353:6000,1363:1000000,1359:35000,1364:1000000,1369:1000000,1356:20000,1366:1000000,1365:1000000,1367:1000000,1368:1000000,1362:60000 quiz_02,318,70,5 shop Katar 885,1265:1000000,1266:1000000,1251:20000,1255:40000,1253:60000,1256:100000,1259:100000,1257:100000,1258:100000,1260:100000,1262:1000000,1264:1000000,1263:1000000 quiz_02,321,70,5 shop Dagger 884,13005:1000000,1232:1000000,1235:1000000,1231:1000000,1246:50000,13004:55000,1241:80000,1206:2000,1242:150000,1215:15000,1226:50000,1212:10000,13001:1000000,1233:1000000,1223:1000000,1221:45000,13006:250000,1237:1000000,13015:1000000,13008:20000,1229:1000000,1203:1000,1209:3000,1234:1000000,13013:1000000,1240:1000000,1218:20000,13018:1000000,1227:1000000,1238:1000000,13009:50000,1228:2000000,1230:2000000,1225:1000000,1224:1000000,1244:1000000,13016:1000000,13019:1000000,13000:1000000,1249:1000000,1247:1000000,1248:1000000,1205:1250,1214:14000,1220:43000,1202:50,1208:2400,13027:20,1217:19500 quiz_02,318,67,5 shop Rod & Staff 735,1612:50000,1615:500000,1613:1000000,1603:1000,1472:1000000,1609:10000,1618:1000000,1620:1000000,1614:500000,1606:5000,1616:1000000,1473:1000000 quiz_02,321,67,5 shop Bow 832,1715:50000,1727:150000,1703:1000,1706:3000,1712:20000,1724:1000000,1716:45000,1709:10000,1726:65000,1723:1000000,1725:1000000,1721:100000,1719:1000000,1720:1000000 quiz_02,318,64,5 shop Mace 821,1521:25000,1503:1000,1512:20000,1524:1000000,1528:1000000,1529:1000000,1525:1000000,1506:3000,1515:45000,1527:1000000,1526:1000000,1509:10000,1523:1000000,1532:60000,1518:50000,1531:1000000 quiz_02,321,64,5 shop Knuckle 808,1816:1000000,1810:70000,1812:60000,1808:55000,1815:1000000,1813:1000000,1804:25000,1806:35000,1802:10000 quiz_02,324,66,5 shop Whip 862,1969:1000000,1964:1000000,1971:1000000,1967:1000000,1966:1000000,1962:1000000,1970:1000000,1957:35000,1963:1000000,1965:1000000,1951:3000,1968:1000000,1959:45000,1953:12000,1961:40000,1955:20000 quiz_02,324,63,5 shop Musical Instrument 741,1914:1000000,1913:1000000,1917:1000000,1916:1000000,1908:50000,1912:55000,1910:65000,1915:1000000,1906:25000,1904:20000,1918:1000000,1902:5000 quiz_02,327,64,5 shop Buy Books 893,1562:1000000,1551:80000,1553:50000,1556:50000,1554:50000,1557:80000,1555:50000,1550:50000,1558:5000,1561:1000000,1559:1000000,1560:1000000,1552:55000 quiz_02,327,61,5 shop Gun 852,13103:60000,13105:100000,13106:200000,13101:10000,13150:6000,13152:30000,13153:50000,13155:60000,13156:100000,13154:30000,13159:250000,13157:150000,13161:300000,13162:500000 quiz_02,330,63,5 shop Fuuma Shuriken 880,13302:100000,13303:150000,13300:200000,13304:1000000,7522:500,7521:500,7523:500 quiz_02,330,60,5 shop Ammunition 801,1766:50,1755:20,1750:10,1754:20,1761:20,1752:20,1760:20,1759:20,1772:100,1757:30,1770:20,1769:30,1765:40,1763:30,1762:30,1767:30,1764:30,1751:20,1768:30,1753:30,1756:30,1758:30,1771:1000,13200:50,13202:100,13201:300,13206:500,13203:500,13207:500,13204:500,13205:500,13252:50,13254:500,13251:100,13253:300,13250:50,13256:50,13259:50,13258:50,13255:50,13257:50 quiz_02,352,78,3 shop Novice Shop 882,569:100,5055:1000,5125:10000,5112:50000,2340:100000,2352:40000,2355:50000,1243:50000,1621:80000,2112:10000,2116:30000,2113:50000,2521:30000,2512:100000,2510:50000,2414:1000,2420:30000,2416:50000,2628:50000,7271:10000 quiz_02,352,75,3 shop Blacksmith Shop 869,717:600,716:600,715:600,1010:-1,1011:-1,985:-1,984:-1,613:1000,614:3000,615:5000,1005:-1,986:-1,987:-1,988:-1,989:-1,612:150,990:-1,991:-1,992:-1,993:-1,994:-1,995:-1,996:-1,997:-1,1003:-1,1002:-1,998:-1,999:-1,1000:-1,1001:-1,733:-1,730:-1,731:-1,732:-1,719:-1,718:-1,724:-1,723:-1,725:-1,726:-1,727:-1,728:-1,729:-1,721:-1,720:-1,722:-1 quiz_02,352,72,3 shop Alchemist Shop 749,7136:5000,7135:5000,7137:3000,7138:3000,7139:5000,713:100,1092:50,7134:50,1093:100,12040:200000,952:1000,1012:1000,950:1000,7126:5000,1017:1000,1057:1000,1061:5000,7419:200000,7434:200000,7133:250000 quiz_02,352,69,3 shop Healing Item 886,575:20,521:360,512:20,513:20,515:20,514:300,531:20,532:20,534:20,533:500,510:100,511:20,507:30,508:50,509:200,505:5000,506:50,501:100,502:300,503:600,504:1200,577:200,553:300,580:150,590:300,591:300,548:2800,12101:20,545:150,547:1650,546:600,594:5000,596:5000,12257:25000,562:100,563:1200,581:40,574:20,540:2000,12234:10000,579:250,12022:500,12102:20,520:150,593:5000,518:500,536:150,552:100,583:7000,568:60,11502:30000,599:800,598:600,11501:2000,11500:1200,597:5000,680:10000,522:9000,12133:1000,517:50,519:25,554:1000,528:60,595:5000,557:10,582:300,541:3000,679:5000,589:1200,12021:1000,516:15,576:540,535:15,544:20,587:880,564:100,556:10,550:10,669:500,526:7000,567:500,584:100,663:1000,588:100,592:5000,578:200,551:100,566:10000,555:100,565:580,549:180,12143:75000,12135:80000,608:50000,12188:50000 quiz_02,351,66,3 shop Stats Food 820,525:500,682:10000,14525:20000,683:10000,14526:20000,12123:15000,12122:15000,14538:15000,14536:15000,684:15000,12124:15000,12112:1000,12113:1000,12017:50000,12016:50000,12045:500000,12060:500000,12055:500000,12050:500000,12065:500000,12070:500000,12247:300000 quiz_02,348,64,3 shop Claus 718,2236:100000,529:100,570:100,530:200,571:200,538:2000,572:2000,558:1000,561:100000,573:10000,596:5000,559:100000,560:100000 quiz_02,345,63,3 shop Usable Item 891,12020:70,523:70,606:1500,605:2000,609:100,662:1500,678:30000,645:1000,656:3000,657:5000,14509:2000,14510:4000 quiz_02,342,62,3 shop Pet Store 890,643:3000,619:2000,620:2000,621:2000,622:3000,623:4000,632:5000,627:7000,624:3000,625:3000,630:3000,631:3000,633:3000,629:3000,635:3000,636:3000,637:3000,659:3000,626:3000,642:3000,641:3000,640:3000,628:10000,638:15000,639:20000,661:20000,634:20000,660:20000,10013:5000,10017:5000,10010:5000,10016:5000,10020:5000,10015:5000,10018:5000,10002:5000,10004:5000,10008:5000,10006:5000,10019:5000,10014:5000,10007:5000,10001:5000,10011:5000,10012:5000,10003:5000,10005:5000,10009:5000 quiz_02,322,83,6 shop Headgears 747,5106:75000,5105:75000,5097:75000,5011:75000,5086:75000,5137:75000,5074:75000,2254:75000,5132:75000,5153:75000,2276:75000,5113:75000,5089:75000,2284:75000,2285:75000,2261:75000,5116:75000,2211:75000,2237:75000,5042:75000,5147:75000,5076:75000,2244:75000,2296:75000,5102:75000,5251:75000,5040:75000,5135:75000,2260:75000,2239:75000,5043:75000,5804:75000,2291:75000,2242:75000,5085:75000,2263:75000,2202:75000 quiz_02,333,62,6 shop Wedding Shop 71,745:12000,2338:43000,2206:23000,2613:45000,7170:43000 quiz_02,339,62,6 shop Scroll Item 714,12016:5000,12017:5000,14515:5000,14514:5000,12216:5000,12215:5000,12219:5000,12220:5000,12217:5000,12218:5000,14512:5000,14516:5000,14521:5000,12114:5000,12115:5000,12117:5000,12116:5000 quiz_02,328,80,5 shop Mechanic Shop 777,1549:2000000,2139:2000000,2800:2000000,2801:2000000,2802:2000000,2803:2000000,2804:2000000,2805:2000000,2806:2000000,2807:2000000,2808:2000000,2809:2000000,2810:2000000,6145:1000,6146:2000,6147:20000,12392:15000,12393:15000,12394:15000,18000:3000,18001:3000,18002:3000,18003:3000,18004:3000 quiz_02,330,82,5 shop Warlock Shop 777,6189:2000000,6190:2000000,6191:2000000,6192:2000000,6193:2000000,6194:2000000,6195:2000000,6196:2000000,6197:2000000,6198:2000000,6199:2000000 quiz_02,332,82,5 shop Genetic Shop 777,6210:30000,6211:30000,6212:30000,6213:30000,6214:30000,6215:30000,6216:30000,6217:30000,6244:30000,6245:30000,6246:50000,6247:50000,6248:50000,6249:50000,6250:50000,6251:50000,6252:50000,6253:50000,6254:50000,6255:50000,6256:50000,6257:50000,6258:50000,6259:50000,6260:50000,6261:50000,6262:50000,6263:50000,6264:50000,6265:50000,6279:100000,6280:100000,6281:100000,6282:100000,6283:100000,6284:100000,6285:100000,6297:20000,11022:100000,11023:100000,11024:100000,12417:30000,12418:30000,12419:30000,12420:30000,12421:30000,12422:30000,12423:30000,12424:30000,12425:30000,12426:30000,12427:30000,12428:30000,12429:30000,12430:30000,12431:30000,12432:30000,12433:30000,12434:30000,12435:30000,12436:30000,12437:30000,12475:30000,13260:35000,13261:35000,13262:35000,13263:35000,13264:35000,13265:35000,13266:35000,13267:35000,13268:35000 quiz_02,334,82,5 shop Genetic Shop 02 777,13269:30000,13270:30000,13271:30000,13272:30000,13273:30000,13274:30000,13275:30000,13276:30000,13277:30000,13278:30000,13279:30000,13280:30000,13281:30000,13282:30000,13283:30000,13284:30000,13285:30000,13286:30000,13287:30000,13288:30000,13289:30000,13290:30000 quiz_02,336,82,5 shop Guillotine Cross Shop 777,7931:5000,7932:5000,7933:5000,7934:5000,7935:5000,7936:5000,7937:5000,12717:30000,12718:30000,12719:30000,12720:30000,12721:30000,12722:30000,12723:30000,12724:30000,6128:30000 quiz_02,338,82,5 shop Rune Knight Shop 777,7938:5000,7939:5000,12725:30000,12726:30000,12727:30000,12728:30000,12729:30000,12730:30000,12731:30000,12732:30000,12733:30000,12734:5000,12735:5000,12736:5000,12737:5000,12738:5000 quiz_02,340,82,3 shop Ranger Shop 777,7940:1000,6124:1000 quiz_02,342,82,3 shop Mins & Wand Shop 777,11513:10000 quiz_02,344,82,3 shop Arc Shop 777,12333:5000 quiz_02,346,82,3 shop Shadow Chaser Shop 777,6120:1500,6121:1500.6122:1500,6123:1500 quiz_02,348,80,3 shop All Weapon 3rd Class 778,1191:2000000,1196:5000000,1433:5000000,1930:5000000,1984:5000000,2153:5000000,13061:5000000,13431:5000000,16010:5000000 //The Warper to Mall payon,148,225,5 script Mall Warper 405,{ warp "quiz_02",337,74; } //The Exit to Prontera quiz_02.gat,335,74,5 script Exit 404,{ warp "payon",148,225; }

You should use the Search function before posting new Topics!
It's easy to do this,you'll just need a normal item script like this :

30001,Rune_Knight_Armor,Rune Knight Armor,5,0,,2800,,55,,1,0xFFFFFFFE,2,2,16,,1,1,0,{},{ changebase RUNEKNIGHTJOBIDHERE; },{ changebase Class; }
You'll just have to edit the RUNEKNIGHTJOBIDHERE to the Rune Knight Job ID.

I'd suggest you to read the Wiki Article about Custom Weapons here :
http://rathena.org/wiki/Custom_weapons
Good Luck at adding Custom Weapons!

Like I've shown you in the other Topic,I don't think that Lunar Cast added a Monster Kill Requirement Function to his Dynamic shop menu,to make a Quest NPC with Monster Kill Requirements you'll have to make it like this :

NPC HEADER { mes "You have to kill:"; mes "100 Porings..."; mes "100 Fabres..."; mes "and 100 Chonchons"; next; if(PoringKills < 100) goto l_nokills; if(FabreKills < 100) goto l_nokills; if(ChonKills < 100) goto l_nokills; set PoringKills,PoringKills - 100; set FabreKills,FabreKills - 100; set ChonKills,Chonkills - 100; getitem 501,1; close; l_nokills: mes "You didn't kill enough monsters!"; close; OnNPCKillEvent: if(killedrid == 1002) //1002 = Poring { set PoringKills,PoringKills + 1; }else if (killedrid == 1007) //1007 = Fabre { set FabreKills,FabreKills + 1; }else if (killedrid == 1011) //1011 = Chonchon { set ChonKills,ChonKills + 1; } end; }

The Item Script to disguise a Player into a different Job would be like this :

ITEMID,Swordsman_Armor,Swordsman Armor,5,10,,,,1,,4,0xFFFFFFFF,31,2,16,,0,1,,{},{ changebase 1; },{ changebase Class; }
The changebase means,that the Suit changes the Character's Sprite into the Sprite of Job ID 1,which is Swordsman,so if you want other Jobs than swordsman you have to change the "1" into another Job ID like 7 or something else.
But this problem was cleared already in other topics,so try to use the search function next time please.

Here use it :

royal_room3,102,120,3<tab>script<tab>Skull Exchanger<tab>795,{ set .@n$,"[ ^336699Skull Exchanger^000000 ]"; mes .@n$; mes "Hi ^ff8000"+strcharinfo(0)+"^000000,"; mes "tired from collecting skulls eh ? well don't worry because your hardwork all paid off this time because you can exchange Skulls to iRO Cash Tokens."; next; mes .@n$; mes "You have "+countitem(7420)+" Skulls!"; mes "Just Remeber that 250 Skulls is equivalent to 5 iRO Cash Token."; mes "500 Skulls is equivalent to 10 iRO Cash Tokens!"; mes "750 Skulls is equivalent to 15 iRO Cash Tokens!"; mes "1000 Skulls is equivalent to 20 iRO Cash Tokens!"; next; OnStartexchange: mes .@n$; mes "Do you want to exchange your Skulls for iRO Cash Tokens ?"; next; switch(select("Yes,I'd be glad to:What can I buy with iRO Cash Tokens?:No,not right now")) { case 1: mes .@n$; mes "The Exchange Rate is 250 Skulls = ^0000FF5 iRO Cash Tokens^000000."; mes "Now you can choose if you want to exchange 250,500,750 or 1000 Skulls for tokens!"; next; switch(select("Exchange 250 Skulls:Exchange 500 Skulls:Exchange 750 Skulls:Exchange 1000 Skulls")) { case 1: if(countitem(7420) < 250) { mes .@n$; mes "Sorry but you don't have enough Skulls!"; close; } mes .@n$; mes "Okay let me exchange your skulls."; next; mes .@n$; mes "..."; delitem 7420,250; getitem 20001,5; next; mes .@n$; mes "The Exchange was sucessfull. You can now purchase items at the Cash Shop."; close; case 2: if(countitem(7420) < 500) { mes .@n$; mes "Sorry but you don't have enough Skulls!"; close; } mes .@n$; mes "Okay let me exchange your skulls."; next; mes .@n$; mes "..."; delitem 7420,500; getitem 20001,10; next; mes .@n$; mes "The Exchange was sucessfull. You can now purchase items at the Cash Shop."; close; case 3: if(countitem(7420) < 750) { mes .@n$; mes "Sorry but you don't have enough Skulls!"; close; } mes .@n$; mes "Okay let me exchange your skulls."; next; mes .@n$; mes "..."; delitem 7420,750; getitem 20001,15; next; mes .@n$; mes "The Exchange was sucessfull. You can now purchase items at the Cash Shop."; close; case 4: if(countitem(7420) < 1000) { mes .@n$; mes "Sorry but you don't have enough Skulls!"; close; } mes .@n$; mes "Okay let me exchange your skulls."; next; mes .@n$; mes "..."; delitem 7420,1000; getitem 20001,20; next; mes .@n$; mes "The Exchange was sucessfull. You can now purchase items at the Cash Shop."; close; } case 2: mes .@n$; mes "iRO Cash Tokens is to be clicked then you get 10 Cash Points."; mes "If you want to check what items are available, talk to the Cash Shop."; next; goto OnStartexchange; case 3: mes .@n$; mes "Okay goodbye!"; close; } }
Have fun with the Script!

You could try this one,too,I just added a Derefiner and a Repairman to it,too.
Here's the Link :
https://rikisscripts.googlecode.com/svn/trunk/npc/Refiner.txt
If you want the NPC to refine it just to +10 except to +100 then just change this part :

mes "[smith]"; mes "Okay I'm going"; mes "to refine your Equipment"; mes "to +100,Thx for using my Service!"; next; for(set @part,1;@part<101;set @part,@part+1) if(getequipisequiped(@part)) while(getequiprefinerycnt(@part) < 100) successrefitem @part; mes "[smith]"; mes "Congrats Enjoy it!"; close; end;
to this :

mes "[smith]"; mes "Okay I'm going"; mes "to refine your Equipment"; mes "to +10,Thx for using my Service!"; next; for(set @part,1;@part<11;set @part,@part+1) if(getequipisequiped(@part)) while(getequiprefinerycnt(@part) < 10) successrefitem @part; mes "[smith]"; mes "Congrats Enjoy it!"; close; end;
Have fun,I hope that I helped you.

Here is a little Mini Dice Event Script made by me:

//====================== rAthena Script ===============================================================
//=== Made by Rikimaru
//=== Topic Link : http://rathena.org/board/topic/58438-request-event-dice/
//==================== Information ====================================================================
//==== A Mini Dice Event Script
//================= Version : =========================================================================
//=== V 1.1 Fixed a typo in the Script [ Rikimaru ]
//=== V 1.0 Finished Scripting the Daily Reward Script [ Rikimaru ]
//============== Credits : ============================================================================
//=== Credits to Rikimaru for the Daily Reward Script
//=== rAthena Profile Link : http://rathena.org/board/user/434-rikimaru/
//=====================================================================================================
//*************************************************************************
prontera,151,191,5 script Mini Dice 872,{
//============================== Settings ============================================
set .@dicename$,"[ Dice Master ]";
set .cost,"1000000";
set .porincid,XXXX;
set @pamount,XX;
//========================= End of Settings ==========================================
OnMenu:
mes .@dicename$;
mes "Hello " + strcharinfo(0) + " ,do";
mes "you want to play a round of dice?";
mes "if you want to play you need to ";
mes "pay 1.000.000 Zenny every Round.";
switch(select("Yes,sure!:No,I'm unlucky!")) {
case 1:
mes .@dicename$;
if(Zeny < .cost) goto l_nozeny;
set Zeny, Zeny - .cost;
mes "Okay we'll start...";
set $@ran, rand(1,6);
if ($@ran == 6) set .@dice1$,"6";
if ($@ran == 5) set .@dice1$,"5";
if ($@ran == 4) set .@dice1$,"4";
if ($@ran == 3) set .@dice1$,"3";
if ($@ran == 2) set .@dice1$,"2";
if ($@ran == 1) set .@dice1$,"1";
set $@ran2, rand(1,6);
if ($@ran2 == 6) set .@dice2$,"6";
if ($@ran2 == 5) set .@dice2$,"5";
if ($@ran2 == 4) set .@dice2$,"4";
if ($@ran2 == 3) set .@dice2$,"3";
if ($@ran2 == 2) set .@dice2$,"2";
if ($@ran2 == 1) set .@dice2$,"1";
next;
mes .@dicename$;
mes "Okay I've got a " + .@dice1$ + ",";
mes "You've got a " + .@dice2$+ " !";
next;
if(.@dice1$ > .@dice2$) goto l_loose;
if(.@dice1$ < .@dice2$) goto l_win;
if(.@dice1$ == .@dice2$) goto l_draw;
close;
case 2:
mes .@dicename$;
mes "Okay bye!";
close;
}
l_nozeny:
mes .@dicename$;
mes "Sorry you need more Zenny!";
close;
l_loose:
mes .@dicename$;
mes "Haha,sorry you lost.";
goto OnMenu;
close;
l_draw:
mes .@dicename$;
mes "Draw,let's play again!";
goto OnMenu;
close;
l_win:
goto OnPrize;
OnPrize:
mes .@dicename$;
mes "Congratulations! You have won...";
mes "Take this as a Prize!";
next;
mes .@dicename$;
getitem .Poringcid,@pamount;
mes "Goodbye!";
close;
}[/codeBOX]

go to your server folder /conf/atcommand_athena.conf
now search for time until you find this :

// Give server time. (6 same commands) time: 0,99 date: 0,99 serverdate: 0,99 servertime: 0,99
Yes it's already edited in my Server,so the 0 is the GM level ,which is able to use the @ command so normal Players are able to use @time and it displays the Server Time
Just edit this in your Server.
Greetings,
~Rikimaru

It would be like this in the Script :


//====================== rAthena Script ===================================
//=== Made by Rikimaru
//=== Topic Link : http://rathena.org/board/topic/57794-item-changer/
//==================== Information ========================================
//==== a easy Item Changer from Potions to TCG's
//================= Version : =============================================
//=== V 1.1 Fixed a typo in the Script [ Rikimaru ]
//=== V 1.0 Finished Scripting the Item Changer [ Rikimaru ]
//============== Credits : ================================================
//=== Credits to Rikimaru for the Item Changer Script
//=== rAthena Profile Link : http://rathena.org/board/user/434-rikimaru/
//=========================================================================
//*************************************************************************
mapname,XXX,YYY,DIRECTION script Item Changer 911,{
//=========================== Settings ====================================
set .@changername$,"[ Item Changer ]";// YOU MAY CHANGE THE NAME OF THE NPC
set .tcgid,7227;
set @tcgamount,1;
//======================= Settings End ====================================
//*************************************************************************
mes .@changername$;
mes "Hello "+strcharinfo(0)+" , what";
mes "can I do for you today?";
mes "Do you want to exchange";
mes "your Potions into TCG Cards?";
next;
switch(select("Yes exchange!:Cancel")) {
case 1:
mes .@changername$;
mes "Okay which Potion do";
mes "you want to exchange";
mes "to a TCG Card?";
next;
switch(select("-Red Potion:-Blue Potion:Cancel")) {
case 1:
mes .@changername$;
mes "Okay let me check if";
mes "you have the Potions";
next;
mes .@changername$;
mes "Rustle... Rustle...";
if(countitem(501) < 1) goto l_noitem;
delitem 501,1
next;
mes .@changername$;
getitem .tcgid,@tcgamount;
mes "Here take your TCG Cards!";
close;
case 2:
mes .@changername$;
mes "Okay let me check if";
mes "you have the Potions";
next;
mes .@changername$;
mes "Rustle... Rustle...";
if(countitem(505) < 1) goto l_noitem;
delitem 505,1
next;
mes .@changername$;
getitem .tcgid,@tcgamount;
mes "Here take your TCG Cards!";
close;
case 3:
mes .@changername$;
mes "Okay goodbye!";
close;
}
case 2:
mes .@changername$;
mes "Okay goodbye!";
close;
}
l_noitem:
mes .@changername$;
mes "Sorry you have to get the items first!";
close;
}
[/codeBOX]
I hope that this helped you.
DOWNLOAD :
Item_Changer.txt
Greetings,
Rikimaru

Okay!
Pastebin :
http://pastebin.com/dWcPc5S1
Script in Codebox :



//*********************************************************************************************************************************************************************************
//***--Topic Link : ***( ^ ~ ^ )/***
//***
//***
//*********************************************************************************************************************************************************************************
//***-- Script by : ***( ^ ~ ^ )/***
//***-- Emistry
//***
//*********************************************************************************************************************************************************************************
//***-- Contact Info : ***( ^ ~ ^ )/***
//***-- My Email : [email protected]
//***
//*********************************************************************************************************************************************************************************
//***-- Messages : ***( ^ ~ ^ )/***
//***-- Drop me a private message or email if you are looking for my helps ^^.
//***-- Beside that, I am looking for a Server to work with ^^ .
//***-- I will do my best to help you ^^.
//***-- More Details ? PM Me ^^.
//***
//*********************************************************************************************************************************************************************************
//***Although these scripts might not suit or follow with what you have requested completely. But i still wish you can give it a try before reject the works.
//***
//*********************************************************************************************************************************************************************************
//***-- Versions Update: ***( ^ ~ ^ )/***
//*** [ Version 1.4 ] - All Credits go to Emistry , just edited it for myieee on rathena.org . [ By Rikimaru ]
//*** [ Version 1.3 ] - Added Message informing after Class Swapped . [ By Emistry ]
//*** [ Version 1.2 ] - Added Conditions Check . [ By Emistry ]
//*** [ Version 1.1 ] - Separate Classes into Categories. [ By Emistry ]
//*** [ Version 1.0 ] - Simple Class Swap Script . [ By Emistry ]
//***
//*********************************************************************************************************************************************************************************
//====================== Settings ============================0
set .TCGID,7227;
set @TCGamount,1;
prontera,155,169,5 script Class Swapper 100,{
mes "[ Class Swapper ]";
if(BaseLevel < 255 || JobLevel < 120 ){
mes"Only Base Level 255 and Job Level 120 Player can use my services.";
close;
}
mes "Hi, i can change your current job class to other job class.";
mes "Please choose you desired job class to change into.";
next;
switch (select ("Normal Job Class:Advanced Job Class:Expanded Job Class:Nothing")) {
Case 1:
mes "[ Class Swapper ]";
mes "Choose more detail for your desired job class.";
switch (select ("Knight:Crusader:Assassin:Rogue:Wizard:Sage:Priest:Monk:Blacksmith:Alchemist:Hunter:Bard / Dancer")) {
Case 1:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Knight now.";
jobchange 7;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 2:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Crusader now.";
jobchange 14;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 3:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Assassin now.";
jobchange 12;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 4:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Rogue now.";
jobchange 17;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 5:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Wizard now.";
jobchange 9;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 6:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Sage now.";
jobchange 16;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 7:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Priest now.";
jobchange 8;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 8:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Monk now.";
jobchange 15;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 9:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Blacksmith now.";
jobchange 10;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 10:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Alchemist now.";
jobchange 18;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 11:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Hunter now.";
jobchange 11;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 12:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
if(Sex == 1 ){
mes "Okay.. i will transform you into a Bard now.";
jobchange 19;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
}
if(Sex == 0 ){
mes "Okay.. i will transform you into a Dancer now.";
jobchange 20;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
}
close2;
emotion e_heh;
end;
}

Case 2:
mes "[ Class Swapper ]";
mes "Choose more detail for your desired job class.";
switch (select ("Lord Knight:Paladin:Assassin Cross:Stalker:High Wizard:Professor:High Priest:Champion:Whitesmith:Biochemist:Sniper:Clown / Gypsy")) {
Case 1:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Lord Knight now.";
jobchange 4008;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 2:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Paladin now.";
jobchange 4015;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 3:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Assassin Cross now.";
jobchange 4013;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 4:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Stalker now.";
jobchange 4018;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 5:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a High Wizard now.";
jobchange 4010;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 6:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Professor now.";
jobchange 4017;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 7:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a High Priest now.";
jobchange 4009;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 8:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Champion now.";
jobchange 4016;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 9:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Whitesmith now.";
jobchange 4011;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 10:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Biochemist now.";
jobchange 4019;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 11:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Sniper now.";
jobchange 4012;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 12:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
if(Sex == 1 ){
mes "Okay.. i will transform you into a Clown now.";
jobchange 4020;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
}
if(Sex == 0 ){
mes "Okay.. i will transform you into a Gypsy now.";
jobchange 4021;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
}
close2;
emotion e_heh;
end;
}

Case 3:
mes "[ Class Swapper ]";
mes "Choose more detail for your desired job class.";
switch (select ("Super Novice:Gunslinger:Ninja:Taekwon:Star Gladiator:Soul Linker")) {
Case 1:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Super Novice now.";
jobchange 23;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 2:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Gunslinger now.";
jobchange 24;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 3:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Ninja now.";
jobchange 25;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 4:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Taekwon now.";
jobchange 4046;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 5:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Star Gladiator now.";
jobchange 4047;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
Case 6:
mes "[ Class Swapper ]";
if(countitem(.TCGID) < @TCGamount) goto l_noitem;
delitem .TCGID,@TCGamount;
mes "Okay.. i will transform you into a Soul Linker now.";
jobchange 4049;
dispbottom "Please search for Reset Girl to reset your status to gain back original stats that you should have on this character class.";
close2;
emotion e_heh;
end;
}
Case 4:
mes "[ Class Swapper ]";
mes "Okay...Goodbye!";
close;
}
close;
l_noitem:
mes "[ Class Swapper ]";
mes "Sorry you have to get the Items.";
close;
}
[/codeBOX]

I did it for you,you've got to change some things in the Script,but it's working , I tested it.
http://pastebin.com/eXUkiwJq



//================ rAthena / eAthena Script ===========================
//================= Credits : =========================================
//====================== All Credits go to Rikimaru ===================
//================== on rathena.org for making the Script =============
//========== Function : ===============================================
//===== exchanges Draco Coins into Skulls or Cash =====================
//============= Version : =============================================
//====== v. 1.0 : Finished the Script [ Rikimaru ] ====================
//====== v. 1.1 : Fixed a little Bug [ Rikimaru ] =====================
//========== DO NOT REMOVE MY CREDITS!! ===============================
MAPNAME,XXX,YYY,DIRECTION script Draco Coin Exchanger 904,{//CHANGE MAPNAME,X-Coord,Y-Coord,and direction
//========= Settings : ================================================
set .@dracon$,"[ Draco Coin Exchanger ]";
set .dracocoinid,XXXX;// CHANGE THE XXXX TO THE DRACO COIN ID!!!!
set .skullid,XXXX;// CHANGE THE XXXX TO THE SKULL ID!!!!
//======== End of Settings ============================================
mes .@dracon$;
mes "Hello " + strcharinfo(0) + ",I'm";
mes "able to exchange your";
mes "Draco Coins to Cash or";
mes "Skulls.What do you want";
mes "me to do for you?";
next;
switch(select("Exchange to Cash:Exchange to Skulls:Nothing")) {
case 1:
mes .@dracon$;
mes "Okay you can exchange :";
mes "10 Draco Coins to 100 Cash";
mes "30 Draco Coins to 350 Cash";
mes "and 50 Draco Coins to 700 Cash";
next;
mes .@dracon$;
mes "Please Input the amount";
mes "of Draco Coins,which you";
mes "want to exchange!";
next;
input @dracoamount;
if (@dracoamount == 10) goto cash1;
if (@dracoamount == 30) goto cash2;
if (@dracoamount == 50) goto cash3;
mes .@dracon$;
mes "Sorry you didn't input the correct amount!";
close;
//
cash1:
mes .@dracon$;
delitem .dracocoinid,@dracoamount;
set #CASHPOINTS,#CASHPOINTS + 100;
dispbottom "You receive 100 Cashpoints!";
mes "Current Balance = "+#CASHPOINTS+" Cashpoints";
close;
//
cash2:
mes .@dracon$;
delitem .dracocoinid,@dracoamount;
set #CASHPOINTS,#CASHPOINTS + 350;
dispbottom "You receive 350 Cashpoints!";
mes "Current Balance = "+#CASHPOINTS+" Cashpoints";
close;
//
cash3:
mes .@dracon$;
delitem .dracocoinid,@dracoamount;
set #CASHPOINTS,#CASHPOINTS + 700;
dispbottom "You receive 700 Cashpoints!";
mes "Current Balance = "+#CASHPOINTS+" Cashpoints";
close;
//
case 2:
mes .@dracon$;
mes "Okay you can exchange:";
mes "10 Draco Coins for 100 Skulls";
mes "30 Draco Coins for 350 Skulls";
mes "and 50 Draco Coins for 700 Skulls";
next;
mes .@dracon$;
mes "Please input the amount of";
mes "Draco Coins you want to exchange!";
next;
input @dracoskullamount;
if (@dracoskullamount == 10) goto skull1;
if (@dracoskullamount == 30) goto skull2;
if (@dracoskullamount == 50) goto skull3;
mes .@dracon$;
mes "Sorry you didn't input the correct amount!";
close;
//
skull1:
mes .@dracon$;
delitem .dracocoinid,@dracoskullamount;
getitem .skullid,100;
mes "You received 100 Skulls.";
close;
//
skull2:
mes .@dracon$;
delitem .dracocoinid,@dracoskullamount;
getitem .skullid,350;
mes "You received 350 Skulls.";
close;
//
skull3:
mes .@dracon$;
delitem .dracocoinid,@dracoskullamount;
getitem .skullid,700;
mes "You received 700 Skulls.";
close;
//
case 3:
mes .@dracon$;
mes "Okay goodbye!";
close;
}
}
[/codeBOX]
If this helped you let me know about it.