• Silahkan bergabung dengan chat kami di Telegram group kami di N3Forum - https://t.me/n3forum
  • Welcome to the Nyit-Nyit.Net - N3 forum! This is a forum where offline-online gamers, programmers and reverser community can share, learn, communicate and interact, offer services, sell and buy game mods, hacks, cracks and cheats related, including for iOS and Android.

    If you're a pro-gamer or a programmer or a reverser, we would like to invite you to Sign Up and Log In on our website. Make sure to read the rules and abide by it, to ensure a fair and enjoyable user experience for everyone.

[Share] Script for eAthena

ferry_gukguk

Gukguk Love Cat
Level 2
Share disini script yang kamu punya..

Dilarang tanya-jawab pada thread ini, jika Anda melakukannya, Warning menanti anda..


Merged !

Script :: NPC Buffer

Posted by ChengFei
28 Feb 2007, 06:28 PM

Nich2 gua bagi2 pengalaman gua soalnya gua punya PS sendiri buat temen2 sekolah sendiri gitu.. jadinya maennya sama temen2 sendiri

nich gua kasih paket aja ye.. ada assump dan laen2

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>prontera.gat,155,186,5 script Healer#h1-1::Healer 742,{

percentheal 100,10;
skilleffect 29,0;
sc_start SC_INCREASEAGI,2400000,10;
skilleffect 34,0;
sc_start SC_BLESSING,2400000,10;
skilleffect 66,0;
sc_start SC_IMPOSITIO ,2400000,10;
skilleffect 361,0;
sc_start SC_ASSUMPTIO,2400000,10;
}

morocc.gat,159,96,5 duplicate(Healer) Healer#h1-2 742
ayothaya.gat,155,111,5 duplicate(Healer) Healer#h1-3 742
geffen.gat,121,61,5 duplicate(Healer) Healer#h1-4 742
umbala.gat,94,162,5 duplicate(Healer) Healer#h1-5 742
payon.gat,180,105,5 duplicate(Healer) Healer#h1-6 742
alberta.gat,185,144,5 duplicate(Healer) Healer#h1-7 742
aldebaran.gat,134,123,5 duplicate(Healer) Healer#h1-8 742
izlude.gat,125,118,5 duplicate(Healer) Healer#h1-9 742
xmas.gat,149,136,5 duplicate(Healer) Healer#h1-10 742
comodo.gat,188,162,5 duplicate(Healer) Healer#h1-11 742
amatsu.gat,200,80,5 duplicate(Healer) Healer#h1-12 742
gonryun.gat,164,130,5 duplicate(Healer) Healer#h1-13 742
yuno.gat,152,186,5 duplicate(Healer) Healer#h1-14 742
niflheim.gat,188,180,5 duplicate(Healer) Healer#h1-15 742
louyang.gat,225,103,5 duplicate(Healer) Healer#h1-16 742
pvp_y_8-2,126,117,5 duplicate(Healer) Healer#h1-16 742</div>

copy aja di notepad yang di custom terus heal.txt paste semua di situ. ( otomatis click langsung paket tanpa bicara apapun )
 

kuro

Mephiles The Dark
Level 2
Script :: NPC Healer

Code:
prontera.gat,161,181,4 script Buffer 821,{
set @effect, 1; 
set @heal, 1; 

sc_start 32,  240000, 10;  // Increase Agi
sc_start 30, 240000, 10; // Blessing

if(@effect == 1) skilleffect 29,0; // Increase Agi
if(@effect == 1) skilleffect 34,0; // Blessing

if(@heal == 1) percentheal 100,100;
}
 

charles789

TK A
Level 1
Script :: NPC Special Helper

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
prontera.gat,145,186,4 script Special Helper 864,{
set $prices,10000;
mes "[Special Helper]";
mes "Hello there. Do you need help?";
mes "Need Help to clone yourself or to summon monster to assist you?";
next;
mes "[Valhalla RO Special Helper]";
mes "Please choose one of this two option. Choose wisely.";
mes "You only allowed to choose one of this two options:";
next;
set @helper,select("Slave Clone Option","Summon Option","Quit");
switch(@helper)
{
case 1: callfunc "Slave Clone";
break;
case 2: callfunc "Summon Option";
break;
case 3: close;
}
}
function script Slave Clone {
set $@play$,strcharinfo(0);
mes "[Special Helper]";
if(zeny < $prices){
mes "You don't have enough zeny to pay for my service";
mes "You need at least ^ff0000"+$prices+"^000000 for this service.";
close;
}else if(@clone ==1){
mes "[Special Helper]";
mes "You only allowed to have this clone once until you log off";
emotion 4;
close;
}else if(@summon==1){
mes "[Special Helper]";
mes "I already told you, you only allowed to choose one of the two options";
emotion 4;
close;
}else{
set zeny,zeny - $prices;
atcommand strcharinfo(0)+":mad:slaveclone "+$@play$+"";
emotion 21;
set @clone,1;
close;
}
}
function script Summon Option {
if(zeny <$prices){
mes "You don't have enough zeny to pay for my service";
mes "You need at least ^ff0000"+$prices+"^000000 for this service.";
emotion 4;
close;
}else if(@summon ==1){
mes "[Special Helper]";
mes "You are not allowed to summon twice.";
emotion 4;
close;
}else if(@clone ==1){
mes "[Special Helper]";
mes "I already told you, you only allowed to choose one of the two options";
emotion 4;
close;
}else{
callfunc "Summon Now Lol";

}
}
function script Summon Now Lol {
mes "[Special Helper]";
mes "Please input monsters name or id you desire me to summon for you";
mes "Choose wisely";
input @summon$;
if(@summon$ == "1708"){
callfunc "Cannot Summon";
}else if(@summon$ == "Thanatos"){
callfunc "Cannot Summon";
}else if(@summon$ == "THANATOS"){
callfunc "Cannot Summon";
}else if(@summon$ == "thanatos"){
callfunc "Cannot Summon";
}else{
atcommand strcharinfo(0)+":mad:summon "+@summon$+"";
set zeny,zeny - $prices;
emotion 21;
set @summon,1;
close;
}
}
function script Cannot Summon {
mes "[Special Helper]";
mes "You cannot summon this kind of monster";
close;
}
</div>
 

VodkaMartini

