Chocolate

Label " L_Start2: " is not a function. try using callfunc and make it a function instead of callsub and label.

Turbo Room Malaya Style View File Turbo Room Malaya Style Feel Free to ask some support to me. For map edits and requests you can contact me MSN: [email protected] skype: keough_99 Thank you! Submitter K e o u g h Submitted 09/10/2013 Category Map  

This map is already been leaked somewhere......

still the same i guess this http://www.drazzy.com/ai/getaai.shtml work 2012 clients but cant still figure it out how this thing will work

Maybe he was talkin anou the renewal storage

Show script

Why not using the summon mvp i knew someone already post a working script for that in rA

when summoning an AI this error pop up using /hoai client date 2012-04-10 using Thoai

yes thats correct i use very very old rev. cause that rev. is very stable for me 17043

I have a problem when you hit someone using meteor assault the stun duration isn't removing even this setting wont remove // Will certain skill status-changes be removed on logout? // This mimics official servers, where Extremity Fist's no SP regen, // Strip Equipment, and some other buffs are removed when you logout. Setting is: // 0 = remove nothing. // 1 = remove negative buffs (stripping, EF) // 2 = remove positive buffs (maximize power, steel body...) // 3 = remove both negative and positive buffs. debuff_on_logout: 3 the status icon of stun is still there let just say i warp,i log out stun is still there in other words i need to be dead before the stun gone/remove it was like once i've got stun it will be forever until i didn't die

Yes it works for Armor,shoes,muffler,shield,upper headgear but it wont work for lower , middle headgear current script above

Bump

Bump

how to decrease them? like this 4008, 28000,-150 ,-10500

my item_db is fine after i removing this if(!getequipisenableref(@typr)) { mes "I can't refine this !..."; close; } It says i can refine but when proceeding the item isn't refining at all but the elunium is decrease its like when you use the refiner npc my item dnt have any + but the elunium gone

