Welcome! Here you can paste sources and general debugging text, You can even set yourself a password if you want to keep it just for yourself.

Posted by Target on February Sat 21st 1:03 AM - Never Expires - Views: 424

  1.               set #lpc 500
  2.  set %Guilda [Calangos do Nordeste]
  3.  set %2space #spc , #spc
  4.  set %tempo #scnt2 + 5
  5.  set %Cor . 0 Aqua
  6.  set %Cor . 1 White
  7.  set %Cor . 2 Fuchsia
  8.  set %Cor . 3 Gray
  9.  set %Cor . 4 Green
  10.   set %Cor . 5 Lime
  11.  set %Cor . 6 Maroon
  12.  set %Cor . 7 Olive
  13.  set %Cor . 8 Purple
  14.  set %Cor . 9 Silver
  15.  set %Cor . 10 Teal
  16.  set %TituloNPC , , #spc
  17.  set %TituloGente #spc , , , #spc
  18.  set %Ignorados #CharID , _
  19.   set %RepIni 1_4_5_6
  20.  set %Gente IS_HS_XU_AV
  21.  set %NBotoes 0
  22.  set #MenuButton Nenhum
  23.  set %TempoAqui 0
  24.  gosub Menu
  25.  
  26. Main:
  27.  gosub MudarCor
  28.  gosub AquiAqui
  29.  
  30.  
  31.  
  32. ignoreitem reset
  33.  
  34.  gosub AvaliaDistancia
  35.  
  36. ignoreitem %Ignorados
  37.  finditem %Gente
  38.  if #FindCnt = 0 && #MenuButton = Nenhum
  39.    goto Main
  40.  if ( #FindCnt = 0 || %NBotoes >= 8 ) && #MenuButton <> Nenhum
  41.     goto AvaliaBotoes
  42.  for #FindIndex 1 #FindCnt
  43.  {
  44.  event property #FindID
  45.  
  46. if %TituloNPC in #Property && %TituloGente notin #Property
  47.  set %NPC 1
  48.    else
  49.     set %NPC 0
  50.  
  51. if %Guilda in #Property || #FindRep notin %RepIni || %NPC = 1
  52.   set %Ignorados %Ignorados , #FindID , _
  53.  
  54. if #FindID notin %Ignorados && %NBotoes <= 14
  55.  {
  56.    event property #FindID
  57.    set %NomeTarget #Property
  58.  
  59.   Gosub GetLenght %NomeTarget
  60.    Gosub RemoveCifrao
  61.  
  62.   Gosub GetLenght %NomeTarget
  63.    GoSub RemoveEspacoFinal
  64.  
  65.   if %TituloGente in %NomeTarget
  66.    {
  67.    Gosub GetLenght %NomeTarget
  68.    Gosub RetiraSufixo
  69.    }
  70.  
  71.   if [ in %NomeTarget
  72.    {
  73.     Gosub GetLenght %NomeTarget
  74.    Gosub RetiraGuilda
  75.    }
  76.  
  77.   if ( in %NomeTarget
  78.    {
  79.    Gosub GetLenght %NomeTarget
  80.    Gosub RetiraPatente
  81.    }
  82.  
  83.   if %2space in %NomeTarget
  84.    Gosub RetiraPrefixo %NomeTarget
  85.  
  86.   Gosub GetLenght %NomeTarget
  87.    if %Lenght > 0
  88.    {
  89.     Gosub AdicionaTarget #FindID %NomeTarget #FindRep
  90.     set %Ignorados %Ignorados , #FindID , _
  91.    }
  92.  }
  93.  }
  94.  goto Main
  95.  
  96. ; =============== AVALIA BOTOES ==================
  97.  
  98. AvaliaBotoes:
  99.  
  100. if Target in #MenuButton
  101.    {
  102.    str del #MenuButton 1 6
  103.    gosub Target #StrRes
  104.    }
  105.  
  106. if Amigos in #MenuButton
  107.    {
  108.    str del #MenuButton 1 6
  109.    set %n #StrRes
  110.    gosub RemoveTarget #StrRes
  111.     set %Target . #StrRes N/A
  112.    if %n < %NBotoes
  113.    set %NBotoes %n
  114.    }
  115.  
  116. if Fechar in #MenuButton
  117.  {
  118.    str del #MenuButton 1 6
  119.    set %n #StrRes
  120.  
  121.   menu delete Target , %n
  122.    str Pos %Ignorados %Target . #StrRes
  123.     set %Posicao #StrRes
  124.  
  125.   str Len %Target . %n
  126.    set %Lenght #StrRes + 1
  127.  
  128.   str Del %Ignorados %Posicao %Lenght
  129.  
  130.   set %Ignorados #StrRes
  131.    if %n < %NBotoes
  132.    set %NBotoes %n
  133.  
  134.   set %Target . %n N/A
  135.   }
  136.  
  137. if #MenuButton = Reset
  138.  {
  139.  for %i 0 14
  140.  {
  141.    gosub RemoveTarget %i
  142.    set %Target . %i N/A
  143.  }
  144.    set %Ignorados _
  145.    set %NBotoes 0
  146.  }
  147.  
  148. if #Menubutton = CLOSED
  149.     halt
  150.  set #MenuButton Nenhum
  151.   goto Main
  152.  
  153. ;================ CLICK-SET TARGET ===============
  154.  
  155. sub Target
  156.    {
  157.     if %Target . %1 <> N/A
  158.  {
  159.  set #LTargetID %Target . %1
  160.  set #LTargetkind 1
  161.  set %TempoAqui 0
  162.  }
  163.      set #MenuButton Nenhum
  164.     return
  165.  }
  166.  
  167. ;================ REMOVE TARGET ==================
  168.  
  169. sub RemoveTarget
  170.  {
  171.    menu delete Target , %1
  172.    return
  173.  }
  174.  
  175. ;================ ADICIONA TARGET ================
  176.  
  177. sub AdicionaTarget
  178.  {
  179.    while %Target . %NBotoes <> N/A
  180.    set %NBotoes %NBotoes + 1
  181.    if %NBototes > 14 ; nš de targets -1
  182.    return
  183.    set %Target . %NBotoes #FindID
  184.    set %NomeTarget . %NBotoes %2
  185.     set %TargetRep . %NBotoes %3
  186.    if %NBotoes < 3
  187.    set %y 20
  188.    if %NBotoes >= 3 && %NBotoes < 6
  189.    set %y 80
  190.    if %NBotoes >= 6 && %NBotoes < 9  ; Terminava assim if %NBotoes >= 6
  191.     set %y 140
  192.    if %NBotoes >= 9 && %NBotoes < 12
  193.    set %y 200
  194.    if %NBotoes >= 12
  195.    set %y 260
  196.    set %j %NBotoes % 3
  197.    set %x 10 + ( 70 * %j )
  198.    menu Font Color White
  199.    if %3 = 1
  200.     {
  201.  menu Font Color Black
  202.  menu Font BGColor Aqua
  203.    }
  204.    if %3 = 4
  205.  menu Font BGColor Gray
  206.    if %3 = 5
  207.    {
  208.  menu Font Color Black
  209.  menu Font BGColor $000080FF
  210.    }
  211.    if %3 = 6
  212.  menu Font BGColor $003838DE
  213.     menu Font Size 7
  214.    menu Font Style b
  215.    menu Button Target , %NBotoes %x %y 75 25 %2
  216.    set %NBotoes %NBotoes + 1
  217.    return
  218.  }
  219.  
  220. ;================= ABRE MENU =====================
  221.  sub Menu
  222.   {
  223.  set %c 0
  224.  menu Font Size 7
  225.  menu Window Color Black
  226.  menu window title Targets
  227.  menu Font BGColor Black
  228.  menu Font Color Silver
  229.  menu Font Style b
  230.  menu show 400 400
  231.  menu window size 230 330 ;Tamanho da tela
  232.   for %i 0 4    ;Matriz 3x3 numero de alvos
  233.  {
  234.  for %j 0 2   ;Matriz 3x3 numero de alvos
  235.  {
  236.  set %x 10 + ( 70 * %j )
  237.  set %y 20 + ( 60 * %i )
  238.  
  239. set %x2 60 + ( 70 * %j )
  240.  set %y2 2 + ( 60 * %i )
  241.  
  242.  set %x3 45 + ( 70 * %j )
  243.  set %y3 2 + ( 60 * %i )
  244.  menu Font BGColor btnface
  245.  menu Font Color Black
  246.  set %n %c + 1
  247.  menu Button Target , %c %x %y 75 25 %n  ;Botoes alvos largura e altura
  248.  menu Font BGColor Red
  249.   menu Button Fechar , %c %x2 %y2 15 18 X
  250.  menu Font BGColor Lime
  251.  menu Font Color Black
  252.  menu Button Amigos , %c %x3 %y3 15 18 F
  253.  set %c %c + 1
  254.  }
  255.  }
  256.  menu Font BGColor White
  257.  menu Font Color Black
  258.   menu Button Reset 80 295 75 25 Reset  ;Botao Reset, posicao x e y, largura e altura
  259.  return
  260.  }
  261.  
  262. ;================ AJEITA NOME ===================
  263.  
  264. sub RemoveCifrao
  265.  {
  266.  str del %1 %Lenght %Lenght
  267.   set %NomeTarget #strres
  268.  return
  269.  }
  270.  
  271. sub RemoveEspacoFinal
  272.  {
  273.  set %f %Lenght - 1
  274.  str del %1 1 %f
  275.  if #spc in #strres
  276.     {
  277.  str del %1 %Lenght %Lenght
  278.  set %NomeTarget #strres
  279.     }
  280.   return
  281.  }
  282.  
  283. Sub GetLenght
  284.  {
  285.  str len %1
  286.  set %Lenght #strres
  287.  return
  288.  }
  289.  
  290. Sub RetiraPrefixo
  291.  {
  292.  str Pos %1 %2space
  293.  set %i #strres + 1
  294.  str del %1 1 %i
  295.  set %NomeTarget #strres
  296.   return
  297.  }
  298.  
  299. Sub RetiraSufixo
  300.  {
  301.    str Pos %1 %TituloGente
  302.    set %i #strres
  303.    str del %1 %i %Lenght
  304.    set %NomeTarget #strres
  305.    return
  306.  }
  307.  
  308. Sub RetiraGuilda
  309.  {
  310.  str Pos %1 [
  311.   set %i #strres - 2
  312.  str del %1 %i %Lenght
  313.  set %NomeTarget #strres
  314.  return
  315.  }
  316.  
  317. sub RetiraPatente
  318.  {
  319.  str Pos %1 (
  320.  set %comeco #strres
  321.  str Pos %1 )
  322.  set %fim #strres + 1 - %comeco
  323.  str del %1 %comeco %fim
  324.   set %1 #strres
  325.  return
  326.  }
  327.  
  328. ;======= Avalia Cor do Target ==========
  329.  
  330. sub AvaliaDistancia
  331.  {
  332.  for %i 0 14
  333.    {
  334.  if %Target . %i <> N/A
  335.  {
  336.    finditem %Target . %i
  337.  
  338.   if %i < 3
  339.     set %y 20
  340.    if %i > 2 && %i < 6
  341.    set %y 80
  342.    if %i > 5 && %i < 9
  343.    set %y 140
  344.    if %i > 8 && %i < 13
  345.    set %y 200
  346.    if %i > 12 && %i < 16
  347.     set %y 260
  348.  
  349.   set %j %i % 3
  350.    set %x 10 + ( 70 * %j )
  351.    if %i < 3
  352.    set %y 20
  353.    if %i > 2 && %i < 6
  354.    set %y 80
  355.    if %i > 5 && %i < 9
  356.    set %y 140
  357.    if %i > 8 && %i < 13
  358.     set %y 200
  359.    if %i > 12 && %i < 16
  360.    set %y 260
  361.  
  362.   menu Font Color White
  363.  
  364.   if #FindCnt > 0 && #FindRep <> %TargetRep . %i
  365.    {
  366.  if #FindRep = 1
  367.  {
  368.    menu Font Color Black
  369.     menu Font BGColor Aqua
  370.  }
  371.  
  372. if #FindRep = 4
  373.  menu Font BGColor Gray
  374.  
  375. if #FindRep = 5
  376.  {
  377.     menu Font Color Black
  378.     menu Font BGColor $000080FF
  379.  }
  380.  
  381. if #FindRep = 6
  382.  menu Font BGColor $003838DE
  383.  
  384. set %TargetRep . %i #FindRep
  385.  
  386. menu Font Size 7
  387.  menu Font Style b
  388.  menu delete Target , %i
  389.  menu Button Target , %i %x %y 75 25 %NomeTarget . %i
  390.    }
  391.  
  392.   if #FindCnt = 0 && %TargetRep . %i <> 0
  393.   {
  394.    menu Font BGColor $282828
  395.    set %TargetRep . %i 0
  396.  
  397. menu Font Size 7
  398.  menu Font Style b
  399.  menu delete Target , %i
  400.  menu Button Target , %i %x %y 75 25 %NomeTarget . %i
  401.  }
  402.  }
  403.    }
  404.  return
  405.   }
  406.  
  407. sub AquiAqui
  408.  {
  409.  ignoreitem reset
  410.  finditem #LTargetID G_14
  411.  
  412. if #FindKind <> -1
  413.  {
  414.    event property #FindID
  415.  
  416.   if %Guilda notin #Property && #FindType in %Gente && #SCNT >= %TempoAqui
  417.     {
  418.    event ExMsg #FindID 0 53 TARGUET AQUI !!!
  419.    set %TempoAqui #SCNT + 4
  420.    }
  421.  
  422.   ignoreitem %Ignorados
  423.  }
  424.  return
  425.  }
Language:
To highlight particular lines, prefix each line with @@




© 2017  admin@YSblue (Implemented and Adapted) - Powered by PASTE 1.0