EL Dragon

quiz_02,45,386,4 script TCG 108,{ set @i,0; mes "[TGC Echanger]"; mes "------ INFO -----"; mes "TCG to ITEM's Shop!!"; callshop "quest_shop8",1; npcshopattach "quest_shop8"; end; OnBuyItem: if(.BuildQuest8) { for(set .e,0; !compare(getarg(.e+1)+"", "Zeny"); set .e,.e+2) {} npcshopadditem "quest_shop8",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny"); setarray .Shop[.i],getarg(.e+2); set .i,.i+1; goto Quest_Setup; } if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; } for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; } mes "[Shop Quest NPC]"; mes "I require the following:"; for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]"; if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Zeny"; mes "^000000In exchange, I will give you:^0000FF"; for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i)); switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) { case 1: for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) { next; mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + "."; mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000."; close; } if(Zeny < getarg(@i)) { next; mes "You do not have enough Zeny."; mes "Please obtain ^FF0000" + (getarg(@i)-Zeny) + " more Zeny^000000."; close; } for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1); set Zeny,Zeny-getarg(@i); for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1); if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all; close; case 2: set @bottomview, getlook(3); set @topview, getlook(4); set @midview, getlook(5); addtimer 1000, strnpcinfo(3)+"::On_Leave"; set @equip,getiteminfo(@bought_nameid, 5); set @view, getiteminfo(@bought_nameid, 11); if(@equip != -1 && @view > 0) { if(@equip & 1) atcommand "@changelook 3 " + @view; if(@equip & 256) atcommand "@changelook 1 " + @view; if(@equip & 512) atcommand "@changelook 2 " + @view; } next; goto OnBuyItem; case 3: close; } On_Leave: atcommand "@changelook 1 " + @topview; atcommand "@changelook 2 " + @midview; atcommand "@changelook 3 " + @bottomview; set @equip,0; set @view,0; set @topview,0; set @midview,0; set @bottomview,0; end; OnInit: npcshopitem "quest_shop8",0,0; waitingroom "Kill MvPs and Drop TCG Cards",0; set .BuildQuest8,1; set .i,1; Quest_Setup: // THEESE ARE JUST A FEW EXAMPLES;WHICH I MADE,YOU HAVE TO PUT IN YOUR OWN ITEM ID'S HERE! switch(.i) { default: set .BuildQuest8,0; set .e,0; set .i,0; end; case 1: callsub OnBuyItem,7227,1000,1000000,"SZeny",13036,1,"announce"; case 2: callsub OnBuyItem,7227,1000,1000000,"SZeny",13411,1,"announce"; case 3: callsub OnBuyItem,7227,1000,1000000,"SZeny",1183,1,"announce"; case 4: callsub OnBuyItem,7227,1000,1000000,"SZeny",1632,1,"announce"; case 5: callsub OnBuyItem,7227,1000,1000000,"SZeny",1634,1,"announce"; case 6: callsub OnBuyItem,7227,1000,1000000,"SZeny",1543,1,"announce"; case 7: callsub OnBuyItem,7227,1000,1000000,"SZeny",1380,1,"announce"; case 8: callsub OnBuyItem,7227,1000,1000000,"SZeny",13305,1,"announce"; case 9: callsub OnBuyItem,7227,1000,1000000,"SZeny",1279,1,"announce"; case 10: callsub OnBuyItem,7227,1000,1000000,"SZeny",1924,1,"announce"; case 11: callsub OnBuyItem,7227,1000,1000000,"SZeny",1978,1,"announce"; case 12: callsub OnBuyItem,7227,1000,1000000,"SZeny",1574,1,"announce"; case 13: callsub OnBuyItem,7227,1000,1000000,"SZeny",1824,1,"announce"; case 14: callsub OnBuyItem,7227,1000,1000000,"SZeny",13108,1,"announce"; case 15: callsub OnBuyItem,7227,1000,1000000,"SZeny",2772,1,"announce"; case 16: callsub OnBuyItem,7227,50,1000000,"SZeny",5378,1,"announce"; case 17: callsub OnBuyItem,7227,50,1000000,"SZeny",5380,1,"announce"; case 18: callsub OnBuyItem,7227,50,1000000,"SZeny",5334,1,"announce"; case 19: callsub OnBuyItem,7227,50,1000000,"SZeny",5361,1,"announce"; case 20: callsub OnBuyItem,7227,50,1000000,"SZeny",5374,1,"announce"; case 21: callsub OnBuyItem,7227,50,1000000,"SZeny",5319,1,"announce"; case 22: callsub OnBuyItem,7227,50,1000000,"SZeny",5383,1,"announce"; case 23: callsub OnBuyItem,7227,50,1000000,"SZeny",5497,1,"announce"; case 24: callsub OnBuyItem,7227,50,1000000,"SZeny",5372,1,"announce"; case 25: callsub OnBuyItem,7227,50,1000000,"SZeny",5690,1,"announce"; } }

testing this bonus bMatkRate,getrefine()/2;

Nice! Thank you!

if they do not even manage to make a server itself, they are not in the position to to direct a server The Tutorial: http://rathena.org/board/topic/84746-tutorial-how-to-create-ragnarok-offline-2013-client-tutorial/ for a test server googling Beginner Eathena

http://rathena.org/board/tracker/issue-8695-damage-adjustment-in-battle-calc-cardfix-is-wrong

nice

im also getting this error on 2012-04-10 ragexeRe. If you want a shop different from zeny shop you can use hunting mission's shop to make a new one with cash like points. i did that too because i couldn't solve the problem You can use like this one: itemmall,183,84,4 script Head Gear Shop 112,{ mes "[^FFA500Kafra Shop^000000]"; next; if( select("Yes:No") == 2 ) { cleararray @Hats[0],0,127; setarray @Hats[0],2237,5056,5101,5134,5147,5148,5180,5190,5200,5209,5302,5336,5337,5338,5339,5346,5352,5400,5412,5438,5439,5440,5441,5203,5282,5405,5422,5426,5427,5429,5437,5443,5444,5447,5448,5449,5450,5458,5472,5473,5474,5475,5480,5489,5522,5530,5531,5536,5563,5499,5511,5519,5523,5524,5525,5528,5534,5813,5020,5054,5102,5206,5406,5407,5411,5436,5446,5457,5501,5537,5538,5548,5557,5558,5562,5566,5572,5579,5591,5140,5227,5228,5229,5235,5236,5237,5238,5239,5240,5241,5242,5272,5287,5332; callfunc "DoTestHats"; end; } mes "[^FFA500Kafra Shop^000000]"; mes " ^0055FF"+#CASH+"^000000 Cash Pontod."; close2; callshop "ShopA",1; npcshopattach "ShopA"; end; OnBuyItem: set @cost,0; for(set .@i,0; .@i<getarraysize(@bought_nameid); set .@i,.@i+1) for(set .@j,0; .@j<getarraysize(.HatShopA); set .@j,.@j+2) if (@bought_nameid[.@i] == .HatShopA[.@j]) { set @cost, @cost+(.HatShopA[.@j+1]*@bought_quantity[.@i]); break; } mes "[Kafra Shop]"; if (@cost > #CASH) mes "......."; else { for(set .@i,0; .@i<getarraysize(@bought_nameid); set .@i,.@i+1) { getitem @bought_nameid[.@i], @bought_quantity[.@i]; dispbottom "Megvetted: "+@bought_quantity[.@i]+"x "+getitemname(@bought_nameid[.@i])+"."; } set #CASH, #CASH-@cost; mes "Kész."; emotion e_cash; } set @cost,0; deletearray @bought_nameid[0], getarraysize(@bought_nameid); deletearray @bought_quantity[0], getarraysize(@bought_quantity); close; OnInit: setarray .HatShopA[0], // Reward items: <ID>,<point cost> (about 10~20 points per hunt). 2237,500,5056,500,5101,500,5134,800,5147,850,5148,850,5180,850,5190,900,5200,900,5209,900,5302,900,5336,900,5337,900,5338,900,5339,900,5346,900,5352,950,5400,950,5412,950,5438,950,5439,950,5440,950,5441,950,5203,1000,5282,1000,5405,1000,5422,1000,5426,1000,5427,1000,5429,1000,5437,1000,5443,1000,5444,1000,5447,1000,5448,1000,5449,1000,5450,1000,5458,1000,5472,1000,5473,1000,5474,1000,5475,1000,5480,1000,5489,1000,5522,1000,5530,1000,5531,1000,5536,1000,5563,1000,5499,1200,5511,1200,5519,1200,5523,1200,5524,1200,5525,1200,5528,1200,5020,1500,5054,1500,5102,1500,5206,1500,5406,1500,5407,1500,5411,1500,5436,1500,5446,1500,5457,1500,5501,1500,5537,1500,5538,1500,5548,1500,5557,1500,5558,1500,5562,1500,5566,1500,5572,1500,5579,1500,5140,2000,5227,2000,5228,2000,5229,2000,5235,2000,5236,2000,5237,2000,5238,2000,5239,2000,5240,2000,5241,2000,5242,2000,5272,2000,5287,2000,5332,2000; npcshopdelitem "ShopA",512; for(set .@i,0; .@i<getarraysize(.HatShopA); set .@i,.@i+2) npcshopadditem "ShopA", .HatShopA[.@i], .HatShopA[.@i+1]; end; } - shop ShopA -1,512:-1

is because of sky the effect http://rathena.org/board/topic/91687-map-weather-effect-client-plugin/

if ( .register_count >= .register_limit ) { <-- max player on the event search .register_limit = 100; this is max event player .register_aid <-- [ .register_count ] = getcharid(3); <-- count the Player the played the event , getcharid(3) is Account ID number .register_count+++; //OnClock0000: // put all your start timer here <-- the time to event start xD z.b OnClock1200: <--- 12 clock server time OnClock1600: <--- 16 OnClock2230: <--- 22:30 OnMinute00: <---- start of each hour sleep 10000; // registration timer here <-- the time the npc waiting to he Start sleep 10000; //pause the script for 10 seconds if ( .register_count < .register_min ) { <-- min. player number search .register_min = 2; <--- 2 player to start the event getitem .reward_item_id <-- , .reward_item_amount <--, .register_aid; // winner prize is the .reward_item_id = 9524; <-- Item ID .reward_item_amount = 500; <--- Item amount sorry for bad englisch

conf/battle/status.conf // Maximum resistance to status changes. (100 = 100%) // NOTE: Cards and equipment can go over this limit, so it only applies to natural resist. pc_max_status_def: 100 mob_max_status_def: 100 100 = player stats enable player to have 100% resist on status change.. 50 = player stats only give max of 50% on status resist.. 10 = player stats only give max of 10% on status resist.. 0 = player stats didnt provide any status resist... all these setting only work for stats...card effect are not affected by these settings

new_zone02,98,30,1 script Language Changer 412,{ mes "[Translator]"; mes " * Please choose a language"; mes " * Bitte wähle eine Sprache"; next; menu "English",-,"German",L_Ger; set #language,0; next; mes "[Translator]"; mes "Thank you."; mes "Have fun on ??? Ro."; close; L_Ger: set #language,1; next; mes "[Translator]"; mes "Danke."; mes "Viel Spaß auf ??? Ro."; close; } and use in the npc Script if (#language == 1) { Germany Text } else { Englisch Text } z.b Map_Name,137,174,6 script PvP Warper 447,{ //PvP Warper if (#language == 1) { mes "[ ^000088PvP Arena Warper^000000 ]"; mes "Möchtest du die PvP Arena betreten ?"; } else { mes "[ ^000088PvP Arena Warper^000000 ]"; mes "Do you want to enter the PvP Arena ?"; } next; switch(select("Normal PvP [^000088"+getmapusers("n_pvp")+"^000000]","Hardcore PvP [^000088"+getmapusers("artz_pvp")+"^000000]","Test PvP [^000088"+getmapusers("norm_pvp")+"^000000]","^ff0000Close^000000")) { case 1: if (countitem(22011)<1) goto NOPASS; if (#language == 1) { announce ""+strcharinfo(0)+" ist in die PvP Arena eingetreten !", bc_map; } else { announce ""+strcharinfo(0)+" has occurred in the PvP Arena !", bc_map; } warp "n_pvp",0,0; close; case 2: if (#language == 1) { announce ""+strcharinfo(0)+" ist in die Hardcore PvP Arena eingetreten!", bc_map; } else { announce ""+strcharinfo(0)+" has occurred in the Hardcore PvP Aren !", bc_map; } warp "artz_pvp",0,0; close; case 3: if (countitem(22011)<1) goto NOPASS; warp "norm_pvp",0,0; close; case 4: if (#language == 1) { mes "[ ^000088PvP Arena Warper^000000 ]"; mes "Dann eben nicht."; } else { mes "[ ^000088PvP Arena Warper^000000 ]"; mes "Then just not."; } close; } NOPASS: if (#language == 1) { mes "[ ^000088PvP Arena Warper^000000 ]"; mes "Du benötigst einen PvP Pass um in die PvP Arena zu gelangen."; } else { mes "[ ^000088PvP Arena Warper^000000 ]"; mes "You need a PvP pass to enter the PvP Arena."; } next; if (#language == 1) { mes "[ ^000088PvP Arena Warper^000000 ]"; mes "Sprich mit dem PvP Pass Master."; } else { mes "[ ^000088PvP Arena Warper^000000 ]"; mes "Talk to the PvP Pass Master."; } close; OnInit: waitingroom "PvP Arena",0; end; }

View File [ Recolour ] Knit Rabbit Ears Knit Rabbit Ears , ea 8 colors for Free ! Knit Rabbit EarsBy Gravity 8 Recolour's By me EL Dragon Have fun with the Sprite's This File Includes: Knit Rabbit Ears Spr and Act File BMP Item Icon BMP Collection Icon Inventory Spr and Act File Submitter EL Dragon Submitted 04/04/2014 Category Headgears Content Author EL Dragon  

1201,Knife,Knife,4,50,,400,17,,1,3,0xFE9F7EEF,7,2,2,1,1,1,1,{ bonus bAllStats,5; bonus bMaxHPrate,5; bonus bMaxSPrate,5; bonus2 bSubRace,RC_DemiHuman,5; bonus2 bAddRace,RC_DemiHuman,5 if(BaseClass==Job_Swordman) { bonus bMaxHPrate,5; } else if (BaseJob==Job_Mage) { bonus bMatkRate,3; } else if (BaseJob==Job_Archer) { bonus bLongAtkRate,3; } else if (BaseJob==Job_Acolyte) { bonus bShortWeaponDamageReturn,3; } else if (BaseJob==Job_Merchant) { bonus bAtkRate,3; } else if (BaseJob==Job_Thief){ bonus bFlee,4; bonus bFlee2,4; } else if (BaseJob==Job_Gunslinger) { bonus bMaxHPrate,3; bonus2 bSubRace,RC_DemiHuman,3; }else if (BaseJob==Job_Star_Gladiator) { bonus2 bAddEle,Ele_Holy,6; },{},{} I have it does not tested but should go who do not google yourself or wait

make you please a Shining Plant from the 12 new colors ? would be really cool

really Nice , thx for the Previw clip

as cusom npc function script f_jobBonus { bonus bAllStats,5; bonus bMaxHPrate,5; bonus bMaxSPrate,5; bonus2 bSubRace,RC_DemiHuman,5; bonus2 bAddRace,RC_DemiHuman,5; switch(BaseClass: { case Job_Swordman: bonus bMaxHPrate,5; break; case Job_Mage: bonus bMatkRate,3; break; case Job_Archer: bonus bLongAtkRate,3; break; case Job_Acolyte: bonus bShortWeaponDamageReturn,3; break; case Job_Merchant: bonus bAtkRate,3; case Job_Thief: bonus bFlee,4; bonus bFlee2,4; break; case Job_Gunslinger: bonus bMaxHPrate,3; bonus2 bSubRace,RC_DemiHuman,3; break; case Job_Star_Gladiator: bonus2 bAddEle,Ele_Holy,6; break; } } and in your item 1201,Knife,Knife,4,50,,400,17,,1,3,0xFE9F7EEF,7,2,2,1,1,1,1,{ callfunc "f_jobBonus"; },{},{}

Open your mysql database and use the "ragnarok" db, execute this code: UPDATE `char` SET `str`=1, `agi`=1, `vit`=1, `int`=1, `dex`=1, `luk`=1; NOTE: This code will set every stat of ALL PLAYERS (listed inside the `char` table) to 1, but will not give the players statpoints.

File Name: Recolour Wing Hat File Submitter: EL Dragon File Submitted: 03 Apr 2014 File Category: Headgears Content Author: EL Dragon a Red Wing Hat , ea 10 colors for Free ! Red Wing Hat By Gravity 9 Recolour's By me EL Dragon Have fun with the Sprite's This File Includes: Red Wing Hat Spr and Act File BMP Item Icon BMP Collection Icon Inventory Spr and Act File Click here to download this file

File Name: Polar Bear Cap File Submitter: EL Dragon File Submitted: 02 Apr 2014 File Category: Headgears Content Author: Gravity a Polar Bear Cap , ea 9 colors for Free ! Polar Bear Cap By Gravity Recolour By me EL Dragon Have fun with the Sprite's This File Includes: Polar Bear Cap Spr and Act File BMP Item Icon BMP Collection Icon Inventory Spr and Act File Click here to download this file

File Name: Creed Helm File Submitter: EL Dragon File Submitted: 02 Apr 2014 File Category: Headgears Content Author: By Rock Creed Helm , ea 7 colors for Free ! Original Sprite by Rock Recolour by me EL Dragon , other colors follow This File Includes: Creed Helm Spr and Act File [ No Recolour ] BMP Item Icon BMP Collection Icon [ No Recolour ] Inventory Spr and Act File Rules: Please don't claim it as yours. Do not pass my work to other people. Do not remove signature on Collection image. Click here to download this file

function script f_jobBonus { bonus bAllStats,5; bonus bMaxHPrate,5; bonus bMaxSPrate,5; bonus2 bSubRace,RC_DemiHuman,5; bonus2 bAddRace,RC_DemiHuman,5; switch(BaseClass: { case Job_Swordman: bonus bMaxHPrate,5; break; case Job_Mage: bonus bMatkRate,3; break; case Job_Archer: bonus bLongAtkRate,3; break; case Job_Acolyte: bonus bShortWeaponDamageReturn,3; break; case Job_Merchant: bonus bAtkRate,3; case Job_Thief: bonus bFlee,4; bonus bFlee2,4; break; case Job_Gunslinger: bonus bMaxHPrate,3; bonus2 bSubRace,RC_DemiHuman,3; break; case Job_Star_Gladiator: bonus2 bAddEle,Ele_Holy,6; break; } } Then have your item use this in the script callfunc "f_jobBonus";

- script test -1,{ OnPCLoadMapEvent: getmapxy(.@map$,.@mapx,.@mapy,0); if(.@map$ == "MAP_NAME"){ for(set .@i,0; .@i < getarraysize(.itemcheck); set .@i, .@i + 1){ if(countitem(.itemcheck[.@i])){ dispbottom "You cannot have any "+getitemname(.itemcheck[.@i])+" in your possession on this map."; warp "prontera",200,180; end; } } } end; OnInit: setarray .itemcheck[0],2383,ID,ID; end; } MAP_NAME mapflag loadevent