Últimos Codigos Enviados

Top Snippets mejor calificados

Top Me gustan Snippets

Últimos Artículos

Lo mas popular

Iniciar Sesión

Nombre de Usuario

Contraseña



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

Usuarios Conectados

· Invitados: 1
· Miembros: 0
· Total Miembros: 464
· Último Miembro: DaglazRek

Últimas Visitas:

FsDk 2 Semanas
AfraN 2 Semanas
KeithDup 6 Semanas
Normandlus 6 Semanas
kikuchi 6 Semanas
Williamvob 7 Semanas
SykO 8 Semanas
JamesPatty 8 Semanas
nilicar 8 Semanas
DustinCob 9 Semanas

Últimas Descargas

Últimos Comentarios

Mini Charla

Tienes que logearte para enviar un mensaje.

09-05-2020 13:27
Pfft Pfft Grin Cool

08-05-2020 15:04
Angry Sad Angry

11-01-2018 09:31
0_o

04-07-2017 22:29
Angry Sad Angry

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

Codigos Snippets

WormZ -> Snippets > mIRC Scripting > PPTV (Trabajo en progres)

PPTV (Trabajo en progres)

Enviado Por: SykO
Descripcion:
Buscando viejos trabajos de StanZ me encontre con el video de uno de sus demos: https://www.youtube.com/watch?v=-sfbIhqEquo

Este es un "intento" de recrear un poco este demo como tributo a StanZ (y aprender cosas nuevas).