1 SMP
Level 2
Script :: NPC Baby JobChanger

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
//=====eAthena Script===============================
// Baby Jobchanger
//=====By======================================
// Leviathin
//=====Current Version==============================
// 1.0
//=====Compatible With:==============================
// eAthena Version SVN-R1968 and up
//=====Description=================================
// Fully working Compact Baby jobchanger rather than 3 NPC's.
//=====Additional Comments:===========================
// I like Pie?
//=============================================
//
ayothaya.gat,144,113,5 script Baby Jobchanger 116,{
set @npcname$,"[ ^CC00CCBaby Jobchanger^000000 ]";
if (class == 4023) goto L_Acceptable;
if (Class == 4024) goto L_Acceptable;
if (class == 4025) goto L_Acceptable;
if (class == 4026) goto L_Acceptable;
if (class == 4027) goto L_Acceptable;
if (class == 4028) goto L_Acceptable;
if (class == 4029) goto L_Acceptable;
if (class == 4030) goto L_Acceptable;
if (class == 4031) goto L_Acceptable;
if (class == 4032) goto L_Acceptable;
if (class == 4033) goto L_Acceptable;
if (class == 4034) goto L_Acceptable;
if (class == 4035) goto L_Acceptable;
if (class == 4036) goto L_Acceptable;
if (class == 4037) goto L_Acceptable;
if (class == 4038) goto L_Acceptable;
if (class == 4039) goto L_Acceptable;
if (class == 4040) goto L_Acceptable;
if (class == 4041) goto L_Acceptable;
if (class == 4042) goto L_Acceptable;
if (class == 4043) goto L_Acceptable;
if (class == 4044) goto L_Acceptable;
if (class == 4045) goto L_Acceptable;
if (Class == 0) goto L_WantBabyNovice;
mes @npcname$;
mes "I'm sorry but I cannot assist you, you.. you... Big Olf!";
close;
L_WantBabyNovice:
mes @npcname$;
mes "Hello " +strcharinfo(0)+ ", would you like to become a baby novice?";
next;
menu "Yes",L_ConfirmJlvl,"No Thanks",L_Decline;
close;

L_ConfirmJlvl:
if (JobLevel < 10) goto L_LackJlevel;
jobchange 4023;
mes @npcname$;
mes "Okay! Congratulations " +strcharinfo(0)+ ", you are now a Baby Novice!";
//get main gauche[4]
close;

L_SuperBaby:
if (JobLevel < 10) goto L_LackJlevel;
jobchange 4045;
mes @npcname$;
mes "Okay! Congratulations " +strcharinfo(0)+ ", you are now a Super Baby!";
//get Main gauche[4]
close;


L_LackJlevel:
mes @npcname$;
mes "I'm sorry, but the value of your job level is insufficient sweetheart.";
close;

L_Acceptable:
if (class == 4023) goto L_Job1;
if (Class == 4024) goto L_Job2;
if (Class == 4025) goto L_Job2;
if (Class == 4026) goto L_Job2;
if (Class == 4027) goto L_Job2;
if (Class == 4028) goto L_Job2;
if (Class == 4029) goto L_Job2;
if (Class == 4030) goto L_Job3;
if (Class == 4031) goto L_Job3;
if (Class == 4032) goto L_Job3;
if (Class == 4033) goto L_Job3;
if (Class == 4034) goto L_Job3;
if (Class == 4035) goto L_Job3;
if (Class == 4036) goto L_Job3;
if (Class == 4037) goto L_Job3;
if (Class == 4038) goto L_Job3;
if (Class == 4039) goto L_Job3;
if (Class == 4040) goto L_Job3;
if (Class == 4041) goto L_Job3;
if (Class == 4042) goto L_Job3;
if (Class == 4043) goto L_Job3;
if (Class == 4044) goto L_Job3;
if (Class == 4045) goto L_Job3;


L_Job1:
mes @npcname$;
mes "Hello " +strcharinfo(0)+ ".";
next;
mes @npcname$;
mes "Would you like to change into First Class Baby?";
next;
menu "Yes",L_FirstC,"Cancel",L_Cancel;
close;
L_FirstC:
menu "Baby Swordsman",L_BabyS,
"Baby Mage",L_BabyM,
"Baby Archer",L_BabyArch,
"Baby Acolyte",L_BabyAco,
"Baby Merchant",L_BabyMerch,
"Baby Thief",L_BabyThief,
"Super Baby!",L_SuperBaby;
close;
L_BabyS:
if (JobLevel < 10) goto L_LackJlevel;
jobchange 4024;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Swordsman!";
close;

L_BabyM:
if (JobLevel < 10) goto L_LackJlevel;
jobchange 4025;
mes #npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Mage!";
close;

L_BabyArch:
if (JobLevel < 10) goto L_LackJlevel;
jobchange 4026;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Archer!";
close;

L_BabyAco:
if (JobLevel < 10) goto L_LackJlevel;
jobchange 4027;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Acolyte!";
close;

L_BabyMerch:
if (JobLevel < 10) goto L_LackJlevel;
jobchange 4028;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Merchant!";
close;

L_BabyThief:
if (JobLevel < 10) goto L_LackJlevel;
jobchange 4029;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Thief!";
close;

L_Job2:
mes @npcname$;
mes "Hello " +strcharinfo(0)+ ".";
next;
mes @npcname$;
mes "Would you like to change into Second Class Baby?";
next;
menu "Yes",L_SecondC,"Cancel",L_Cancel;
close;
L_SecondC:
if (Class == 4024) goto L_BabyKnight;
if (Class == 4025) goto L_BabyMagician;
if (Class == 4026) goto L_BabyHunter;
if (Class == 4027) goto L_BabyAcoChoice;
if (Class == 4028) goto L_BabyMerchChoice;
if (Class == 4029) goto L_BabySinStalk;
//
L_BabyKnight:
if (JobLevel < 40) goto L_LackJlevel;
mes @npcname$;
mes "I see that you are a Baby Swordsman...";
next;
mes @npcname$;
mes "Would you like to turn into a Baby Knight, or Crusader?";
next;
menu "Knight",L_BabyKn,"Crusader",L_Sader;
close;
L_BabyKn:
jobchange 4030;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Knight!";
close;

L_Sader:
jobchange 4037;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Crusader!";
close;
//
L_BabyMagician:
if (JobLevel < 40) goto L_LackJlevel;
mes @npcname$;
mes "I see that you are a Baby Mage...";
next;
mes @npcname$;
mes "Would you like to turn into a Baby Wizard, or Sage?";
next;
menu "Wizard",L_Wiz,"Sage",L_Sage;
close;
L_Wiz:
jobchange 4032;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Wizard!";
close;

L_Sage:
jobchange 4039;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Sage!";
close;
//
L_BabyHunter:
if (JobLevel < 40) goto L_LackJlevel;
mes @npcname$;
mes "I see that you are a Baby Archer...";
next;
mes @npcname$;
mes "Would you like to turn into a Baby Hunter, or Bard/Dancer?";
next;
menu "Hunter",L_Hun,"Bard/Dancer",L_BardDeceiph;
close;
L_Hun:
jobchange 4034;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Hunter!";
close;

L_BardDeceiph:
if (Sex == 1) goto L_Bard;
jobchange 4043;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Dancer!";
close;

L_Bard:
jobchange 4042;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Bard!";
close;

L_BabyAcoChoice:
if (JobLevel < 40) goto L_LackJlevel;
mes @npcname$;
mes "I see that you are a Baby Acolyte...";
next;
mes @npcname$;
mes "Would you like to turn into a Baby Priest, or Monk?";
next;
menu "Priest",L_Priest,"Monk",L_Monk;
close;
L_Priest:
jobchange 4031;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Priest!";
close;

L_Monk:
jobchange 4038;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Monk!";
close;

L_BabyMerchChoice:
if (JobLevel < 40) goto L_LackJlevel;
mes @npcname$;
mes "I see that you are a Baby Merchant...";
next;
mes @npcname$;
mes "Would you like to turn into a Baby Blacksmith, or Alchemist?";
next;
menu "Blacksmith",L_Hammerfall,"Alchemist",L_Alch;
close;
L_Hammerfall:
jobchange 4033;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Blacksmith!";
close;

L_Alch:
jobchange 4041;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Alchemist!";
close;

L_BabySinStalk:
if (JobLevel < 40) goto L_LackJlevel;
mes @npcname$;
mes "I see that you are a Baby Thief...";
next;
mes @npcname$;
mes "Would you like to turn into a Baby Assassin, or Rogue?";
next;
menu "Assassin",L_sin,"Rogue",L_rogue;
close;
L_sin:
jobchange 4035;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Assassin!";
close;

L_rogue:
jobchange 4040;
mes @npcname$;
mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Rogue!";
close;

L_Job3:
mes @npcname$;
mes "I'm sorry, but you are too advanced for me to help you any longer!";
close;
}</div>
 

ferry_gukguk

Gukguk Love Cat
Level 2
Script :: Login Event AntiBot
Hampir sama kaya yg ada di slayer RO

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>prontera.gat,0,0,0 (tab) script (tab) PCLoginEvent (tab) -1, {
mes "[Polisi]";
mes "Maaf, mengganggu sebentar...";
next;
mes "[Polisi]";
mes "Tolong masukkan angka berikut";
next;
set $@Number, rand(100000,99999);

mes "[Polisi]";
mes ""+$@Number+"";
next;
input @Num;
if (@Num == $@Number) goto ex_benar;
mes "[Polisi]";
mes "Maaf, kamu telah memasukkan angka yang salah";
mes "Kamu bisa dicurigai sebagai bot!";
next;
mes "Silahkan Login kembali dan coba lagi!!";
}

ex_benar:
mes "[Polisi]";
mes "Baiklah, kamu benar memasukkan angkanya!";
mes "Silahkan bermain";
close;</div>

Fungsinya :
1. Saat kamu login, message akan muncul
Code:
mes "[Polisi]";
mes "Maaf, mengganggu sebentar...";
2. Random Number, menentukan angka yang akan dipilih
Code:
set $@Number, rand(100000,99999);
3. Jika salah memasukkan angka
Code:
mes "[Polisi]";
mes "Maaf, kamu telah memasukkan angka yang salah";
mes "Kamu bisa dicurigai sebagai bot!";
next;
mes "Silahkan Login kembali dan coba lagi!!";
tanpa tanda close;, karena jika ada tanda close, otomatis akan menutup pembicaraan dan player bisa bermain,
jika tanpa tanda close, memaksakan untuk relogin karena tidak bisa melakukan apa-apa dan tidak keluar tombol close sama sekali...

4. Jika benar
Code:
mes "[Polisi]";
mes "Baiklah, kamu benar memasukkan angkanya!";
mes "Silahkan bermain";
close;
dengan tanda close; agar player bisa bergerak,

Tambahan :
1. Pada Bagian ini :
Code:
set $@Number, rand(100000,99999);
bisa diganti sesuai keinginan...
 

ferry_gukguk

Gukguk Love Cat
Level 2
Share my NPC Collection!!

