Jump to content

Dejavu

Members
  • Posts

    44
  • Joined

  • Last visited

Posts posted by Dejavu

  1. can someone help fix this? i want this npc announce the name of the player who got reward with 1%-10% chance! thank you!

     

    setarray .P1[0],1,7179,1; //pods >>>>>>>> [0],1 = 1%

    setarray .P2[0],5,26224,1; //1>>>>>>>>>>>[0],5 = 5%

     

     

     



    prontera,141,181,5 script Lotti Girl 714,{


    specialeffect 372;
    delitem .Cost[0], .Cost[1];
    set .@i, rand(1,.Total);
    if (rand(1,100) > getd(".P"+.@i+"[0]")) {
      for(set .@j,0; .@j<getarraysize(.Default); set .@j,.@j+2) {
       getitem .Default[.@j], .Default[.@j+1];
       if (!.@k[0]) setarray .@k[0], .Default[.@j], .Default[.@j+1]; } }
    else {
      for(set .@j,1; .@j<getarraysize(getd(".P"+.@i)); set .@j,.@j+2) {
       getitem getd(".P"+.@i+"["+.@j+"]"), getd(".P"+.@i+"["+(.@j+1)+"]");
       if (!.@k[0]) setarray .@k[0], getd(".P"+.@i+"["+.@j+"]"), getd(".P"+.@i+"["+(.@j+1)+"]"); } }
    specialeffect2 248;


    OnInit:
    // Format: <%>,<item ID>,<count>{,...};
    setarray .P1[0],1,7179,1; //pods
    setarray .P2[0],5,26224,1; //1
    setarray .P3[0],5,26225,1; //2
    setarray .P4[0],5,26226,1; //3
    setarray .P5[0],5,26227,1; //4
    setarray .P6[0],5,26228,1; //5
    setarray .P7[0],5,26229,1; //6
    setarray .Default[0],607,1; //Berry
    setarray .Cost[0],26080,10; //Credit
    set .Total,7;
    end;
    }

  2. my lord knight wearing custom item that can change its appearance to rune knight but when i talk to rental the dragon dont appear please help!



    //===== rAthena Script =======================================
    //= Universal Rental NPC
    //===== By: ==================================================
    //= Euphy
    //===== Current Version: =====================================
    //= 1.0a
    //===== Compatible With: =====================================
    //= rAthena Project
    //===== Description: =========================================
    //= One-click automatic mount rentals.
    //============================================================


    prontera,141,202,3 script Universal Rental NPC 726,{
    if (ismounting()) {
    message strcharinfo(0),"You must first remove your mount.";
    end;
    } else if ((eaclass()&EAJ_THIRDMASK==EAJ_RANGER) && !countitem(6124)) {
    if (!checkfalcon() && getskilllv("HT_FALCON") && !checkwug()) {
    if(select(" ~ Falcon: ~ Warg")==1) setfalcon;
    else getitem 6124,1; //Wolf's_Flute
    } else getitem 6124,1; //Wolf's_Flute
    } else if ((eaclass()&EAJ_THIRDMASK==EAJ_MECHANIC) && !checkcart() && getskilllv("MC_PUSHCART")) {
    if (!checkmadogear() && getskilllv("NC_MADOLICENCE")) {
    if(select(" ~ Cart: ~ Mado")==1) setcart;
    else setmadogear;
    } else setcart;
    } else if (!checkcart() && getskilllv("MC_PUSHCART")) setcart;
    else if (!checkfalcon() && getskilllv("HT_FALCON") && !checkwug()) setfalcon;
    else if (!checkriding() && !checkdragon() && getskilllv("KN_RIDING")) {
    if (eaclass()&EAJ_THIRDMASK==EAJ_RUNE_KNIGHT) setdragon;
    else setriding;
    } else if (!checkmadogear() && getskilllv("NC_MADOLICENCE")) setmadogear;
    else {
    message strcharinfo(0),"You do not meet requirements to rent.";
    end;
    }
    specialeffect2 EF_TEIHIT3;
    end;
    }

  3. can anyone fix this for me? party members dont get any reward when killing mvp boss! tnx in advance more power! <3

     




    - script customdrop -1,{
    OnNPCKillEvent:
    if ( getmonsterinfo( killedrid, MOB_MVPEXP ) && rand(100) < 10 ) {
    if ( getcharid(1) ) {
    getpartymember getcharid(1), 1;
    getpartymember getcharid(1), 2;
    for ( .@i = 0; .@i < $@partymembercount; .@i++ ) {
    if ( isloggedin( $@partymemberaid[.@i], $@partymembercid[.@i] ) ) { // what happens if someone in the party member is offline =/
    .@partymemberaid[.@c] = $@partymemberaid[.@i];
    .@c++;
    }
    }
    getitem 26080, 50, .@partymemberaid[ rand( .@c ) ];
    announce "Party ["+ strcharinfo(1) +"] has killed "+ getmonsterinfo( killedrid, MOB_NAME ) +" at "+ strcharinfo(3), 0;
    }
    else {
    getitem 26080, 50;
    getitem 6238, 1;
    getitem 6239, 1;
    announce "Player ["+ strcharinfo(0) +"] has killed "+ getmonsterinfo( killedrid, MOB_NAME ) +" at "+ strcharinfo(3), 0;
    }
    }
    end;
    }

  4. can anyone check this script coz its not working. :( its always say not enough requirements but i have all items needed plss help!

     

     



    prontera,194,146,5 script Changename 644,{
    mes "Input new name";
    input @NewName$;
    if(countitem(26080) || Zeny < 500000000) { //Change Item ID
    mes "Not enough requirements";
    close;
    }
    next;
    mes "Please relog for the changes to take effect";
    query_sql("UPDATE `name` FROM `char` SET `name`='"+@NewName$+"' WHERE `name`='"+strcharinfo(0)+"'");
    delitem 26080,5000;
    set Zeny,Zeny-500000000;
    close;
    }

  5. i am requesting for a script that i can view players ip add. by typing their name on the npc or by command like @who or if possible that theyre ip will show if i right click their character name!

    post-21763-0-39527600-1465936571.png

  6. Anyone here whos good in scripting!? kindly help me please! my problem is when someone kill or break the emperium! all the players not inluding in hes/her guild doesnt warp back or kick out from the castle! and my emperium doesnt have rotation effect! please help me! thank you! <3

    woetimer.txt

  7. is there any script if possible that can auto kick or ban those who are using hacks such as "auto hide asura, normal stats but can spam skills? etc." this will really a big help for those who cant afford to buy harmony or any anti hack programs TIA. and more power to all scripter /no1

  8. Look carefully : 

    if (.@sameip >= 1) {
    	announce "Sorry, only 1 account per ip can be logged in at a time.", bc_self;
    

    It seems this script is already setup for 1 account per IP.

     

     

    yup it seems that this script is supported only 1 acc per ip but when i tested it i can use 2 accounts >.<

  9. -	script	Only1perMAC	-1,{
    OnPCLoginEvent:
    	if (getgmlevel() >= 99) end;
    	set .@myname$, strcharinfo(0);
    	if (query_sql("SELECT `char`.`name` FROM `char` LEFT JOIN login ON `char`.account_id=login.account_id WHERE login.last_ip=(SELECT last_mac FROM login WHERE account_id="+getcharid(3)+") AND `char`.online=1 AND `char`.char_id!="+getcharid(0), .@name$) >= 1) {
    		for (set .@i,0; .@i<getarraysize(.@name$); set .@i,.@i+1) {
    			if (checkvending(.@name$[.@i]) != 2)
    				set .@sameip, .@sameip +1;
    		}
    		if (.@sameip >= 1) {
    			announce "Sorry, only 1 account per ip can be logged in at a time.", bc_self;
    			sleep 1000;
    			atcommand "@kick " + .@myname$;
    		}
    	}
    	end;
    }
    

     help about this script.. what should i edit to make it 1 account per ip add? coz its 2 account per ip >.< tia

  10. // http://rathena.org/board/topic/78517-guild-pack-information-giver/
    
    /*//==========================================================
    CREATE TABLE IF NOT EXISTS `guildpack_guilds` (
      `guild_id` INT(11) UNSIGNED NOT NULL DEFAULT '0',
      `guild_name` VARCHAR(24) NOT NULL DEFAULT '',
      `master_char_id` INT(11) UNSIGNED NOT NULL DEFAULT '0',
      `master_name` VARCHAR(24) NOT NULL DEFAULT '',
      `redeem_time` DATETIME NOT NULL DEFAULT '0000-00-00 00:00:00',
      PRIMARY KEY  (`guild_id`)
    ) ENGINE=MYISAM;
    
    CREATE TABLE IF NOT EXISTS `guildpack_members` (
      `guild_id` INT(11) UNSIGNED NOT NULL DEFAULT '0',
      `account_id` INT(11) UNSIGNED NOT NULL DEFAULT '0',
      `char_id` INT(11) UNSIGNED NOT NULL DEFAULT '0',
      `name` VARCHAR(30) NOT NULL DEFAULT '',
      `ip` VARCHAR(15) NOT NULL DEFAULT '',
      PRIMARY KEY  (`guild_id`,`char_id`),
      KEY `guild_id` (`guild_id`)
    ) ENGINE=MYISAM;
    //==========================================================*/
    
    turbo_room,109,75,4	script	Guild Info	416,{
    	switch(select( (countitem(7227)?"I have a GM's Approval Card":"") + ":Guild List")) {
    	case 1: // exchanging a GM's Approval Card (7227)
    		mes "[Guild Pack Info]";
    		if (!getcharid(2)) {
    			mes "^FF0000You must be in a guild to receive a guild package.^000000";
    			close;
    		} else if (getcharid(0) != getguildmasterid(getcharid(2))) {
    			mes "Please tell your guild leader ^0000FF"+getguildmaster(getcharid(2))+"^000000 to come and see me personally.";
    			close;
    		} else if (countitem(7227) < 1) {
    			mes "^FF0000You don't have a GM's Approval Card to exchange.^000000";
    			close;
    		}
    		
    		// check if guild has 10 members
    		query_sql "SELECT char_id,account_id,`name` FROM guild_member WHERE guild_id="+getcharid(2), .@char_id,.@account_id,.@name$;
    		if (getarraysize(.@char_id) < .guild_size) {
    			mes "You must have ^FF0000"+.guild_size+"^000000 guild members";
    			mes "(1 leader + "+(.guild_size-1)+" members).";
    			close;
    		}
    		// check if all guild members are online
    		for (set .@i,0; .@i<.guild_size; set .@i,.@i+1) {
    			if (!isloggedin(.@account_id[.@i], .@char_id[.@i])) {
    				mes "^FF0000"+ .@name$[.@i] +"^000000 is offline.";
    				mes "All "+.guild_size+" guild members must be online to receive the guild package.";
    				close;
    			}
    		}
    		// check if any guild members have ALREADY obtained a guild package
    		if (query_sql("SELECT `name`,guild_name FROM guildpack_members " + 
    		      "LEFT JOIN guildpack_guilds ON guildpack_members.guild_id=guildpack_guilds.guild_id " + 
    		      "WHERE account_id IN (SELECT account_id FROM guild_member WHERE guild_id="+getcharid(2)+") LIMIT 1", .@name$,.@guild$) > 0) {
    			mes "^0000FF"+.@name$+"^FF0000 already received a guild pack while in ^0000FF"+.@guild$+"^000000.";
    			mes "Each account can only receive a guild pack once.";
    			close;
    		}
    		mes "Exchange GM's Approval Card for Guild Pack?";
    		if (select("No:Yes, continue") == 1) close;
    		
    		// #SUCCESS - passed all checks
    		delitem 7227,1;
    		for (set .@i,0; .@i<.guild_size; set .@i,.@i+1) {
    			if (.@account_id[.@i] == playerattached()) {
    				getitem 14232,50; // leader
    				getitem2 2115,10,0,7,0,0,0,0,0;
    				getitem2 2357,10,0,7,0,0,0,0,0;
    				getitem2 2524,10,0,7,0,0,0,0,0;
    				getitem2 2421,10,0,7,0,0,0,0,0;
    				getitem2 2375,10,0,7,0,0,0,0,0;
    				getitem2 2433,10,0,7,0,0,0,0,0;
    				getitem2 2537,10,0,7,0,0,0,0,0;
    				getitem2 2729,10,0,7,0,0,0,0,0;
    				getitem2 2374,10,0,7,0,0,0,0,0;
    			} else {
    				getitem 19073,50, .@account_id[.@i]; // each member
    				getitem2 2115,1,0,7,0,0,0,0,0, .@account_id[.@i];
    				getitem2 2357,1,0,7,0,0,0,0,0, .@account_id[.@i];
    				getitem2 2524,1,0,7,0,0,0,0,0, .@account_id[.@i];
    				getitem2 2421,1,0,7,0,0,0,0,0, .@account_id[.@i];
    				getitem2 2375,1,0,7,0,0,0,0,0, .@account_id[.@i];
    				getitem2 2433,1,0,7,0,0,0,0,0, .@account_id[.@i];
    				getitem2 2537,1,0,7,0,0,0,0,0, .@account_id[.@i];
    				getitem2 2729,1,0,7,0,0,0,0,0, .@account_id[.@i];
    				getitem2 2374,1,0,7,0,0,0,0,0, .@account_id[.@i];
    			}
    		}
    		announce "Guild Pack Info : the guild ["+ strcharinfo(2) +"] has obtain a guild package.", bc_all|bc_blue;
    		
    		// record guild
    		query_sql "INSERT INTO guildpack_guilds (guild_id,guild_name,master_char_id,master_name,redeem_time) VALUES " + 
    		          "("+getcharid(2)+",'"+escape_sql(strcharinfo(2))+"', "+getcharid(0)+",'"+escape_sql(strcharinfo(0))+"', NOW())";
    		// record all guild members
    		query_sql "INSERT INTO guildpack_members(guild_id,account_id,char_id,`name`,ip) " + 
    		          "SELECT guild_id,guild_member.account_id,char_id,`name`,last_ip FROM guild_member " + 
    		          "LEFT JOIN login ON guild_member.account_id=login.account_id " + 
    		          "WHERE guild_id="+getcharid(2);
    		break;
    		
    	case 2: // Guild List
    		// get list of guilds
    		query_sql "SELECT guild_id,guild_name FROM guildpack_guilds ORDER BY guild_name ASC", .@guild_id,.@guild_name$;
    		mes "[Guild Pack Info]";
    		if (getarraysize(.@guild_id) == 0) {
    			mes "No guilds have received a guild pack.";
    			close;
    		}
    		for (set .@i,0; .@i<getarraysize(.@guild_id); set .@i,.@i+1)
    			set .@menu$, .@menu$ + .@guild_name$[.@i]+":";
    		// pick a guild
    		set .@GID, .@guild_id[set(.@g,select(.@menu$)-1)];
    		// get info for that guild
    		query_sql "SELECT guildpack_members.char_id, CONCAT(IF(ISNULL(guild_member.char_id),'^FF0000','^008000')," + 
    		          "guildpack_members.`name`), ip FROM guildpack_members " + 
    		          "LEFT JOIN guildpack_guilds ON guildpack_members.guild_id=guildpack_guilds.guild_id " + 
    		          "LEFT JOIN guild_member ON guildpack_members.char_id=guild_member.char_id AND guildpack_members.guild_id=guild_member.guild_id " + 
    		          "WHERE guildpack_members.guild_id="+.@GID+" " + 
    		          "ORDER BY (guildpack_members.char_id=master_char_id) DESC", 
    		          .@char_id, .@colored_name$, .@ip$;
    		// display guild info
    		mes "Guild : " + .@guild_name$[.@g];
    		mes "Status : " + (query_sql("SELECT 1 FROM guild WHERE guild_id="+.@GID,.@i) ? "^008000Active" : "^FF0000Disbanded") + "^000000";
    		mes "Leader : "+.@colored_name$[0]+"^000000 ("+.@ip$[0]+")";
    		mes "Members :";
    		for (set .@i,1; .@i<getarraysize(.@char_id); set .@i,.@i+1)
    			mes "  "+(.@i+1)+". "+.@colored_name$[.@i]+"^000000 ("+.@ip$[.@i]+")";
    		break;
    	}
    	close;
    
    OnInit:
    	set .guild_size, 10;
    	if (query_sql("SHOW TABLES LIKE 'guildpack_guilds'", .@t$) == 0) {
    		debugmes "[Guild Pack Info]: SQL table `guildpack_guilds` not found! Disabling npc.";
    		disablenpc strnpcinfo(3);
    	} else if (query_sql("SHOW TABLES LIKE 'guildpack_members'", .@t$) == 0) {
    		debugmes "[Guild Pack Info]: SQL table `guildpack_members` not found! Disabling npc.";
    		disablenpc strnpcinfo(3);
    	} waitingroom "Guild Package",0;
    	}
    	end;
    }
    

    my problem is, only the guild master can claim the package. is it possible if all members can get the package by talking to the npc? plss help! :(

×
×
  • Create New...