101Level - Foro

[NPC] Reciclador de cartas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Atlas

  • *
  • 643
  • 19
  • Actividad:
    0%
  • Sexo: Femenino
  • Ante la duda gas ~
[NPC] Reciclador de cartas
« en: 15 de Agosto de 2013, 00:41 »
Bueno aqui os dejo un reciclador de cartas, consiste en que le traes una carta random y poring coin y el npc te otorga una old card album.

Código: Lua
  1. //////////////////////////////////
  2. //===== Script =======================================
  3. //= Atlas Script
  4. //===== By: ==================================================
  5. //= Atlas
  6. //===== Version: =====================================
  7. //= 1.0
  8. //===== Compatible =====================================
  9. //= Hercules - rAthena
  10. //===== Additional Comments: =================================
  11. //============================================================
  12. prontera,184,193,1      script  Vincent::recard1        899,{
  13.  
  14.         set .@NpcName$,"[^8000FFVincent^000000]";
  15.        
  16.         cutin "sc_vicente01",2;
  17.         mes .@NpcName$;
  18.         mes "Hey, hey, hey!";
  19.         mes "Tu, ven aqui!";
  20.         next;
  21.         cutin "",255;
  22.         mes "[^0080FF"+strcharinfo(0)+"^000000]";
  23.         mes     "Quien, yo?";
  24.         next;
  25.         cutin "sc_vicente01",2;
  26.         mes .@NpcName$;
  27.         mes "Exactamente!";
  28.         mes "Te interesaria reciclar una carta?";
  29.         mes "Es decir, tu me das una carta, los materiales y yo te doy un ^B0A361Old Card Album^000000!";
  30.         next;
  31.         mes .@NpcName$;
  32.         mes "Solo necesito:";
  33.         mes "- Una ^FE2E2ECard^000000 cualquiera";
  34.         mes "- 100 ^F79F81Poring Coin^000000";
  35.         mes " ";
  36.         mes "Que me dices, hay trato?";
  37.         next;
  38.         switch(select("Si!:No..")) {
  39.                 case 1:
  40.                         mes .@NpcName$;
  41.                         mes "Que carta quieres reciclar?";
  42.                         next;  
  43.                         deletearray @inventorylist_id;
  44.                         deletearray @inventorylist_count;
  45.                         deletearray @menulist$;
  46.                         getinventorylist;
  47.                         set @j,0;
  48.                         for ( set @i,0; @i < @inventorylist_count ; set @i, @i + 1 ) {
  49.                                 if (@inventorylist_id[@i] >= 4001 && @inventorylist_id[@i] <= 4555) {
  50.                                         set @menulist$[@j],getitemname(@inventorylist_id[@i]);
  51.                                         set @j,@j+1;
  52.                                 }
  53.                         }
  54.                         menu @menulist$[0],L_m0,@menulist$[1],L_m1,@menulist$[2],L_m2,@menulist$[3],L_m3,@menulist$[4],L_m4,"^2E64FECancelar^000000",L_exit;
  55.                         end;
  56.  
  57. L_m0:
  58.         mes .@NpcName$;
  59.         mes "Estas seguro de querer reciclar tu";
  60.         mes "^FE2E2E"+@menulist$[0]+"^000000?";
  61.         next;
  62.         menu "Si",-,"No!",L_exit;
  63.         if ( countitem(7539) < 100 ) goto L_NoCP;
  64.         delitem @menulist$[0],1;
  65.         delitem 7539,100;
  66.         getitem 616,1;
  67.         mes .@NpcName$;
  68.         mes "Es un placer hacer negocios contigo!";
  69.         close2;
  70.         cutin "",255;
  71.         end;
  72.        
  73. L_m1:
  74.         mes .@NpcName$;
  75.         mes "Estas seguro de querer reciclar tu";
  76.         mes "^FE2E2E"+@menulist$[1]+"^000000?";
  77.         next;
  78.         menu "Si",-,"No!",L_exit;
  79.         if ( countitem(7539) < 100 ) goto L_NoCP;
  80.         delitem @menulist$[1],1;
  81.         delitem 7539,100;
  82.         getitem 616,1;
  83.         mes .@NpcName$;
  84.         mes "Es un placer hacer negocios contigo!";
  85.         close2;
  86.         cutin "",255;
  87.         end;
  88.        
  89. L_m2:
  90.         mes .@NpcName$;
  91.         mes "Estas seguro de querer reciclar tu";
  92.         mes "^FE2E2E"+@menulist$[2]+"^000000?";
  93.         next;
  94.         menu "Si",-,"No!",L_exit;
  95.         if ( countitem(7539) < 100 ) goto L_NoCP;
  96.         delitem @menulist$[2],1;
  97.         delitem 7539,100;
  98.         getitem 616,1;
  99.         mes .@NpcName$;
  100.         mes "Es un placer hacer negocios contigo!";
  101.         close2;
  102.         cutin "",255;
  103.         end;
  104.        
  105. L_m3:
  106.         mes .@NpcName$;
  107.         mes "Estas seguro de querer reciclar tu";
  108.         mes "^FE2E2E"+@menulist$[3]+"^000000?";
  109.         next;
  110.         menu "Si",-,"No!",L_exit;
  111.         if ( countitem(7539) < 100 ) goto L_NoCP;
  112.         delitem @menulist$[3],1;
  113.         delitem 7539,100;
  114.         getitem 616,1;
  115.         mes .@NpcName$;
  116.         mes "Es un placer hacer negocios contigo!";
  117.         close2;
  118.         cutin "",255;
  119.         end;
  120.        
  121. L_m4:
  122.         mes .@NpcName$;
  123.         mes "Estas seguro de querer reciclar tu";
  124.         mes "^FE2E2E"+@menulist$[4]+"^000000?";
  125.         next;
  126.         menu "Si",-,"No!",L_exit;
  127.         if ( countitem(7539) < 100 ) goto L_NoCP;
  128.         delitem @menulist$[4],1;
  129.         delitem 7539,100;
  130.         getitem 616,1;
  131.         mes .@NpcName$;
  132.         mes "Es un placer hacer negocios contigo!";
  133.         close2;
  134.         cutin "",255;
  135.         end;
  136.        
  137. L_NoCP:
  138.         mes .@NpcName$;
  139.         mes "Te faltan ^F79F81Poring Coin^000000,";
  140.         mes "el trato estaba en unas 100.";
  141.         close2;
  142.         cutin "",255;
  143.         emotion 23,1;
  144.         end;
  145.                        
  146.                 case 2:
  147. L_exit:
  148.                         mes .@NpcName$;
  149.                         mes "Vaya vaya, si resulta que no tienes madera para los negocios...";
  150.                         close2;
  151.                         cutin "",255;
  152.                         emotion 23,1;
  153.                         end;
  154.         }
  155.        
  156. OnInit:
  157.         waitingroom "Reciclador de Cartas",0;
  158.         end;
  159. }
