API tools faq
paste
Guest User

Untitled

a guest
Dec 8th, 2017
127
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 18.06 KB | None | 0 0
raw download clone embed print report
  1. alias sTankWars {
  2.   var %S = 0,%w1 = @sTankWars,%w2 = $+(%w1,Buffer)
  3.   if ($window(%w1)) {
  4.     window -a %w1
  5.     return
  6.   }
  7.   window -Bhp +d %w2 0 0 400 520
  8.   drawrect -rf %w2 64512 1 0 0 400 520
  9.   drawrect -rf %w2 13816530 1 0 0 20 10
  10.   drawrect -r %w2 16777215 1 0 0 20 10
  11.   drawrect -re %w2 16777215 1 2 2 2 2 2 6 2 2 16 2 2 2 16 6 2 2
  12.   drawcopy %w2 0 0 20 10 %w2 0 10
  13.   drawline -r %w2 16777215 1 5 50 50 50 62 80 62 60 72 50 72 90 62 100 40 60 30 60 30 80 70 105 50 150 20 150 5 100 20 110 30 140 40 140 50 110 25 100 5 50
  14.   drawline -r %w2 16777215 1 75 50 85 50 85 65 95 60 95 50 105 50 105 90 75 90 75 80 95 80 95 70 75 80 75 50
  15.   drawline -r %w2 16777215 1 75 92 85 92 85 100 95 92 105 92 90 105 100 105 100 115 90 115 90 110 85 110 85 115 75 115 75 92
  16.   drawtext -r %w2 16777215 webdings 40 69 114 …
  17.   drawtext -r %w2 16777215 webdings 40 69 116 …
  18.   drawtext -r %w2 16777215 webdings 40 71 114 …
  19.   drawtext -r %w2 16777215 webdings 40 71 116 …
  20.   drawtext -r %w2 8355711 webdings 40 70 115 …
  21.   drawtext -ro %w2 16777215 tahoma 20 102 130 'z
  22.   drawtext -ro %w2 16777215 tahoma 20 102 132 'z
  23.   drawtext -ro %w2 16777215 tahoma 20 104 130 'z
  24.   drawtext -ro %w2 16777215 tahoma 20 104 132 'z
  25.   drawtext -ro %w2 8355711 tahoma 20 103 131 'z
  26.   drawline -r %w2 16777215 1 107 50 174 50 174 80 150 70 150 150 130 150 130 70 107 80 107 50
  27.   drawline -r %w2 16777215 1 176 50 206 50 206 90 196 90 186 70 186 90 176 90 176 50
  28.   drawline -r %w2 16777215 1 186 60 196 60 196 75 186 60
  29.   drawline -r %w2 16777215 1 176 92 186 92 196 112 196 92 206 92 206 122 196 122 186 102 186 122 176 122 176 92
  30.   drawline -r %w2 16777215 1 176 124 186 124 186 134 196 124 206 124 190 139 206 139 206 150 196 150 196 145 186 145 186 150 176 150 176 124
  31.   drawline -r %w2 16777215 1 208 50 218 150 245 120 265 140 275 60 265 50 255 120 245 105 228 125 218 60 208 50
  32.   drawline -r %w2 16777215 1 277 50 307 50 307 90 297 90 287 70 287 90 277 90 277 50
  33.   drawline -r %w2 16777215 1 287 60 297 60 297 75 287 60
  34.   drawline -r %w2 16777215 1 277 92 307 92 307 102 292 107 307 122 297 122 287 112 287 122 277 122 277 92
  35.   drawline -r %w2 16777215 1 287 97 297 97 287 102 287 97
  36.   drawline -r %w2 16777215 1 277 124 307 124 307 134 287 134 307 134 307 150 277 150 277 140 297 140 277 140 277 124
  37.   drawfill -r %w2 8355711 16777215 6 51 76 51 76 93 108 51 177 51 177 93 177 125 210 53 278 51 278 93 278 125
  38.   drawrect -rfd %w2 8355711 1 5 160 5 15 3 3
  39.   drawrect -rd %w2 16777215 1 5 160 5 15 3 3
  40.   drawrect -rfd %w2 8355711 1 20 160 5 15 3 3
  41.   drawrect -rd %w2 16777215 1 20 160 5 15 3 3
  42.   drawrect -rfd %w2 8355711 1 10 160 10 15 3 3
  43.   drawrect -rd %w2 16777215 1 10 160 10 15 3 3
  44.   drawrect -rf %w2 8355711 1 13 155 4 15
  45.   drawrect -r %w2 16777215 1 13 155 4 15
  46.   drawrect -rfd %w2 8355711 1 30 155 5 15 3 3
  47.   drawrect -rd %w2 16777215 1 30 155 5 15 3 3
  48.   drawrect -rfd %w2 8355711 1 45 155 5 15 3 3
  49.   drawrect -rd %w2 16777215 1 45 155 5 15 3 3
  50.   drawrect -rfd %w2 8355711 1 35 155 10 15 3 3
  51.   drawrect -rd %w2 16777215 1 35 155 10 15 3 3
  52.   drawrect -rf %w2 8355711 1 38 160 4 15
  53.   drawrect -r %w2 16777215 1 38 160 4 15
  54.   drawrect -rfd %w2 8355711 1 55 155 15 5 3 3
  55.   drawrect -rd %w2 16777215 1 55 155 15 5 3 3
  56.   drawrect -rfd %w2 8355711 1 55 160 15 10 3 3
  57.   drawrect -rd %w2 16777215 1 55 160 15 10 3 3
  58.   drawrect -rfd %w2 8355711 1 55 170 15 5 3 3
  59.   drawrect -rd %w2 16777215 1 55 170 15 5 3 3
  60.   drawrect -rf %w2 8355711 1 60 163 15 4
  61.   drawrect -r %w2 16777215 1 60 163 15 4
  62.   drawrect -rfd %w2 8355711 1 85 155 15 5 3 3
  63.   drawrect -rd %w2 16777215 1 85 155 15 5 3 3
  64.   drawrect -rfd %w2 8355711 1 85 160 15 10 3 3
  65.   drawrect -rd %w2 16777215 1 85 160 15 10 3 3
  66.   drawrect -rfd %w2 8355711 1 85 170 15 5 3 3
  67.   drawrect -rd %w2 16777215 1 85 170 15 5 3 3
  68.   drawrect -rf %w2 8355711 1 80 163 15 4
  69.   drawrect -r %w2 16777215 1 80 163 15 4
  70.   drawrect -rfe %w2 255 1 5 180 3 3
  71.   drawrect -rfe %w2 32764 1 7 180 3 3
  72.   drawrect -rfe %w2 65535 1 6 182 3 3
  73.   drawrect -rfe %w2 65535 1 15 180 3 3
  74.   drawrect -rfe %w2 32764 1 17 180 3 3
  75.   drawrect -rfe %w2 255 1 16 182 3 3
  76.   drawrect -rfe %w2 65535 1 25 180 3 3
  77.   drawrect -rfe %w2 255 1 27 180 3 3
  78.   drawrect -rfe %w2 32764 1 26 182 3 3
  79.   drawcopy %w2 0 0 20 20 %w2 160 210
  80.   drawcopy %w2 0 0 20 20 %w2 200 210
  81.   drawcopy %w2 0 0 20 20 %w2 160 210
  82.   drawcopy %w2 0 0 20 20 %w2 20 230
  83.   drawcopy %w2 0 0 20 20 %w2 120 230
  84.   drawcopy %w2 0 0 20 20 %w2 240 230
  85.   drawcopy %w2 0 0 20 20 %w2 360 230
  86.   drawcopy %w2 0 0 20 20 %w2 80 270
  87.   drawcopy %w2 0 0 20 20 %w2 140 270
  88.   drawcopy %w2 0 0 20 20 %w2 220 270
  89.   drawcopy %w2 0 0 20 20 %w2 300 270
  90.   drawcopy %w2 0 0 20 20 %w2 40 310
  91.   drawcopy %w2 0 0 20 20 %w2 180 310
  92.   drawcopy %w2 0 0 20 20 %w2 340 310
  93.   drawcopy %w2 0 210 400 100 %w2 0 429 400 -100
  94.   window -aBCdfkpw0z +l @sTankWars -1 -1 400 400
  95.   drawrect -rf @sTankWars 0 1 0 0 400 400
  96.   while (%S <= 400) {
  97.     drawcopy %w2 0 0 20 10 %w1 %S 0
  98.     drawcopy %w2 0 0 20 10 %w1 %S 390
  99.     drawcopy %w2 0 0 20 10 %w1 0 %S
  100.     drawcopy %w2 0 0 20 10 %w1 0 $calc(%S + 10)
  101.     drawcopy %w2 0 0 20 10 %w1 380 %S
  102.     drawcopy %w2 0 0 20 10 %w1 380 $calc(%S + 10)
  103.     inc %S 20
  104.   }
  105.   hmake sTankWars 100
  106.   sMain
  107.   window %w1 $qt($mircexe) 15
  108.   titlebar %w1 by SykO
  109. }
  110. alias -l sMain {
  111.   var %w1 = @sTankWars
  112.   drawrect -rfn %w1 0 1 21 150 358 240
  113.   drawcopy -tn $+(%w1,Buffer) 64512 0 45 312 110 %w1 39 25
  114.   drawrect -rn %w1 2631720 1 125 160 150 20
  115.   drawrect -rn %w1 2631720 1 125 185 150 20
  116.   ;drawrect -rn %w1 2631720 1 125 210 150 20
  117.   drawrect -rn %w1 2631720 1 125 235 150 20
  118.   drawtext -ron %w1 8355711 tahoma 12 158.5 162 Create Server
  119.   drawtext -ron %w1 8355711 tahoma 12 166 187 Join Server
  120.   ;drawtext -ron %w1 8355711 tahoma 12 180 212 Scores
  121.   drawtext -ron %w1 8355711 tahoma 12 186.5 237 Help
  122.   hadd sTankWars Screen Main
  123.   hadd sTankWars Ani 1
  124.   hadd sTankWars AniX 0
  125.   hadd sTankWars AniT1T 0
  126.   hadd sTankWars AniT2T 0
  127.   hadd sTankWars AniE 0
  128.   hadd sTankWars AniBY 0
  129.   hadd sTankWars AniT 0
  130.   sAnimation
  131. }
  132. alias -l sAnimation {
  133.   var %w1 = @sTankWars,%w2 = $+(%w1,Buffer)
  134.   if (!$window(%w1)) || ($hget(sTankWars,Screen) != Main) return
  135.   :Credits
  136.   if (%Credits == true) {
  137.     drawtext -ron %w1 $rgb(%C1,%C1,%C1) tahoma 20 86 270 ShOwInG CrEaTiViTy™
  138.     drawtext -ron %w1 $rgb(%C2,%C2,%C2) tahoma 12 143 290 TheMexicanForce™
  139.     drawtext -ron %w1 $rgb(%C3,%C3,%C3) tahoma 10 168 310 Programmer
  140.     drawtext -ron %w1 $rgb(%C4,%C4,%C4) tahoma 10 186 324 SykO
  141.     drawtext -ron %w1 $rgb(%C5,%C5,%C5) tahoma 10 186.5 340 Tests
  142.     drawtext -ron %w1 $rgb(%C6,%C6,%C6) tahoma 10 181 354 NoBody
  143.     goto KlOwN
  144.   }
  145.   drawrect -rfn %w1 0 1 20 270 360 120
  146.   if ($hget(sTankWars,Ani) == 1) {
  147.     var %Tank1X1 = 55,%Tank2X1 = 80,%Tank1X2 = $calc($hget(sTankWars,AniX) + 20),%Tank2X2 = $calc(360 - $hget(sTankWars,AniX))
  148.     if ($hget(sTankWars,AniX) != 168) hinc sTankWars AniX 4
  149.     else hinc sTankWars Ani
  150.   }
  151.   if ($hget(sTankWars,Ani) == 2) || ($hget(sTankWars,Ani) == 4) {
  152.     var %Tank1X1 = 30,%Tank2X1 = 5,%Tank1X2 = $calc($hget(sTankWars,AniX) + 20),%Tank2X2 = $calc(360 - $hget(sTankWars,AniX))
  153.     if ($hget(sTankWars,AniBY) != 81) hinc sTankWars AniBY 3
  154.     else {
  155.       hadd sTankWars AniE 0
  156.       hinc sTankWars Ani
  157.     }
  158.     drawrect -rfn %w1 8355711 1 $calc(%Tank1X2 + 8) $calc(290 + $hget(sTankWars,AniBY)) 4 4
  159.     drawrect -rdn %w1 16777215 1 $calc(%Tank1X2 + 8) $calc(290 + $hget(sTankWars,AniBY)) 4 4
  160.     drawrect -rdn %w1 16777215 1 $calc(%Tank2X2 + 8) $calc(366 - $hget(sTankWars,AniBY)) 4 4
  161.   }
  162.   if ($hget(sTankWars,Ani) == 3) || ($hget(sTankWars,Ani) == 5) {
  163.     var %Tank1X1 = 30,%Tank2X1 = 5,%Tank1X2 = $calc($hget(sTankWars,AniX) + 20),%Tank2X2 = $calc(360 - $hget(sTankWars,AniX))
  164.     if ($hget(sTankWars,AniE) != 15) hinc sTankWars AniE 5
  165.     else {
  166.       hadd sTankWars AniBY 0
  167.       hinc sTankWars Ani
  168.       goto SykO
  169.     }
  170.     drawcopy -tn %w2 64512 $hget(sTankWars,AniE) 180 5 5 %w1 $calc(%Tank1X2 + 8) $calc(290 + $hget(sTankWars,AniBY))
  171.     drawcopy -tn %w2 64512 $hget(sTankWars,AniE) 180 5 5 %w1 $calc(%Tank2X2 + 8) $calc(366 - $hget(sTankWars,AniBY))
  172.   }
  173.   :SykO
  174.   if ($hget(sTankWars,Ani) == 6) {
  175.     var %Tank1X1 = 30,%Tank2X1 = 5,%Tank1X2 = $calc($hget(sTankWars,AniX) + 20),%Tank2X2 = $calc(360 - $hget(sTankWars,AniX)),%Tank2Text = Oh, no! DAMN key doesn't work!
  176.     if ($hget(sTankWars,AniT2T) != 40) hinc sTankWars AniT2T
  177.     else hinc sTankWars Ani
  178.     %Tank2Text = $left(%Tank2Text,$hget(sTankWars,AniT2T))
  179.     drawtext -rn %w1 16777215 tahoma 9 130 349 %Tank2Text
  180.     drawtext -rn %w1 16777215 tahoma 9 130 351 %Tank2Text
  181.     drawtext -rn %w1 16777215 tahoma 9 132 349 %Tank2Text
  182.     drawtext -rn %w1 16777215 tahoma 9 132 351 %Tank2Text
  183.     drawtext -rn %w1 0 tahoma 9 131 350 %Tank2Text
  184.   }
  185.   if ($hget(sTankWars,Ani) == 7) {
  186.     var %Tank1X1 = 30,%Tank2X1 = 5,%Tank1X2 = $calc($hget(sTankWars,AniX) + 20),%Tank2X2 = $calc(360 - $hget(sTankWars,AniX)),%Tank1Text = HaHaHaHaHa
  187.     if ($hget(sTankWars,AniT1T) != 16) hinc sTankWars AniT1T
  188.     else hinc sTankWars Ani
  189.     %Tank1Text = $left(%Tank1Text,$hget(sTankWars,AniT1T))
  190.     drawtext -rn %w1 16777215 tahoma 9 172 289 %Tank1Text
  191.     drawtext -rn %w1 16777215 tahoma 9 172 291 %Tank1Text
  192.     drawtext -rn %w1 16777215 tahoma 9 174 289 %Tank1Text
  193.     drawtext -rn %w1 16777215 tahoma 9 174 291 %Tank1Text
  194.     drawtext -rn %w1 8355711 tahoma 9 173 290 %Tank1Text
  195.   }
  196.   if ($hget(sTankWars,Ani) == 8) {
  197.     var %Tank1X1 = 30,%Tank2X1 = 5,%Tank1X2 = $calc($hget(sTankWars,AniX) + 20),%Tank2X2 = $calc(360 - $hget(sTankWars,AniX))
  198.     if ($hget(sTankWars,AniBY) != 81) hinc sTankWars AniBY 3
  199.     else {
  200.       hadd sTankWars AniE 0
  201.       hinc sTankWars Ani
  202.     }
  203.     drawrect -rfn %w1 8355711 1 $calc(%Tank1X2 + 8) $calc(290 + $hget(sTankWars,AniBY)) 4 4
  204.     drawrect -rdn %w1 16777215 1 $calc(%Tank1X2 + 8) $calc(290 + $hget(sTankWars,AniBY)) 4 4
  205.   }
  206.   if ($hget(sTankWars,Ani) == 9) {
  207.     var %Tank1X1 = 30,%Tank2X1 = 5,%Tank1X2 = $calc($hget(sTankWars,AniX) + 20),%Tank2X2 = $calc(360 - $hget(sTankWars,AniX))
  208.     if ($hget(sTankWars,AniE) != 15) hinc sTankWars AniE 5
  209.     else {
  210.       hadd sTankWars AniE 0
  211.       hinc sTankWars Ani
  212.       goto LokO
  213.     }
  214.     drawcopy -tn %w2 64512 $hget(sTankWars,AniE) 180 5 5 %w1 $calc(%Tank1X2 + 8) $calc(290 + $hget(sTankWars,AniBY))
  215.   }
  216.   :LokO
  217.   if ($hget(sTankWars,Ani) == 10) {
  218.     var %Tank1X1 = 30,%Tank2X1 = 5,%Tank1X2 = $calc($hget(sTankWars,AniX) + 20),%Tank2X2 = $calc(360 - $hget(sTankWars,AniX))
  219.     if ($hget(sTankWars,AniE) != 10) hinc sTankWars AniE
  220.     else {
  221.       hinc sTankWars Ani
  222.       goto KlOwN
  223.     }
  224.     drawcopy -tn %w2 64512 $iif($rand(0,1),5,$iif($rand(0,1),10,15)) 180 5 5 %w1 %Tank1X2 370
  225.     drawcopy -tn %w2 64512 $iif($rand(0,1),5,$iif($rand(0,1),10,15)) 180 5 5 %w1 $calc(%Tank1X2 + 5) 370
  226.     drawcopy -tn %w2 64512 $iif($rand(0,1),5,$iif($rand(0,1),10,15)) 180 5 5 %w1 $calc(%Tank1X2 + 10) 370
  227.     drawcopy -tn %w2 64512 $iif($rand(0,1),5,$iif($rand(0,1),10,15)) 180 5 5 %w1 $calc(%Tank1X2 + 15) 370
  228.     drawcopy -tn %w2 64512 $iif($rand(0,1),5,$iif($rand(0,1),10,15)) 180 5 5 %w1 $calc(%Tank1X2 + 20) 370
  229.   }
  230.   if ($hget(sTankWars,Ani) == 11) {
  231.     if ($hget(sTankWars,AniT) != 255) {
  232.       hinc sTankWars AniT 3
  233.       var %Credits = true,%C1 = $hget(sTankWars,AniT),%C2 = 0,%C3 = 0,%C4 = 0,%C5 = 0,%C6 = 0
  234.       goto Credits
  235.     }
  236.     else {
  237.       hadd sTankWars AniT 0
  238.       hinc sTankWars Ani
  239.     }
  240.   }
  241.   if ($hget(sTankWars,Ani) == 12) {
  242.     if ($hget(sTankWars,AniT) != 255) {
  243.       hinc sTankWars AniT 3
  244.       var %Credits = true,%C1 = 255,%C2 = $hget(sTankWars,AniT),%C3 = 0,%C4 = 0,%C5 = 0,%C6 = 0
  245.       goto Credits
  246.     }
  247.     else {
  248.       hadd sTankWars AniT 0
  249.       hinc sTankWars Ani
  250.     }
  251.   }
  252.   if ($hget(sTankWars,Ani) == 13) {
  253.     if ($hget(sTankWars,AniT) != 255) {
  254.       hinc sTankWars AniT 3
  255.       var %Credits = true,%C1 = 255,%C2 = 255,%C3 = $hget(sTankWars,AniT),%C4 = 0,%C5 = 0,%C6 = 0
  256.       goto Credits
  257.     }
  258.     else {
  259.       hadd sTankWars AniT 0
  260.       hinc sTankWars Ani
  261.     }
  262.   }
  263.   if ($hget(sTankWars,Ani) == 14) {
  264.     if ($hget(sTankWars,AniT) != 255) {
  265.       hinc sTankWars AniT 3
  266.       var %Credits = true,%C1 = 255,%C2 = 255,%C3 = 255,%C4 = $hget(sTankWars,AniT),%C5 = 0,%C6 = 0
  267.       goto Credits
  268.     }
  269.     else {
  270.       hadd sTankWars AniT 0
  271.       hinc sTankWars Ani
  272.     }
  273.   }
  274.   if ($hget(sTankWars,Ani) == 15) {
  275.     if ($hget(sTankWars,AniT) != 255) {
  276.       hinc sTankWars AniT 3
  277.       var %Credits = true,%C1 = 255,%C2 = 255,%C3 = 255,%C4 = 255,%C5 = $hget(sTankWars,AniT),%C6 = 0
  278.       goto Credits
  279.     }
  280.     else {
  281.       hadd sTankWars AniT 0
  282.       hinc sTankWars Ani
  283.     }
  284.   }
  285.   if ($hget(sTankWars,Ani) == 16) {
  286.     if ($hget(sTankWars,AniT) != 255) {
  287.       hinc sTankWars AniT 3
  288.       var %Credits = true,%C1 = 255,%C2 = 255,%C3 = 255,%C4 = 255,%C5 = 255,%C6 = $hget(sTankWars,AniT)
  289.       goto Credits
  290.     }
  291.     else {
  292.       hadd sTankWars AniT 255
  293.       hinc sTankWars Ani
  294.     }
  295.   }
  296.   if ($hget(sTankWars,Ani) == 17) {
  297.     if ($hget(sTankWars,AniT) != 0) {
  298.       hdec sTankWars AniT 3
  299.       var %Credits = true,%C1 = $hget(sTankWars,AniT),%C2 = %C1,%C3 = %C1,%C4 = %C1,%C5 = %C1,%C6 = %C1
  300.       goto Credits
  301.     }
  302.     else {
  303.       hadd sTankWars Ani 1
  304.       hadd sTankWars AniX 0
  305.       hadd sTankWars AniT1T 0
  306.       hadd sTankWars AniT2T 0
  307.       hadd sTankWars AniE 0
  308.       hadd sTankWars AniBY 0
  309.       hadd sTankWars AniT 0
  310.     }
  311.   }
  312.   :KlOwN
  313.   if (%Tank1X1) {
  314.     drawcopy -tn %w2 64512 %Tank1X1 155 20 20 %w1 %Tank1X2 270
  315.     drawcopy -tn %w2 64512 %Tank2X1 155 20 20 %w1 %Tank2X2 370
  316.     drawreplace -rn %w1 8355711 0 %Tank2X2 370 20 20
  317.   }
  318.   drawdot %w1
  319.   .timersAnimation -ho 1 $iif($hget(sTankWars,Ani) < 16,100,25) sAnimation
  320. }
  321. alias -l sCreateServer {
  322.   var %w1 = @sTankWars
  323.   hadd sTankWars Screen CreatingServer
  324.   drawrect -rfn %w1 0 1 21 150 358 240
  325.   drawrect -rn %w1 2631720 1 125 160 150 20
  326.   var %ip = $iif($ip,$v1,127.0.0.1)
  327.   drawtext -rn %w1 8355711 tahoma 12 $calc((150 - $width(%ip,tahoma,12,0,0)) / 2 + 125) 162 %ip
  328.   if (%ip == 127.0.0.1) {
  329.     drawtext -rn %w1 16777215 tahoma 12 50 190 ERROR: This a default IP… to get your IP you
  330.     drawtext -rn %w1 16777215 tahoma 12 95 205 might need to enter a server.
  331.     drawrect -rn %w1 2631720 1 125 285 150 20
  332.     drawtext -rn %w1 8355711 tahoma 12 182.5 287 Cancel
  333.   }
  334.   else {
  335.     drawtext -rn %w1 16777215 tahoma 12 50 190 NOTE: This is your IP and it has being copied, paste this
  336.     drawtext -rn %w1 16777215 tahoma 12 90 205 to all you wish to invite to your server. Be aware to
  337.     drawtext -rn %w1 16777215 tahoma 12 90 220 who you show your IP to becuase some people
  338.     drawtext -rn %w1 16777215 tahoma 12 90 235 might use this to harm your computer.
  339.     drawrect -rn %w1 2631720 1 125 260 150 20
  340.     drawtext -rn %w1 8355711 tahoma 12 175.5 262 Continue
  341.     drawrect -rn %w1 2631720 1 125 285 150 20
  342.     drawtext -rn %w1 8355711 tahoma 12 182.5 287 Cancel
  343.     clipboard %ip
  344.   }
  345.   drawdot %w1
  346. }
  347. alias -l sJoinServer {
  348.   hadd sTankWars Screen JoiningServer
  349. }
  350. alias -l sGame { var %w1 = @sTankWars,%w2 = $+(%w1,Buffer)
  351.   hadd sTankWars Screen Game $1
  352.   if ($1 == createServer) {
  353.     drawrect -rfn %w1 0 1 21 11 358 378
  354.     socklisten sTankWars 7000
  355.     hadd sTankWars NickName $me
  356.     drawcopy -tn %w2 64512 0 45 312 110 %w1 39 60
  357.     sShowInfo 1
  358.   }
  359.   if ($1 == Start) {
  360.     drawrect -rfn %w1 0 1 21 11 358 338
  361.     drawcopy -tn %w2 64512 0 210 400 240 %w1 0 10
  362.   }
  363.   drawcopy -n %w1 0 0 400 10 %w1 0 230
  364.   drawcopy -n %w1 0 0 400 10 %w1 0 280
  365.   drawcopy -n %w1 0 280 20 120 %w1 260 280
  366.   drawcopy -n %w1 0 0 260 10 %w1 0 310
  367.   drawdot %w1
  368. }
  369. alias -l sScores {
  370.   hadd sTankWars Screen Scores
  371. }
  372. alias -l sHelp {
  373.   var %w1 = @sTankWars
  374.   hadd sTankWars Screen Help
  375.   drawrect -rfn %w1 0 1 21 150 358 240
  376.   drawtext -ron %w1 16777215 tahoma 10 30 150 Creating A Server:
  377.   drawtext -rn %w1 16777215 tahoma 10 50 165 This is for those who would like to host a server and invite freinds to
  378.   drawtext -rn %w1 16777215 tahoma 10 50 177 join it, trusting them his/her IP, so that all can play. The host is in
  379.   drawtext -rn %w1 16777215 tahoma 10 50 189 charge of asigning who plays (@tank nick 0-15). To start the host
  380.   drawtext -rn %w1 16777215 tahoma 10 50 201 should type @start. (0-15 is the color on @tank)
  381.   drawtext -ron %w1 16777215 tahoma 10 30 221 Entering A Server:
  382.   drawtext -rn %w1 16777215 tahoma 10 50 236 One can enter a server with someone who has trust his/her IP. To
  383.   drawtext -rn %w1 16777215 tahoma 10 50 248 change the color asinged by the host one can use @change 0-15
  384.   drawtext -rn %w1 16777215 tahoma 10 50 260 (only if the color isnt taken).
  385.   drawtext -ron %w1 16777215 tahoma 10 30 280 The Game:
  386.   drawtext -rn %w1 16777215 tahoma 10 50 295 The ojective of the game is to be the last one standing in the battle
  387.   drawtext -rn %w1 16777215 tahoma 10 50 307 field. To move the tank use arrows and Tab key to shoot. For now
  388.   drawtext -rn %w1 16777215 tahoma 10 50 319 only 2 to 8 players are able to play. (Team Play Also In Mind!)
  389.   drawrect -rn %w1 2631720 1 125 360 150 20
  390.   drawtext -rn %w1 8355711 tahoma 12 175.5 362 Continue
  391.   drawdot %w1
  392. }
  393. alias -l sShowInfo {
  394.   drawrect -rfn @sTankWars 0 1 21 241 358 28
  395.   if ($1 == 1) {
  396.     drawtext -rn @sTankWars 16777215 thoma 10 69 245 Waiting for at least one player to continue with the game…
  397.   }
  398.   drawdot @sTankWars
  399. }
  400. menu @sTankWars {
  401.   sclick {
  402.     if ($hget(sTankWars,Screen) == Main) {
  403.       if ($inrect($mouse.x,$mouse.y,125,160,150,20)) sCreateServer
  404.       if ($inrect($mouse.x,$mouse.y,125,185,150,20)) sJoinServer
  405.       ;if ($inrect($mouse.x,$mouse.y,125,210,150,20)) sScores
  406.       if ($inrect($mouse.x,$mouse.y,125,235,150,20)) sHelp
  407.     }
  408.     if ($hget(sTankWars,Screen) == CreatingServer) {
  409.       if ($inrect($mouse.x,$mouse.y,125,260,150,20)) && ($ip) sGame createServer
  410.       if ($inrect($mouse.x,$mouse.y,125,285,150,20)) sMain
  411.     }
  412.     if ($hget(sTankWars,Screen) == Help) {
  413.       if ($inrect($mouse.x,$mouse.y,125,360,150,20)) sMain
  414.     }
  415.   }
  416. }
  417. on *:close:@sTankWars: {
  418.   hfree sTankWars
  419.   window -c @sTankWars*
  420.   if ($sock(sTankWars)) sockclose sTankWars
  421. }
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!