Codigos Snippets

WormZ -> Snippets > mIRC Scripting > sGatO v1.0 (3 rayas)

sGatO v1.0 (3 rayas)

Enviado Por: SykO
Descripcion:
Un viejo proyecto que hice en el 2009. El juego 3 rayas.
Codigo:
  1. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
  2. ; sGatO ® v: 1.0 Por SykO ;
  3. ; ;
  4. ; Creado: 25 de julio, del 2009 ;
  5. ; Creado: en mIRC v: 6.21 ;
  6. ; Inspirado por Chorch (Idea) ;
  7. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
  8.  
  9. menu status,channel,menubar {
  10. sGatO
  11. .AbRiR:sGatO
  12. . $iif($status != connected,$style(2)) JugaR CoNtRa uN uSuARiO:sGcONectA $$?="Nick?"
  13. . $iif($status != connected,$style(2)) Mostrar Mi puNtuAciON: amsg sGatO puNtuAciON: JueGOs GaNadOS: $sGget(mpuNtOS) JueGOs peRdidOS: $sGget(mpeRdidOS)
  14. . $iif($status != connected,$style(2)) spAm:ame JueGO sGatO deScArgAlO de: 12,01Www.SykO.At.uA
  15. }
  16. menu nicklist,query {
  17. sGatO
  18. .AbRiR:sGatO
  19. .JugaR CoN $$1:sGcONectA $$1
  20. }
  21. alias sGatO { var %s @sGatO
  22. window $+(-aBpCkzf,$iif($sGget(Desktop) == On,dw0)) +d %s -1 -1 350 400
  23. drawrect -rfn %s $rgb(229,229,231) 1 0 0 350 400
  24. drawrect -rn %s $rgb(0,0,0) 1 0 0 350 400
  25. drawline -rn %s $rgb(250,250,250) 1 1 20 1 1 20 1
  26. sGbOtOn 4 4 12 12 -
  27. drawrect -rfn %s $rgb(60,60,60) 1 20 1 310 19
  28. drawrect -rn %s $rgb(0,0,0) 1 20 1 310 19
  29. drawline -rn %s $rgb(100,100,100) 1 21 19 21 1 329 1
  30. drawline -rn %s $rgb(0,0,0) 1 0 20 350 20
  31. drawline -rn %s $rgb(250,250,250) 1 1 21 249 21
  32. drawtext -rno %s $rgb(165,165,165) tahoma 10 56 4 - sGatO ® v:1.0 Por SykO - Copyright © $time(yyyy) -
  33. drawline -rn %s $rgb(250,250,250) 1 330 19 330 1 349 1
  34. sGbOtOn 334 4 12 12 x
  35. drawdot %s
  36. if ($sGget(JueGO) != On) { set %sGatO.P 0 | sGiNtrO }
  37. else { sGmueStrAbOtOneS | sGcOmieNsA }
  38. titlebar %s ® v:1.0 Por SykO
  39. window %s $mircexe 15
  40. }
  41. alias -l sGbOtOn { var %s @sGatO
  42. drawrect -rfn %s $rgb(60,60,60) 1 $1-4
  43. drawrect -rn %s $rgb(0,0,0) 1 $1-4
  44. drawline -rn %s $rgb(150,150,150) 1 $calc($1 + 1) $calc($2 + $4 - 1) $calc($1 + $iif($prop,$3 - 1,1)) $calc($2 + $iif($prop,$4 - 1,1)) $calc($1 + $3 - 1) $calc($2 + 1)
  45. if ($5-) { var %x = $iif($calc($1 + ($3 - $width($5-,tahoma,9)) / 2) > $calc($1 + 2),$v1,$v2),%y = $iif($calc($2 + ($4 - $height($5-,tahoma,9)) / 2) > $calc($2 + 1),$v1,$v2)
  46. drawtext -rn %s $rgb(195,195,195) tahoma 9 %x %y $wrap($5-,tahoma,9,$calc($3 - 2),0,1) }
  47. drawdot %s
  48. }
  49. alias -l sGiNtrO { var %s @sGatOi
  50. if ($window($left(%s,-1))) {
  51. window -BpCkzfh +d %s -1 -1 340 370
  52. drawrect -rfn %s $rgb(229,229,231) 1 0 0 340 370
  53. var %x = $calc((340 - %sGatO.P) / 2)
  54. drawrect -rn %s $rgb(0,0,0) 1 %x 0 %sGatO.P 40
  55. drawrect -rn %s $rgb(0,0,0) 1 %x 290 %sGatO.P 80
  56. drawtext -rno %s $rgb(40,40,40) tahoma 30 125 1 sGat
  57. drawtext -rno %s $rgb(40,40,40) webdings 30 190 5 ö
  58. drawline -rn %s $rgb(0,0,0) 1 285 290 285 370
  59. drawline -rn %s $rgb(0,0,0) 1 0 315 285 315
  60. drawdot %s
  61. drawcopy %s %x 0 %sGatO.P 370 $left(%s,-1) $calc(%x + 5) 25
  62. if (%sGatO.P < 340) inc %sGatO.P
  63. else { unset %sGatO.P | sGmueStrAbOtOneS | halt }
  64. .timersGi -m 1 0 sGiNtrO
  65. }
  66. }
  67. alias -l sGmueStrAbOtOneS { var %s @sGatO
  68. if ($timer(sGmIpuNtuAciON)) .timersGmIpuNtuAciON off
  69. drawrect -rfn %s $rgb(229,229,231) 1 6 26 338 38
  70. drawrect -rn %s $rgb(0,0,0) 1 5 25 340 370
  71. drawtext -rno %s $rgb(240,200,40) tahoma 30 129 25 sGat
  72. drawtext -rno %s $rgb(240,200,40) webdings 30 194 29 ö
  73. drawtext -rno %s $rgb(240,200,40) tahoma 30 131 27 sGat
  74. drawtext -rno %s $rgb(240,200,40) webdings 30 196 31 ö
  75. drawtext -rno %s $rgb(240,200,40) tahoma 30 131 25 sGat
  76. drawtext -rno %s $rgb(240,200,40) webdings 30 196 29 ö
  77. drawtext -rno %s $rgb(240,200,40) tahoma 30 129 27 sGat
  78. drawtext -rno %s $rgb(240,200,40) webdings 30 194 31 ö
  79. drawtext -rno %s $rgb(40,40,40) tahoma 30 130 26 sGat
  80. drawtext -rno %s $rgb(40,40,40) webdings 30 195 30 ö
  81. drawrect -rfn %s $rgb(229,229,231) 1 6 66 338 249
  82. sGbOtOn 100 110 150 20 JugaR CoNtrA OtrO UsuAriO
  83. sGbOtOn 100 135 150 20 JugaR CoNtrA OtRa peRsOnA
  84. sGbOtOn 100 160 150 20 JugaR CoNtrA SykOzbOt
  85. sGbOtOn 100 185 150 20 OpCiONeS
  86. sGbOtOn 100 210 150 20 Mi puNtuAciON
  87. sGbOtOn 100 235 150 20 CredItOs
  88. drawline -rn %s $rgb(0,0,0) 1 290 315 290 395
  89. drawline -rn %s $rgb(0,0,0) 1 5 340 290 340
  90. drawline -rn %s $rgb(0,0,0) 1 5 315 345 315
  91. drawdot %s
  92. sGset Menu Principal
  93. }
  94. alias -l sGcOmieNsA { var %s @sGatO
  95. if (!$window(%s)) halt
  96. sGset Menu JueGO
  97. sGset JueGO On
  98. if ($sGget(mjp) == SykOz) sGset mjp 0:0
  99. if (!$sGget(mpuNtOS)) sGset mpuNtOS 0
  100. if (!$sGget(OpuNtOS)) sGset OpuNtOS 0
  101. set %sGatO.1 | set %sGatO.2 | set %sGatO.3 | set %sGatO.4 | set %sGatO.5 | set %sGatO.6 | set %sGatO.7 | set %sGatO.8 | set %sGatO.9
  102. drawrect -rfn %s $rgb(229,229,231) 1 6 66 338 249
  103. drawrect -rn %s $rgb(40,40,40) 1 5 64 114 85
  104. drawrect -rn %s $rgb(40,40,40) 1 118 64 114 85
  105. drawrect -rn %s $rgb(40,40,40) 1 231 64 114 85
  106. drawrect -rn %s $rgb(40,40,40) 1 5 148 114 84
  107. drawrect -rn %s $rgb(40,40,40) 1 118 148 114 84
  108. drawrect -rn %s $rgb(40,40,40) 1 231 148 114 84
  109. drawrect -rn %s $rgb(40,40,40) 1 5 231 114 85
  110. drawrect -rn %s $rgb(40,40,40) 1 118 231 114 85
  111. drawrect -rn %s $rgb(40,40,40) 1 231 231 114 85
  112. drawrect -rn %s $rgb(40,40,40) 1 7 320 241 18
  113. sGbOtOn 249 318 40 20 Enviar
  114. if ($sGget(mtipO) == x) sGset tuRnO 1
  115. else sGset tuRnO 2
  116. sGmueStRaNiCkS | sGmueStRapuNtOS
  117. if ($sGget(TipO) == bOt) && ($sGget(tuRnO) == 2) .timerGatOtuRnO 1 2 sGbOtTuRnO
  118. drawdot %s
  119. }
  120. alias -l sGtuRnOteRmiNadO {
  121. if ($sGget(tuRnO) == 1) sGset tuRnO 2
  122. else sGset tuRnO 1
  123. if (%sGatO.1 == %sGatO.2) && (%sGatO.1 != $null) && (%sGatO.2 == %sGatO.3) { set %sGatO $v1 1h | goto GatO }
  124. if (%sGatO.1 == %sGatO.4) && (%sGatO.1 != $null) && (%sGatO.4 == %sGatO.7) { set %sGatO $v1 1v | goto GatO }
  125. if (%sGatO.1 == %sGatO.5) && (%sGatO.1 != $null) && (%sGatO.5 == %sGatO.9) { set %sGatO $v1 1d | goto GatO }
  126. if (%sGatO.2 == %sGatO.5) && (%sGatO.2 != $null) && (%sGatO.5 == %sGatO.8) { set %sGatO $v1 2v | goto GatO }
  127. if (%sGatO.3 == %sGatO.6) && (%sGatO.3 != $null) && (%sGatO.6 == %sGatO.9) { set %sGatO $v1 3v | goto GatO }
  128. if (%sGatO.3 == %sGatO.5) && (%sGatO.3 != $null) && (%sGatO.5 == %sGatO.7) { set %sGatO $v1 3d | goto GatO }
  129. if (%sGatO.4 == %sGatO.5) && (%sGatO.4 != $null) && (%sGatO.5 == %sGatO.6) { set %sGatO $v1 4h | goto GatO }
  130. if (%sGatO.7 == %sGatO.8) && (%sGatO.7 != $null) && (%sGatO.8 == %sGatO.9) { set %sGatO $v1 7h | goto GatO }
  131. if ($sGcOmpROvAR == 0) { sGmueStRaNiCkS
  132. if ($sGget(TipO) == bOt) && ($sGget(tuRnO) == 2) {
  133. if ($sGget(bOtv) == LeNtO) .timerGatOtuRnO 1 4 sGbOtTuRnO
  134. if ($sGget(bOtv) == NoRmAl) .timerGatOtuRnO 1 2 sGbOtTuRnO
  135. if ($sGget(bOtv) == RapidO) sGbOtTuRnO
  136. }
  137. }
  138. return
  139. :GatO
  140. sGset Menu SykOz
  141. sGset JueGO SykOz
  142. if ($gettok(%sGatO,2,32) == 1h) drawline -r @sGatO $rgb(40,40,40) 5 25 105 325 105
  143. if ($gettok(%sGatO,2,32) == 1v) drawline -r @sGatO $rgb(40,40,40) 5 60 75 60 305
  144. if ($gettok(%sGatO,2,32) == 1d) drawline -r @sGatO $rgb(40,40,40) 5 30 75 325 305
  145. if ($gettok(%sGatO,2,32) == 2v) drawline -r @sGatO $rgb(40,40,40) 5 175 75 175 305
  146. if ($gettok(%sGatO,2,32) == 3v) drawline -r @sGatO $rgb(40,40,40) 5 285 75 285 305
  147. if ($gettok(%sGatO,2,32) == 3d) drawline -r @sGatO $rgb(40,40,40) 5 325 75 30 305
  148. if ($gettok(%sGatO,2,32) == 4h) drawline -r @sGatO $rgb(40,40,40) 5 25 190 325 190
  149. if ($gettok(%sGatO,2,32) == 7h) drawline -r @sGatO $rgb(40,40,40) 5 25 275 325 275
  150. if ($sGget(TipO) == bOt) && ($sGget(OtipO) == $gettok(%sGatO,1,32)) sGmueStRAmeNsAje SykOzbOt $sGget(mNick) $iif($r(0,1),$iif($r(0,1),LoOSeR!!!,No LloReS!!!),eReS GrANde… peRO peRdieNdO!!!) JaJaJaJa
  151. if ($sGget(mtipO) == $gettok(%sGatO,1,32)) sGatOgAnO $sGget(mNick)
  152. else sGatOgAnO $sGget(OpoNeNte)
  153. }
  154. alias -l sGcOmpROvAR {
  155. if (%sGatO.1 != $null) && (%sGatO.2 != $null) && (%sGatO.3 != $null) && (%sGatO.4 != $null) && (%sGatO.5 != $null) {
  156. if (%sGatO.6 != $null) && (%sGatO.7 != $null) && (%sGatO.8 != $null) && (%sGatO.9 != $null) {
  157. drawtext -ro @sGatO $rgb(255,0,0) tahoma 45 25 165 ¡Nadie GanO!
  158. if ($sGget(mtipO) == x) { sGset mtipO o | sGset OtipO x }
  159. else { sGset mtipO x | sGset OtipO o }
  160. .timersGatO 1 3 sGcOmieNsA | return 1 }
  161. }
  162. return 0
  163. }
  164. alias -l sGatOgAnO { var %x = $iif($calc((340 - $width($+(¡,$1) GanO!,tahoma,45,1,0)) / 2 + 5) < 6,6,$v1)
  165. drawtext -rco @sGatO $rgb(255,0,0) tahoma 45 %x 165 338 54 $+(¡,$1) GanO!
  166. if ($sGget(TipO) == bOt) && ($1 != $sGget(mNick)) sGset bpuNtOS $calc($sGget(bpuNtOS) + 1)
  167. if ($sGget(TipO) == pC) && ($1 != $sGget(mNick)) sGset ppuNtOS $calc($sGget(ppuNtOS) + 1)
  168. sGset $iif($1 == $sGget(mNick),mpuNtOS,OpuNtOS) $calc($sGget($iif($1 == $sGget(mNick),mpuNtOS,OpuNtOS)) + 1)
  169. sGset mjp $iif($1 == $sGget(mNick),$+($calc($gettok($sGget(mjp),1,58) + 1),:,$gettok($sGget(mjp),2,58)),$+($gettok($sGget(mjp),1,58),:,$calc($gettok($sGget(mjp),2,58) + 1)))
  170. sGset mtipO $iif($1 == $sGget(mNick),x,o) | sGset OtipO $iif($1 == $sGget(mNick),o,x) | sGmueStRapuNtOS | .timersGatO 1 3 sGcOmieNsA
  171. }
  172. alias -l sGbOtTuRnO { var %s = @sGatO,%n
  173. :SykO
  174. if (!$window(%s)) halt
  175. %n = $r(1,9)
  176. var %r = %sGatO. [ $+ [ %n ] ]
  177. if (%r == $null) {
  178. if (%n == 1) { sGdibujAXO 1 $sGget(OtipO) | halt }
  179. if (%n == 2) { sGdibujAXO 2 $sGget(OtipO) | halt }
  180. if (%n == 3) { sGdibujAXO 3 $sGget(OtipO) | halt }
  181. if (%n == 4) { sGdibujAXO 4 $sGget(OtipO) | halt }
  182. if (%n == 5) { sGdibujAXO 5 $sGget(OtipO) | halt }
  183. if (%n == 6) { sGdibujAXO 6 $sGget(OtipO) | halt }
  184. if (%n == 7) { sGdibujAXO 7 $sGget(OtipO) | halt }
  185. if (%n == 8) { sGdibujAXO 8 $sGget(OtipO) | halt }
  186. if (%n == 9) { sGdibujAXO 9 $sGget(OtipO) | halt }
  187. }
  188. else goto SykO
  189. }
  190. alias -l sGmueStRaNiCkS { var %s @sGatO
  191. drawrect -rfn %s $rgb(229,229,231) 1 6 26 338 38
  192. if ($sGget(tuRnO) == 1) {
  193. drawtext -rno %s $rgb(240,200,40) tahoma 55 6 4 $sGget(mtipO)
  194. drawtext -rno %s $rgb(240,200,40) tahoma 55 6 6 $sGget(mtipO)
  195. drawtext -rno %s $rgb(240,200,40) tahoma 55 8 4 $sGget(mtipO)
  196. drawtext -rno %s $rgb(240,200,40) tahoma 55 8 6 $sGget(mtipO)
  197. drawtext -rno %s $rgb(240,200,40) tahoma 12 40 36 $wrap($sGget(mNick),tahoma,12,67,0,1)
  198. drawtext -rno %s $rgb(240,200,40) tahoma 12 40 38 $wrap($sGget(mNick),tahoma,12,67,0,1)
  199. drawtext -rno %s $rgb(240,200,40) tahoma 12 42 36 $wrap($sGget(mNick),tahoma,12,67,0,1)
  200. drawtext -rno %s $rgb(240,200,40) tahoma 12 42 38 $wrap($sGget(mNick),tahoma,12,67,0,1)
  201. }
  202. drawtext -rno %s $rgb(40,40,40) tahoma 55 7 5 $sGget(mtipO)
  203. drawtext -rno %s $rgb(40,40,40) tahoma 12 41 37 $wrap($sGget(mNick),tahoma,12,67,0,1)
  204. drawtext -rno %s $rgb(255,255,255) tahoma 55 143 4 vs
  205. drawtext -rno %s $rgb(255,255,255) tahoma 55 143 6 vs
  206. drawtext -rno %s $rgb(255,255,255) tahoma 55 145 4 vs
  207. drawtext -rno %s $rgb(255,255,255) tahoma 55 145 6 vs
  208. drawtext -rno %s $rgb(40,40,40) tahoma 55 144 5 vs
  209. if ($sGget(tuRnO) == 2) {
  210. drawtext -rno %s $rgb(240,200,40) tahoma 55 233 4 $sGget(OtipO)
  211. drawtext -rno %s $rgb(240,200,40) tahoma 55 233 6 $sGget(OtipO)
  212. drawtext -rno %s $rgb(240,200,40) tahoma 55 235 4 $sGget(OtipO)
  213. drawtext -rno %s $rgb(240,200,40) tahoma 55 235 6 $sGget(OtipO)
  214. drawtext -rno %s $rgb(240,200,40) tahoma 12 268 36 $wrap($sGget(OpoNeNte),tahoma,12,67,0,1)
  215. drawtext -rno %s $rgb(240,200,40) tahoma 12 268 38 $wrap($sGget(OpoNeNte),tahoma,12,67,0,1)
  216. drawtext -rno %s $rgb(240,200,40) tahoma 12 270 36 $wrap($sGget(OpoNeNte),tahoma,12,67,0,1)
  217. drawtext -rno %s $rgb(240,200,40) tahoma 12 270 38 $wrap($sGget(OpoNeNte),tahoma,12,67,0,1)
  218. }
  219. drawtext -rno %s $rgb(40,40,40) tahoma 55 234 5 $sGget(OtipO)
  220. drawtext -rno %s $rgb(40,40,40) tahoma 12 269 37 $wrap($sGget(OpoNeNte),tahoma,12,67,0,1)
  221. drawdot %s
  222. }
  223. alias -l sGmueStRapuNtOS {
  224. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 10 292 316 52 12 $sGget(mNick) $+ :
  225. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 10 294 329 50 12 J: $gettok($sGget(mjp),1,58)
  226. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 10 292 342 52 12 T: $gettok($sGget(mpuNtOS),1,58)
  227. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 10 292 355 52 12 $sGget(OpoNeNte) $+ :
  228. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 10 294 368 50 12 J: $gettok($sGget(mjp),2,58)
  229. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 10 292 381 52 12 T: $gettok($sGget(OpuNtOS),1,58)
  230. drawdot @sGatO
  231. }
  232. alias -l sGmueStRAmeNsAje {
  233. if ($1 == $sGget(mNick)) && ($sGget(TipO) == IRC) sGnotice $sGget(OpoNeNte) msj $2-
  234. drawscroll -n @sGatO 0 13 7 342 281 52
  235. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 10 7 342 281 12 $1 » $2-
  236. drawdot @sGatO
  237. }
  238. alias -l sGopCiOneS { var %s @sGatO
  239. drawrect -rfn %s $rgb(229,229,231) 1 6 66 338 249
  240. sGbOtOn 10 75 10 10 $iif($sGget(Desktop) == On,x)
  241. drawtext -rn @sGatO $rgb(0,0,0) tahoma 12 25 72 AbRiR VeNtAnA eN DeSktOp
  242. sGbOtOn 10 95 10 10 $iif($sGget(bOtv) == LeNtO,x)
  243. drawtext -rn @sGatO $rgb(0,0,0) tahoma 12 25 92 SykOzbOt LeNtO
  244. sGbOtOn 10 115 10 10 $iif($sGget(bOtv) == NoRmAl,x)
  245. drawtext -rn @sGatO $rgb(0,0,0) tahoma 12 25 112 SykOzbOt NoRmAl
  246. sGbOtOn 10 135 10 10 $iif($sGget(bOtv) == RapidO,x)
  247. drawtext -rn @sGatO $rgb(0,0,0) tahoma 12 25 132 SykOzbOt RapidO
  248. drawdot %s
  249. sGmueStrAbOtOnDeRegResO | sGset Menu OpciONeS
  250. }
  251. alias -l sGmIpuNtuAciON { var %s @sGatO
  252. if (!$window(%s)) halt
  253. drawrect -rfn %s $rgb(229,229,231) 1 6 66 338 249
  254. drawline -rn %s $rgb(40,40,40) 1 10 70 10 310 265 310 265 285 340 285 340 70 10 70
  255. drawline -rn %s $rgb(40,40,40) 1 10 70 10 310 265 310 265 285 340 285 340 70 10 70
  256. drawline -rn %s $rgb(40,40,40) 1 10 85 340 85
  257. drawline -rn %s $rgb(40,40,40) 1 10 285 265 285 265 70
  258. drawline -rn %s $rgb(40,40,40) 1 80 285 80 70
  259. drawline -rn %s $rgb(40,40,40) 1 200 285 200 70
  260. drawtext -rn %s $rgb(40,40,40) tahoma 12 12 70 Tipo:
  261. drawtext -rn %s $rgb(40,40,40) tahoma 12 82 70 Apodo:
  262. drawtext -rn %s $rgb(40,40,40) tahoma 12 202 70 Fecha:
  263. drawtext -rn %s $rgb(40,40,40) tahoma 12 267 70 Puntos:
  264. var %l = $iif($1,$1,1),%y = 87
  265. while ($readini($scriptdirsGatO.iNi,spuNtOS,%l)) {
  266. var %t = $gettok($v1,1,58),%a = $gettok($v1,2,58),%f = $gettok($v1,3,58),%p = $gettok($v1,4,58)
  267. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 12 12 %y 68 14 $+(%l,:) %t
  268. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 12 82 %y 118 14 %a
  269. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 12 202 %y 62 14 %f
  270. drawtext -rncb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 12 267 %y 71 14 %p
  271. inc %l | inc %y 15
  272. if (%y >= 275) break
  273. }
  274. if ($readini($scriptdirsGatO.iNi,spuNtOS,%l)) .timersGmIpuNtuAciON 1 20 sGmIpuNtuAciON %l
  275. else { if ($1) .timersGmIpuNtuAciON 1 20 sGmIpuNtuAciON }
  276. drawtext -rnb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 12 12 290 puNtOS: $sGget(mpuNtOS)
  277. drawtext -rnb @sGatO $rgb(0,0,0) $rgb(229,229,231) tahoma 12 140 290 peRdidOS: $sGget(mpeRdidOS)
  278. sGmueStrAbOtOnDeRegResO | drawdot %s
  279. }
  280. alias -l sGcReditOz { var %s @sGatOi
  281. if ($window($left(%s,-1))) {
  282. if (%sGatO.P == $null) set %sGatO.P 290
  283. window -BpCkzfh +d %s -1 -1 340 370
  284. drawrect -rfn %s $rgb(229,229,231) 1 0 0 340 370
  285. drawtext -rno %s $rgb(40,200,240) tahoma 35 130 $calc(%sGatO.P - 1) SykO
  286. drawtext -rno %s $rgb(40,200,240) tahoma 35 132 $calc(%sGatO.P + 1) SykO
  287. drawtext -rno %s $rgb(40,200,240) tahoma 35 132 $calc(%sGatO.P - 1) SykO
  288. drawtext -rno %s $rgb(40,200,240) tahoma 35 130 $calc(%sGatO.P + 1) SykO
  289. drawtext -rno %s $rgb(40,40,40) tahoma 35 131 %sGatO.P SykO
  290. drawtext -rn %s $rgb(0,0,0) tahoma 12 135 $calc(%sGatO.P + 40) (Programador)
  291. drawtext -rno %s $rgb(40,200,240) tahoma 35 117 $calc(%sGatO.P + 59) Chorch
  292. drawtext -rno %s $rgb(40,200,240) tahoma 35 118 $calc(%sGatO.P + 61) Chorch
  293. drawtext -rno %s $rgb(40,200,240) tahoma 35 118 $calc(%sGatO.P + 59) Chorch
  294. drawtext -rno %s $rgb(40,200,240) tahoma 35 116 $calc(%sGatO.P + 61) Chorch
  295. drawtext -rno %s $rgb(40,40,40) tahoma 35 117 $calc(%sGatO.P + 60) Chorch
  296. drawtext -rn %s $rgb(0,0,0) tahoma 12 158 $calc(%sGatO.P + 100) (Idea)
  297. drawtext -rn %s $rgb(0,0,0) tahoma 12 5 $calc(%sGatO.P + 125) - Gracias A El Canal #eScripting de UniversoChat (Apoyo)
  298. drawtext -rn %s $rgb(0,0,0) tahoma 12 5 $calc(%sGatO.P + 140) - Gracias A Chorch, KIO, y Bud (Pruevas)
  299. drawtext -rn %s $rgb(0,0,0) tahoma 12 5 $calc(%sGatO.P + 155) - Gracias A exeCutive (idea de notices)
  300. drawtext -rn %s $rgb(0,0,0) tahoma 12 5 $calc(%sGatO.P + 170) - Gracias A Todos Los Que Apoyan Mis Trabajos...
  301. drawtext -rn %s $rgb(0,0,0) tahoma 12 5 $calc(%sGatO.P + 185) - Comentarios/Sugerencias/Preguntas A SykO-c5@Live.Com
  302. drawtext -rn %s $rgb(0,0,0) tahoma 12 5 $calc(%sGatO.P + 200) - Visita: Www.eScripting.Net
  303. drawtext -rn %s $rgb(0,0,0) tahoma 12 5 $calc(%sGatO.P + 215) - Visita: Www.SykO.At.uA
  304. drawtext -rn %s $rgb(0,0,0) tahoma 12 5 $calc(%sGatO.P + 230) - (SykO - TheMexicanForce™ - desde el 2007)
  305. drawdot %s
  306. drawcopy %s 1 26 338 249 $left(%s,-1) 6 66
  307. if (%sGatO.P > 21) dec %sGatO.P
  308. else { unset %sGatO.P | sGmueStrAbOtOnDeRegResO | halt }
  309. .timersGi -m 1 0 sGcReditOz
  310. }
  311. }
  312. alias -l sGmueStrAbOtOnDeRegResO { sGset Menu Secundario | sGbOtOn 270 290 70 20 Regresar | drawdot @sGatO }
  313. alias -l sGdibujAXO { var %s @sGatO
  314. if ($1 == 1) drawtext -ro %s $rgb(40,40,40) tahoma 75 35 60 $upper($2)
  315. if ($1 == 2) drawtext -ro %s $rgb(40,40,40) tahoma 75 148 60 $upper($2)
  316. if ($1 == 3) drawtext -ro %s $rgb(40,40,40) tahoma 75 261 60 $upper($2)
  317. if ($1 == 4) drawtext -ro %s $rgb(40,40,40) tahoma 75 35 144 $upper($2)
  318. if ($1 == 5) drawtext -ro %s $rgb(40,40,40) tahoma 75 148 144 $upper($2)
  319. if ($1 == 6) drawtext -ro %s $rgb(40,40,40) tahoma 75 261 144 $upper($2)
  320. if ($1 == 7) drawtext -ro %s $rgb(40,40,40) tahoma 75 35 227 $upper($2)
  321. if ($1 == 8) drawtext -ro %s $rgb(40,40,40) tahoma 75 148 227 $upper($2)
  322. if ($1 == 9) drawtext -ro %s $rgb(40,40,40) tahoma 75 261 227 $upper($2)
  323. if ($sGget(TipO) == IRC) && ($2 == $sGget(mtipO)) && (!$3) sGnotice $sGget(OpoNeNte) mOvidA $1
  324. if (!$3) { set %sGatO. [ $+ [ $1 ] ] $2 | sGset UltimoEvento SykOz | sGtuRnOteRmiNadO }
  325. else { sGset UltimoEvento m drawrect -rnf %s $rgb(229,229,231) 1 $3- }
  326. }
  327. menu @sGatO {
  328. sclick { var %s = @sGatO
  329. if ($inrect($mouse.x,$mouse.y,20,0,244,20)) { sGmOveR $mouse.x $mouse.y }
  330. if ($inrect($mouse.x,$mouse.y,4,4,12,12)) { sGset UltimoEvento s sGbOtOn 4 4 12 12 - | $sGbOtOn(4,4,12,12,-).SykO }
  331. if ($inrect($mouse.x,$mouse.y,334,4,12,12)) { sGset UltimoEvento s sGbOtOn 334 4 12 12 x | $sGbOtOn(334,4,12,12,x).SykO }
  332. if ($sGget(Menu) == Principal) {
  333. if ($inrect($mouse.x,$mouse.y,100,110,150,20)) { sGset UltimoEvento s sGbOtOn 100 110 150 20 JugaR CoNtrA OtrO UsuAriO | $sGbOtOn(100,110,150,20,JugaR CoNtrA OtrO UsuAriO).SykO }
  334. if ($inrect($mouse.x,$mouse.y,100,135,150,20)) { sGset UltimoEvento s sGbOtOn 100 135 150 20 JugaR CoNtrA OtRa peRsOnA | $sGbOtOn(100,135,150,20,JugaR CoNtrA OtRa peRsOnA).SykO }
  335. if ($inrect($mouse.x,$mouse.y,100,160,150,20)) { sGset UltimoEvento s sGbOtOn 100 160 150 20 JugaR CoNtrA SykOzbOt | $sGbOtOn(100,160,150,20,JugaR CoNtrA SykOzbOt).SykO }
  336. if ($inrect($mouse.x,$mouse.y,100,185,150,20)) { sGset UltimoEvento s sGbOtOn 100 185 150 20 OpCiONeS | $sGbOtOn(100,185,150,20,OpCiONeS).SykO }
  337. if ($inrect($mouse.x,$mouse.y,100,210,150,20)) { sGset UltimoEvento s sGbOtOn 100 210 150 20 Mi puNtuAciON | $sGbOtOn(100,210,150,20,Mi puNtuAciON).SykO }
  338. if ($inrect($mouse.x,$mouse.y,100,235,150,20)) { sGset UltimoEvento s sGbOtOn 100 235 150 20 CredItOs | $sGbOtOn(100,235,150,20,CredItOs).SykO }
  339. }
  340. if ($sGget(Menu) == Secundario) || ($sGget(Menu) == OpciONeS) {
  341. if ($inrect($mouse.x,$mouse.y,270,290,70,20)) { sGset UltimoEvento s sGbOtOn 270 290 70 20 Regresar | $sGbOtOn(270,290,70,20,Regresar).SykO }
  342. }
  343. if ($sGget(Menu) == OpciONeS) {
  344. if ($inrect($mouse.x,$mouse.y,10,72,150,14)) { sGset Desktop $iif($sGget(Desktop) == On,Off,On) | sGbOtOn 10 75 10 10 $iif($sGget(Desktop) == On,x) | drawdot %s }
  345. if ($inrect($mouse.x,$mouse.y,10,92,150,14)) { sGset bOtv LeNtO | sGbOtOn 10 95 10 10 $iif($sGget(bOtv) == LeNtO,x) | sGbOtOn 10 115 10 10 $iif($sGget(bOtv) == NoRmAl,x)
  346. sGbOtOn 10 135 10 10 $iif($sGget(bOtv) == RapidO,x) | drawdot %s }
  347. if ($inrect($mouse.x,$mouse.y,10,112,150,14)) { sGset bOtv NoRmAl | sGbOtOn 10 95 10 10 $iif($sGget(bOtv) == LeNtO,x) | sGbOtOn 10 115 10 10 $iif($sGget(bOtv) == NoRmAl,x)
  348. sGbOtOn 10 135 10 10 $iif($sGget(bOtv) == RapidO,x) | drawdot %s }
  349. if ($inrect($mouse.x,$mouse.y,10,132,150,14)) { sGset bOtv RapidO | sGbOtOn 10 95 10 10 $iif($sGget(bOtv) == LeNtO,x) | sGbOtOn 10 115 10 10 $iif($sGget(bOtv) == NoRmAl,x)
  350. sGbOtOn 10 135 10 10 $iif($sGget(bOtv) == RapidO,x) | drawdot %s }
  351. }
  352. if ($sGget(Menu) == JueGO) {
  353. if ($inrect($mouse.x,$mouse.y,249,318,40,20)) { sGset UltimoEvento s sGbOtOn 249 318 40 20 Enviar | $sGbOtOn(249,318,40,20,Enviar).SykO }
  354. }
  355. if ($sGget(JueGO) == On) && ($sGget(tuRnO) == 1) {
  356. if ($inrect($mouse.x,$mouse.y,5,64,114,85)) && (%sGatO.1 == $null) { sGdibujAXO 1 $sGget(mtipO) }
  357. if ($inrect($mouse.x,$mouse.y,118,64,114,85)) && (%sGatO.2 == $null) { sGdibujAXO 2 $sGget(mtipO) }
  358. if ($inrect($mouse.x,$mouse.y,231,64,114,85)) && (%sGatO.3 == $null) { sGdibujAXO 3 $sGget(mtipO) }
  359. if ($inrect($mouse.x,$mouse.y,5,148,114,84)) && (%sGatO.4 == $null) { sGdibujAXO 4 $sGget(mtipO) }
  360. if ($inrect($mouse.x,$mouse.y,118,148,114,84)) && (%sGatO.5 == $null) { sGdibujAXO 5 $sGget(mtipO) }
  361. if ($inrect($mouse.x,$mouse.y,231,148,114,84)) && (%sGatO.6 == $null) { sGdibujAXO 6 $sGget(mtipO) }
  362. if ($inrect($mouse.x,$mouse.y,5,231,114,85)) && (%sGatO.7 == $null) { sGdibujAXO 7 $sGget(mtipO) }
  363. if ($inrect($mouse.x,$mouse.y,118,231,114,85)) && (%sGatO.8 == $null) { sGdibujAXO 8 $sGget(mtipO) }
  364. if ($inrect($mouse.x,$mouse.y,231,231,114,85)) && (%sGatO.9 == $null) { sGdibujAXO 9 $sGget(mtipO) }
  365. }
  366. if ($sGget(JueGO) == On) && ($sGget(tuRnO) == 2) && ($sGget(TipO) == pC) {
  367. if ($inrect($mouse.x,$mouse.y,5,64,114,85)) && (%sGatO.1 == $null) { sGdibujAXO 1 $sGget(OtipO) }
  368. if ($inrect($mouse.x,$mouse.y,118,64,114,85)) && (%sGatO.2 == $null) { sGdibujAXO 2 $sGget(OtipO) }
  369. if ($inrect($mouse.x,$mouse.y,231,64,114,85)) && (%sGatO.3 == $null) { sGdibujAXO 3 $sGget(OtipO) }
  370. if ($inrect($mouse.x,$mouse.y,5,148,114,84)) && (%sGatO.4 == $null) { sGdibujAXO 4 $sGget(OtipO) }
  371. if ($inrect($mouse.x,$mouse.y,118,148,114,84)) && (%sGatO.5 == $null) { sGdibujAXO 5 $sGget(OtipO) }
  372. if ($inrect($mouse.x,$mouse.y,231,148,114,84)) && (%sGatO.6 == $null) { sGdibujAXO 6 $sGget(OtipO) }
  373. if ($inrect($mouse.x,$mouse.y,5,231,114,85)) && (%sGatO.7 == $null) { sGdibujAXO 7 $sGget(OtipO) }
  374. if ($inrect($mouse.x,$mouse.y,118,231,114,85)) && (%sGatO.8 == $null) { sGdibujAXO 8 $sGget(OtipO) }
  375. if ($inrect($mouse.x,$mouse.y,231,231,114,85)) && (%sGatO.9 == $null) { sGdibujAXO 9 $sGget(OtipO) }
  376. }
  377. }
  378. uclick { var %s = @sGatO
  379. if ($gettok($sGget(UltimoEvento),1,32) == s) {
  380. $gettok($sGget(UltimoEvento),2-,32)
  381. if ($inrect($mouse.x,$mouse.y,4,4,12,12)) { window -n %s }
  382. if ($inrect($mouse.x,$mouse.y,334,4,12,12)) { sGceRRaRveNtAnA }
  383. if ($sGget(Menu) == Principal) {
  384. if ($inrect($mouse.x,$mouse.y,100,110,150,20)) {
  385. if ($status == connected) sGcONectA $$?="NiCk de OpONeNte?"
  386. else noop $input(NeCeSitAS eStaR CoNeCtAdO pArA pOdeR JuGaR CoN AlguieN mAS,o)
  387. halt
  388. }
  389. if ($inrect($mouse.x,$mouse.y,100,135,150,20)) { var %n $?="NombRe de OpONeNte?" | sGset mNiCk $me | sGset pC $iif(%n,%n,$+($sGget(mNick),2)) | sGset TipO pC | sGset mtipO x | sGset OtipO o
  390. sGset OpoNeNte $sGget(pC) | sGset OpuNtOS $sGget(ppuNtOS) | sGcOmieNsA | halt }
  391. if ($inrect($mouse.x,$mouse.y,100,160,150,20)) { sGset mNiCk $me | sGset TipO bOt | sGset mtipO x | sGset OtipO o | sGset OpoNeNte SykOzbOt | sGset OpuNtOS $sGget(bpuNtOS) | sGcOmieNsA }
  392. if ($inrect($mouse.x,$mouse.y,100,185,150,20)) { sGopCiOneS }
  393. if ($inrect($mouse.x,$mouse.y,100,210,150,20)) { sGmIpuNtuAciON }
  394. if ($inrect($mouse.x,$mouse.y,100,235,150,20)) { sGset Menu SykOz | sGcReditOz }
  395. }
  396. if ($sGget(Menu) == Secundario) || ($sGget(Menu) == OpciONeS) {
  397. if ($inrect($mouse.x,$mouse.y,270,290,70,20)) { sGmueStrAbOtOneS }
  398. }
  399. if ($sGget(Menu) == JueGO) {
  400. if ($inrect($mouse.x,$mouse.y,249,318,40,20)) {
  401. if (%sGatO.mSj != $null) { sGmueStRAmeNsAje $sGget(mNick) $v1 | set %sGatO.mSj | drawrect -rf @sGatO $rgb(229,229,231) 1 8 321 239 16 }
  402. }
  403. }
  404. sGset UltimoEvento SykOz
  405. }
  406. }
  407. mouse { var %s = @sGatO
  408. if ($sGget(JueGO) == On) && ($sGget(tuRnO) == 1) {
  409. if ($gettok($sGget(UltimoEvento),1,32) == m) { $gettok($sGget(UltimoEvento),2-,32) | drawdot %s }
  410. if ($inrect($mouse.x,$mouse.y,5,64,114,85)) && (%sGatO.1 == $null) { sGdibujAXO 1 $sGget(mtipO) 6 65 112 83 }
  411. if ($inrect($mouse.x,$mouse.y,118,64,114,85)) && (%sGatO.2 == $null) { sGdibujAXO 2 $sGget(mtipO) 119 65 112 83 }
  412. if ($inrect($mouse.x,$mouse.y,231,64,114,85)) && (%sGatO.3 == $null) { sGdibujAXO 3 $sGget(mtipO) 232 65 112 83 }
  413. if ($inrect($mouse.x,$mouse.y,5,148,114,84)) && (%sGatO.4 == $null) { sGdibujAXO 4 $sGget(mtipO) 6 149 112 82 }
  414. if ($inrect($mouse.x,$mouse.y,118,148,114,84)) && (%sGatO.5 == $null) { sGdibujAXO 5 $sGget(mtipO) 119 149 112 82 }
  415. if ($inrect($mouse.x,$mouse.y,231,148,114,84)) && (%sGatO.6 == $null) { sGdibujAXO 6 $sGget(mtipO) 232 149 112 82 }
  416. if ($inrect($mouse.x,$mouse.y,5,231,114,85)) && (%sGatO.7 == $null) { sGdibujAXO 7 $sGget(mtipO) 6 232 112 83 }
  417. if ($inrect($mouse.x,$mouse.y,118,231,114,85)) && (%sGatO.8 == $null) { sGdibujAXO 8 $sGget(mtipO) 119 232 112 83 }
  418. if ($inrect($mouse.x,$mouse.y,231,231,114,85)) && (%sGatO.9 == $null) { sGdibujAXO 9 $sGget(mtipO) 232 232 112 83 }
  419. }
  420. if ($sGget(JueGO) == On) && ($sGget(tuRnO) == 2) && ($sGget(TipO) == pC) {
  421. if ($gettok($sGget(UltimoEvento),1,32) == m) { $gettok($sGget(UltimoEvento),2-,32) | drawdot %s }
  422. if ($inrect($mouse.x,$mouse.y,5,64,114,85)) && (%sGatO.1 == $null) { sGdibujAXO 1 $sGget(OtipO) 6 65 112 83 }
  423. if ($inrect($mouse.x,$mouse.y,118,64,114,85)) && (%sGatO.2 == $null) { sGdibujAXO 2 $sGget(OtipO) 119 65 112 83 }
  424. if ($inrect($mouse.x,$mouse.y,231,64,114,85)) && (%sGatO.3 == $null) { sGdibujAXO 3 $sGget(OtipO) 232 65 112 83 }
  425. if ($inrect($mouse.x,$mouse.y,5,148,114,84)) && (%sGatO.4 == $null) { sGdibujAXO 4 $sGget(OtipO) 6 149 112 82 }
  426. if ($inrect($mouse.x,$mouse.y,118,148,114,84)) && (%sGatO.5 == $null) { sGdibujAXO 5 $sGget(OtipO) 119 149 112 82 }
  427. if ($inrect($mouse.x,$mouse.y,231,148,114,84)) && (%sGatO.6 == $null) { sGdibujAXO 6 $sGget(OtipO) 232 149 112 82 }
  428. if ($inrect($mouse.x,$mouse.y,5,231,114,85)) && (%sGatO.7 == $null) { sGdibujAXO 7 $sGget(OtipO) 6 232 112 83 }
  429. if ($inrect($mouse.x,$mouse.y,118,231,114,85)) && (%sGatO.8 == $null) { sGdibujAXO 8 $sGget(OtipO) 119 232 112 83 }
  430. if ($inrect($mouse.x,$mouse.y,231,231,114,85)) && (%sGatO.9 == $null) { sGdibujAXO 9 $sGget(OtipO) 232 232 112 83 }
  431. }
  432. }
  433. leave {
  434. if ($gettok($sGget(UltimoEvento),1,32) == s) || ($gettok($sGget(UltimoEvento),1,32) == m) {
  435. $gettok($sGget(UltimoEvento),2-,32) | drawdot @sGatO
  436. sGset UltimoEvento SykOz
  437. }
  438. }
  439. $submenu($SykOz($1))
  440. }
  441. alias SykOz {
  442. if ($1 == begin) return -
  443. if ($1 == 1) return $iif($sGget(Desktop) == On,$style(1)) Desktop $+([,$sGget(Desktop),]) :sGset Desktop $iif($sGget(Desktop) == Off,On,Off)
  444. if ($1 == 2) return -
  445. if ($1 == 3) return $iif($sGget(bOtv) == LeNtO,$style(3)) SykOzbOt LeNtO:sGset bOtv LeNtO
  446. if ($1 == 4) return $iif($sGget(bOtv) == NoRmAl,$style(3)) SykOzbOt NoRmAl:sGset bOtv NoRmAl
  447. if ($1 == 5) return $iif($sGget(bOtv) == RapidO,$style(3)) SykOzbOt RapidO:sGset bOtv RapidO
  448. if ($1 == 6) return -
  449. if ($1 == 7) return Borrar puNtuAciON:remini $scriptdirsGatO.iNi spuNtOS
  450. if ($sGget(Menu) == JueGO) {
  451. if ($1 == 8) return -
  452. if ($1 == 9) return RegReSaR A MeNu pRiNcipAl:sGRegReSaR
  453. }
  454. if ($1 == end) return -
  455. }
  456. alias -l sGRegReSaR {
  457. if ($sGget(TipO) == IRC) sGnOtiCe $sGget(OpoNeNte) CieRRa
  458. sGset Menu SykOz | sGset UltimoEvento SykOz | sGset JueGO SykOz | sGset TipO SykOz | sGset mtipO SykOz | sGset OtipO SykOz | sGset tuRnO SykOz | sGset OpoNeNte SykOz | sGset pC SykOz
  459. sGset mjp SykOz | sGset mNiCk SykOz | sGset OpuNtOS SykOz | unset %sGatO* | sGmueStrAbOtOneS
  460. }
  461. on *:close:@sGatO: { sGceRRaRveNtAnA }
  462. alias -l sGmOveR {
  463. window @sGatO $calc($iif($sGget(Desktop) == On,$mouse.dx,$mouse.mx) - $1) $calc($iif($sGget(Desktop) == On,$mouse.dy,$mouse.my) - $2)
  464. if ($mouse.key & 1) .timersGatOm -m 1 0 sGmOveR $1-
  465. }
  466. alias -l sGceRRaRveNtAnA {
  467. if ($sGget(JueGO) == On) {
  468. if ($sGget(TipO) == IRC) sGnOtiCe $sGget(OpoNeNte) CieRRa
  469. if (!$ini($scriptdirsGatO.iNi,spuNtOS)) var %l = 1
  470. else var %l = $calc($ini($scriptdirsGatO.iNi,spuNtOS,0) + 1)
  471. writeini $scriptdirsGatO.iNi spuNtOS %l $+($sGget(TipO),:,$sGget(OpoNeNte),:,$time(dd/mm/yy),:,$gettok($sGget(mjp),1,58))
  472. sGset mpeRdidOS $calc($sGget(mpeRdidOS) + $gettok($sGget(mjp),2,58))
  473. noop $sGinput(JueGO TeRmInAdO!).SykO
  474. }
  475. sGset Menu SykOz | sGset UltimoEvento SykOz | sGset JueGO SykOz | sGset TipO SykOz | sGset mtipO SykOz | sGset OtipO SykOz | sGset tuRnO SykOz | sGset OpoNeNte SykOz | sGset pC SykOz
  476. sGset mjp SykOz | sGset mNiCk SykOz | sGset OpuNtOS SykOz | unset %sGatO* | close -@ @sGatO*
  477. }
  478. on *:keydown:@sGatO:*:{
  479. if ($sGget(Menu) == JueGO) { var %t = %sGatO.mSj
  480. if ($keyval != 8) {
  481. if ($asc($keychar) == 32) var %s = $chr(160)
  482. else var %s = $iif($asc($keychar) != 11,$keychar,$chr(3))
  483. %t = $replace($+(%t,%s),$chr(32),$chr(160))
  484. }
  485. else %t = $replace($left(%t,-1),$chr(32),$chr(160))
  486. if ($keyval == 13) { sGmueStRAmeNsAje $sGget(mNick) %sGatO.msj | set %sGatO.mSj | drawrect -rf @sGatO $rgb(229,229,231) 1 8 321 239 16 | return }
  487. set %sGatO.mSj %t
  488. drawrect -rnf @sGatO $rgb(229,229,231) 1 8 321 239 16
  489. if (%t != $null) drawtext -rnc @sGatO $rgb(0,0,0) tahoma 10 9 322 237 13 %t
  490. drawdot @sGatO
  491. }
  492. }
  493. on *:load: {
  494. sGset Desktop On | sGset bOtv NoRmAl | sGset Menu SykOz | sGset UltimoEvento SykOz | sGset JueGO SykOz | sGset TipO SykOz | sGset mtipO SykOz | sGset OtipO SykOz | sGset tuRnO SykOz
  495. sGset OpoNeNte SykOz | sGset pC SykOz | sGset mjp SykOz | sGset bpuNtOS 0 | sGset ppuNtOS 0 | sGset mpuNtOS 0 | sGset mpeRdidOS 0 | sGset OpuNtOS SykOz | sGset mNiCk SykOz
  496. }
  497. alias -l sGget return $readini($scriptdirsGatO.iNi,sInfO,$1)
  498. alias -l sGset writeini $scriptdirsGatO.iNi sInfO $1-
  499. alias -l sGcONectA {
  500. if ($1 == $me) { noop $sGinput(pOR fAvOR!!! tu miSmO?).SykO | halt }
  501. sGnOtiCe $1
  502. }
  503. alias -l sGnOtiCe .notice $1 sGatO- $2-
  504. on ^*:notice:sGatO-*:*: {
  505. if ($2 == Si) { sGset mNiCk $me | sGset TipO IRC | sGset OpoNeNte $nick | sGset OpuNtOS $3 | sGset JueGO On | sGset mtipO x | sGset OtipO o | sGatO | sGnOtiCe $nick Comiensa $sGget(mpuNtOS) }
  506. elseif ($2 == No) .timer 1 0 sGNoAceptO
  507. elseif ($2 == Comiensa) { sGset mNiCk $me | sGset TipO IRC | sGset OpoNeNte $nick | sGset OpuNtOS $3 | sGset JueGO On | sGset mtipO o | sGset OtipO x | sGatO }
  508. elseif ($2 == msj) sGmueStRAmeNsAje $sGget(OpoNeNte) $3-
  509. elseif ($2 == mOvidA) sGdibujAXO $3 $sGget(OtipO)
  510. elseif ($2 == CieRRa) sGceRRaRveNtAnA
  511. else { .timer 1 0 sGpreguNtASiONO $nick }
  512. haltdef
  513. }
  514. on *:nick: { if ($nick == $sGget(OpoNeNte)) sGset OpoNeNte $newnick }
  515. on *:quit: { if ($nick == $sGget(OpoNeNte)) sGceRRaRveNtAnA }
  516. alias -l sGpreguNtASiONO {
  517. var %SykO = $sGinput($nick te A iNvitAdO A jugAR uNA pARtidA de sGatO, AceptAS? $crlf Si[yes] No[No])
  518. if (%SykO) sGnOtiCe $1 Si $sGget(mpuNtOS)
  519. else sGnOtiCe $1 No
  520. }
  521. alias -l sGNoAceptO noop $sGinput($nick No AceptO).SykO
  522. alias -l sGinput return $input($1-,$iif($prop,o,y))
  523.  
  524. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
  525. ; Terminado: 29 de julio, del 2009 ;
  526. ; ;
  527. ; Fin de documento ;
  528. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;

