API tools faq
paste
Guest User

Untitled

a guest
Jun 20th, 2018
80
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.94 KB | None | 0 0
raw download clone embed print report
  1.  
  2. on 1:TEXT:*:?:{
  3. if (.map == $1) {
  4.  
  5. var %valdo = 1
  6. while %valdo <= %paskservid {
  7. if ($readini(serveriai.ini,valdo,$nick) == %valdo) {
  8. /sockudp -kn kkmapas $readini(serveriai.ini,ip,$readini(serveriai.ini,valdo,$nick)) $readini(serveriai.ini,portas,$readini(serveriai.ini,valdo,$nick)) $str($chr(255),4) $+ challenge rcon
  9. /set %keiciame $$2
  10. /set %kkrconas $readini(serveriai.ini,rcon,$readini(serveriai.ini,valdo,$nick))
  11. /msg $nick 15,1Komanda 11,1.map15,1 ivikdyta.
  12. }
  13. inc %valdo
  14. }
  15.  
  16. }
  17.  
  18. if (.pw == $1) {
  19.  
  20. var %valdo = 1
  21. while %valdo <= %paskservid {
  22. if ($readini(serveriai.ini,valdo,$nick) == %valdo) {
  23. /sockudp -kn kkpw $readini(serveriai.ini,ip,$readini(serveriai.ini,valdo,$nick)) $readini(serveriai.ini,portas,$readini(serveriai.ini,valdo,$nick)) $str($chr(255),4) $+ challenge rcon
  24. /set %keiciame $$2
  25. /set %kkrconas $readini(serveriai.ini,rcon,$readini(serveriai.ini,valdo,$nick))
  26. /msg $nick 15,1Komanda 11,1.pw15,1 ivikdyta.
  27. }
  28. inc %valdo
  29. }
  30.  
  31. }
  32.  
  33. if (.kick == $1) {
  34.  
  35. var %valdo = 1
  36. while %valdo <= %paskservid {
  37. if ($readini(serveriai.ini,valdo,$nick) == %valdo) {
  38. /sockudp -kn kkkick $readini(serveriai.ini,ip,$readini(serveriai.ini,valdo,$nick)) $readini(serveriai.ini,portas,$readini(serveriai.ini,valdo,$nick)) $str($chr(255),4) $+ challenge rcon
  39. /set %keiciame $$2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14
  40. /set %kkrconas $readini(serveriai.ini,rcon,$readini(serveriai.ini,valdo,$nick))
  41. /msg $nick 15,1Komanda 11,1.kick15,1 ivikdyta.
  42. }
  43. inc %valdo
  44. }
  45.  
  46. }
  47.  
  48. if (.live == $1) {
  49.  
  50. var %valdo = 1
  51. while %valdo <= %paskservid {
  52. if ($readini(serveriai.ini,valdo,$nick) == %valdo) {
  53. /sockudp -kn kklive $readini(serveriai.ini,ip,$readini(serveriai.ini,valdo,$nick)) $readini(serveriai.ini,portas,$readini(serveriai.ini,valdo,$nick)) $str($chr(255),4) $+ challenge rcon
  54. /set %kkrconas $readini(serveriai.ini,rcon,$readini(serveriai.ini,valdo,$nick))
  55. /msg $nick 15,1Komanda 11,1.live15,1 ivikdyta.
  56. }
  57. inc %valdo
  58. }
  59.  
  60. }
  61.  
  62. if (.warmup == $1) {
  63. var %valdo = 1
  64. while %valdo <= %paskservid {
  65. if ($readini(serveriai.ini,valdo,$nick) == %valdo) {
  66. /sockudp -kn kkwarmup $readini(serveriai.ini,ip,$readini(serveriai.ini,valdo,$nick)) $readini(serveriai.ini,portas,$readini(serveriai.ini,valdo,$nick)) $str($chr(255),4) $+ challenge rcon
  67. /set %kkrconas $readini(serveriai.ini,rcon,$readini(serveriai.ini,valdo,$nick))
  68. /msg $nick 15,1Komanda 11.warmup0 ivikdyta.
  69. }
  70. inc %valdo
  71. }
  72.  
  73. }
  74.  
  75. if (.gg == $1) {
  76. var %valdo = 1
  77. while %valdo <= %paskservid {
  78. if ($readini(serveriai.ini,valdo,$nick) == %valdo && %dabarsuka !== $nick) {
  79. //writeini serveriai.ini statusas $readini(serveriai.ini,valdo,$nick) laisvas
  80. //remini serveriai.ini valdosk $readini(serveriai.ini,valdo,$nick)
  81. //remini serveriai.ini valdo $nick
  82. /msg $nick 15,1Sekmingai atlaisvinote serveri.
  83. /msg %ekanalas 15,1Atsilaisvino 11,1# $+ %valdo $+ 15,1 serveris.
  84. }
  85. inc %valdo
  86. }
  87.  
  88. }
  89. if (.zaidejai == $1) {
  90. /sockudp -kn kkzaidejai 82.135.230.50 27035 $str($chr(255),4) $+ challenge rcon
  91. /msg $nick 15,1 $+ %data
  92. }
  93.  
  94. }
  95. on *:udpread:kkmapas:{
  96. sockread %kkmapas
  97. tokenize 32 %kkmapas
  98. if ($1 == $str($chr(255),4) $+ challenge) {
  99. sockudp -kn kkmapask $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ zaidejas $+ " changelevel %keiciame
  100. sockclose kkmapask
  101. }
  102. sockclose kkmapas
  103. }
  104.  
  105. on *:udpread:kkzaidejai:{
  106. sockread %kkzaidejai
  107. tokenize 32 %kkzaidejai
  108. if ($1 == $str($chr(255),4) $+ challenge) {
  109. sockudp -kn kkzaidejaik $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " status
  110. }
  111. sockclose kkzaidejai
  112. }
  113. on *:udpread:kkzaidejaik:{
  114. sockread %data
  115. var %return = $bvar(&temp,1,$bvar(&temp,0)).text, %name = $gettok(%return,21,92), %map = $gettok(%return,23,92), %players = $+($gettok(%return,7,92),/,$gettok(%return,13,92))
  116. .echo -a Name: %name
  117. .echo -a Map: %return
  118. sockclose kkzaidejaik
  119. }
  120.  
  121. on *:udpread:kkpw:{
  122. sockread %kkpw
  123. tokenize 32 %kkpw
  124. if ($1 == $str($chr(255),4) $+ challenge) {
  125. sockudp -kn kkpwk $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " sv_password " $+ %keiciame $+ "
  126. sockudp -kn kkpwk $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " say " $+ Demesio! Slaptazodis pakeistas i %keiciame $+ "
  127. sockclose kkpwk
  128. }
  129. sockclose kkpw
  130. }
  131.  
  132. on *:udpread:kkkick:{
  133. sockread %kkkick
  134. tokenize 32 %kkkick
  135. if ($1 == $str($chr(255),4) $+ challenge) {
  136. sockudp -kn kkkickk $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " kick " $+ %keiciame $+ "
  137. sockclose kkkickk
  138. }
  139. sockclose kkkick
  140. }
  141.  
  142. on *:udpread:kklive:{
  143. sockread %kklive
  144. tokenize 32 %kklive
  145. if ($1 == $str($chr(255),4) $+ challenge) {
  146. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " mp_startmoney "800"
  147. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " mp_roundtime "1.75"
  148. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " mp_freezetime "8"
  149. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " mp_forcecamera "2"
  150. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " mp_timelimit "0"
  151. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " mp_buytime "0.25"
  152. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " sv_restart "3"
  153. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " sv_restart "2"
  154. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " sv_restart "1"
  155. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " say "LIVE! LIVE! LIVE!"
  156. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " say "[G]ood [L]uck & [H]ave [F]un"
  157. sockudp -kn kklivek $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " say "Stay with %ekanalas $+ ! Play!"
  158. sockclose kklivek
  159. }
  160. sockclose kklive
  161. }
  162.  
  163. on *:udpread:kkwarmup:{
  164. sockread %kkwarmup
  165. tokenize 32 %kkwarmup
  166. if ($1 == $str($chr(255),4) $+ challenge) {
  167. sockudp -kn kkwarmupk $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " mp_startmoney "16000"
  168. sockudp -kn kkwarmupk $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " mp_roundtime "8"
  169. sockudp -kn kkwarmupk $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " mp_freezetime "0"
  170. sockudp -kn kkwarmupk $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " sv_restart "1"
  171. sockudp -kn kkwarmupk $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " say "This is warmup round! %ekanalas $+ "
  172. sockclose kkwarmupk
  173. }
  174. sockclose kkwarmup
  175. }
  176. sockread %gg
  177. tokenize 32 %g
  178. if ($1 == $str($chr(255),4) $+ challenge) {
  179. /sockudp -kn gg $sock($sockname).saddr $sock($sockname).sport $str($chr(255),4) $+ rcon $3 " $+ %kkrconas $+ " say " $+ Zaidimas Baiktas $+ "
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!