Jump to content

blurryrox

Members
  • Posts

    26
  • Joined

  • Last visited

Posts posted by blurryrox

  1. //===== rAthena Script =======================================
    //= Healer
    //===== By: ==================================================
    //= Euphy
    //===== Current Version: =====================================
    //= 1.1
    //===== Compatible With: =====================================
    //= rAthena Project
    //===== Description: =========================================
    //= Basic healer script.
    //===== Additional Comments: =================================
    //= 1.0 Initial script.
    //= 1.1 Aligned coordinates with @go.
    //============================================================
    
    -	script	Healer	-1,{
    
    	.@Price = 0;	// Zeny required for heal
    	.@Buffs = 0;	// Also buff players? (1: yes / 0: no)
    	.@Delay = 5;	// Heal delay, in seconds
    
    	if (@HD > gettimetick(2))
    		end;
    	if (.@Price) {
    		message strcharinfo(0), "Healing costs " + callfunc("F_InsertComma",.@Price) + " Zeny.";
    		if (Zeny < .@Price)
    			end;
    		if (select("^0055FFHeal^000000:^777777Cancel^000000") == 2)
    			end;
    		Zeny -= .@Price;
    	}
    	specialeffect2 EF_HEAL2;
    	percentheal 100,100;
    	repairall;
    	if (.@Buffs) {
    		specialeffect2 EF_INCAGILITY;
    		sc_start SC_INCREASEAGI,240000,10;
    		specialeffect2 EF_BLESSING;
    		sc_start SC_BLESSING,240000,10;
    	}
    	if (.@Delay)
    		@HD = gettimetick(2) + .@Delay;
    	end;
    }
    
    
    // Duplicates
    //============================================================
    alberta,25,240,6	duplicate(Healer)	Healer#alb	909
    aldebaran,135,118,6	duplicate(Healer)	Healer#alde	909
    amatsu,200,79,4	duplicate(Healer)	Healer#ama	909
    ayothaya,207,169,6	duplicate(Healer)	Healer#ayo	909
    comodo,184,158,6	duplicate(Healer)	Healer#com	909
    einbech,57,36,6	duplicate(Healer)	Healer#einbe	909
    einbroch,57,202,6	duplicate(Healer)	Healer#einbr	909
    geffen,115,72,6	duplicate(Healer)	Healer#gef	909
    gonryun,156,122,6	duplicate(Healer)	Healer#gon	909
    hugel,89,150,6	duplicate(Healer)	Healer#hug	909
    izlude,121,150,6	duplicate(Healer)	Healer#izl	909	//Pre-RE: (125,118)
    jawaii,250,139,4	duplicate(Healer)	Healer#jaw	909
    lighthalzen,152,100,6	duplicate(Healer)	Healer#lhz	909
    louyang,226,103,4	duplicate(Healer)	Healer#lou	909
    manuk,272,144,6	duplicate(Healer)	Healer#man	909
    mid_camp,203,289,6	duplicate(Healer)	Healer#mid	909
    moc_ruins,72,164,4	duplicate(Healer)	Healer#moc	909
    morocc,153,97,6	duplicate(Healer)	Healer#mor	909
    moscovia,220,191,4	duplicate(Healer)	Healer#mos	909
    niflheim,212,182,5	duplicate(Healer)	Healer#nif	909
    payon,179,106,4	duplicate(Healer)	Healer#pay	909
    prontera,152,183,5	duplicate(Healer)	Healer#prt	909
    rachel,125,116,6	duplicate(Healer)	Healer#rac	909
    splendide,201,153,4	duplicate(Healer)	Healer#spl	909
    thor_camp,249,74,4	duplicate(Healer)	Healer#thor	909
    umbala,105,148,3	duplicate(Healer)	Healer#umb	909
    veins,217,121,4	duplicate(Healer)	Healer#ve	909

     

    well this way it will repair all, i am not sure with auto identifying all unidentified item tho.

    • Upvote 1
  2. 10 hours ago, J u d a s said:

    I think this won't work. You can't put an item command to a script. But I believe It's possible. Just not that way tho

    Yes you can. Exhibit A :

    9111,Awakening_Box,Awakening Box,2,0,,100,,,,,0xFFFFFFFF,7,2,,,,,,{ .@ebrand = rand(1,10); if (.@ebrand <= 1) {getitem 9110,2;} if (.@ebrand > 1) {getitem 9110,1;} },{},{}

    this work like IG, except that i don't have to set it in itemgroup. Just script.

    If it doesn't work you can try set it as a function.

    Or maybe it could work like this.

    -	script	#mapchecker	-1,{
    
    OnPCStatCalcEvent:
    	getmapxy( .@map$,.@x,.@y,0 );
    	if ( .@map$ == "prontera" ) return mapcheck = 1;
    	else if ( .@map$ == "morocc" ) return mapcheck = 2;
    	return mapcheck = 0;
    	end;
    	
    }
    
    //item_db
    
    1101,Sword,Sword,5,100,,500,25,,1,3,0x000654E3,7,2,2,1,2,1,2,{ if(mapcheck == 1){bonus bStr,30;} if(mapcheck == 2){bonust bAgi,30;} },{},{}

     

  3. //===== rAthena Script ======================================= 
    //= Untitle Script
    //===== By: ================================================== 
    //= Zealock!
    //===== Current Version: ===================================== 
    //= 1.0
    //===== Compatible With: ===================================== 
    //= rAthena , eAthena
    //===== Description: ========================================= 
    //= PVP Warper
    //============================================================
    
    -    script    PVP Warper::PVP Warper    -1,{
    
    
        mes "[ PVP Warper ]";
        mes "Would You Like to Enter the Room?";
        next;
        menu "Yes, I'm Hunger for Blood",PatayanNa,"No, Too Lazy to Kill",No;
    
        PatayanNa:
        mes "[ PvP Warper ]";
        mes "You Made the Right Choice!";
        next;
        mes "Let's Go!";
        warp "pvp_n_2-5",0,0;
        close;
    
    
        No:
        mes "[ PvP Warper ]";
        mes "Are you Scared?";
        next;
        mes "Come Back Again, if you already have the Guts!";
        close;
    
    //WAITING ROOM updates every 2.5 second
    OnInit:
            while(1) {
        delwaitingroom;
        waitingroom "PvP Warper ["+getmapusers("pvp_n_2-5")+"]",0;
        sleep 2500; //2.5 seconds
        }
        end;
    }
    
    turbo_room,111,121,4    duplicate(PVP Warper)    PvP Warper#turb    811
    prontera,163,188,5    duplicate(PVP Warper)    PvP Warper#prt    811
    
    // Mapflags
    pvp_n_2-5    mapflag    nowarp
    pvp_n_2-5    mapflag    nowarpto
    pvp_n_2-5    mapflag    pvp    on
    pvp_n_2-5    mapflag    noteleport
    pvp_n_2-5    mapflag    nosave    SavePoint
    pvp_n_2-5    mapflag    nobranch
    pvp_n_2-5    mapflag    noicewall
    pvp_n_2-5    mapflag    noreturn
    pvp_n_2-5    mapflag    nopenalty
    pvp_n_2-5    mapflag    loadevent
    pvp_n_2-5    mapflag    nomemo

    Try this.

    • Upvote 1
  4. mosk_dun01,0,0,0	script	#ins50ctrl	EF_NONE,{
    	end;
    	
    OnInstanceInit:
    	set .@map$, instance_mapname("mosk_dun01");
    	set .@label$, instance_npcname("#ins50ctrl")+"::OnMyMobDead";
    	monster .@map$,202,69,"Awoken Mystcase",2400,1,.@label$; //0,0 2400 - 1249
    	monster .@map$,202,69,"Awoken Cruiser",2401,1,.@label$; //0,0 2401 - 1248
    	monster .@map$,202,70,"Mini Boss ",1004,1,.@label$; //250,181
    	monster .@map$,202,71,"Boss ",1010,1,.@label$; //213,257
    	initnpctimer;
    	end;
    
    
    OnTimer1000:
    	sleep 5000;
    	instance_announce 0,"Finish the instance within 60 minutes!",bc_map|bc_blue;
    	sleep 3000;
    	bonus2 bExpAddRace,RC_All,100;
    	bonus2 bDropAddRace,RC_All,100;
    	instance_announce 0,"Defeat all the monster to finish this instance!",bc_map|bc_blue;
    	stopnpctimer;
    	end;

    Hi. Is setting up bonus exp on a specific instance map possible?

    I got an error no attached player in putty. (screenshot)

    notattachd.png

  5. 56 minutes ago, Nitrous said:

    Theoretically, you can just increase MAX_QUEST_OBJECTIVES in mmo.h. I don't know if any other errors will pop up though.

     

    The problem is you would have to go through the 3000+ lines in quest_db to add the new columns.

    ah. That is not a problem, I just want to use quest_db only for my custom quest only. The rest is not needed XD

    thanks. i will try it.

  6. Hi guys.

    I have tried to find this using search but i could not find anything.

    I am trying to get my kafra to get the location of a player before tele-*porting to a place where i put my custom npc in.

    and when they exit the building using the warp portal, they will go back to the location before they teleport using the kafra.

    kafra_functions.txt

    // Teleport Function ==================================================
    function	script	F_KafTele	{
    	getmapxy(@mapname$,@mapx,@mapy,UNITTYPE_PC);
    	mes "[Kafra Employee]";
    	mes "Please choose";
    	mes "your destination.";
    	next;
    
    	menu 	@wrpC$[0],M_Wrp0, @wrpC$[1],M_Wrp1, @wrpC$[2],M_Wrp2, @wrpC$[3],M_Wrp3, 
    		@wrpC$[4],M_Wrp4, @wrpC$[5],M_Wrp5, @wrpC$[6],M_Wrp6;
    
    	M_Wrp0:
    		set @num, 0;
    		goto L_Warp;
    	M_Wrp1:
    		set @num, 1;
    		goto L_Warp;
    	M_Wrp2:
    		set @num, 2;
    		goto L_Warp;
    	M_Wrp3:
    		set @num, 3;
    		goto L_Warp;
    	M_Wrp4:
    		set @num, 4;
    		goto L_Warp;
    	M_Wrp5:
    		set @num, 5;
    		goto L_Warp;
    	M_Wrp6:
    		set @num, 6;
    
    	L_Warp:
    		if (@wrpC$[@num] == "Cancel") return;
    		// Consume "Free Ticket for Kafra Transportation" if available.
    		// Do not consume if in Guild castle
    		if(countitem(7060) > 0 && getarg(0) != 2) delitem 7060,1;
    		else {
    			if (Zeny<@wrpP[@num]){
    				mes "[Kafra Employee]";
    				mes "I'm sorry, but you don't have";
    				mes "enough zeny for the Teleport";
    				mes "Service. The fee to teleport";
    				mes "to "+@wrpD$[@num]+" is "+@wrpP[@num]+" zeny.";
    				close2;
    				cutin "", 255;
    				end;
    			}
    			set Zeny, Zeny-@wrpP[@num];
    			set RESRVPTS, RESRVPTS + (@wrpP[@num]/16);
    		}
    		
    		if (@wrpD$[@num] == "Alberta") warp "alberta", 117, 56;
    		if (@wrpD$[@num] == "Al De Baran") warp "aldebaran",168,112;
    		if (@wrpD$[@num] == "Aldebaran") warp "aldebaran",168,112;
    		if (@wrpD$[@num] == "Comodo") warp "comodo", 209, 143;
    		if (@wrpD$[@num] == "Izlude") warp "izlude", 91, 136;
    		if (@wrpD$[@num] == "Geffen") warp "geffen", 120, 39;
    		if (@wrpD$[@num] == "Morroc") warp "morocc", 156, 46;
    		if (@wrpD$[@num] == "Payon") warp "payon", 161, 58;
    		if (@wrpD$[@num] == "Prontera") warp "prontera", 116, 72;
    		if (@wrpD$[@num] == "Mjolnir Dead Pit") warp "mjolnir_02", 99, 351;
    		if (@wrpD$[@num] == "Comodo Pharos Beacon") warp "cmd_fild07", 127, 134;
    		if (@wrpD$[@num] == "Orc Dungeon") warp "gef_fild10", 52, 326;
    		if (@wrpD$[@num] == "Umbala") warp "umbala", 100, 154;
    		if (@wrpD$[@num] == "Juno") warp "yuno", 158, 125;
    		if (@wrpD$[@num] == "^FFA500Office^000000") warp "prt_in", 50, 105;
    		cutin "", 255;
    		end;
    
    prt_in,53,105,0    script    #officewarpout    45,1,1,{
    	if (getmapxy(@mapname$,@mapx,@mapy,UNITTYPE_PC)!=0) goto WarpTwo;
    		warp "+@mapname$+","+@mapx+","+@mapy+"; end;
    	Warptwo:
    		warp "prontera",136,186; end;
    	}
    
    
    }

    Something like this, i am not sure wether the coding is correct or not, just putting this so you guys get the idea.

×
×
  • Create New...