Jump to content

Jaburak

Members
 View Profile  See their activity

  • Posts

    1125

  • Joined

  • Days Won

    31

 Content Type 

Posts posted by Jaburak

    TCG Refiner Editing!

    in Scripting Support

    Posted

    Here try this;

    
// -- Script by Emistry,
// -- 100% Success Per Refine NPC.
// -- Cost 10 Poring Coins [ Default ]


moc_para01,25,23,4	script	Safe Refine 100%	 826,{
set @npcname$,"[^FF0000 الحداد المحترف^000000 ]";
set @items,7227;		// Item ID
set @amount,15;			// Amount

E_Refiner:
mes @npcname$;
mes "اي أدا تريد أن تطورهة ؟ ";
mes " ";
mes "تكلف : ^FF0000"+@amount+" "+getitemname(@items)+"^000000";
mes "من أجل ^FF0000100% نجاح^000000 التطويرة الواحدة";
dispbottom "أقصي تطوير ألي + 10";
next;
switch(select((getequiprefinerycnt(EQI_HEAD_TOP) == 10 || getequipisenableref(EQI_HEAD_TOP) == 0)?"":"قبعة [ ^0000FF"+getequipname(EQI_HEAD_TOP)+"^000000 ]",				// Case 1:
			(getequiprefinerycnt(EQI_ARMOR) == 10 || getequipisenableref(EQI_ARMOR) == 0)?"":"درع صدر [ ^0000FF"+getequipname(EQI_ARMOR)+"^000000 ]",				// Case 2:
			(getequiprefinerycnt(EQI_HAND_L) == 10 || getequipisenableref(EQI_HAND_L) == 0)?"":"اليد اليسري [ ^0000FF"+getequipname(EQI_HAND_L)+"^000000 ]",				// Case 3:
			(getequiprefinerycnt(EQI_HAND_R) == 10 || getequipisenableref(EQI_HAND_R) == 0)?"":"اليد اليمني [ ^0000FF"+getequipname(EQI_HAND_R)+"^000000 ]",			// Case 4:
			(getequiprefinerycnt(EQI_GARMENT) == 10 || getequipisenableref(EQI_GARMENT) == 0)?"":"الوشاح [ ^0000FF"+getequipname(EQI_GARMENT)+"^000000 ]",				// Case 5:
			(getequiprefinerycnt(EQI_SHOES) == 10 || getequipisenableref(EQI_SHOES) == 0)?"":"خذاء [ ^0000FF"+getequipname(EQI_SHOES)+"^000000 ]",
	// Case 6:
			(getequiprefinerycnt(EQI_ACC_L) == 10 || getequipisenableref(EQI_SHOES) == 0)?"":"خذاء [ ^0000FF"+getequipname(EQI_ACC_L)+"^000000 ]",
	// Case 7:
			(getequiprefinerycnt(EQI_ACC_R) == 10 || getequipisenableref(EQI_SHOES) == 0)?"":"خذاء [ ^0000FF"+getequipname(EQI_ACC_R)+"^000000 ]",					// Case 8:
			"^RR0000ألغاء^000000")) {		
Case 1:
	mes @npcname$;
	if ( countitem(@items) < @amount){
		mes @npcname$;
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
		close;
		}
	mes "تين تين تين ..";
	successrefitem EQI_HEAD_TOP;
	delitem @items,@amount;
	next;
	goto E_Refiner;

Case 2:
	mes @npcname$;
	if ( countitem(@items) < @amount){
		mes @npcname$;
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
		close;
		}
	mes "تين تين تين ..";
	successrefitem EQI_ARMOR;
	delitem @items,@amount;
	next;
	goto E_Refiner;

Case 3:
	mes @npcname$;
	if ( countitem(@items) < @amount){
		mes @npcname$;
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
		close;
		}
	mes "تين تين تين..";
	successrefitem EQI_HAND_L;
	delitem @items,@amount;
	next;
	goto E_Refiner;	

Case 4:
	mes @npcname$;
	if ( countitem(@items) < @amount){
		mes @npcname$;
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
		close;
		}
	mes "تين تين تين ..";
	successrefitem EQI_HAND_R;
	delitem @items,@amount;
	next;
	goto E_Refiner;

Case 5:
	mes @npcname$;
	if ( countitem(@items) < @amount){
		mes @npcname$;
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";
		close;
		}
	mes "تين تين تين ...";
	successrefitem EQI_GARMENT;
	delitem @items,@amount;
	next;
	goto E_Refiner;

Case 6:
	mes @npcname$;
	if ( countitem(@items) < @amount){
		mes @npcname$;
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
		close;
		}
	mes "تين تين تين ...";
	successrefitem EQI_SHOES;
	delitem @items,@amount;
	next;
	goto E_Refiner;

Case 7:
	mes @npcname$;
	if ( countitem(@items) < @amount){
		mes @npcname$;
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
		close;
		}
	mes "تين تين تين ...";
	successrefitem EQI_ACC_L;
	delitem @items,@amount;
	next;
	goto E_Refiner;

Case 8:
	mes @npcname$;
	if ( countitem(@items) < @amount){
		mes @npcname$;
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
		close;
		}
	mes "تين تين تين ...";
	successrefitem EQI_ACC_R;
	delitem @items,@amount;
	next;
	goto E_Refiner;

Case 9:
	mes @npcname$;
	mes "تعال مجددا عندما تغير رئيك";
	close;
	
}
}

    TCG Refiner Editing!

    in Scripting Support

    Posted 

    

    