Kafra Staff + SQL (By FerryGukguk)
Fitur :
1. KafraQuest (Headgear, Weapon) akan segera diupdate
2. Delivery Item (Segera Hadir)
3. Layanan Messages (Segera Hadir)
4. Periksa Point
5. Layanan Homunculus
6. Daftar Gold Account (Segera Hadir)

Keterangan :
1. KafraQuest
Layanan KafraQuest, sesuai dgn namanya, menyediakan layanan Quest. Sayang, baru ada 70 Quest Headgear dgn system Query Database MySQL

2. Delivery Item
Layanan Delivery Item, sesuai dgn namanya, menyediakan layanan Mengirim Item ke seseorang. Sayang, belum diperbaharui

3. Layanan Message
Layanan Message, memungkinkan Pemain bisa mengirim pesan ke Pemain lain

4. Periksa Point
Layanan Periksa Point, memungkinkan Pemain me-akumulasi Point untuk menukarkannya dengan item-item yang unik

5. Layanan Homunculus
Layanan Homunculus, memungkinkan Alchemist dan Biochemist memiliki Skill Homunculus tanpa perlu Quest di Lighthalzen

6. Daftar Gold Account
Layanan Gold Account, memungkinkan Player untuk Upgrade dari Premium Account menjadi Gold Account dan mendapatkan Fasilitas yang lebih banyak.

(Sorry bnyk yg blom Update..)

Cara Menggunakan
1. Download File Ini (ada di dalam attachment) :
- KafraStaff.txt
- KafraHeadgearQuest.sql

2. Simpan KafraStaff.txt di folder eAthena kamu
3. Jangan lupa, Query-kan KafraHeadgearQuest.sql di MySQL, simpan di Database blackcp

Kalo ada yg kurang ngerti, tanya aja y..
 

Attachments

VodkaMartini

1 SMP
Level 2
Script :: NPC EDP Manager

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
//Script EDP by VodkaMartini (Nyit-Nyit.NET, Indoro-Reborn.CO.NR)
// 2008-5-18 (v2)
prontera.gat,164,152,3 script EDP Manager 730,{
mes "EDP Manager";
mes "Hi, saya adalah NPC EDP Manager!";
mes "Saya akan memberikan satu set bahan";
mes "pembuat EDP apabila kamu memberi";
mes "Uang Sejumlah ^0080C0100,000z^000000";
next;
mes "EDP Manager";
mes "Setiap ^0080C0100,000z^000000 akan ditukar dengan:";
mes "^0080C0Berserk Potion x 1^000000";
mes "^0080C0Empty Bottle x 1^000000";
mes "^0080C0Venom Canine x 1^000000";
mes "^0080C0Bee Sting x 1^000000";
mes "^0080C0Cactus Needle x 1^000000";
mes "^0080C0Karvodailnirol x 1^000000";
mes "^0080C0Poison Spore x 1^000000";
goto insert;
insert:
if(Zeny < 100000) goto cancel;
next;
mes "EDP Manager";
mes "Berapa Set Bahan EDP yang kamu mau?";
input @total;
next;
mes "EDP Manager";
mes "Benar yang kamu masukan adalah "+ @total +" Set ?";
menu "Ya",yes,"Salah",insert,"Batal",exit;
yes:
if(Zeny < @total*100000) goto cancel;
getitem 657,@total;
getitem 713,@total;
getitem 937,@total;
getitem 939,@total;
getitem 952,@total;
getitem 972,@total;
getitem 7033,@total;
set Zeny, Zeny-@total*100000;
next;
mes "EDP Manager";
mes "Semoga Beruntung!";
close;
cancel:
next;
mes "EDP Manager";
mes "Kamu jangan nipu saya ya!";
mes "Duitmu kurang tau!";
close;
exit:
next;
mes "EDP Manager";
mes "Kalo masih mau, saya ada di sini!";
close;
}</div>
 
B

BloodyRO

Guest
Sekedar share Script karya gw ^^

Script :: NPC Rate

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
prontera,160,190,5 script Rate Changer 100,{
mes "[Rate Changer]";
if ( getgmlevel() < 99 ) {
mes "Base EXP rate : "+ getbattleflag("base_exp_rate")/100 +"X";
mes "Job EXP rate : "+ getbattleflag("job_exp_rate")/100 +"X";
close;
}
do {
mes "Halo GM, Rate Sekarang adalah: ";
mes "Base EXP rate : "+ getbattleflag("base_exp_rate")/100 +"X";
mes "Job EXP rate : "+ getbattleflag("job_exp_rate")/100 +"X";
next;
switch( select("Mengubah Base ExP","Mengubah Job ExP","Tidak") ) {
case 1:
case 2:
set .@menu, @menu;
mes "[Rate Changer]";
mes "Masukkan Rate";
next;
input .@num;
if ( .@num <= 0 ) break;
mes "[Rate Changer]";
mes "Apakah yakin "+ .@num +" ?";
next;
if ( select("Yes:No") == 2 ) break;
setbattleflag (.@menu==1)?"base_exp_rate":"job_exp_rate", .@num *100;
atcommand "@reloadmobdb";
break;
default:
mes "Service Berfungsi Silahkan kembali kapan-kapan.";
close;
}
} while (1);
}</div>

Script :: NPC Megacoter

Code:
prontera,150,179,5	script	Megacoter	744,{

mes "[^FF0000 Megacoter ^000000]";
mes "Halo, ^0000FF"+strcharinfo(0)+"^000000";
mes "Kamu mau berteriak dengan Megaphone?";
menu "iya",y,"enggak",v;
y:
mes "[^FF0000 Megacoter ^000000]";
mes "Ketik yang ingin kamu ucapkan";
input @mensagem$;
announce ""+strcharinfo(0)+" Berkata '"+@mensagem$+"' ",bc_all,0xD20000;
close;

v:
close;
}
Jangan lupa [TAB] ..

thx,

Credit by me .. :D
 

mupan