//Update 2012/11/18 //Author Goddameit //Web http://goo.gl/m1dHu prontera,135,199,4 script Refiner 990,{ set .Scroll,31115;//'Protection Scroll' item id set .back,0; //when use 'Protection Scroll' //-1,-2,-3... -->back to level 1,2,3...(MAX:10) if refine fail //1,2,3... --> reduce level 1,2,3.... if refine fail set @use2,31115; set @rate,0; set @typr,0; set @menu2,0; set @use3,0; function CHose ; function nZeny { switch(getequipweaponlv(getarg(0))) { case 1: return 500; case 2: return 2000; case 0: case 3: case 4: return 5000; default: return 0; } } function nItem { if(getarg(1)==1){ switch(getequipweaponlv(getarg(0))) { case 0: return 985; case 1: return 1010; case 2: return 1011; case 3: case 4: return 984; default: return 0; } }else{ switch(getequipweaponlv(getarg(0))) { case 0: return 6241; case 1: case 2: case 3: case 4: return 6240; default: return 0; } } } function nRate { function aRate { return getarg(getarg(0,0)+1,0); } switch(getequipweaponlv(getarg(0))) { case 0: return aRate(getarg(1), 100,100,100,100,60, 40,40,20,20,10, 50,30,20,10,10, 10,10,10,10,10); case 1: return aRate(getarg(1), 100,100,100,100,100, 100,100,60,40,20, 70,70,50,50,30, 30,20,20,10,10); case 2: return aRate(getarg(1), 100,100,100,100,100, 100,60,40,20,20, 70,50,50,30,30, 20,20,10,10,10); case 3: return aRate(getarg(1), 100,100,100,100,100, 60,50,20,20,20, 50,50,30,30,20, 20,10,10,10,10); case 4: return aRate(getarg(1), 100,100,100,100,60, 40,40,20,20,10, 50,30,30,20,20, 10,10,10,10,10); } } function sRater { mes "[Successful rate]["+set(@rate,(nRate(@typr,getequiprefinerycnt(@typr))+(@use2>6000?10:0)))+"%]"; return; } if(select("Refine","Close")==2) close; set @typr,select(""+getequipname(1),""+getequipname(2),""+getequipname(3),""+getequipname(4),""+getequipname(5),""+getequipname(6),""+getequipname(9),""+getequipname(10)); callsub OnCon; sRater; if(select("Refine now","Don't refine")==2) close; callsub OnCon2; OnCon: if(!getequipisenableref(@typr)) { mes "I can't refine this !..."; close; } if(getequiprefinerycnt(@typr)>=20) { mes "it's not possible to refine this better than +20."; close; } if(Zeny<nZeny(@typr)) { mes "your Zeny is lower than "+nZeny(@typr)+"."; close; } if( @use3 ) { if( !countitem(@use3) ) { mes "your don't have any "+getitemname(@use3)+"."; close; } }else{ if( !countitem(set(@use2,nItem(@typr,select("Don't use Purified.","Use it."))))) { mes "your don't have any "+getitemname(@use2)+"."; close; } set @use3,@use2; } return; OnCon2: if(.Scroll) { if( @menu2==2 ) { if(!countitem(.Scroll)) { mes "your don't have Protection Scroll."; close; } }else{ if( select("Don't use Protection Scroll.","Use it.")==2) { if(!countitem(.Scroll)) { mes "your don't have Protection Scroll."; close; } }else mes " "; } } set Zeny,Zeny-nZeny(@typr); if(.Scroll) { if( @menu==2 || @menu2==2 ) delitem .Scroll,1; } delitem @use2,1; if(.Scroll) { if( @menu==2 || @menu2==2 ) { if(@rate<rand(1,100)) { if(.back<0) { getitem2 getequipid(@typr),1,1,-(.back<-10?-10:.back),0,getequipcardid(@typr,0),getequipcardid(@typr,1),getequipcardid(@typr,2),getequipcardid(@typr,3); failedrefitem @typr; close; }else{ set .@D,set(.@D,getequiprefinerycnt(@typr)-.back)<0?0:.@D; if(getequiprefinerycnt(@typr)<=10) { getitem2 getequipid(@typr),1,1,.@D,0,getequipcardid(@typr,0),getequipcardid(@typr,1),getequipcardid(@typr,2),getequipcardid(@typr,3); failedrefitem @typr; close; }else while(getequiprefinerycnt(@typr)!=.@D)successrefitem @typr; } }else successrefitem @typr; CHose(@use2,@menu); } } if(@rate<rand(1,100)) { failedrefitem @typr; close; }else successrefitem @typr; CHose(@use2,@menu); function CHose { set @menu2,@menu2?@menu2:@menu; set @use3,@use3?@use3:@use2; next; sRater; if( select("[continue]","[end]") == 2 ) close; else callsub OnCon,1; callsub OnCon2; } } When trying to refine middle headgear and lower headgear it says cannot refine this.... how or what i need to change to make middle , lower headgear be refinenable bump

After changing it into this the poringpoints isn't saving even you got +1 poring poiints in disbottom

Search on google this already been answered.

just comment no hard feeling its so ugly and price $ 10 - 25 i prepare shiju's service than yours like what i said just a comment and my own comment

//===== rAthena Script ======================================= //= Poring Summoner //===== By: ================================================== //= Bahmut (Made it automated) //= MoonlightRO (Original) //===== Current Version: ===================================== //= 1.4 //===== Compatible With: ===================================== //= TXT & SQL //===== Link to orginal: ===================================== //= [url="http://www.eathena.ws/board/index.php?showtopic=236779"]http://www.eathena.w...howtopic=236779[/url] //============================================================ - script Poring Summoner -1,{ OnInit: //---- NPC Config ----- set .SpecialPorings,100; set .NormalPorings,0; //--------------------- initnpctimer; end; OnSpecialKill: set .SpecialPorings[1],.SpecialPorings[1]-1; announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map; // getitem .ItemID,1; set PoringPoint,PoringPoint+1; dispbottom "You got 1 Poring Point"; dispbottom "Total Poring Points:"+PoringPoint; goto PoringCount; OnNormalKill: set .NormalPorings[1],.NormalPorings[1]-1; goto PoringCount; PoringCount: announce "Special Poring: " + .SpecialPorings[1] + " || Normal Poring: " + .NormalPorings[1],bc_map; if(!.SpecialPorings[1]) goto EndEvent; end; OnClock1200: OnClock1600: OnClock2000: OnClock0000: OnClock0400: OnClock0800: RestartEvent: set .Event,0; set .SpecialPorings[1],0; set .NormalPorings[1],0; removemapflag .Map$,mf_noskill; set $@ran, rand(1,9); if ($@ran == 9) set .Map$,"lighthalzen"; if ($@ran == 8) set .Map$,"louyang"; if ($@ran == 7) set .Map$,"comodo"; if ($@ran == 6) set .Map$,"xmas"; if ($@ran == 5) set .Map$,"aldebaran"; if ($@ran == 4) set .Map$,"payon"; if ($@ran == 3) set .Map$,"geffen"; if ($@ran == 2) set .Map$,"morocc"; if ($@ran == 1) set .Map$,"prontera"; killmonster .Map$,"All"; setmapflag .Map$,mf_noskill; monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill"; monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill"; set .SpecialPorings[1],.SpecialPorings; set .NormalPorings[1],.NormalPorings; announce "The Poring Event has begun!",bc_all; announce "Location: " + .Map$,bc_all; announce "Special Poring: " + .SpecialPorings,bc_all; announce "Normal Poring: " + .NormalPorings,bc_all; setnpctimer 0; close; EndEvent: if(.Event) announce "The Poring Summon Event is now over!",bc_all; killmonster .Map$,"All"; set .Event,0; set .SpecialPorings[1],0; set .NormalPorings[1],0; end; } If player kill porings the points goes to his character only not into entire account.....then Some players can't get the point when they're in a different character

