1
0

indik 2.1 KB

1234567891011121314151617181920212223242526272829303132
  1. # indik
  2. if $ARGS[0] = '1':
  3. if a >= 100 : set $ind = '<font color="green"> ██████████ <<a1>></font>'
  4. if a < 100 and a >= 90 :set $ind = '<font color="green"> █████████_ <<a1>></font>'
  5. if a < 90 and a >= 80 :set $ind = '<font color="green"> ████████__ <<a1>></font>'
  6. if a < 80 and a >= 70 :set $ind = '<font color="green"> ███████___ <<a1>></font>'
  7. if a < 70 and a >= 60 :set $ind = '<font color="blue"> ██████____ <<a1>></font>'
  8. if a < 60 and a >= 50 :set $ind = '<font color="blue"> █████_____ <<a1>></font>'
  9. if a < 50 and a >= 40 :set $ind = '<font color="blue"> ████______ <<a1>></font>'
  10. if a < 40 and a >= 30 :set $ind = '<font color="red"> ███_______ <<a1>></font>'
  11. if a < 30 and a >= 20 :set $ind = '<font color="red"> ██________ <<a1>></font>'
  12. if a < 20 and a >= 10 :set $ind = '<font color="red"> █_________ <<a1>></font>'
  13. if a < 10 and a >= 1 : set $ind = '<font color="red"> ▓_________ <<a1>></font>'
  14. if a <= 0 : set $ind = '<font color="red"> __________ <<a1>></font>'
  15. end
  16. if $ARGS[0] = '2':
  17. if a >= 100 : set $ind = '<font color="red"> ██████████ </font>'
  18. if a < 100 and a >= 90 :set $ind = '<font color="red"> █████████_ </font>'
  19. if a < 90 and a >= 80 :set $ind = '<font color="red"> ████████__ </font>'
  20. if a < 80 and a >= 70 :set $ind = '<font color="orange"> ███████___ </font>'
  21. if a < 70 and a >= 60 :set $ind = '<font color="orange"> ██████____ </font>'
  22. if a < 60 and a >= 50 :set $ind = '<font color="yellow"> █████_____ </font>'
  23. if a < 50 and a >= 40 :set $ind = '<font color="yellow"> ████______ </font>'
  24. if a < 40 and a >= 30 :set $ind = '<font color="green"> ███_______ </font>'
  25. if a < 30 and a >= 20 :set $ind = '<font color="green"> ██________ </font>'
  26. if a < 20 and a >= 10 :set $ind = '<font color="blue"> █_________ </font>'
  27. if a < 10 and a >= 1 : set $ind = '<font color="blue"> ▓_________ </font>'
  28. if a <= 0 : set $ind = '<font color="blue"> __________ </font>'
  29. end
  30. --- indik ---------------------------------