TK A
Level 1
Script :: NPC Quest Megingjard Custom

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
turbo_room,111,139,5 script GODLIKE 86,{
mes "[Si Ganteng]";
mes "Apa kamu ingin membuat megingjard?";
menu "MAU !!!",Meging,"tukang ngibul!",Dada;
close;
Dada:
mes "Wew Sialan!! gw ban ne!!";
Meging:
if(MG_QUEST1 == 1) goto Mobster;
if(MG_QUEST2 == 1) goto Mobster;
mes "[Si Ganteng]";
mes "Sebenarnya si gw gaq bisa buatin lw megingjard";
mes "tapi gw tau Npc yg bisa ngebuatnya dengan cepat!";
next;
mes "[Si Ganteng]";
mes "Gw si sebenarnya mau ngasi tau...";
mes "Tapi perut gw keroncongan ni..";
mes "Beliin gw makanan donk, yang banyak ya!";
next;
if(CAKE == 1) goto Minum;
mes "[Si Ganteng]";
mes "2 buah Traditional Rice Cake, kayanya cukup koq buat perut saya";
if(countitem(555)<2) goto Gakckp;
delitem 555,2;
set CAKE,1;
mes "Ah kenyang nya ~~";
goto Minum;
close;

Minum:
mes "Lho? minum nya mana?";
mes "Ambilkan aku 20 Tropical sograt donk!";
next;
mes "[Si Ganteng]";
if(countitem(12112)<20) goto Gakckp;
delitem 12112,20;
set MG_QUEST1,1;
mes "Ah makasih, makasih!";
next;
mes "[Si Ganteng]";
mes "Oke, sekarang saya akan memberitahukan kamu tempat untuk membuat megingjard!";
next;
mes "[Si Ganteng]";
mes "Dengarkan baik baik karena tidak akan diulang";
goto Mobster;
close;

Mobster:
mes "Pergilah ke Field dimana Monster pencuri yang berbentuk manusia berada";
mes "lalu pergilah ke arah jam 9, disana kamu akan bertemu dengan NPC itu";
mes "Saya telah mengirimkan Surat padanya, Berhati hati lah";
close;


cmd_fild02,43,301,5 script Mobster 1313,{
if(MG_QUEST1 == 1) goto Meging2;
if(MG_QUEST2 == 1) goto Master;
mes "[Mobster]";
mes "Hmm, ada perlu apa datang kesini?";
close;
Meging2:
mes "[Mobster]";
mes strcharinfo(0)+", Jadi seperti ini ya orang yg diceritakan Justian";
next;
mes "[Mobster]";
mes "Aku tahu kamu pasti ingin membuat Megingjard bukan?";
mes "Sebenarnya bukan saya yang membuatnya..";
next;
mes "[Mobster]";
mes "tetapi saya biasanya mendapat titipan Megingjard untuk dijual";
next;
mes "[Mobster]";
mes "Tapi sayang hari ini kamu kurang beruntung";
mes "Kemarin, barang barang saya dicuri oleh Mobster yang lain!!";
next;
mes "[Mobster]";
mes "Jadi saya hanya dapat memberitahukan kamu dimana harus membuatnya";
mes "dengan persyaratan sebagai berikut:";
next;
mes "[Mobster]";
mes "500,000,000 zeny agar aku dapat berdagang kembali";
mes "50 Maya purple Card agar aku dapat mengetahui jika ada yang mau mencuri lagi";
if(countitem(4198)<50 ||Zeny<500000000) goto Gakckp;
delitem 4198,50;
set Zeny,Zeny-500000000;
set MG_QUEST2,1;
set MG_QUEST1,0;
mes "Wah, terima kasih banyak. Sekarang dengarkan baik baik.";
goto Master;
close;
Master:
mes "[Mobster]";
mes "Pergilah ke tha_t12";
mes "Dia berada di tengah tengah map";
close;

tha_t12,130,51,5 script MASTER 63,{
if(MG_QUEST2 == 1) goto Meging3;
mes "[Mobster]";
mes "Hmm, ada perlu apa datang kesini?";
close;
Meging3:
mes "[MASTER of GODLY ITEM]";
mes "Ohh, jadi kamu orang yang diceritakan oleh MOBSTER..";
next;
mes "Baiklah, saya tahu kamu telah melewati perjalanan yang sangat panjang.";
next;
mes "Kalau begitu kita langsung saja membuat Godly Item Megingjard ini.";
mes "Bahan bahan yang kamu butuhkan untuk membuat Megingjard adalah:";
next;
mes "20 Randgris Card";
mes "10 Golden Thief Bug Card";
mes "1 buah Valkyrie Helm";
mes "dan 300,000,000 zeny untuk menggunakan jasa saya";
next;
if(countitem(4407)<20 ||countitem(4128)<10 ||countitem(5171)<1 ||Zeny<300000000) goto Gakckp;
delitem 4407,20;
delitem 4128,10;
delitem 5171,1;
set MG_QUEST2,0;
set Zeny,Zeny-300000000;
getitem 2629,1;
announce strcharinfo(0)+", telah berhasil membuat Megingjard!!",8;
mes "Wah, akhirnya sudah selesai!!";
mes "Ini,dia Megingjard mu";
close;
Gakckp:
mes "?? mana barang yang saya minta! pergi sana, cpet!!";
close;
}
</div>
 

mupan

TK A
Level 1
Script :: NPC Where are You

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
prontera,146,163,5 script Where are u? 70,{
mes "[Where are u?]";
mes "Halo aku dapat mewarp kamu menuju ke tempat org yang kamu tulis..";
mes "Biaya nya adalah 10,000,000 zeny";
mes "kami tidak dapat warp kamu ke tempat GM";
next;
mes "Kamu harus benar benar yakin Player tersebut Online";
mes "dan juga kamu tidak boleh salah tulis nama";
menu "Mau!!",-,"wew, gaq ada duit >_<",Duit;
if(Zeny<10000000) goto Gakckp;
input @name$;
//if (@name$=="King" ||@name$=="Administrator" || @name$=="aurora") goto Gakblh;
set Zeny,Zeny-10000000;
atcommand strcharinfo(0) + "@goto "+@name$;
close;

Gakblh:
mes "[Where are u?]";
mes "Player tersebut tidak dapat diikuti";
close;

Duit:
mes "[Where are u?]";
mes "Kembalilah lain kali..";
close;

Gakckp:
mes "[Where are u?]";
mes "Kamu tidak memiliki cukup uang..";
close;
}
</div>

Fitur nya agar player dpt menuju ke tempat player lain dengan diketik. bold= id GM agar tdk bs diikuti
 
B

BloodyRO

Guest
Script :: NPC Jadwal Euro 2008

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>prontera,161,175,0 script Jadwal euro 2008 837,{
set @NPCName$, "[^047CDFEuro 2008^000000]";
mes @NPCName$;
mes "Disini aku ngasih jadwal buat pertandinga Euro 2008";
next;
mes @NPCName$;
mes "Group A:";
mes "7 Juni di Basel Swiss vs Republik Ceska";
mes "7 Juni di Jenewa Portugal vs Turki";
mes "11 Juni di Basel Swiss vs Turki";
mes "11 Juni di Geneva Republik Ceska vs Portugal";
mes "15 Juni di Basel Swiss vs Portugal";
mes "15 Juni di Geneva Turki vs Republik Ceska";
next;
mes @NPCName$;
mes "Group B:";
mes "8 Juni di Wina Austria v Kroasia";
mes "8 Juni di Klagenfurt Jerman vs Polandia";
mes "12 Juni di Klagenfurt Kroasia vs Jerman";
mes "12 Juni di Wina Austria vs Polandia";
mes "16 Juni di Klagenfurt Polandia vs Kroasia";
mes "16 Juni di Wina Austria vs Jerman";
next;
mes @NPCName$;
mes "Group C:";
mes "9 Juni di Zurich Rumania vs Prancis";
mes "9 Juni di Berne Belanda vs Italia";
mes "13 Juni di Zurich Italia vs Rumania";
mes "13 Juni di Berne Belanda vs Prancis";
mes "13 Juni di Zurich Prancis vs Italia";
mes "17 Juni di Berne Belanda vs Rumania";
next;
mes @NPCName$;
mes "Group D:";
mes "10 Juni di Innsbruck Spanyol vs Rusia";
mes "10 Juni di Salzburg Yunani vs Swedia";
mes "14 Juni di Innsbruck Swedia vs Spanyol";
mes "14 Juni di Salzburg Yunani vs Rusia";
mes "18 Juni di Salzburg Yunani vs Spanyol";
mes "18 Juni di Innsbruck Rusia vs Swedia";
next;

mes @NPCName$;
mes "selesai juga akhirnya";
mes "Untuk perempat final,semifinal,dan final akan di update jika waktunya tlah tiba.";
close;
}
//============================================================
//===== Emo Angel & Benjo Script maker ===========================
//============================================================</div>

NPC Spesial dari gw n emo ..

Thx to emo ..
Fixed by me ..
 
B

BloodyRO

Guest
Script :: NPC Beelzebub Quest

Check : www.ragnarok.co.id

Required : Version 12+

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
//========= NPC : Lita =======================================
//======= Desc : Berzebub Quest ==============================
//============ Created by : Hilmy ============================
//========== Please Don't Remove Copyright ===================
//======== 16 June 2008 ======================================

veins,76,158,4 script Lita 756,{
set @npc$,"^00ade6[Lita]^000000";

mes @npc$;
mes "Halo, Saya Lita.";
mes "Tahukah kamu tentang Berzebub?";
next;
mes @npc$;
mes "^FF0000Berzebub^000000 adalah sebuah monster Boss Jaman dahulu,";
mes "yang telah lama mati berbentuk Lebah";
mes "Apakah kamu mau membantu saya?";
next;
menu "Bantu apa?",hmm,"Batal",use;
use:
mes @npc$;
mes "Selamat Tinggal";
close;

hmm:
mes @npc$;
mes "Jika kamu mau, Hadiah jika kamu berhasil adalah :";
mes "^FF00001 Berzebub Card^000000";
next;
menu "Mauu..mau..",oke,"Batal",use;

oke:
mes @npc$;
mes "Tolong bawakan saya Item-item ini:";
mes "^0000ff500 buah Broken Farming Untensil^000000";
mes "^0000ff50 buah Torn Magic Book^000000";
mes "^0000ff5 buah Opal^000000";
mes "dan ^0000ff1 buah Four Leaf Clover^000000";
next;
menu "Oke..saya bawa..",lanjut,"Batal",use;

lanjut:
mes @npc$;
mes "Oke, Saya check item kamu dulu";
next;
if (countitem (7753) < 500) goto L_enough;
if (countitem (7117) < 50) goto L_enough;
if (countitem (727) < 5) goto L_enough;
if (countitem (706) < 1) goto L_enough;
mes "Hmm, Kamu saya akan buatkan";
delitem 7753,500;
delitem 7117,50;
delitem 727,5;
delitem 706,1;
getitem 4145,1;
next;
mes "Terima kasih, Sudah membantu saya !";
close;

L_enough:
mes @npc$;
mes "Maaf, Item yang kamu bawa kurang atau salah";
mes "Cek kembali itemnya..";
close;
}</div>
 

Tristian1st

Belum Sekolah
Level 1
Script :: NPC Police v.12 +

Polisi versi 12+

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
//Created by PoringRO [bHendZ]
//Version : 1.0
//Description : Antibot 12+
prontera,0,0,0 script Polisi -1,{
OnPCLoginEvent:
mes "[Polisi]";
mes "Maaf, mengganggu sebentar...";
next;
mes "[Polisi]";
mes "Tolong masukkan angka berikut";
next;
set @Number,rand(100,999);
mes "[Polisi]";
mes ""+@Number+"";
next;
input @Num;
if (@Num != @Number) goto ex_salah;
mes "[Polisi]";
mes "Baiklah, kamu benar memasukkan angkanya!";
mes "Silahkan bermain";
close;

ex_salah:
mes "[Polisi]";
mes "Maaf, kamu telah memasukkan angka yang salah";
mes "Kamu bisa dicurigai sebagai bot!";
next;
mes "Silahkan Login kembali dan coba lagi!!";

}</div>

Ditunggu makasinya ^_^
 

adanijmc

TK A
Level 1
Script :: NPC Farid Pikun

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
//Compiled script will go here as you make it.
//Script Generated by Athena Script Creation Utility by PKGINGO

prontera.gat,165,160,7 script Farid Pikun 748,{
mes "[Farid Pikun]";
mes "duh pala ku gatal banget";
mes "kemarin aku sudah membeli obatnya";
mes "tapi emang dasar aku ini pikun, aku lupa membawanya pulang";
next;
mes "[Farid Pikun]";
mes "maukah kamu membantu ku mencari bahan-bahannya ?";
menu "apakah barang ini yg kau cari ?",SEP,
"Apa guna nya untukku",EXP,"sorry... ga ada waktu",GA;
SEP:
mes "[Farid Pikun]";
mes "wah kamu memang baik hati";
mes "sekarang sesuai janjiku kan ku berikan kamu hadiah";
mes "kulihat dulu barang-mu";
next;
if(countitem(938)<50||countitem(909)<100||countitem(969)<5||countitem(1057)<10) goto DODOL;
delitem 938,50;
delitem 909,100;
delitem 969,5;
delitem 1057,10;
mes "[Farid Pikun]";
mes "waw ternyata kamu benar-benar membawanya !";
mes "sesuai janji .. kamu akan mendapatkan hadiah";
next;
mes "[Farid Pikun]";
mes "kepala ku tidak akan gatal lagi, terima kasih anak muda";
mes "ini hadiah yang kujanjikan jangan terkejut yah";
mes "hadiah untuk mu supaya kamu juga tidak gatal-gatal";
next;
mes "[Farid Pikun]";
mes "sekarang waktunya kumandi, dadah";
mes "terima kasih .. kembalilah";
mes "jika kamu menginginkan ^F00000anti gatal^000000 itu lagi";
getitem 5147,1;
close;
DODOL:
mes "[Farid Pikun]";
mes "oala bahan-bahannya masih kurang ... T_T";
mes "cepatlah kembali aku tak tahan T_T";
close;
EXP:
mes "[Farid Pikun]";
mes "aku akan memberikanmu hadiah yang menarik";
mes "jika kamu bisa menyelesaikan tugas ini";
next;
mes "apakah kamu mau menerima tugas dariku ?";
menu "okeh",OKEH,"ga ah",GA;
OKEH:
mes "[Farid Pikun]";
mes "baiklah bawakan aku";
mes "50 Sticky Mucus, 100 Jellopy, 5 Gold, dan 10 Moth Dust";
close;
GA:
mes "[Farid Pikun]";
mes "baiklah aku tidak akan memaksamu";
close;
}
</div>
 

tunggonkeren

PAUD
Level 1
Script :: NPC Gordik Family Quest

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>//============= Script =======================================
//= Gordik Family Quest
//===== By: ==================================================
//= TunggonDonk aka Parmantots
//===== Compatible With: =====================================
//= eAthena SVN
//===== Comment: =========================================
//= Kalo ketemu bug kasi tau ya.
//============================================================
//============================================================
morocc,165,32,3 script Pengemis 847,{
if (pengemis==1) goto makasi;
mes "[Vondriy]";
mes "Pak/Bu, saya lapar..";
mes "saya belum makan selama 10 hari";
mes "saya minta sedikit makanan saja";
menu "nanya",nanya,"Sebodo amat dah",Bodo,"kasi",kasi;

nanya:
mes "["+strcharinfo(0)+"]";
mes "mau makan apa?";
next;
mes "[Vondriy]";
mes "kalo bisa si ^362ED6 Bomber Steak ^000000";
mes "1 cukuplah";
next;
mes "["+strcharinfo(0)+"]";
mes "tunggu bentar ya.";
next;
mes "[Vondriy]";
mes "OK, makasi ya.";
close;

Bodo:
mes "["+strcharinfo(0)+"]";
mes "emang cuma lu doang yg perlu makan?";
mes "gua juga!";
next;
mes "[Vondriy]";
mes "ya sudahlah";
emotion e_sob;
close;

kasi:
mes "["+strcharinfo(0)+"]";
mes "nih";
next;
if (countitem(12043)<1) goto nipu;
delitem 12043,1;
mes "[Vondriy]";
mes "makasi banyak ya";
emotion e_thx;
next;
mes "[Vondriy]";
mes "nih ganti dari makanan yang kamu kasih";
mes "biarpun kayanya gk cukup untuk";
mes "kebaikan kamu kepadaku.^0080C0*ngobok kantong*^000000";
next;
getitem 1073,1;
mes "[Vondriy]";
mes "saya tidak tahu itu untuk apa";
mes "kemarin saya memungutnya dari tepi jalan di Alberta,";
mes "semoga berguna";
mes "sekali lagi terima kasih ya.";
emotion e_thx;
set pengemis,1;
close;

makasi:
mes "[Vondriy]";
mes "Terimakasih karena kamu";
mes "telah meyelamatkan aku";
close;

nipu:
mes "[Vondriy]";
mes "ya sudahlah kalo memang";
mes "niatmu menipuku, aku";
mes "sudah biasa diperlakuan";
mes "seperti itu kok";
emotion e_sob;
next;
mes "[Vondriy]";
mes "have a nice day";
close;
}

//============================================
//============================================
alberta,40,46,6 script Bella 729,{
if (bella==1) goto balik;
if (bella==2) goto telat;
if (bella==3) goto tolong;
mes "[Bella]";
mes "GAWAT! GAWAT! gimana ni!!";
emotion e_swt2;
menu "Ada apa ya?",nanya,"Ih pegi aja deh",gk;

gk:
mes "[Bella]";
mes "*sob*";
emotion e_sob;
close;

nanya:
mes "[Bella]";
mes "Tiket rekomendasi untuk";
mes "menjadi merchant yang diberikan";
mes "ayahku hilang *sob*";
emotion e_sob;
mes "gimana nih...";
next;
mes "["+strcharinfo(0)+"]";
mes "wiw, jadi gimana dong?";
next;
mes "[Bella]";
mes "ya apa bole buat";
mes "pulang kampung dan tunggu";
mes "dimarain ama orangtua *sob*";
emotion e_sob;
menu "bantu",bantu,"Bukan urusan gue",gk;

bantu:
mes "["+strcharinfo(0)+"]";
mes "eh dik, jangan nyerah dulu donk";
mes "sini kk bantu";
mes "mang jatohnya di mana?";
next;
mes "[Bella]";
mes "di pinggir pintu merchant guild kayanya";
mes "*sob*";
next;
mes "["+strcharinfo(0)+"]";
mes "bentar ya.";
set bella,1;
close;

balik:
mes "[Bella]";
mes "Udah???? Mana-mana, sini kuliat dulu!!";
menu "Nih",kasi,"ehehe lom kok",serius;

serius:
mes "[Bella]";
mes "swt deh";
emotion e_swt;
close;

kasi:
if (countitem(1073)<1) goto gk;
delitem 1073,1;
mes "[Bella]";
mes "waw! makasi kk!";
next;
mes "umm, bole minta tolong lg gk kak?";
emotion e_shy;
menu "boleh aja",bole,"gk ah",males;

bole:
mes "[Bella]";
mes "anterin surat ke ibuku yang";
mes "ada di veins dong";
menu "boleh-boleh",boleh,"males",males;

males:
mes "[Bella]";
mes "oh, yawda de";
mes "nih sebagai ganti waktu buat";
mes "nyari Tiket.";
getitem 573,2;
set bella,2;
emotion e_thx;
close;

boleh:
mes "[Bella]";
mes "tunggu bentar ya";
mes "^362ED6*Buka tas*^000000";
mes "nih";
getitem 7490,1;
mes "tolong ya";
set bella,3;
close;

telat:
mes "[Bella]";
mes "makasi ya";
close;

tolong:
mes "[Bella]";
mes "tolong anterin ya";
mes "di Veins lho!";
close;
}

//============================================
//============================================
veins,197,163,6 script Elli 53,{
if (elli==1) goto selamat_jalan;
if (elli==3) goto selamat_jalan;
if (elli==2) goto kembali;
if (countitem(7490)<1) goto gk;
mes "[Elli]";
mes "Oh, akhirnya!";
mes "Apakah kamu yang membawa surat";
mes "dari anakku Bella?";
next;
mes "["+strcharinfo(0)+"]";
mes "Btul, ini suratnya";
next;
mes "^362ED6*Ngasi surat ke emaknya*^000000";
delitem 7490,1;
next;
mes "memangnya surat apa sih?";
next;
mes "[Elli]";
mes "bentar ya, saya baca dulu";
next;
mes "^362ED6Baca pelan-pelan^000000";
next;
mes "[Elli]";
mes "oh, ternyata anakku menanyakan kabarku";
mes "dan memberitahukan bahwa ada";
mes "seseorang yang baik hati";
mes "yang mau membantunya mencarikan";
mes "tiketnya yang hilang";
mes "apakah itu anda?";
emotion e_what;
menu "Ya",ya,"Bukan",bukan;

gk:
mes "[Elli]";
mes "maaf, jangan ganggu saya,";
mes "saya sedang menunggu surat";
mes "dari seseorang";
close;

bukan:
mes "[Elli]";
mes "oh, saya pikir anda yang telah";
mes "menolongnya.";
next;
mes "[Elli]";
mes "pastilah anda lapar setelah seharian berjalan";
mes "tunggu sebentar ya, saya";
mes "ambilkan sesuatu untuk dimakan.";
next;
mes "^362ED6Jalan ke dapur...^000000";
next;
mes "[Elli]";
mes "ini dimakan dulu selagi hangat";
getitem 583,1;
getitem 599,10;
next;
mes "[Elli]";
mes "selamat jalan, semoga selamat";
mes "di perjalanan.";
set elli,1;
close;

selamat_jalan:
mes "[Elli]";
mes "selamat jalan, semoga selamat";
mes "di perjalanan.";
close;

ya:
mes "[Elli]";
mes "Terimakasih karena telah";
mes "menolong anakku.";
mes "sebenarnya keadaanku sekarang tidak";
mes "begitu baik ^362ED6*uhuk*^000000";
next;
mes "sepertinya aku masuk angin";
mes "bisa tolong belikan obat gk?";
menu "Bisa",bisa,"Lagi ada keperluan lain",keperluan;

keperluan:
mes "[Elli]";
mes "Oh, kalau begitu aku tidak bisa";
mes "memaksamu.";
next;
mes "[Elli]";
mes "ini sedikit hadiah dariku";
mes "karena telah membantu anakku";
getitem 583,1;
getitem 599,10;
next;
mes "[Elli]";
mes "selamat jalan, semoga selamat";
mes "di perjalanan.";
set elli,1;
close;

bisa:
mes "[Elli]";
mes "baiklah, aku memerlukan:";
mes "Reptile tongue x3";
mes "Immortal Heart x3";
mes "Bear's Footskin x3";
mes "dan";
mes "Tiger's Footskin x1";
next;
mes "kalau sudah dapat kembali lagi ya";
set elli,2;
close;

kembali:
mes "[Elli]";
mes "Ah, akhirnya kamu kembali juga";
menu "Berikan",beri;

beri:
if(countitem(903)<3 || countitem(929)<3 || countitem(948)<3 || countitem(1030)<1) goto kurang;
mes "[Elli]";
mes "yup, semuanya lengkap.";
delitem 903,3;
delitem 929,3;
delitem 948,3;
delitem 1030,1;
next;
mes "dengan ini aku bisa segera sembuh.";
mes "ini sedikit hadiah dariku...";
next;
getitem 969,5;
mes "["+strcharinfo(0)+"]";
mes "GILEEE, banyak amad Bu!!!!";
mes "Ga salah ni????";
next;
mes "[Elli]";
mes "Ga ko, kesehatan itu jauh lebih";
mes "penting daripada harta.";
mes "Jadi itu gk seberapa dibanding";
mes "obat ini.";
set elli,3;
close;

kurang:
mes "[Elli]";
mes "maaf, sepertinya ada yang kurang";
mes "coba cek deh";
close;
}
</div>

Script :: NPC Enriched Elu & Enriched Ori Trader

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>//============= Script =======================================
//= Enriched elu & ori Trader
//===== By: ==================================================
//= TunggonDonk aka Parmantots
//===== Compatible With: =====================================
//= eAthena SVN
//============================================================
payon.gat,172,142,6 script Penukaran 730,{
mes "[Boomer]";
mes "Hi, saya dapat menukarkan 10 buah oridecon";
mes "dan 15 buah elunium menjadi masing-masing";
mes "1 buah enriched oridecon dan 1 buah";
mes "enriched elunium.";
mes "apakah kamu mau menukarkan milikmu?";
next;
menu "ya",ya,"tidak",cancel;

ya:
mes "[Boomer]";
mes "apa yang ingin kamu tukar?";
next;
menu "Oridecon",oridecon,"Elunium",elunium;

oridecon:
mes "[Boomer]";
mes "baiklah, berapa jumlah yang kamu mau?";
goto insert;

insert:
input @total;
next;
mes "[Boomer]";
mes "Benar yang kamu masukkan adalah "+ @total +"buah ?";
next;
menu "ya",yes,"tidak",insert,"batal",cancel;

yes:
if (countitem(984)<@total*10) goto kurang;
delitem 984,@total*10;
getitem 7620,@total;
next;
mes "[Boomer]";
mes "Semoga beruntung.";
close;

elunium:
mes "[Boomer]";
mes "baiklah, berapa jumlah yang kamu mau?";
goto insert_2;

insert_2:
input @total;
next;
mes "[Boomer]";
mes "Benar yang kamu masukkan adalah "+ @total +"buah ?";
next;
menu "ya",yes_2,"tidak",insert,"batal",cancel;

yes_2:
if (countitem(985)<@total*15) goto kurang;
delitem 985,@total*15;
getitem 7619,@total;
next;
mes "[Boomer]";
mes "Semoga beruntung.";
close;

kurang:
mes "[Boomer]";
mes "Silakan kembali lagi jika";
mes "bahan2 yg diperlukan sudah ada.";
close;

cancel:
mes "[Boomer]";
mes "Silakan kembali, jika ingin";
mes "menukar.";
close;
}</div>
 

VodkaMartini

1 SMP
Level 2
Script :: NPC WoE Setup
<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
//WoE Setup.
//Modified by VodkaMartini

//senin 16:00 s/d 17:00 = prontera (valkyrie)
//rabu 16:00 s/d 17:00 = geffen (britoniah)
//kamis 15:00 s/d 16:00 = aldebaran (luina)
//sabtu 20:00 s/d 21:00 = payon (greenwood)

- script Agit_Event -1,{
end;

OnClock1600: //start time for Pront & Geffen
OnClock1700: //end time Pront & Geffen
OnClock1500: //start time for Alde
OnClock1600: //end time for Alde
OnClock2000: //start time for Pay
OnClock2100: //end time for Pay
OnAgitInit:

// starting time checks
if(gettime(4)==1) && gettime(3)<16) goto L_Valk;
if(gettime(4)==3) && gettime(3)<16) goto L_Brit;
if(gettime(4)==4) && gettime(3)<15) goto L_Luin;
if(gettime(4)==6) && gettime(3)<20) goto L_Green;
end;