how about LP range / cell?

483,16,6,2,0,0x1,1:2:3:4:5,1,1,no,0,0,0,none,0, HW_GANBANTEIN,Ganbantein thats it? so how im gonna increase it? this is per level i think thats why it was 1:2:3:4:5 isnt? tryed changing it nothing happen 483,16,6,2,0,0x1,1:2:3:4:14,1,1,no,0,0,0,none,0, HW_GANBANTEIN,Ganbantein

cannot find the original this was modified.

where i suppose to add that?

//===== rAthena Script ======================================= //= Poring Summoner //===== By: ================================================== //= Bahmut (Made it automated) //= MoonlightRO (Original) //===== Current Version: ===================================== //= 1.4 //===== Compatible With: ===================================== //= TXT & SQL //===== Link to orginal: ===================================== //= [url="http://www.eathena.ws/board/index.php?showtopic=236779"]http://www.eathena.w...howtopic=236779[/url] //============================================================ - script Poring Summoner -1,{ OnInit: //---- NPC Config ----- set .SpecialPorings,100; set .NormalPorings,0; //--------------------- initnpctimer; end; OnSpecialKill: set .SpecialPorings[1],.SpecialPorings[1]-1; announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map; // getitem .ItemID,1; set PoringPoint,PoringPoint+1; dispbottom "You got 1 Poring Point"; dispbottom "Total Poring Points:"+PoringPoint; goto PoringCount; OnNormalKill: set .NormalPorings[1],.NormalPorings[1]-1; goto PoringCount; PoringCount: announce "Special Poring: " + .SpecialPorings[1] + " || Normal Poring: " + .NormalPorings[1],bc_map; if(!.SpecialPorings[1]) goto EndEvent; end; OnClock1200: OnClock1600: OnClock2000: OnClock0000: OnClock0400: OnClock0800: RestartEvent: set .Event,0; set .SpecialPorings[1],0; set .NormalPorings[1],0; removemapflag .Map$,mf_noskill; set $@ran, rand(1,10); if ($@ran == 9) set .Map$,"lighthalzen"; if ($@ran == 8) set .Map$,"louyang"; if ($@ran == 7) set .Map$,"comodo"; if ($@ran == 6) set .Map$,"xmas"; if ($@ran == 5) set .Map$,"aldebaran"; if ($@ran == 4) set .Map$,"payon"; if ($@ran == 3) set .Map$,"geffen"; if ($@ran == 2) set .Map$,"morocc"; if ($@ran == 1) set .Map$,"prontera"; killmonster .Map$,"All"; setmapflag .Map$,mf_noskill; monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill"; monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill"; set .SpecialPorings[1],.SpecialPorings; set .NormalPorings[1],.NormalPorings; announce "The Poring Event has begun!",bc_all; announce "Location: " + .Map$,bc_all; announce "Special Poring: " + .SpecialPorings,bc_all; announce "Normal Poring: " + .NormalPorings,bc_all; setnpctimer 0; end; } here's the script and here's the error