// -- Script by Emistry,
    

    
// -- 100% Success Per Refine NPC.
    

    
// -- Cost 10 Poring Coins [ Default ]
    

    
moc_para01,25,23,4	script	Safe Refine 100%	 826,{
    

    
set @npcname$,"[^FF0000 الحداد المحترف^000000 ]";
    

    
set @items,7227;		// Item ID
    

    
set @amount,15;			// Amount
    

    
E_Refiner:
    

    
mes @npcname$;
    

    
mes "اي أدا تريد أن تطورهة ؟ ";
    

    
mes " ";
    

    
mes "تكلف : ^FF0000"+@amount+" "+getitemname(@items)+"^000000";
    

    
mes "من أجل ^FF0000100% نجاح^000000 التطويرة الواحدة";
    

    
dispbottom "أقصي تطوير ألي + 10";
    

    
next;
    

    
switch(select((getequiprefinerycnt(EQI_HEAD_TOP) == 10 || getequipisenableref(EQI_HEAD_TOP) == 0)?"":"قبعة [ ^0000FF"+getequipname(EQI_HEAD_TOP)+"^000000 ]",				// Case 1:
    

    
			(getequiprefinerycnt(EQI_ARMOR) == 10 || getequipisenableref(EQI_ARMOR) == 0)?"":"درع صدر [ ^0000FF"+getequipname(EQI_ARMOR)+"^000000 ]",				// Case 2:
    

    
			(getequiprefinerycnt(EQI_HAND_L) == 10 || getequipisenableref(EQI_HAND_L) == 0)?"":"اليد اليسري [ ^0000FF"+getequipname(EQI_HAND_L)+"^000000 ]",				// Case 3:
    

    
			(getequiprefinerycnt(EQI_HAND_R) == 10 || getequipisenableref(EQI_HAND_R) == 0)?"":"اليد اليمني [ ^0000FF"+getequipname(EQI_HAND_R)+"^000000 ]",			// Case 4:
    

    
			(getequiprefinerycnt(EQI_GARMENT) == 10 || getequipisenableref(EQI_GARMENT) == 0)?"":"الوشاح [ ^0000FF"+getequipname(EQI_GARMENT)+"^000000 ]",				// Case 5:
    

    
			(getequiprefinerycnt(EQI_SHOES) == 10 || getequipisenableref(EQI_SHOES) == 0)?"":"خذاء [ ^0000FF"+getequipname(EQI_SHOES)+"^000000 ]",
    

    
	// Case 6:
    

    
			(getequiprefinerycnt(EQI_ACC_L) == 10 || getequipisenableref(EQI_SHOES) == 0)?"":"خذاء [ ^0000FF"+getequipname(EQI_ACC_L)+"^000000 ]",
    

    
	// Case 7:
    

    
			(getequiprefinerycnt(EQI_ACC_R) == 10 || getequipisenableref(EQI_SHOES) == 0)?"":"خذاء [ ^0000FF"+getequipname(EQI_ACC_R)+"^000000 ]",					// Case 8:
    

    
			"^RR0000ألغاء^000000")) {		
    

    
Case 1:
    

    
	mes @npcname$;
    

    
	if ( countitem(@items) < @amount){
    

    
		mes @npcname$;
    

    
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
    

    
		close;
    

    
		}
    

    
	mes "تين تين تين ..";
    

    
	successrefitem EQI_HEAD_TOP;
    

    
	delitem @items,@amount;
    

    
	next;
    

    
	goto E_Refiner;
    

    
Case 2:
    

    
	mes @npcname$;
    

    
	if ( countitem(@items) < @amount){
    

    
		mes @npcname$;
    

    
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
    

    
		close;
    

    
		}
    

    
	mes "تين تين تين ..";
    

    
	successrefitem EQI_ARMOR;
    

    
	delitem @items,@amount;
    

    
	next;
    

    
	goto E_Refiner;
    

    
Case 3:
    

    
	mes @npcname$;
    

    
	if ( countitem(@items) < @amount){
    

    
		mes @npcname$;
    

    
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
    

    
		close;
    

    
		}
    

    
	mes "تين تين تين..";
    

    
	successrefitem EQI_HAND_L;
    

    
	delitem @items,@amount;
    

    
	next;
    

    
	goto E_Refiner;	
    

    
Case 4:
    

    
	mes @npcname$;
    

    
	if ( countitem(@items) < @amount){
    

    
		mes @npcname$;
    

    
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
    

    
		close;
    

    
		}
    

    
	mes "تين تين تين ..";
    

    
	successrefitem EQI_HAND_R;
    

    
	delitem @items,@amount;
    

    
	next;
    

    
	goto E_Refiner;
    

    
Case 5:
    

    
	mes @npcname$;
    

    
	if ( countitem(@items) < @amount){
    

    
		mes @npcname$;
    

    
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";
    

    
		close;
    

    
		}
    

    
	mes "تين تين تين ...";
    

    
	successrefitem EQI_GARMENT;
    

    
	delitem @items,@amount;
    

    
	next;
    

    
	goto E_Refiner;
    

    
Case 6:
    

    
	mes @npcname$;
    

    
	if ( countitem(@items) < @amount){
    

    
		mes @npcname$;
    

    
		mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي";
    

    
		close;
    

    
		}
    

    
	mes "تين تين تين ...";
    

    
	successrefitem EQI_SHOES;
    

    
	delitem @items,@amount;
    

    
	next;
    

    
	goto E_Refiner;
    

    
Case 7:
    

    
	mes @npcname$;
    

    
	mes "تعال مجددا عندما تغير رئيك";
    

    
	close;
    

    
}
    

    
}
    

    

    

						
    
					
    
					
						
    
							

	
    	
		
    
			
				
				
    
					
				
    
			
			
			
		
    
	
    

						
    
					
				
    		
			
    
		
    
	
    4. 

	
	
  4. 
		
	
    5. 

	
	
  5. 
		
	
    6. 

	
	
  6. 
		
	
    7. 

	
	
  7. 
		
	
    8. 

	
	
  8. 
		
	
    9. 

	
	
  9. 
		
	
    10. 

	
	
  10. 
		
	
    11. 

	
	
  11. 
		
	
    12. 

	
	
  12. 
		
    

			

			
    	
				
    
					
    
						
						
      
							
							
						
    
					
    
					



    
	
    
		
			
		
			My Server Events
		
	
    
	
    in Script Requests
    

    
				
    
				
				
    
					
    
						
						
    
							Posted 
							
														
						
    
						

						
    
							
							

    Try this;
    

    OnInit:
