Advertisement
Antfield

Untitled

May 13th, 2017
437
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.03 KB | None | 0 0
  1. function main()
  2.  
  3. s=0
  4. m=0
  5. h=0
  6. d=0
  7. stop=false
  8. mark={""}
  9. markinsert=0
  10. ui.addTextArea(1,table.concat(mark),playerName,50,115,310,165,0x1b232a,0x000000)
  11. end
  12.  
  13.  
  14.  
  15. function eventLoop()
  16. -- Si no está parado
  17. if stop==false then
  18. s=s+0.5
  19. ui.addTextArea(0,"<font face='Soopafresh' size='25' color='#ff3c6e'><a href='event:stop'>Parar</a> - Reinicar - <a href='event:saved'>Guardar</a> - <b>"..d.." d "..h.." h "..m.." m "..s.." s</b></font>",name,50,61,700,40,0x1b232a,0x000000)
  20. if s==60 then
  21. s=0
  22. m=m+1
  23. end
  24. if m==60 then
  25. m=0
  26. h=h+1
  27. end
  28. if h==24 then
  29. h=0
  30. d=d+1
  31. end
  32. -- En caso de que esté parado
  33. else
  34. s=s
  35. m=m
  36. h=h
  37. d=d
  38. ui.updateTextArea(0,"<font face='Soopafresh' size='25' color='#ff3c6e'><a href='event:back'>Continuar</a> - <a href='event:reset'>Reiniciar</a> - <a href='event:saved'>Guardar</a> - <b>"..d.." d "..h.." h "..m.." m "..s.." s</b></font>",name)
  39. end
  40. end
  41.  
  42.  
  43.  
  44. function eventTextAreaCallback(textAreaId,name,cb)
  45. -- Para el cronómetro
  46. if (cb=="stop") then
  47. stop=true
  48. end
  49. -- Lo reactiva
  50. if (cb=="back") then
  51. stop=false
  52. end
  53. -- Reinicia pero solo si está parado
  54. if (cb=="reset") then
  55. s=0
  56. m=0
  57. h=0
  58. d=0
  59. ui.updateTextArea(0,"<font face='Soopafresh' size='25' color='#ff3c6e'><a href='event:back'>Continuar</a> - <a href='event:reset'>Reiniciar</a> - <a href='event:saved'>Guardar</a> - <b>"..d.." d "..h.." h "..m.." m "..s.." s</b></font>",name)
  60. end
  61. -- Guarda la marca de tiempo en una tabla
  62. if (cb=="saved") then
  63. ui.updateTextArea(1,table.concat(mark),name)
  64. if markinsert <5 then
  65. markinsert=markinsert+1
  66. table.insert(mark,markinsert,"<font face='Soopafresh' size='25' color='#ff3c6e'>"..markinsert..". <b>"..d.." d "..h.." h "..m.." m "..s.." s</b><br>")
  67. ui.updateTextArea(1,table.concat(mark),name)
  68. -- Al llegar al tope se borra
  69. else
  70. ui.updateTextArea(1,"",name)
  71. clearmark()
  72. end
  73. end
  74. end
  75.  
  76.  
  77.  
  78. -- Función para eliminar las marcas
  79. function clearmark()
  80. markinsert=0
  81. mark={""}
  82. end
  83.  
  84.  
  85.  
  86. main()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement