Jump to content

Snaehild

Members
  • Posts

    72
  • Joined

  • Last visited

Posts posted by Snaehild

  1. Hi,

    Haven't been in rAthena for quite a long while and I am just setting up my new server but can't figure out the problem I am having right now.

    Quote
    
    char_athena.conf
    login_ip: 127.0.0.1
    char_ip: WAN IP
    
    map_athena.conf
    char_ip: 127.0.0.1
    map_ip: WAN IP
    [Status]: Received '4' clans from char-server.
    [Status]: Request for connection of abakada (ip: 99.XX.XX.152)
    [Notice]: Authentication accepted (account: abakada, id: 2000000, ip: 99.XX.XX.152)
    [SQL]: DB error - Table 'nomads.loginlog' doesn't exist
    [Debug]: at loginlog.cpp:86 - INSERT INTO `loginlog`(`time`,`ip`,`user`,`rcode`,`log`) VALUES (NOW(), '99.XX.XX.152', 'abakada', '100', 'login ok')
    [Status]: Connection of the account 'abakada' accepted.
    [Info]: Closed connection from '99.XX.XX.152'.
    [Info]: request connect - account_id:2000000/login_id1:379596794/login_id2:1659367335
    [Status]: Char-server 'Nomad': authentication of the account 2000000 REFUSED (ip: 18.XX.XX.8).

     

    image.png.452bc9b15bcac4b1168a02daa190de0d.png

  2. Hi,

     

    Can anyone help me modify Euphy's Card Trader script to add more card categories like Category 1,2 3 & 4 instead of just having normal and MvP cards?

    //===== rAthena Script =======================================
    //= Card Trader
    //===== By: ==================================================
    //= Euphy
    //===== Current Version: =====================================
    //= 1.1 
    //===== Compatible With: =====================================
    //= rAthena SVN
    //===== Description: =========================================
    //= Exchange cards for points.
    //============================================================
     
    prontera,165,196,6	script	Card Trader	90,{
    	mes "[Card Trader]";
    	mes "Hi, "+strcharinfo(0)+"!";
    	mes "What can I do for you?";
    	next;
    	switch(select(" > Information: > Trade in cards: > Point shop (^0055FF"+getd(.Points$)+"^000000): > Leave")) {
    	case 1:
    		mes "[Card Trader]";
    		mes "Do you find that you've got";
    		mes "useless cards lying around?";
    		mes "I'll be glad to take them off";
    		mes "your hands!";
    		next;
    		mes "[Card Trader]";
    		mes "I'll give you ^0055FF"+.Points[0]+" Point"+((.Points[0] == 1)?"":"s")+"^000000 for each";
    		mes "card you give me, and";
    		mes "^0055FF"+.Points[1]+" Points^000000 for MVP cards.";
    		mes "You can trade those points";
    		mes "for items later on.";
    		mes "How does that sound?";
    		emotion e_cash;
    		close;
    	case 2:
    		mes "[Card Trader]";
    		mes "Select the cards you";
    		mes "want to trade in.";
    		if (.Level) {
    			mes " ";
    			mes "They must be dropped";
    			mes "by monsters of level";
    			mes .Level+" and above.";
    		}
    		deletearray @sold_nameid[0],getarraysize(@sold_nameid);
    		callshop "card_shop",2;
    		npcshopattach "card_shop";
    		end;
    	case 3:
    		mes "[Card Trader]";
    		mes "You have ^0055FF"+getd(.Points$)+"^000000 Point"+((getd(.Points$) == 1)?".":"s.");
    		callshop "card_shop",1;
    		npcshopattach "card_shop";
    		end;
    	case 4:
    		mes "[Card Trader]";
    		mes "*yawn*";
    		mes "See you later!";
    		emotion e_yawn;
    		close;		
    	}
     
    OnSellItem:
    	mes "Cards to sell:";
    	mes "-----------------------------------";
    	for(set .@i,0; .@i < getarraysize(@sold_nameid); set .@i,.@i+1)
    		if (@sold_nameid[.@i] > 4000 && @sold_nameid[.@i] < 4700) {
    			if (.Level) {
    				query_sql("SELECT `LV` FROM `mob_db` WHERE `DropCardid` = "+@sold_nameid[.@i],.@lv);
    				if (.@lv < .Level) {
    					dispbottom getitemname(@sold_nameid[.@i])+" is under the minimum level.";
    					continue;
    				}
    			}
    			set .@card_id[getarraysize(.@card_id)], @sold_nameid[.@i];
    			set .@card_amt[getarraysize(.@card_amt)], @sold_quantity[.@i];
    			set .@mvp, compare(.MVP$,""+@sold_nameid[.@i]);
    			mes ((.@mvp)?"  ^FF0000":"  ^777777")+@sold_quantity[.@i]+"x "+getitemname(@sold_nameid[.@i])+"^000000";
    			set .@card_total, .@card_total+(@sold_quantity[.@i]*((.@mvp)?.Points[1]:.Points[0]));
    		}
    	deletearray @sold_nameid[0], getarraysize(@sold_nameid);
    	deletearray @sold_quantity[0], getarraysize(@sold_quantity);
    	if (!.@card_id) {
    		mes "  ^777777(none)^000000";
    		emotion e_swt;
    		close;
    	}
    	mes " ";
    	mes "---------- Total: ^0055FF"+.@card_total+" pt.^000000 -------";
    	next;
    	if(select(" > ^0055FFComplete trade...^000000: > ^777777Cancel^000000") == 2) {
    		mes "[Card Trader]";
    		mes "Oh, okay...";
    		emotion e_hmm;
    		close;
    	}
    	for(set .@i,0; .@i < getarraysize(.@card_id); set .@i,.@i+1)
    		delitem .@card_id[.@i],.@card_amt[.@i];
    	setd .Points$, getd(.Points$)+.@card_total;
    	mes "[Card Trader]";
    	mes "All done!";
    	emotion e_ho;
    	close;
     
    OnBuyItem:
    	for(set .@i,0; .@i < getarraysize(@bought_nameid); set .@i,.@i+1)
    		for(set .@j,0; .@j <getarraysize(.Shop); set .@j,.@j+2)
    			if (@bought_nameid[.@i] == .Shop[.@j]) {
    				set .@cost, .@cost+(.Shop[.@j+1]*@bought_quantity[.@i]);
    				break;
    			}
    	if (.@cost > getd(.Points$)) {
    		mes "[Card Trader]";
    		mes "You don't have enough Points.";
    		emotion e_omg;
    	}
    	else {
    		mes "Items purchased:";
    		mes "-----------------------------------";
    		for(set .@i,0; .@i < getarraysize(@bought_nameid); set .@i,.@i+1) {
    			getitem @bought_nameid[.@i], @bought_quantity[.@i];
    			mes "  ^777777"+@bought_quantity[.@i]+"x "+getitemname(@bought_nameid[.@i])+"^000000";
    		}
    		mes " ";
    		mes "---------- Total: ^0055FF"+.@cost+" pt.^000000 -------";
    		setd .Points$, getd(.Points$)-.@cost;
    		emotion e_cash;
    	}
    	deletearray @bought_nameid[0], getarraysize(@bought_nameid);
    	deletearray @bought_quantity[0], getarraysize(@bought_quantity);
    	close;
     
    OnInit:
    	set .Level,0;		   // Minimum monster level to trade corresponding cards.
    	set .Points$,"#Card_Points";	// Variable to store points.
    	setarray .Shop[0],		// Card Shop items: <ID>,<point cost>
    	  4001,1,4004,1,4033,1,4196,1,4197,25,4054,50,4174,75,4047,100;
    	setarray .Points[0],1,5;	// Points per <normal card>,<MVP card>
    	set .MVP$,			// List of MVP cards.
    	  "4121,4123,4128,4131,4132,4134,4135,4137,4142,4143,4144,4145,4146,4147,4148,4168,4236,"+
    	  "4241,4263,4276,4302,4305,4318,4324,4330,4342,4357,4359,4361,4363,4365,4399,4403,4407";
    	
    	npcshopdelitem "card_shop",909;
    	for(set .@i,0; .@i < getarraysize(.Shop); set .@i,.@i+2)
    		npcshopadditem "card_shop",.Shop[.@i],.Shop[.@i+1];
    	end;
    }
    -	shop	card_shop	-1,909:-1
    
  3. No error in console logs. The client just stuck up after getting the buff.

     

    Edit: Fixed.

    end;
    

    to

    close;
    
    prontera,100,100,4	script	Buffer	99,{
    
    if (gettimetick(1) < @timer) {
    dispbottom "Please try again after 3 seconds";
    end;
    }
    
    if (BaseLevel <= 50) {
    	specialeffect2 313;
    	percentheal 100,100;
    	sc_start 30,240000,10; specialeffect2 42; //Blessing
    	sc_start 32,240000,10; specialeffect2 37; //Agi Up
    	sc_start 39,240000,10; specialeffect2 112; // Kyrie
    	sc_start 41,240000,3; specialeffect2 75; // Gloria
    	sc_start 40,240000,5; specialeffect2 76; // Magnificat  
    	}
    if (BaseLevel >= 51 && BaseLevel <= 90) {
    	specialeffect2 313;
    	percentheal 100,100;
    	sc_start 30,240000,10; specialeffect2 42; //Blessing
    	sc_start 32,240000,10; specialeffect2 37; //Agi Up
    	}
    if (BaseLevel >= 91) {
    	mes "[Healer]";
    	mes "Please select an option.";
    	mes " ";
    	mes "Cost:";
    	mes "Normal Buff: 1,500z";
    	mes "1 Hour Buff: 200,000z";
    	next;
    	menu "Normal Buff",-,"1 Hour Buff",One_Hour;
    
    	if (Zeny < 1500) goto Zeny_Lack;
    	specialeffect2 EF_HEAL2;
    	percentheal 100,100;
    	sc_start 30,240000,10; specialeffect2 42; //Blessing
    	sc_start 32,240000,10; specialeffect2 37; //Agi Up
    	set Zeny, Zeny-1500;
    
    	}
    	set @timer, gettimetick(1)+3;
    	close;
    	
    One_Hour:
    	if (Zeny < 200000) goto Zeny_Lack;
    	specialeffect2 313;
    	percentheal 100,100;
    	sc_start 30,3600000,10; specialeffect2 42; //Blessing
    	sc_start 32,3600000,10; specialeffect2 37; //Agi Up
    	set Zeny, Zeny - 200000;
    	set @timer, gettimetick(1)+3;
    	close;
    
    Zeny_Lack:
    	mes "[Healer]";
    	mes "You don't have enough Zeny";
    	close;
    }
    

    Thanks Jyabil for the patience. Much appreciated.

  4. prontera,100,100,4	script	Buffer	99,{
    
    if (gettimetick(1) < @timer) {
    dispbottom "Pls try again after 3 seconds";
    end;
    }
    
    if (BaseLevel <= 50) {
    	specialeffect2 313;
    	percentheal 100,100;
    	sc_start 30,240000,10; specialeffect2 42; //Blessing
    	sc_start 32,240000,10; specialeffect2 37; //Agi Up
    	sc_start 39,240000,10; specialeffect2 112; // Kyrie
    	sc_start 41,240000,3; specialeffect2 75; // Gloria
    	sc_start 40,240000,5; specialeffect2 76; // Magnificat
    	}
    if (BaseLevel >= 51 && BaseLevel <= 90) {
    	specialeffect2 313;
    	percentheal 100,100;
    	sc_start 32,240000,10; specialeffect2 37; //Agi Up
    	sc_start 30,240000,10; specialeffect2 42; //Blessing
    	}
    if (BaseLevel >= 91) {
    	mes "[Healer]";
    	mes "Please select an option.";
    	mes " ";
    	mes "Cost:";
    	mes "Normal Buff: 1,500z";
    	mes "1 Hour Buff: 200,000z";
    	next;
    	menu "Normal Buff",-,"1 Hour Buff",One_Hour;
    
    	if (Zeny < 1500) goto Zeny_Lack;
    	specialeffect2 313;
    	percentheal 100,100;
    	sc_start 32,240000,10; specialeffect2 37; //Agi Up
    	sc_start 30,240000,10; specialeffect2 42; //Blessing
    
    	set Zeny, Zeny - 1500;
    }
    set @timer, gettimetick(1)+3;
    end;
    	
    One_Hour:
    	if (Zeny < 200000) goto Zeny_Lack;
    	specialeffect2 313;
    	percentheal 100,100;
    	sc_start 32,3600000,10; specialeffect2 37; //Agi Up
    	sc_start 30,3600000,10; specialeffect2 42; //Blessing
    	set Zeny, Zeny - 200000;
    	set @timer, gettimetick(1)+3;
    	close;
    
    Zeny_Lack:
    	mes "[Healer]";
    	mes "You don't have enough Zeny";
    	close;
    }
    

    Am I still missing something? Client still crashes after receiving the buff.

  5. Any idea about this error? 

    [Warning]: script error in file 'npc/custom/BuildManager.txt' line 9 column 2
        parse_syntax: use of deprecated keyword (use 'case' instead).
         6: switch( select( ( .BMMode & 1 )?"^FF0000Save & Switch Builds^000000":"",
    
         7:                                 ( .BMMode & 2 )?"^0000FFReset Status^000
    000":"",
         8:                                 ( .BMMode & 4 )?"^0000FFReset Skills^000
    000":"")){
    *    9:         Case 1:
            ~~~~~~~~^
        10:                 for( set .@i,1; .@i <= .MaxSlots; set .@i,.@i + 1 )
        11:                         set .@Menu$,.@Menu$ + (( getd( "Slot_"+.@i+"$" )
     == "" )?"^FF0000Empty Slot^000000":getd( "Slot_"+.@i+"$" ) )+":";
        12:                 set .@Slot,select( .@Menu$ );
    [Error]: script error in file 'npc/custom/BuildManager.txt' line 9 column 2
        parse_line: expect command, missing function name or calling undeclared func
    tion
         6: switch( select( ( .BMMode & 1 )?"^FF0000Save & Switch Builds^000000":"",
    
         7:                                 ( .BMMode & 2 )?"^0000FFReset Status^000
    000":"",
         8:                                 ( .BMMode & 4 )?"^0000FFReset Skills^000
    000":"")){
    *    9:         Case 1:
            ~~~~~~~~^
        10:                 for( set .@i,1; .@i <= .MaxSlots; set .@i,.@i + 1 )
        11:                         set .@Menu$,.@Menu$ + (( getd( "Slot_"+.@i+"$" )
     == "" )?"^FF0000Empty Slot^000000":getd( "Slot_"+.@i+"$" ) )+":";
        12:                 set .@Slot,select( .@Menu$ );
    
  6. Hi,I  would just like to make a follow up request on this one: http://rathena.org/board/topic/81623-buff-requests/

     

     

    Can anyone help me about these scripts?

     

    lv 50 or lower to buff  heal ab kyrie gloria magnificat.


    lv 51-99 to buff heal ab.

    Level 90 or higher to pay 1500z.

    You can pay a one-hour 20000z

     

    A delay in the buff for 3 seconds.

     

    Tried the script provided but doesn't look like it's still working. Doesn't buff at all and makes character stuck at some point.

    /*
    lv 50 or lower to buff  heal ab kyrie gloria magnificat.
    
    
    lv 51-99 to buff heal ab.
    
    Level 90 or higher to pay 1500z.
    
    You can pay a one-hour 20000z
    
     
    
    A delay in the buff for 3 seconds.
    */
    
    prontera,150,150,4	script	load	112,{
    
    	if ( @timer >= gettimetick(2) )
    		{
    			dispbottom "You have to wait for : " + ( @timer - gettimetick(2) ) + " Seconds before another use.";
    			end;
    		}
    		
    	if ( BaseLevel <= 50 )
    	{
    		///====================================================================
    		///ADD BUFFS AND EFFECTS HERE FOR 50 AND UNDER <-------------------
    		specialeffect2 313;	percentheal 100,100; //HEAL
    	}
    	else
    	{
    		if ( BaseLevel >= 90 )
    		{
    			if ( @allowhealtimer < gettimetick(2) )
    			{
    				mes "[Buffer]";
    				mes "The fee is 1,500z to use buffs at your level.";
    				mes "";
    				mes "You can also pay a fee for one hour of use at 20,000z";
    				close2;
    				switch(select("Pay the one time fee:Pay the Hour fee:Don't Pay!"))
    				{
    					case 1:
    						if (Zeny < 1500)
    						{	
    							dispbottom "You do not have enough zeny!";
    							close;	
    						}
    						else
    						{
    							set Zeny, Zeny - 1500;
    							break;
    						}
    						
    					case 2:
    						if (Zeny < 20000 )
    						{	
    							dispbottom "You do not have enough zeny!";
    							close;	
    						}
    						else
    						{
    							set Zeny, Zeny - 20000;
    							set @allowhealtimer, gettimetick(2) + 3600;
    							break;
    						}
    					case 3:
    						close;
    						
    				}
    			}
    			if ( @allowhealtimer )
    			{
    				dispbottom "You have : " + ( ( @allowhealtimer - gettimetick(2) ) / 60 ) + " Minutes of Buffs Remaining.";
    			}
    		}
    		
    		///====================================================================
    		///ADD BUFFS AND EFFECTS HERE FOR 50 AND OVER <-------------------
    		specialeffect2 313;	percentheal 100,100; //HEAL
    	}
    	
    	if ( @timer >= gettimetick(2) )	
    	{
    		end;
    	}
    	else 
    	{
    		dispbottom "You have been blessed!!";
    		set @timer, gettimetick(2) + .healtimer;
    		close;
    	}
    	
    OnInit:
    	set .healtimer, 3; // 3 SECOND DELAY.
    }
    
  7. Hi,

     

    Is it really not possible to host FluxCP files remotely from the actual database and server files? I tried hosting my FluxCP in a separate webhost while my database together with my Hercules installation is on a VPS.

    MySQL port is already open as well as the MySQL privileges are configured. Connecting via Workbench remotely is also possible.

     

    Related source: http://www.eathena.ws/board/index.php?s=&showtopic=259953&view=findpost&p=1422018

×
×
  • Create New...