disablenpc "RFYL Event";
end;
}
 
prontera,135,167,5    script    RFYL Event#GM    899,{
if(getgmlevel() < 60 ) end;
mes "Hello there GM " + strcharinfo(0) + " !";
next;
set .menu$, select(.gm_menu$);
switch( select ("Open RFYL Event:No Thanks")) {
        case 1: // Run For Your Life
                next;
                mes "I will now create warps, announce, & warp you.";
                close2;
                warp "g_room1-1",230,368;
                Announce "There will be a 'Run For Your Life' Event Held!",bc_all;
                sleep2 2500;
                enablenpc "RFYL Event";
                sleep2 2500;
                Announce "If you want to join, the warp will be open in Prontera. It will be open for 2 minute!",bc_all;
                sleep2 30000;
                Announce "You have only 1 minute left to join the event!",bc_all;
                sleep2 1000;
                initnpctimer;
                goto L_Timer;
                end;
                close;
 
        case 2:
                mes "[RFYL Event]";
                mes "Come back if you change your mind, See Yah!";
                close;
        }
L_Timer:
    OnTimer00000:
        Announce "Timer has started!",bc_all;
        end;
        
    OnTimer30000:
        Announce "Thirty Seconds Have Passed By!",bc_all;
        sleep2 5000;
        Announce "Hurry to Prontera if you want to join!",bc_all;
        end;
                            
    OnTimer40000:
        Announce "Twenty seconds left!",bc_all;
        end;
                            
    OnTimer50000:
        Announce "Ten seconds left!",bc_all;
        end;
                            
    OnTimer55000:
        Announce "5!",bc_all;
        sleep2 1000;
        Announce "4!",bc_all;
        sleep2 1000;
        Announce "3!",bc_all;
        sleep2 1000;
        Announce "2!",bc_all;
        sleep2 1000;
        Announce "1!",bc_all;
        sleep2 1000;
        Announce "The warp is now closed!",bc_all;
        sleep2 1000;
        disablenpc "RFYL Event";
        stopnpctimer;
        end;
        