Para comenzar utiliza el comando: /pptv
Para cerrar la ventana da doble click
Para mover simplemente da click en la ventana y muevela.
Codigo:
  1. alias pptv {
  2. window -pdBfC +d @pptv 0 0 640 360
  3.  
  4. window -hpBf +d @pptvbufone 0 0 640 360
  5. drawrect -rf @pptvbufone 1 1 0 0 640 360
  6. drawpic -rsc @pptvbufone 0 0 52 52 $qt($mircexe)
  7. var %i = 52
  8.  
  9. while (%i) {
  10. var %j = 52
  11.  
  12. while (%j) {
  13. if ($getdot(@pptvbufone,$calc(%i - 1),$calc(%j - 1)) != 1) {
  14. var %rgb = $rgb($v1)
  15. var %gray = $int($calc((0.3 * $gettok(%rgb,1,44)) + (0.59 * $gettok(%rgb,2,44)) + (0.11 * $gettok(%rgb,3,44))))
  16.  
  17. drawdot -rn @pptvbufone $rgb(%gray,%gray,%gray) 1 $calc(%i - 1) $calc(%j - 1)
  18. }
  19.  
  20. dec %j
  21. }
  22.  
  23. dec %i
  24. }
  25.  
  26. window -hpBf +d @pptvbuftwo 0 0 640 360
  27.  
  28. hmake pptv 1
  29.  
  30. hadd pptv fps 0
  31. hadd pptv fc 0
  32. hadd pptv fticks $ticks
  33. hadd pptv screen menu
  34.  
  35. hadd pptv scroll 0
  36.  
  37. pptvloop
  38. }
  39.  
  40. alias pptvloop {
  41. if ($window(@pptv)) {
  42. if ($hget(pptv,screen) == menu) {
  43. drawrect -rfn @pptv $rgb(135,206,250) 1 0 0 640 360
  44. drawrect -rfn @pptv $rgb(0,0,0) 1 10 0 60 360
  45.  
  46. drawrect -rfn @pptv $rgb(70,130,180) 1 15 5 50 50 15 60 50 50 15 115 50 50 15 170 50 50 15 225 50 50 15 280 50 50 15 335 50 45
  47.  
  48. if ($hget(pptv,transition) == $null) {
  49. drawscroll -n @pptv 0 $hget(pptv,scroll) 10 0 60 360
  50.  
  51. if ($hget(pptv,scroll) > 54) hadd pptv scroll -1
  52.  
  53. hinc pptv scroll
  54. }
  55.  
  56. drawtext -rn @pptv $rgb(70,130,180) tahoma 50 98 12 CABLE MENU
  57. drawtext -rn @pptv $rgb(0,0,255) tahoma 50 100 10 CABLE MENU
  58.  
  59. drawrect -rfn @pptv $iif($inrect($hget(pptv,mousex),$hget(pptv,mousey),100,100,230,60),$rgb(255,0,0),$rgb(255,255,255)) 1 100 100 230 60
  60.  
  61. drawrect -rfn @pptv $rgb(42,58,68) 1 102 102 226 56
  62. drawcopy -tn @pptvbufone 1 0 0 52 52 @pptv 104 104
  63. drawtext -rcn @pptv $rgb(100,100,100) impact 34 156 108 170 50 SCRIPTS.NET
  64. drawtext -rcn @pptv $rgb(100,100,100) impact 34 156 108 170 40 SCRIPTS.NET
  65. drawtext -rcn @pptv $rgb(150,150,150) impact 34 156 108 170 30 SCRIPTS.NET
  66. drawtext -rcn @pptv $rgb(200,200,200) impact 34 156 108 170 20 SCRIPTS.NET
  67. drawtext -rcn @pptv $rgb(255,255,255) impact 34 156 108 170 10 SCRIPTS.NET
  68.  
  69. drawtext -rn @pptv $rgb(70,130,180) tahoma 18 355 121 ENGLISH VERSION
  70. drawtext -rn @pptv $rgb(255,255,255) tahoma 18 356 120 ENGLISH VERSION
  71.  
  72. drawrect -rfn @pptv $iif($inrect($hget(pptv,mousex),$hget(pptv,mousey),100,180,230,60),$rgb(255,0,0),$rgb(255,255,255)) 1 100 180 230 60
  73.  
  74. drawrect -rfn @pptv $rgb(70,130,180) 1 102 182 226 56
  75. drawtext -rn @pptv $rgb(135,206,250) fixedsys 34 115 181 PICWIN
  76. drawtext -rn @pptv $rgb(0,0,0) fixedsys 34 114 180 PICWIN
  77. drawtext -rn @pptv 0 "segoe ui symbol" 46 274 180 $chr(55357) $+ $chr(56840)
  78. drawtext -rn @pptv 0 "segoe ui symbol" 46 274 180 $chr(55357) $+ $chr(56840)
  79. drawtext -rn @pptv 0 "segoe ui symbol" 46 274 180 $chr(55357) $+ $chr(56840)
  80. drawtext -rn @pptv 0 "segoe ui symbol" 46 274 180 $chr(55357) $+ $chr(56840)
  81. drawtext -rn @pptv 0 "segoe ui symbol" 46 274 180 $chr(55357) $+ $chr(56840)
  82. drawfill -rn @pptv $rgb(180,0,0) 0 282 208
  83. drawtext -rn @pptv $rgb(135,206,250) fixedsys 14 135 221 GAMES + DEMOS
  84. drawtext -rn @pptv $rgb(0,0,0) fixedsys 14 134 220 GAMES + DEMOS
  85.  
  86. drawtext -rn @pptv $rgb(70,130,180) tahoma 18 355 201 SPANGLISH VERSION
  87. drawtext -rn @pptv $rgb(255,255,255) tahoma 18 356 200 SPANGLISH VERSION
  88.  
  89. drawrect -rfn @pptv $rgb(0,0,0) 1 100 260 230 100
  90. drawrect -rfn @pptv $rgb(255,255,255) 1 102 262 226 96
  91. drawrect -rfn @pptv $rgb(0,0,0) 1 104 264 222 28 104 328 222 28
  92. drawtext -rn @pptv $rgb(255,255,255) impact 20 160 265 P A R E N T A L
  93. drawtext -rn @pptv $rgb(0,0,0) impact 40 110 286 A D V I S O R Y
  94. drawtext -rn @pptv $rgb(255,255,255) impact 20 140 329 S T U P I D $chr(2) S H I T !
  95.  
  96. drawrect -rfn @pptv $rgb(0,191,255) 1 355 280 140 20
  97. drawtext -rn @pptv $rgb(70,130,180) tahoma 16 356 281 PPT1 purple TV
  98. drawtext -rn @pptv $rgb(255,255,255) tahoma 16 357 280 PPT1 purple TV
  99. drawtext -rn @pptv $rgb(70,130,180) tahoma 16 366 301 XXX CHANNEL
  100. drawtext -rn @pptv $rgb(220,0,0) tahoma 16 367 300 XXX CHANNEL
  101. drawtext -rn @pptv $rgb(70,130,180) tahoma 16 376 321 CANAL CHINGON
  102. drawtext -rn @pptv $rgb(220,0,0) tahoma 16 377 320 CANAL CHINGON
  103. drawtext -rn @pptv $rgb(70,130,180) tahoma 16 386 341 StanZ's DEMOS
  104. drawtext -rn @pptv $rgb(220,0,0) tahoma 16 387 340 StanZ's DEMOS
  105.  
  106. if ($hget(pptv,transition)) {
  107. drawcopy @pptv 0 0 640 360 @pptvbuftwo 0 0
  108.  
  109. hadd pptv screen menu_transition
  110. }
  111. }
  112. elseif ($v1 == menu_transition) {
  113. drawrot -fn @pptvbuftwo $hget(pptv,transition)
  114. drawcopy -n @pptvbuftwo 0 0 640 360 @pptv 0 0
  115.  
  116. hinc pptv transition
  117.  
  118. if ($hget(pptv,transition) > 45) hadd pptv screen laugh
  119. }
  120. elseif ($v1 == laugh) {
  121. drawrect -rfn @pptv $rgb(128,0,128) 1 0 0 640 360
  122.  
  123. hinc pptv laugh
  124.  
  125. var %laugh = $hget(pptv,laugh)
  126.  
  127. if (%laugh < 80) drawtext -rn @pptv $rgb(255,255,255) "segoe ui symbol" 200 220 20 $chr(55357) $+ $chr(56904)
  128. else drawtext -rn @pptv $rgb(255,255,255) "segoe ui symbol" 200 220 20 $chr(55357) $+ $chr(56905)
  129.  
  130. if (%laugh == 1) .speak -csp 20 0 mwahahahahahaha
  131. if (%laugh > 1) drawtext -rn @pptv $rgb(255,0,0) tahoma 14 220 40 HA!
  132. if (%laugh > 20) drawtext -rn @pptv $rgb(255,0,0) tahoma 14 200 44 HA!
  133. if (%laugh > 40) drawtext -rn @pptv $rgb(255,0,0) tahoma 14 180 48 HA!
  134. if (%laugh > 60) drawtext -rn @pptv $rgb(255,0,0) tahoma 14 190 60 HA!
  135. if (%laugh > 80) drawtext -rn @pptv $rgb(255,0,0) tahoma 14 210 64 HA!
  136. if (%laugh > 100) drawtext -rn @pptv $rgb(255,0,0) tahoma 14 230 78 HA!
  137. if (%laugh > 120) {
  138. drawtext -rn @pptv $rgb(255,0,0) tahoma 14 215 94 HA!
  139.  
  140. drawdot -rn @pptv $rgb(255,0,0) 12 298 142 340 142
  141. }
  142. if (%laugh > 140) drawtext -rn @pptv $rgb(255,0,0) tahoma 14 195 98 HA!
  143. if (%laugh > 160) {
  144. drawcopy @pptv 0 0 640 360 @pptvbuftwo 0 0
  145.  
  146. hadd pptv transition 1
  147. hadd pptv screen laugh_transition
  148. }
  149. else {
  150. var %i = 10
  151. var %t = $ticks
  152. var %c = $abs($floor($calc($sin($calc(%t % (2 * 3.14))) * 255)))
  153.  
  154. drawrect -r @pptvbufone $rgb(%c,%c,%c) 1 0 0 640 360
  155.  
  156. while (%i) {
  157. drawscroll @pptvbufone $calc(200 * $sin(%t)) 0 0 %i 640 360
  158. drawscroll @pptvbufone 0 $calc(200 * $cos(%t)) %i 0 640 360
  159. drawscroll @pptvbufone $calc(200 * $sin(%t)) $calc(100 * $cos(%t)) %i %i 640 360
  160. dec %i
  161. }
  162. }
  163. }
  164. elseif ($v1 == laugh_transition) {
  165. var %x = 180
  166.  
  167. while (%x < 420) {
  168. drawscroll @pptvbuftwo 0 $rand(1,20) %x 0 2 360
  169.  
  170. inc %x $rand(2,4)
  171. }
  172.  
  173. hinc pptv transition
  174.  
  175. drawcopy -n @pptvbuftwo 0 0 640 360 @pptv 0 0
  176.  
  177. if ($v1 > 60) hadd pptv screen static
  178. }
  179. elseif ($v1 == static) {
  180. var %t = $ticks
  181. var %c = $abs($floor($calc($sin(%t) * 255)))
  182. var %color = $rgb(%c,%c,%c)
  183.  
  184. hinc pptv animation
  185.  
  186. var %animation = $hget(pptv,animation)
  187.  
  188. if (%animation > 1300) %color = $rgb(%c,0,$abs($floor($calc($cos(%t) * 255))))
  189.  
  190. drawrect -rc @pptvbufone %color 1 0 0 640 360
  191.  
  192. drawscroll @pptvbufone $calc(200 * $sin(%t)) 0 0 $calc(%t % 10) 640 360
  193. drawscroll @pptvbufone 0 $calc(200 * $cos(%t)) $calc(%t % 10) 0 640 360
  194. drawscroll @pptvbufone $calc(200 * $sin(%t)) $calc(100 * $cos(%t)) $calc(%t % 10) $calc(%t % 10) 640 360
  195.  
  196. drawcopy -rn @pptvbufone 0 0 620 340 @pptv 0 0 640 360
  197.  
  198. drawrect -rfn @pptv $rgb(0,0,205) 1 10 10 60 30
  199. drawtext -rn @pptv $rgb(255,255,0) tahoma 24 12 10 PPT1
  200.  
  201. if (%animation == 20) {
  202. if ($hget(pptv,language) == spanglish) .speak -csp 50 0 oh-rah-leh psycho ehs-tah cheeng-gohn l coh-me-n-so, peh-roh ke ehs-toy v-ehn-doh ah-oh-rah?
  203. else .speak -csp 50 0 cool start psycho, but what the fuck am i looking at now? could you please fix your shit!
  204. }
  205. elseif ($v1 > 800) && ($v1 < 1400) {
  206. if ($hget(pptv,language) == spanglish) {
  207. drawtext -rn @pptv $rgb(255,255,255) impact 30 20 140 Tu solo watcha y relajate, este pedo apenas
  208. drawtext -rn @pptv $rgb(255,255,255) impact 30 220 180 comienza! Deja saco los colores!
  209. }
  210. else {
  211. drawtext -rn @pptv $rgb(255,255,255) impact 30 20 140 Just sit back and enjoy the show, I am just
  212. drawtext -rn @pptv $rgb(255,255,255) impact 30 80 180 getting started! Let me pull out some colors!
  213. }
  214. }
  215. elseif ($v1 > 1400) && ($v1 < 2000) {
  216. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 168 98 PURPLE
  217. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 172 98 PURPLE
  218. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 168 102 PURPLE
  219. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 172 102 PURPLE
  220. drawtext -rn @pptv $rgb(0,0,0) "comic sans ms bold" 80 169 99 PURPLE
  221. drawtext -rn @pptv $rgb(0,0,0) "comic sans ms bold" 80 171 99 PURPLE
  222. drawtext -rn @pptv $rgb(0,0,0) "comic sans ms bold" 80 169 101 PURPLE
  223. drawtext -rn @pptv $rgb(0,0,0) "comic sans ms bold" 80 171 101 PURPLE
  224. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 170 100 PURPLE
  225. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 48 168 TELEVISION
  226. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 52 168 TELEVISION
  227. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 48 172 TELEVISION
  228. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 52 172 TELEVISION
  229. drawtext -rn @pptv $rgb(0,0,0) "comic sans ms bold" 80 49 169 TELEVISION
  230. drawtext -rn @pptv $rgb(0,0,0) "comic sans ms bold" 80 51 169 TELEVISION
  231. drawtext -rn @pptv $rgb(0,0,0) "comic sans ms bold" 80 49 171 TELEVISION
  232. drawtext -rn @pptv $rgb(0,0,0) "comic sans ms bold" 80 51 171 TELEVISION
  233. drawtext -rn @pptv $rgb(255,255,255) "comic sans ms bold" 80 50 170 TELEVISION
  234. }
  235. elseif ($v1 > 2000) {
  236. hadd pptv screen scroll
  237.  
  238. hadd pptv animation 0
  239.  
  240. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 168 98 PURPLE
  241. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 172 98 PURPLE
  242. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 168 102 PURPLE
  243. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 172 102 PURPLE
  244. drawtext -rn @pptvbufone $rgb(0,0,0) "comic sans ms bold" 80 169 99 PURPLE
  245. drawtext -rn @pptvbufone $rgb(0,0,0) "comic sans ms bold" 80 171 99 PURPLE
  246. drawtext -rn @pptvbufone $rgb(0,0,0) "comic sans ms bold" 80 169 101 PURPLE
  247. drawtext -rn @pptvbufone $rgb(0,0,0) "comic sans ms bold" 80 171 101 PURPLE
  248. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 170 100 PURPLE
  249. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 48 168 TELEVISION
  250. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 52 168 TELEVISION
  251. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 48 172 TELEVISION
  252. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 52 172 TELEVISION
  253. drawtext -rn @pptvbufone $rgb(0,0,0) "comic sans ms bold" 80 49 169 TELEVISION
  254. drawtext -rn @pptvbufone $rgb(0,0,0) "comic sans ms bold" 80 51 169 TELEVISION
  255. drawtext -rn @pptvbufone $rgb(0,0,0) "comic sans ms bold" 80 49 171 TELEVISION
  256. drawtext -rn @pptvbufone $rgb(0,0,0) "comic sans ms bold" 80 51 171 TELEVISION
  257. drawtext -rn @pptvbufone $rgb(255,255,255) "comic sans ms bold" 80 50 170 TELEVISION
  258. }
  259. }
  260. elseif ($v1 == scroll) {
  261. hinc pptv animation
  262.  
  263. var %i = 640
  264. var %s = 5
  265. var %t = $hget(pptv,animation)
  266. var %r = $abs($floor($calc($sin($calc(%t * .01)) * 127 + 128)))
  267. var %g = $abs($floor($calc($sin($calc(%t * .02 + 2)) * 127 + 128)))
  268. var %b = $abs($floor($calc($sin($calc(%t * .03 + 4)) * 127 + 128)))
  269. while (%i >= 0) {
  270. drawscroll -n @pptvbufone 0 $rand(2,-10) $calc(640 - %i) 0 %s 360
  271. dec %i %s
  272. }
  273. drawrect -rfcn @pptvbufone $rgb(%r,%g,%b) 1 0 358 640 2
  274. drawcopy -rn @pptvbufone 0 0 620 340 @pptv 0 0 640 360
  275.  
  276. drawrect -rfn @pptv $rgb(0,0,205) 1 10 10 60 30
  277. drawtext -rn @pptv $rgb(255,255,0) tahoma 24 12 10 PPT1
  278.  
  279. if ($hget(pptv,animation) > 900) {
  280. hadd pptv screen scroll2
  281. hadd pptv animation 0
  282. }
  283. }
  284. elseif ($v1 == scroll2) {
  285. hinc pptv animation
  286.  
  287. var %a = $hget(pptv,animation)
  288.  
  289. var %r = $abs($floor($calc($sin($calc(%a * .01)) * 127 + 128)))
  290. var %g = $abs($floor($calc($sin($calc(%a * .02 + 2)) * 127 + 128)))
  291. var %b = $abs($floor($calc($sin($calc(%a * .03 + 4)) * 127 + 128)))
  292.  
  293. drawscroll -n @pptvbufone 0 -20 0 0 640 360
  294. drawscroll -n @pptvbufone 0 -1 0 0 640 360
  295.  
  296. drawrect -rfn @pptvbufone $rgb(%r,%g,%b) 1 0 359 640 1
  297.  
  298. drawcopy -rn @pptvbufone 0 0 620 340 @pptv 0 0 640 360
  299.  
  300. drawrect -rfn @pptv $rgb(0,0,205) 1 10 10 60 30
  301. drawtext -rn @pptv $rgb(255,255,0) tahoma 24 12 10 PPT1
  302. }
  303. else drawrect -rfn @pptv $rgb(0,0,0) 1 0 0 640 360
  304.  
  305. hinc pptv fc
  306.  
  307. if ($calc($ticks - $hget(pptv,fticks)) >= 1000) {
  308. hadd pptv fps $hget(pptv,fc)
  309. hadd pptv fc 0
  310. hadd pptv fticks $ticks
  311. }
  312.  
  313. drawtext -rn @pptv 255 tahoma 9 600 350 FPS: $hget(pptv,fps)
  314.  
  315. if ($mouse.key & 1) && ($hget(pptv,mousex) != $null) {
  316. window @pptv $calc($mouse.cx - $click(@pptv,$click(@pptv,0)).x) $calc($mouse.cy - $click(@pptv,$click(@pptv,0)).y)
  317.  
  318. drawrect -rn @pptv 255 1 0 0 640 360
  319. }
  320.  
  321. drawdot @pptv
  322.  
  323. .timerpptv -ho 0 1 pptvloop
  324. }
  325. }
  326.  
  327. menu @pptv {
  328. mouse: {
  329. hadd pptv mousex $mouse.x
  330. hadd pptv mousey $mouse.y
  331. }
  332. sclick: {
  333. if ($hget(pptv,screen) == menu) {
  334. if ($inrect($mouse.x,$mouse.y,100,100,230,60)) {
  335. hadd pptv language english
  336. hadd pptv transition 1
  337. }
  338. elseif ($inrect($mouse.x,$mouse.y,100,180,230,60)) {
  339. hadd pptv language spanglish
  340. hadd pptv transition 1
  341. }
  342. }
  343. }
  344. dclick: pptvclose
  345. leave: hdel -w pptv mouse*
  346. }
  347.  
  348. on *:close:@pptv: pptvclose
  349.  
  350. alias pptvclose {
  351. if ($window(@pptv)) window -c @pptv
  352. .timerpptv off
  353. .speak -c
  354. hfree pptv
  355. window -c @pptvbuftwo
  356. window -c @pptvbufone
  357. }

©

=

Reset

Commentarios


1

0
Promedio de Puntuacion: (0)  0
#1 | FsDk on 2020-04-29 22:18:49:
lol!! bro jajaj siempre fuerte!
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
Generado en 0.22 segundos
2,331,338 Visitas Únicas