// end time checks
if(gettime(4)==1) && gettime(3)<17) goto L_End;
if(gettime(4)==3) && gettime(3)<17) goto L_End;
if(gettime(4)==4) && gettime(3)<16) goto L_End;
if(gettime(4)==6) && gettime(3)<21) goto L_End;
end;

L_Valk:
if (!agitcheck()) {
Announce "War of Emperium Telah Dimulai Untuk sektor Valkyrie (Prontera)!",8;
AgitStart;
}
callsub S_DisplayOwners;
enablenpc "prtg01";
enablenpc "prtg02-1";
enablenpc "prtg03-1";
enablenpc "prtg04-1";
enablenpc "prtg05-1";

maprespawnguildid "prtg_cas01",0,7;
maprespawnguildid "prtg_cas02",0,7;
maprespawnguildid "prtg_cas03",0,7;
maprespawnguildid "prtg_cas04",0,7;
maprespawnguildid "prtg_cas05",0,7;

disablenpc "aldg01";
disablenpc "aldg02";
disablenpc "aldg03";
disablenpc "aldg04";
disablenpc "aldg05";

disablenpc "gefg01";
disablenpc "gefg02";
disablenpc "gefg03";
disablenpc "gefg04";
disablenpc "gefg05";
disablenpc "gefg06";
disablenpc "gefg07";
disablenpc "gefg08";
disablenpc "gefg09";
disablenpc "gefg09-1";

disablenpc "payg01";
disablenpc "payg02";
disablenpc "payg03";
disablenpc "payg04";
disablenpc "payg05";

disablenpc "naldg01";
disablenpc "ngefg01";
disablenpc "npayg01";
disablenpc "nprtg01";
end;

L_Brit:
if (!agitcheck()) {
Announce "War of Emperium Telah Dimulai Untuk sektor Britoniah (Geffen)!",8;
AgitStart;
}
callsub S_DisplayOwners;
enablenpc "gefg01";
enablenpc "gefg02";
enablenpc "gefg03";
enablenpc "gefg04";
enablenpc "gefg05";
enablenpc "gefg06";
enablenpc "gefg07";
enablenpc "gefg08";
enablenpc "gefg09";
enablenpc "gefg09-1";
maprespawnguildid "gefg_cas01",0,7;
maprespawnguildid "gefg_cas02",0,7;
maprespawnguildid "gefg_cas03",0,7;
maprespawnguildid "gefg_cas04",0,7;
maprespawnguildid "gefg_cas05",0,7;

disablenpc "prtg01";
disablenpc "prtg02-1";
disablenpc "prtg03-1";
disablenpc "prtg04-1";
disablenpc "prtg05-1";

disablenpc "aldg01";
disablenpc "aldg02";
disablenpc "aldg03";
disablenpc "aldg04";
disablenpc "aldg05";