OnInit:
    setarray .gmevents$,"RFYL?";
    for ( set .@i, 0; .@i < getarraysize(.gmevents$); set .@i, .@i +1 )
    set .gm_menu$, .gm_menu$ + (.gmevents$[.@i]) +":";
    disablenpc "RFYL Event";
    end;
}
 
prontera,156,171,4    script    RFYL Event    811,{
 
    mes "[ Run For Your Life Event ]";
    mes "Hello, I'm the Run For Your Life Event Manager. My record says that the defending champion on this event was "+$PPEDefendingChampion$+". Anyways, what do you want to do?";
    mes " ";
    mes "Scripted by: ^777777FlareRO^000000";
    next;
    menu "Join Event Now",PPE_Join,"Nevermind",PPE_nvm;
 
PPE_Join:{
            if (gethominfo(2) != "null"){
                mes "No homunculus is allowed in this event! Sorry "+strcharinfo(0)+" but you can't join this event!";
                close;
            }
            if (getpetinfo(2) != "null"){
                mes "No pet is allowed in this event! Sorry "+strcharinfo(0)+" but you can't join this event!";
                close;
            }
            if (checkcart()){
                mes "[ Run For Your Life Event ]";
                mes "No cart is allowed! Sorry "+strcharinfo(0)+" but you can't join this event!";
                close;
            }
            if (checkfalcon()){
                mes "No falcon is allowed! Sorry "+strcharinfo(0)+" but you can't join this event!";
                close;
            }
            if (checkriding()){
                mes "No riding is allowed! Sorry "+strcharinfo(0)+" but you can't join this event!";
                close;
            }
            mes "[ Run For Your Life Event ]";
            mes "Good luck "+strcharinfo(0)+".";
            mes " ";
            mes "Scripted by: ^777777FlareRO^000000";
            close2;
            warp "g_room1-1",230,368;
 
            end;
        }
 
    PPE_nvm:
        mes "[ Run For Your Life Event ]";
        mes "Okay. Maybe next time.";
        mes " ";
        mes "Scripted by: ^777777FlareRO^000000";
        close;
}
    

						
    
					
    
					
						
    
							

	
    	
		
    
			
				
				
    
					
				
    
			
			
			
		
    
	
    

						
    
					
				
    		
			
    
		
    
	
    13. 

	
	
  13. 
		
	
    14. 

	
	
  14. 
		
	
    15. 

	
	
  15. 
		
    

			

			
    	
				
    
					
    
						
						
      
							
							
						
    
					
    
					



    
	
    
		
			
		
			Custom Items Script
		
	
    
	
    in General Support
    

    
				
    
				
				
    
					
    
						
						
    
							Posted 
							
														
						
    
						

						
    
							
							

    Replace:
    

    90002,GM_Shield,GM's Shield,5,,10,1,,10,,4,,0xFFFFFFFE,2,2,32,,65,1,3,{ bonus2 bSubEle,Ele_Water,100; bonus2 bSubEle,Ele_Fire,100; bonus2 bSubEle,Ele_Dark,100; bonus2 bSubEle,Ele_Undead,100; bonus2 bSubEle,Ele_Wind,100; bonus2 bSubEle,Ele_Earth,100; bonus2 bSubEle,Ele_Poison,100; bonus2 bSubEle,Ele_Neutral,100; bonus bMdef,100; if(isequipped(2353,5124)) { bonus bDef,2; bonus bMdef,20; } bonus bAllStats,100; bonus bNearAtkDef,100; bonus bLongAtkDef,100; bonus bMagicAtkDef,100; bonus bMiscAtkDef,100; bonus bNoWeaponDamage,100; bonus bNoMagicDamage,100; },{},{}
    

    To:
    

    90002,GM_Shield,GM's Shield,5,,10,1,,10,,4,,0xFFFFFFFE,2,2,32,,65,1,3,{ bonus2 bSubEle,Ele_Water,100; bonus2 bSubEle,Ele_Fire,100; bonus2 bSubEle,Ele_Dark,100; bonus2 bSubEle,Ele_Undead,100; bonus2 bSubEle,Ele_Wind,100; bonus2 bSubEle,Ele_Earth,100; bonus2 bSubEle,Ele_Poison,100; bonus2 bSubEle,Ele_Neutral,100; bonus bMdef,100; bonus bAllStats,100; bonus bNearAtkDef,100; bonus bLongAtkDef,100; bonus bMagicAtkDef,100; bonus bMiscAtkDef,100; bonus bNoWeaponDamage,100; bonus bNoMagicDamage,100; if(isequipped(2353,5124)) { bonus bDef,2; bonus bMdef,20; } },{},{}
    

						
    
					
    
					
						
    
							

	
    	
		
    
			
				
				
    
					
				
    
			
			
			
		
    
	
    

						
    
					
				
    		
			
    
		
    
	
    16. 

	
	
  16. 
		
    

			

			
    	
				
    
					
    
						
						
      
							
							
						
    
					
    
					



    
	
    
		
			
		
			[Ask/Help]  Make Drop Rate 0%
		
	
    
	
    in Database Support
    

    
				
    
				
				
    
					
    
						
						
    
							Posted 
							
														
						
    
						

						
    
							
							

    

    Hello Rathena.
    

    i want to ask, make drop rate is 0%.
    

     
    

    because i tried to setting in  drop.conf in battleconf .
    

     
    

    like here
    

     
    

     
    

    // Item drop rates (Note 2)

