....................................../////.===Shadow-Here===./////................................................ > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < ------------------------------------------------------------------------------------------------------------------- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// RIFF¤ WEBPVP8 ˜ ðÑ *ôô>‘HŸK¥¤"§£±¨àð enü¹%½_F‘åè¿2ºQú³íªú`N¿­3ÿƒügµJžaÿ¯ÿ°~¼ÎùnúîÞÖô•òíôÁÉß®Sm¥Ü/ ‡ó˜f£Ùà<˜„xëJ¢Ù€SO3x<ªÔ©4¿+ç¶A`q@Ì“Úñè™ÍÿJÌ´ª-˜ÆtÊÛL]Ïq*‘Ý”ì#ŸÌÏãY]@ê`¿ /ªfkØB4·®£ó z—Üw¥Pxù–ÞLШKÇN¾AkÙTf½è'‰g gÆv›Øuh~ a˜Z— ïj*á¥t d£“uÒ ¨`K˜¹ßþ]b>˜]_ÏÔ6W—è2r4x•íÖ…"ƒÖNîä!¦å Ú}ýxGøÌ —@ ;ÆÚŠ=ɾ1ý8lªË¥ô ^yf®Œ¢u&2©nÙÇ›ñÂñŒ³ aPo['½»øFùà­+4ê“$!lövlüÞ=;N®3ð‚õ›DÉKòÞ>ÄÍ ¥ˆuߤ#ˆ$6ù™¥îŠ‡y’ÍB¼ çxÛ;X"WL£R÷͝*ó-¶Zu}º.s¸sšXqù–DþÿvªhüïwyŸ ¯é³lÀ:KCûÄ£Ëá\…­ ~—ýóî ¼ûûÜTÓüÇy…ŽÆvc»¾×U ñ¸žþоP÷¦ó:Ò¨¨5;Ð#&#ÖúñläÿÁœ GxÉ­/ñ‡áQðìYÉtÒwŽ¼GÔ´zàÒò ð*ëzƒ•4~H]Ø‹f ñÓÈñ`NåWçs'ÆÏW^ø¹!XžµmQ5ÃËoLœÎ: ÞËÍ¥J ù…î èo£ßPÎñ¶ž8.Œ]ʵ~5›ÙË-ù*8ÙÖß±~ ©¹rÓê‚j¶d¸{^Q'˜±Crß ÚH—#¥¥QlÀ×ëã‡DÜ«èî þ&Çæžî;ŽÏºò6ÒLÃXy&ZŒ'j‚¢Ù€IßÚù+–MGi‰*jE€‘JcÜ ÓÌ EÏÚj]o˜ Þr <¾U ûŪæÍ/šÝH¥˜b”¼ ÁñßX GP›ï2›4WŠÏà×£…íÓk†¦H·ÅíMh–*nó÷à]ÁjCº€b7<ب‹¨5車bp2:Á[UªM„QŒçiNMa#<5›áËó¸HýÊ"…×Éw¹¦ì2º–x<›»a±¸3Weü®FÝ⑱ö–î–³|LPÈ~çð~Çå‡|º kD¢µÏàÆAI %1À% ¹Ò – ”ϝS¦‰4&¶£°à Öý”û_Ò Áw°A«Å€?mÇÛgHÉ/8)á¾ÛìáöŽP í¨PŸNÙµº¦‡§Ùš"ÿ«>+ªÕ`Ê÷‡‚ß Õû˜þãÇ-PÍ.¾XV‘€ dÜ"þ4¹ ±Oú‘©t¥¦FªÄÃÄ•b‚znýu½—#cDs˜ÃiÑOˆñ×QO=*IAÊ,¶ŽZƒ;‡wøXè%EÐk:F±Ú” .Ѽ+Áu&Ç`."pÈÉw o&¿dE6‘’EqTuK@Ì¥ã™À(Êk(h‰,H}RÀIXÛš3µ1©_OqÚÒJAñ$ÊÙÜ;D3çŒ[þùœh¬Ã³™ö6ç†NY".Ú‰ï[ªŸŒ '²Ð öø_¨ÂÉ9u鶳ÒŠõTàîMØ#û¯gN‡bÙ놚X„ö …ÉeüÌ^J ‹€.œ$Æ)βÄeæW#óüßĺŸ€ ÀzwV 9oä»f4V*uB «Ë†¹ì¯žR霓æHXa=&“I4K;¯ç‹h×·"UŠ~<•â•ªVêª&ÍSÃÆÅ?ÔqÎ*mTM ˜›µwêd#[C¡©§‘D<©àb†–ÁœøvH/,í:¯( ²£|4-„Æövv„Yͼ™^Á$ˆ„¢Û[6yB.åH*V¨æ?$=˜Ñ€•î¦ñ·­(VlŸ‘ nÀt8W÷´Bûba?q9ú¶Xƒl«ÿ\ù¶’þòUÐj/õ¢Ìµ³g$ƒÎR!¸»|Oߍë’BhîÚÑ¢ñåŒJ„®„£2Ð3•ô02Nt…!£Í]Ïc½Qÿ?ˆ<&ÃA¾Ú,JˆijÌ#5yz„‰Î|ÊŽ5QÏ:‹ÐaóVÔxW—CpeÏzÐïíçôÿÅ_[hãsÐ_/ŽTÝ?BîˆííV$<¿i>²F¬_Eß¿ †bÊŒº­ÿ®Z H“C}”¬,Mp ý/Bá£w>˜YV°aƒúh+cŠ- r/[%|üUMHäQ°X»|û/@|°¥Ð !BÔ Ç¢Ä©š+Õì D«7ìN¶ŽðÔ " ƶ’ÖçtA‰Û×}{tþz­¾GÍ›k¹OEJR$ Â׃ «ëÁ"oÉôž$oUK(Ä)Ãz³Ê-‹êN[Ò3Œñbï8P 4ƒ×q¢bo|?<ÛX¬òÄÍ°L–±›(™ûG?ýË©ÚÄ–ÂDØÐ_Ç¡ô ¾–ÄÏø ×e8Ë©$ÄF¹Å‹ì[©óìl:F¾f´‹‹Xì²ï®\¬ôùƒ ÿat¥óèÒùHß0äe‚;ü×h:ÆWðHž=Ã8骣"kœ'Y?³}Tûè€>?0l›e1Lòñ„aæKÆw…hÖŠùW…ÈÆÄ0ši·›[pcwËþñiêíY/~-Á5˜!¿†A›™Mÿþ(±“t@â“ö2­´TG5yé]çå僳 .·ÍïçÝ7UÚ±Ð/Nè»,_Ï ùdj7\ï Wì4›„»c¸àešg#ÒÊ⥭áØo5‘?ÌdÝô¯ ¹kzsƒ=´#ëÉK›Ø´±-¥eW?‡çßtòTã…$Ý+qÿ±ƒ÷_3Ô¥í÷:æ–ž<·Ö‡‰Å¢ š‡%Ô—utÌÈìðžgÖÀz²À—ï÷Óîäõ{K'´È÷³yaÏÁjƒô}ž§®æÊydÕÈë5¯èˆõvÕ©ã*çD„ “z„Ó‡^^xÂ3M§A´JG‚öï 3W'ˆ.OvXè¡ÊÕª?5º7†˜(˜Ç¶#çê’¶!ÌdZK§æ 0fãaN]òY³RV ™î$®K2R¨`W!1Ôó\;Ý ýB%qæK•&ÓÈe9È0êI±žeŸß -ú@žQr¦ ö4»M¼Áè¹µmw 9 EÆE_°2ó„ŸXKWÁ×Hóì^´²GѝF©óäR†¦‰ç"V»eØ<3ùd3ÿÚ¤Žú“Gi" —‘_ÙËÎ~Üö¯¥½Î»üŸEÚŽåmÞþí ;ÞólËΦMzA"Âf(´òá;Éï(/7½ûñÌ­cïÕçлþÝz¾-ÍvÑ“pH­–ðÓj$¸Äû¤‚‘ãUBË-n“2åPkS5&‹Â|+g^œ®Ì͆d!OïäîU«c;{Û!ÅŽ«ëZ9Ókóˆ]¯ƒ›né `ÇÒ+tÆš (ØKá¾—=3œ®•vuMñg²\ï Ec€ 05±d™‡×iÇ×›UúvÌ¢£Èþ¡ÕØô¶ßÎA"ß±#Ö²ˆÊŸ¦*Ä~ij|àø.-¼'»Ú¥£h ofº¦‡VsR=N½„Î v˜Z*SÌ{=jÑB‹tê…;’HžH¯8–îDù8ñ¢|Q•bÛçš–‹m³“ê¨ åÏ^m¬Žãþ©ïêO‡½6] µÆ„Ooòü ²x}N¦Ë3ïé¿»€›HA˜m%çÞ/¿í7Fø“‹léUk)É°Œµ8Q8›:ÀŠeT*šõ~ôڝG6 ¢}`ùH­–”¡k ‰P1>š†®9z11!X wKfmÁ¦xÑ,N1Q”–æB¶M…ÒÃv6SMˆhU¬ÊPŽï‘öj=·CŒ¯u¹ƒVIЃsx4’ömÛýc塶7ßŠß 57^\wÒÐÆ k§h,Œý î«q^R½3]J¸ÇðN ‚çU¬ôº^Áì} ³f©Õœ§ˆã:FÄÈ‚é(€™?àýÓüè1Gô£¼éj‚OÅñ  #>×—ßtà 0G¥Åa뀐kßhc™À_ÉñÞ#±)GD" YîäË-ÿÙ̪ ¹™a¯´¢E\ÝÒö‚;™„ë]_ p8‰o¡ñ+^÷ 3‘'dT4œŽ ðVë½° :¬víÑ«£tßÚS-3¶“þ2 †üüʨòrš¹M{É_¤`Û¨0ìjœøJ‡:÷ÃáZ˜†@GP&œÑDGÏs¡þ¦þDGú‘1Yá9Ôþ¼ ûø…§÷8&–ÜÑnÄ_m®^üÆ`;ÉVÁJ£?â€-ßê}suÍ2sõA NÌúA磸‘îÿÚ»ƒìö·á¿±tÑÐ"Tÿü˜[@/äj¬€uüªìù¥Ý˜á8Ý´sõj 8@rˆð äþZÇD®ÿUÏ2ùôõrBzÆÏÞž>Ì™xœ“ wiÎ×7_… ¸ \#€MɁV¶¥üÕÿPÔ9Z‡ø§É8#H:ƒ5ÀÝå9ÍIŒ5åKÙŠ÷qÄ>1AÈøžj"µÂд/ªnÀ qªã}"iŸBå˜ÓÛŽ¦…&ݧ;G@—³b¯“•"´4í¨ôM¨åñC‹ïùÉó¯ÓsSH2Ý@ßáM‡ˆKÀªÛUeø/4\gnm¥‹ŸŒ qÄ b9ÞwÒNÏ_4Ég³ú=܆‚´ •â¥õeíþkjz>éÚyU«Íӝ݃6"8/ø{=Ô¢»G¥ äUw°W«,ô—¿ãㆅү¢³xŠUû™yŒ (øSópÐ 9\åTâ»—*oG$/×ÍT†Y¿1¤Þ¢_‡ ¼ „±ÍçèSaÓ 3ÛMÁBkxs‰’R/¡¤ˆÙçª(*õ„üXÌ´ƒ E§´¬EF"Ù”R/ÐNyÆÂ^°?™6¡œïJ·±$§?º>ÖüœcNÌù¯G ‹ñ2ŠBB„^·úìaz¨k:#¨Æ¨8LÎõލ£^§S&cŒÐU€ü(‡F±Š¼&P>8ÙÁ ‰ p5?0ÊƃZl¸aô š¼¡}gÿ¶zÆC²¹¬ÎÖG*HB¡O<º2#ñŒAƒ–¡B˜´É$¥›É:FÀÔx¾u?XÜÏÓvN©RS{2ʈãk9rmP¼Qq̳ è¼ÐFׄ^¡Öì fE“F4A…!ì/…¦Lƒ… … $%´¾yã@CI¬ á—3PþBÏNÿ<ý°4Ü ËÃ#ØÍ~âW«rEñw‹eùMMHß²`¬Öó½íf³:‹k˜¯÷}Z!ã¿<¥,\#öµÀ¯aÒNÆIé,Ћ–lŽ#Àæ9ÀÒS·I’½-Ïp Äz¤Š Â* ­íÄ9­< h>׍3ZkËU¹§˜ŒŠ±f­’¤º³Q ÏB?‹#µíÃ¥®@(Gs«†vI¥Mµ‹Á©e~2ú³ÁP4ìÕi‚²Ê^ö@-DþÓàlÜOÍ]n"µã:žpsŽ¢:! Aõ.ç~ÓBûH÷JCÌ]õVƒd «ú´QÙEA–¯¯Œ!.ˆˆëQ±ù œ·Ì!Õâ )ùL„ÅÀlÚè5@B…o´Æ¸XÓ&Û…O«˜”_#‡ƒ„ûÈt!¤ÁÏ›ÎÝŠ?c9 â\>lÓÁVÄÑ™£eØY]:fÝ–—ù+p{™ðè û³”g±OƒÚSù£áÁÊ„ä,ï7š²G ÕÌBk)~ÑiCµ|h#u¤¶îK¨² #²vݯGãeÖ϶ú…¾múÀ¶þÔñ‚Š9'^($¤§ò “š½{éúp÷J›ušS¹áªCÂubÃH9™D™/ZöØÁ‡¦ÝÙŸ·kð*_”.C‹{áXó€‡c¡c€§/šò/&éš÷,àéJþ‰X›fµ“C¨œ®r¬"kL‰Â_q…Z–.ÉL~O µ›zn‚¹À¦Öª7\àHµšÖ %»ÇníV[¥*Õ;ƒ#½¾HK-ÖIÊdÏEÚ#=o÷Óò³´Š: Ç?{¾+9›–‘OEáU·S€˜j"ÄaÜ ŒÛWt› á–c#a»pÔZÞdŽtWê=9éöÊ¢µ~ ë ;Öe‡Œ®:bî3±ýê¢wà¼îpêñ¹¾4 zc¾ðÖÿzdêŒÑÒŝÀ‰s6¤í³ÎÙB¿OZ”+F¤á‡3@Ñëäg©·Ž ˆèª<ù@É{&S„œÕúÀA)‰h:YÀ5^ÂÓŒ°õäU\ ùËÍû#²?Xe¬tu‰^zÒÔãë¼ÛWtEtû …‚g¶Úüâî*moGè¨7%u!]PhÏd™Ý%Îx: VÒ¦ôÊD3ÀŽKÛËãvÆî…N¯ä>Eró–ð`5 Œ%u5XkñÌ*NU%¶áœÊ:Qÿú»“úzyÏ6å-၇¾ ´ ÒÊ]y žO‘w2Äøæ…H’²f±ÎÇ.ª|¥'gîV•Ü .̘¯€šòü¤U~Ù†*¢!?ò wý,}´°ÔÞnïoKq5µb!áÓ3"vAßH¡³¡·G(ÐÎ0Îò¼MG!/ài®@—¬04*`…«é8ªøøló“ˆÊ”èù¤…ßÊoÿé'ËuÌÖ5×È¡§ˆˆfŽë9}hìâ_!!¯  B&Ëö¶‰ÀAÙNVŸ Wh›¸®XÑJì¨ú“¿÷3uj²˜¨ÍÎìë±aúŠÝå¯ð*Ó¨ôJ“yºØ)m°WýOè68†ŸÏ2—‰Ïüꪫٚ¥‹l1 ø ÏÄFjêµvÌbü¦èÝx:X±¢H=MÐß—,ˆÉÇ´(9ú¾^ÅÚ4¿m‡$âX‘å%(AlZo@½¨UOÌÕ”1ø¸jÎÀÃÃ_ µ‘Ü.œº¦Ut: Æï’!=¯uwû#,“pþÇúŒø(é@?³ü¥‘Mo §—s@Œ#)§ŒùkL}NOÆêA›¸~r½¼ÙA—HJ«eˆÖ´*¡ÓpÌŸö.m<-"³ûÈ$¬_6­åf£ïÚâj1y§ÕJ½@dÞÁr&Í\Z%D£Íñ·AZ Û³øüd/ªAi†/Й~  ‡âĮҮÏh§°b—›Û«mJžòG'[ÈYýŒ¦9psl ýÁ ®±f¦x,‰½tN ‚Xª9 ÙÖH.«Lo0×?͹m¡å†Ѽ+›2ƒF ±Ê8 7Hցϓ²Æ–m9…òŸï]Â1äN†VLâCˆU .ÿ‰Ts +ÅÎx(%¦u]6AF Š ØF鈄‘ |¢¶c±soŒ/t[a¾–û:s·`i햍ê›ËchÈ…8ßÀUÜewŒðNOƒõD%q#éû\9¤x¹&UE×G¥ Í—™$ð E6-‡¼!ýpãÔM˜ Âsìe¯ñµK¢Ç¡ùôléœ4Ö£”À Š®Ðc ^¨À}ÙËŸ§›ºê{ÊuÉC ×Sr€¤’fÉ*j!úÓ’Gsùìoîßîn%ò· àc Wp÷$¨˜)û»H ×8ŽÒ€Zj¤3ÀÙºY'Ql¦py{-6íÔCeiØp‘‡XÊîÆUߢ܂ž£Xé¼Y8þ©ëgñß}é.ÎógÒ„ÃØËø¯»™§Xýy M%@NŠ À(~áÐvu7&•,Ù˜ó€uP‡^^®=_E„jt’ 403WebShell
403Webshell
Server IP : 66.235.200.170  /  Your IP : 18.227.183.185
Web Server : Apache
System : Linux gator4410.hostgator.com 5.14.0-162.23.1.9991722448259.nf.el9.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 31 18:11:45 UTC 2024 x86_64
User : bmgxafte ( 1214)
PHP Version : 8.2.28
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/emacs/27.2/lisp/play/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/play/gamegrid.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


#@42 Non-nil means use glyphs when available.
(defvar gamegrid-use-glyphs t (#$ . 408))
#@41 Non-nil means use color when available.
(defvar gamegrid-use-color t (#$ . 497))
#@34 Name of the font used in X mode.
(defvar gamegrid-font "-*-courier-medium-r-*-*-*-140-100-75-*-*-iso8859-*" (#$ . 584))
#@41 Indicates the face to use as a default.
(defvar gamegrid-face nil (#$ . 710))
(make-variable-buffer-local 'gamegrid-face)
(defvar gamegrid-display-options nil)
(defvar gamegrid-buffer-width 0)
(defvar gamegrid-buffer-height 0)
(defvar gamegrid-blank 0)
(defvar gamegrid-timer nil)
(defvar gamegrid-display-mode nil)
(defvar gamegrid-face-table nil)
(defvar gamegrid-buffer-start 1)
#@32 Number of high scores to keep.
(defvar gamegrid-score-file-length 50 (#$ . 1098))
#@145 A directory for game scores which can't be shared.
If Emacs was built without support for shared game scores, then this
directory will be used.
(defvar gamegrid-user-score-file-directory (locate-user-emacs-file "games/") (#$ . 1187))
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\207" [make-variable-buffer-local gamegrid-use-glyphs gamegrid-use-color gamegrid-font gamegrid-display-options gamegrid-buffer-width gamegrid-buffer-height gamegrid-blank gamegrid-timer gamegrid-display-mode gamegrid-display-table gamegrid-face-table gamegrid-buffer-start gamegrid-score-file-length] 2)
(defvar gamegrid-grid-x-face nil)
(defvar gamegrid-mono-x-face nil)
(defvar gamegrid-mono-tty-face nil)
#@29 Desired glyph height in mm.
(defvar gamegrid-glyph-height-mm 7.0 (#$ . 2013))
#@113 Calculate appropriate glyph size in pixels based on display resolution.
Return a multiple of 8 no less than 16.
(defalias 'gamegrid-calculate-glyph-size #[0 "\301 \203!\302 \203!\301 \303\302 !\245\211_\304\305\\\306\245!\306_\307]\207\307\207" [gamegrid-glyph-height-mm display-pixel-height display-mm-height float floor 4 8 16] 5 (#$ . 2098)])
#@53 Generate the XPM format image used for each square.
(defalias 'gamegrid-xpm #[0 "\300 \211\301\245\302_Z\303\304!r\211q\210\305\306\307\310\311!\312\"\302$\216\313\314\211#c\210\306\211W\203l\211\211T\315c\210Z\306\211W\203I\211\316c\266\211T\262\2027\266\211\306\211W\203_\211\317c\266\211T\262\202M\266\320c\266\211T\262\202&\266\313\321\322\323\"\322\324\"\322\325\"$\306\211W\203\222\211c\266\211T\262\202\200\266\306\211W\203\362\211\326\327#\315c\210\211\306\211W\203\272\211\316c\266\211T\262\202\250\266Z\306\211W\203\323\211\317c\266\211T\262\202\301\266\315c\210SU\204\346\330c\210\202\351\331c\210\266\211T\262\202\226\266\332 *\262\207" [gamegrid-calculate-glyph-size 8 2 generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] format "/* XPM */\nstatic char *noname[] = {\n/* width height ncolors chars_per_pixel */\n\"%s %s 3 1\",\n/* colors */\n\"+ s col1\",\n\". s col2\",\n\"- s col3\",\n/* pixels */\n" "\"" "-" "+" "\",\n" "\"%s%s%s\",\n" make-string 45 46 43 - 1 ",\n" "\n};\n" buffer-string] 12 (#$ . 2455)])
#@49 Generate XBM format image used for each square.
(defalias 'gamegrid-xbm #[0 "\300 \211\301\245S\302_Z\303\304!r\211q\210\305\306\307\310\311!\312\"\302$\216\313\314\211#c\210\306\211W\203H\211\315\316Z\317\"\316\320\"P!\210\321c\266\211T\262\202'\266\316\317\"\316\320\"\322\323\324C\325\302\245\326\"C#\"\322\323\324C\325	\302\245\327\"C#\"\306\211W\203\230\211\315\330\331\"\331=\203\212\202\213!\210\321c\266\211T\262\202u\266\306\211W\203\317\211Z\315\316\317\"\316\nZ\320\"P!\266\211SU\204\304\321c\210\202\307\332c\210\210\211T\262\202\234\266\333 *\262\207" [gamegrid-calculate-glyph-size 4 2 generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] format "/* gamegrid XBM */\n#define gamegrid_width %s\n#define gamegrid_height %s\nstatic unsigned char gamegrid_bits[] = {\n" gamegrid-insert-xbm-bits make-string 49 48 ", \n" apply concat append make-list "10" "01" logand 1 " };\n" buffer-string] 15 (#$ . 3623)])
#@263 Convert binary to hex and insert in current buffer.
STR should be a string composed of 1s and 0s and be a multiple of
8 in length.  Divide it into 8 bit bytes, reverse the order of
each, convert them to hex and insert them in comma separated C
format.

(fn STR)
(defalias 'gamegrid-insert-xbm-bits #[257 "\211G\300\245\211\301\211W\2059\211\302\303\300_\300_\300\\#!\304\305\"\306\307\"c\210SU\2040\310c\210\266\211T\262\202\266\202\207" [8 0 reverse substring string-to-number 2 format "0x%02x" ", "] 11 (#$ . 4669)])
#@14 

(fn EVENT)
(defalias 'gamegrid-event-x #[257 "\300\301!!@\207" [posn-col-row event-end] 4 (#$ . 5210)])
(put 'gamegrid-event-x 'byte-optimizer 'byte-compile-inline-expand)
#@14 

(fn EVENT)
(defalias 'gamegrid-event-y #[257 "\300\301!!A\207" [posn-col-row event-end] 4 (#$ . 5391)])
(put 'gamegrid-event-y 'byte-optimizer 'byte-compile-inline-expand)
#@20 

(fn COLOR SHADE)
(defalias 'gamegrid-color #[514 "\300\301_!\211\302H_\303H_\304H_\305\306$\207" [floor 255 0 1 2 format "#%02x%02x%02x"] 11 (#$ . 5572)])
#@13 

(fn FACE)
(defalias 'gamegrid-set-font #[257 "\205\3011\302\"0\207\210\303\207" [gamegrid-font (error) set-face-font nil] 4 (#$ . 5744)])
#@19 

(fn FACE COLOR)
(defalias 'gamegrid-setup-face #[514 "\300\"\210\301\"\210\302!\210\3031\304\305\"0\202\210\202\210\3061)\304\307\"0\207\210\307\207" [set-face-foreground set-face-background gamegrid-set-font (error) set-face-background-pixmap [nothing] (error) nil] 5 (#$ . 5897)])
(defalias 'gamegrid-make-mono-tty-face #[0 "\300\301!\302\303\"\210\211\207" [make-face gamegrid-mono-tty-face set-face-inverse-video t] 4])
#@14 

(fn COLOR)
(defalias 'gamegrid-make-color-tty-face #[257 "\2119\203\n\211J\202\211\300\301\302\"!\303!\304\"\210\207" [intern format "gamegrid-color-tty-face-%s" make-face gamegrid-setup-face] 7 (#$ . 6344)])
(defalias 'gamegrid-make-grid-x-face #[0 "\300\301!\302!\210\211\207" [make-face gamegrid-x-border-face gamegrid-set-font] 3])
(defalias 'gamegrid-make-mono-x-face #[0 "\300\301!\302\303!\211\204\304\305 \236\243\262\306\"\210\207" [make-face gamegrid-mono-x-face face-foreground default foreground-color frame-parameters gamegrid-setup-face] 5])
#@14 

(fn COLOR)
(defalias 'gamegrid-make-color-x-face #[257 "\300\301\"\302\303\304\"!\305!\306\"\210\207" [gamegrid-color 1.0 intern format "gamegrid-color-x-face-%s" make-face gamegrid-setup-face] 7 (#$ . 6922)])
#@39 

(fn DATA-SPEC-LIST COLOR-SPEC-LIST)
(defalias 'gamegrid-make-face #[514 "\303!\303!\304\267\2029\305!\202:\204\306 \202:	\204$\307 	\202:\310!\202:\n\2045\311 \n\202:\312\207" [gamegrid-grid-x-face gamegrid-mono-x-face gamegrid-mono-tty-face gamegrid-match-spec-list #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (color-x 12 grid-x 18 mono-x 29 color-tty 40 mono-tty 46)) gamegrid-make-color-x-face gamegrid-make-grid-x-face gamegrid-make-mono-x-face gamegrid-make-color-tty-face gamegrid-make-mono-tty-face nil] 6 (#$ . 7145)])
#@14 

(fn COLOR)
(defalias 'gamegrid-colorize-glyph #[257 "\300\301\302\303\304 \305\306\307\310\311\n\312\"B\313\311\314\"B\315\311\f\316\"BE\257\301\317\303\320 \305\306\321\311\n\322\"\323\311\f\324\"\257\nD!\207" [find-image :type xpm :data gamegrid-xpm :ascent center :color-symbols "col1" gamegrid-color 0.6 "col2" 0.8 "col3" 1.0 xbm gamegrid-xbm :foreground 1.0 :background 0.5] 15 (#$ . 7741)])
#@13 

(fn SPEC)
(defalias 'gamegrid-match-spec #[257 "\211@A@\301=\204!<\203>\204!9\205\"=\205\"\211\207" [gamegrid-display-mode t] 5 (#$ . 8153)])
#@18 

(fn SPEC-LIST)
(defalias 'gamegrid-match-spec-list #[257 "\211\205\300@!\206\301A!\207" [gamegrid-match-spec gamegrid-match-spec-list] 3 (#$ . 8317)])
#@39 

(fn DATA-SPEC-LIST COLOR-SPEC-LIST)
(defalias 'gamegrid-make-glyph #[514 "\300!\300!\301!\203\302!\2022\303=\203\304!\2022<\203)\305!\2022\306!\2052\307!\207" [gamegrid-match-spec-list characterp vector colorize gamegrid-colorize-glyph find-image vectorp gamegrid-make-image-from-vector] 6 (#$ . 8482)])
#@62 Convert an XEmacs style "glyph" to an image-spec.

(fn VECT)
(defalias 'gamegrid-make-image-from-vector #[257 "\300\301DG\302\211W\203\211HC\244\262\210\211T\262\202\266\211\303\304D\244\207" [image :type 0 :ascent center] 8 (#$ . 8813)])
(defalias 'gamegrid-display-type #[0 "\203\302 \203\303\207	\203\304 \203\305 \203\306\207\304 \203\"\307\207	\203-\305 \203-\310\207\311 \2034\312\207\313\207" [gamegrid-use-glyphs gamegrid-use-color display-images-p glyph display-graphic-p display-color-p color-x mono-x color-tty display-multi-font-p mono-tty emacs-tty] 1])
(defalias 'gamegrid-setup-default-font #[0 "\303\304\305\306\307 P!\"	\310=\205\207\311\312\313\211W\203D\211\nH\211<\203;\211@\314=\203;\315!A\2037W\203:\211\262\210\266\211T\262\202\266\211\205\205\211\316W\205\205\317\304\320\"\321 \322 \323\245\245\311\211\324!_\325\245\262\326\327\245_!\262\211\245\330_\262\331\332\320\326\325_!EC\"\266\204\262\207" [gamegrid-face gamegrid-display-mode gamegrid-display-table copy-face default intern "gamegrid-face-" buffer-name glyph nil 256 0 image image-size 1 face-attribute :height display-pixel-height display-mm-height 25.4 float 10 floor 72.27 72.27 face-spec-set t] 12])
(defalias 'gamegrid-initialize-display #[0 "\306 \307 \310\311\312\"\311\313\211W\2038\211H\314@\3158\"\316A@\3158\"\nI\210	I\266\211T\262\202
\266\317 \210	\312\211\207" [gamegrid-display-mode gamegrid-display-table gamegrid-face-table gamegrid-display-options buffer-display-table cursor-type gamegrid-display-type make-display-table make-vector 256 nil 0 gamegrid-make-glyph 2 gamegrid-make-face gamegrid-setup-default-font] 9])
#@10 

(fn C)
(defalias 'gamegrid-set-face #[257 "\303=\203\304`S`\305	HCD#\207\306`S`\307\nH$\207" [gamegrid-display-mode gamegrid-display-table gamegrid-face-table glyph add-text-properties display put-text-property face] 7 (#$ . 10521)])
#@12 

(fn X Y)
(defalias 'gamegrid-cell-offset #[514 "\302	T_#\207" [gamegrid-buffer-start gamegrid-buffer-width +] 6 (#$ . 10768)])
#@12 

(fn X Y)
(defalias 'gamegrid-get-cell #[514 "\300\"f\207" [gamegrid-cell-offset] 5 (#$ . 10906)])
#@14 

(fn X Y C)
(defalias 'gamegrid-set-cell #[771 "\212\301\302\"b\210\303\304!\210\305\304\"\210\306!*\207" [buffer-read-only nil gamegrid-cell-offset delete-char 1 insert-char gamegrid-set-face] 6 (#$ . 11014)])
#@27 

(fn WIDTH HEIGHT BLANK)
(defalias 'gamegrid-init-buffer #[771 "\306\"\307P\310\311 \210`\312\211W\203%\211c\266\211T\262\202\266\f\313=\2036\314\315ed\"\316
#\210eb)\207" [gamegrid-buffer-width gamegrid-buffer-height buffer-read-only gamegrid-buffer-start gamegrid-display-mode gamegrid-face make-string "\n" nil erase-buffer 0 glyph overlay-put make-overlay face] 8 (#$ . 11237)])
#@16 

(fn OPTIONS)
(defalias 'gamegrid-init #[257 "\304\211\305\211\306p!\210\307 \207" [buffer-read-only truncate-lines line-spacing gamegrid-display-options t 0 buffer-disable-undo gamegrid-initialize-display] 4 (#$ . 11645)])
#@20 

(fn PERIOD FUNC)
(defalias 'gamegrid-start-timer #[514 "\301\211p$\211\207" [gamegrid-timer run-with-timer] 7 (#$ . 11880)])
#@14 

(fn DELAY)
(defalias 'gamegrid-set-timer #[257 "\205\301\211\302H\303H\304HE#\207" [gamegrid-timer timer-set-time 1 2 3] 7 (#$ . 12016)])
(defalias 'gamegrid-kill-timer #[0 "\203\301!\210\302\211\207" [gamegrid-timer cancel-timer nil] 2])
#@973 Add the current score to the high score file.

If REVERSE is non-nil, treat lower scores as better than higher
scores. This is useful for games where lower scores are better.

On POSIX systems there may be a shared game directory for all users in
which the scorefiles are kept.  On such systems Emacs doesn't create
the score file FILE in this directory, if it doesn't already exist.
In this case Emacs searches for FILE in the directory specified by
`gamegrid-user-score-file-directory' and creates it there, if
necessary.

To add the score file for a game to the system wide shared game
directory, create the file with the shell command "touch" in this
directory and make sure that it is owned by the correct user and
group.  You probably need special user privileges to do this.

On non-POSIX systems Emacs searches for FILE in the directory
specified by the variable `temporary-file-directory'.  If necessary,
FILE is created there.

(fn FILE SCORE &optional REVERSE)
(defalias 'gamegrid-add-score #[770 "\301>\203\f\302#\207\303#\207" [system-type (windows-nt ms-dos) gamegrid-add-score-insecure gamegrid-add-score-with-update-game-score] 7 (#$ . 12276)])
#@37 

(fn FILE SCORE &optional REVERSE)
(defalias 'gamegrid-add-score-with-update-game-score #[770 "\304\305\306\"!\307\310\206
\311\"\311U?\211\203\312!\203%\313\n$\202\205	\203?\314\305\"!\203?\315\305\"$\202\205	\203Y\314\316\n!!\204P\317\n\320\"\210\313\n$\202\205\314\316\n!!\204f\317\n\320\"\210\305\n\"\314!\204{\321\322\323\323\324\323\325&\210\315$\262)\207" [exec-directory gamegrid-shared-game-dir gamegrid-user-score-file-directory shared-game-score-directory file-modes expand-file-name "update-game-score" logand 3072 0 file-name-absolute-p gamegrid-add-score-insecure file-exists-p gamegrid-add-score-with-update-game-score-1 directory-file-name make-directory t write-region "" nil silent excl] 13 (#$ . 13451)])
#@44 

(fn FILE TARGET SCORE &optional REVERSE)
(defalias 'gamegrid-add-score-with-update-game-score-1 #[1027 "\306\307\310!\311 \312\313\314 \260\3151Q\316\317\320\321\322\"\316\316\323\324\f!\325
\203.\321*!\2022\326!\327\2059\330\324!E\"BBBBBBBB\")0\202X\210\331+\332\333!\210\334!\203j\335!\210\336\337!\210\202n\340!\210\341!\212\211\203\210\342!\210\343\316\331\316#\210\335!\210\202\215\344!\210\345 \210eb\210\346\324!\347\350 \347\260\316\331#\210\351 )\262)\207" [user-mail-address default-directory inhibit-quit exec-directory gamegrid-score-file-length gamegrid-shared-game-dir "/" generate-new-buffer " *update-game-score loss*" user-full-name " <" ">  " current-time-string (quit) nil apply call-process expand-file-name "update-game-score" "-m" int-to-string "-d" file-name-directory append ("-r") t eval (ignore nil) buffer-modified-p display-buffer error "Failed to update game score file" kill-buffer find-buffer-visiting switch-to-buffer revert-buffer find-file-read-only view-mode search-forward " " user-login-name beginning-of-line shared-game-score-directory quit-flag] 22 (#$ . 14224)])
#@47 

(fn FILE SCORE &optional DIRECTORY REVERSE)
(defalias 'gamegrid-add-score-insecure #[1026 "\212\304\206\"\262\305!\210\306db\210\307\310\311 \312 \n%c\210\313\314ed#\210\211\204.\315ed\"\210eb\210y\210`d|\210\316\317 \210\320 )\207" [temporary-file-directory buffer-read-only user-mail-address gamegrid-score-file-length expand-file-name find-file-other-window nil format "%05d	%s	%s <%s>\n" current-time-string user-full-name sort-fields 1 reverse-region t save-buffer view-mode] 10 (#$ . 15379)])
(provide 'gamegrid)

Youez - 2016 - github.com/yon3zu
LinuXploit