disablenpc "payg01";
disablenpc "payg02";
disablenpc "payg03";
disablenpc "payg04";
disablenpc "payg05";

disablenpc "naldg01";
disablenpc "ngefg01";
disablenpc "npayg01";
disablenpc "nprtg01";
end;

L_Luin:
if (!agitcheck()) {
Announce "War of Emperium Telah Dimulai Untuk sektor Luina (Aldebaran)!",8;
AgitStart;
}
callsub S_DisplayOwners;
enablenpc "aldg01";
enablenpc "aldg02";
enablenpc "aldg03";
enablenpc "aldg04";
enablenpc "aldg05";
maprespawnguildid "aldeg_cas01",0,7;
maprespawnguildid "aldeg_cas02",0,7;
maprespawnguildid "aldeg_cas03",0,7;
maprespawnguildid "aldeg_cas04",0,7;
maprespawnguildid "aldeg_cas05",0,7;

disablenpc "prtg01";
disablenpc "prtg02-1";
disablenpc "prtg03-1";
disablenpc "prtg04-1";
disablenpc "prtg05-1";

disablenpc "gefg01";
disablenpc "gefg02";
disablenpc "gefg03";
disablenpc "gefg04";
disablenpc "gefg05";
disablenpc "gefg06";
disablenpc "gefg07";
disablenpc "gefg08";
disablenpc "gefg09";
disablenpc "gefg09-1";

disablenpc "payg01";
disablenpc "payg02";
disablenpc "payg03";
disablenpc "payg04";
disablenpc "payg05";

disablenpc "naldg01";
disablenpc "ngefg01";
disablenpc "npayg01";
disablenpc "nprtg01";
end;

L_Green:
if (!agitcheck()) {
Announce "War of Emperium Telah Dimulai Untuk sektor Greenwood (Payon)!",8;
AgitStart;
}
callsub S_DisplayOwners;
enablenpc "payg01";
enablenpc "payg02";
enablenpc "payg03";
enablenpc "payg04";
enablenpc "payg05";
maprespawnguildid "payg_cas01",0,7;
maprespawnguildid "payg_cas02",0,7;
maprespawnguildid "payg_cas03",0,7;
maprespawnguildid "payg_cas04",0,7;
maprespawnguildid "payg_cas05",0,7;

disablenpc "aldg01";
disablenpc "aldg02";
disablenpc "aldg03";
disablenpc "aldg04";
disablenpc "aldg05";

disablenpc "prtg01";
disablenpc "prtg02-1";
disablenpc "prtg03-1";
disablenpc "prtg04-1";
disablenpc "prtg05-1";

disablenpc "gefg01";
disablenpc "gefg02";
disablenpc "gefg03";
disablenpc "gefg04";
disablenpc "gefg05";
disablenpc "gefg06";
disablenpc "gefg07";
disablenpc "gefg08";
disablenpc "gefg09";
disablenpc "gefg09-1";

disablenpc "naldg01";
disablenpc "ngefg01";
disablenpc "npayg01";
disablenpc "nprtg01";
end;

L_End:
if (agitcheck()) {
Announce "War of Emperium Telah Berakhir!",8;
AgitEnd;
}
callsub S_DisplayOwners;
end;

S_DisplayOwners:
setarray .@maps$[0],"aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05";
setarray .@maps$[5],"gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05";
setarray .@maps$[10],"payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05";
setarray .@maps$[15],"prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05";
for( set .@i, 0; .@i <= 19; set .@i, .@i+1 ) {
if (GetCastleData(.@maps$[.@i],1)) {
Announce "[" + GetCastleName(.@maps$[.@i]) + "] Telah Dikuasai Oleh [" + GetGuildName(GetCastleData(.@maps$[.@i],1)) + "] guild.",bc_all;
}
else {
Announce "[" + GetCastleName(.@maps$[.@i]) + "] Tidak Dikuasai Siapapun.",bc_all;
}
}
end;
}


//========================================
// Treasure Spawn Time
//========================================
- script TreasSpawn -1,{
end;

OnClock0001:
callfunc "F_GldTreas","aldeg_cas01","A01",$boxNumA01,$@bxA01,$@boxIdA01,1324,114,218,123,227,0;
callfunc "F_GldTreas","aldeg_cas02","A02",$boxNumA02,$@bxA02,$@boxIdA02,1326,130,226,138,235,0;
callfunc "F_GldTreas","aldeg_cas03","A03",$boxNumA03,$@bxA03,$@boxIdA03,1328,220,264,229,273,0;
callfunc "F_GldTreas","aldeg_cas04","A04",$boxNumA04,$@bxA04,$@boxIdA04,1330,80,8,89,17,0;
callfunc "F_GldTreas","aldeg_cas05","A05",$boxNumA05,$@bxA05,$@boxIdA05,1332,58,8,65,15,0;
end;
OnClock0002:
callfunc "F_GldTreas","gefg_cas01","G01",$boxNumG01,$@bxG01,$@boxIdG01,1334,150,108,158,114,0;
callfunc "F_GldTreas","gefg_cas02","G02",$boxNumG02,$@bxG02,$@boxIdG02,1336,136,112,145,118,0;
callfunc "F_GldTreas","gefg_cas03","G03",$boxNumG03,$@bxG03,$@boxIdG03,1338,266,286,275,293,0;
callfunc "F_GldTreas","gefg_cas04","G04",$boxNumG04,$@bxG04,$@boxIdG04,1340,112,114,119,123,0;
callfunc "F_GldTreas","gefg_cas05","G05",$boxNumG05,$@bxG05,$@boxIdG05,1342,140,106,147,113,0;
end;
OnClock0003:
callfunc "F_GldTreas","payg_cas01","Py01",$boxNumPy01,$@bxPy01,$@boxIdPy01,1344,286,4,295,13,0;
callfunc "F_GldTreas","payg_cas02","Py02",$boxNumPy02,$@bxPy02,$@boxIdPy02,1346,140,140,148,149,0;
callfunc "F_GldTreas","payg_cas03","Py03",$boxNumPy03,$@bxPy03,$@boxIdPy03,1348,154,164,162,173,0;
callfunc "F_GldTreas","payg_cas04","Py04",$boxNumPy04,$@bxPy04,$@boxIdPy04,1350,142,44,151,51,0;
callfunc "F_GldTreas","payg_cas05","Py05",$boxNumPy05,$@bxPy05,$@boxIdPy05,1352,152,128,160,135,0;
end;
OnClock0004:
callfunc "F_GldTreas","prtg_cas01","Pt01",$boxNumPt01,$@bxPt01,$@boxIdPt01,1354,6,204,15,213,0;
callfunc "F_GldTreas","prtg_cas02","Pt02",$boxNumPt02,$@bxPt02,$@boxIdPt02,1356,198,224,207,233,0;
callfunc "F_GldTreas","prtg_cas03","Pt03",$boxNumPt03,$@bxPt03,$@boxIdPt03,1358,184,128,193,135,0;
callfunc "F_GldTreas","prtg_cas04","Pt04",$boxNumPt04,$@bxPt04,$@boxIdPt04,1360,266,158,275,167,0;
callfunc "F_GldTreas","prtg_cas05","Pt05",$boxNumPt05,$@bxPt05,$@boxIdPt05,1362,272,174,279,181,0;
end;
OnClock0005:
callfunc "F_GldTreas","nguild_alde","N01",$boxNumN01,$@bxN01,$@boxIdN01,1324,114,218,123,227,0;
callfunc "F_GldTreas","nguild_gef","N02",$boxNumN02,$@bxN02,$@boxIdN02,1334,150,108,158,114,0;
callfunc "F_GldTreas","nguild_pay","N03",$boxNumN03,$@bxN03,$@boxIdN03,1344,286,4,295,13,0;
callfunc "F_GldTreas","nguild_prt","N04",$boxNumN04,$@bxN04,$@boxIdN04,1354,6,204,15,213,0;
end;
}
</div>
 