« última modificación: 15 de Agosto de 2013, 00:42 por Atlas »


negroronald

Re:[NPC] Reciclador de cartas
« Respuesta #1 en: 01 de Mayo de 2014, 22:10 »
Hola gracias muy weno me sirvio
« última modificación: 01 de Mayo de 2014, 22:11 por negroronald »

Desconectado Atlas

  • *
  • 643
  • 19
  • Actividad:
    0%
  • Sexo: Femenino
  • Ante la duda gas ~
Re:[NPC] Reciclador de cartas
« Respuesta #2 en: 22 de Mayo de 2014, 00:20 »
De nada si tienes alguna duda, colócala y te ayudaremos!

Desconectado Natsu

  • *
  • 11
  • -4
  • Actividad:
    0%
  • Sexo: Masculino
Re:[NPC] Reciclador de cartas
« Respuesta #3 en: 21 de Agosto de 2017, 16:48 »
Vamos a probarlo, muchísimas gracias


Desconectado Daegaladh

  • *
  • *
  • 1.656
  • 118
  • Actividad:
    20%
  • Sexo: Masculino
  • ShadowRO
Re:[NPC] Reciclador de cartas
« Respuesta #4 en: 22 de Agosto de 2017, 02:35 »
Cerrado por necropost.


 

11 cartas Nuevas de Port Malaya

Iniciado por iraciz

Respuestas: 9
Vistas: 2027
Último mensaje 20 de Diciembre de 2013, 00:45
por jochi