#-----------------------------------------------------------------------------
# uؘavCxgpȈՃXNvg
#  (Kawari Easy Event Programmed Script)
#@@u߁vTCgXgE쐬vO
#
#  Phase 3.03 (2001/09/18)
#
# O  FuؘavPhase V yяʌ݊łgpB
#
# gF̎t@CƁÁuDict-KEEPS.txtvuDict-KEEPSs.txtv
# @@@@uGhost-KEEPS.txtvukawari.inivɓo^B̃t@C̃f[^
# @@@@KvɉďւAS[XgNAuCOMMUNICATEv
# @@@@{bNXuMAKEURLListv(p啶)Ɠ́B
# @@@@uDict-KEEPS_URLList.txtv쐬̂ŁAukawari.iniv
# @@@@o^B
#
# ӁIFۂɃS[XgzzꍇÃt@C͑gݍޕKv͂ȂB
#
# ҁF܁ ( akira-k@blue.interq.or.jp )
# @@@@@@@@@@@ @( http://www.interq.or.jp/blue/akira-k/keeps/ )
#
# l  FpubNhCƂĎRɉρAĔzzB
# @@@@ρAĔzz̍ہA҂ɘA̕KvȂB
#
# Secial Thanks F
#  Main Application uBv: Քni & LH
#  @@@@@@@@@@@@@@@@@@@@@ ( http://sakura.mikage.to/ )
#  SHIORI Module uؘav : Meister
#  @@@@@@@@@@@@@@@@@@( http://meister-d-i.hoops.ne.jp/ )
#  Script EditeruԂĂv : pipe().vqf
#  @@@@@ ( http://www.geocities.co.jp/SiliconValley-Cupertino/4430/ )
#  AppricationûvF{E
#  @@@@@@@@@@@@@@@@@@( http://clearbrain.khsoft.gr.jp/ )
#  AppricationuLǂӁvF~s
#  @@@@@@@@@@@@@@@@@@@@@ ( http://voo.to/nekodorif/ )
#  AppricationuUDSensorvF
#  @@@@@@@@@@@@ ( http://www2.airnet.ne.jp/~sirataki/nanika/ )
#  Shellu``Zweiv(for private test) F s򐬖
#@@@@@@@@@@@@@@@@@@@( http://www.din.or.jp/~sentence/ )
#
#  Debug Support : ݂ЂƂA߂AqR~AA-01AyouAbossA
#                   ͂݁Atoveta
#  Programming Idea & Support : nakajisoAuAUMeisterAƁ[ & sky
#                                                         (sEh̗)
#-----------------------------------------------------------------------------
#Phase 2.51̃oO蕔́uvAύX_́uvAǉ́u{v
#Y̑O̍sɂ܂Bu#vu#vu#{vŌĉB
#-----------------------------------------------------------------------------
#Phase 2.51  3.00 ̕ύX_
#{kero ߃XgɁu肷̂Xvupink revolutionvǉB
#-----------------------------------------------------------------------------
#Phase 3.00  3.02 ̕ύX_
#uIgoṽTCguvƊԈႦĂ_CB
#{kero ߃XgɁuOrenge Catsvuۂ񕔉vǉB
#-----------------------------------------------------------------------------
#Phase 3.02  3.03 ̕ύX_
#uCallMakeURLList1vɂāAӖ̖삪_CB
#{kero ߃XgɁuM[czvǉB
#-----------------------------------------------------------------------------
##u߁vTCgXgf[^쐬
#-------------------------------------
##Gg
# URLList.sakura : {̑̂߃TCgf[^
# URLList.kero   : kerô߃TCgf[^
# URLList.portal : {̑̃|[^TCgf[^
#-------------------------------------
##
# "(TCg),,(tqk),,(oi[tqk)"
###oi[Ƃĕ\ł̂́AiofEomf`̂݁Bfhe`͕\ł
#@̂ŒӁB
###炩߁ubannervtH_ɂ̂\ɂ́Aoi[tqk
#@u(ʎq)vAubannervtH_̃t@Cu(ʎq).(gq)vƂB
###oi[\Ȃ́AXy[XŒPĂB
#-----------------------------------------------------------------------------
# {̂߃XgFS[Xg
#-------------------------------------
URLList.sakura : "EXTRA STAGEhttp"":""//www.katch.ne.jp/~miy/"" """
URLList.sakura : "-r" "e" "i" "nhttp"":""//www.try-net.or.jp/~cla/rein/""" """
URLList.sakura : "DOUBLE" "TAPhttp"":""//www.max.hi-ho.ne.jp/mao_h/index2.htm""" """
URLList.sakura : "Wiz" "܂http"":""//members.tripod.co.jp/m_a_y_u_r_a/""" """
URLList.sakura : "-"
URLList.sakura : "~̎http"":""//www4.osk.3web.ne.jp/~umekiti/http"":""//www4.osk.3web.ne.jp/~umekiti/kaedebnr.JPG"
URLList.sakura : "TailTownhttp"":""//www.wht.mmtr.or.jp/~chinots/http"":""//www.wht.mmtr.or.jp/~chinots/bnersrc.png"
URLList.sakura : "(hhVe)http"":""//www.be.wakwak.com/~rasp/http"":""//ghost_celaeno.png"
URLList.sakura : "rotten"" ""heaven-Ă񂲂-http"":""//members.tripod.co.jp/rottenheaven/http"":""//members.tripod.co.jp/rottenheaven/index/banner.jpg"
URLList.sakura : "K.H݂http"":""//www.geocities.co.jp/Playtown-Yoyo/7033/""" """
URLList.sakura : "-"
URLList.sakura : "tDhttp"":""//www.ops.dti.ne.jp/~nagare/http"":""//www.ops.dti.ne.jp/~nagare/contents/jpg/bbb.jpg"
URLList.sakura : "݂http"":""//yamikumo.com/http"":""//yamikumo.com/yamikumo.jpg"
URLList.sakura : "Tiny"" ""Palacehttp"":""//www2.to/TinyPalace/http"":""//www.ah.wakwak.com/~deep/tinybana.jpg"
#-------------------------------------
# kero ߃XgF̑
#-------------------------------------
URLList.kero : "On AIRhttp"":""//www07.u-page.so-net.ne.jp/wc4/tac00436/"" """
URLList.kero : "IBhttp"":""//www.geocities.co.jp/Playtown-Yoyo/5981/http"":""//www.geocities.co.jp/Playtown-Yoyo/5981/ore_bn.png"
URLList.kero : "-"
URLList.kero : "http"":""//www6.plala.or.jp/private-hp/samuraidamasii/http"":""//www.geocities.co.jp/Playtown-Yoyo/5981/ore_bn.png"
URLList.kero : "PQhttp"":""//tiyu.to/http"":""//www.geocities.co.jp/Playtown-Yoyo/5981/ore_bn.png"
URLList.kero : "F̖ʊwhttp"":""//www.lares.dti.ne.jp/%7Eusagiinu/"" """
URLList.kero : "KIW[gohttp"":""//www.toei.co.jp/tv/user/program/read_story.asp?Command=New&SID=145"" """
#-------------------------------------
# {̃|[^TCgF{́ETCgEuؘav֌W
#-------------------------------------
URLList.portal : "ӂ΂݂http"":""//futaba.mikage.to/http"":""//futaba.mikage.to/banner.png"
URLList.portal : "SSP"" ""Websitehttp"":""//doichan.netbank.co.jp/ssp/main_doichan"
URLList.portal : "-"
URLList.portal : "ir.comhttp"":""//www.remus.dti.ne.jp/~j-o/skin/skin.htmhttp"":""//www.remus.dti.ne.jp/~j-o/skin/banner00.png"
URLList.portal : "Aeihttp"":""//sakura.nekome.net/antenna/"" """
URLList.portal : "SSTP Bottlehttp"":""//bottle.mikage.to/"" """
URLList.portal : "To Dohttp"":""//todo.tir.ne.jp/"" """
URLList.portal : "-"
URLList.portal : "uȊỎȊỎvhttp"":""//meister-d-i.hoops.ne.jp/http"":""//meister-d-i.hoops.ne.jp/banner.png"
URLList.portal : "ؘag|Hhttp"":""//www27.tok2.com/home/kawarisp/http"":""//www27.tok2.com/home/kawarisp/banner/kawariplus.png"
URLList.portal : "jddorhttp"":""//www.interq.or.jp/blue/akira-k/keeps/http"":""//www.interq.or.jp/blue/akira-k/keeps/keeps_bn.png"
#-----------------------------------------------------------------------------
#TCgXgt@C쐬
#-----------------------------------------------------------------------------
[ "MAKEURL" ] : ${CallMakeURLData1}${CallMakeURLData2}${CallMakeURLData3}${CallMakeURLData4}\0\s[5]tqkf[^uDict-KEEPS_URL.txtv쐬܂B\nuؘav́ukawari.inivɑg݂łB\e

CallMakeURLData1 : $(if ${URLList.sakura} $(set param1 "sakura")${CallMakeURL})

CallMakeURLData2 : $(if ${URLList.kero} $(set param1 "kero")${CallMakeURL})

CallMakeURLData3 : $(if ${URLList.portal} $(set param1 "portal")${CallMakeURL})

CallMakeURLData4 : $(save Dict-KEEPS_URL.txt URL.sakura URL.kero URL.portal)

CallMakeURL : $(foreach temp "URLList."${param1} ${CallMakeURL1}${CallMakeURL2}${CallMakeURL3}${CallMakeURL4}${CallMakeURL5})
#
CallMakeURL1 : $(set temp1 $(expr length ${temp}) ; set temp3 -1 ; set temp4 0)

CallMakeURL2 : ${SerchDoubleComma}$(set answer1 $(expr substr ${temp} ${temp3} ${temp4}))

CallMakeURL3 : ${SerchDoubleComma}$(set answer2 $(expr substr ${temp} ${temp3} ${temp4}))

CallMakeURL4 : ${SerchDoubleComma}$(set answer3 $(expr substr ${temp} ${temp3} ${temp4}))

CallMakeURL5 : $(adddict "URL."${param1} $(eval "$(urllist \""${answer1}"\" \""${answer2}"\" \""${answer3}"\")"))

SerchDoubleComma : ${SerchDoubleComma1}${SerchDoubleComma2}

SerchDoubleComma1 : $(set temp2 $(expr 1 + ( ${temp3} + ${temp4} ")") ; set temp3 $(expr ${temp2} + 1) ; set temp4 0)

SerchDoubleComma2 : $(until $([ ${temp1} -le ${temp2} ]) $(inc temp2 ; if $([ $(expr substr ${temp} ${temp2} 2) == ",," ]) $(set temp2 ${temp1})  $(inc temp4)))
#-----------------------------------------------------------------------------