wowo

1 SD
Level 2
Script :: NPC Party Warper

Function Version
Standalone Version
linknya suka hidup, suka mati..

Ini Function Version
<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>//|Sections: |//
//|1: Bad Maps. (Maps you are not allowed to warp to) |//
//|2: General Configuration Settings |//
//|3: Script |//
//|-----------------------------------------------------------------------------|//

function script Party_Warp {

//|=====================================================================|//
//| Section 1 |//
//|=====================================================================|//
//| Guide: |//
//| Edit "map.gat" to any map you do not want players warping to. |//
//| Add new maps by adding to the list, remove by deleting. |//
//|=====================================================================|//

setarray $nowarpmaps$[0], "map.gat", "map2.gat", "map3.gat", "map4.gat", "map5.gat", "map6.gat", "map7.gat", "map8.gat", "map9.gat";

//|=====================================================================|//
//| Section 2 |//
//|=====================================================================|//
//| Guide: |//
//| Edit the numbers between , and ; based on the information given |//
//|=====================================================================|//

set @charge,0; //Change this to 1 to make the NPC charge for this function
set @price,1000; //Change this to whatever amount you want the price to be

//|=====================================================================|//
//| Section 3 |//
//|=====================================================================|//

getpartymember(getcharid(1));
set @partymembercount,$@partymembercount;
copyarray @partymembername$[0],$@partymembername$[0],@partymembercount;

mes "[^0000FFWarper^000000]";
mes "Warps using this feature cost ^FF0000"+@price+"^000000 zeny";
mes "Select the member to warp to.";
set @menu$,"";
for (set @i,0; @i < @partymembercount; set @i,@i+1) {
if (@i) set @menu$,@menu$+":";
set @menu$,@menu$+@partymembername$[@i];
}
next;
set @selection,select(@menu$)-1;
mes "[^0000FFWarper^000000]";
mes "Warp to "+@partymembername$[@selection]+"?";
if (select("Yes","No") == 2) close;
if (getmapxy(@mapname$,@mapx,@mapy,0,@partymembername$[@selection])!=0) goto L_Notfound;
for (set @i,0; @i < getarraysize($nowarpmaps$); set @i,@i+1) {
if (@mapname$ == $nowarpmaps$[@i]) goto mapfail;
}
if(@charge==1)
{
if(Zeny<@price) goto nozeny;
set Zeny, Zeny - @price;
warp @mapname$,@mapx,@mapy;
close;
} else {
warp @mapname$,@mapx,@mapy;
close;
}
L_Notfound:
next;
mes "[^0000FFWarper^000000]";
mes "That player isn't online";
close;
mapfail:
next;
mes "[^0000FFWarper^000000]";
mes "You cannot warp to that map using this function";
close;
nozeny:
next;
mes "[^0000FFParty Warper^000000]";
mes "You do not have enough zeny";
close;
}</div>


Ini Standalone Version
<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>mapname.gat,xx,yy,0 script Warper xxx,{

//|=====================================================================|//
//| Section 1 |//
//|=====================================================================|//
//| Guide: |//
//| Edit "map.gat" to any map you do not want players warping to. |//
//| Add new maps by adding to the list, remove by deleting. |//
//|=====================================================================|//

setarray $nowarpmaps$[0], "map.gat", "map2.gat", "map3.gat", "map4.gat", "map5.gat", "map6.gat", "map7.gat", "map8.gat", "map9.gat";

//|=====================================================================|//
//| Section 2 |//
//|=====================================================================|//
//| Guide: |//
//| Edit the numbers between , and ; based on the information given |//
//|=====================================================================|//

set @charge,0; //Change this to 1 to make the NPC charge for this function
set @price,1000; //Change this to whatever amount you want the price to be

//|=====================================================================|//
//| Section 3 |//
//|=====================================================================|//

getpartymember(getcharid(1));
set @partymembercount,$@partymembercount;
copyarray @partymembername$[0],$@partymembername$[0],@partymembercount;

mes "[^0000FFParty Warper^000000]";
mes "It costs ^FF0000"+@price+"^000000 zeny to use this warper.";
mes "Select the member to warp to.";
set @menu$,"";
for (set @i,0; @i < @partymembercount; set @i,@i+1) {
if (@i) set @menu$,@menu$+":";
set @menu$,@menu$+@partymembername$[@i];
}
next;
set @selection,select(@menu$)-1;
mes "[^0000FFParty Warper^000000]";
mes "Warp to "+@partymembername$[@selection]+"?";
if (select("Yes","No") == 2) close;
if (getmapxy(@mapname$,@mapx,@mapy,0,@partymembername$[@selection])!=0) goto L_Notfound;
for (set @i,0; @i < getarraysize($nowarpmaps$); set @i,@i+1) {
if (@mapname$ == $nowarpmaps$[@i]) goto mapfail;
}
if(@charge==1)
{
if(Zeny<@price) goto nozeny;
set Zeny, Zeny - @price;
warp @mapname$,@mapx,@mapy;
close;
} else {
warp @mapname$,@mapx,@mapy;
close;
}
L_Notfound:
next;
mes "[^0000FFParty Warper^000000]";
mes "That player isn't online";
close;
mapfail:
next;
mes "[^0000FFParty Warper^000000]";
mes "You cannot warp to that map using this function";
close;
nozeny:
next;
mes "[^0000FFParty Warper^000000]";
mes "You do not have enough zeny";
close;
}</div>
 

boyyss

TK B
Level 1
Script :: NPC AntiBot v.13++

<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>//===== eAthena Script ==========================================================================
//= Anti Bot
//===== Original By =============================================================================
//= Sangreal
//===== Current Version =========================================================================
//= 1.0
//===== Compatible With =========================================================================
//= eAthena SVN
//===== Description =============================================================================
//= When any GM (Lv. 20+) log in.
//================================================================================
===============

- script 99 -1,{
OnPcLoginEvent:
mes "[Polisi]";
mes "Maaf, mengganggu sebentar...";
if (getgmlevel() >=20) goto ex_admin;
next;
mes "[Polisi]";
mes "Tolong masukkan angka berikut, anda mempunyai kesempatan 3x";
next;
set @Number,rand(100,999);
mes "[Polisi]";
mes ""+@Number+"";
next;
input @Num;
if (@Num != @Number) goto ex_salah;
mes "[Polisi]";
mes "Baiklah, kamu benar memasukkan angkanya!";
mes "Silahkan bermain";
close;

ex_admin:
close;

ex_salah:
mes "[Polisi]";
mes "anda mempunyai 2x kesempatan";
mes "Kamu bisa dicurigai sebagai bot!";
set @Number,rand(100,999);
mes "[Polisi]";
mes ""+@Number+"";
next;
input @Num;
if (@Num != @Number) goto ex_salah1;
mes "[Polisi]";
mes "Baiklah, kamu benar memasukkan angkanya!";
mes "Silahkan bermain";
close;

ex_salah1:
mes "[Polisi]";
mes "anda mempunyai 1x lg kesempatan";
mes "Kamu bisa dicurigai sebagai bot!";
set @Number,rand(100,999);
mes "[Polisi]";
mes ""+@Number+"";
next;
input @Num;
if (@Num != @Number) goto ex_salah3;
mes "[Polisi]";
mes "Baiklah, kamu benar memasukkan angkanya!";
mes "Silahkan bermain";
close;

ex_salah3:
atcommand strcharinfo(0) + "@jail "+ strcharinfo(0) +"";
atcommand strcharinfo(0) + "@kamib Karakter dengan Nickname "+ strcharinfo(0) +" telah dipenjarakan, karna diduga menggunakan program illegal.";
mes "Silahkan menikmati penjara "+ strcharinfo(0) +"!!";
}</div>
 
Top