©

Table 'wormz_escripting.wormzbot_simpladd' doesn't exist =

Reset

Commentarios


0

0
Promedio de Puntuacion: (2)  5.00
There are no comments for this snippet
EScripting.NET #eScripting, ChatHispano utiliza cookies. Las cookies nos permiten ofrecer nuestros servicios. Más información. Por favor, haga clic en el botón Aceptar para ocultar esta barra y aceptar nuestras cookies. Si usted continúa utilizando Nuestro sitio sin realizar ninguna acción, vamos a suponer que usted consiente nuestras cookies de todos modos.
Cookiebar Panel fromVenue

Iniciar Sesión

Nombre de Usuario

Contraseña



¿No eres miembro?
Regístrate aquí.

¿Contraseña olvidada?
Recupera tu contraseña.

Usuarios Conectados

Invitados: 1
Miembros: 0
Total Miembros: 352
Último Miembro: DaNnY

Últimas Visitas:

SykO 1 Semana
aM3 1 Semana
FsDk 2 Semanas
NiGhT 2 Semanas
kn1ght 5 Semanas
AfraN 7 Semanas
Zetup 18 Semanas
slim 50 Semanas
El_tio_la... 65 Semanas
MaCLeoD 71 Semanas

  Ver más usuarios 

Mini Charla

Tienes que logearte para enviar un mensaje.

11-01-2018 09:31
0_o

04-07-2017 22:29
Angry Sad Angry

13-05-2017 00:03
omg saludos a todos!!

21-01-2017 21:03
Shock Grin Shock

07-01-2017 01:25
Angry Sad Angry Cool

Archivo de mensajes