Advertisement
Guest User

SerinApprox 1.1 by Hobbes

a guest
Jul 29th, 2015
224
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.04 KB | None | 0 0
  1. //MISC
  2. on *:text:!calcinfo:#:{ msg $chan When this value is 'true', it means that calculcations from other regions nearby in the update order are calculcated due to lack of data on the region you querried. This will be less accurate then a straight up calculation. }
  3. //MAJOR
  4. on *:text:.approx &:#tigerhunting:{
  5. if !$sock(plusplus) { sockopen -e plusplus nationstatesplusplus.net 443 | set %regionplus $2 }
  6. set %yourchannel #tigerhunting
  7. else notice $nick Wait!
  8. }
  9. on *:sockopen:plusplus:{
  10. sockwrite -n $sockname GET /api/region/updatetime/?region= $+ %regionplus HTTP/1.0
  11. sockwrite -n $sockname $crlf
  12. }
  13.  
  14. on *:sockread:plusplus: {
  15. sockread &plus
  16. if $regex($bvar(&plus,1-).text,/"([^"]+)":("[^"]*"|[^"{][^,}]+)/g) {
  17. echo -ag 1 $regml(1)
  18. echo -ag 2 $regml(2)
  19. echo -ag 3 $regml(3)
  20. echo -ag 4 $regml(4)
  21. echo -ag 5 $regml(5)
  22. echo -ag 6 $regml(6)
  23. echo -ag 7 $regml(7)
  24. echo -ag 8 $regml(8)
  25. echo -ag 9 $regml(9)
  26. echo -ag 10 $regml(10)
  27. echo -ag 11 $regml(11)
  28. echo -ag 12 $regml(12)
  29. echo -ag 13 $regml(13)
  30. echo -ag 14 $regml(14)
  31. echo -ag 15 $regml(15)
  32. echo -ag 16 $regml(16)
  33. echo -ag 17 $regml(17)
  34. echo -ag 18 $regml(18)
  35. echo -ag 19 $regml(19)
  36. echo -ag 20 $regml(20)
  37. echo -ag 21 $regml(21)
  38. echo -ag 22 $regml(22)
  39. echo -ag 23 $regml(23)
  40. echo -ag 24 $regml(24)
  41. echo -ag 25 $regml(25)
  42. echo -ag 26 $regml(26)
  43. echo -ag 27 $regml(27)
  44. echo -ag 28 $regml(28)
  45. echo -ag 29 $regml(29)
  46. echo -ag 30 $regml(30)
  47. echo -ag 31 $regml(31)
  48. echo -ag 32 $regml(32)
  49. echo -ag 33 $regml(33)
  50. echo -ag 34 $regml(34)
  51. echo -ag 35 $regml(35)
  52. echo -ag 36 $regml(36)
  53. var %time = $calc($regml(18) / 1000 - 18000)
  54. if (%time < 0) %time = $calc(%time + 86400)
  55. msg %yourchannel  Major Update Calculation:  $duration(%time,3) (+/-  $floor($calc($regml(6) /1000))  seconds ). Is this calculation using data calculated from other regions?  $regml(16)  (Confused what this means? !calcinfo)
  56. msg %yourchannel This is region $regml(2) of $regml(4) total regions in NationStates!
  57. }
  58. unset %regionplus
  59. }
  60.  
  61. //MINOR
  62. on *:text:.minor &:#tigerhunting:{
  63. if !$sock(pluspluss) { sockopen -e pluspluss nationstatesplusplus.net 443 | set %regionplus $2 }
  64. set %yourchannel #tigerhunting
  65. else notice $nick Wait!
  66. }
  67. on *:sockopen:pluspluss:{
  68. sockwrite -n $sockname GET /api/region/updatetime/?region= $+ %regionplus HTTP/1.0
  69. sockwrite -n $sockname $crlf
  70. }
  71.  
  72. on *:sockread:pluspluss: {
  73. sockread &plus
  74. if $regex($bvar(&plus,1-).text,/"([^"]+)":("[^"]*"|[^"{][^,}]+)/g) {
  75. echo -ag 1 $regml(1)
  76. echo -ag 2 $regml(2)
  77. echo -ag 3 $regml(3)
  78. echo -ag 4 $regml(4)
  79. echo -ag 5 $regml(5)
  80. echo -ag 6 $regml(6)
  81. echo -ag 7 $regml(7)
  82. echo -ag 8 $regml(8)
  83. echo -ag 9 $regml(9)
  84. echo -ag 10 $regml(10)
  85. echo -ag 11 $regml(11)
  86. echo -ag 12 $regml(12)
  87. echo -ag 13 $regml(13)
  88. echo -ag 14 $regml(14)
  89. echo -ag 15 $regml(15)
  90. echo -ag 16 $regml(16)
  91. echo -ag 17 $regml(17)
  92. echo -ag 18 $regml(18)
  93. echo -ag 19 $regml(19)
  94. echo -ag 20 $regml(20)
  95. echo -ag 21 $regml(21)
  96. echo -ag 22 $regml(22)
  97. echo -ag 23 $regml(23)
  98. echo -ag 24 $regml(24)
  99. echo -ag 25 $regml(25)
  100. echo -ag 26 $regml(26)
  101. echo -ag 27 $regml(27)
  102. echo -ag 28 $regml(28)
  103. echo -ag 29 $regml(29)
  104. echo -ag 30 $regml(30)
  105. echo -ag 31 $regml(31)
  106. echo -ag 32 $regml(32)
  107. echo -ag 33 $regml(33)
  108. echo -ag 34 $regml(34)
  109. echo -ag 35 $regml(35)
  110. echo -ag 36 $regml(36)
  111. var %time = $calc($regml(32) / 1000 - 18000)
  112. if (%time < 0) %time = $calc(%time + 86400)
  113. msg %yourchannel  Minor Update Calculation:  $duration(%time,3) (+/-  $floor($calc($regml(24) /1000))  seconds ) Is this calculation using data calculated from other regions?  $regml(34)  (Confused what this means? !calcinfo)
  114. msg %yourchannel This is region $regml(20) of $regml(22) total regions in NationStates!
  115. }
  116. unset %regionplus
  117. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement