Ú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 4 Semanas
JamesRooff 5 Semanas
Williamvob 6 Semanas
AfraN 13 Semanas
KeithDup 16 Semanas
Normandlus 17 Semanas
kikuchi 17 Semanas
SykO 18 Semanas
JamesPatty 19 Semanas
nilicar 19 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,438,455 Visitas Únicas