API tools faq
paste
johnlol

Disguise Hat Free

johnlol
May 10th, 2019
224
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VeriLog 13.34 KB | None | 0 0
raw download clone embed print report
  1. //===== By: ===============================================
  2. //= Gerardo (Black Game)
  3. //===== Current Version: ======================================
  4. //= 0.1
  5. //===== Compatible With: =====================================
  6. //= eAthena/3CeAM/rAthena
  7. //===== Description: =========================================
  8. //= NPCs of disguise headgear
  9. //===== Additional Comments: =================================
  10. //= Simple code.
  11. //= Data base with 9 tables.
  12. //============================================================
  13.  
  14. prontera,140,171,6  script  Disguise Hat    791,{
  15.     mes "[^FFA500Kafra Shop^000000]";
  16.     mes "Sistema de disfarce de item.";
  17.     switch(select("Ver lista de hat:Resetear HeadGear:Sair")){
  18.         next;
  19.         case 1:
  20.             mes "[^FFA500Kafra Shop^000000]";
  21.             mes "Escolha o tipo de HeadGear como";
  22.             next;
  23.             switch(select("Top HeadGear:Mid HeadGear:Low HeadGear:Sair")){
  24.             case 1:query_sql("SELECT id FROM disguise_head_1;",.@disguise_head_1[0]); goto L_disguise_head_1;
  25.             case 2:query_sql("SELECT id FROM disguise_mid;",.@disguise[0]); goto L_disguise_mid;
  26.             case 3:query_sql("SELECT id FROM disguise_low;",.@disguise[0]); goto L_disguise_low;
  27.             case 4:close;break;
  28.             }
  29. L_disguise_head_1:
  30.         mes "[^FFA500Kafra Shop^000000]";
  31.         mes "Selecione o Hat que quer.";
  32.         next;
  33.             set @numero1,0;
  34.             set @y,0;
  35.             set @Menu$,"";
  36.             set @Menu$,@Menu$ + "Next(76 - 150):";
  37.             for( set @i, 1; .@disguise_head_1[@y] != 0; set @i, @i + 1 ){
  38.                     set @numero1,@y+1;
  39.                     set @Menu$, @Menu$ + @numero1 + ". " + getitemname(.@disguise_head_1[@y]) + ":";
  40.                     set @y,@y+1;
  41.                     }
  42.    
  43.                     set @Menu$, @Menu$ + "Terminar";
  44.                     set @Option, 0;
  45.                         while( @Option != @y )
  46.                         {
  47.                             set @Option, select(@Menu$) - 2;
  48.                                 if( @Option == -1 )
  49.                                 {//Segundo nivel de 151 a 225
  50.                                     goto L_disguise_head_2;
  51.                                 }
  52.                             if( @Option < @y )
  53.                             {
  54.                                 set @Equip, getiteminfo(.@disguise_head_1[@Option], 5);
  55.                                 set @View, getiteminfo(.@disguise_head_1[@Option], 11);
  56.            
  57.                                 if( @Equip != -1 && @View > 0 ){
  58.                                     if(@Equip==1){
  59.                                         setlook 3,0;
  60.                                             }
  61.                                     if(@Equip==256){
  62.                                         setlook 4,0;
  63.                                             }
  64.                                     if(@Equip==512){
  65.                                         setlook 5,0;
  66.                                             }
  67.                                     if(@Equip==513){
  68.                                         setlook 5,0;
  69.                                         setlook 3,0;
  70.                                             }
  71.                                     if(@Equip==768){
  72.                                         setlook 4,0;
  73.                                         setlook 5,0;
  74.                                             }
  75.                                     if(@Equip==769){
  76.                                         setlook 3,0;
  77.                                         setlook 4,0;
  78.                                         setlook 5,0;
  79.                                             }
  80.  
  81.                                         goto L_Disguise_All;
  82.                                 }
  83.                             }
  84.                         }
  85.                     next;
  86.                     mes "[^FFA500Kafra Shop^000000]";
  87.                     mes "Espero que você volte logo ^^.";
  88.                     close;
  89.                     break;
  90. L_disguise_head_2:
  91. query_sql("SELECT id FROM disguise_head_2;",.@disguise_head_2[0]);
  92.             set @numero1,75;
  93.             set @y1,0;
  94.             set @M1$,"";
  95.             set @M1$,@M1$ + "Next(151 - 225):";
  96.             for( set @i1, 1; .@disguise_head_2[@y1] != 0; set @i1, @i1 + 1 ){
  97.                     set @numero1,@numero1+1;
  98.                     set @M1$, @M1$ + @numero1 + ". " + getitemname(.@disguise_head_2[@y1]) + ":";
  99.                     set @y1,@y1+1;
  100.                     }
  101.    
  102.                     set @M1$, @M1$ + "Terminar";
  103.                     set @O1, 0;
  104.                         while( @O1 != @y1 )
  105.                         {
  106.                             set @O1, select(@M1$) - 2;
  107.                                 if( @O1 == -1 )
  108.                                 {//tercer nivel de 266 a 300
  109.                                     goto L_disguise_head_3;
  110.                                 }
  111.                             if( @O1 < @y1 )
  112.                             {
  113.                                 set @Equip, getiteminfo(.@disguise_head_2[@O1], 5);
  114.                                 set @View, getiteminfo(.@disguise_head_2[@O1], 11);
  115.            
  116.                                 if( @Equip != -1 && @View > 0 ){
  117.                                     if(@Equip==1){
  118.                                         setlook 3,0;
  119.                                             }
  120.                                     if(@Equip==256){
  121.                                         setlook 4,0;
  122.                                             }
  123.                                     if(@Equip==512){
  124.                                         setlook 5,0;
  125.                                             }
  126.                                     if(@Equip==513){
  127.                                         setlook 5,0;
  128.                                         setlook 3,0;
  129.                                             }
  130.                                     if(@Equip==768){
  131.                                         setlook 4,0;
  132.                                         setlook 5,0;
  133.                                             }
  134.                                     if(@Equip==769){
  135.                                         setlook 3,0;
  136.                                         setlook 4,0;
  137.                                         setlook 5,0;
  138.                                             }
  139.  
  140.                                         goto L_Disguise_All;
  141.                                 }
  142.                             }
  143.                         }
  144.                     next;
  145.                     mes "[^FFA500Kafra Shop^000000]";
  146.                     mes "Espero que você volte logo ^^.";
  147.                     close;
  148.                     break;
  149. L_disguise_head_3:
  150. query_sql("SELECT id FROM disguise_head_3;",.@disguise_head_3[0]);
  151.             set @numero1,150;
  152.             set @y1,0;
  153.             set @M1$,"";
  154.             set @M1$,@M1$ + "Next(266 - 300):";
  155.             for( set @i1, 1; .@disguise_head_3[@y1] != 0; set @i1, @i1 + 1 ){
  156.                     set @numero1,@numero1+1;
  157.                     set @M1$, @M1$ + @numero1 + ". " + getitemname(.@disguise_head_3[@y1]) + ":";
  158.                     set @y1,@y1+1;
  159.                     }
  160.    
  161.                     set @M1$, @M1$ + "Terminar";
  162.                     set @O1, 0;
  163.                         while( @O1 != @y1 )
  164.                         {
  165.                             set @O1, select(@M1$) - 2;
  166.                                 if( @O1 == -1 )
  167.                                 {//cuarto nivel de 301 a 375
  168.                                     goto L_disguise_head_4;
  169.                                 }
  170.                             if( @O1 < @y1 )
  171.                             {
  172.                                 set @Equip, getiteminfo(.@disguise_head_3[@O1], 5);
  173.                                 set @View, getiteminfo(.@disguise_head_3[@O1], 11);
  174.            
  175.                                 if( @Equip != -1 && @View > 0 ){
  176.                                     if(@Equip==1){
  177.                                         setlook 3,0;
  178.                                             }
  179.                                     if(@Equip==256){
  180.                                         setlook 4,0;
  181.                                             }
  182.                                     if(@Equip==512){
  183.                                         setlook 5,0;
  184.                                             }
  185.                                     if(@Equip==513){
  186.                                         setlook 5,0;
  187.                                         setlook 3,0;
  188.                                             }
  189.                                     if(@Equip==768){
  190.                                         setlook 4,0;
  191.                                         setlook 5,0;
  192.                                             }
  193.                                     if(@Equip==769){
  194.                                         setlook 3,0;
  195.                                         setlook 4,0;
  196.                                         setlook 5,0;
  197.                                             }
  198.  
  199.                                         goto L_Disguise_All;
  200.                                 }
  201.                             }
  202.                         }
  203.                     next;
  204.                     mes "[^FFA500Kafra Shop^000000]";
  205.                     mes "Espero que você volte logo ^^.";
  206.                     close;
  207.                     break;
  208. L_disguise_head_4:
  209. query_sql("SELECT id FROM disguise_head_4;",.@disguise_head_4[0]);
  210.             set @numero1,225;
  211.             set @y1,0;
  212.             set @M1$,"";
  213.             set @M1$,@M1$ + "Next(301 - 375):";
  214.             for( set @i1, 1; .@disguise_head_3[@y1] != 0; set @i1, @i1 + 1 ){
  215.                     set @numero1,@numero1+1;
  216.                     set @M1$, @M1$ + @numero1 + ". " + getitemname(.@disguise_head_4[@y1]) + ":";
  217.                     set @y1,@y1+1;
  218.                     }
  219.    
  220.                     set @M1$, @M1$ + "Terminar";
  221.                     set @O1, 0;
  222.                         while( @O1 != @y1 )
  223.                         {
  224.                             set @O1, select(@M1$) - 2;
  225.                                 if( @O1 == -1 )
  226.                                 {//quinto nivel de 376 a 425
  227.                                     goto L_disguise_head_5;
  228.                                 }
  229.                             if( @O1 < @y1 )
  230.                             {
  231.                                 set @Equip, getiteminfo(.@disguise_head_4[@O1], 5);
  232.                                 set @View, getiteminfo(.@disguise_head_4[@O1], 11);
  233.            
  234.                                 if( @Equip != -1 && @View > 0 ){
  235.                                     if(@Equip==1){
  236.                                         setlook 3,0;
  237.                                             }
  238.                                     if(@Equip==256){
  239.                                         setlook 4,0;
  240.                                             }
  241.                                     if(@Equip==512){
  242.                                         setlook 5,0;
  243.                                             }
  244.                                     if(@Equip==513){
  245.                                         setlook 5,0;
  246.                                         setlook 3,0;
  247.                                             }
  248.                                     if(@Equip==768){
  249.                                         setlook 4,0;
  250.                                         setlook 5,0;
  251.                                             }
  252.                                     if(@Equip==769){
  253.                                         setlook 3,0;
  254.                                         setlook 4,0;
  255.                                         setlook 5,0;
  256.                                             }
  257.  
  258.                                         goto L_Disguise_All;
  259.                                 }
  260.                             }
  261.                         }
  262.                     next;
  263.                     mes "[^FFA500Kafra Shop^000000]";
  264.                     mes "Espero que você volte logo ^^.";
  265.                     close;
  266.                     break;
  267. L_disguise_head_5:
  268. query_sql("SELECT id FROM disguise_head_5;",.@disguise_head_5[0]);
  269.             set @numero1,300;
  270.             set @y1,0;
  271.             set @M1$,"";
  272.             set @M1$,@M1$ + "Next(376 - 425):";
  273.             for( set @i1, 1; .@disguise_head_5[@y1] != 0; set @i1, @i1 + 1 ){
  274.                     set @numero1,@numero1+1;
  275.                     set @M1$, @M1$ + @numero1 + ". " + getitemname(.@disguise_head_5[@y1]) + ":";
  276.                     set @y1,@y1+1;
  277.                     }
  278.    
  279.                     set @M1$, @M1$ + "Terminar";
  280.                     set @O1, 0;
  281.                         while( @O1 != @y1 )
  282.                         {
  283.                             set @O1, select(@M1$) - 2;
  284.                                 if( @O1 == -1 )
  285.                                 {//sexto nivel de 451 a 466
  286.                                     goto L_disguise_head_6;
  287.                                 }
  288.                             if( @O1 < @y1 )
  289.                             {
  290.                                 set @Equip, getiteminfo(.@disguise_head_5[@O1], 5);
  291.                                 set @View, getiteminfo(.@disguise_head_5[@O1], 11);
  292.            
  293.                                 if( @Equip != -1 && @View > 0 ){
  294.                                     if(@Equip==1){
  295.                                         setlook 3,0;
  296.                                             }
  297.                                     if(@Equip==256){
  298.                                         setlook 4,0;
  299.                                             }
  300.                                     if(@Equip==512){
  301.                                         setlook 5,0;
  302.                                             }
  303.                                     if(@Equip==513){
  304.                                         setlook 5,0;
  305.                                         setlook 3,0;
  306.                                             }
  307.                                     if(@Equip==768){
  308.                                         setlook 4,0;
  309.                                         setlook 5,0;
  310.                                             }
  311.                                     if(@Equip==769){
  312.                                         setlook 3,0;
  313.                                         setlook 4,0;
  314.                                         setlook 5,0;
  315.                                             }
  316.  
  317.                                         goto L_Disguise_All;
  318.                                 }
  319.                             }
  320.                         }
  321.                     next;
  322.                     mes "[^FFA500Kafra Shop^000000]";
  323.                     mes "Espero que você volte logo ^^.";
  324.                     close;
  325.                     break;
  326. L_disguise_head_6:
  327. query_sql("SELECT id FROM disguise_head_6;",.@disguise_head_6[0]);
  328.             set @numero1,375;
  329.             set @y1,0;
  330.             set @M1$,"";
  331.             set @M1$,@M1$ + "Next(451 - 466):";
  332.             for( set @i1, 1; .@disguise_head_5[@y1] != 0; set @i1, @i1 + 1 ){
  333.                     set @numero1,@numero1+1;
  334.                     set @M1$, @M1$ + @numero1 + ". " + getitemname(.@disguise_head_6[@y1]) + ":";
  335.                     set @y1,@y1+1;
  336.                     }
  337.    
  338.                     set @M1$, @M1$ + "Terminar";
  339.                     set @O1, 0;
  340.                         while( @O1 != @y1 )
  341.                         {
  342.                             set @O1, select(@M1$) - 2;
  343.                                 if( @O1 == -1 )
  344.                                 {//septimo nivel ultimo
  345.                                     goto L_disguise_head_7;
  346.                                 }
  347.                             if( @O1 < @y1 )
  348.                             {
  349.                                 set @Equip, getiteminfo(.@disguise_head_6[@O1], 5);
  350.                                 set @View, getiteminfo(.@disguise_head_6[@O1], 11);
  351.            
  352.                                 if( @Equip != -1 && @View > 0 ){
  353.                                     if(@Equip==1){
  354.                                         setlook 3,0;
  355.                                             }
  356.                                     if(@Equip==256){
  357.                                         setlook 4,0;
  358.                                             }
  359.                                     if(@Equip==512){
  360.                                         setlook 5,0;
  361.                                             }
  362.                                     if(@Equip==513){
  363.                                         setlook 5,0;
  364.                                         setlook 3,0;
  365.                                             }
  366.                                     if(@Equip==768){
  367.                                         setlook 4,0;
  368.                                         setlook 5,0;
  369.                                             }
  370.                                     if(@Equip==769){
  371.                                         setlook 3,0;
  372.                                         setlook 4,0;
  373.                                         setlook 5,0;
  374.                                             }
  375.  
  376.                                         goto L_Disguise_All;
  377.                                 }
  378.                             }
  379.                         }
  380.                     next;
  381.                     mes "[^FFA500Kafra Shop^000000]";
  382.                     mes "Espero que você volte logo ^^.";
  383.                     close;
  384.                     break;
  385. L_disguise_head_7:
  386. query_sql("SELECT id FROM disguise_head_7;",.@disguise_head_7[0]);
  387.             set @numero1,455;
  388.             set @Menu$,"";
  389.             for( set @i, 0; .@disguise_head_7[@i] != 0; set @i, @i + 1 ){
  390.                     set @numero1,@numero1+1;
  391.                     set @Menu$, @Menu$ + @numero1 + ". " + getitemname(.@disguise_head_7[@i]) + ":";}
  392.    
  393.                     set @Menu$, @Menu$ + "Terminar";
  394.                     set @Option, 0;
  395.                         while( @Option != @i )
  396.                         {
  397.                             set @Option, select(@Menu$) - 1;
  398.                             if( @Option < @i )
  399.                             {
  400.                                 set @Equip, getiteminfo(.@disguise_head_7[@Option], 5);
  401.                                 set @View, getiteminfo(.@disguise_head_7[@Option], 11);
  402.            
  403.                                 if( @Equip != -1 && @View > 0 ){
  404.                                     if(@Equip==1){
  405.                                         setlook 3,0;
  406.                                             }
  407.                                     if(@Equip==256){
  408.                                         setlook 4,0;
  409.                                             }
  410.                                     if(@Equip==512){
  411.                                         setlook 5,0;
  412.                                             }
  413.                                     if(@Equip==513){
  414.                                         setlook 5,0;
  415.                                         setlook 3,0;
  416.                                             }
  417.                                     if(@Equip==768){
  418.                                         setlook 4,0;
  419.                                         setlook 5,0;
  420.                                             }
  421.                                     if(@Equip==769){
  422.                                         setlook 3,0;
  423.                                         setlook 4,0;
  424.                                         setlook 5,0;
  425.                                             }
  426.  
  427.                                         goto L_Disguise_All;
  428.                                 }
  429.                             }
  430.                         }
  431.                         next;
  432.                         mes "[^FFA500Kafra Shop^000000]";
  433.                         mes "Espero que você volte logo ^^.";
  434.                         close;
  435.                         break;
  436. L_disguise_mid:
  437. L_disguise_low:
  438.             set @numero1,0;
  439.             set @Menu$,"";
  440.             for( set @i, 0; .@disguise[@i] != 0; set @i, @i + 1 )
  441.                     set @Menu$, @Menu$ + @i +". " + getitemname(.@disguise[@i]) + ":";
  442.    
  443.                     set @Menu$, @Menu$ + "Terminar";
  444.                     set @Option, 0;
  445.                         while( @Option != @i )
  446.                         {
  447.                             mes "[^FFA500Kafra Shop^000000]";
  448.                             mes "Selecione o Hat que quer.";
  449.                             next;
  450.                             set @Option, select(@Menu$) - 1;
  451.                             if( @Option < @i )
  452.                             {
  453.                                 set @Equip, getiteminfo(.@disguise[@Option], 5);
  454.                                 set @View, getiteminfo(.@disguise[@Option], 11);
  455.            
  456.                                 if( @Equip != -1 && @View > 0 ){
  457.                                     if(@Equip==1){
  458.                                         setlook 3,0;
  459.                                             }
  460.                                     if(@Equip==256){
  461.                                         setlook 4,0;
  462.                                             }
  463.                                     if(@Equip==512){
  464.                                         setlook 5,0;
  465.                                             }
  466.                                     if(@Equip==513){
  467.                                         setlook 5,0;
  468.                                         setlook 3,0;
  469.                                             }
  470.                                     if(@Equip==768){
  471.                                         setlook 4,0;
  472.                                         setlook 5,0;
  473.                                             }
  474.                                     if(@Equip==769){
  475.                                         setlook 3,0;
  476.                                         setlook 4,0;
  477.                                         setlook 5,0;
  478.                                             }
  479.  
  480.                                         goto L_Disguise_All;
  481.                                 }
  482.                             }
  483.                         }
  484.                         next;
  485.                         mes "[^FFA500Kafra Shop^000000]";
  486.                         mes "Selecione o Hat que quer ^^.";
  487.                         close;
  488.                         break;
  489. L_Disguise_All:
  490.         if( @Equip & 1 ) setlook 3,@View;
  491.         if( @Equip & 256 ) setlook 4,@View;
  492.         if( @Equip & 512 ) setlook 5,@View;
  493.             mes "[^FFA500Kafra Shop^000000]";
  494.             mes "Obrigado por usar este sistema ^^";
  495.             close;
  496.             break;
  497.         case 2:
  498.             mes "[^FFA500Kafra Shop^000000]";
  499.             mes "Que parte quer redefinir?";
  500.                 switch(select("Top:Mid:Low:Todos:Sair")){
  501.                     case 1:setlook 4,0;mes "Pronto";close;break;
  502.                     case 2:setlook 5,0;mes "Pronto";close;break;
  503.                     case 3:setlook 3,0;mes "Pronto";close;break;
  504.                     case 4:setlook 3,0;setlook 5,0;setlook 4,0;mes "Pronto";close;break;
  505.                     case 5:close;break;
  506.                 }
  507.         case 3:
  508.             mes "[^FFA500Kafra Shop^000000]";
  509.             mes "Volte em breve";
  510.             close;
  511.             break;
  512.     }
  513.  
  514. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!