Advertisement
kazmadan

lobbywin

Jan 2nd, 2018
202
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.92 KB | None | 0 0
  1.  
  2. on *:TEXT:!lobbywin *:#:{
  3. if ($nick isop $chan) || ($regcheck($nick)) {
  4.  
  5. if ( %2p == $null || %1p == $null ) {
  6. msg $chan $nick <- No one is playing right now
  7. }
  8.  
  9. elseif ($2 != 1p ) && ($2 != 2p) {
  10. msg # $nick <- Incorrect syntax - !lobbywin 1p/2p
  11.  
  12. }
  13. else {
  14.  
  15. var %saltyWinner
  16. var %saltyLoser
  17.  
  18. if ($2 == 1p ) {
  19.  
  20. var %saltyWinner = %1p
  21. var %saltyLoser = %2p
  22.  
  23. set %odds $calc( %pot2 / %pot1 )
  24.  
  25. eloreport %1p %2p %lobbygame
  26. ;msg $chan Reported a game - %1p beating %2p
  27. lobbyTitle %1p %2p
  28.  
  29. }
  30. if ($2 == 2p ) {
  31.  
  32. var %saltyWinner = %2p
  33. var %saltyLoser = %1p
  34.  
  35. set %odds $calc(%pot1 / %pot2)
  36.  
  37. ;/msg # 2p was the winner. The odds were %odds to 1
  38. eloreport %2p %1p %lobbygame
  39. ;msg $chan Reported a game - %2p beating %1p
  40. ;lobbyTitle %1p %2p
  41. ;lobbytitle is disabled for performance
  42.  
  43. }
  44.  
  45. if ($hget(saltyTable) == saltytable) {
  46. msg # %SaltyWinner was the winner. The odds were %odds to 1
  47.  
  48.  
  49. echo -a pot was %pot1 and %pot2
  50.  
  51. var %count = $hget(saltytable,0).data
  52.  
  53. if ( %pot1 > 0 ) && ( %pot2 > 0 ) {
  54.  
  55. while (%count > 0) {
  56.  
  57. var %curName = $hget(saltytable,%count).item
  58. var %bet = $gettok($hget(saltytable,%count).data,1,32)
  59. var %target = $gettok($hget(saltytable,%count).data,2,32)
  60.  
  61. if ( %target == $2) {
  62.  
  63. incElo %curName saltybrett $calc(%bet * %odds)
  64. incWin %curName saltybrett
  65. echo %curName bet %bet dollars on %target $+ , odds were %odds gaining + $calc(%bet * %odds)
  66.  
  67. }
  68.  
  69. else {
  70. incLoss %curName saltybrett
  71. decElo %curName saltybrett %bet
  72.  
  73. if ($getelo(%curName, saltybrett) < 0) {
  74.  
  75. setelo %curName saltybrett 0
  76. }
  77.  
  78. }
  79. ;setvar %curName cash $calc($getvar(%curName,cash) + $getvar(%curName,bet) + $getvar(%curName,bet)*%odds)
  80.  
  81. dec %count
  82. /echo lowering count
  83.  
  84. }
  85. ;makeleader saltybrett
  86.  
  87.  
  88. }
  89. else {
  90. msg $chan No betting occured for one side.
  91. }
  92.  
  93. }
  94.  
  95. else {
  96. msg $chan Reported a game - %saltyWinner beating %saltyLoser
  97. ;makeleader %lobbygame
  98. }
  99.  
  100. ;eloreport %saltyWinner %saltyLoser %lobbygame
  101.  
  102. ;lobbyTitle %1p %2p
  103.  
  104. ;disabling makeleader for performance
  105. ;makeleader %lobbygame
  106. set %1p $null
  107. set %2p $null
  108. /wipelobby
  109. set %clearing 1
  110. ;timerWipea 1 4 set %1p $null
  111. ;timerWipeb 1 4 set %2p $null
  112. ;timerWipec 1 2 wipeLobby
  113. timerWiped 1 2 set %clearing 0
  114. ;msg # wiping
  115.  
  116. }
  117.  
  118. }
  119. else {
  120. msg $chan $nick <- You must be a mod or regular to report.
  121. }
  122.  
  123.  
  124.  
  125.  
  126.  
  127. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement