1 / 129

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;. ;; Screamer þ Written by Dolittle of DOD ;;. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;. ;; Call Information S.H.W. +972-9-958053 ;;. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;. String UK, Reason, key, user, chatter, pagechr, crx, cry.

lavada
Download Presentation

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  2. ;; Screamer þ Written by Dolittle of DOD ;;

  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  4. ;; Call Information S.H.W. +972-9-958053 ;;

  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  6. String UK, Reason, key, user, chatter, pagechr, crx, cry

  7. Integer Leng, times, ticks, min_leng

  8. time start_time,end_time

  9. boolean may_i

  10. let start_time = readline(189,pcbdat())

  11. let end_time = readline(190,pcbdat())

  12. let may_i=false

  13. if ((time() > start_time) & (time() < end_time)) let may_i=true

  14. fopen 2,ppepath()+"screamer.cnf",o_rd,s_Dw

  15. fget 2,chatter

  16. fget 2,ticks

  17. fget 2,pagechr

  18. fget 2,min_leng

  19. let pagechr = mid(pagechr,1,1)

  20. fclose 2

  21. println "@CLS@@POFF@@X0F @X08°"

  22. println "@X08 ±°"

  23. println "@X08 ° ° °"

  24. println "@X08 ÜÜÜÜÜ °±ß° Ü ° Ü ° ÜÜÜÜ"

  25. println "@X08 Üß° ßßÜ ° ÜÜßß°ßß±Üß ßÜ °±Ü° Üßß° ßÜ"

  26. println "@X08 ²° @X05Ü@X5D°@X5FÜ@X5DÜ°@X05ÛÜ @X08ßÜ Üßß @X05ÜÜ@X5D°@X05ßßÜ@X08° @X05Ü@X5DÜ@X05Ü @X08ßÜ ° Û @X05ÜÜ@X5DÜÜ°@X05ÛÜ @X08Û"

  27. println "@X08 ÞÝ@X05Þß@X50°@X5Dß°@X05ß ß² @X08ÜßßÜ ÜßÜß²Ü@X05ß@X5D°@X5FÜ@X5D±@X0F @X08ÞÜ @X05Ü@X5D°ß@X5Fß@X5DÛþ@X0F @X08°ßÜÜßßÜÜßÜÜ ÜÜß°@X05Þß@X5DÞ@X5Fß@X05ß@X08Ü@X05ß@X5D°@X05Ý@X08ÞÝ"

  28. println "@X08 Ûþ @X05ß@X5D° @X05Ü@X08ßÜ °@X05ÜÜÜ @X08ß°@X05Ü ÜÜ@X08ßÝ@X05Þ@X5Dß@X05Ý @X08ß @X5D°@X05ß ß@X5D±°@X50°@X0F @X08ß@X05Ü ÜÜÜ ÜÜ @X08ß @X05ÜÜÜÜ Þ@X5D°@X05þÜÜÞß@X08Üß"

  29. println "@X08 Þß@X05Üþ@X08Ü @X05ß@X50°@X75Û@X05ÜÞ@X55 @X5D°@X05ß ßþÞ@X5D°@X05ß @X08Ü@X05ßþ@X5D°@X05ÛþßþÞÝ@X08°@X05ßßþ@X08°@X5D° @X05ÝÞ@X5D°@X05ß@X08Ü@X05Þ@X5D°@X05ß@X08Ü@X05ß@X5D°@X05Ü@X55 @X5D°@X05ßß@X5D°@X05ÝÞÝ @X08ÜÜ@X05ßÜ@X08ßÜ"

  30. println "@X08 ° ÞÝ@X05ß@X50°@X05ÜÜ@X50° °@X05ß@X5D°@X50°@X0F @X08ß²Ü @X50°@X05Ý@X08Þ²ÛÝ@X05Þ@X50°@X05ÜÜ @X08ßÜ@X05ßþ@X08ß²Ü @X05Û@X55 @X05ÝÛÝ@X08ÞÝ@X50°@X05Ý@X08ÞÝ@X05ÞÝÞ@X5D°@X05Ýþßß ßþ @X08ÜßÝ@X05ÞÝ@X08°²"

  31. println "@X08 ßÜ @X05ßßßß @X08Ü @X05ß@X50°@X05ÜÜþÞ@X5D°@X05ß@X08Üß @X05Ü@X50°@X05ßßß@X55 @X05þ@X08°²ßß ÞÝ@X05Þ@X50°@X05Þ@X50°@X05ß@X08þ@X05Þ@X5D°@X05ß Üß @X08Ü@X05ß@X50°@X05Ü @X08ß²ÜÜßÜß@X05ÜÛ² @X08ÞÝ"

  32. println "@X08 ßßÜÜßß ßÜÜÜ @X05ß @X08Ü @X05þß @X08ÜÜßÜ Üß Üß @X50°@X05ßß@X08ÜßÜ@X05ß @X08ܲ Üß ßÜ @X05ßþ @X08ßÜßÜÜ @X05ßþ@X08°²"

  33. println "@X08 ßßÜß ßÜßß ß Üß @X05þß@X08ÜÜß ßß ßß ± ßßÜÜß ßßßÜ°ÞÝ"

  34. println "@X08 ° ° ° ßßßß °ß±° HM.iCE ßßþ"

  35. println "@X08 °Ü° °"

  36. println "@X08 °"

  37. println "@X08 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

  38. println "@X08 ³ @X07Why should i scream to the sysop?@X08 ³"

  39. println "@X08 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

  40. println "@X08 ³............................................................................³"

  41. println "@X08 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"

  42. color 7

  43. Let Leng=0

  44. ansipos 3,20

  45. :QL

  46. let uk = inkey()

  47. if (uk = chr(13)) goto End_QL

  48. if (uk = chr(93)) goto QL

  49. if (uk = chr(29)) goto QL

  50. if (uk = chr(8)) then

More Related