// The rate the common items are dropped (Items that are in the ETC tab, besides card)
item_rate_common: 10000
item_rate_common_boss: 10000
item_drop_common_min: 3000
item_drop_common_max: 10000

// The rate healing items are dropped (items that restore HP or SP)
item_rate_heal: 10000
item_rate_heal_boss: 10000
item_drop_heal_min: 3000
item_drop_heal_max: 10000

// The rate at which usable items (in the item tab) other then healing items are dropped.
item_rate_use: 10000
item_rate_use_boss: 10000
item_drop_use_min: 3000
item_drop_use_max: 10000

// The rate at which equipment is dropped.
item_rate_equip: 77000
item_rate_equip_boss: 100
item_drop_equip_min: 10
item_drop_equip_max: 10000

// The rate at which cards are dropped
item_rate_card: 100000
item_rate_card_boss: 0
item_drop_card_min: 0
item_drop_card_max: 10000

// The rate adjustment for the MVP items that the MVP gets directly in their inventory
item_rate_mvp: 100
item_drop_mvp_min: 0
item_drop_mvp_max: 10000

// The rate adjustment for card-granted item drops.
item_rate_adddrop: 100
item_drop_add_min: 0
item_drop_add_max: 10000

// Rate adjustment for Treasure Box drops (these override all other modifiers)
item_rate_treasure: 100
item_drop_treasure_min: 1
item_drop_treasure_max: 10000
 
    

     
    

     
    

    MVP Card Drop not change to 0%.
    

    is still in 0,01% .
    

     
    

    because i want to make server is mvp card disable temporary
    

    thank you for your answer >.<
    

    

     
    

    It's normal buddy. If you already set it to drop.conf then it wont drop any items anymore. Just ignore the 0.01% message when using @mobinfo.
    

						
    
					
    
					
						
    
							

	
    	
		
    
			
				
				
    
					
				
    
			
			
			
		
    
	
    

						
    
					
				
    		
			
    
		
    
	
    17. 

	
	
  17. 
		
	
    18. 

	
	
  18. 
		
	
    19. 

	
	
  19. 
		
    

			

			
    	
				
    
					
    
						
						
      
							
							
						
    
					
    
					



    
	
    
		
			
		
			Party job checker
		
	
    
	
    in Script Requests
    

    
				
    
				
				
    
					
    
						
						
    
							Posted 
							
														
						
    
						

						
    
							
							

    

    

    
