Jump to content

Hossam

Members
  • Posts

    92
  • Joined

  • Last visited

Posts posted by Hossam

  1. 	//===== eAthena Script =======================================
    //= Monster Spawn Event
    //===== By ===================================================
    //= WhiteEagle
    //===== Version ==============================================
    //= 1.0
    //============================================================
    -	script	MSE	-1,{
    
    	set .gm,99;	// GM Level
    
    OnWhisperGlobal:
    	if(getgmlevel() >= .gm) {
    	if (.mob_left) {
    	mes "^FF0000[Monsterspawn Event CP]^000000";
    	mes "The Monsterspawn Event is already in progress!";
    	mes "Would you stop it?";
    	switch(select("Yes:No")){
    case 1:
    	close2;
    	goto OnStop2;
    case 2:
    	close;
    	}
    }
    	mes "^FF0000[Monsterspawn Event CP]^000000";
    	mes "This is the Control Panel for the Monster Spawn Event.";
    	mes "How can I help you?";
    	next;
    	switch(select("Start:Stop:Cancel")){
    	
    case 1:
    	mes "^FF0000[Monsterspawn Event CP]^000000";
    	mes "The Monster Spawn Event will now start.";
    	close2;
    	goto OnStart;
    	
    case 2:
    
    case 3:
    	close;
    	}
    }
    	close;
    
    OnMinute30:
    OnStart:
    	donpcevent "MSE::OnTimer1800000";
    	set (.mobid,1115);	//Monster ID	
    	set (.mobname$,"MVP");	//Monster Name
    	set (.moba,1);	//Monster Anzahl
    	set .@rand,rand(1,3);
    	if (.@rand == 1) set .map$,"prontera";
    	if (.@rand == 2) set .map$,"geffen";
    	if (.@rand == 3) set .map$,"morocc";
    
    	sleep2 1000;
    	announce ("[Monsterspawn Event]: "+.moba+" "+.mobname$+" ظهر فى "+.map$+"",bc_all);
    	monster(.map$,0,0,.mobname$,.mobid,.moba,"MSE::OnMyMobDead");
    	set .mob_left,.moba;
    	sleep2 1798000;
    	donpcevent "MSE::OnTimer1800000";
    	end;
    
    OnTimer1800000:
    	killmonster .map$,"MSE::OnMyMobDead";
    	set .mob_left,0;
    	end;
    
    OnStop2:
    	killmonster .map$,"MSE::OnMyMobDead";
    	announce "تم انهاء الفاعلية من قبل الجى ام.",bc_all;
    	set .mob_left,0;
    	end;
    
    OnStop:
    	sleep2 2000;
    	announce "انتهت الفاعلية.",bc_all;
    	end;
    
    OnMyMobDead:
    	getitem 6379,10;
    	set .mob_left,.mob_left-1;
    	if (.mob_left == 0) {
                   announce "[Monsterspawn Event]: "+strcharinfo(0)+" قام بقتل وحش اخر "+.mobname$+".",bc_all;
                   donpcevent "MSE::OnStop";	
            } else {
                   announce "["+.mob_left+"/"+.moba+"] "+.mobname$+" تبقى.",bc_all;
            }
            end;
    }
    	
    	

    how i can make this script random mvp 
    now summon eddga how i can add random mvp ?

  2. On 3/1/2017 at 4:46 AM, Emistry said:

    check your mapflags (@mapinfo) or data/etcinfo.txt see if there are any weather effect added to prontera.

    remove it if any exist.

    can stop it from commands ?
    i dont fine data/etcinfo.txt
    my server from ragnahosting

  3. -	script	LMS#disable	-1,{
    
    OnInit:
    disablenpc "Mr. Banker";
    disablenpc "PvP Event";
    end;
    }
    
    -	script	LMS	-1,{
    
    OnClock1230:
    OnClock1430:
    OnClock1630:
    OnClock1830:
    OnClock2030:
    OnClock2230:
    OnClock0030:
    // Edit this to what ever you want. note : OnClock0000 is 12 midnight and OnClock1200 is 12 Noon
    goto startlmsevent;
    
    startlmsevent:
    announce "حدث البقاء للاقوي سيبدا بعد قليل.",0;
    sleep2 10000;
    announce "للتسجيل تقدم الي برونتيرا.",0;
    sleep2 10000;
    announce "ستغلق البوابة بعد دقيقة واحدة فقط.",0;
    sleep2 10000;
    announce "ظهر موظف الاشتراك هيا تقدم الي برونتيرا امام مغير الوظائف.",0;
    enablenpc "PvP Event";
    initnpctimer;
    end;
    
    OnTimer30000:
    announce "سينتهي التسجيل بعد 30 ثانية.",0;
    sleep2 5000;
    announce "اذا كنت تريد التسجيل تقدم الي برونتيرا.",0;
    end;
    
    OnTimer50000:
    announce "اخر 10 ثواني علي التسجيل.",0;
    end;
    
    OnTimer55000:
    announce "5",0;
    end;
    
    OnTimer56000:
    announce "4.",0;
    end;
    
    OnTimer57000:
    announce "3.",0;
    end;
    
    OnTimer58000:
    announce "2.",0;
    end;
    
    OnTimer59000:
    announce "1.",0;
    end;
    
    OnTimer60000:
    announce "انتهي التسجيل في المسابقة وسنبدا بعد قليل.",0;
    end;
    
    OnTimer61000:
    disablenpc "PvP Event";
    donpcevent "Mr. Banker::OnEnable";
    stopnpctimer;
    end;
    }
    //---------All Job Registration---------------
    prontera,108,70,6	script	PvP Event	751,{
    
    mes "[Mr. Manager]";
    warp "pvp_n_8-5",99,100;
    end;
    close;
    
    
    }
    
    //--------------------------
    
    //--------------------------
    pvp_n_8-5,99,100,6	script	Mr. Banker	708,{
    
    mes "[Banker]";
    next;
    announce "مبارك لك ايها البطل فقد فاز في البقاء للاقوي "+strcharinfo(0)+".",0;
    getitem 6379,25; // Change This item id to what ever you want . item id,amount
    dispbottom "25 عملة";
    warp "prontera",155,182;
    disablenpc "Mr. Banker";
    close;
    end;
    OnEnable:
    pvpoff "pvp_n_8-5";
    mapannounce "pvp_n_8-5","سيبدا حدث البقاء للاقوي بعد قليل",0;
    sleep2 10000;
    mapannounce "pvp_n_8-5","لكن قبل ان نبدا هناك بعض القواعد.",0;
    sleep2 10000;
    mapannounce "pvp_n_8-5","استخدام مهارة الاختفاء او التظاهر بالموت ممنوع..",0;
    sleep2 10000;
    mapannounce "pvp_n_8-5","اخر بطل علي قيد الحياة هو الفائز!!",0;
    sleep2 10000;
    mapannounce "pvp_n_8-5","ماذا ننتظر سابدا العد التنازلي الان!!...",0;
    sleep2 10000;
    goto L_Start;
    end;
    L_Start:
    if(getmapusers("pvp_n_8-5") == 1) goto L_Champ;
    if(getmapusers("pvp_n_8-5") == 0) goto L_None;
    if(getmapusers("pvp_n_8-5") > 1) {
    mapannounce "pvp_n_8-5","سنبدا بعد 5 ثواني....",0;
    sleep2 10000;
    mapannounce "pvp_n_8-5","5",0;
    sleep2 5000;
    mapannounce "pvp_n_8-5","4",0;
    sleep2 4000;
    mapannounce "pvp_n_8-5","3",0;
    sleep2 3000;
    mapannounce "pvp_n_8-5","2",0;
    sleep2 2000;
    mapannounce "pvp_n_8-5","1",0;
    sleep2 1000;
    pvpon "pvp_n_8-5";
    goto timer;
    end;
    }
    timer:
    initnpctimer;
    end;
    
    OnTimer1000:
    end;
    
    OnTimer1100:
    if(getmapusers("pvp_n_8-5") == 1) goto L_Champ;
    if(getmapusers("pvp_n_8-5") > 2) goto timer;
    if(getmapusers("pvp_n_8-5") == 2) goto champ;
    stopnpctimer;
    end;
    
    champ:
    announce "اخر محاربين علي قيد الحياة!",0;
    sleep2 10000;
    if(getmapusers("pvp_n_8-5") == 1) goto L_Champ;
    if(getmapusers("pvp_n_8-5") > 1) goto timer;
    end;
    
    L_Champ:
    mapannounce "pvp_n_8-5","تعال الي كي تاخذ جائزتك..",0;
    pvpoff "pvp_n_8-5";
    enablenpc "Mr. Banker";
    end;
    
    L_None:
    disablenpc "Banker";
    pvpoff "pvp_n_8-5";
    end;
    }
    //----- Die = warp prt -----
    -	script	Killa_warp	-1,{
    
    OnPCDieEvent:
    	getmapxy(.@map$,.@x,.@y,0);
    	if(.@map$=="pvp_n_8-5")
    	{
    		set #kill_point, 0;
    		announce ""+strcharinfo(0)+" مات وخرج من اللعبة حظ اوفر في مرة اخرا!.",bc_all;
    		warp "prontera",0,0;
    		end;
    	}
    OnPCKillEvent:
    	getmapxy(.@map$,.@x,.@y,0);
    	if(.@map$=="pvp_n_8-5")
    	{
    	set #kill_point,#kill_point+1;
    	if ( #kill_point % 4 == 0) {
    	announce ""+strcharinfo(0)+" قتل اكثر من 4 لاعبين سياخد جائزة اضافية",bc_all;
    	getitem 6379,2;
    	end;
    	}
    	}
    }
    
    
    // == Mapflags
    pvp_n_8-5	mapflag	nowarp
    pvp_n_8-5	mapflag	nowarpto
    pvp_n_8-5	mapflag	noteleport
    pvp_n_8-5	mapflag	nosave
    pvp_n_8-5	mapflag	nomemo
    pvp_n_8-5	mapflag	nobranch
    pvp_n_8-5	mapflag	pvp_noparty
    pvp_n_8-5	mapflag	restricted	1

    this event some skill not work .. Hiding - Snap - Cloaking
    how i can Enable all skills

  4. On 3/1/2017 at 2:07 AM, Arok said:

    db/pre-re/item_trade.txt

    or

    db/re/item_trade.txt

     

     

    Find the item's id, and put it // in front of the line

     

    14508,73,100    // Zeny Pet Egg Scroll
    14521,475,100    // Repair Weapon Scroll
    14527,475,100    // Dungeon Teleport Scroll

    //14533,475,100    // Field Manual 100%
    14534,475,100    // Small Life Potion
    14535,475,100    // Medium Life Potion

    and use @reloaditemdb

     

     

     

     

    thanks <3

  5. //===== rAthena Script =======================================
    //= Upgrade Weapon Enchants
    //===== By: ==================================================
    //= Skorm
    //===== Current Version: =====================================
    //= 1.1
    //===== Compatible With: =====================================
    //= rAthena Project
    //===== Description: =========================================
    //= [Official Conversion]
    //= Adds enchantments to Upgrade weapons.
    //===== Additional Comments: =================================
    //= 1.0 First version.
    //= 1.1 Standardizing, grammar and bug fixes. [Euphy]
    //============================================================
    
    // Main NPC :: 201105_luk_enc
    //============================================================
    sec_pri,19,51,3	script	Devil Enchant Master#prq	63,{
    	disable_items;
    	if (checkweight(1201,1) == 0) {
    		mes "You are carrying too many items, please reduce it and come back again!";
    		close;
    	}
    	if (MaxWeight - Weight < 10000) {
    		mes "You are over the weight limit, please reduce it and come back again!";
    		close;
    	}
    	mes "[Devil Enchant Master]";
    	mes "Yes?";
    	mes "You are looking for me?";
    	next;
    	switch(select("This is the first time seeing you!:I heard that you are the best!:Please initialize the enchant.")) {
    	case 1:
    		mes "[Devil Enchant Master]";
    		mes "Ha ha ha~ Of course, I am not the kind of person that simply deals with people.";
    		next;
    		mes "[Devil Enchant Master]";
    		mes "Including you! Even if you offer me plenty of money, I will not simply enchant for you!!";
    		next;
    		mes "[Devil Enchant Master]";
    		mes "Have you seen my title? Very few people have this title for a reason!";
    		next;
    		mes "[Devil Enchant Master]";
    		mes "I will only enchant if you bring an ^0000ffEnchant Book^000000 along!";
    		next;
    		mes "[Devil Enchant Master]";
    		mes "Else, I will not enchant for you....";
    		close;
    	case 2:
    		if (!countitem(6484)) {
    			mes "[Devil Enchant Master]";
    			mes "Are you listening to me? I will only do for you if you bring the Enchant Book!";
    			close;
    		}
    		set .@select,1;
    		break;
    	case 3:
    		mes "[Devil Enchant Master]";
    		if (Zeny < 100000) {
    			mes "Initializing will cost 100,000 zeny. It seems you do not have enough zeny...";
    			close;
    		}
    		mes "Initializing will cost 100,000 zeny and confirming whether the weapon is enchanted!";
    		next;
    		if (select("Let me think about it.:Initialize it now!") == 1) {
    			mes "[Devil Enchant Master]";
    			mes "Come back after you have confirmed!";
    			close;
    		}
    		set .@select,2;
    		break;
    	}
    	set .@part, EQI_HAT_L;
    	set .@part, EQI_HAND_R;
    	set .@part, EQI_HAND_L;
    
    
    
    	mes "[Devil Enchant Master]";
    	if (!getequipisequiped(.@part)) {
    		mes "Are you trying to remove the enchanted equipment?";
    		close;
    	}
    	setarray .@equip_card[0], getequipcardid(.@part,0), getequipcardid(.@part,1), getequipcardid(.@part,2), getequipcardid(.@part,3);
    	if (!getequipisequiped(.@part)) {
    		mes "It is dangerous to remove equipment during enchant process!";
    		close;
    	}
    	set .@equip_id, getequipid(.@part);
    	set .@item$, "|1292|1394|1422|1491|1585|2015|2138|2576|5325|5377|13071|13115|16019|18112|20727|21000|";
    	if (!compare(.@item$,"|"+.@equip_id+"|")) {
    		mes "I don't want to touch your equipment now!";
    		close;
    	}
    
    	if (.@select == 1) {
    		if (!countitem(6484)) {
    			mes "Are you listening to me? I will only do for you if you bring the Enchant Book!";
    			close;
    		}
    		mes "Which type of effect do you want to enchant?";
    		next;
    		switch(select("Let me think about it.:Physical Series:Magical Series")) {
    		case 1:
    			mes "[Devil Enchant Master]";
    			mes "Come back again after you change your mind!";
    			close;
    		case 2:
    			set .@enc_type,1;
    			break;
    		case 3:
    			set .@enc_type,2;
    			break;
    		}
    		mes "[Devil Enchant Master]";
    		if (.@equip_card[3]) {
    			mes "This equipment has been enchanted! You need to initialize first before you want to enchant it again.";
    			close;
    		}
    		mes "The enchant process might fail, and ^ff0000it will reduce partial refine level^000000, but the slotted card and weapon will not be broken! Are you sure you want to continue?";
    		next;
    		if (select("Next time!:Start now!") == 1) {
    			mes "[Devil Enchant Master]";
    			mes "Come back again after you have decided!";
    			close;
    		}
    		if (.@equip_card[3]) {
    			mes "[Devil Enchant Master]";
    			mes "It seems there's a problem, let me take a look.";
    			close;
    		}
    
    		if (.@enc_type == 1) { // Physical Series
    			set .@i, rand(1,1300);
    			     if (.@i < 51)    set .@enchant,4734; //Agility5
    			else if (.@i < 76)    set .@enchant,4735; //Agility6
    			else if (.@i < 88)    set .@enchant,4736; //Agility7
    			else if (.@i < 93)    set .@enchant,4737; //Agility8
    			else if (.@i < 95)    set .@enchant,4738; //Agility9
    			else if (.@i < 96)    set .@enchant,4739; //Agility10
    			else if (.@i < 146)   set .@enchant,4724; //Dexterity5
    			else if (.@i < 171)   set .@enchant,4725; //Dexterity6
    			else if (.@i < 183)   set .@enchant,4726; //Dexterity7
    			else if (.@i < 188)   set .@enchant,4727; //Dexterity8
    			else if (.@i < 190)   set .@enchant,4728; //Dexterity9
    			else if (.@i < 191)   set .@enchant,4729; //Dexterity10
    			else if (.@i < 291)   set .@enchant,4704; //Strength5
    			else if (.@i < 341)   set .@enchant,4705; //Strength6
    			else if (.@i < 366)   set .@enchant,4706; //Strength7
    			else if (.@i < 378)   set .@enchant,4707; //Strength8
    			else if (.@i < 383)   set .@enchant,4708; //Strength9
    			else if (.@i < 384)   set .@enchant,4709; //Strength10
    			else if (.@i < 434)   set .@enchant,4754; //Luck5
    			else if (.@i < 459)   set .@enchant,4755; //Luck6
    			else if (.@i < 471)   set .@enchant,4756; //Luck7
    			else if (.@i < 476)   set .@enchant,4757; //Luck8
    			else if (.@i < 478)   set .@enchant,4758; //Luck9
    			else if (.@i < 479)   set .@enchant,4759; //Luck10
    			else if (.@i < 679)   set .@enchant,4744; //Vitality5
    			else if (.@i < 779)   set .@enchant,4745; //Vitality6
    			else if (.@i < 829)   set .@enchant,4746; //Vitality7
    			else if (.@i < 854)   set .@enchant,4747; //Vitality8
    			else if (.@i < 866)   set .@enchant,4748; //Vitality9
    			else if (.@i < 867)   set .@enchant,4749; //Vitality10
    			else if (.@i < 967)   set .@enchant,4808; //Fighting_Spirit4
    			else if (.@i < 992)   set .@enchant,4820; //Fighting_Spirit5
    			else if (.@i < 1092)  set .@enchant,4835; //Expert_Archer4
    			else if (.@i < 1117)  set .@enchant,4836; //Expert_Archer5
    			else if (.@i < 1217)  set .@enchant,4835; //Expert_Archer4
    			else if (.@i < 1242)  set .@enchant,4836; //Expert_Archer5
    			else set .@enchant,0;
    		} else if (.@enc_type == 2) { // Magical Series
    			set .@i, rand(1,1200);
    			     if (.@i < 51)    set .@enchant,4714; //Inteligence5
    			else if (.@i < 76)    set .@enchant,4715; //Inteligence6
    			else if (.@i < 88)    set .@enchant,4716; //Inteligence7
    			else if (.@i < 93)    set .@enchant,4717; //Inteligence8
    			else if (.@i < 95)    set .@enchant,4718; //Inteligence9
    			else if (.@i < 96)    set .@enchant,4719; //Inteligence10
    			else if (.@i < 146)   set .@enchant,4724; //Dexterity5
    			else if (.@i < 171)   set .@enchant,4725; //Dexterity6
    			else if (.@i < 183)   set .@enchant,4726; //Dexterity7
    			else if (.@i < 188)   set .@enchant,4727; //Dexterity8
    			else if (.@i < 190)   set .@enchant,4728; //Dexterity9
    			else if (.@i < 191)   set .@enchant,4729; //Dexterity10
    			else if (.@i < 291)   set .@enchant,4734; //Agility5
    			else if (.@i < 341)   set .@enchant,4735; //Agility6
    			else if (.@i < 366)   set .@enchant,4736; //Agility7
    			else if (.@i < 378)   set .@enchant,4737; //Agility8
    			else if (.@i < 383)   set .@enchant,4738; //Agility9
    			else if (.@i < 384)   set .@enchant,4739; //Agility10
    			else if (.@i < 484)   set .@enchant,4754; //Luck5
    			else if (.@i < 534)   set .@enchant,4755; //Luck6
    			else if (.@i < 559)   set .@enchant,4756; //Luck7
    			else if (.@i < 571)   set .@enchant,4757; //Luck8
    			else if (.@i < 576)   set .@enchant,4758; //Luck9
    			else if (.@i < 577)   set .@enchant,4759; //Luck10
    			else if (.@i < 777)   set .@enchant,4744; //Vitality5
    			else if (.@i < 877)   set .@enchant,4745; //Vitality6
    			else if (.@i < 927)   set .@enchant,4746; //Vitality7
    			else if (.@i < 952)   set .@enchant,4747; //Vitality8
    			else if (.@i < 964)   set .@enchant,4748; //Vitality9
    			else if (.@i < 969)   set .@enchant,4749; //Vitality10
    			else if (.@i < 1069)  set .@enchant,4812; //Spell4
    			else if (.@i < 1094)  set .@enchant,4826; //Spell5
    			else if (.@i < 1119)  set .@enchant,4761; //Matk2
    			else if (.@i < 1124)  set .@enchant,4806; //Matk3
    			else set .@enchant,0;
    		} else {
    			mes "[Devil Enchant Master]";
    			mes "Hmm! This item is having a problem, please check it again!";
    			close;
    		}
    		mes "[Devil Enchant Master]";
    		if (.@equip_card[3]) {
    			mes "This item has been enchanted!";
    			close;
    		}
    		if (!countitem(6484)) {
    			mes "Are you listening to me? I will only do for you if you bring the Enchant Book!";
    			close;
    		}
    		set .@equip_refine, getequiprefinerycnt(.@part);
    		if (.@enchant == 0) {
    			specialeffect EF_SHIELDCHARGE;
    			mes "Oh! Unbelievable!! It failed!! Please come again!";
    			set .@lost_refine, rand(0,.@equip_refine);
    			set .@equip_refine, .@equip_refine - .@lost_refine;
    		} else {
    			specialeffect EF_REPAIRWEAPON;
    			mes "The slot ^9900004^000000 has been enchanted!";
    		}
    		delitem 6484,1; //Enchant_Book
    
    		// anti-hack
    		if (callfunc("F_IsEquipIDHack", .@part, .@equip_id) ||
    		    callfunc("F_IsEquipCardHack", .@part, .@equip_card[0], .@equip_card[1], .@equip_card[2], .@equip_card[3]))
    			close;
    
    		delequip .@part;
    
    //		GetNonSlotItemSock2 .@equip_refine .@equip_id .@equip_card[0] .@equip_card[1] .@equip_card[2] .@enchant
    		getitem2 .@equip_id,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@enchant;
    
    		if (.@lost_refine) {
    			next;
    			mes "[Devil Enchant Master]";
    			mes "The failure has reduced the refine by "+callfunc("F_InsertPlural",.@lost_refine,"level")+"! Don't be depressed!";
    		}
    		close;
    	} else if (.@select == 2) {
    		if (Zeny < 100000) {
    			mes "You need to bring some money to initialize!!";
    			close;
    		}
    		if (.@equip_card[3] < 4700) { // Armor Enchant System
    			mes "This item is not enchanted!";
    			close;
    		}
    		if (!getequipisequiped(.@part)) {
    			mes "Are you unequipping now?";
    			close;
    		}
    		specialeffect EF_REPAIRWEAPON;
    		mes "I initialized the enchant effects.";
    		set Zeny, Zeny - 100000;
    
    		// anti-hack
    		if (callfunc("F_IsEquipIDHack", .@part, .@equip_id) ||
    		    callfunc("F_IsEquipCardHack", .@part, .@equip_card[0], .@equip_card[1], .@equip_card[2], .@equip_card[3]))
    			close;
    
    		set .@equip_refine, getequiprefinerycnt(.@part);
    		delequip .@part;
    
    //		GetNonSlotItemSock2 .@equip_refine .@equip_id .@equip_card[0] .@equip_card[1] .@equip_card[2] 0
    		getitem2 .@equip_id,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],0;
    
    		close;
    	} else {
    		mes "It seems you have chosen the wrong job??";
    		close;
    	}
    }


    how i can make the npc enchant custom item and hat

    i can only enchant right hand and left hand

  6. hey guys now in my server can get all exp when i used  Miracle Tonic    Item ID# 12259 get only 1 lvl and 90% exp 
    how i can turn off max lvl limit
    to get all exp maybe get lvl 60 or 70 lvl 
    lvl 1 to 70 ?
    and how i can dubble it ?

  7. up 
    need script send reward to all players online

    On 2/8/2017 at 5:25 AM, Cyro said:

    You must not use FTP like file Zilla .. u must use wincp which is sftp 

     

     

    The script I gave you working fyn!

    The error says I must give prize to all or only the map??

     

    all map but how can work ? 
    or command for send to all player ?

×
×
  • Create New...