約 2,936,159 件
https://w.atwiki.jp/touhoukashi/pages/493.html
【登録タグ A Krater Ne;on 人形裁判 ~ 人の形弄びし少女 曲 東方晴輝翔】 【注意】 現在、このページはJavaScriptの利用が一時制限されています。この表示状態ではトラック情報が正しく表示されません。 この問題は、以下のいずれかが原因となっています。 ページがAMP表示となっている ウィキ内検索からページを表示している これを解決するには、こちらをクリックし、ページを通常表示にしてください。 /** General styling **/ @font-face { font-family Noto Sans JP ; font-display swap; font-style normal; font-weight 350; src url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/10/NotoSansCJKjp-DemiLight.woff2) format( woff2 ), url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/9/NotoSansCJKjp-DemiLight.woff) format( woff ), url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/8/NotoSansCJKjp-DemiLight.ttf) format( truetype ); } @font-face { font-family Noto Sans JP ; font-display swap; font-style normal; font-weight bold; src url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/13/NotoSansCJKjp-Medium.woff2) format( woff2 ), url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/12/NotoSansCJKjp-Medium.woff) format( woff ), url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/11/NotoSansCJKjp-Medium.ttf) format( truetype ); } rt { font-family Arial, Verdana, Helvetica, sans-serif; } /** Main table styling **/ #trackinfo, #lyrics { font-family Noto Sans JP , sans-serif; font-weight 350; } .track_number { font-family Rockwell; font-weight bold; } .track_number after { content . ; } #track_args, .amp_text { display none; } #trackinfo { position relative; float right; margin 0 0 1em 1em; padding 0.3em; width 320px; border-collapse separate; border-radius 5px; border-spacing 0; background-color #F9F9F9; font-size 90%; line-height 1.4em; } #trackinfo th { white-space nowrap; } #trackinfo th, #trackinfo td { border none !important; } #trackinfo thead th { background-color #D8D8D8; box-shadow 0 -3px #F9F9F9 inset; padding 4px 2.5em 7px; white-space normal; font-size 120%; text-align center; } .trackrow { background-color #F0F0F0; box-shadow 0 2px #F9F9F9 inset, 0 -2px #F9F9F9 inset; } #trackinfo td ul { margin 0; padding 0; list-style none; } #trackinfo li { line-height 16px; } #trackinfo li nth-of-type(n+2) { margin-top 6px; } #trackinfo dl { margin 0; } #trackinfo dt { font-size small; font-weight bold; } #trackinfo dd { margin-left 1.2em; } #trackinfo dd + dt { margin-top .5em; } #trackinfo_help { position absolute; top 3px; right 8px; font-size 80%; } /** Media styling **/ #trackinfo .media th { background-color #D8D8D8; padding 4px 0; font-size 95%; text-align center; } .media td { padding 0 2px; } .media iframe nth-of-type(n+2) { margin-top 0.3em; } .youtube + .nicovideo, .youtube + .soundcloud, .nicovideo + .soundcloud { margin-top 0.75em; } .media_section { display flex; align-items center; text-align center; } .media_section before, .media_section after { display block; flex-grow 1; content ; height 1px; } .media_section before { margin-right 0.5em; background linear-gradient(-90deg, #888, transparent); } .media_section after { margin-left 0.5em; background linear-gradient(90deg, #888, transparent); } .media_notice { color firebrick; font-size 77.5%; } /** Around track styling **/ .next-track { float right; } /** Infomation styling **/ #trackinfo .info_header th { padding .3em .5em; background-color #D8D8D8; font-size 95%; } #trackinfo .infomation_show_btn_wrapper { float right; font-size 12px; user-select none; } #trackinfo .infomation_show_btn { cursor pointer; } #trackinfo .info_content td { padding 0 0 0 5px; height 0; transition .3s; } #trackinfo .info_content ul { padding 0; margin 0; max-height 0; list-style initial; transition .3s; } #trackinfo .info_content li { opacity 0; visibility hidden; margin 0 0 0 1.5em; transition .3s, opacity .2s; } #trackinfo .info_content.infomation_show td { padding 5px; height 100%; } #trackinfo .info_content.infomation_show ul { padding 5px 0; max-height 50em; } #trackinfo .info_content.infomation_show li { opacity 1; visibility visible; } #trackinfo .info_content.infomation_show li nth-of-type(n+2) { margin-top 10px; } /** Lyrics styling **/ #lyrics { font-size 1.06em; line-height 1.6em; } .not_in_card, .inaudible { display inline; position relative; } .not_in_card { border-bottom dashed 1px #D0D0D0; } .tooltip { display flex; visibility hidden; position absolute; top -42.5px; left 0; width 275px; min-height 20px; max-height 100px; padding 10px; border-radius 5px; background-color #555; align-items center; color #FFF; font-size 85%; line-height 20px; text-align center; white-space nowrap; opacity 0; transition 0.7s; -webkit-user-select none; -moz-user-select none; -ms-user-select none; user-select none; } .inaudible .tooltip { top -68.5px; } span hover + .tooltip { visibility visible; top -47.5px; opacity 0.8; transition 0.3s; } .inaudible span hover + .tooltip { top -73.5px; } .not_in_card span.hide { top -42.5px; opacity 0; transition 0.7s; } .inaudible .img { display inline-block; width 3.45em; height 1.25em; margin-right 4px; margin-bottom -3.5px; margin-left 4px; background-image url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2971/7/Inaudible.png); background-size contain; background-repeat no-repeat; } .not_in_card after, .inaudible .img after { content ; visibility hidden; position absolute; top -8.5px; left 42.5%; border-width 5px; border-style solid; border-color #555 transparent transparent transparent; opacity 0; transition 0.7s; } .not_in_card hover after, .inaudible .img hover after { content ; visibility visible; top -13.5px; left 42.5%; opacity 0.8; transition 0.3s; } .not_in_card after { top -2.5px; left 50%; } .not_in_card hover after { top -7.5px; left 50%; } .not_in_card.hide after { visibility hidden; top -2.5px; opacity 0; transition 0.7s; } /** For mobile device styling **/ .uk-overflow-container { display inline; } #trackinfo.mobile { display table; float none; width 100%; margin auto; margin-bottom 1em; } #trackinfo.mobile th { text-transform none; } #trackinfo.mobile tbody tr not(.media) th { text-align left; background-color unset; } #trackinfo.mobile td { white-space normal; } document.addEventListener( DOMContentLoaded , function() { use strict ; const headers = { title アルバム別曲名 , album アルバム , circle サークル , vocal Vocal , lyric Lyric , chorus Chorus , narrator Narration , rap Rap , voice Voice , whistle Whistle (口笛) , translate Translation (翻訳) , arrange Arrange , artist Artist , bass Bass , cajon Cajon (カホン) , drum Drum , guitar Guitar , keyboard Keyboard , mc MC , mix Mix , piano Piano , sax Sax , strings Strings , synthesizer Synthesizer , trumpet Trumpet , violin Violin , original 原曲 , image_song イメージ曲 }; const rPagename = /(?=^|.*
https://w.atwiki.jp/toranosuke/pages/14.html
meet-meは「リアルな仮想世界」 仮想空間内に構築された「もう一つの現実世界」を通じて、 多様なユーザーコミュニケーションやサービスを楽しむことができる「和製メタバース」です。1.カーナビの地図データに基づいた圧倒的なリアル感! これまでの3D仮想世界サービスとは一線を画し、『カーナビと同等の区画上に、著名な建造物を再現』するなど、圧倒的なリアル感を実現しています。 (太陽の動きや天候までもリアルに再現しています!)2.ココアを貯めてショッピング! meet-meの通貨は「ココア」、 ココアを貯めると、服や家具を買うことができます! ココアは、現実を超えたアトラクションやイベント に参加するなど、楽しみながら貯まっていきます♪3.meet-meは、皆さまと一緒に成長していく街♪ meet-meは、お客様が「電車・バス」などを使っていろんな街へ訪れたりお買い物をすることで、街が活性化していきます。 私たちと一緒に、風土ある街作りを楽しみましょう!基本部分は無料で遊べます リアルマネーが必要となるものは、土地利用代と、出資企業提供のアイテム。 (最初にもらえる土地利用券を使えば、3ヶ月間は土地代タダ) 出資企業提供アイテムは使用しなくなったユーザーが個人取引で売り出していることもあり、クローズドマネーで入手可能。 土地利用代についても土地利用券が抽選所やガチャガチャ の景品として相当量流通していることから 小規模の土地の利用でよいならほとんどリアルマネーを払うことがなくなる。 運の要素もあるため必ずしもそうはならない
https://w.atwiki.jp/karaokehirap/pages/41.html
通信カラオケ化権の管理状況 J=JASRAC e=e-License〇=管理楽曲 ×=非管理楽曲 -=登録無し インタラクティブ配信の権利がJASRAC・e-License共に信託されていない場合は追記部分に記入 配信の可能性 〇:権利関係、音源入手ともに問題無し △:権利関係、または音源入手に難あり ×:カラオケ化の権利許諾がされていない、または音源入手がかなり難しい 配信曲リクエストエントリー曲検索「P-MODEL」 曲名 収録音源 形態 J e 配信の可能性 エントリー日 追記事項 表組みテンプレ 曲名 収録音源 形態 J e 配信の可能性 エントリー日 追記事項 誤った情報の指摘や追加情報等があればお願いします 名前 コメント
https://w.atwiki.jp/syohaku/pages/8.html
;;; -*- Mode Lisp; Package EDITOR -*- ;;; ;;; This file is not part of xyzzy. ;;; ; $Id ruby-mode.l,v 040408 2004/04/08 00 00 00 Yukimi_Sake $ ; ; ruby-mode for xyzzy ; ; original by HATTORI Masashi San gyo@he.mirai.ne.jp ; ; modified by Yukio Sakaue yukimi_sake@mbi.nifty.com (provide "ruby-mode") (in-package "editor") (require "ruby-hilite") (defun looking-at-backward (regexp optional case-fold) (save-excursion (save-restriction (narrow-to-region (point-min) (point)) (goto-char (point-min)) (scan-buffer (format nil "~A\\ " regexp) regexp t case-fold case-fold)))) ;;;ポップアップリストの絞込みを行う ;;;pops ポップアップ表示させる文字列のリスト (defun focus-popup-list (pops typed) (let ((cs (concat "^" typed))) (focus-popup-list2 pops cs))) (defun focus-popup-list2 (pops typed) (popup-list (re-select-string pops typed) # (lambda (x) (insert (substring x (-(length typed) 1)));正規表現の^を頭につけているので、その分をマイナス1している (refresh-screen))) (setq c (read-char ed *keyboard*)) ;キーボードから一文字読み取る (if (and (eq (lookup-key-command c) self-insert-command) ; もし、そのキーに割り当てられたコマンドが self-insert-command で (or (syntax-word-p c) ; word 文字か (syntax-symbol-p c))) ; symbol 文字でなかったら (progn (insert c) (let ((cs (concat typed (string c)))) (refresh-screen) (focus-popup-list2 pops cs))) (progn (unread-char c)))) ;;;文字列のリストを正規表現で絞り込む ;;;slist 文字列のリスト ;;;reg 正規表現の文字列 (defun re-select-string (slist reg) (remove-if # (lambda (x) (not (string-match reg x))) slist)) ;カレントバッファ ;;;Tmpバッファを作成し、method候補を書き出す (defun variable-eval (var-name mes) (save-excursion (save-restriction (cond ((find-buffer "*TmpRuby*")(delete-buffer "*TmpRuby*"))) (create-new-buffer "*TmpRuby*") (setq irb-result-buffer (find-buffer "*TmpRuby*")) (send-to-irb (concat var-name mes))))) ;;Tmpバッファを解析し、method候補を絞り込む (defun popup-method-only (typed) (let ((pops ()) (current-pop nil)) (save-excursion (save-restriction (switch-to-buffer "*TmpRuby*") (goto-char(point-min)) (while (re-search-forward "\"\\([^ ]+\\)\"" t) (setq pops (cons (buffer-substring (match-beginning 1) (match-end 1)) pops)) (goto-char (match-end 0))) )) (focus-popup-list pops typed))) (defun not-evaled-variable? () (save-excursion (switch-to-buffer "*TmpRuby*") (goto-char (point-min)) (setq return-value (search-forward "NameError undefined local variable or method" t))) return-value) (defun help-ruby () (interactive) (save-excursion (cond ((looking-at-backward "\\([a-zA-Z0-9_@$\"\ ]+\\)\\.\\([a-zA-Z0-9_?!]*\\)") (let ((variable-name (buffer-substring (match-beginning 1)(match-end 1))) (method-name (buffer-substring (match-beginning 2)(match-end 2)))) (variable-eval variable-name ".class\n") (sit-for 1.0) (setq irb-result-buffer (find-buffer "*ResultRuby*")) (if (not-evaled-variable?);変数がevalされていなかったら (ruby-reference-show-html-help) (progn (switch-to-buffer "*TmpRuby*") (goto-char (point-min)) (re-search-forward "[A-Z][A-Za-z0-9_]*" t) (let ((class-name (buffer-substring (match-beginning 0)(match-end 0)))) (send-to-irb (concat "`refe " class-name "#" method-name "`\n")))))))))) ; (send-to-irb (concat class-name ".r " method-name "\n")))))))))) ;(sit-for 0.2) ;(save-excursion ; (switch-to-buffer "*TmpRuby*") ; (setf man-ref (buffer-substring (point-min) 30))) ;(format t "~A" man-ref (point-min)))))))) (require "dabbrev") ;;;コードアシストのフロントエンド、カーソルの場所により、支援する方法を分岐する (defun code-assist () (interactive) (ruby-tab-and-indent) (refresh-screen) (save-restriction (cond ((looking-at-backward "\\([a-zA-Z0-9_@$\"\ ]+\\)\\.\\([a-zA-Z0-9_?!]*\\)");メソッドアシストを行う場合 (let ((variable-name (buffer-substring (match-beginning 1)(match-end 1))) (method-name-begining (buffer-substring (match-beginning 2)(match-end 2)))) (variable-eval variable-name ".methods\n") (sit-for 0.2) (setq irb-result-buffer (find-buffer "*ResultRuby*")) (if (not-evaled-variable?);変数がevalされていなかったら (dabbrev-popup-loop) (progn (popup-method-only method-name-begining) (open-other-window "*ResultRuby*"))))) ((looking-at-backward "@[a-zA-Z0-9_]*");インスタンス変数なら (instance-variable-assist (buffer-substring (match-beginning 0)(match-end 0)))) (t (dabbrev-popup-loop)))));それ以外はdabbrev (defun instance-variable-assist (typed) (let ((pops ())) (save-excursion (goto-char(point-min)) (while (re-search-forward "@[a-zA-Z0-9]+" t) (setq pops (cons (buffer-substring (match-beginning 0)(match-end 0)) pops)) (goto-char(match-end 0)))) ;ここで自分自身をpopsから削除しとく。いや、ちょっとまて、マジでそれあったらどうする???。1個だけ削除すればいいのかな ;あと同じやつが複数でてくる (focus-popup-list (remove-duplicates (remove typed pops test # equal count 1);今打キー中の候補はひとつだけ削除する test # equal) typed))) ;ポップアップの候補の絞込みを行う方法 ;http //d.hatena.ne.jp/nazoking/20040305/1078421068から (defun dabbrev-popup-loop () "連続して dabbrev-popup を実行する。" (interactive) ; おまじない (let (c) ; 変数 c を使います (loop ; 永久ループ (dabbrev-popup) ; dabbrev-popup を実行 (setq c (read-char ed *keyboard*)) ;キーボードから一文字読み取る (unless (and (eq (lookup-key-command c) self-insert-command) ; もし、そのキーに割り当てられたコマンドが self-insert-command で (or (syntax-word-p c) ; word 文字か (syntax-symbol-p c))) ; symbol 文字でなかったら (unread-char c) ; キーボードを読んでないことにして (return)) ;dabbrev-popup-loop を終了 ;それ以外の場合は (insert c) ; c をインサートして (refresh-screen)))) ; 画面を再描写してループに戻る ;;;バッファのすべてをevalする (defun irb-eval-all () (interactive) (save-excursion (beginning-of-buffer) (setq irb-s (point)) (end-of-buffer) (setq irb-e (point)) (send-to-irb (concat (buffer-substring irb-s irb-e) "\n" )))) ;;;regionをevalする (defun irb-eval-region () (interactive) (save-excursion (setq irb-s (mark)) (setq irb-e (point)) (if ( irb-s irb-e) (send-to-irb (concat (buffer-substring irb-s irb-e) "\n" )) (send-to-irb (concat (buffer-substring irb-e irb-s) "\n" ))))) ;カーソル部分の最外側の定義がevalされる。 (defun irb-eval-outer-end () (interactive) (save-excursion (save-restriction (re-search-forward "^end" nil) (irb-eval-paragraph)))) ;現在行をevalする (defun irb-eval-current-line () (interactive) (save-excursion (beginning-of-line) (setq irb-s (point)) (end-of-line) (setq irb-e (point)) (send-to-irb (concat (buffer-substring irb-s irb-e) "\n" )))) ;;;インデントをあわせて、フォーマットを行う。 (defun format-ruby () (interactive) (save-excursion (beginning-of-buffer) (ruby-tab-and-indent) (format-ruby-recursive))) (defun format-ruby-recursive () (next-line) (ruby-tab-and-indent) (end-of-line) ; (setq current-line (point)) ; (save-excursion ; (end-of-buffer) ; (setq end-line (point))) (unless (equal (point) (point-max));バッファーエンドに到達したら (format-ruby-recursive))) ;;; 2つWindowを開いている状態で、カレントでないウィンドウを変更する関数 (defun open-other-window (buffer) (other-window) (switch-to-buffer (find-buffer buffer)) (other-window)) (export (ruby-mode ruby-interaction-mode ruby-refresh perform-replace *ruby-prog* *ruby-tab-always-indent* *ruby-keyword-file* *ruby-mode-hook* *ruby-mode-syntax-table* *ruby-mode-map* *ruby-mode-abbrev-table* *ruby-indent-column* *ruby-reference-html-help-file* *ruby-save-bufer-before-run* replace-string query-replace replace-regexp query-replace-regexp )) (defvar *ruby-prog* "ruby") (defvar *ruby-tab-always-indent* t) (defvar *ruby-mode-hook* nil) (defvar *ruby-keyword-hash-table* nil) (defvar *ruby-keyword-file* "Ruby") (defvar *ruby-completion-list* nil) (defvar *ruby-indent-column* 2) (defvar *ruby-reference-html-help-file* "rubymanjp.chm") (defvar *ruby-save-bufer-before-run* nil) (defvar *ruby-mode-syntax-table* nil) (unless *ruby-mode-syntax-table* (setq *ruby-mode-syntax-table* (make-syntax-table)) ; (do ((x #x21 (1+ x)))(( = x #x7f)) ; (let ((c (code-char x))) ; (unless (alphanumericp c) ; (set-syntax-punctuation *ruby-mode-syntax-table* c)))) (set-syntax-escape *ruby-mode-syntax-table* #\\) (set-syntax-symbol *ruby-mode-syntax-table* #\_) (set-syntax-symbol *ruby-mode-syntax-table* #\?) (set-syntax-symbol-prefix *ruby-mode-syntax-table* #\$) (set-syntax-symbol-prefix *ruby-mode-syntax-table* #\@) (set-syntax-match *ruby-mode-syntax-table* #\( #\)) (set-syntax-match *ruby-mode-syntax-table* #\{ #\}) (set-syntax-match *ruby-mode-syntax-table* #\[ #\]) ) (defvar *ruby-mode-map* nil) (unless *ruby-mode-map* (setq *ruby-mode-map* (make-sparse-keymap)) (define-key *ruby-mode-map* #\{ ruby-electric-insert) ; (define-key *ruby-mode-map* #\ ruby-electric-insert) ; (define-key *ruby-mode-map* #\F1 ruby-reference-show-html-help) (define-key *ruby-mode-map* #\F1 help-ruby) ; (define-key *ruby-mode-map* #\F7 help-ruby) (define-key *ruby-mode-map* #\} ruby-electric-close) (define-key *ruby-mode-map* #\C-h backward-delete-char-untabify-or-selection) (define-key *ruby-mode-map* #\TAB ruby-tab-and-indent) ; (define-key *ruby-mode-map* #\TAB ruby-completion) (define-key *ruby-mode-map* #\RET ruby-newline-and-indent) ; (define-key *ruby-mode-map* #\C-l popup-method-only) (define-key *ruby-mode-map* (#\F5) ruby-run-script-immediate);実行 (define-key *ruby-mode-map* (#\C-F5) ruby-run-script-with-args) (define-key *ruby-mode-map* (#\F3) list-function) (define-key *ruby-mode-map* (#\S-F12) ruby-refresh) (define-key *ruby-mode-map* (#\F11) format-ruby) (define-key *ruby-mode-map* (#\C-c #\i) ruby-interaction-mode) ) (set-extended-key-translate-table exkey-S-space #\F20) (defvar *ruby-mode-abbrev-table* nil) (unless *ruby-mode-abbrev-table* (define-abbrev-table *ruby-mode-abbrev-table*)) (defun ruby-tab-and-indent () (interactive "*p") (enable-post-buffer-modified-hook nil) (ruby-indent-line) (enable-post-buffer-modified-hook t) ) (defun ruby-newline-and-indent ( optional (arg 1)) (interactive "*p") (enable-post-buffer-modified-hook nil) (delete-trailing-spaces) (let ((n 0)) (setq n (ruby-indent-line t)) (insert #\LFD arg) (when (and n ( = 0 n )) (if *ruby-indent-column* (insert " " (* n *ruby-indent-column*)) (insert "\t" n)))) (save-excursion(modify-rb-attributes (1- (point))(point))) (enable-post-buffer-modified-hook t) ) ;;; Ruby Interaction Mode ;;; (defvar-local *ruby-interaction-mode* nil) ;(defvar-local irb-process nil) (defvar *ruby-interaction-mode-map* nil) (unless *ruby-interaction-mode-map* (setq *ruby-interaction-mode-map* (make-sparse-keymap)) ; (define-key *ruby-interaction-mode-map* #\C-j irb-eval-paragraph) (define-key *ruby-interaction-mode-map* #\C-j irb-eval-current-line) (define-key *ruby-interaction-mode-map* (#\C-c #\C-@) irb-eval-region) (define-key *ruby-interaction-mode-map* (#\C-c #\C-j) irb-eval-outer-end) (define-key *ruby-interaction-mode-map* (#\F4) irb-eval-all) (define-key *ruby-interaction-mode-map* #\TAB code-assist) ) (defun ruby-interaction-mode ( optional (arg nil sv)) (interactive "p") (toggle-mode *ruby-interaction-mode* arg sv) (if *ruby-interaction-mode*(setq mode-name "Ruby-Interaction") (setq mode-name "Ruby")) (update-mode-line t) (if *ruby-interaction-mode* (progn (set-minor-mode-map *ruby-interaction-mode-map*) ;(unless (find-buffer "*ResultRuby*")(irb-start)) ;ResultRubyが開いている場合はirbを立ち上げないように修正 by nagata (irb-start) ) (progn (unset-minor-mode-map *ruby-interaction-mode-map*) (irb-quit) (sit-for 0.1) (delete-other-windows) )) t) (setq irb-start-script "\" module IRB def IRB.setup(ap_path) IRB.init_config(ap_path) IRB.init_error IRB.conf[ PROMPT][ XYZZY_PROMPT] = { PROMPT_I = nil, PROMPT_S = nil, PROMPT_C = nil, RETURN = == %s\n } IRB.conf[ PROMPT_MODE] = XYZZY_PROMPT IRB.run_config end end IRB.start \"") ;;; (defun ruby-electric-insert ( optional (arg 1)) ;from ruby.l by HATTORI San (interactive "*p") (self-insert-command arg) (ruby-indent-line)) (defun ruby-electric-close ( optional (arg 1)) ;from ruby.l by HATTORI San (interactive "*p") (self-insert-command arg) (ruby-indent-line) (save-excursion (forward-char -1) (and (goto-matched-parenthesis) (show-matched-parenthesis))) t) (defun ruby-indent-line ( optional new-line) (interactive "*") (if (or (not (interactive-p)) *ruby-tab-always-indent* (save-excursion (skip-chars-backward " \t") (bolp))) (let ((column 0)(n0 nil)(n1 nil)) (multiple-value-setq (n0 n1) (rb-count-indent new-line)) (when (and (integerp n0)( = 0 n0)) (save-excursion (goto-bol) (delete-region (point) (progn (skip-chars-forward " \t") (point))) (if *ruby-indent-column* (insert " " (* n0 *ruby-indent-column*)) (insert "\t" n0) ))) (if (and (bolp) n0) (skip-chars-forward " \t")) (return-from ruby-indent-line n1)) (insert "\t")) t) (defun ruby-completion () ;from ruby.l by HATTORI San (interactive) (or *ruby-completion-list* (setq *ruby-completion-list* (make-list-from-keyword-table *ruby-keyword-hash-table*)) (return-from ruby-completion nil)) (let ((opoint (point))) (when (skip-syntax-spec-backward "w_") (let ((from (point))) (goto-char opoint) (do-completion from opoint list *ruby-completion-list*))))) (defun tags-find-ruby-point (class name functionp point) ;from ruby.l by HATTORI San (goto-char (- point *jump-tag-limit*)) (and (scan-buffer (concat "^[ \t]*\\(def\\|class\\|module\\|attr\\)[ \t]+" (regexp-quote name) "\\($\\|[ \t\r\n\f#]\\)") regexp t limit (+ point *jump-tag-limit*)) (point))) (defun ruby-mode () ;from ruby.l by HATTORI San (interactive) (kill-all-local-variables) (setq mode-name "Ruby") (setq buffer-mode ruby-mode) (use-syntax-table *ruby-mode-syntax-table*) (use-keymap *ruby-mode-map*) (make-local-variable mode-specific-indent-command) (setq mode-specific-indent-command # ruby-indent-line) (make-local-variable paragraph-start) (setq paragraph-start "^$\\|\f") (make-local-variable paragraph-separate) (setq paragraph-separate paragraph-start) ; (make-local-variable indent-tabs-mode) ; (setq indent-tabs-mode nil) (make-local-variable tags-find-target) (setq tags-find-target # tags-find-target-simple) (make-local-variable tags-find-point) (setq tags-find-point # tags-find-ruby-point) (make-local-variable build-summary-function) (setq build-summary-function ruby-build-summary-of-functions) (and *ruby-keyword-file* (null *ruby-keyword-hash-table*) (setq *ruby-keyword-hash-table* (load-keyword-file *ruby-keyword-file*))) (when *ruby-keyword-hash-table* (make-local-variable keyword-hash-table) (setq keyword-hash-table *ruby-keyword-hash-table*)) (make-local-variable regexp-keyword-list) (setq regexp-keyword-list *ruby-variables-regexp*) (setq *local-abbrev-table* *ruby-mode-abbrev-table*) (run-hooks *ruby-mode-hook*) (enable-post-buffer-modified-hook t) (add-hook post-buffer-modified-hook ruby-buffer-modified-hook) ; (ruby-interaction-mode);nagata add (save-excursion (clear-all-text-attributes) (modify-rb-attributes (point-min) (point-max)))) (pushnew (ruby-maketags "*.rb") *maketags-list* key # car) (defun ruby-maketags (file count) ;from ruby.l by HATTORI San (goto-char (point-min)) (while (scan-buffer "^[ \t]*\\(def\\|class\\|module\\|attr\\)[ \t]+" regexp t tail t) (do-events) (let ((type (match-string 1)) (opoint (point))) (when (and (string= type "attr") (looking-at "[ \t]+ ")) (goto-char (match-end 0)) ) (skip-chars-forward "A-Za-z0-9_") (unless (= opoint (point)) (format t "~A~A~D" (buffer-substring opoint (point)) file opoint) (setq count (1+ count))))) count) (defun ruby-buffer-modified-hook (buffer operation from to undo-p) (cond ((eq buffer-mode ruby-mode) (save-excursion (modify-rb-attributes from to))) )) (setf rb-special-regexp (compile-regexp "[\"\ \`\/\#\}\=]") rd-end-regexp (compile-regexp "^=end") rd-keyword-regexp (compile-regexp (format nil "\\ ~A\\ ~{\\|\\ ~A\\ ~}" (car ruby-bold-keywords) (cdr ruby-bold-keywords))) rb-block-mid-regexp (compile-regexp (concat "^[ \t]*then\\|^[ \t]*else\\|^[ \t]*elsif\\|^[ \t]*when\\|" "^[ \t]*rescue\\|^[ \t]*ensure")) rb-token-regexp (compile-regexp "[\"\ \`\#\}\/]\\|^=begin\\|[\@\$\.]?[a-zA-Z_][a-zA-Z0-9_]+\\ ") rb-token-regexp2 (compile-regexp "[\"\ \`\/\#\{\}]\\|^=begin\\|[\@\$\.]?[a-zA-Z_][a-zA-Z0-9_]+\\ ") rb-then-regexp (compile-regexp "\\ then\\($\\|[^a-zA-Z0-9_].*[\;\#]?\\)") rb-while-until-for-regexp (compile-regexp "\\(^\\|;\\)[ \t]*\\(while\\|until\\|for\\)\\($\\|[^a-zA-Z0-9_]\\)") rb-bold-keywords (append ruby-bold-keywords ("{" "}" "\"" "\ " "\`" "\#" "#{" "\/")) rb-be-keywords ( "=begin" "=end" "begin" "case" "class" "def" "do" "end" "for" "if" "module" "unless" "until" "while" "{" "}" "\"" "\ " "\`" "\/" "\#") rd-end-regexp (compile-regexp "^=end") ) (defun modify-rb-attributes (rb-from rb-to) (refresh-screen) (let((rb-from-bol (progn (goto-char rb-from)(goto-bol)(point))) (rb-to-eol (progn (goto-char rb-to)(goto-eol)(point))) (rb-eof (point-max)) (rb-bol 0)(rb-eol 0)(ke 0)(c1 0)(n1 0) (rb-str nil)(rd-lin nil)(rb-rgx nil)(rb-exp nil)(rb-cmt nil) (opoint 0)(mb 0)(me 0)(ms nil)) ;point-min to before rb-from check attributes (goto-char (point-min)) (while (scan-buffer rb-special-regexp limit rb-from-bol tail t) (setq mb (match-beginning 0) me (match-end 0) ms (match-string 0)) (cond ((and (save-excursion (backward-char)(bolp))(string= ms "=") (looking-for "begin")(not(or rb-str rd-lin))) (if (scan-buffer rd-end-regexp limit rb-from-bol) (goto-eol) (setq rd-lin t))) ((and (string= ms "\#")(not(or rb-str rd-lin)));comment (goto-char mb) ;check escape character (if (and (not(looking-back "?")) (progn (skip-chars-backward "\\")(evenp (- mb (point))))) (goto-eol) (goto-char me))) ((and (not(or rd-lin rb-str)) (string= ms "\ ") (save-excursion (goto-char mb) (not(or(looking-back "\$")(looking-back "?")))) (save-excursion ;check escape character (goto-char mb) (skip-chars-backward "\\") (evenp (- mb (point))))) (unless (while (scan-buffer ms limit rb-from-bol tail t) (when (save-excursion (goto-char (setq mb(match-beginning 0))) (skip-chars-backward "\\") (evenp (- mb (point)))) (return t))) (setq rb-str ms) );unless ) ((and (not(or rd-lin rb-str)) (find ms ("\"" "\`" "\/" "\}") test # string=) (save-excursion (goto-char mb) (not(or(looking-back "\$")(looking-back "?")))) (save-excursion ;check escape character (goto-char mb) (skip-chars-backward "\\") (evenp (- mb (point)))) (save-excursion (or (not (string= ms "\/")) (progn(goto-char mb)(skip-chars-backward " \t") (setq opoint(point))nil) (or (bolp) (looking-back "=~") (looking-back "= ") (looking-back " ") (skip-chars-backward "=[;({|," ) (and (skip-syntax-spec-backward "w_") (or (find (buffer-substring (point) opoint) ( "begin" "do" "else" "elsif" "ensure""if" "rescue""then""unless" "until" "while" "when") test # string=) (and (skip-chars-backward "." ) (skip-syntax-spec-backward "w_") (progn (skip-chars-backward " \t") (or (bolp) (looking-back ";")))) ))) )) (if (string= ms "\}") (and rb-exp (prog1(setq ms rb-exp)(setq rb-exp nil))) t) );and (unless (while (scan-buffer (concat ms "\\|#{" ) limit rb-from-bol tail t regexp t) (when (save-excursion (goto-char (setq me (match-end 0) mb (match-beginning 0))) (skip-chars-backward "\\") (evenp (- mb (point)))) (when (string= (match-string 0) "#{") (setq rb-exp ms)) (setq rb-str nil) (return t))) (setq rb-str ms) );unless ) );cond );while (goto-char rb-from-bol) ;at modified lines, set ruby attributes (loop (setf rb-bol (point) ke (point) rb-eol (progn(goto-eol)(point))rb-cmt nil) (goto-bol) (cond ((and (not rd-lin)(not rb-str)(looking-for "=begin")) (setq rd-lin t) (set-rd-line-attr ruby-rd-fore-color ruby-rd-back-color (1+ rb-eol)) (goto-eol)(setq ke (1+ (point))) );rd begin ((and rd-lin (not rb-str)(looking-for "=end")) (setq rd-lin nil) (goto-bol) (set-rd-line-attr ruby-rd-fore-color ruby-rd-back-color (1+ rb-eol)) (goto-eol)(setq ke (1+ (point))) );rd end ((and rd-lin (not rb-str)) (set-rd-line-attr ruby-rd-fore-color ruby-rd-back-color (1+ rb-eol)) (goto-eol)(setq ke (point)) );rd lin (t (while (scan-buffer rb-token-regexp limit rb-eol tail t) (setq c1 nil) (when (find (match-string 0) rb-bold-keywords test # string=) (setf n1 (point) c1 (match-string 0) mb (match-beginning 0) me (match-end 0)) (cond ((and (string= c1 "\#") (save-excursion (goto-char mb) (and (not (looking-back "?")) (progn (skip-chars-backward "\\") (evenp (- mb (point)))))) (or (not rb-str) (not (looking-for "{")))) (if rb-str (progn (if (string= rb-str "\/") (set-text-attribute ke me non-kwd foreground ruby-rgx-fore-color background ruby-rgx-back-color) (set-text-attribute ke me non-kwd foreground ruby-str-fore-color background ruby-str-back-color)) (setq ke me)) (progn (if rb-cmt (set-text-attribute ke mb non-kwd foreground ruby-comment-fore-color background ruby-comment-back-color) (set-text-attribute ke mb non-kwd)) (set-text-attribute mb me non-kwd foreground ruby-comment-fore-color background ruby-comment-back-color) (setq ke me) (setq rb-cmt t)))) (rb-cmt (set-text-attribute ke mb non-kwd foreground ruby-comment-fore-color background ruby-comment-back-color) (set-text-attribute mb me kwd foreground ruby-comment-fore-color background ruby-comment-back-color) (setq ke me)) ((save-excursion (goto-char mb) (and (not rb-rgx) (string= c1 "\ ");if single quatation (or rb-str (not (or(looking-back "\$")(looking-back "?")))) (progn (skip-chars-backward "\\") ;check escape character (evenp (- mb (point)))) (or (not rb-str)(string= c1 rb-str)) )) (cond (rb-str (set-text-attribute ke mb non-kwd foreground ruby-str-fore-color background ruby-str-back-color) (set-text-attribute mb me non-kwd foreground ruby-str-fore-color background ruby-str-back-color) (setq rb-str nil) (setq ke me)) (t (set-text-attribute ke mb non-kwd) (set-text-attribute mb me non-kwd foreground ruby-str-fore-color background ruby-str-back-color) (setq rb-str c1) (setq ke me))) );toggle quatation flag ((save-excursion (goto-char mb) (and (find c1 ("\"""\`""\/""#" "}") test # string=) ;if quatation (or rb-str (not (or(looking-back "\$")(looking-back "?")))) (progn (skip-chars-backward "\\") ;check escape character (evenp (- mb (point)))) (or (not(string= c1 "}")) rb-exp) (or rb-str (not (string= c1 "\/")) (progn(goto-char mb)(skip-chars-backward " \t") (setq opoint(point))nil) (or (bolp) (looking-back "=~") (looking-back "= ") (looking-back " ") (skip-chars-backward "=[;({|," ) (and (skip-syntax-spec-backward "w_") (or (find (buffer-substring (point) opoint) ( "begin" "do" "else" "elsif" "ensure""if" "rescue""then""unless" "until" "while" "when") test # string=) (and (skip-chars-backward "." ) (skip-syntax-spec-backward "w_") (progn (skip-chars-backward " \t") (or (bolp) (looking-back ";")))) )))) (progn (goto-char me) (or (not rb-str) (string= c1 rb-str) (and (not(string= rb-str "\ ")) (string= c1 "#") (looking-for "{") ))) )) (cond (rb-str (when (string= c1 "#") (setq rb-exp rb-str) (forward-char) (setq me (point))) (cond ((string= rb-str "\/") (set-text-attribute ke mb non-kwd foreground ruby-rgx-fore-color background ruby-rgx-back-color) (set-text-attribute mb me non-kwd foreground ruby-rgx-fore-color background ruby-rgx-back-color)) (t (set-text-attribute ke mb non-kwd foreground ruby-str-fore-color background ruby-str-back-color) (set-text-attribute mb me non-kwd foreground ruby-str-fore-color background ruby-str-back-color)) ) (setq rb-str nil) (setq ke me)) (t (if (string= c1 "}") (progn(setq rb-str rb-exp)(setq rb-exp nil)) (setq rb-str c1)) (set-text-attribute ke mb non-kwd) (if (string= rb-str "\/") (set-text-attribute mb me non-kwd foreground ruby-rgx-fore-color background ruby-rgx-back-color) (set-text-attribute mb me non-kwd foreground ruby-str-fore-color background ruby-str-back-color) ) (setq ke me))) );toggle quatation flag (t ;else it s keyword (cond (rb-str ;if in string, change tag and color (cond ((string= rb-str "\/") (set-text-attribute ke mb non-kwd foreground ruby-rgx-fore-color background ruby-rgx-back-color) (set-text-attribute mb me kwd foreground ruby-rgx-fore-color background ruby-rgx-back-color)) (t (set-text-attribute ke mb non-kwd foreground ruby-str-fore-color background ruby-str-back-color) (set-text-attribute mb me kwd foreground ruby-str-fore-color background ruby-str-back-color))) (setq ke me)) (t ;else change keyword to bold (cond ((find c1 ("\"""\ ""\`""\}""\/""\#" ) test # string=) (set-text-attribute ke mb non-kwd) (set-text-attribute mb me non-kwd) ) (t (set-text-attribute ke mb non-kwd) (set-text-attribute mb me kwd bold t)) ) (setq ke me));t )))));end while ;line termination (cond (rb-cmt (set-text-attribute ke (1+ rb-eol) non-kwd foreground ruby-comment-fore-color background ruby-comment-back-color)) (rb-str (cond ((string= rb-str "\/") (set-text-attribute ke (1+ rb-eol) non-kwd foreground ruby-rgx-fore-color background ruby-rgx-back-color)) (t (set-text-attribute ke (1+ rb-eol) non-kwd foreground ruby-str-fore-color background ruby-str-back-color)) ) ) (t (unless rd-lin (set-text-attribute ke (1+ rb-eol) non-kwd ))) ) (goto-eol) (setq ke (point)) ) ) (if (or ( = (point) rb-to-eol) (not(forward-line))) (return)) );loop (when (eolp)(forward-char)) ;at remained line, modify ruby attributes (while (scan-buffer rb-special-regexp limit rb-eof tail t) (setq mb (match-beginning 0) me (match-end 0) ms (match-string 0)) (cond ((and (save-excursion (backward-char)(bolp)) (string= ms "=") (looking-for "begin") (not(or rb-str rd-lin))) (modify-text-attributes kwd start ke end mb bold t) (modify-text-attributes non-kwd start ke end mb) (setq ke mb) (if (scan-buffer rd-end-regexp limit rb-eof) (progn (goto-eol) (modify-text-attributes kwd start ke end (1+ (point)) foreground ruby-rd-fore-color background ruby-rd-back-color extend t) (modify-text-attributes non-kwd start ke end (1+ (point)) foreground ruby-rd-fore-color background ruby-rd-back-color extend t) (setq ke (1+ (point)))) (setq rd-lin t))) ((and (save-excursion (backward-char)(bolp)) (string= ms "=") (looking-for "end") rd-lin (not rb-str)) (goto-eol) (modify-text-attributes kwd start ke end (1+ (point)) foreground ruby-rd-fore-color background ruby-rd-back-color extend t) (modify-text-attributes non-kwd start ke end (1+ (point)) foreground ruby-rd-fore-color background ruby-rd-back-color extend t) (setq ke (1+ (point))) (setq rd-lin nil)) ((and (string= ms "\#") (not (or rb-str rd-lin)));comment (goto-char mb) ;check escape character (if (and (not(looking-back "?")) (progn (skip-chars-backward "\\")(evenp (- mb (point))))) (progn (goto-char mb) (modify-text-attributes kwd start ke end mb bold t) (modify-text-attributes non-kwd start ke end mb) (setq ke mb)(goto-eol) (modify-text-attributes kwd start ke end (point) foreground ruby-comment-fore-color background ruby-comment-back-color) (modify-text-attributes non-kwd start ke end (point) foreground ruby-comment-fore-color background ruby-comment-back-color) (setq ke (point)) ) (progn (setq ke me)(goto-char me)))) ((and (not(or rd-lin rb-str)) (string= ms "\ ") (save-excursion (goto-char mb)(not(or(looking-back "\$")(looking-back "?")))) (save-excursion (goto-char mb) (skip-chars-backward "\\") ;check escape character (evenp (- mb (point))))) (unless (progn (modify-text-attributes kwd start ke end mb bold t) (modify-text-attributes non-kwd start ke end mb) (setq ke mb) (while (scan-buffer ms limit rb-eof tail t) (when (save-excursion (goto-char (setq me (match-end 0) mb (match-beginning 0))) (skip-chars-backward "\\") (evenp (- mb (point)))) (modify-text-attributes kwd start ke end me foreground ruby-str-fore-color background ruby-str-back-color) (modify-text-attributes non-kwd start ke end me foreground ruby-str-fore-color background ruby-str-back-color) (setq rb-str nil) (setq ke me) (return t) ))) (setq rb-str ms)) ) ((and (not(or rd-lin rb-str)) (or (find ms ("\"" "\`""\/") test # string=) (and rb-exp (string= ms "}"))) (save-excursion (goto-char mb) (not(or(looking-back "\$")(looking-back "?")))) (save-excursion ;check escape character (goto-char mb) (skip-chars-backward "\\") (evenp (- mb (point)))) (save-excursion (or (not (string= ms "\/")) (progn(goto-char mb)(skip-chars-backward " \t") (setq opoint(point))nil) (or (bolp) (looking-back "=~") (looking-back "= ") (looking-back " ") (skip-chars-backward "=[;({|," ) (and (skip-syntax-spec-backward "w_") (or (find (buffer-substring (point) opoint) ( "begin" "do" "else" "elsif" "ensure""if" "rescue""then""unless" "until" "while" "when") test # string=) (and (skip-chars-backward "." ) (skip-syntax-spec-backward "w_") (progn (skip-chars-backward " \t") (or (bolp) (looking-back ";")))) ))) )) ; (or (not (string= ms "\}")) ; (if rb-exp (prog1(setq ms rb-exp)(setq rb-exp nil)) nil)) ) (unless (progn (when (string= ms "}") (setq ms rb-exp)(setq rb-exp nil)) (modify-text-attributes kwd start ke end mb bold t) (modify-text-attributes non-kwd start ke end mb) (setq ke mb) (while (scan-buffer (concat ms "\\|#{" ) limit rb-eof tail t regexp t) (when (save-excursion (goto-char (setq me (match-end 0) mb (match-beginning 0))) (skip-chars-backward "\\") (evenp (- mb (point)))) (cond ((string= ms "\/") (modify-text-attributes kwd start ke end me foreground ruby-rgx-fore-color background ruby-rgx-back-color) (modify-text-attributes non-kwd start ke end me foreground ruby-rgx-fore-color background ruby-rgx-back-color)) (t (modify-text-attributes kwd start ke end me foreground ruby-str-fore-color background ruby-str-back-color) (modify-text-attributes non-kwd start ke end me foreground ruby-str-fore-color background ruby-str-back-color)) ) (when (string= (match-string 0) "#{") (setq rb-exp ms)) (setq rb-str nil) (setq ke me) (return t) ))) (setq rb-str ms)) ) ((and (not rd-lin) (or (string= ms rb-str) (and (not(string= rb-str "\ ")) (string= ms "\#") (looking-for "\{") )) (save-excursion(goto-char mb) (skip-chars-backward "\\")(evenp (- mb (point))))) (when (string= ms "\#") (setq rb-exp rb-str) (forward-char) (setq me (point))) (cond ((string= rb-str "\/") (modify-text-attributes kwd start ke end me foreground ruby-rgx-fore-color background ruby-rgx-back-color) (modify-text-attributes non-kwd start ke end me foreground ruby-rgx-fore-color background ruby-rgx-back-color) ) (t (modify-text-attributes kwd start ke end me foreground ruby-str-fore-color background ruby-str-back-color) (modify-text-attributes non-kwd start ke end me foreground ruby-str-fore-color background ruby-str-back-color) ) ) (setq rb-str nil ke me)) ;(t (goto-char me)) );cond );while ;terminate to EOF (cond (rb-str (cond ((string= rb-str "\/") (modify-text-attributes kwd start ke end (point-max) foreground ruby-rgx-fore-color background ruby-rgx-back-color) (modify-text-attributes non-kwd start ke end (point-max) foreground ruby-rgx-fore-color background ruby-rgx-back-color)) (t (modify-text-attributes kwd start ke end (point-max) foreground ruby-str-fore-color background ruby-str-back-color) (modify-text-attributes non-kwd start ke end (point-max) foreground ruby-str-fore-color background ruby-str-back-color)) )) (rd-lin (modify-text-attributes kwd start ke end (point-max) foreground ruby-rd-fore-color background ruby-rd-back-color extend t) (modify-text-attributes non-kwd start ke end (point-max) foreground ruby-rd-fore-color background ruby-rd-back-color extend t)) (t (modify-text-attributes kwd start ke end (point-max) bold t) (modify-text-attributes non-kwd start ke end (point-max))) ) );let );modify-rb-attributes (defun set-rd-line-attr (ruby-rd-fore-color ruby-rd-back-color rd-eol) (let ((ke (point))(mb (point))(me (point))) (while (scan-buffer rd-keyword-regexp limit rd-eol tail t) (setq mb (match-beginning 0) me (match-end 0)) (set-text-attribute ke mb non-kwd foreground ruby-rd-fore-color background ruby-rd-back-color extend t) (set-text-attribute mb me kwd foreground ruby-rd-fore-color background ruby-rd-back-color extend t) (setq ke me)) (set-text-attribute ke rd-eol non-kwd foreground ruby-rd-fore-color background ruby-rd-back-color extend t))) (defun rb-count-indent ( optional new-line) (let ((b0 0)(n0 0)(n 0)(s nil)(limit 0)(rb-str nil)(rd-lin nil)(rb-exp nil)) (save-excursion (goto-bol) (setq b0 (point)) (setq limit (point)) (goto-char (point-min)) (while (prog1(multiple-value-setq (s rb-str rd-lin rb-exp) (scan-skip-non-ruby-exp limit rb-exp)) ) (when (or rb-str rd-lin)(return)) (if (or (string= s "end")(string= s "\}")) (decf n) (incf n))) (setq n0 n)) (save-excursion (save-restriction (unless new-line (goto-eol)) (narrow-to-region b0 (point)) (setq limit (point)) (goto-char (point-min)) (when rd-lin (when (looking-at "^=end") (return-from rb-count-indent (values nil n))) (return-from rb-count-indent (values nil nil))) (when rb-str (setq n0 nil) (unless (scan-buffer rb-str tail t) (return-from rb-count-indent (values nil nil)))) (when (or (looking-at "^[ \t]*end\\($\\|[^a-zA-Z0-9_]\\)\\|^[ \t]*\}") (scan-buffer rb-block-mid-regexp tail t)) (decf n0)) (while (multiple-value-setq (s rb-str rd-lin rb-exp) (scan-skip-non-ruby-exp limit rb-exp)) (when (or rb-str rd-lin)(return)) (if (or (string= s "end")(string= s "}")) (decf n) (incf n))) (when rd-lin (return-from rb-count-indent (values nil nil))) (when rb-str (when (progn (goto-bol)(skip-chars-forward " \t") (string= rb-str (buffer-substring (point)(1+ (point))))) (return-from rb-count-indent (values nil nil))) (return-from rb-count-indent (values n nil))) )) (values n0 n))) (defun scan-skip-non-ruby-exp (limit-pos rb-exp) (let ((opoint 0)(mb 0)(me 0)(ms nil) (rb-str nil)(rd-lin nil) (rb-bol 0)(rb-eol 0)) (while (progn (setq ms nil) (scan-buffer rb-token-regexp2 limit limit-pos tail t)) (when (find (match-string 0) rb-be-keywords test # string=) (setq mb (match-beginning 0) me (match-end 0) ms (match-string 0)) (cond ((and (string= ms "=begin") (not(or rb-str rd-lin))) (if (scan-buffer rd-end-regexp limit limit-pos) (goto-eol) (setq rd-lin t))) ((and (string= ms "\#")(not(or rb-str rd-lin)));comment (goto-char mb) ;check escape character (if (and (not(looking-back "?")) (progn (skip-chars-backward "\\")(evenp (- mb (point))))) (goto-eol)(goto-char me))) ((and (not rd-lin) (string= ms "\ ") (save-excursion (goto-char mb) (and (or rb-str (not(or(looking-back "\$")(looking-back "?")))) (progn (skip-chars-backward "\\") (evenp (- mb (point)))))));it s single quotation (if rb-str (setq rb-str nil) (unless (while (scan-buffer ms limit limit-pos tail t) (when (save-excursion (goto-char (setf me (match-end 0) mb (match-beginning 0))) (skip-chars-backward "\\") (evenp (- mb (point)))) (return t))) (progn (goto-char limit-pos) (setq rb-str ms)(return nil)));unless );if );is string ((and (not rd-lin) (find ms ("\"" "\`" "\/""\}") test # string=) (save-excursion (goto-char mb) (and (or rb-str (not(or(looking-back "\$")(looking-back "?")))) (progn(skip-chars-backward "\\")(evenp (- mb (point)))) (or (not (string= ms "\/")) (progn (skip-chars-backward " \t")(setq opoint(point))nil) (or (bolp) (looking-back "=~") (looking-back "= ") (looking-back " ") (skip-chars-backward "=[;({|," ) (and (skip-syntax-spec-backward "w_") (or (find (buffer-substring (point) opoint) ( "begin" "do" "else" "elsif" "ensure""if" "rescue""then""unless" "until" "while" "when") test # string=) (and (skip-chars-backward "." ) (skip-syntax-spec-backward "w_") (progn (skip-chars-backward " \t") (or (bolp) (looking-back ";")))) )))) (if (string= ms "\}") (and rb-exp (prog1(setq ms rb-exp)(setq rb-exp nil))) t ) )));it s quotation (if rb-str (when(string= rb-str ms)(setq rb-str nil)) (unless (while (scan-buffer (concat ms "\\|#{" ) limit limit-pos tail t regexp t) (when (save-excursion (goto-char (setf me (match-end 0) mb (match-beginning 0))) (skip-chars-backward "\\") (evenp (- mb (point))) ) (when (string= (match-string 0) "#{") (setq rb-exp ms)) (return t))) (progn (goto-char limit-pos) (setq rb-str ms)(return nil)));unless );if );is string ((find ms ("if" "unless" "while" "until" "rescue") test # string= ) (save-excursion (goto-eol)(setq rb-eol (point)) (if (progn (goto-char (match-beginning 0)) (skip-chars-backward " \t") (or (bolp) (string= ";" (buffer-substring (1- (point)) (point))))) (progn (return ms)) (progn (goto-char (match-end 0)) (when (scan-buffer rb-then-regexp limit rb-eol)(return ms)) (setq ms nil))))) ((and (not rb-str)(not rd-lin)(find ms ("do" "\{" ) test # string=)) (save-excursion (setq opoint (point)) (goto-bol) (setq rb-bol (point)) (goto-char opoint) (if (scan-buffer rb-while-until-for-regexp limit rb-bol reverse t) (setq ms nil) (return ms)))) ((and (not rb-str) (not rd-lin) (find ms ("begin" "case" "class" "def" "end" "for" "if" "module" "}") test # string=)) (return) ) );cond );when );while (values ms rb-str rd-lin rb-exp) );let ) (defun ruby-reference-show-html-help () (interactive) (html-help (merge-pathnames *ruby-reference-html-help-file* (etc-path)) (get-winhelp-topic))) (defun ruby-run-script-immediate () (interactive) (rb-run "") ) (defun ruby-run-script-with-args ( optional args) (interactive "sARGS ") (unless (interactive-p) (setq args (read-string "ARGS ")) ) (rb-run args) ) (defun rb-run (args) (if *ruby-save-bufer-before-run* (progn (save-buffer) (command-execution (concat *ruby-prog* " " (get-buffer-file-name) " " args))) (let ((tempfile (make-temp-file-name "__temp_" "rb" (default-directory)))) (with-open-file(rb-stream tempfile direction output) (princ (buffer-substring (point-min)(point-max)) rb-stream ) ) (command-execution (concat *ruby-prog* " \"" tempfile "\" " args)) (delete-file tempfile if-does-not-exist skip) ) ) ) (defun command-execution (command) (interactive "sCmmand ") (let ((proc nil)(buffer (selected-buffer))) (with-output-to-temp-buffer ("*cmd*" 5) (unwind-protect (setq proc (make-process command output(selected-buffer) exec-directory (default-directory buffer))) )) (while (eq run (process-status proc)) (sit-for 0.05)(do-events)) (if (= 0 (point-max)) (let ((buff (selected-buffer))) (other-window) (delete-buffer buff) (delete-other-windows)) (other-window)) (message (concat " " command " ended."))) ) (defun irb-start () (interactive) (with-output-to-temp-buffer("*ResultRuby*" 8) (setf irb-result-buffer (selected-buffer) irb-count-send 0) (set-process-filter (setq irb-process (make-process (concat "ruby -r irb -e " irb-start-script ) output irb-result-buffer)) irb-filter-func) (other-window) )) (defun irb-filter-func (process str) (save-window-excursion (set-buffer irb-result-buffer) (goto-char (point-max)) (insert (substring str irb-count-send (length str))) ) (other-window) (goto-char (point-max)) (refresh-screen) (other-window) (refresh-screen) ) (defun send-to-irb (str) (open-other-window "*ResultRuby*"); add by nagata (setq irb-count-send (length str)) (process-send-string irb-process str)) (defun irb-quit () (send-to-irb"quit\n")) (defun irb-eval-paragraph () (interactive) (setq irb-result-buffer (find-buffer "*ResultRuby*")); nagata added (let ((opoint (point)(rb-eol opoint)(rb-start opoint))) (save-excursion (setq rb-bol (progn (goto-bol)(point))) (setq rb-eol (progn (goto-eol)(point))) (if (scan-buffer "\\(^\\|;\\)[ \t]*end\\([ \t]*\\|#.*\\)$" regexp t reverse t limit rb-bol) (progn (setq rb-start (irb-serch-paragraph rb-eol)) (unless rb-start (return-from irb-eval-paragraph))) (setq rb-start (progn(goto-bol)(point)))) (send-to-irb (concat (buffer-substring rb-start rb-eol) "\n" )) ))) (defun irb-serch-paragraph (limit) (let ((b0 0)(p1 0)(n 0)(s nil)(rb-str nil)(rd-lin nil)(rb-exp)) (save-excursion (goto-char (point-min)) (while (multiple-value-setq (s rb-str rd-lin rb-exp) (scan-skip-non-ruby-exp limit rb-exp)) (when (or rb-str rd-lin)(return)) (if (or (string= s "end")(string= s "\}")) (decf n) (progn (incf n) (when (= n 1) (save-excursion (goto-bol)(setq p1 (point)))) ))) (unless (= n 0) (msgbox "定義の終端じゃないっす!") (return-from irb-serch-paragraph nil)) ) p1 )) (defun ruby-build-summary-of-functions () (let ((result nil)(n 0)(s nil)(rb-str nil)(rd-lin nil)(rb-exp)) (save-excursion (goto-char (point-min)) (while (multiple-value-setq (s rb-str rd-lin rb-exp) (scan-skip-non-ruby-exp (point-max) rb-exp)) (when (or rb-str rd-lin)(return)) (if (or (string= s "end")(string= s "\}")) (decf n) (progn (when (find s ("def" "class" "module") test # string=) (looking-at "[ \t]+\\([^ \t\n{(]+\\)") (push (list (current-line-number) (concat (let ((r nil))(dotimes (x n r)(setq r (concat r " ")))) ; s " " (match-string 1)) (match-string 1) " [" s "]");nagata修正 ) result)) (incf n) ))) (nreverse result) ))) (defun ruby-refresh () (interactive) (save-excursion (modify-rb-attributes (point-min) (point-max))) ) (defun perform-replace (pattern replacement query regexp interactive-p noerror) ; from "search.l" modified by yukimi_sake@mbi@mbi@mbi@mbi@mbiabc.nifty.com (let ((literal (null regexp)) (count 0) (nodup nil) (opoint (point)) (not-found t) (def nil) (last-match nil) (last-match-char nil) (undo-bound (or interactive-p query))) (undo-boundary) (when interactive-p (if regexp (setq *last-search-regexp* pattern *last-replace-regexp* replacement) (setq *last-search-string* pattern *last-replace-string* replacement))) (if regexp (setq pattern (compile-regexp pattern *case-fold-search*))) (if (eq buffer-mode ruby-mode)(enable-post-buffer-modified-hook nil)) (loop (unless query (long-operation (setq count (+ count (replace-buffer pattern replacement regexp regexp no-dup nodup last-match (cons last-match last-match-char) case-fold *case-fold-search* left-bound *word-search* right-bound *word-search* literal literal)))) (when not-found (setq not-found (zerop count))) (return)) (unless (scan-buffer pattern regexp regexp no-dup nodup last-match (cons last-match last-match-char) case-fold *case-fold-search* left-bound *word-search* right-bound *word-search*) (return)) (if (and (eql (match-beginning 0) (match-end 0)) (eql last-match (match-beginning 0))) (setq nodup t) (progn (setq not-found nil) (show-match) (unless (pos-visible-in-window-p (point)) (recenter)) (refresh-screen) (message (if (eq def help) "(y)置換, (n)スキップ, (!)残り全部, (u)アンドゥ, (C-g)中止, (.)中止して戻る" "置換する?")) (setq def (lookup-keymap *query-replace-map* (read-char *keyboard*) t)) (when (cond ((eq def act) t) ((eq def skip) (setq nodup t) nil) ((eq def automatic) (setq query nil) t) ((eq def undo) (and (plusp count) (undo) (setq count (1- count))) (setq nodup nil) nil) ((eq def quit-and-back) (goto-char opoint) (setq def quit) (return)) ((eq def quit) (return)) ((eq def recenter) (recenter) (setq nodup nil) nil) ((and (consp def) (eq (car def) throw)) (throw (cdr def) count)) (t (setq def help) (setq nodup nil) nil)) (setq last-match-char (unless (= (match-end 0) (point-min)) (char-before (match-end 0)))) (unless (replace-match replacement literal literal) (return)) (setq last-match (point)) (setq nodup (= (match-beginning 0) (match-end 0))) (when undo-bound (undo-boundary)) (setq count (1+ count))))) (when (eobp) (return))) (hide-match) (unless noerror (and (eq def quit) (quit)) (and not-found (error "文字列が見つかりません"))) (when (and interactive-p (null *executing-macro*)) (message "~d個置換しました" count)) (when (eq buffer-mode ruby-mode) (save-excursion (modify-rb-attributes (point-min) (point-max))) (enable-post-buffer-modified-hook t)) count)) t
https://w.atwiki.jp/danball-stickranger/pages/143.html
Garnet 効果 Lv.1 +0.4s Fire Langth Lv.2 +0.6s Fire Langth 解説 火の持続時間を増やす。 大したことはなさそうだが、本当に大したことはない。 無駄にレア度が高く、完全にコレクション用である。
https://w.atwiki.jp/elvis/pages/1731.html
Dem Bones Chronicle Books Llc (Juv)?Bob Barner Bugs! Bugs! Bugs! Chronicle Books Llc (Juv)?Bob Barner Bob Barner And You (The Author and You) Libraries Unlimited Inc?Bob Barner Mother Goose Through the Seasons (Mother Goose Ser) William H Sadlier?Lee Bennett Hopkins?Bob BarnerGloria Elliott?Dagmar Fehlau?Sally Vitsky? Fish Wish Holiday House?Bob Barner Parade Day Marching Through the Calendar Year Holiday House?Bob Barner Fish Wish Holiday House (P)?Bob Barner Bug Safari Holiday House?Bob Barner Which Way to the Revolution? A Book About Maps Holiday House?Bob Barner Dino Huellas / Dinosaur Bones (Sm Saber / Sm Know) Bob Barner Too Many Dinosaurs (A Smart Start Math Book) Bantam Dell Pub Group (Juv)?Bob Barner Space Race (A Smart Start Math Book, 2) Bantam Dell Pub Group (Juv)?Bob Barner Benny's Pennies (Picture Yearling Book) Yearling Books?Pat Brisson?Bob Barner How to Weigh an Elephant (A Smart Start Math Book, 4) Bantam Dell Pub Group (Juv)?Bob Barner Thumbprint Critters (Let Me Read Series) Pearson Prentice Hall?Sarah Tatler?Bob Barner Walk the Dog Chronicle Books Llc (Juv)?Bob Barner Fish Tales Sterling Pub Co Inc?Nat Segaloff?Paul Erickson?Bob Barner To Everything Chronicle Books Llc (Juv)?Bob Barner Where Crocodiles Have Wings Holiday House?Pat McKissack?Bob Barner Stars! Stars! Stars! Chronicle Books Llc (Juv)?Bob Barner Dinosaur Bones Chronicle Books Llc (Juv)?Bob Barner Big Is Big and Little, Little A Book of Contrasts Holiday House?J. Patrick Lewis?Bob Barner Penguins, Penguins, Everywhere! Chronicle Books Llc (Juv)?Bob Barner Bug Safari Holiday House (P)?Bob Barner To Everything Chronicle Books Llc (Juv)?Bob Barner Double-Decker, Double-Decker, Double-Decker Bus (Wolcott, Patty. First Read-By-Myself Books (New York, N.Y.).) Harpercollins Childrens Books?Patty Wolcott?Bob Barner Pick Up Your Ears, Henry Atheneum?Patricia Brennan Demuth?Bob Barner The Elevator Escalator Book A Transportation Fact Book Doubleday?Bob Barner The Elevator Escalator Book A Transportation Fact Book Doubleday?Bob Barner Benny's Pennies Doubleday?Pat Brisson?Bob Barner The Don't Put Your Cart Before the Horse Race Houghton Mifflin (Juv)?Van Aarle?Bob Barner Benny's Pennies (Picture Yearling Book) Bt Bound?Pat Brisson?Bob Barner Double Decker Double Decker Double Decker Bus (10-Word Readers) Random House Childrens Books?Patty Wolcott?Bo Barner?Bob Barner Dinosaurs Depart A Start Smart Math Book (A Start Smart Math Book, 5) Bantam Dell Pub Group (Juv)?Bob Barner Fish Wish Holiday House?Bob Barner Dem Bones (Viking Kestrel Picture Books) Viking Children s Books?Bob Barner Dem Bones (Picture Puffin) Puffin Books?Bob Barner Fish Tales Diane Pub Co?Nat Segaloff?Paul Erickson?Bob Barner
https://w.atwiki.jp/shion_2018/pages/17.html
Mod名 Gi-Mod コミュニティ blank link(Gi-Mod作成コミュニティ){https //plus.google.com/communities/109583898363067225605} 目次
https://w.atwiki.jp/shadowsprit/pages/19.html
version1.6.2 フォージー導入 1.6.2最新版いれてから↓ modsフォルダ CustomNPCs_1.6.2(中身を改変しています)(作者様に2次配布許可いただきました) http //www.minecraftforum.net/topic/833003-172-custom-npcs-splanmp/ ← 別途配布致しますので、ここからダウンロードはしないでください。 XerxesWeap v1.0.1.1(中身を改変しています) http //www.minecraftforum.net/topic/1461311-164xerxes-weapons-mod-d/ WeaponMod1.6.2(中身を改変しています) http //www.minecraftforum.net/topic/211517-172forge-balkons-weaponmod-v114/ SecretRoomsMod-universal-1.6.4-4.6.2.323 http //www.minecraftforum.net/topic/546192-164v462secretroomsmodsmpforge-hidden-trapped-chests/ More Pistons - 1.6.2 - 1.4.1 build Smeagol http //www.minecraftforum.net/topic/1794925-16x-15x-forge-more-pistons-141-build-by-smeagol/ DynamicLights_1.6.2 http //www.minecraftforum.net/topic/184426-172-dynamic-lights-handheld-torches-moving-lightsources/ ChatBubbles1.6.2 http //www.minecraftforum.net/topic/1116564-164-162-mamiyaotarus-mods-voxelmap-chatbubbles-etc/ Arsmagica2_1.0.2b http //www.minecraftforum.net/topic/2028696-ars-magica-2-164-version-112b-updated-jan-27/ Alpha MoreEnchantments V5 http //www.minecraftforum.net/topic/1960242-more-enchantments-version-8-forgeupdatesmp-compatible-now-16x-d/ 1.6.4-MB_Battlegear2-Warcry-1.0.3.6 http //minecraft.curseforge.com/mc-mods/mb-battlegear-2/ 1.6.2_Jammy_Furniture_Mod_V4.5 http //www.minecraftforum.net/topic/1098808-v45-162-forge-smp-jammy-furniture-mod/ 1.6.2 DamageIndicators v2.9.0.0 http //www.minecraftforum.net/topic/1536685-172164forge-hit-splat-damage-indicators-v308-rpg-ui-and-damage-amount-mod/ [forge_universal][mods][1.6.2]MinecraftIM_v2.8b http //forum.minecraftuser.jp/viewtopic.php?t=153 [Forge]More Health Enhanced 4.5 Universal http //www.minecraftforum.net/topic/115172-164-noheros-mods-new-poll-questions-for-enchantment-system/ [1.6.2] Key and Code Lock v1.3 http //www.minecraftforum.net/topic/1262805-162-key-and-code-lock-mod-v131/ 入れても入れなくてもいいが、入れた方がいいMOD ShadersModCore-v2.0.1-beta18-mc1.6.2-f859-ofuc4 http //www.minecraftforum.net/topic/1544257-172shaders-mod-v2311-updated-by-karyonix/ いわゆる影MODです。とにかく重い。最低でもメモリ4GB~でグラボもそこそこの積んでないと動かないかと思われます。※ シャドースピリット推奨PC を参考にしてください OptiFine_1.6.2_HD_U_C4 http //www.minecraftforum.net/topic/249637-174-optifine-hd-d1-fps-boost-hd-textures-aa-af-and-much-more/ オプティファイン。設定次第で軽くなります。詳しくはSETUPの項参照。
https://w.atwiki.jp/karaokehirap/pages/42.html
通信カラオケ化権の管理状況 J=JASRAC e=e-License〇=管理楽曲 ×=非管理楽曲 -=登録無し インタラクティブ配信の権利がJASRAC・e-License共に信託されていない場合は追記部分に記入 配信の可能性 〇:権利関係、音源入手ともに問題無し △:権利関係、または音源入手に難あり ×:カラオケ化の権利許諾がされていない、または音源入手がかなり難しい 配信曲リクエストエントリー曲検索「核P-MODEL」 曲名 収録音源 形態 J e 配信の可能性 エントリー日 追記事項 表組みテンプレ 曲名 収録音源 形態 J e 配信の可能性 エントリー日 追記事項 誤った情報の指摘や追加情報等があればお願いします 名前 コメント
https://w.atwiki.jp/slrrjapan/pages/27.html
ここでは、お勧め車MODを紹介します 個人的に安定した物をザッとメーカー別で並べてみました なお、全てLE2MWMで動作を確認しています、221MWMや230LEでは正常に動作 しないMODが存在すると思います トヨタ ハイラックス http //www.streetlegalmods.com/page.php?al=Toyota-Hilux セリカ http //www.streetlegalmods.com/page.php?al=Toyota-Celica アルテッツァ http //www.streetlegalmods.com/page.php?al=Toyota-Altezza-XE10 ソアラ http //www.streetlegalmods.com/page.php?al=Toyota-Soarer-JZZ30 AE86(前期) http //www.streetlegalmods.com/page.php?al=Toyota-Corolla-AE86-Coupe highlight=AE86 70 スープラ http //www.streetlegalmods.com/page.php?al=Toyota-Supra-30GT-MKIII-88-92 80スープラ http //www.streetlegalmods.com/page.php?al=Toyota-Supra-JZA80-1192 MR2 http //www.streetlegalmods.com/page.php?al=Toyota-MR2-1994-incl-Update-2 MRS http //www.streetlegalmods.com/page.php?al=Toyota-MR-S-ZZW30 日産 S13 http //www.streetlegalmods.com/page.php?al=Nissan-Silvia-S13-1258 S14 http //www.streetlegalmods.com/page.php?al=Nissan-Silvia-S14-by-PDM-team S15 http //www.streetlegalmods.com/page.php?al=Nissan-Silvia-S15-SpecR 240 sx http //www.streetlegalmods.com/page.php?al=Nissan-240---180sx-and-some-shit Z30 http //www.streetlegalmods.com/page.php?al=1969-Nissan-Fairlady-Z-432 Z32 http //www.streetlegalmods.com/page.php?al=Nissan-Fairlady-Z32 Z33 http //www.streetlegalmods.com/page.php?al=Halo700 R31 http //www.streetlegalmods.com/page.php?al=1987-Nissan-Skyline-R31 highlight=R31 R32 GTS http //www.streetlegalmods.com/page.php?al=Nissan-Skyline-R32-GTS-T R32 GTR http //www.streetlegalmods.com/page.php?al=Nissan-Skyline-R32GTR R33 GTS http //www.streetlegalmods.com/page.php?al=Nissan-Skyline-R33GTS R33 GTR http //www.streetlegalmods.com/page.php?al=Nissan-Skyline-R33-2484 highlight=R33 R34 GTR http //www.streetlegalmods.com/page.php?al=Skyline-GT-R34 R35 GTR http //www.streetlegalmods.com/page.php?al=Nissan-GTR-VSPEC-2011-V11 highlight=NISSAN マツダ ロードスター http //www.streetlegalmods.com/page.php?al=Mazda-MX5-Eunos-Roadster highlight=ROAD%2BSTER FC3S http //www.streetlegalmods.com/page.php?al=RX7-FC3S-Streetxx RX-7 http //www.streetlegalmods.com/page.php?al=MisterSirs-Mazda-RX7 highlight=RX%2B7 RX-8 http //www.streetlegalmods.com/page.php?al=Mazda-RX-8-Convert-From-2010 三菱 コルト http //www.streetlegalmods.com/page.php?al=Mitsubishi-Colt エクリプス http //www.streetlegalmods.com/page.php?al=Mitsubishi-Eclipse 3000GT http //www.streetlegalmods.com/page.php?al=Mitsubishi-3000GT EVO6 http //www.streetlegalmods.com/page.php?al=Mitsubishi-EVO6 LANCER EVOLUTION VIII http //www.streetlegalmods.com/page.php?al=Mitsubishi-Lancer-Evolution-VIII-new LANCER EVOLUTION X http //www.streetlegalmods.com/page.php?al=MMC-Lancer-Evolution-X パジェロ4 http //www.streetlegalmods.com/page.php?al=Mitsubishi-Pajero-4 スバル インプレッサ 1995 http //www.streetlegalmods.com/page.php?al=Subaru-Impreza-1995 インプレッサ GD-B http //www.streetlegalmods.com/page.php?al=Subaru-Impreza-GD-B ホンダ シビック http //www.streetlegalmods.com/page.php?al=Honda-Civic-221-MWM-Updated-BETAB16B_Vtec シビック TYPE R http //www.streetlegalmods.com/page.php?al=Honda-Civic-Type-R シビック EG6 http //www.streetlegalmods.com/page.php?al=Honda-Civic-EG6-v-102 highlight=EG6 CRX http //www.streetlegalmods.com/page.php?al=Honda-CRX S2000 http //www.streetlegalmods.com/page.php?al=Honda-S2000 AUDI 2006 TT http //www.streetlegalmods.com/page.php?al=Audi-TT-2006- R8 http //www.streetlegalmods.com/page.php?al=Audi-R8-FSi highlight=AUDI DODGE CHALLENGER http //www.streetlegalmods.com/page.php?al=DODGE-CHALLENGER-BY-STANOK83-my-old-mod CHARGER 2006 http //www.streetlegalmods.com/page.php?al=Dodge-Charger-2006 CHEVROLET 1969 CAMARO http //www.streetlegalmods.com/page.php?al=1969-Chevrolet-Camaro CAMARO Z28 `73 http //www.streetlegalmods.com/page.php?al=Chevy-camaro-z28-73 CAMARO IROC-Z http //www.streetlegalmods.com/page.php?al=Chevrolet-Camaro-IROC-Z highlight=CAMARO CAMARO SS http //www.streetlegalmods.com/page.php?al=Chevrolet-Camaro-SS highlight=CAMARO FERRARI 250 GTO http //www.streetlegalmods.com/page.php?al=Ferrari-250-GTO highlight=FERRARI 288 GTO http //www.streetlegalmods.com/page.php?al=Ferrari-288-GTO highlight=FERRARI F40 http //www.streetlegalmods.com/page.php?al=Ferrari-F40-1014 F430 http //www.streetlegalmods.com/page.php?al=Ferrari-F430-Scuderia-with-fixes highlight=FERRARI ENZO http //www.streetlegalmods.com/page.php?al=Ferrari-Enzo-Fixed--Suspension highlight=FERRARI FORD 1968 MUSTANG FASTBACK BULLIT http //www.streetlegalmods.com/page.php?al=1968-Ford-Mustang-Fastback-Bullit ESCORT http //www.streetlegalmods.com/page.php?al=1994-Ford-Escort-Cosworth--RS2000--CLX Sierra http //www.streetlegalmods.com/page.php?al=Ford-Sierra-10-By-Robban FOCUS RS http //www.streetlegalmods.com/page.php?al=Ford-Focus-RS BUICK REGAL GNX -87 http //www.streetlegalmods.com/page.php?al=BUICK-Regal-GNX--87 Mercedes-Benz S-KLASSE http //www.streetlegalmods.com/page.php?al=Mercedes-Benz-S-Klasse SLS AMG http //www.streetlegalmods.com/page.php?al=Mercedes---Benz-SLS-AMG Porsche 911 TURBO http //www.streetlegalmods.com/page.php?al=Porsche-911-turbo-1982 CarreraGT http //www.streetlegalmods.com/page.php?al=Porsche-Carrera-GT-FIXED CAYENNE S TURBO http //www.streetlegalmods.com/page.php?al=Porsche-Cayenne-S-Turbo-Fixed-size Lamborghini Reventon http //www.streetlegalmods.com/page.php?al=Lamborghini-Revent%C3%83%C6%92%C3%82n MIURA http //www.streetlegalmods.com/page.php?al=Lamborghini-Miura-P400SV highlight=LAMBORGHINI GALLARD http //www.streetlegalmods.com/page.php?al=Lamborghini-Gallard-LP560-4-RC1-by-Jaziba highlight=LAMBORGHINI MURCIELAGO http //www.streetlegalmods.com/page.php?al=Lamborghini-Murcielago-LP640 highlight=LAMBORGHINI LAND ROVER RANGE ROVER http //www.streetlegalmods.com/page.php?al=Range-Rover-Sport-BETA McLaren MP4-12C http //www.streetlegalmods.com/page.php?al=McLaren-Mp4-12c Volkswagen SCIROCCO http //www.streetlegalmods.com/page.php?al=Volkswagen-Scirocco BEETLE http //www.streetlegalmods.com/page.php?al=VW-Beetle-Version-12 NEW BEETLE http //www.streetlegalmods.com/page.php?al=Volkswagen-New-Beetle RABBIT MK1 http //www.streetlegalmods.com/page.php?al=Volkswagen-Rabbit-MK1 CADDY http //www.streetlegalmods.com/page.php?al=Volkswagen-Caddy FIAT 600 http //www.streetlegalmods.com/page.php?al=Fiat-600-S--ABARTH LEXUS GS300 http //www.streetlegalmods.com/page.php?al=Lexus-GS300 PAGANI ZONDA R http //www.streetlegalmods.com/page.php?al=Pagani-Zonda-R