getpartymember(getcharid(1),2);
    

    
copyarray .@partyids[0],$@partymembercid[0],$@partymembercount;
    

    
set .@count, $@partymembercount;
    

    
for (set .@a, 0; .@a < .@count; set .@a, .@a + 1) {
    

    
  attachrid .@partyids[.@a];
    

    
  set .@jobs[.@a], Class;
    

    
  // Check Job from other current jobs
    

    
  for (set .@b, 0; .@b < getarraysize(.@jobs); set .@b, .@b + 1) {
    

    
    if (Class == .@jobs[.@b]) {
    

    
      set .@matches, .@matches + 1;
    

    
    }
    

    
  }
    

    
  // Check if this job as too many
    

    
  if (.@matches > 2) { // Too Many of the Same Job }
    

    
  // Less than 2, so reset counter for next player
    

    
  set .@matches, 0;
    

    
}
    

						
    
					
    
					
						
    
							

	
    	
		
    
			
				
				
    
					
				
    
			
			
			
		
    
	
    

						
    
					
				
    		
			
    
		
    
	
    20. 

	
	
  20. 
		
    

			

			
    	
				
    
					
    
						
						
      
							
							
						
    
					
    
					



    
	
    
		
			
		
			Magnifier!
		
	
    
	
    in Script Requests
    

    
				
    
				
				
    
					
    
						
						
    
							Posted 
							
														
						
    
						

						
    
							
							

    Try this;
    

    prontera,200,180,4	script	Identifier	123,{
	getinventorylist;
	for( set .@i,0; .@i < @inventorylist_count; set .@i, .@i + 1 ) {
		if ( @inventorylist_identify[.@i] == 1 ) continue;

		if ( getskilllv(40) == 1 && sp >= 10 ) heal 0,-10;

		else if ( countitem(611) ) delitem 611,1;

		else if ( getskilllv(224) && zeny >= ( 100 - ( 5 + 4 * getskilllv(224) ) )* 2/5 )
			set zeny, zeny - ( 100 - ( 5 + 4 * getskilllv(224) ) )* 2/5;

		else if ( getskilllv(37) && zeny >= ( 100 - ( 5 + 2 * getskilllv(37) ) )* 2/5 )
			set zeny, zeny - ( 100 - ( 5 + 2 * getskilllv(37) ) )* 2/5;

		else if ( zeny >= 40 )  set zeny, zeny - 40;

		else break;
		delitem2 @inventorylist_id[.@i],1,0,0,0,0,0,0,0;
		getitem @inventorylist_id[.@i],1;
	}
}
    

						
    
					
    
					
						
    
							

	
    	
		
    
			
				
				
    
					
				
    
			
			
			
		
    
	
    

						
    
					
				
    		
			
    
		
    
	
    21. 

	
	
  21. 
		
    

			

			
    	
				
    
					
    
						
						
      
							
							
						
    
					
    
					



    
	
    
		
			
		
			Lost Treasure!
		
	
    
	
    in Scripting Support
    

    
				
    
				
				
    
					
    
						
						
    
							Posted 
							
														
						
    
						

						
    
							
							

    Try this;
    

    // ---            ARTHistic's Property            ---
// ---    Please visit http://thdesigns.co.nr     ---
// ---           Scripted By: ARTHistic           ---
// ---         Do Not Revomed the Credits         ---

pvp_n_4-5,104,98,3	script	Treasure Box Summoner	906,{
	mes "[ Treasure Box Event ]";
	mes "Hello, I'm a new mage here in Midgard. Every hour, I tried to cast my summoning spells and there a chance that i can summon a Treasure Box that will give you items once you destroy it. I only cast my spell on main city and I immediately announce to everyone once I perfectly cast my spells. Anyways, I will give you a little hint...";
        if( $@tboxevent == 0 ){
        	mes "I ^ff0000failed^000000 to summoned the Treasure Box last time.^000000";
	}else {
        	mes "^I successfully summoned the Treasure Box last time.";
	}
	mes " ";
	mes "Scripted by: ^777777ARTHistic^000000";
	close;

OnMinute45:
		announce "مسابقة البحث عن الكنز ستبدء بعد قليل",0;
		sleep2 5000;
		announce "تم ارسال صندوق الكنز الي المدينة ابدئو البحث",0;
		sleep2 1000;
		monster "prontera.gat",0,0,"Treasure Box",1845,1,"Treasure Box Summoner::OnTBoxKilled";
		end;

OnTBoxKilled:
	announce "لقد تم العثور علي الصندوق الكنز و تم تحطيبه , الفائذ هو "+strcharinfo(0)+"!", bc_all;
	getitem 674, 3;
	end;
}
    

						
    
					
    
					
						
    
							

	
    	
		
    
			
				
				
    
					
				
    
			
			
			
		
    
	
    

						
    
					
				
    		
			
    
		
    
	
    22. 

	
	
  22. 
		
	
    23. 

	
	
  23. 
		
	
    24. 

	
	
  24. 
		
	
    25. 

	
	
  25. 
		
	
    26. 

			

		

	
	

		


	
	

	





			

		


	




								


							

							


						

					

					
				

				

				

			

		

		
		



	

		×
		


    
	





			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •