Jump to content

EL Dragon

Members
  • Posts

    591
  • Joined

  • Last visited

  • Days Won

    19

Everything posted by EL Dragon

  1. I am looking for a script that changes the Xmag and Ymag, the size off all frames hope someone can help me...
  2. hmn finde es sollte schon eine gewisse anzahl an Story Quests dar sein bevor man den Server Startet min.10-15 kommt halt auf die länge der story an ,zu viel quest sind echt etwas überfordert da hat man meist ka was man zu erst machen soll ,aber anfangs eine gewisse Auswahl zu haben wäre gut ,nicht das es nur 3 quest gibt die man in wenigen tagen geh macht hat hmn sind diese Creating items auch durch mob drop erhältlich ?
  3. http://rathena.org/board/pastebin/qzoynvnjiwh
  4. http://www.pic-upload.de/view-24348838/1111111.jpg.html hope someone can help me
  5. is it possible MVPs add to @noks command ?
  6. Skills such as Safety wall, Land Protector will not be displayed, also the dmg of Storm Guest does not appear since we use the new Revision ! https://github.com/rathena/rathena hope someone can help me
  7. chnage equip_location 256 is upper 512 Mid 1 is Lower
  8. I am looking for a possibility to removing, the runnen hope it can someone help me this is my script event,95,88,0 script Runes Enchanter 627,{ function ReturnName; mes "["+.name$+"]"; mes strcharinfo(0)+", was kann ich für dich tun?"; @s_menu = select("Customs verzaubern:Information:^ff0000Abbrechen^000000"); next; mes "["+.name$+"]"; if (@s_menu==3){mes "Danke für die Benutzung meines Services."; close;} if (@s_menu==2){ mes "Ich kann Runen in deine Customs einbauen."; mes "Du solltest das Custom Item tragen um es verzaubern zu lassen."; mes "Du musst außerdem Runen in deinem Inventar haben."; next; mes "["+.name$+"]"; mes "Das verzaubern kostet dich keinen Zeny!"; mes "Die Runen kommen in das spezielle Slot."; close; } mes "Wähle ein Custom zum verzaubern:"; @s_menu = select( "Upper Headgear - ^00FF00"+ReturnName(EQI_HEAD_TOP,1)+ "^000000:Middle Headgear - ^00FF00"+ReturnName(EQI_HEAD_MID,1)+ "^000000:Lower Headgear - ^00FF00"+ReturnName(EQI_HEAD_LOW,1) ); next; mes "["+.name$+"]"; @item_id = getequipid(@s_menu); mes "S:"+ReturnName(@s_menu,2); if (ReturnName(@s_menu,2)==0){mes "Ich kann dieses Item nicht verzaubern."; close; } if (@item_id==-1){mes "Du hast kein verzauberbares Item an."; close;} if (getequipcardcnt(@s_menu)==4){mes "Sorry, du hast bereits Cards drinnen!"; close;} @card0 = getequipcardid(@s_menu,0); @card1 = getequipcardid(@s_menu,1); @card2 = getequipcardid(@s_menu,2); @card3 = getequipcardid(@s_menu,3); @refine = getequiprefinerycnt(@s_menu); if (@card1){mes "Du hast keinen freien Slot."; close;} mes "Welche Rune soll in welchen Slot?"; next; mes "["+.name$+"]"; deletearray @Rune_list[0],256; deletearray @inventorylist_id[0],256; @inventorylist_count = 0; @k = 0; .@s_menu_select$ = ""; mes "Wähle eine Rune aus:"; getinventorylist; for (.@i=0; .@i<@inventorylist_count; .@i++){ if (@inventorylist_id[.@i] < .RuneRange[0] || @inventorylist_id[.@i] > .RuneRange[1]){ continue;} @Rune_list[@k] = @inventorylist_id[.@i]; @k++; .@s_menu_select$ = .@s_menu_select$ +"- ^00FF00"+getitemname(@inventorylist_id[.@i])+"^000000:"; } .@s_menu_select$ = .@s_menu_select$ +"- ^ff0000Abbrechen^000000"; .@i = select(.@s_menu_select$); if (.@i>getarraysize(@Rune_list)) { next; mes "["+.name$+"]"; mes "Danke für die Benutzung meines Services."; close;} @RuneID = @Rune_list[.@i-1]; next; mes "["+.name$+"]"; if (getequipid(@s_menu) != @item_id){mes "Versuchst du mich zu verarschen?"; close;} unequip(@s_menu); if(!countitem2(@item_id,1,@refine,0,@card0,@card1,@card2,@card3)){mes "Versuchst du mich zu verarschen?"; close;} delitem2 @item_id,1,1,@refine,0,@card0,@card1,@card2,@card3; @card1 = @RuneID; delitem @RuneID,1; getitem2 @item_id,1,1,@refine,0,@card0,@card1,@card2,@card3; mes "Item verzaubert."; equip @item_id; close; function ReturnName { .@fine = 0; .@equip_id = getequipid(getarg(0)); for (.@i=0; .@i < getarraysize(.CustomRange); .@i=.@i+2){ if (.@equip_id < .CustomRange[.@i] || .@equip_id > .CustomRange[.@i+1]){ .@fine=0; continue;} else{ .@fine = 1; break; } } if (.@fine==1){ set .@a$,(getequipid(getarg(0))?getequipname(getarg(0)):""); } if (getarg(1)==1){ return .@a$; } return .@fine; } OnInit: set .name$,"Rune Enchanter"; setarray .RuneRange[0],40100, 40126; //RuneRange1,RuneRange2 30141 setarray .CustomRange[0],40127, 40783; //CustomID Range. (1,2,3,4,....) end; } there is no possibility to removing, runes? hope someone knows a solution Nobody can help me ?
  9. testing this... - script AFK_1 -1,{ OnInit: bindatcmd("afk", strnpcinfo(3) +"::OnAFK"); end; OnAFK: if (@AFK) { set @AFK, 0; changelook 4,headupper; dispbottom "AFK Modus is OFF."; end; } else { set @AFK, 1; headupper=getlook(4); changelook 4,471; dispbottom "AFK Modus is ON."; end; } }
  10. I need a sql log for @ bst this is the script - script bst_atcommand -1,{ OnInit: bindatcmd "bst",strnpcinfo(0)+"::OnCommand"; end; OnCommand: if ( !getstrlen(.@atcmd_parameters$) ) { message strcharinfo(0), "Please, enter a message (usage: @bst <message>)."; end; } if ( @bst_delay + 1800 > gettimetick(2) ) { message strcharinfo(0), "There is a 30 min delay of using this command again"; end; } @bst_delay = gettimetick(2); announce "[Market] "+ strcharinfo(0) +" : "+ implode( .@atcmd_parameters$," " ), bc_all, 0x9999FF; end; } want the,Player_name ,the announce test,and the datum in bst_Market_log is stored hope someone can help me
  11. getitem 12537,1; //Freebies Box getitem 7726 ,1; // Freebies orb getitem 7256 ,1; // Freebies token getitem2 30023 1 1 0 0 4767 4763 0 0; //A costume with 2 orbs in it.
  12. - shop Recolor_Valkyrie_Helm -1,502:5000 quiz_02,23,388,4 script Valkyrie Helm 107,{ set @i,0; mes "[Valkyrie Helm Maker]"; mes "------ INFO -----"; callshop "Recolor_Valkyrie_Helm",1; npcshopattach "Recolor_Valkyrie_Helm"; end; OnBuyItem: if(.Recolor_Valkyrie_Helm) { for(set .e,0; !compare(getarg(.e+1)+"", "Zeny"); set .e,.e+2) {} npcshopadditem "Recolor_Valkyrie_Helm",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny"); setarray .Shop[.i],getarg(.e+2); set .i,.i+1; goto Quest_Setup1; } if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup1; } for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup1; } 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) + " hat 1x " + getitemname(@bought_nameid) + " erworben !",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 "Recolor_Valkyrie_Helm",0,0; waitingroom "Valkyrie Helm",0; set .Recolor_Valkyrie_Helm,1; set .i,1; Quest_Setup1: switch(.i) { default: set .Recolor_Valkyrie_Helm,0; set .e,0; set .i,0; end; case 1: callsub OnBuyItem,914,100,7063,400,1025,50,978,2,983,1,7834,1,671,20,10000000,"SZeny",20033,1,"announce"; case 2: callsub OnBuyItem,914,100,7063,400,1025,50,980,2,976,1,7834,1,671,20,10000000,"SZeny",20034,1,"announce"; case 3: callsub OnBuyItem,914,100,7063,400,1025,50,978,5,7834,1,671,20,10000000,"SZeny",20035,1,"announce"; case 4: callsub OnBuyItem,914,100,7063,400,1025,50,976,5,7834,1,671,20,10000000,"SZeny",20036,1,"announce"; case 5: callsub OnBuyItem,914,100,7063,400,1025,50,979,5,7834,1,671,20,10000000,"SZeny",20037,1,"announce"; case 6: callsub OnBuyItem,914,100,7063,400,1025,50,980,5,7834,1,671,20,10000000,"SZeny",20038,1,"announce"; case 7: callsub OnBuyItem,914,100,7063,400,1025,50,975,2,982,1,7834,1,671,20,10000000,"SZeny",20039,1,"announce"; case 8: callsub OnBuyItem,914,100,7063,400,1025,50,981,5,7834,1,671,20,10000000,"SZeny",20040,1,"announce"; case 9: callsub OnBuyItem,914,100,7063,400,1025,50,975,5,7834,1,671,20,10000000,"SZeny",20041,1,"announce"; case 10: callsub OnBuyItem,914,100,7063,400,1025,50,982,2,983,1,7834,1,671,20,10000000,"SZeny",20042,1,"announce"; case 11: callsub OnBuyItem,914,100,7063,400,1025,50,982,2,7834,1,671,20,10000000,"SZeny",20131,1,"announce"; } }
  13. change rentitem to item ...
  14. I get the following message on my map server [Warning]: pc_bonus2: unknown type 0 0 20! can someone tell me what it is?
  15. map,101,79,2 script Freebies 123,{ mes "[Hello]"; mes "[I can give you a free gift based on your future job.]"; mes "[Please choose the correct item for the future job]"; if(!#Freebie) { mes "Select one:"; next; switch(select("Swordsman:Magician - Ninja:Archer - Gunslinger:Acolyte:Merchant - Taekwon :Thief")) { case 1: rentitem 30172,86400; rentitem 30173,86400; rentitem 30174,86400; rentitem 30175,86400; rentitem 30176,86400; rentitem 2394,86400; getitem 12075,8; getitem 12085,5; //Item for Swordsman break; case 2: rentitem 30172,86400; rentitem 30173,86400; rentitem 30174,86400; rentitem 30175,86400; rentitem 30176,86400; rentitem 2394,86400; getitem 12080,8; getitem 12095,5; //Item for Magician - Ninja break; case 3: rentitem 30172,86400; rentitem 30173,86400; rentitem 30174,86400; rentitem 30175,86400; rentitem 30176,86400; rentitem 2394,86400; getitem 12095,8; getitem 12090,5; ; //Item for Archer - Gunslinger break; case 4: rentitem 30172,86400; rentitem 30173,86400; rentitem 30174,86400; rentitem 30175,86400; rentitem 30176,86400; rentitem 2394,86400; getitem 12080,8; getitem 12090,5; //Item for Acolyte break; case 5: rentitem 30172,86400; rentitem 30173,86400; rentitem 30174,86400; rentitem 30175,86400; rentitem 30176,86400; rentitem 2394,86400; getitem 12075,8; getitem 12085,5; //Item for Merchant - Taekwon break; case 6: rentitem 30172,86400; rentitem 30173,86400; rentitem 30174,86400; rentitem 30175,86400; rentitem 30176,86400; rentitem 2394,86400; getitem 12075,8; getitem 12090,5; //Item for Thief break; } set #Freebie, 1; close; } OnInit: delwaitingroom; waitingroom "Get your freebies here ! ",0; end; }
  16. probier es mal hier mit http://rathena.org/board/topic/87228-weapon-sprite-generator/ wird wir alles angezeigt wie und wo es am ende rein muss
  17. http://rathena.org/board/topic/92831-utility-reward-command/
  18. you can make the npc random walk on the map ? all duplicate walking radmon on maps and th player must search the Porings for Support
  19. when I write the correct mob name nothing happens i use sql Database /*//------------------------------------------------------------// //----------------Edited by Lenya---------------------------------// //------------------Ascension of Ragnarok---------------------------// //--------------------Disguise Event NPC -----------------------------// //-------------------------------------------------------------------//*/ fire_event,40,16,4 script Disguise CP 794,{ if (getgmlevel()<99) { mes "^3399FF[Disguise CP]^000000"; mes "Sorry, du hast keine Berechtigung."; close; } mes "^3399FF[Disguise CP]^000000"; mes "Hallo Boss,"; mes "Was möchtest du heute machen?"; switch(select("Event starten:Event stoppen:Anzahl der Runden kalkulieren[^E50000"+$guessrounds+"^000000]:Preis kalkulieren^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nichts")) { case 1: { next; mes "^3399FF[Disguise CP]^000000"; mes "Bestätigen sie durch die Eingabe von START."; input .@confirm$; if (.@confirm$ == "START") { donpcevent "guessAnnouncer::OnGMStart"; close; } mes "Bestätigung fehlgeschlagen"; close; break; } case 2: { next; mes "^3399FF[Disguise CP]^000000"; mes "Bestätigen sie durch die Eingabe von STOP."; input .@confirm$; if (.@confirm$ == "STOP") { donpcevent "guessAnnouncer::OnGMStop"; close; } mes "Bestätigung fehlgeschlagen"; close; break; } case 3: { next; mes "^3399FF[Disguise CP]^000000"; mes "Bitte gib eine neue Nummer ein."; input $guessrounds; if ($guessrounds > 30) set $guessrounds, 30; else if ($guessrounds < 1) set $guessrounds, 1; close; } case 4: { next; mes "^3399FF[Disguise CP]^000000"; mes "Bitte gib eine Preis ID ein."; input .@guessprizeid; if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;} set $guessprize, .@guessprizeid; next; mes "^3399FF[Disguise CP]^000000"; mes "Bitte gib die Anzahl der Preise an."; input .@guessprizeamount; if (!.@guessprizeamount) set .@guessprizeamount,1 ; set $guessprizecount,.@guessprizeamount; next; mes "^3399FF[Disguise CP]^000000"; mes "Der Preis wurde zu ^E50000 "+ getitemname($guessprize)+ "^000000 und die Menge ^E50000 " +$guessprizecount+"^000000"; close; } case 5: { next; mes "^3399FF[Disguise CP]^000000"; mes "Schönen Tag noch."; close; } } }
  20. load jRo and twRo open the grf and search
×
×
  • Create New...