1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597459845994600460146024603460446054606460746084609461046114612461346144615461646174618461946204621462246234624462546264627462846294630463146324633463446354636463746384639464046414642464346444645464646474648464946504651465246534654465546564657465846594660466146624663466446654666466746684669467046714672467346744675467646774678467946804681468246834684468546864687468846894690469146924693469446954696469746984699470047014702470347044705470647074708470947104711471247134714471547164717471847194720472147224723472447254726472747284729473047314732473347344735473647374738473947404741474247434744474547464747474847494750475147524753475447554756475747584759476047614762476347644765476647674768476947704771477247734774477547764777477847794780478147824783478447854786478747884789479047914792479347944795479647974798479948004801480248034804480548064807480848094810481148124813481448154816481748184819482048214822482348244825482648274828482948304831483248334834483548364837483848394840484148424843484448454846484748484849485048514852485348544855485648574858485948604861486248634864486548664867486848694870487148724873487448754876487748784879488048814882488348844885488648874888488948904891489248934894489548964897489848994900490149024903490449054906490749084909491049114912491349144915491649174918491949204921492249234924492549264927492849294930493149324933493449354936493749384939494049414942494349444945494649474948494949504951495249534954495549564957495849594960496149624963496449654966496749684969497049714972497349744975497649774978497949804981498249834984498549864987498849894990499149924993499449954996499749984999500050015002500350045005500650075008500950105011501250135014501550165017501850195020502150225023502450255026502750285029503050315032503350345035503650375038503950405041504250435044504550465047504850495050505150525053505450555056505750585059506050615062506350645065506650675068506950705071507250735074507550765077507850795080508150825083508450855086508750885089509050915092509350945095509650975098509951005101510251035104510551065107510851095110511151125113511451155116511751185119512051215122512351245125512651275128512951305131513251335134513551365137513851395140514151425143514451455146514751485149515051515152515351545155515651575158515951605161516251635164516551665167516851695170517151725173517451755176517751785179518051815182518351845185518651875188518951905191519251935194519551965197519851995200520152025203520452055206520752085209521052115212521352145215521652175218521952205221522252235224522552265227522852295230523152325233523452355236523752385239524052415242524352445245524652475248524952505251525252535254525552565257525852595260526152625263526452655266526752685269527052715272527352745275527652775278527952805281528252835284528552865287528852895290529152925293529452955296529752985299530053015302530353045305530653075308530953105311531253135314531553165317531853195320532153225323532453255326532753285329533053315332533353345335533653375338533953405341534253435344534553465347534853495350535153525353535453555356535753585359536053615362536353645365536653675368536953705371537253735374537553765377537853795380538153825383538453855386538753885389539053915392539353945395539653975398539954005401540254035404540554065407540854095410541154125413541454155416541754185419542054215422542354245425542654275428542954305431543254335434543554365437543854395440544154425443544454455446544754485449545054515452545354545455545654575458545954605461546254635464546554665467546854695470547154725473547454755476547754785479548054815482548354845485548654875488548954905491549254935494549554965497549854995500550155025503550455055506550755085509551055115512551355145515551655175518551955205521552255235524552555265527552855295530553155325533553455355536553755385539554055415542554355445545554655475548554955505551555255535554555555565557555855595560556155625563556455655566556755685569557055715572557355745575557655775578557955805581558255835584558555865587558855895590559155925593559455955596559755985599560056015602560356045605560656075608560956105611561256135614561556165617561856195620562156225623562456255626562756285629563056315632563356345635563656375638563956405641564256435644564556465647564856495650565156525653565456555656565756585659566056615662566356645665566656675668566956705671567256735674567556765677567856795680568156825683568456855686568756885689569056915692569356945695569656975698569957005701570257035704570557065707570857095710571157125713571457155716571757185719572057215722572357245725572657275728572957305731573257335734573557365737573857395740574157425743574457455746574757485749575057515752575357545755575657575758575957605761576257635764576557665767576857695770577157725773577457755776577757785779578057815782578357845785578657875788578957905791579257935794579557965797579857995800580158025803580458055806580758085809581058115812581358145815581658175818581958205821582258235824582558265827582858295830583158325833583458355836583758385839584058415842584358445845584658475848584958505851585258535854585558565857585858595860586158625863586458655866586758685869587058715872587358745875587658775878587958805881588258835884588558865887588858895890589158925893589458955896589758985899590059015902590359045905590659075908590959105911591259135914591559165917591859195920592159225923592459255926592759285929593059315932593359345935593659375938593959405941594259435944594559465947594859495950595159525953595459555956595759585959596059615962596359645965596659675968596959705971597259735974597559765977597859795980598159825983598459855986598759885989599059915992599359945995599659975998599960006001600260036004600560066007600860096010601160126013601460156016601760186019602060216022602360246025602660276028602960306031603260336034603560366037603860396040604160426043604460456046604760486049605060516052605360546055605660576058605960606061606260636064606560666067606860696070607160726073607460756076607760786079608060816082608360846085608660876088608960906091609260936094609560966097609860996100610161026103610461056106610761086109611061116112611361146115611661176118611961206121612261236124612561266127612861296130613161326133613461356136613761386139614061416142614361446145614661476148614961506151615261536154615561566157615861596160616161626163616461656166616761686169617061716172617361746175617661776178617961806181618261836184618561866187618861896190619161926193619461956196619761986199620062016202620362046205620662076208620962106211621262136214621562166217621862196220622162226223622462256226622762286229623062316232623362346235623662376238623962406241624262436244624562466247624862496250625162526253625462556256625762586259626062616262626362646265626662676268626962706271627262736274627562766277627862796280628162826283628462856286628762886289629062916292629362946295629662976298629963006301630263036304630563066307630863096310631163126313631463156316631763186319632063216322632363246325632663276328632963306331633263336334633563366337633863396340634163426343634463456346634763486349635063516352635363546355635663576358635963606361636263636364636563666367636863696370637163726373637463756376637763786379638063816382638363846385638663876388638963906391639263936394639563966397639863996400640164026403640464056406640764086409641064116412641364146415641664176418641964206421642264236424642564266427642864296430643164326433643464356436643764386439644064416442644364446445644664476448644964506451645264536454645564566457645864596460646164626463646464656466646764686469647064716472647364746475647664776478647964806481648264836484648564866487648864896490649164926493649464956496649764986499650065016502650365046505650665076508650965106511651265136514651565166517651865196520652165226523652465256526652765286529653065316532653365346535653665376538653965406541654265436544654565466547654865496550655165526553655465556556655765586559656065616562656365646565656665676568656965706571657265736574657565766577657865796580658165826583658465856586658765886589659065916592659365946595659665976598659966006601660266036604660566066607660866096610661166126613661466156616661766186619662066216622662366246625662666276628662966306631663266336634663566366637663866396640664166426643664466456646664766486649665066516652665366546655665666576658665966606661666266636664666566666667666866696670667166726673667466756676667766786679668066816682668366846685668666876688668966906691669266936694669566966697669866996700670167026703670467056706670767086709671067116712671367146715671667176718671967206721672267236724672567266727672867296730673167326733673467356736673767386739674067416742674367446745674667476748674967506751675267536754675567566757675867596760676167626763676467656766676767686769677067716772677367746775677667776778677967806781678267836784678567866787678867896790679167926793679467956796679767986799680068016802680368046805680668076808680968106811681268136814681568166817681868196820682168226823682468256826682768286829683068316832683368346835683668376838683968406841684268436844684568466847684868496850685168526853685468556856685768586859686068616862686368646865686668676868686968706871687268736874687568766877687868796880688168826883688468856886688768886889689068916892689368946895689668976898689969006901690269036904690569066907690869096910691169126913691469156916691769186919692069216922692369246925692669276928692969306931693269336934693569366937693869396940694169426943694469456946694769486949695069516952695369546955695669576958695969606961696269636964696569666967696869696970697169726973697469756976697769786979698069816982698369846985698669876988698969906991699269936994699569966997699869997000700170027003700470057006700770087009701070117012701370147015701670177018701970207021702270237024702570267027702870297030703170327033703470357036703770387039704070417042704370447045704670477048704970507051705270537054705570567057705870597060706170627063706470657066706770687069707070717072707370747075707670777078707970807081708270837084708570867087708870897090709170927093709470957096709770987099710071017102710371047105710671077108710971107111711271137114711571167117711871197120712171227123712471257126712771287129713071317132713371347135713671377138713971407141714271437144714571467147714871497150715171527153715471557156715771587159716071617162716371647165716671677168716971707171717271737174717571767177717871797180718171827183718471857186718771887189719071917192719371947195719671977198719972007201720272037204720572067207720872097210721172127213721472157216721772187219722072217222722372247225722672277228722972307231723272337234723572367237723872397240724172427243724472457246724772487249725072517252725372547255725672577258725972607261726272637264726572667267726872697270727172727273727472757276727772787279728072817282728372847285728672877288728972907291729272937294729572967297729872997300730173027303730473057306730773087309731073117312731373147315731673177318731973207321732273237324732573267327732873297330733173327333733473357336733773387339734073417342734373447345734673477348734973507351735273537354735573567357735873597360736173627363736473657366736773687369737073717372737373747375737673777378737973807381738273837384738573867387738873897390739173927393739473957396739773987399740074017402740374047405740674077408740974107411741274137414741574167417741874197420742174227423742474257426742774287429743074317432743374347435743674377438743974407441744274437444744574467447744874497450745174527453745474557456745774587459746074617462746374647465746674677468746974707471747274737474747574767477747874797480748174827483748474857486748774887489749074917492749374947495749674977498749975007501750275037504750575067507750875097510751175127513751475157516751775187519752075217522752375247525752675277528752975307531753275337534753575367537753875397540754175427543754475457546754775487549755075517552755375547555755675577558755975607561756275637564756575667567756875697570757175727573757475757576757775787579758075817582758375847585758675877588758975907591759275937594759575967597759875997600760176027603760476057606760776087609761076117612761376147615761676177618761976207621762276237624762576267627762876297630763176327633763476357636763776387639764076417642764376447645764676477648764976507651765276537654765576567657765876597660766176627663766476657666766776687669767076717672767376747675767676777678767976807681768276837684768576867687768876897690769176927693769476957696769776987699770077017702770377047705770677077708770977107711771277137714771577167717771877197720772177227723772477257726772777287729773077317732773377347735773677377738773977407741774277437744774577467747774877497750775177527753775477557756775777587759776077617762776377647765776677677768776977707771777277737774777577767777777877797780778177827783778477857786778777887789779077917792779377947795779677977798779978007801780278037804780578067807780878097810781178127813781478157816781778187819782078217822782378247825782678277828782978307831783278337834783578367837783878397840784178427843784478457846784778487849785078517852785378547855785678577858785978607861786278637864786578667867786878697870787178727873787478757876787778787879788078817882788378847885788678877888788978907891789278937894789578967897789878997900790179027903790479057906790779087909791079117912791379147915791679177918791979207921792279237924792579267927792879297930793179327933793479357936793779387939794079417942794379447945794679477948794979507951795279537954795579567957795879597960796179627963796479657966796779687969797079717972797379747975797679777978797979807981798279837984798579867987798879897990799179927993799479957996799779987999800080018002800380048005800680078008800980108011801280138014801580168017801880198020802180228023802480258026802780288029803080318032803380348035803680378038803980408041804280438044804580468047804880498050805180528053805480558056805780588059806080618062806380648065806680678068806980708071807280738074807580768077807880798080808180828083808480858086808780888089809080918092809380948095809680978098809981008101810281038104810581068107810881098110811181128113811481158116811781188119812081218122812381248125812681278128812981308131813281338134813581368137813881398140814181428143814481458146814781488149815081518152815381548155815681578158815981608161816281638164816581668167816881698170817181728173817481758176817781788179818081818182818381848185818681878188818981908191819281938194819581968197819881998200820182028203820482058206820782088209821082118212821382148215821682178218821982208221822282238224822582268227822882298230823182328233823482358236823782388239824082418242824382448245824682478248824982508251825282538254825582568257825882598260826182628263826482658266826782688269827082718272827382748275827682778278827982808281828282838284828582868287828882898290829182928293829482958296829782988299830083018302830383048305830683078308830983108311831283138314831583168317831883198320832183228323832483258326832783288329833083318332833383348335833683378338833983408341834283438344834583468347834883498350835183528353835483558356835783588359836083618362836383648365836683678368836983708371837283738374837583768377837883798380838183828383838483858386838783888389839083918392839383948395839683978398839984008401840284038404840584068407840884098410841184128413841484158416841784188419842084218422842384248425842684278428842984308431843284338434843584368437843884398440844184428443844484458446844784488449845084518452845384548455845684578458845984608461846284638464846584668467846884698470847184728473847484758476847784788479848084818482848384848485848684878488848984908491849284938494849584968497849884998500850185028503850485058506850785088509851085118512851385148515851685178518851985208521852285238524852585268527852885298530853185328533853485358536853785388539854085418542854385448545854685478548854985508551855285538554855585568557855885598560856185628563856485658566856785688569857085718572857385748575857685778578857985808581858285838584858585868587858885898590859185928593859485958596859785988599860086018602860386048605860686078608860986108611861286138614861586168617861886198620862186228623862486258626862786288629863086318632863386348635863686378638863986408641864286438644864586468647864886498650865186528653865486558656865786588659866086618662866386648665866686678668866986708671867286738674867586768677867886798680868186828683868486858686868786888689869086918692869386948695869686978698869987008701870287038704870587068707870887098710871187128713871487158716871787188719872087218722872387248725872687278728872987308731873287338734873587368737873887398740874187428743874487458746874787488749875087518752875387548755875687578758875987608761876287638764876587668767876887698770877187728773877487758776877787788779878087818782878387848785878687878788878987908791879287938794879587968797879887998800880188028803880488058806880788088809881088118812881388148815881688178818881988208821882288238824882588268827882888298830883188328833883488358836883788388839884088418842884388448845884688478848884988508851885288538854885588568857885888598860886188628863886488658866886788688869887088718872887388748875887688778878887988808881888288838884888588868887888888898890889188928893889488958896889788988899890089018902890389048905890689078908890989108911891289138914891589168917891889198920892189228923892489258926892789288929893089318932893389348935893689378938893989408941894289438944894589468947894889498950895189528953895489558956895789588959896089618962896389648965896689678968896989708971897289738974897589768977897889798980898189828983898489858986898789888989899089918992899389948995899689978998899990009001900290039004900590069007900890099010901190129013901490159016901790189019902090219022902390249025902690279028902990309031903290339034903590369037903890399040904190429043904490459046904790489049905090519052905390549055905690579058905990609061906290639064906590669067906890699070907190729073907490759076907790789079908090819082908390849085908690879088908990909091909290939094909590969097909890999100910191029103910491059106910791089109911091119112911391149115911691179118911991209121912291239124912591269127912891299130913191329133913491359136913791389139914091419142914391449145914691479148914991509151915291539154915591569157915891599160916191629163916491659166916791689169917091719172917391749175917691779178917991809181918291839184918591869187918891899190919191929193919491959196919791989199920092019202920392049205920692079208920992109211921292139214921592169217921892199220922192229223922492259226922792289229923092319232923392349235923692379238923992409241924292439244924592469247924892499250925192529253925492559256925792589259926092619262926392649265926692679268926992709271927292739274927592769277927892799280928192829283928492859286928792889289929092919292929392949295929692979298929993009301930293039304930593069307930893099310931193129313931493159316931793189319932093219322932393249325932693279328932993309331933293339334933593369337933893399340934193429343934493459346934793489349935093519352935393549355935693579358935993609361936293639364936593669367936893699370937193729373937493759376937793789379938093819382938393849385938693879388938993909391939293939394939593969397939893999400940194029403940494059406940794089409941094119412941394149415941694179418941994209421942294239424942594269427942894299430943194329433943494359436943794389439944094419442944394449445944694479448944994509451945294539454945594569457945894599460946194629463946494659466946794689469947094719472947394749475947694779478947994809481948294839484948594869487948894899490949194929493949494959496949794989499950095019502950395049505950695079508950995109511951295139514951595169517951895199520952195229523952495259526952795289529953095319532953395349535953695379538953995409541954295439544954595469547954895499550955195529553955495559556955795589559956095619562956395649565956695679568956995709571957295739574957595769577957895799580958195829583958495859586958795889589959095919592959395949595959695979598959996009601960296039604960596069607960896099610961196129613961496159616961796189619962096219622962396249625962696279628962996309631963296339634963596369637963896399640964196429643964496459646964796489649965096519652965396549655965696579658965996609661966296639664966596669667966896699670967196729673967496759676967796789679968096819682968396849685968696879688968996909691969296939694969596969697969896999700970197029703970497059706970797089709971097119712971397149715971697179718971997209721972297239724972597269727972897299730973197329733973497359736973797389739974097419742974397449745974697479748974997509751975297539754975597569757975897599760976197629763976497659766976797689769977097719772977397749775977697779778977997809781978297839784978597869787978897899790979197929793979497959796979797989799980098019802980398049805980698079808980998109811981298139814981598169817981898199820982198229823982498259826982798289829983098319832983398349835983698379838983998409841984298439844984598469847984898499850985198529853985498559856985798589859986098619862986398649865986698679868986998709871987298739874987598769877987898799880988198829883988498859886988798889889989098919892989398949895989698979898989999009901990299039904990599069907990899099910991199129913991499159916991799189919992099219922992399249925992699279928992999309931993299339934993599369937993899399940994199429943994499459946994799489949995099519952995399549955995699579958995999609961996299639964996599669967996899699970997199729973997499759976997799789979998099819982998399849985998699879988998999909991999299939994999599969997999899991000010001100021000310004100051000610007100081000910010100111001210013100141001510016100171001810019100201002110022100231002410025100261002710028100291003010031100321003310034100351003610037100381003910040100411004210043100441004510046100471004810049100501005110052100531005410055100561005710058100591006010061100621006310064100651006610067100681006910070100711007210073100741007510076100771007810079100801008110082100831008410085100861008710088100891009010091100921009310094100951009610097100981009910100101011010210103101041010510106101071010810109101101011110112101131011410115101161011710118101191012010121101221012310124101251012610127101281012910130101311013210133101341013510136101371013810139101401014110142101431014410145101461014710148101491015010151101521015310154101551015610157101581015910160101611016210163101641016510166101671016810169101701017110172101731017410175101761017710178101791018010181101821018310184101851018610187101881018910190101911019210193101941019510196101971019810199102001020110202102031020410205102061020710208102091021010211102121021310214102151021610217102181021910220102211022210223102241022510226102271022810229102301023110232102331023410235102361023710238102391024010241102421024310244102451024610247102481024910250102511025210253102541025510256102571025810259102601026110262102631026410265102661026710268102691027010271102721027310274102751027610277102781027910280102811028210283102841028510286102871028810289102901029110292102931029410295102961029710298102991030010301103021030310304103051030610307103081030910310103111031210313103141031510316103171031810319103201032110322103231032410325103261032710328103291033010331103321033310334103351033610337103381033910340103411034210343103441034510346103471034810349103501035110352103531035410355103561035710358103591036010361103621036310364103651036610367103681036910370103711037210373103741037510376103771037810379103801038110382103831038410385103861038710388103891039010391103921039310394103951039610397103981039910400104011040210403104041040510406104071040810409104101041110412104131041410415104161041710418104191042010421104221042310424104251042610427104281042910430104311043210433104341043510436104371043810439104401044110442104431044410445104461044710448104491045010451104521045310454104551045610457104581045910460104611046210463104641046510466104671046810469104701047110472104731047410475104761047710478104791048010481104821048310484104851048610487104881048910490104911049210493104941049510496104971049810499105001050110502105031050410505105061050710508105091051010511105121051310514105151051610517105181051910520105211052210523105241052510526105271052810529105301053110532105331053410535105361053710538105391054010541105421054310544105451054610547105481054910550105511055210553105541055510556105571055810559105601056110562105631056410565105661056710568105691057010571105721057310574105751057610577105781057910580105811058210583105841058510586105871058810589105901059110592105931059410595105961059710598105991060010601106021060310604106051060610607106081060910610106111061210613106141061510616106171061810619106201062110622106231062410625106261062710628106291063010631106321063310634106351063610637106381063910640106411064210643106441064510646106471064810649106501065110652106531065410655106561065710658106591066010661106621066310664106651066610667106681066910670106711067210673106741067510676106771067810679106801068110682106831068410685106861068710688106891069010691106921069310694106951069610697106981069910700107011070210703107041070510706107071070810709107101071110712107131071410715107161071710718107191072010721107221072310724107251072610727107281072910730107311073210733107341073510736107371073810739107401074110742107431074410745107461074710748107491075010751107521075310754107551075610757107581075910760107611076210763107641076510766107671076810769107701077110772107731077410775107761077710778107791078010781107821078310784107851078610787107881078910790107911079210793107941079510796107971079810799108001080110802108031080410805108061080710808108091081010811108121081310814108151081610817108181081910820108211082210823108241082510826108271082810829108301083110832108331083410835108361083710838108391084010841108421084310844108451084610847108481084910850108511085210853108541085510856108571085810859108601086110862108631086410865108661086710868108691087010871108721087310874108751087610877108781087910880108811088210883108841088510886108871088810889108901089110892108931089410895108961089710898108991090010901109021090310904109051090610907109081090910910109111091210913109141091510916109171091810919109201092110922109231092410925109261092710928109291093010931109321093310934109351093610937109381093910940109411094210943109441094510946109471094810949109501095110952109531095410955109561095710958109591096010961109621096310964109651096610967109681096910970109711097210973109741097510976109771097810979109801098110982109831098410985109861098710988109891099010991109921099310994109951099610997109981099911000110011100211003110041100511006110071100811009110101101111012110131101411015110161101711018110191102011021110221102311024110251102611027110281102911030110311103211033110341103511036110371103811039110401104111042110431104411045110461104711048110491105011051110521105311054110551105611057110581105911060110611106211063110641106511066110671106811069110701107111072110731107411075110761107711078110791108011081110821108311084110851108611087110881108911090110911109211093110941109511096110971109811099111001110111102111031110411105111061110711108111091111011111111121111311114111151111611117111181111911120111211112211123111241112511126111271112811129111301113111132111331113411135111361113711138111391114011141111421114311144111451114611147111481114911150111511115211153111541115511156111571115811159111601116111162111631116411165111661116711168111691117011171111721117311174111751117611177111781117911180111811118211183111841118511186111871118811189111901119111192111931119411195111961119711198111991120011201112021120311204112051120611207112081120911210112111121211213112141121511216112171121811219112201122111222112231122411225112261122711228112291123011231112321123311234112351123611237112381123911240112411124211243112441124511246112471124811249112501125111252112531125411255112561125711258112591126011261112621126311264112651126611267112681126911270112711127211273112741127511276112771127811279112801128111282112831128411285112861128711288112891129011291112921129311294112951129611297112981129911300113011130211303113041130511306113071130811309113101131111312113131131411315113161131711318113191132011321113221132311324113251132611327113281132911330113311133211333113341133511336113371133811339113401134111342113431134411345113461134711348113491135011351113521135311354113551135611357113581135911360113611136211363113641136511366113671136811369113701137111372113731137411375113761137711378113791138011381113821138311384113851138611387113881138911390113911139211393113941139511396113971139811399114001140111402114031140411405114061140711408114091141011411114121141311414114151141611417114181141911420114211142211423114241142511426114271142811429114301143111432114331143411435114361143711438114391144011441114421144311444114451144611447114481144911450114511145211453114541145511456114571145811459114601146111462114631146411465114661146711468114691147011471114721147311474114751147611477114781147911480114811148211483114841148511486114871148811489114901149111492114931149411495114961149711498114991150011501115021150311504115051150611507115081150911510115111151211513115141151511516115171151811519115201152111522115231152411525115261152711528 |
- /*
- * Copyright (c) Contributors, http://opensimulator.org/
- * See CONTRIBUTORS.TXT for a full list of copyright holders.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- * * Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * * Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- * * Neither the name of the OpenSimulator Project nor the
- * names of its contributors may be used to endorse or promote products
- * derived from this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE DEVELOPERS ``AS IS'' AND ANY
- * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED. IN NO EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY
- * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
- * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
- * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
- * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
- using System;
- using System.Collections;
- using System.Collections.Generic;
- using System.Runtime.Remoting.Lifetime;
- using System.Text;
- using System.Threading;
- using System.Text.RegularExpressions;
- using Nini.Config;
- using log4net;
- using OpenMetaverse;
- using OpenMetaverse.Packets;
- using OpenSim;
- using OpenSim.Framework;
- using OpenSim.Region.CoreModules;
- using OpenSim.Region.CoreModules.World.Land;
- using OpenSim.Region.CoreModules.World.Terrain;
- using OpenSim.Region.Framework.Interfaces;
- using OpenSim.Region.Framework.Scenes;
- using OpenSim.Region.Framework.Scenes.Animation;
- using OpenSim.Region.Physics.Manager;
- using OpenSim.Region.ScriptEngine.Shared;
- using OpenSim.Region.ScriptEngine.Shared.Api.Plugins;
- using OpenSim.Region.ScriptEngine.Shared.ScriptBase;
- using OpenSim.Region.ScriptEngine.Interfaces;
- using OpenSim.Region.ScriptEngine.Shared.Api.Interfaces;
- using OpenSim.Services.Interfaces;
- using GridRegion = OpenSim.Services.Interfaces.GridRegion;
- using PresenceInfo = OpenSim.Services.Interfaces.PresenceInfo;
- using PrimType = OpenSim.Region.Framework.Scenes.PrimType;
- using AssetLandmark = OpenSim.Framework.AssetLandmark;
- using RegionFlags = OpenSim.Framework.RegionFlags;
- using LSL_Float = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLFloat;
- using LSL_Integer = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLInteger;
- using LSL_Key = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLString;
- using LSL_List = OpenSim.Region.ScriptEngine.Shared.LSL_Types.list;
- using LSL_Rotation = OpenSim.Region.ScriptEngine.Shared.LSL_Types.Quaternion;
- using LSL_String = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLString;
- using LSL_Vector = OpenSim.Region.ScriptEngine.Shared.LSL_Types.Vector3;
- using System.Reflection;
- namespace OpenSim.Region.ScriptEngine.Shared.Api
- {
- // MUST be a ref type
- public class UserInfoCacheEntry
- {
- public int time;
- public UserAccount account;
- public PresenceInfo pinfo;
- }
- /// <summary>
- /// Contains all LSL ll-functions. This class will be in Default AppDomain.
- /// </summary>
- public class LSL_Api : MarshalByRefObject, ILSL_Api, IScriptApi
- {
- private static readonly ILog m_log = LogManager.GetLogger(MethodBase.GetCurrentMethod().DeclaringType);
- protected IScriptEngine m_ScriptEngine;
- protected SceneObjectPart m_host;
- /// <summary>
- /// The item that hosts this script
- /// </summary>
- protected TaskInventoryItem m_item;
- protected bool throwErrorOnNotImplemented = true;
- protected AsyncCommandManager AsyncCommands = null;
- protected float m_ScriptDelayFactor = 1.0f;
- protected float m_ScriptDistanceFactor = 1.0f;
- protected float m_MinTimerInterval = 0.5f;
- protected DateTime m_timer = DateTime.Now;
- protected bool m_waitingForScriptAnswer = false;
- protected bool m_automaticLinkPermission = false;
- protected IMessageTransferModule m_TransferModule = null;
- protected int m_notecardLineReadCharsMax = 255;
- protected int m_scriptConsoleChannel = 0;
- protected bool m_scriptConsoleChannelEnabled = false;
- protected IUrlModule m_UrlModule = null;
- protected Dictionary<UUID, UserInfoCacheEntry> m_userInfoCache = new Dictionary<UUID, UserInfoCacheEntry>();
- protected int EMAIL_PAUSE_TIME = 20; // documented delay value for smtp.
- protected ISoundModule m_SoundModule = null;
- public void Initialize(IScriptEngine ScriptEngine, SceneObjectPart host, TaskInventoryItem item)
- {
- m_ScriptEngine = ScriptEngine;
- m_host = host;
- m_item = item;
- LoadLimits(); // read script limits from config.
- m_TransferModule =
- m_ScriptEngine.World.RequestModuleInterface<IMessageTransferModule>();
- m_UrlModule = m_ScriptEngine.World.RequestModuleInterface<IUrlModule>();
- m_SoundModule = m_ScriptEngine.World.RequestModuleInterface<ISoundModule>();
- AsyncCommands = new AsyncCommandManager(ScriptEngine);
- }
- /* load configuration items that affect script, object and run-time behavior. */
- private void LoadLimits()
- {
- m_ScriptDelayFactor =
- m_ScriptEngine.Config.GetFloat("ScriptDelayFactor", 1.0f);
- m_ScriptDistanceFactor =
- m_ScriptEngine.Config.GetFloat("ScriptDistanceLimitFactor", 1.0f);
- m_MinTimerInterval =
- m_ScriptEngine.Config.GetFloat("MinTimerInterval", 0.5f);
- m_automaticLinkPermission =
- m_ScriptEngine.Config.GetBoolean("AutomaticLinkPermission", false);
- m_notecardLineReadCharsMax =
- m_ScriptEngine.Config.GetInt("NotecardLineReadCharsMax", 255);
- if (m_notecardLineReadCharsMax > 65535)
- m_notecardLineReadCharsMax = 65535;
- // load limits for particular subsystems.
- IConfig SMTPConfig;
- if ((SMTPConfig = m_ScriptEngine.ConfigSource.Configs["SMTP"]) != null) {
- // there's an smtp config, so load in the snooze time.
- EMAIL_PAUSE_TIME = SMTPConfig.GetInt("email_pause_time", EMAIL_PAUSE_TIME);
- }
- }
- public override Object InitializeLifetimeService()
- {
- ILease lease = (ILease)base.InitializeLifetimeService();
- if (lease.CurrentState == LeaseState.Initial)
- {
- lease.InitialLeaseTime = TimeSpan.FromMinutes(0);
- // lease.RenewOnCallTime = TimeSpan.FromSeconds(10.0);
- // lease.SponsorshipTimeout = TimeSpan.FromMinutes(1.0);
- }
- return lease;
- }
- protected virtual void ScriptSleep(int delay)
- {
- delay = (int)((float)delay * m_ScriptDelayFactor);
- if (delay == 0)
- return;
- System.Threading.Thread.Sleep(delay);
- }
- public Scene World
- {
- get { return m_ScriptEngine.World; }
- }
- public void state(string newState)
- {
- m_ScriptEngine.SetState(m_item.ItemID, newState);
- }
- /// <summary>
- /// Reset the named script. The script must be present
- /// in the same prim.
- /// </summary>
- public void llResetScript()
- {
- m_host.AddScriptLPS(1);
- // We need to tell the URL module, if we hav one, to release
- // the allocated URLs
- if (m_UrlModule != null)
- m_UrlModule.ScriptRemoved(m_item.ItemID);
- m_ScriptEngine.ApiResetScript(m_item.ItemID);
- }
- public void llResetOtherScript(string name)
- {
- UUID item;
- m_host.AddScriptLPS(1);
- if ((item = GetScriptByName(name)) != UUID.Zero)
- m_ScriptEngine.ResetScript(item);
- else
- ShoutError("llResetOtherScript: script "+name+" not found");
- }
- public LSL_Integer llGetScriptState(string name)
- {
- UUID item;
- m_host.AddScriptLPS(1);
- if ((item = GetScriptByName(name)) != UUID.Zero)
- {
- return m_ScriptEngine.GetScriptState(item) ?1:0;
- }
- ShoutError("llGetScriptState: script "+name+" not found");
- // If we didn't find it, then it's safe to
- // assume it is not running.
- return 0;
- }
- public void llSetScriptState(string name, int run)
- {
- UUID item;
- m_host.AddScriptLPS(1);
- // These functions are supposed to be robust,
- // so get the state one step at a time.
- if ((item = GetScriptByName(name)) != UUID.Zero)
- {
- m_ScriptEngine.SetScriptState(item, run == 0 ? false : true);
- }
- else
- {
- ShoutError("llSetScriptState: script "+name+" not found");
- }
- }
- public List<SceneObjectPart> GetLinkParts(int linkType)
- {
- return GetLinkParts(m_host, linkType);
- }
- public static List<SceneObjectPart> GetLinkParts(SceneObjectPart part, int linkType)
- {
- List<SceneObjectPart> ret = new List<SceneObjectPart>();
- ret.Add(part);
- switch (linkType)
- {
- case ScriptBaseClass.LINK_SET:
- return new List<SceneObjectPart>(part.ParentGroup.Parts);
- case ScriptBaseClass.LINK_ROOT:
- ret = new List<SceneObjectPart>();
- ret.Add(part.ParentGroup.RootPart);
- return ret;
- case ScriptBaseClass.LINK_ALL_OTHERS:
- ret = new List<SceneObjectPart>(part.ParentGroup.Parts);
- if (ret.Contains(part))
- ret.Remove(part);
- return ret;
- case ScriptBaseClass.LINK_ALL_CHILDREN:
- ret = new List<SceneObjectPart>(part.ParentGroup.Parts);
- if (ret.Contains(part.ParentGroup.RootPart))
- ret.Remove(part.ParentGroup.RootPart);
- return ret;
- case ScriptBaseClass.LINK_THIS:
- return ret;
- default:
- if (linkType < 0)
- return new List<SceneObjectPart>();
- SceneObjectPart target = part.ParentGroup.GetLinkNumPart(linkType);
- if (target == null)
- return new List<SceneObjectPart>();
- ret = new List<SceneObjectPart>();
- ret.Add(target);
- return ret;
- }
- }
- protected UUID InventoryKey(string name, int type)
- {
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(name);
- if (item != null && item.Type == type)
- return item.AssetID;
- else
- return UUID.Zero;
- }
- /// <summary>
- /// accepts a valid UUID, -or- a name of an inventory item.
- /// Returns a valid UUID or UUID.Zero if key invalid and item not found
- /// in prim inventory.
- /// </summary>
- /// <param name="k"></param>
- /// <returns></returns>
- protected UUID KeyOrName(string k)
- {
- UUID key;
- // if we can parse the string as a key, use it.
- // else try to locate the name in inventory of object. found returns key,
- // not found returns UUID.Zero
- if (!UUID.TryParse(k, out key))
- {
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(k);
- if (item != null)
- key = item.AssetID;
- else
- key = UUID.Zero;
- }
- return key;
- }
- /// <summary>
- /// Return the UUID of the asset matching the specified key or name
- /// and asset type.
- /// </summary>
- /// <param name="k"></param>
- /// <param name="type"></param>
- /// <returns></returns>
- protected UUID KeyOrName(string k, AssetType type)
- {
- UUID key;
- if (!UUID.TryParse(k, out key))
- {
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(k);
- if (item != null && item.Type == (int)type)
- key = item.AssetID;
- }
- else
- {
- lock (m_host.TaskInventory)
- {
- foreach (KeyValuePair<UUID, TaskInventoryItem> item in m_host.TaskInventory)
- {
- if (item.Value.Type == (int)type && item.Value.Name == k)
- {
- key = item.Value.ItemID;
- break;
- }
- }
- }
- }
- return key;
- }
- //These are the implementations of the various ll-functions used by the LSL scripts.
- public LSL_Float llSin(double f)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Sin(f);
- }
- public LSL_Float llCos(double f)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Cos(f);
- }
- public LSL_Float llTan(double f)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Tan(f);
- }
- public LSL_Float llAtan2(double x, double y)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Atan2(x, y);
- }
- public LSL_Float llSqrt(double f)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Sqrt(f);
- }
- public LSL_Float llPow(double fbase, double fexponent)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Pow(fbase, fexponent);
- }
- public LSL_Integer llAbs(int i)
- {
- // changed to replicate LSL behaviour whereby minimum int value is returned untouched.
- m_host.AddScriptLPS(1);
- if (i == Int32.MinValue)
- return i;
- else
- return (int)Math.Abs(i);
- }
- public LSL_Float llFabs(double f)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Abs(f);
- }
- public LSL_Float llFrand(double mag)
- {
- m_host.AddScriptLPS(1);
- lock (Util.RandomClass)
- {
- return Util.RandomClass.NextDouble() * mag;
- }
- }
- public LSL_Integer llFloor(double f)
- {
- m_host.AddScriptLPS(1);
- return (int)Math.Floor(f);
- }
- public LSL_Integer llCeil(double f)
- {
- m_host.AddScriptLPS(1);
- return (int)Math.Ceiling(f);
- }
- // Xantor 01/May/2008 fixed midpointrounding (2.5 becomes 3.0 instead of 2.0, default = ToEven)
- public LSL_Integer llRound(double f)
- {
- m_host.AddScriptLPS(1);
- return (int)Math.Round(f, MidpointRounding.AwayFromZero);
- }
- //This next group are vector operations involving squaring and square root. ckrinke
- public LSL_Float llVecMag(LSL_Vector v)
- {
- m_host.AddScriptLPS(1);
- return LSL_Vector.Mag(v);
- }
- public LSL_Vector llVecNorm(LSL_Vector v)
- {
- m_host.AddScriptLPS(1);
- return LSL_Vector.Norm(v);
- }
- private double VecDist(LSL_Vector a, LSL_Vector b)
- {
- double dx = a.x - b.x;
- double dy = a.y - b.y;
- double dz = a.z - b.z;
- return Math.Sqrt(dx * dx + dy * dy + dz * dz);
- }
- public LSL_Float llVecDist(LSL_Vector a, LSL_Vector b)
- {
- m_host.AddScriptLPS(1);
- return VecDist(a, b);
- }
- //Now we start getting into quaternions which means sin/cos, matrices and vectors. ckrinke
- /// <summary>
- /// Convert an LSL rotation to a Euler vector.
- /// </summary>
- /// <remarks>
- /// Using algorithm based off http://www.euclideanspace.com/maths/geometry/rotations/conversions/quaternionToEuler/quat_2_euler_paper_ver2-1.pdf
- /// to avoid issues with singularity and rounding with Y rotation of +/- PI/2
- /// </remarks>
- /// <param name="r"></param>
- /// <returns></returns>
- public LSL_Vector llRot2Euler(LSL_Rotation r)
- {
- m_host.AddScriptLPS(1);
- LSL_Vector v = new LSL_Vector(0.0, 0.0, 1.0) * r; // Z axis unit vector unaffected by Z rotation component of r.
- double m = LSL_Vector.Mag(v); // Just in case v isn't normalized, need magnitude for Asin() operation later.
- if (m == 0.0) return new LSL_Vector();
- double x = Math.Atan2(-v.y, v.z);
- double sin = v.x / m;
- if (sin < -0.999999 || sin > 0.999999) x = 0.0; // Force X rotation to 0 at the singularities.
- double y = Math.Asin(sin);
- // Rotate X axis unit vector by r and unwind the X and Y rotations leaving only the Z rotation
- v = new LSL_Vector(1.0, 0.0, 0.0) * ((r * new LSL_Rotation(Math.Sin(-x / 2.0), 0.0, 0.0, Math.Cos(-x / 2.0))) * new LSL_Rotation(0.0, Math.Sin(-y / 2.0), 0.0, Math.Cos(-y / 2.0)));
- double z = Math.Atan2(v.y, v.x);
- return new LSL_Vector(x, y, z);
- }
- /* From wiki:
- The Euler angle vector (in radians) is converted to a rotation by doing the rotations around the 3 axes
- in Z, Y, X order. So llEuler2Rot(<1.0, 2.0, 3.0> * DEG_TO_RAD) generates a rotation by taking the zero rotation,
- a vector pointing along the X axis, first rotating it 3 degrees around the global Z axis, then rotating the resulting
- vector 2 degrees around the global Y axis, and finally rotating that 1 degree around the global X axis.
- */
- /* How we arrived at this llEuler2Rot
- *
- * Experiment in SL to determine conventions:
- * llEuler2Rot(<PI,0,0>)=<1,0,0,0>
- * llEuler2Rot(<0,PI,0>)=<0,1,0,0>
- * llEuler2Rot(<0,0,PI>)=<0,0,1,0>
- *
- * Important facts about Quaternions
- * - multiplication is non-commutative (a*b != b*a)
- * - http://en.wikipedia.org/wiki/Quaternion#Basis_multiplication
- *
- * Above SL experiment gives (c1,c2,c3,s1,s2,s3 as defined in our llEuler2Rot):
- * Qx = c1+i*s1
- * Qy = c2+j*s2;
- * Qz = c3+k*s3;
- *
- * Rotations applied in order (from above) Z, Y, X
- * Q = (Qz * Qy) * Qx
- * ((c1+i*s1)*(c2+j*s2))*(c3+k*s3)
- * (c1*c2+i*s1*c2+j*c1*s2+ij*s1*s2)*(c3+k*s3)
- * (c1*c2+i*s1*c2+j*c1*s2+k*s1*s2)*(c3+k*s3)
- * c1*c2*c3+i*s1*c2*c3+j*c1*s2*c3+k*s1*s2*c3+k*c1*c2*s3+ik*s1*c2*s3+jk*c1*s2*s3+kk*s1*s2*s3
- * c1*c2*c3+i*s1*c2*c3+j*c1*s2*c3+k*s1*s2*c3+k*c1*c2*s3 -j*s1*c2*s3 +i*c1*s2*s3 -s1*s2*s3
- * regroup: x=i*(s1*c2*c3+c1*s2*s3)
- * y=j*(c1*s2*c3-s1*c2*s3)
- * z=k*(s1*s2*c3+c1*c2*s3)
- * s= c1*c2*c3-s1*s2*s3
- *
- * This implementation agrees with the functions found here:
- * http://lslwiki.net/lslwiki/wakka.php?wakka=LibraryRotationFunctions
- * And with the results in SL.
- *
- * It's also possible to calculate llEuler2Rot by direct multiplication of
- * the Qz, Qy, and Qx vectors (as above - and done in the "accurate" function
- * from the wiki).
- * Apparently in some cases this is better from a numerical precision perspective?
- */
- public LSL_Rotation llEuler2Rot(LSL_Vector v)
- {
- m_host.AddScriptLPS(1);
- double x,y,z,s;
- double c1 = Math.Cos(v.x * 0.5);
- double c2 = Math.Cos(v.y * 0.5);
- double c3 = Math.Cos(v.z * 0.5);
- double s1 = Math.Sin(v.x * 0.5);
- double s2 = Math.Sin(v.y * 0.5);
- double s3 = Math.Sin(v.z * 0.5);
- x = s1 * c2 * c3 + c1 * s2 * s3;
- y = c1 * s2 * c3 - s1 * c2 * s3;
- z = s1 * s2 * c3 + c1 * c2 * s3;
- s = c1 * c2 * c3 - s1 * s2 * s3;
- return new LSL_Rotation(x, y, z, s);
- }
- public LSL_Rotation llAxes2Rot(LSL_Vector fwd, LSL_Vector left, LSL_Vector up)
- {
- m_host.AddScriptLPS(1);
- double s;
- double tr = fwd.x + left.y + up.z + 1.0;
- if (tr >= 1.0)
- {
- s = 0.5 / Math.Sqrt(tr);
- return new LSL_Rotation(
- (left.z - up.y) * s,
- (up.x - fwd.z) * s,
- (fwd.y - left.x) * s,
- 0.25 / s);
- }
- else
- {
- double max = (left.y > up.z) ? left.y : up.z;
- if (max < fwd.x)
- {
- s = Math.Sqrt(fwd.x - (left.y + up.z) + 1.0);
- double x = s * 0.5;
- s = 0.5 / s;
- return new LSL_Rotation(
- x,
- (fwd.y + left.x) * s,
- (up.x + fwd.z) * s,
- (left.z - up.y) * s);
- }
- else if (max == left.y)
- {
- s = Math.Sqrt(left.y - (up.z + fwd.x) + 1.0);
- double y = s * 0.5;
- s = 0.5 / s;
- return new LSL_Rotation(
- (fwd.y + left.x) * s,
- y,
- (left.z + up.y) * s,
- (up.x - fwd.z) * s);
- }
- else
- {
- s = Math.Sqrt(up.z - (fwd.x + left.y) + 1.0);
- double z = s * 0.5;
- s = 0.5 / s;
- return new LSL_Rotation(
- (up.x + fwd.z) * s,
- (left.z + up.y) * s,
- z,
- (fwd.y - left.x) * s);
- }
- }
- }
- public LSL_Vector llRot2Fwd(LSL_Rotation r)
- {
- m_host.AddScriptLPS(1);
- double x, y, z, m;
- m = r.x * r.x + r.y * r.y + r.z * r.z + r.s * r.s;
- // m is always greater than zero
- // if m is not equal to 1 then Rotation needs to be normalized
- if (Math.Abs(1.0 - m) > 0.000001) // allow a little slop here for calculation precision
- {
- m = 1.0 / Math.Sqrt(m);
- r.x *= m;
- r.y *= m;
- r.z *= m;
- r.s *= m;
- }
- // Fast Algebric Calculations instead of Vectors & Quaternions Product
- x = r.x * r.x - r.y * r.y - r.z * r.z + r.s * r.s;
- y = 2 * (r.x * r.y + r.z * r.s);
- z = 2 * (r.x * r.z - r.y * r.s);
- return (new LSL_Vector(x, y, z));
- }
- public LSL_Vector llRot2Left(LSL_Rotation r)
- {
- m_host.AddScriptLPS(1);
- double x, y, z, m;
- m = r.x * r.x + r.y * r.y + r.z * r.z + r.s * r.s;
- // m is always greater than zero
- // if m is not equal to 1 then Rotation needs to be normalized
- if (Math.Abs(1.0 - m) > 0.000001) // allow a little slop here for calculation precision
- {
- m = 1.0 / Math.Sqrt(m);
- r.x *= m;
- r.y *= m;
- r.z *= m;
- r.s *= m;
- }
- // Fast Algebric Calculations instead of Vectors & Quaternions Product
- x = 2 * (r.x * r.y - r.z * r.s);
- y = -r.x * r.x + r.y * r.y - r.z * r.z + r.s * r.s;
- z = 2 * (r.x * r.s + r.y * r.z);
- return (new LSL_Vector(x, y, z));
- }
- public LSL_Vector llRot2Up(LSL_Rotation r)
- {
- m_host.AddScriptLPS(1);
- double x, y, z, m;
- m = r.x * r.x + r.y * r.y + r.z * r.z + r.s * r.s;
- // m is always greater than zero
- // if m is not equal to 1 then Rotation needs to be normalized
- if (Math.Abs(1.0 - m) > 0.000001) // allow a little slop here for calculation precision
- {
- m = 1.0 / Math.Sqrt(m);
- r.x *= m;
- r.y *= m;
- r.z *= m;
- r.s *= m;
- }
- // Fast Algebric Calculations instead of Vectors & Quaternions Product
- x = 2 * (r.x * r.z + r.y * r.s);
- y = 2 * (-r.x * r.s + r.y * r.z);
- z = -r.x * r.x - r.y * r.y + r.z * r.z + r.s * r.s;
- return (new LSL_Vector(x, y, z));
- }
- public LSL_Rotation llRotBetween(LSL_Vector a, LSL_Vector b)
- {
- //A and B should both be normalized
- m_host.AddScriptLPS(1);
- LSL_Rotation rotBetween;
- // Check for zero vectors. If either is zero, return zero rotation. Otherwise,
- // continue calculation.
- if (a == new LSL_Vector(0.0f, 0.0f, 0.0f) || b == new LSL_Vector(0.0f, 0.0f, 0.0f))
- {
- rotBetween = new LSL_Rotation(0.0f, 0.0f, 0.0f, 1.0f);
- }
- else
- {
- a = LSL_Vector.Norm(a);
- b = LSL_Vector.Norm(b);
- double dotProduct = LSL_Vector.Dot(a, b);
- // There are two degenerate cases possible. These are for vectors 180 or
- // 0 degrees apart. These have to be detected and handled individually.
- //
- // Check for vectors 180 degrees apart.
- // A dot product of -1 would mean the angle between vectors is 180 degrees.
- if (dotProduct < -0.9999999f)
- {
- // First assume X axis is orthogonal to the vectors.
- LSL_Vector orthoVector = new LSL_Vector(1.0f, 0.0f, 0.0f);
- orthoVector = orthoVector - a * (a.x / LSL_Vector.Dot(a, a));
- // Check for near zero vector. A very small non-zero number here will create
- // a rotation in an undesired direction.
- if (LSL_Vector.Mag(orthoVector) > 0.0001)
- {
- rotBetween = new LSL_Rotation(orthoVector.x, orthoVector.y, orthoVector.z, 0.0f);
- }
- // If the magnitude of the vector was near zero, then assume the X axis is not
- // orthogonal and use the Z axis instead.
- else
- {
- // Set 180 z rotation.
- rotBetween = new LSL_Rotation(0.0f, 0.0f, 1.0f, 0.0f);
- }
- }
- // Check for parallel vectors.
- // A dot product of 1 would mean the angle between vectors is 0 degrees.
- else if (dotProduct > 0.9999999f)
- {
- // Set zero rotation.
- rotBetween = new LSL_Rotation(0.0f, 0.0f, 0.0f, 1.0f);
- }
- else
- {
- // All special checks have been performed so get the axis of rotation.
- LSL_Vector crossProduct = LSL_Vector.Cross(a, b);
- // Quarternion s value is the length of the unit vector + dot product.
- double qs = 1.0 + dotProduct;
- rotBetween = new LSL_Rotation(crossProduct.x, crossProduct.y, crossProduct.z, qs);
- // Normalize the rotation.
- double mag = LSL_Rotation.Mag(rotBetween);
- // We shouldn't have to worry about a divide by zero here. The qs value will be
- // non-zero because we already know if we're here, then the dotProduct is not -1 so
- // qs will not be zero. Also, we've already handled the input vectors being zero so the
- // crossProduct vector should also not be zero.
- rotBetween.x = rotBetween.x / mag;
- rotBetween.y = rotBetween.y / mag;
- rotBetween.z = rotBetween.z / mag;
- rotBetween.s = rotBetween.s / mag;
- // Check for undefined values and set zero rotation if any found. This code might not actually be required
- // any longer since zero vectors are checked for at the top.
- if (Double.IsNaN(rotBetween.x) || Double.IsNaN(rotBetween.y) || Double.IsNaN(rotBetween.z) || Double.IsNaN(rotBetween.s))
- {
- rotBetween = new LSL_Rotation(0.0f, 0.0f, 0.0f, 1.0f);
- }
- }
- }
- return rotBetween;
- }
- public void llWhisper(int channelID, string text)
- {
- m_host.AddScriptLPS(1);
- if (text.Length > 1023)
- text = text.Substring(0, 1023);
- World.SimChat(Utils.StringToBytes(text),
- ChatTypeEnum.Whisper, channelID, m_host.ParentGroup.RootPart.AbsolutePosition, m_host.Name, m_host.UUID, false);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- if (wComm != null)
- wComm.DeliverMessage(ChatTypeEnum.Whisper, channelID, m_host.Name, m_host.UUID, text);
- }
- public void llSay(int channelID, string text)
- {
- m_host.AddScriptLPS(1);
- if (m_scriptConsoleChannelEnabled && (channelID == m_scriptConsoleChannel))
- {
- Console.WriteLine(text);
- }
- else
- {
- if (text.Length > 1023)
- text = text.Substring(0, 1023);
- World.SimChat(Utils.StringToBytes(text),
- ChatTypeEnum.Say, channelID, m_host.ParentGroup.RootPart.AbsolutePosition, m_host.Name, m_host.UUID, false);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- if (wComm != null)
- wComm.DeliverMessage(ChatTypeEnum.Say, channelID, m_host.Name, m_host.UUID, text);
- }
- }
- public void llShout(int channelID, string text)
- {
- m_host.AddScriptLPS(1);
- if (text.Length > 1023)
- text = text.Substring(0, 1023);
- World.SimChat(Utils.StringToBytes(text),
- ChatTypeEnum.Shout, channelID, m_host.ParentGroup.RootPart.AbsolutePosition, m_host.Name, m_host.UUID, true);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- if (wComm != null)
- wComm.DeliverMessage(ChatTypeEnum.Shout, channelID, m_host.Name, m_host.UUID, text);
- }
- public void llRegionSay(int channelID, string text)
- {
- if (channelID == 0)
- {
- LSLError("Cannot use llRegionSay() on channel 0");
- return;
- }
- if (text.Length > 1023)
- text = text.Substring(0, 1023);
- m_host.AddScriptLPS(1);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- if (wComm != null)
- wComm.DeliverMessage(ChatTypeEnum.Region, channelID, m_host.Name, m_host.UUID, text);
- }
- public void llRegionSayTo(string target, int channel, string msg)
- {
- if (msg.Length > 1023)
- msg = msg.Substring(0, 1023);
- m_host.AddScriptLPS(1);
- if (channel == ScriptBaseClass.DEBUG_CHANNEL)
- {
- return;
- }
- UUID TargetID;
- UUID.TryParse(target, out TargetID);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- if (wComm != null)
- wComm.DeliverMessageTo(TargetID, channel, m_host.AbsolutePosition, m_host.Name, m_host.UUID, msg);
- }
- public LSL_Integer llListen(int channelID, string name, string ID, string msg)
- {
- m_host.AddScriptLPS(1);
- UUID keyID;
- UUID.TryParse(ID, out keyID);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- if (wComm != null)
- return wComm.Listen(m_host.LocalId, m_item.ItemID, m_host.UUID, channelID, name, keyID, msg);
- else
- return -1;
- }
- public void llListenControl(int number, int active)
- {
- m_host.AddScriptLPS(1);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- if (wComm != null)
- wComm.ListenControl(m_item.ItemID, number, active);
- }
- public void llListenRemove(int number)
- {
- m_host.AddScriptLPS(1);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- if (wComm != null)
- wComm.ListenRemove(m_item.ItemID, number);
- }
- public void llSensor(string name, string id, int type, double range, double arc)
- {
- m_host.AddScriptLPS(1);
- UUID keyID = UUID.Zero;
- UUID.TryParse(id, out keyID);
- AsyncCommands.SensorRepeatPlugin.SenseOnce(m_host.LocalId, m_item.ItemID, name, keyID, type, range, arc, m_host);
- }
- public void llSensorRepeat(string name, string id, int type, double range, double arc, double rate)
- {
- m_host.AddScriptLPS(1);
- UUID keyID = UUID.Zero;
- UUID.TryParse(id, out keyID);
- AsyncCommands.SensorRepeatPlugin.SetSenseRepeatEvent(m_host.LocalId, m_item.ItemID, name, keyID, type, range, arc, rate, m_host);
- }
- public void llSensorRemove()
- {
- m_host.AddScriptLPS(1);
- AsyncCommands.SensorRepeatPlugin.UnSetSenseRepeaterEvents(m_host.LocalId, m_item.ItemID);
- }
- public string resolveName(UUID objecUUID)
- {
- // try avatar username surname
- UserAccount account = World.UserAccountService.GetUserAccount(World.RegionInfo.ScopeID, objecUUID);
- if (account != null)
- {
- string avatarname = account.Name;
- return avatarname;
- }
- // try an scene object
- SceneObjectPart SOP = World.GetSceneObjectPart(objecUUID);
- if (SOP != null)
- {
- string objectname = SOP.Name;
- return objectname;
- }
- EntityBase SensedObject;
- World.Entities.TryGetValue(objecUUID, out SensedObject);
- if (SensedObject == null)
- {
- IGroupsModule groups = World.RequestModuleInterface<IGroupsModule>();
- if (groups != null)
- {
- GroupRecord gr = groups.GetGroupRecord(objecUUID);
- if (gr != null)
- return gr.GroupName;
- }
- return String.Empty;
- }
- return SensedObject.Name;
- }
- public LSL_String llDetectedName(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (detectedParams == null)
- return String.Empty;
- return detectedParams.Name;
- }
- public LSL_String llDetectedKey(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (detectedParams == null)
- return String.Empty;
- return detectedParams.Key.ToString();
- }
- public LSL_String llDetectedOwner(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (detectedParams == null)
- return String.Empty;
- return detectedParams.Owner.ToString();
- }
- public LSL_Integer llDetectedType(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (detectedParams == null)
- return 0;
- return new LSL_Integer(detectedParams.Type);
- }
- public LSL_Vector llDetectedPos(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (detectedParams == null)
- return new LSL_Vector();
- return detectedParams.Position;
- }
- public LSL_Vector llDetectedVel(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (detectedParams == null)
- return new LSL_Vector();
- return detectedParams.Velocity;
- }
- public LSL_Vector llDetectedGrab(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams parms = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (parms == null)
- return new LSL_Vector(0, 0, 0);
- return parms.OffsetPos;
- }
- public LSL_Rotation llDetectedRot(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (detectedParams == null)
- return new LSL_Rotation();
- return detectedParams.Rotation;
- }
- public LSL_Integer llDetectedGroup(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (detectedParams == null)
- return new LSL_Integer(0);
- if (m_host.GroupID == detectedParams.Group)
- return new LSL_Integer(1);
- return new LSL_Integer(0);
- }
- public LSL_Integer llDetectedLinkNumber(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams parms = m_ScriptEngine.GetDetectParams(m_item.ItemID, number);
- if (parms == null)
- return new LSL_Integer(0);
- return new LSL_Integer(parms.LinkNum);
- }
- /// <summary>
- /// See http://wiki.secondlife.com/wiki/LlDetectedTouchBinormal for details
- /// </summary>
- public LSL_Vector llDetectedTouchBinormal(int index)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, index);
- if (detectedParams == null)
- return new LSL_Vector();
- return detectedParams.TouchBinormal;
- }
- /// <summary>
- /// See http://wiki.secondlife.com/wiki/LlDetectedTouchFace for details
- /// </summary>
- public LSL_Integer llDetectedTouchFace(int index)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, index);
- if (detectedParams == null)
- return new LSL_Integer(-1);
- return new LSL_Integer(detectedParams.TouchFace);
- }
- /// <summary>
- /// See http://wiki.secondlife.com/wiki/LlDetectedTouchNormal for details
- /// </summary>
- public LSL_Vector llDetectedTouchNormal(int index)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, index);
- if (detectedParams == null)
- return new LSL_Vector();
- return detectedParams.TouchNormal;
- }
- /// <summary>
- /// See http://wiki.secondlife.com/wiki/LlDetectedTouchPos for details
- /// </summary>
- public LSL_Vector llDetectedTouchPos(int index)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, index);
- if (detectedParams == null)
- return new LSL_Vector();
- return detectedParams.TouchPos;
- }
- /// <summary>
- /// See http://wiki.secondlife.com/wiki/LlDetectedTouchST for details
- /// </summary>
- public LSL_Vector llDetectedTouchST(int index)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, index);
- if (detectedParams == null)
- return new LSL_Vector(-1.0, -1.0, 0.0);
- return detectedParams.TouchST;
- }
- /// <summary>
- /// See http://wiki.secondlife.com/wiki/LlDetectedTouchUV for details
- /// </summary>
- public LSL_Vector llDetectedTouchUV(int index)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, index);
- if (detectedParams == null)
- return new LSL_Vector(-1.0, -1.0, 0.0);
- return detectedParams.TouchUV;
- }
- public virtual void llDie()
- {
- m_host.AddScriptLPS(1);
- throw new SelfDeleteException();
- }
- public LSL_Float llGround(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- Vector3 pos = m_host.GetWorldPosition() + (Vector3)offset;
- //Get the slope normal. This gives us the equation of the plane tangent to the slope.
- LSL_Vector vsn = llGroundNormal(offset);
- // Clamp to valid position
- if (pos.X < 0)
- pos.X = 0;
- else if (pos.X >= World.Heightmap.Width)
- pos.X = World.Heightmap.Width - 1;
- if (pos.Y < 0)
- pos.Y = 0;
- else if (pos.Y >= World.Heightmap.Height)
- pos.Y = World.Heightmap.Height - 1;
- //Get the height for the integer coordinates from the Heightmap
- float baseheight = (float)World.Heightmap[(int)pos.X, (int)pos.Y];
- //Calculate the difference between the actual coordinates and the integer coordinates
- float xdiff = pos.X - (float)((int)pos.X);
- float ydiff = pos.Y - (float)((int)pos.Y);
- //Use the equation of the tangent plane to adjust the height to account for slope
- return (((vsn.x * xdiff) + (vsn.y * ydiff)) / (-1 * vsn.z)) + baseheight;
- }
- public LSL_Float llCloud(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- float cloudCover = 0f;
- ICloudModule module = World.RequestModuleInterface<ICloudModule>();
- if (module != null)
- {
- Vector3 pos = m_host.GetWorldPosition();
- int x = (int)(pos.X + offset.x);
- int y = (int)(pos.Y + offset.y);
- cloudCover = module.CloudCover(x, y, 0);
- }
- return cloudCover;
- }
- public LSL_Vector llWind(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- LSL_Vector wind = new LSL_Vector(0, 0, 0);
- IWindModule module = World.RequestModuleInterface<IWindModule>();
- if (module != null)
- {
- Vector3 pos = m_host.GetWorldPosition();
- int x = (int)(pos.X + offset.x);
- int y = (int)(pos.Y + offset.y);
- Vector3 windSpeed = module.WindSpeed(x, y, 0);
- wind.x = windSpeed.X;
- wind.y = windSpeed.Y;
- }
- return wind;
- }
- public void llSetStatus(int status, int value)
- {
- m_host.AddScriptLPS(1);
- int statusrotationaxis = 0;
- if ((status & ScriptBaseClass.STATUS_PHYSICS) == ScriptBaseClass.STATUS_PHYSICS)
- {
- if (value != 0)
- {
- SceneObjectGroup group = m_host.ParentGroup;
- bool allow = true;
- foreach (SceneObjectPart part in group.Parts)
- {
- if (part.Scale.X > World.m_maxPhys || part.Scale.Y > World.m_maxPhys || part.Scale.Z > World.m_maxPhys)
- {
- allow = false;
- break;
- }
- }
- if (!allow)
- return;
- m_host.ScriptSetPhysicsStatus(true);
- }
- else
- {
- m_host.ScriptSetPhysicsStatus(false);
- }
- }
- if ((status & ScriptBaseClass.STATUS_PHANTOM) == ScriptBaseClass.STATUS_PHANTOM)
- {
- m_host.ParentGroup.ScriptSetPhantomStatus(value != 0);
- }
- if ((status & ScriptBaseClass.STATUS_CAST_SHADOWS) == ScriptBaseClass.STATUS_CAST_SHADOWS)
- {
- m_host.AddFlag(PrimFlags.CastShadows);
- }
- if ((status & ScriptBaseClass.STATUS_ROTATE_X) == ScriptBaseClass.STATUS_ROTATE_X)
- {
- statusrotationaxis |= ScriptBaseClass.STATUS_ROTATE_X;
- }
- if ((status & ScriptBaseClass.STATUS_ROTATE_Y) == ScriptBaseClass.STATUS_ROTATE_Y)
- {
- statusrotationaxis |= ScriptBaseClass.STATUS_ROTATE_Y;
- }
- if ((status & ScriptBaseClass.STATUS_ROTATE_Z) == ScriptBaseClass.STATUS_ROTATE_Z)
- {
- statusrotationaxis |= ScriptBaseClass.STATUS_ROTATE_Z;
- }
- if ((status & ScriptBaseClass.STATUS_BLOCK_GRAB) == ScriptBaseClass.STATUS_BLOCK_GRAB)
- {
- if (value != 0)
- m_host.SetBlockGrab(true);
- else
- m_host.SetBlockGrab(false);
- }
- if ((status & ScriptBaseClass.STATUS_DIE_AT_EDGE) == ScriptBaseClass.STATUS_DIE_AT_EDGE)
- {
- if (value != 0)
- m_host.SetDieAtEdge(true);
- else
- m_host.SetDieAtEdge(false);
- }
- if ((status & ScriptBaseClass.STATUS_RETURN_AT_EDGE) == ScriptBaseClass.STATUS_RETURN_AT_EDGE)
- {
- if (value != 0)
- m_host.SetReturnAtEdge(true);
- else
- m_host.SetReturnAtEdge(false);
- }
- if ((status & ScriptBaseClass.STATUS_SANDBOX) == ScriptBaseClass.STATUS_SANDBOX)
- {
- if (value != 0)
- m_host.SetStatusSandbox(true);
- else
- m_host.SetStatusSandbox(false);
- }
- if (statusrotationaxis != 0)
- {
- m_host.SetAxisRotation(statusrotationaxis, value);
- }
- }
- private bool IsPhysical()
- {
- return ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Physics) == (uint)PrimFlags.Physics);
- }
- public LSL_Integer llGetStatus(int status)
- {
- m_host.AddScriptLPS(1);
- // m_log.Debug(m_host.ToString() + " status is " + m_host.GetEffectiveObjectFlags().ToString());
- switch (status)
- {
- case ScriptBaseClass.STATUS_PHYSICS:
- return IsPhysical() ? 1 : 0;
- case ScriptBaseClass.STATUS_PHANTOM:
- if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Phantom) == (uint)PrimFlags.Phantom)
- {
- return 1;
- }
- return 0;
- case ScriptBaseClass.STATUS_CAST_SHADOWS:
- if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.CastShadows) == (uint)PrimFlags.CastShadows)
- {
- return 1;
- }
- return 0;
- case ScriptBaseClass.STATUS_BLOCK_GRAB:
- if (m_host.GetBlockGrab())
- return 1;
- else
- return 0;
- case ScriptBaseClass.STATUS_DIE_AT_EDGE:
- if (m_host.GetDieAtEdge())
- return 1;
- else
- return 0;
- case ScriptBaseClass.STATUS_RETURN_AT_EDGE:
- if (m_host.GetReturnAtEdge())
- return 1;
- else
- return 0;
- case ScriptBaseClass.STATUS_ROTATE_X:
- if (m_host.GetAxisRotation(2) == 2)
- return 1;
- else
- return 0;
- case ScriptBaseClass.STATUS_ROTATE_Y:
- if (m_host.GetAxisRotation(4) == 4)
- return 1;
- else
- return 0;
- case ScriptBaseClass.STATUS_ROTATE_Z:
- if (m_host.GetAxisRotation(8) == 8)
- return 1;
- else
- return 0;
- case ScriptBaseClass.STATUS_SANDBOX:
- if (m_host.GetStatusSandbox())
- return 1;
- else
- return 0;
- }
- return 0;
- }
- public void llSetScale(LSL_Vector scale)
- {
- m_host.AddScriptLPS(1);
- SetScale(m_host, scale);
- }
- protected void SetScale(SceneObjectPart part, LSL_Vector scale)
- {
- // TODO: this needs to trigger a persistance save as well
- if (part == null || part.ParentGroup.IsDeleted)
- return;
- // First we need to check whether or not we need to clamp the size of a physics-enabled prim
- PhysicsActor pa = part.ParentGroup.RootPart.PhysActor;
- if (pa != null && pa.IsPhysical)
- {
- scale.x = Math.Max(World.m_minPhys, Math.Min(World.m_maxPhys, scale.x));
- scale.y = Math.Max(World.m_minPhys, Math.Min(World.m_maxPhys, scale.y));
- scale.z = Math.Max(World.m_minPhys, Math.Min(World.m_maxPhys, scale.z));
- }
- else
- {
- // If not physical, then we clamp the scale to the non-physical min/max
- scale.x = Math.Max(World.m_minNonphys, Math.Min(World.m_maxNonphys, scale.x));
- scale.y = Math.Max(World.m_minNonphys, Math.Min(World.m_maxNonphys, scale.y));
- scale.z = Math.Max(World.m_minNonphys, Math.Min(World.m_maxNonphys, scale.z));
- }
- Vector3 tmp = part.Scale;
- tmp.X = (float)scale.x;
- tmp.Y = (float)scale.y;
- tmp.Z = (float)scale.z;
- part.Scale = tmp;
- part.SendFullUpdateToAllClients();
- }
- public LSL_Vector llGetScale()
- {
- m_host.AddScriptLPS(1);
- return new LSL_Vector(m_host.Scale.X, m_host.Scale.Y, m_host.Scale.Z);
- }
- public void llSetClickAction(int action)
- {
- m_host.AddScriptLPS(1);
- m_host.ClickAction = (byte)action;
- m_host.ParentGroup.HasGroupChanged = true;
- m_host.ScheduleFullUpdate();
- return;
- }
- public void llSetColor(LSL_Vector color, int face)
- {
- m_host.AddScriptLPS(1);
- if (face == ScriptBaseClass.ALL_SIDES)
- face = SceneObjectPart.ALL_SIDES;
- m_host.SetFaceColorAlpha(face, color, null);
- }
- public void SetTexGen(SceneObjectPart part, int face,int style)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- MappingType textype;
- textype = MappingType.Default;
- if (style == (int)ScriptBaseClass.PRIM_TEXGEN_PLANAR)
- textype = MappingType.Planar;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- tex.CreateFace((uint) face);
- tex.FaceTextures[face].TexMapType = textype;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- else if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (uint i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- tex.FaceTextures[i].TexMapType = textype;
- }
- tex.DefaultTexture.TexMapType = textype;
- }
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- }
- public void SetGlow(SceneObjectPart part, int face, float glow)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- tex.CreateFace((uint) face);
- tex.FaceTextures[face].Glow = glow;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- else if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (uint i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- tex.FaceTextures[i].Glow = glow;
- }
- tex.DefaultTexture.Glow = glow;
- }
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- }
- public void SetShiny(SceneObjectPart part, int face, int shiny, Bumpiness bump)
- {
- Shininess sval = new Shininess();
- switch (shiny)
- {
- case 0:
- sval = Shininess.None;
- break;
- case 1:
- sval = Shininess.Low;
- break;
- case 2:
- sval = Shininess.Medium;
- break;
- case 3:
- sval = Shininess.High;
- break;
- default:
- sval = Shininess.None;
- break;
- }
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- tex.CreateFace((uint) face);
- tex.FaceTextures[face].Shiny = sval;
- tex.FaceTextures[face].Bump = bump;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- else if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (uint i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- tex.FaceTextures[i].Shiny = sval;
- tex.FaceTextures[i].Bump = bump;;
- }
- tex.DefaultTexture.Shiny = sval;
- tex.DefaultTexture.Bump = bump;
- }
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- }
- public void SetFullBright(SceneObjectPart part, int face, bool bright)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- tex.CreateFace((uint) face);
- tex.FaceTextures[face].Fullbright = bright;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- else if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (uint i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- tex.FaceTextures[i].Fullbright = bright;
- }
- }
- tex.DefaultTexture.Fullbright = bright;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- }
- public LSL_Float llGetAlpha(int face)
- {
- m_host.AddScriptLPS(1);
- return GetAlpha(m_host, face);
- }
- protected LSL_Float GetAlpha(SceneObjectPart part, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- int i;
- double sum = 0.0;
- for (i = 0 ; i < GetNumberOfSides(part); i++)
- sum += (double)tex.GetFace((uint)i).RGBA.A;
- return sum;
- }
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- return (double)tex.GetFace((uint)face).RGBA.A;
- }
- return 0.0;
- }
- public void llSetAlpha(double alpha, int face)
- {
- m_host.AddScriptLPS(1);
- SetAlpha(m_host, alpha, face);
- }
- public void llSetLinkAlpha(int linknumber, double alpha, int face)
- {
- m_host.AddScriptLPS(1);
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- SetAlpha(part, alpha, face);
- }
- protected void SetAlpha(SceneObjectPart part, double alpha, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- Color4 texcolor;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- texcolor = tex.CreateFace((uint)face).RGBA;
- texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f);
- tex.FaceTextures[face].RGBA = texcolor;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- else if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (int i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- texcolor = tex.FaceTextures[i].RGBA;
- texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f);
- tex.FaceTextures[i].RGBA = texcolor;
- }
- }
- // In some cases, the default texture can be null, eg when every face
- // has a unique texture
- if (tex.DefaultTexture != null)
- {
- texcolor = tex.DefaultTexture.RGBA;
- texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f);
- tex.DefaultTexture.RGBA = texcolor;
- }
-
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- }
- /// <summary>
- /// Set flexi parameters of a part.
- ///
- /// FIXME: Much of this code should probably be within the part itself.
- /// </summary>
- /// <param name="part"></param>
- /// <param name="flexi"></param>
- /// <param name="softness"></param>
- /// <param name="gravity"></param>
- /// <param name="friction"></param>
- /// <param name="wind"></param>
- /// <param name="tension"></param>
- /// <param name="Force"></param>
- protected void SetFlexi(SceneObjectPart part, bool flexi, int softness, float gravity, float friction,
- float wind, float tension, LSL_Vector Force)
- {
- if (part == null)
- return;
- if (flexi)
- {
- part.Shape.FlexiEntry = true; // this setting flexi true isn't working, but the below parameters do
- // work once the prim is already flexi
- part.Shape.FlexiSoftness = softness;
- part.Shape.FlexiGravity = gravity;
- part.Shape.FlexiDrag = friction;
- part.Shape.FlexiWind = wind;
- part.Shape.FlexiTension = tension;
- part.Shape.FlexiForceX = (float)Force.x;
- part.Shape.FlexiForceY = (float)Force.y;
- part.Shape.FlexiForceZ = (float)Force.z;
- part.Shape.PathCurve = 0x80;
- part.ParentGroup.HasGroupChanged = true;
- part.ScheduleFullUpdate();
- }
- }
- /// <summary>
- /// Set a light point on a part
- /// </summary>
- /// FIXME: Much of this code should probably be in SceneObjectGroup
- ///
- /// <param name="part"></param>
- /// <param name="light"></param>
- /// <param name="color"></param>
- /// <param name="intensity"></param>
- /// <param name="radius"></param>
- /// <param name="falloff"></param>
- protected void SetPointLight(SceneObjectPart part, bool light, LSL_Vector color, float intensity, float radius, float falloff)
- {
- if (part == null)
- return;
- if (light)
- {
- part.Shape.LightEntry = true;
- part.Shape.LightColorR = Util.Clip((float)color.x, 0.0f, 1.0f);
- part.Shape.LightColorG = Util.Clip((float)color.y, 0.0f, 1.0f);
- part.Shape.LightColorB = Util.Clip((float)color.z, 0.0f, 1.0f);
- part.Shape.LightIntensity = intensity;
- part.Shape.LightRadius = radius;
- part.Shape.LightFalloff = falloff;
- }
- else
- {
- part.Shape.LightEntry = false;
- }
- part.ParentGroup.HasGroupChanged = true;
- part.ScheduleFullUpdate();
- }
- public LSL_Vector llGetColor(int face)
- {
- m_host.AddScriptLPS(1);
- return GetColor(m_host, face);
- }
- protected LSL_Vector GetColor(SceneObjectPart part, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- Color4 texcolor;
- LSL_Vector rgb = new LSL_Vector();
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- int i;
- for (i = 0 ; i < GetNumberOfSides(part); i++)
- {
- texcolor = tex.GetFace((uint)i).RGBA;
- rgb.x += texcolor.R;
- rgb.y += texcolor.G;
- rgb.z += texcolor.B;
- }
- rgb.x /= (float)GetNumberOfSides(part);
- rgb.y /= (float)GetNumberOfSides(part);
- rgb.z /= (float)GetNumberOfSides(part);
- return rgb;
- }
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- texcolor = tex.GetFace((uint)face).RGBA;
- rgb.x = texcolor.R;
- rgb.y = texcolor.G;
- rgb.z = texcolor.B;
-
- return rgb;
- }
- else
- {
- return new LSL_Vector();
- }
- }
- public void llSetTexture(string texture, int face)
- {
- m_host.AddScriptLPS(1);
- SetTexture(m_host, texture, face);
- ScriptSleep(200);
- }
- public void llSetLinkTexture(int linknumber, string texture, int face)
- {
- m_host.AddScriptLPS(1);
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- SetTexture(part, texture, face);
- ScriptSleep(200);
- }
- protected void SetTexture(SceneObjectPart part, string texture, int face)
- {
- UUID textureID = new UUID();
- textureID = InventoryKey(texture, (int)AssetType.Texture);
- if (textureID == UUID.Zero)
- {
- if (!UUID.TryParse(texture, out textureID))
- return;
- }
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- Primitive.TextureEntryFace texface = tex.CreateFace((uint)face);
- texface.TextureID = textureID;
- tex.FaceTextures[face] = texface;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- else if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (uint i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- tex.FaceTextures[i].TextureID = textureID;
- }
- }
- tex.DefaultTexture.TextureID = textureID;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- }
- public void llScaleTexture(double u, double v, int face)
- {
- m_host.AddScriptLPS(1);
- ScaleTexture(m_host, u, v, face);
- ScriptSleep(200);
- }
- protected void ScaleTexture(SceneObjectPart part, double u, double v, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- Primitive.TextureEntryFace texface = tex.CreateFace((uint)face);
- texface.RepeatU = (float)u;
- texface.RepeatV = (float)v;
- tex.FaceTextures[face] = texface;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (int i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- tex.FaceTextures[i].RepeatU = (float)u;
- tex.FaceTextures[i].RepeatV = (float)v;
- }
- }
- tex.DefaultTexture.RepeatU = (float)u;
- tex.DefaultTexture.RepeatV = (float)v;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- }
- public void llOffsetTexture(double u, double v, int face)
- {
- m_host.AddScriptLPS(1);
- OffsetTexture(m_host, u, v, face);
- ScriptSleep(200);
- }
- protected void OffsetTexture(SceneObjectPart part, double u, double v, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- Primitive.TextureEntryFace texface = tex.CreateFace((uint)face);
- texface.OffsetU = (float)u;
- texface.OffsetV = (float)v;
- tex.FaceTextures[face] = texface;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (int i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- tex.FaceTextures[i].OffsetU = (float)u;
- tex.FaceTextures[i].OffsetV = (float)v;
- }
- }
- tex.DefaultTexture.OffsetU = (float)u;
- tex.DefaultTexture.OffsetV = (float)v;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- }
- public void llRotateTexture(double rotation, int face)
- {
- m_host.AddScriptLPS(1);
- RotateTexture(m_host, rotation, face);
- ScriptSleep(200);
- }
- protected void RotateTexture(SceneObjectPart part, double rotation, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- Primitive.TextureEntryFace texface = tex.CreateFace((uint)face);
- texface.Rotation = (float)rotation;
- tex.FaceTextures[face] = texface;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (int i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- tex.FaceTextures[i].Rotation = (float)rotation;
- }
- }
- tex.DefaultTexture.Rotation = (float)rotation;
- part.UpdateTextureEntry(tex.GetBytes());
- return;
- }
- }
- public LSL_String llGetTexture(int face)
- {
- m_host.AddScriptLPS(1);
- return GetTexture(m_host, face);
- }
- protected LSL_String GetTexture(SceneObjectPart part, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- face = 0;
- }
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- Primitive.TextureEntryFace texface;
- texface = tex.GetFace((uint)face);
- string texture = texface.TextureID.ToString();
- lock (part.TaskInventory)
- {
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in part.TaskInventory)
- {
- if (inv.Value.AssetID == texface.TextureID)
- {
- texture = inv.Value.Name.ToString();
- break;
- }
- }
- }
- return texture;
- }
- else
- {
- return UUID.Zero.ToString();
- }
- }
- public void llSetPos(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- SetPos(m_host, pos, true);
- ScriptSleep(200);
- }
- /// <summary>
- /// Tries to move the entire object so that the root prim is within 0.1m of position. http://wiki.secondlife.com/wiki/LlSetRegionPos
- /// Documentation indicates that the use of x/y coordinates up to 10 meters outside the bounds of a region will work but do not specify what happens if there is no adjacent region for the object to move into.
- /// Uses the RegionSize constant here rather than hard-coding 266.0 to alert any developer modifying OpenSim to support variable-sized regions that this method will need tweaking.
- /// </summary>
- /// <param name="pos"></param>
- /// <returns>1 if successful, 0 otherwise.</returns>
- public LSL_Integer llSetRegionPos(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- // BEGIN WORKAROUND
- // IF YOU GET REGION CROSSINGS WORKING WITH THIS FUNCTION, REPLACE THE WORKAROUND.
- //
- // This workaround is to prevent silent failure of this function.
- // According to the specification on the SL Wiki, providing a position outside of the
- if (pos.x < 0 || pos.x > Constants.RegionSize || pos.y < 0 || pos.y > Constants.RegionSize)
- {
- return 0;
- }
- // END WORK AROUND
- else if ( // this is not part of the workaround if-block because it's not related to the workaround.
- IsPhysical() ||
- m_host.ParentGroup.IsAttachment || // return FALSE if attachment
- (
- pos.x < -10.0 || // return FALSE if more than 10 meters into a west-adjacent region.
- pos.x > (Constants.RegionSize + 10) || // return FALSE if more than 10 meters into a east-adjacent region.
- pos.y < -10.0 || // return FALSE if more than 10 meters into a south-adjacent region.
- pos.y > (Constants.RegionSize + 10) || // return FALSE if more than 10 meters into a north-adjacent region.
- pos.z > Constants.RegionHeight // return FALSE if altitude than 4096m
- )
- )
- {
- return 0;
- }
- // if we reach this point, then the object is not physical, it's not an attachment, and the destination is within the valid range.
- // this could possibly be done in the above else-if block, but we're doing the check here to keep the code easier to read.
- Vector3 objectPos = m_host.ParentGroup.RootPart.AbsolutePosition;
- LandData here = World.GetLandData(objectPos);
- LandData there = World.GetLandData(pos);
- // we're only checking prim limits if it's moving to a different parcel under the assumption that if the object got onto the parcel without exceeding the prim limits.
- bool sameParcel = here.GlobalID == there.GlobalID;
- if (!sameParcel && !World.Permissions.CanRezObject(
- m_host.ParentGroup.PrimCount, m_host.ParentGroup.OwnerID, pos))
- {
- return 0;
- }
- SetPos(m_host.ParentGroup.RootPart, pos, false);
- return VecDist(pos, llGetRootPosition()) <= 0.1 ? 1 : 0;
- }
- // Capped movemment if distance > 10m (http://wiki.secondlife.com/wiki/LlSetPos)
- // note linked setpos is capped "differently"
- private LSL_Vector SetPosAdjust(LSL_Vector start, LSL_Vector end)
- {
- if (llVecDist(start, end) > 10.0f * m_ScriptDistanceFactor)
- return start + m_ScriptDistanceFactor * 10.0f * llVecNorm(end - start);
- else
- return end;
- }
- protected LSL_Vector GetSetPosTarget(SceneObjectPart part, LSL_Vector targetPos, LSL_Vector fromPos)
- {
- if (part == null || part.ParentGroup == null || part.ParentGroup.IsDeleted)
- return fromPos;
- // Capped movemment if distance > 10m (http://wiki.secondlife.com/wiki/LlSetPos)
- float ground = World.GetGroundHeight((float)targetPos.x, (float)targetPos.y);
- bool disable_underground_movement = m_ScriptEngine.Config.GetBoolean("DisableUndergroundMovement", true);
- if (part.ParentGroup.RootPart == part)
- {
- if ((targetPos.z < ground) && disable_underground_movement && m_host.ParentGroup.AttachmentPoint == 0)
- targetPos.z = ground;
- }
- LSL_Vector real_vec = SetPosAdjust(fromPos, targetPos);
- return real_vec;
- }
- /// <summary>
- /// set object position, optionally capping the distance.
- /// </summary>
- /// <param name="part"></param>
- /// <param name="targetPos"></param>
- /// <param name="adjust">if TRUE, will cap the distance to 10m.</param>
- protected void SetPos(SceneObjectPart part, LSL_Vector targetPos, bool adjust)
- {
- // Capped movemment if distance > 10m (http://wiki.secondlife.com/wiki/LlSetPos)
- LSL_Vector currentPos = GetPartLocalPos(part);
- float ground = World.GetGroundHeight((float)targetPos.x, (float)targetPos.y);
- bool disable_underground_movement = m_ScriptEngine.Config.GetBoolean("DisableUndergroundMovement", true);
- if (part.ParentGroup.RootPart == part)
- {
- if ((targetPos.z < ground) && disable_underground_movement && m_host.ParentGroup.AttachmentPoint == 0)
- targetPos.z = ground;
- SceneObjectGroup parent = part.ParentGroup;
- parent.UpdateGroupPosition(!adjust ? targetPos :
- SetPosAdjust(currentPos, targetPos));
- }
- else
- {
- part.OffsetPosition = !adjust ? targetPos :
- SetPosAdjust(currentPos, targetPos);
- SceneObjectGroup parent = part.ParentGroup;
- parent.HasGroupChanged = true;
- parent.ScheduleGroupForTerseUpdate();
- }
- }
- public LSL_Vector llGetPos()
- {
- m_host.AddScriptLPS(1);
- return m_host.GetWorldPosition();
- }
- public LSL_Vector llGetLocalPos()
- {
- m_host.AddScriptLPS(1);
- return GetPartLocalPos(m_host);
- }
- protected LSL_Vector GetPartLocalPos(SceneObjectPart part)
- {
- m_host.AddScriptLPS(1);
- Vector3 pos;
- if (!part.IsRoot)
- {
- pos = part.OffsetPosition;
- }
- else
- {
- if (part.ParentGroup.IsAttachment)
- {
- pos = part.AttachedPos;
- }
- else
- {
- pos = part.AbsolutePosition;
- }
- }
- // m_log.DebugFormat("[LSL API]: Returning {0} in GetPartLocalPos()", pos);
- return new LSL_Vector(pos);
- }
- public void llSetRot(LSL_Rotation rot)
- {
- m_host.AddScriptLPS(1);
- // try to let this work as in SL...
- if (m_host.ParentID == 0)
- {
- // special case: If we are root, rotate complete SOG to new rotation
- SetRot(m_host, rot);
- }
- else
- {
- // we are a child. The rotation values will be set to the one of root modified by rot, as in SL. Don't ask.
- SceneObjectPart rootPart = m_host.ParentGroup.RootPart;
- if (rootPart != null) // better safe than sorry
- {
- SetRot(m_host, rootPart.RotationOffset * (Quaternion)rot);
- }
- }
- ScriptSleep(200);
- }
- public void llSetLocalRot(LSL_Rotation rot)
- {
- m_host.AddScriptLPS(1);
- SetRot(m_host, rot);
- ScriptSleep(200);
- }
- protected void SetRot(SceneObjectPart part, Quaternion rot)
- {
- part.UpdateRotation(rot);
- // Update rotation does not move the object in the physics scene if it's a linkset.
- //KF: Do NOT use this next line if using ODE physics engine. This need a switch based on .ini Phys Engine type
- // part.ParentGroup.AbsolutePosition = part.ParentGroup.AbsolutePosition;
- // So, after thinking about this for a bit, the issue with the part.ParentGroup.AbsolutePosition = part.ParentGroup.AbsolutePosition line
- // is it isn't compatible with vehicles because it causes the vehicle body to have to be broken down and rebuilt
- // It's perfectly okay when the object is not an active physical body though.
- // So, part.ParentGroup.ResetChildPrimPhysicsPositions(); does the thing that Kitto is warning against
- // but only if the object is not physial and active. This is important for rotating doors.
- // without the absoluteposition = absoluteposition happening, the doors do not move in the physics
- // scene
- PhysicsActor pa = part.PhysActor;
- if (pa != null && !pa.IsPhysical)
- {
- part.ParentGroup.ResetChildPrimPhysicsPositions();
- }
- }
- /// <summary>
- /// See http://lslwiki.net/lslwiki/wakka.php?wakka=ChildRotation
- /// </summary>
- public LSL_Rotation llGetRot()
- {
- // unlinked or root prim then use llRootRotation
- // see llRootRotaion for references.
- if (m_host.LinkNum == 0 || m_host.LinkNum == 1)
- {
- return llGetRootRotation();
- }
-
- m_host.AddScriptLPS(1);
- Quaternion q = m_host.GetWorldRotation();
- return new LSL_Rotation(q.X, q.Y, q.Z, q.W);
- }
- private LSL_Rotation GetPartRot(SceneObjectPart part)
- {
- Quaternion q;
- if (part.LinkNum == 0 || part.LinkNum == 1) // unlinked or root prim
- {
- if (part.ParentGroup.AttachmentPoint != 0)
- {
- ScenePresence avatar = World.GetScenePresence(part.ParentGroup.AttachedAvatar);
- if (avatar != null)
- {
- if ((avatar.AgentControlFlags & (uint)AgentManager.ControlFlags.AGENT_CONTROL_MOUSELOOK) != 0)
- q = avatar.CameraRotation; // Mouselook
- else
- q = avatar.Rotation; // Currently infrequently updated so may be inaccurate
- }
- else
- q = part.ParentGroup.GroupRotation; // Likely never get here but just in case
- }
- else
- q = part.ParentGroup.GroupRotation; // just the group rotation
- return new LSL_Rotation(q.X, q.Y, q.Z, q.W);
- }
- q = part.GetWorldRotation();
- return new LSL_Rotation(q.X, q.Y, q.Z, q.W);
- }
- public LSL_Rotation llGetLocalRot()
- {
- m_host.AddScriptLPS(1);
- return new LSL_Rotation(m_host.RotationOffset.X, m_host.RotationOffset.Y, m_host.RotationOffset.Z, m_host.RotationOffset.W);
- }
- public void llSetForce(LSL_Vector force, int local)
- {
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- {
- if (local != 0)
- force *= llGetRot();
- m_host.ParentGroup.RootPart.SetForce(force);
- }
- }
- public LSL_Vector llGetForce()
- {
- LSL_Vector force = new LSL_Vector(0.0, 0.0, 0.0);
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- {
- force = m_host.ParentGroup.RootPart.GetForce();
- }
- return force;
- }
- public LSL_Integer llTarget(LSL_Vector position, double range)
- {
- m_host.AddScriptLPS(1);
- return m_host.ParentGroup.registerTargetWaypoint(position,
- (float)range);
- }
- public void llTargetRemove(int number)
- {
- m_host.AddScriptLPS(1);
- m_host.ParentGroup.unregisterTargetWaypoint(number);
- }
- public LSL_Integer llRotTarget(LSL_Rotation rot, double error)
- {
- m_host.AddScriptLPS(1);
- return m_host.ParentGroup.registerRotTargetWaypoint(rot, (float)error);
- }
- public void llRotTargetRemove(int number)
- {
- m_host.AddScriptLPS(1);
- m_host.ParentGroup.unregisterRotTargetWaypoint(number);
- }
- public void llMoveToTarget(LSL_Vector target, double tau)
- {
- m_host.AddScriptLPS(1);
- m_host.MoveToTarget(target, (float)tau);
- }
- public void llStopMoveToTarget()
- {
- m_host.AddScriptLPS(1);
- m_host.StopMoveToTarget();
- }
- public void llApplyImpulse(LSL_Vector force, int local)
- {
- m_host.AddScriptLPS(1);
- //No energy force yet
- Vector3 v = force;
- if (v.Length() > 20000.0f)
- {
- v.Normalize();
- v = v * 20000.0f;
- }
- m_host.ApplyImpulse(v, local != 0);
- }
- public void llApplyRotationalImpulse(LSL_Vector force, int local)
- {
- m_host.AddScriptLPS(1);
- m_host.ApplyAngularImpulse(force, local != 0);
- }
- public void llSetTorque(LSL_Vector torque, int local)
- {
- m_host.AddScriptLPS(1);
- m_host.SetAngularImpulse(torque, local != 0);
- }
- public LSL_Vector llGetTorque()
- {
- m_host.AddScriptLPS(1);
- Vector3 torque = m_host.ParentGroup.GetTorque();
- return new LSL_Vector(torque.X,torque.Y,torque.Z);
- }
- public void llSetForceAndTorque(LSL_Vector force, LSL_Vector torque, int local)
- {
- m_host.AddScriptLPS(1);
- llSetForce(force, local);
- llSetTorque(torque, local);
- }
- public LSL_Vector llGetVel()
- {
- m_host.AddScriptLPS(1);
- Vector3 vel;
- if (m_host.ParentGroup.IsAttachment)
- {
- ScenePresence avatar = m_host.ParentGroup.Scene.GetScenePresence(m_host.ParentGroup.AttachedAvatar);
- vel = avatar.Velocity;
- }
- else
- {
- vel = m_host.Velocity;
- }
- return new LSL_Vector(vel.X, vel.Y, vel.Z);
- }
- public LSL_Vector llGetAccel()
- {
- m_host.AddScriptLPS(1);
- return new LSL_Vector(m_host.Acceleration.X, m_host.Acceleration.Y, m_host.Acceleration.Z);
- }
- public LSL_Vector llGetOmega()
- {
- m_host.AddScriptLPS(1);
- return new LSL_Vector(m_host.AngularVelocity.X, m_host.AngularVelocity.Y, m_host.AngularVelocity.Z);
- }
- public LSL_Float llGetTimeOfDay()
- {
- m_host.AddScriptLPS(1);
- return (double)((DateTime.Now.TimeOfDay.TotalMilliseconds / 1000) % (3600 * 4));
- }
- public LSL_Float llGetWallclock()
- {
- m_host.AddScriptLPS(1);
- return DateTime.Now.TimeOfDay.TotalSeconds;
- }
- public LSL_Float llGetTime()
- {
- m_host.AddScriptLPS(1);
- TimeSpan ScriptTime = DateTime.Now - m_timer;
- return (double)(ScriptTime.TotalMilliseconds / 1000);
- }
- public void llResetTime()
- {
- m_host.AddScriptLPS(1);
- m_timer = DateTime.Now;
- }
- public LSL_Float llGetAndResetTime()
- {
- m_host.AddScriptLPS(1);
- TimeSpan ScriptTime = DateTime.Now - m_timer;
- m_timer = DateTime.Now;
- return (double)(ScriptTime.TotalMilliseconds / 1000);
- }
- public void llSound(string sound, double volume, int queue, int loop)
- {
- m_host.AddScriptLPS(1);
- // This function has been deprecated
- // see http://www.lslwiki.net/lslwiki/wakka.php?wakka=llSound
- Deprecated("llSound");
- }
- // Xantor 20080528 PlaySound updated so it accepts an objectinventory name -or- a key to a sound
- // 20080530 Updated to remove code duplication
- public void llPlaySound(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- // send the sound, once, to all clients in range
- if (m_SoundModule != null)
- {
- m_SoundModule.SendSound(m_host.UUID,
- KeyOrName(sound, AssetType.Sound), volume, false, 0,
- 0, false, false);
- }
- }
- public void llLoopSound(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- if (m_SoundModule != null)
- {
- m_SoundModule.LoopSound(m_host.UUID, KeyOrName(sound),
- volume, 20, false);
- }
- }
- public void llLoopSoundMaster(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- if (m_SoundModule != null)
- {
- m_SoundModule.LoopSound(m_host.UUID, KeyOrName(sound),
- volume, 20, true);
- }
- }
- public void llLoopSoundSlave(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- lock (m_host.ParentGroup.LoopSoundSlavePrims)
- {
- m_host.ParentGroup.LoopSoundSlavePrims.Add(m_host);
- }
- }
- public void llPlaySoundSlave(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- // send the sound, once, to all clients in range
- if (m_SoundModule != null)
- {
- m_SoundModule.SendSound(m_host.UUID,
- KeyOrName(sound, AssetType.Sound), volume, false, 0,
- 0, true, false);
- }
- }
- public void llTriggerSound(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- // send the sound, once, to all clients in rangeTrigger or play an attached sound in this part's inventory.
- if (m_SoundModule != null)
- {
- m_SoundModule.SendSound(m_host.UUID,
- KeyOrName(sound, AssetType.Sound), volume, true, 0, 0,
- false, false);
- }
- }
- public void llStopSound()
- {
- m_host.AddScriptLPS(1);
- if (m_SoundModule != null)
- m_SoundModule.StopSound(m_host.UUID);
- }
- public void llPreloadSound(string sound)
- {
- m_host.AddScriptLPS(1);
- if (m_SoundModule != null)
- m_SoundModule.PreloadSound(m_host.UUID, KeyOrName(sound), 0);
- ScriptSleep(1000);
- }
- /// <summary>
- /// Return a portion of the designated string bounded by
- /// inclusive indices (start and end). As usual, the negative
- /// indices, and the tolerance for out-of-bound values, makes
- /// this more complicated than it might otherwise seem.
- /// </summary>
- public LSL_String llGetSubString(string src, int start, int end)
- {
- m_host.AddScriptLPS(1);
- // Normalize indices (if negative).
- // After normlaization they may still be
- // negative, but that is now relative to
- // the start, rather than the end, of the
- // sequence.
- if (start < 0)
- {
- start = src.Length+start;
- }
- if (end < 0)
- {
- end = src.Length+end;
- }
- // Conventional substring
- if (start <= end)
- {
- // Implies both bounds are out-of-range.
- if (end < 0 || start >= src.Length)
- {
- return String.Empty;
- }
- // If end is positive, then it directly
- // corresponds to the lengt of the substring
- // needed (plus one of course). BUT, it
- // must be within bounds.
- if (end >= src.Length)
- {
- end = src.Length-1;
- }
- if (start < 0)
- {
- return src.Substring(0,end+1);
- }
- // Both indices are positive
- return src.Substring(start, (end+1) - start);
- }
- // Inverted substring (end < start)
- else
- {
- // Implies both indices are below the
- // lower bound. In the inverted case, that
- // means the entire string will be returned
- // unchanged.
- if (start < 0)
- {
- return src;
- }
- // If both indices are greater than the upper
- // bound the result may seem initially counter
- // intuitive.
- if (end >= src.Length)
- {
- return src;
- }
- if (end < 0)
- {
- if (start < src.Length)
- {
- return src.Substring(start);
- }
- else
- {
- return String.Empty;
- }
- }
- else
- {
- if (start < src.Length)
- {
- return src.Substring(0,end+1) + src.Substring(start);
- }
- else
- {
- return src.Substring(0,end+1);
- }
- }
- }
- }
- /// <summary>
- /// Delete substring removes the specified substring bounded
- /// by the inclusive indices start and end. Indices may be
- /// negative (indicating end-relative) and may be inverted,
- /// i.e. end < start.
- /// </summary>
- public LSL_String llDeleteSubString(string src, int start, int end)
- {
- m_host.AddScriptLPS(1);
- // Normalize indices (if negative).
- // After normlaization they may still be
- // negative, but that is now relative to
- // the start, rather than the end, of the
- // sequence.
- if (start < 0)
- {
- start = src.Length+start;
- }
- if (end < 0)
- {
- end = src.Length+end;
- }
- // Conventionally delimited substring
- if (start <= end)
- {
- // If both bounds are outside of the existing
- // string, then return unchanges.
- if (end < 0 || start >= src.Length)
- {
- return src;
- }
- // At least one bound is in-range, so we
- // need to clip the out-of-bound argument.
- if (start < 0)
- {
- start = 0;
- }
- if (end >= src.Length)
- {
- end = src.Length-1;
- }
- return src.Remove(start,end-start+1);
- }
- // Inverted substring
- else
- {
- // In this case, out of bounds means that
- // the existing string is part of the cut.
- if (start < 0 || end >= src.Length)
- {
- return String.Empty;
- }
- if (end > 0)
- {
- if (start < src.Length)
- {
- return src.Remove(start).Remove(0,end+1);
- }
- else
- {
- return src.Remove(0,end+1);
- }
- }
- else
- {
- if (start < src.Length)
- {
- return src.Remove(start);
- }
- else
- {
- return src;
- }
- }
- }
- }
- /// <summary>
- /// Insert string inserts the specified string identified by src
- /// at the index indicated by index. Index may be negative, in
- /// which case it is end-relative. The index may exceed either
- /// string bound, with the result being a concatenation.
- /// </summary>
- public LSL_String llInsertString(string dest, int index, string src)
- {
- m_host.AddScriptLPS(1);
- // Normalize indices (if negative).
- // After normlaization they may still be
- // negative, but that is now relative to
- // the start, rather than the end, of the
- // sequence.
- if (index < 0)
- {
- index = dest.Length+index;
- // Negative now means it is less than the lower
- // bound of the string.
- if (index < 0)
- {
- return src+dest;
- }
- }
- if (index >= dest.Length)
- {
- return dest+src;
- }
- // The index is in bounds.
- // In this case the index refers to the index that will
- // be assigned to the first character of the inserted string.
- // So unlike the other string operations, we do not add one
- // to get the correct string length.
- return dest.Substring(0,index)+src+dest.Substring(index);
- }
- public LSL_String llToUpper(string src)
- {
- m_host.AddScriptLPS(1);
- return src.ToUpper();
- }
- public LSL_String llToLower(string src)
- {
- m_host.AddScriptLPS(1);
- return src.ToLower();
- }
- public LSL_Integer llGiveMoney(string destination, int amount)
- {
- m_host.AddScriptLPS(1);
- if (m_item.PermsGranter == UUID.Zero)
- return 0;
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_DEBIT) == 0)
- {
- LSLError("No permissions to give money");
- return 0;
- }
- UUID toID = new UUID();
- if (!UUID.TryParse(destination, out toID))
- {
- LSLError("Bad key in llGiveMoney");
- return 0;
- }
- IMoneyModule money = World.RequestModuleInterface<IMoneyModule>();
- if (money == null)
- {
- NotImplemented("llGiveMoney");
- return 0;
- }
- bool result = money.ObjectGiveMoney(
- m_host.ParentGroup.RootPart.UUID, m_host.ParentGroup.RootPart.OwnerID, toID, amount);
- if (result)
- return 1;
- return 0;
- }
- public void llMakeExplosion(int particles, double scale, double vel, double lifetime, double arc, string texture, LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- Deprecated("llMakeExplosion");
- ScriptSleep(100);
- }
- public void llMakeFountain(int particles, double scale, double vel, double lifetime, double arc, int bounce, string texture, LSL_Vector offset, double bounce_offset)
- {
- m_host.AddScriptLPS(1);
- Deprecated("llMakeFountain");
- ScriptSleep(100);
- }
- public void llMakeSmoke(int particles, double scale, double vel, double lifetime, double arc, string texture, LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- Deprecated("llMakeSmoke");
- ScriptSleep(100);
- }
- public void llMakeFire(int particles, double scale, double vel, double lifetime, double arc, string texture, LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- Deprecated("llMakeFire");
- ScriptSleep(100);
- }
- public void llRezAtRoot(string inventory, LSL_Vector pos, LSL_Vector vel, LSL_Rotation rot, int param)
- {
- m_host.AddScriptLPS(1);
- Util.FireAndForget(x =>
- {
- if (Double.IsNaN(rot.x) || Double.IsNaN(rot.y) || Double.IsNaN(rot.z) || Double.IsNaN(rot.s))
- return;
- float dist = (float)llVecDist(llGetPos(), pos);
- if (dist > m_ScriptDistanceFactor * 10.0f)
- return;
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(inventory);
- if (item == null)
- {
- llSay(0, "Could not find object " + inventory);
- return;
- }
- if (item.InvType != (int)InventoryType.Object)
- {
- llSay(0, "Unable to create requested object. Object is missing from database.");
- return;
- }
- // need the magnitude later
- // float velmag = (float)Util.GetMagnitude(llvel);
- SceneObjectGroup new_group = World.RezObject(m_host, item, pos, rot, vel, param);
- // If either of these are null, then there was an unknown error.
- if (new_group == null)
- return;
- // objects rezzed with this method are die_at_edge by default.
- new_group.RootPart.SetDieAtEdge(true);
- new_group.ResumeScripts();
- m_ScriptEngine.PostObjectEvent(m_host.LocalId, new EventParams(
- "object_rez", new Object[] {
- new LSL_String(
- new_group.RootPart.UUID.ToString()) },
- new DetectParams[0]));
- float groupmass = new_group.GetMass();
- PhysicsActor pa = new_group.RootPart.PhysActor;
- if (pa != null && pa.IsPhysical && (Vector3)vel != Vector3.Zero)
- {
- //Recoil.
- llApplyImpulse(vel * groupmass, 0);
- }
- // Variable script delay? (see (http://wiki.secondlife.com/wiki/LSL_Delay)
- });
- //ScriptSleep((int)((groupmass * velmag) / 10));
- ScriptSleep(100);
- }
- public void llRezObject(string inventory, LSL_Vector pos, LSL_Vector vel, LSL_Rotation rot, int param)
- {
- llRezAtRoot(inventory, pos, vel, rot, param);
- }
- public void llLookAt(LSL_Vector target, double strength, double damping)
- {
- m_host.AddScriptLPS(1);
- // Determine where we are looking from
- LSL_Vector from = llGetPos();
- // Work out the normalised vector from the source to the target
- LSL_Vector delta = llVecNorm(target - from);
- LSL_Vector angle = new LSL_Vector(0,0,0);
- // Calculate the yaw
- // subtracting PI_BY_TWO is required to compensate for the odd SL co-ordinate system
- angle.x = llAtan2(delta.z, delta.y) - ScriptBaseClass.PI_BY_TWO;
- // Calculate pitch
- angle.y = llAtan2(delta.x, llSqrt((delta.y * delta.y) + (delta.z * delta.z)));
- // we need to convert from a vector describing
- // the angles of rotation in radians into rotation value
- LSL_Rotation rot = llEuler2Rot(angle);
-
- // Per discussion with Melanie, for non-physical objects llLookAt appears to simply
- // set the rotation of the object, copy that behavior
- PhysicsActor pa = m_host.PhysActor;
- if (strength == 0 || pa == null || !pa.IsPhysical)
- {
- llSetRot(rot);
- }
- else
- {
- m_host.StartLookAt(rot, (float)strength, (float)damping);
- }
- }
- public void llStopLookAt()
- {
- m_host.AddScriptLPS(1);
- // NotImplemented("llStopLookAt");
- m_host.StopLookAt();
- }
- public void llSetTimerEvent(double sec)
- {
- if (sec != 0.0 && sec < m_MinTimerInterval)
- sec = m_MinTimerInterval;
- m_host.AddScriptLPS(1);
- // Setting timer repeat
- AsyncCommands.TimerPlugin.SetTimerEvent(m_host.LocalId, m_item.ItemID, sec);
- }
- public virtual void llSleep(double sec)
- {
- // m_log.Info("llSleep snoozing " + sec + "s.");
- m_host.AddScriptLPS(1);
- Thread.Sleep((int)(sec * 1000));
- }
- public LSL_Float llGetMass()
- {
- m_host.AddScriptLPS(1);
- if (m_host.ParentGroup.IsAttachment)
- {
- ScenePresence attachedAvatar = World.GetScenePresence(m_host.ParentGroup.AttachedAvatar);
- if (attachedAvatar != null)
- {
- return attachedAvatar.GetMass();
- }
- else
- {
- return 0;
- }
- }
- else
- {
- if (m_host.IsRoot)
- {
- return m_host.ParentGroup.GetMass();
- }
- else
- {
- return m_host.GetMass();
- }
- }
- }
- public void llCollisionFilter(string name, string id, int accept)
- {
- m_host.AddScriptLPS(1);
- m_host.CollisionFilter.Clear();
- UUID objectID;
- if (!UUID.TryParse(id, out objectID))
- objectID = UUID.Zero;
-
- if (objectID == UUID.Zero && name == "")
- return;
- m_host.CollisionFilter.Add(accept,objectID.ToString() + name);
- }
- public void llTakeControls(int controls, int accept, int pass_on)
- {
- if (m_item.PermsGranter != UUID.Zero)
- {
- ScenePresence presence = World.GetScenePresence(m_item.PermsGranter);
- if (presence != null)
- {
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0)
- {
- presence.RegisterControlEventsToScript(controls, accept, pass_on, m_host.LocalId, m_item.ItemID);
- }
- }
- }
- m_host.AddScriptLPS(1);
- }
- public void llReleaseControls()
- {
- m_host.AddScriptLPS(1);
- if (m_item.PermsGranter != UUID.Zero)
- {
- ScenePresence presence = World.GetScenePresence(m_item.PermsGranter);
- if (presence != null)
- {
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0)
- {
- // Unregister controls from Presence
- presence.UnRegisterControlEventsToScript(m_host.LocalId, m_item.ItemID);
- // Remove Take Control permission.
- m_item.PermsMask &= ~ScriptBaseClass.PERMISSION_TAKE_CONTROLS;
- }
- }
- }
- }
- public void llReleaseURL(string url)
- {
- m_host.AddScriptLPS(1);
- if (m_UrlModule != null)
- m_UrlModule.ReleaseURL(url);
- }
- /// <summary>
- /// Attach the object containing this script to the avatar that owns it.
- /// </summary>
- /// <param name='attachment'>The attachment point (e.g. ATTACH_CHEST)</param>
- /// <returns>true if the attach suceeded, false if it did not</returns>
- public bool AttachToAvatar(int attachmentPoint)
- {
- SceneObjectGroup grp = m_host.ParentGroup;
- ScenePresence presence = World.GetScenePresence(m_host.OwnerID);
- IAttachmentsModule attachmentsModule = m_ScriptEngine.World.AttachmentsModule;
- if (attachmentsModule != null)
- return attachmentsModule.AttachObject(presence, grp, (uint)attachmentPoint, false, false);
- else
- return false;
- }
- /// <summary>
- /// Detach the object containing this script from the avatar it is attached to.
- /// </summary>
- /// <remarks>
- /// Nothing happens if the object is not attached.
- /// </remarks>
- public void DetachFromAvatar()
- {
- Util.FireAndForget(DetachWrapper, m_host);
- }
- private void DetachWrapper(object o)
- {
- if (World.AttachmentsModule != null)
- {
- SceneObjectPart host = (SceneObjectPart)o;
- ScenePresence presence = World.GetScenePresence(host.OwnerID);
- World.AttachmentsModule.DetachSingleAttachmentToInv(presence, host.ParentGroup);
- }
- }
- public void llAttachToAvatar(int attachmentPoint)
- {
- m_host.AddScriptLPS(1);
- // if (m_host.ParentGroup.RootPart.AttachmentPoint == 0)
- // return;
- if (m_item.PermsGranter != m_host.OwnerID)
- return;
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_ATTACH) != 0)
- AttachToAvatar(attachmentPoint);
- }
- public void llDetachFromAvatar()
- {
- m_host.AddScriptLPS(1);
- if (m_host.ParentGroup.AttachmentPoint == 0)
- return;
- if (m_item.PermsGranter != m_host.OwnerID)
- return;
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_ATTACH) != 0)
- DetachFromAvatar();
- }
- public void llTakeCamera(string avatar)
- {
- m_host.AddScriptLPS(1);
- Deprecated("llTakeCamera");
- }
- public void llReleaseCamera(string avatar)
- {
- m_host.AddScriptLPS(1);
- Deprecated("llReleaseCamera");
- }
- public LSL_String llGetOwner()
- {
- m_host.AddScriptLPS(1);
- return m_host.OwnerID.ToString();
- }
- public void llInstantMessage(string user, string message)
- {
- m_host.AddScriptLPS(1);
- // We may be able to use ClientView.SendInstantMessage here, but we need a client instance.
- // InstantMessageModule.OnInstantMessage searches through a list of scenes for a client matching the toAgent,
- // but I don't think we have a list of scenes available from here.
- // (We also don't want to duplicate the code in OnInstantMessage if we can avoid it.)
- // user is a UUID
- // TODO: figure out values for client, fromSession, and imSessionID
- // client.SendInstantMessage(m_host.UUID, fromSession, message, user, imSessionID, m_host.Name, AgentManager.InstantMessageDialog.MessageFromAgent, (uint)Util.UnixTimeSinceEpoch());
- UUID friendTransactionID = UUID.Random();
- //m_pendingFriendRequests.Add(friendTransactionID, fromAgentID);
- GridInstantMessage msg = new GridInstantMessage();
- msg.fromAgentID = new Guid(m_host.UUID.ToString()); // fromAgentID.Guid;
- msg.toAgentID = new Guid(user); // toAgentID.Guid;
- msg.imSessionID = new Guid(friendTransactionID.ToString()); // This is the item we're mucking with here
- // m_log.Debug("[Scripting IM]: From:" + msg.fromAgentID.ToString() + " To: " + msg.toAgentID.ToString() + " Session:" + msg.imSessionID.ToString() + " Message:" + message);
- // m_log.Debug("[Scripting IM]: Filling Session: " + msg.imSessionID.ToString());
- msg.timestamp = (uint)Util.UnixTimeSinceEpoch();// timestamp;
- //if (client != null)
- //{
- msg.fromAgentName = m_host.Name;//client.FirstName + " " + client.LastName;// fromAgentName;
- //}
- //else
- //{
- // msg.fromAgentName = "(hippos)";// Added for posterity. This means that we can't figure out who sent it
- //}
- // Cap the message length at 1024.
- if (message != null && message.Length > 1024)
- msg.message = message.Substring(0, 1024);
- else
- msg.message = message;
- msg.dialog = (byte)19; // messgage from script ??? // dialog;
- msg.fromGroup = false;// fromGroup;
- msg.offline = (byte)0; //offline;
- msg.ParentEstateID = 0; //ParentEstateID;
- msg.Position = new Vector3(m_host.AbsolutePosition);
- msg.RegionID = World.RegionInfo.RegionID.Guid;//RegionID.Guid;
- msg.binaryBucket
- = Util.StringToBytes256(
- "{0}/{1}/{2}/{3}",
- World.RegionInfo.RegionName,
- (int)Math.Floor(m_host.AbsolutePosition.X),
- (int)Math.Floor(m_host.AbsolutePosition.Y),
- (int)Math.Floor(m_host.AbsolutePosition.Z));
- if (m_TransferModule != null)
- {
- m_TransferModule.SendInstantMessage(msg, delegate(bool success) {});
- }
-
- ScriptSleep(2000);
- }
- public void llEmail(string address, string subject, string message)
- {
- m_host.AddScriptLPS(1);
- IEmailModule emailModule = m_ScriptEngine.World.RequestModuleInterface<IEmailModule>();
- if (emailModule == null)
- {
- ShoutError("llEmail: email module not configured");
- return;
- }
- emailModule.SendEmail(m_host.UUID, address, subject, message);
- llSleep(EMAIL_PAUSE_TIME);
- }
- public void llGetNextEmail(string address, string subject)
- {
- m_host.AddScriptLPS(1);
- IEmailModule emailModule = m_ScriptEngine.World.RequestModuleInterface<IEmailModule>();
- if (emailModule == null)
- {
- ShoutError("llGetNextEmail: email module not configured");
- return;
- }
- Email email;
- email = emailModule.GetNextEmail(m_host.UUID, address, subject);
- if (email == null)
- return;
- m_ScriptEngine.PostObjectEvent(m_host.LocalId,
- new EventParams("email",
- new Object[] {
- new LSL_String(email.time),
- new LSL_String(email.sender),
- new LSL_String(email.subject),
- new LSL_String(email.message),
- new LSL_Integer(email.numLeft)},
- new DetectParams[0]));
- }
- public LSL_String llGetKey()
- {
- m_host.AddScriptLPS(1);
- return m_host.UUID.ToString();
- }
- public LSL_Key llGenerateKey()
- {
- m_host.AddScriptLPS(1);
- return UUID.Random().ToString();
- }
- public void llSetBuoyancy(double buoyancy)
- {
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetBuoyancy((float)buoyancy);
- }
- }
- /// <summary>
- /// Attempt to clamp the object on the Z axis at the given height over tau seconds.
- /// </summary>
- /// <param name="height">Height to hover. Height of zero disables hover.</param>
- /// <param name="water">False if height is calculated just from ground, otherwise uses ground or water depending on whichever is higher</param>
- /// <param name="tau">Number of seconds over which to reach target</param>
- public void llSetHoverHeight(double height, int water, double tau)
- {
- m_host.AddScriptLPS(1);
- if (m_host.PhysActor != null)
- {
- PIDHoverType hoverType = PIDHoverType.Ground;
- if (water != 0)
- {
- hoverType = PIDHoverType.GroundAndWater;
- }
- m_host.SetHoverHeight((float)height, hoverType, (float)tau);
- }
- }
- public void llStopHover()
- {
- m_host.AddScriptLPS(1);
- if (m_host.PhysActor != null)
- {
- m_host.SetHoverHeight(0f, PIDHoverType.Ground, 0f);
- }
- }
- public void llMinEventDelay(double delay)
- {
- m_host.AddScriptLPS(1);
- try
- {
- m_ScriptEngine.SetMinEventDelay(m_item.ItemID, delay);
- }
- catch (NotImplementedException)
- {
- // Currently not implemented in DotNetEngine only XEngine
- NotImplemented("llMinEventDelay in DotNetEngine");
- }
- }
- /// <summary>
- /// llSoundPreload is deprecated. In SL this appears to do absolutely nothing
- /// and is documented to have no delay.
- /// </summary>
- public void llSoundPreload(string sound)
- {
- m_host.AddScriptLPS(1);
- }
- public void llRotLookAt(LSL_Rotation target, double strength, double damping)
- {
- m_host.AddScriptLPS(1);
-
- // Per discussion with Melanie, for non-physical objects llLookAt appears to simply
- // set the rotation of the object, copy that behavior
- PhysicsActor pa = m_host.PhysActor;
- if (strength == 0 || pa == null || !pa.IsPhysical)
- {
- llSetLocalRot(target);
- }
- else
- {
- m_host.RotLookAt(target, (float)strength, (float)damping);
- }
- }
- public LSL_Integer llStringLength(string str)
- {
- m_host.AddScriptLPS(1);
- if (str.Length > 0)
- {
- return str.Length;
- }
- else
- {
- return 0;
- }
- }
- public void llStartAnimation(string anim)
- {
- m_host.AddScriptLPS(1);
- if (m_item.PermsGranter == UUID.Zero)
- return;
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0)
- {
- ScenePresence presence = World.GetScenePresence(m_item.PermsGranter);
- if (presence != null)
- {
- // Do NOT try to parse UUID, animations cannot be triggered by ID
- UUID animID = InventoryKey(anim, (int)AssetType.Animation);
- if (animID == UUID.Zero)
- presence.Animator.AddAnimation(anim, m_host.UUID);
- else
- presence.Animator.AddAnimation(animID, m_host.UUID);
- }
- }
- }
- public void llStopAnimation(string anim)
- {
- m_host.AddScriptLPS(1);
- if (m_item.PermsGranter == UUID.Zero)
- return;
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0)
- {
- ScenePresence presence = World.GetScenePresence(m_item.PermsGranter);
- if (presence != null)
- {
- UUID animID = KeyOrName(anim);
- if (animID == UUID.Zero)
- presence.Animator.RemoveAnimation(anim);
- else
- presence.Animator.RemoveAnimation(animID);
- }
- }
- }
- public void llPointAt(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- }
- public void llStopPointAt()
- {
- m_host.AddScriptLPS(1);
- }
- public void llTargetOmega(LSL_Vector axis, double spinrate, double gain)
- {
- m_host.AddScriptLPS(1);
- TargetOmega(m_host, axis, spinrate, gain);
- }
- protected void TargetOmega(SceneObjectPart part, LSL_Vector axis, double spinrate, double gain)
- {
- part.UpdateAngularVelocity(axis * spinrate);
- }
- public LSL_Integer llGetStartParameter()
- {
- m_host.AddScriptLPS(1);
- return m_ScriptEngine.GetStartParameter(m_item.ItemID);
- }
- public void llRequestPermissions(string agent, int perm)
- {
- UUID agentID;
- if (!UUID.TryParse(agent, out agentID))
- return;
- if (agentID == UUID.Zero || perm == 0) // Releasing permissions
- {
- llReleaseControls();
- m_item.PermsGranter = UUID.Zero;
- m_item.PermsMask = 0;
- m_ScriptEngine.PostScriptEvent(m_item.ItemID, new EventParams(
- "run_time_permissions", new Object[] {
- new LSL_Integer(0) },
- new DetectParams[0]));
- return;
- }
- if (m_item.PermsGranter != agentID || (perm & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) == 0)
- llReleaseControls();
- m_host.AddScriptLPS(1);
- int implicitPerms = 0;
- if (m_host.ParentGroup.IsAttachment && (UUID)agent == m_host.ParentGroup.AttachedAvatar)
- {
- // When attached, certain permissions are implicit if requested from owner
- implicitPerms = ScriptBaseClass.PERMISSION_TAKE_CONTROLS |
- ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION |
- ScriptBaseClass.PERMISSION_CONTROL_CAMERA |
- ScriptBaseClass.PERMISSION_ATTACH;
- }
- else
- {
- bool sitting = false;
- if (m_host.SitTargetAvatar == agentID)
- {
- sitting = true;
- }
- else
- {
- foreach (SceneObjectPart p in m_host.ParentGroup.Parts)
- {
- if (p.SitTargetAvatar == agentID)
- sitting = true;
- }
- }
- if (sitting)
- {
- // When agent is sitting, certain permissions are implicit if requested from sitting agent
- implicitPerms = ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION |
- ScriptBaseClass.PERMISSION_CONTROL_CAMERA |
- ScriptBaseClass.PERMISSION_TRACK_CAMERA |
- ScriptBaseClass.PERMISSION_TAKE_CONTROLS;
- }
- else
- {
- if (World.GetExtraSetting("auto_grant_attach_perms") == "true")
- implicitPerms = ScriptBaseClass.PERMISSION_ATTACH;
- }
- }
- if ((perm & (~implicitPerms)) == 0) // Requested only implicit perms
- {
- lock (m_host.TaskInventory)
- {
- m_host.TaskInventory[m_item.ItemID].PermsGranter = agentID;
- m_host.TaskInventory[m_item.ItemID].PermsMask = perm;
- }
- m_ScriptEngine.PostScriptEvent(m_item.ItemID, new EventParams(
- "run_time_permissions", new Object[] {
- new LSL_Integer(perm) },
- new DetectParams[0]));
- return;
- }
- ScenePresence presence = World.GetScenePresence(agentID);
- if (presence != null)
- {
- // If permissions are being requested from an NPC and were not implicitly granted above then
- // auto grant all reuqested permissions if the script is owned by the NPC or the NPCs owner
- INPCModule npcModule = World.RequestModuleInterface<INPCModule>();
- if (npcModule != null && npcModule.IsNPC(agentID, World))
- {
- if (agentID == m_host.ParentGroup.OwnerID || npcModule.GetOwner(agentID) == m_host.ParentGroup.OwnerID)
- {
- lock (m_host.TaskInventory)
- {
- m_host.TaskInventory[m_item.ItemID].PermsGranter = agentID;
- m_host.TaskInventory[m_item.ItemID].PermsMask = perm;
- }
- m_ScriptEngine.PostScriptEvent(
- m_item.ItemID,
- new EventParams(
- "run_time_permissions", new Object[] { new LSL_Integer(perm) }, new DetectParams[0]));
- }
- // it is an NPC, exit even if the permissions werent granted above, they are not going to answer
- // the question!
- return;
- }
- string ownerName = resolveName(m_host.ParentGroup.RootPart.OwnerID);
- if (ownerName == String.Empty)
- ownerName = "(hippos)";
- if (!m_waitingForScriptAnswer)
- {
- lock (m_host.TaskInventory)
- {
- m_host.TaskInventory[m_item.ItemID].PermsGranter = agentID;
- m_host.TaskInventory[m_item.ItemID].PermsMask = 0;
- }
- presence.ControllingClient.OnScriptAnswer += handleScriptAnswer;
- m_waitingForScriptAnswer=true;
- }
- presence.ControllingClient.SendScriptQuestion(
- m_host.UUID, m_host.ParentGroup.RootPart.Name, ownerName, m_item.ItemID, perm);
- return;
- }
- // Requested agent is not in range, refuse perms
- m_ScriptEngine.PostScriptEvent(
- m_item.ItemID,
- new EventParams("run_time_permissions", new Object[] { new LSL_Integer(0) }, new DetectParams[0]));
- }
- void handleScriptAnswer(IClientAPI client, UUID taskID, UUID itemID, int answer)
- {
- if (taskID != m_host.UUID)
- return;
- client.OnScriptAnswer -= handleScriptAnswer;
- m_waitingForScriptAnswer = false;
- if ((answer & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) == 0)
- llReleaseControls();
- lock (m_host.TaskInventory)
- {
- m_host.TaskInventory[m_item.ItemID].PermsMask = answer;
- }
- m_ScriptEngine.PostScriptEvent(
- m_item.ItemID,
- new EventParams("run_time_permissions", new Object[] { new LSL_Integer(answer) }, new DetectParams[0]));
- }
- public LSL_String llGetPermissionsKey()
- {
- m_host.AddScriptLPS(1);
- return m_item.PermsGranter.ToString();
- }
- public LSL_Integer llGetPermissions()
- {
- m_host.AddScriptLPS(1);
- int perms = m_item.PermsMask;
- if (m_automaticLinkPermission)
- perms |= ScriptBaseClass.PERMISSION_CHANGE_LINKS;
- return perms;
- }
- public LSL_Integer llGetLinkNumber()
- {
- m_host.AddScriptLPS(1);
- if (m_host.ParentGroup.PrimCount > 1)
- {
- return m_host.LinkNum;
- }
- else
- {
- return 0;
- }
- }
- public void llSetLinkColor(int linknumber, LSL_Vector color, int face)
- {
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- part.SetFaceColorAlpha(face, color, null);
- }
- public void llCreateLink(string target, int parent)
- {
- m_host.AddScriptLPS(1);
- UUID targetID;
- if (!UUID.TryParse(target, out targetID))
- return;
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_CHANGE_LINKS) == 0
- && !m_automaticLinkPermission)
- {
- ShoutError("Script trying to link but PERMISSION_CHANGE_LINKS permission not set!");
- return;
- }
- IClientAPI client = null;
- ScenePresence sp = World.GetScenePresence(m_item.PermsGranter);
- if (sp != null)
- client = sp.ControllingClient;
- SceneObjectPart targetPart = World.GetSceneObjectPart((UUID)targetID);
- if (targetPart.ParentGroup.AttachmentPoint != 0)
- return; // Fail silently if attached
- if (targetPart.ParentGroup.RootPart.OwnerID != m_host.ParentGroup.RootPart.OwnerID)
- return;
- SceneObjectGroup parentPrim = null, childPrim = null;
- if (targetPart != null)
- {
- if (parent != 0)
- {
- parentPrim = m_host.ParentGroup;
- childPrim = targetPart.ParentGroup;
- }
- else
- {
- parentPrim = targetPart.ParentGroup;
- childPrim = m_host.ParentGroup;
- }
- // Required for linking
- childPrim.RootPart.ClearUpdateSchedule();
- parentPrim.LinkToGroup(childPrim, true);
- }
- parentPrim.TriggerScriptChangedEvent(Changed.LINK);
- parentPrim.RootPart.CreateSelected = true;
- parentPrim.HasGroupChanged = true;
- parentPrim.ScheduleGroupForFullUpdate();
- if (client != null)
- parentPrim.SendPropertiesToClient(client);
- ScriptSleep(1000);
- }
- public void llBreakLink(int linknum)
- {
- m_host.AddScriptLPS(1);
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_CHANGE_LINKS) == 0
- && !m_automaticLinkPermission)
- {
- ShoutError("Script trying to link but PERMISSION_CHANGE_LINKS permission not set!");
- return;
- }
- if (linknum < ScriptBaseClass.LINK_THIS)
- return;
- SceneObjectGroup parentPrim = m_host.ParentGroup;
- if (parentPrim.AttachmentPoint != 0)
- return; // Fail silently if attached
- SceneObjectPart childPrim = null;
- switch (linknum)
- {
- case ScriptBaseClass.LINK_ROOT:
- break;
- case ScriptBaseClass.LINK_SET:
- case ScriptBaseClass.LINK_ALL_OTHERS:
- case ScriptBaseClass.LINK_ALL_CHILDREN:
- case ScriptBaseClass.LINK_THIS:
- foreach (SceneObjectPart part in parentPrim.Parts)
- {
- if (part.UUID != m_host.UUID)
- {
- childPrim = part;
- break;
- }
- }
- break;
- default:
- childPrim = parentPrim.GetLinkNumPart(linknum);
- if (childPrim.UUID == m_host.UUID)
- childPrim = null;
- break;
- }
- if (linknum == ScriptBaseClass.LINK_ROOT)
- {
- // Restructuring Multiple Prims.
- List<SceneObjectPart> parts = new List<SceneObjectPart>(parentPrim.Parts);
- parts.Remove(parentPrim.RootPart);
- foreach (SceneObjectPart part in parts)
- {
- parentPrim.DelinkFromGroup(part.LocalId, true);
- }
- parentPrim.HasGroupChanged = true;
- parentPrim.ScheduleGroupForFullUpdate();
- parentPrim.TriggerScriptChangedEvent(Changed.LINK);
- if (parts.Count > 0)
- {
- SceneObjectPart newRoot = parts[0];
- parts.Remove(newRoot);
- foreach (SceneObjectPart part in parts)
- {
- // Required for linking
- part.ClearUpdateSchedule();
- newRoot.ParentGroup.LinkToGroup(part.ParentGroup);
- }
- newRoot.ParentGroup.HasGroupChanged = true;
- newRoot.ParentGroup.ScheduleGroupForFullUpdate();
- }
- }
- else
- {
- if (childPrim == null)
- return;
- parentPrim.DelinkFromGroup(childPrim.LocalId, true);
- parentPrim.HasGroupChanged = true;
- parentPrim.ScheduleGroupForFullUpdate();
- parentPrim.TriggerScriptChangedEvent(Changed.LINK);
- }
- }
- public void llBreakAllLinks()
- {
- m_host.AddScriptLPS(1);
- SceneObjectGroup parentPrim = m_host.ParentGroup;
- if (parentPrim.AttachmentPoint != 0)
- return; // Fail silently if attached
- List<SceneObjectPart> parts = new List<SceneObjectPart>(parentPrim.Parts);
- parts.Remove(parentPrim.RootPart);
- foreach (SceneObjectPart part in parts)
- {
- parentPrim.DelinkFromGroup(part.LocalId, true);
- parentPrim.TriggerScriptChangedEvent(Changed.LINK);
- }
- parentPrim.HasGroupChanged = true;
- parentPrim.ScheduleGroupForFullUpdate();
- }
- public LSL_String llGetLinkKey(int linknum)
- {
- m_host.AddScriptLPS(1);
- List<UUID> keytable = new List<UUID>();
- // parse for sitting avatare-uuids
- World.ForEachRootScenePresence(delegate(ScenePresence presence)
- {
- if (presence.ParentID != 0 && m_host.ParentGroup.ContainsPart(presence.ParentID))
- keytable.Add(presence.UUID);
- });
- int totalprims = m_host.ParentGroup.PrimCount + keytable.Count;
- if (linknum > m_host.ParentGroup.PrimCount && linknum <= totalprims)
- {
- return keytable[totalprims - linknum].ToString();
- }
- if (linknum == 1 && m_host.ParentGroup.PrimCount == 1 && keytable.Count == 1)
- {
- return m_host.UUID.ToString();
- }
- SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknum);
- if (part != null)
- {
- return part.UUID.ToString();
- }
- else
- {
- return UUID.Zero.ToString();
- }
- }
- /// <summary>
- /// Returns the name of the child prim or seated avatar matching the
- /// specified link number.
- /// </summary>
- /// <param name="linknum">
- /// The number of a link in the linkset or a link-related constant.
- /// </param>
- /// <returns>
- /// The name determined to match the specified link number.
- /// </returns>
- /// <remarks>
- /// The rules governing the returned name are not simple. The only
- /// time a blank name is returned is if the target prim has a blank
- /// name. If no prim with the given link number can be found then
- /// usually NULL_KEY is returned but there are exceptions.
- ///
- /// In a single unlinked prim, A call with 0 returns the name, all
- /// other values for link number return NULL_KEY
- ///
- /// In link sets it is more complicated.
- ///
- /// If the script is in the root prim:-
- /// A zero link number returns NULL_KEY.
- /// Positive link numbers return the name of the prim, or NULL_KEY
- /// if a prim does not exist at that position.
- /// Negative link numbers return the name of the first child prim.
- ///
- /// If the script is in a child prim:-
- /// Link numbers 0 or 1 return the name of the root prim.
- /// Positive link numbers return the name of the prim or NULL_KEY
- /// if a prim does not exist at that position.
- /// Negative numbers return the name of the root prim.
- ///
- /// References
- /// http://lslwiki.net/lslwiki/wakka.php?wakka=llGetLinkName
- /// Mentions NULL_KEY being returned
- /// http://wiki.secondlife.com/wiki/LlGetLinkName
- /// Mentions using the LINK_* constants, some of which are negative
- /// </remarks>
- public LSL_String llGetLinkName(int linknum)
- {
- m_host.AddScriptLPS(1);
- // simplest case, this prims link number
- if (linknum == m_host.LinkNum || linknum == ScriptBaseClass.LINK_THIS)
- return m_host.Name;
- // parse for sitting avatare-names
- List<String> nametable = new List<String>();
- World.ForEachRootScenePresence(delegate(ScenePresence presence)
- {
- SceneObjectPart sitPart = presence.ParentPart;
- if (sitPart != null && m_host.ParentGroup.ContainsPart(sitPart.LocalId))
- nametable.Add(presence.ControllingClient.Name);
- });
- int totalprims = m_host.ParentGroup.PrimCount + nametable.Count;
- if (totalprims > m_host.ParentGroup.PrimCount)
- {
- // sitting Avatar-Name with negativ linknum / SinglePrim
- if (linknum < 0 && m_host.ParentGroup.PrimCount == 1 && nametable.Count == 1)
- return nametable[0];
- // Prim-Name / SinglePrim Sitting Avatar
- if (linknum == 1 && m_host.ParentGroup.PrimCount == 1 && nametable.Count == 1)
- return m_host.Name;
- // LinkNumber > of Real PrimSet = AvatarName
- if (linknum > m_host.ParentGroup.PrimCount && linknum <= totalprims)
- return nametable[totalprims - linknum];
- }
- // Single prim
- if (m_host.LinkNum == 0)
- {
- if (linknum == 0 || linknum == ScriptBaseClass.LINK_ROOT)
- return m_host.Name;
- else
- return UUID.Zero.ToString();
- }
- // Link set
- SceneObjectPart part = null;
- if (m_host.LinkNum == 1) // this is the Root prim
- {
- if (linknum < 0)
- part = m_host.ParentGroup.GetLinkNumPart(2);
- else
- part = m_host.ParentGroup.GetLinkNumPart(linknum);
- }
- else // this is a child prim
- {
- if (linknum < 2)
- part = m_host.ParentGroup.GetLinkNumPart(1);
- else
- part = m_host.ParentGroup.GetLinkNumPart(linknum);
- }
- if (part != null)
- return part.Name;
- else
- return UUID.Zero.ToString();
- }
- public LSL_Integer llGetInventoryNumber(int type)
- {
- m_host.AddScriptLPS(1);
- int count = 0;
- lock (m_host.TaskInventory)
- {
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Type == type || type == -1)
- {
- count = count + 1;
- }
- }
- }
- return count;
- }
- public LSL_String llGetInventoryName(int type, int number)
- {
- m_host.AddScriptLPS(1);
- ArrayList keys = new ArrayList();
- lock (m_host.TaskInventory)
- {
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Type == type || type == -1)
- {
- keys.Add(inv.Value.Name);
- }
- }
- }
- if (keys.Count == 0)
- {
- return String.Empty;
- }
- keys.Sort();
- if (keys.Count > number)
- {
- return (string)keys[number];
- }
- return String.Empty;
- }
- public LSL_Float llGetEnergy()
- {
- m_host.AddScriptLPS(1);
- // TODO: figure out real energy value
- return 1.0f;
- }
- public void llGiveInventory(string destination, string inventory)
- {
- m_host.AddScriptLPS(1);
- UUID destId = UUID.Zero;
- if (!UUID.TryParse(destination, out destId))
- {
- llSay(0, "Could not parse key " + destination);
- return;
- }
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(inventory);
- if (item == null)
- {
- llSay(0, String.Format("Could not find object '{0}'", inventory));
- throw new Exception(String.Format("The inventory object '{0}' could not be found", inventory));
- }
- UUID objId = item.ItemID;
- // check if destination is an object
- if (World.GetSceneObjectPart(destId) != null)
- {
- // destination is an object
- World.MoveTaskInventoryItem(destId, m_host, objId);
- }
- else
- {
- ScenePresence presence = World.GetScenePresence(destId);
- if (presence == null)
- {
- UserAccount account =
- World.UserAccountService.GetUserAccount(
- World.RegionInfo.ScopeID,
- destId);
- if (account == null)
- {
- llSay(0, "Can't find destination "+destId.ToString());
- return;
- }
- }
- // destination is an avatar
- InventoryItemBase agentItem = World.MoveTaskInventoryItem(destId, UUID.Zero, m_host, objId);
- if (agentItem == null)
- return;
- if (m_TransferModule != null)
- {
- byte[] bucket = new byte[] { (byte)item.Type };
- GridInstantMessage msg = new GridInstantMessage(World,
- m_host.UUID, m_host.Name + ", an object owned by " +
- resolveName(m_host.OwnerID) + ",", destId,
- (byte)InstantMessageDialog.TaskInventoryOffered,
- false, item.Name + "\n" + m_host.Name + " is located at " +
- World.RegionInfo.RegionName+" "+
- m_host.AbsolutePosition.ToString(),
- agentItem.ID, true, m_host.AbsolutePosition,
- bucket, true); // TODO: May actually send no timestamp
- m_TransferModule.SendInstantMessage(msg, delegate(bool success) {});
- }
- ScriptSleep(3000);
- }
- }
- public void llRemoveInventory(string name)
- {
- m_host.AddScriptLPS(1);
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(name);
- if (item == null)
- return;
- if (item.ItemID == m_item.ItemID)
- throw new ScriptDeleteException();
- else
- m_host.Inventory.RemoveInventoryItem(item.ItemID);
- }
- public void llSetText(string text, LSL_Vector color, double alpha)
- {
- m_host.AddScriptLPS(1);
- Vector3 av3 = Util.Clip(color, 0.0f, 1.0f);
- if (text.Length > 254)
- text = text.Remove(254);
- byte[] data;
- do
- {
- data = Util.UTF8.GetBytes(text);
- if (data.Length > 254)
- text = text.Substring(0, text.Length - 1);
- } while (data.Length > 254);
- m_host.SetText(text, av3, Util.Clip((float)alpha, 0.0f, 1.0f));
- //m_host.ParentGroup.HasGroupChanged = true;
- //m_host.ParentGroup.ScheduleGroupForFullUpdate();
- }
- public LSL_Float llWater(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- return World.RegionInfo.RegionSettings.WaterHeight;
- }
- public void llPassTouches(int pass)
- {
- m_host.AddScriptLPS(1);
- if (pass != 0)
- m_host.PassTouches = true;
- else
- m_host.PassTouches = false;
- }
- public LSL_String llRequestAgentData(string id, int data)
- {
- m_host.AddScriptLPS(1);
- UUID uuid = (UUID)id;
- PresenceInfo pinfo = null;
- UserAccount account;
- UserInfoCacheEntry ce;
- if (!m_userInfoCache.TryGetValue(uuid, out ce))
- {
- account = World.UserAccountService.GetUserAccount(World.RegionInfo.ScopeID, uuid);
- if (account == null)
- {
- m_userInfoCache[uuid] = null; // Cache negative
- return UUID.Zero.ToString();
- }
- PresenceInfo[] pinfos = World.PresenceService.GetAgents(new string[] { uuid.ToString() });
- if (pinfos != null && pinfos.Length > 0)
- {
- foreach (PresenceInfo p in pinfos)
- {
- if (p.RegionID != UUID.Zero)
- {
- pinfo = p;
- }
- }
- }
- ce = new UserInfoCacheEntry();
- ce.time = Util.EnvironmentTickCount();
- ce.account = account;
- ce.pinfo = pinfo;
- }
- else
- {
- if (ce == null)
- return UUID.Zero.ToString();
- account = ce.account;
- pinfo = ce.pinfo;
- }
- if (Util.EnvironmentTickCount() < ce.time || (Util.EnvironmentTickCount() - ce.time) >= 20000)
- {
- PresenceInfo[] pinfos = World.PresenceService.GetAgents(new string[] { uuid.ToString() });
- if (pinfos != null && pinfos.Length > 0)
- {
- foreach (PresenceInfo p in pinfos)
- {
- if (p.RegionID != UUID.Zero)
- {
- pinfo = p;
- }
- }
- }
- else
- pinfo = null;
- ce.time = Util.EnvironmentTickCount();
- ce.pinfo = pinfo;
- }
- string reply = String.Empty;
- switch (data)
- {
- case 1: // DATA_ONLINE (0|1)
- if (pinfo != null && pinfo.RegionID != UUID.Zero)
- reply = "1";
- else
- reply = "0";
- break;
- case 2: // DATA_NAME (First Last)
- reply = account.FirstName + " " + account.LastName;
- break;
- case 3: // DATA_BORN (YYYY-MM-DD)
- DateTime born = new DateTime(1970, 1, 1, 0, 0, 0, 0);
- born = born.AddSeconds(account.Created);
- reply = born.ToString("yyyy-MM-dd");
- break;
- case 4: // DATA_RATING (0,0,0,0,0,0)
- reply = "0,0,0,0,0,0";
- break;
- case 7: // DATA_USERLEVEL (integer)
- reply = account.UserLevel.ToString();
- break;
- case 8: // DATA_PAYINFO (0|1|2|3)
- reply = "0";
- break;
- default:
- return UUID.Zero.ToString(); // Raise no event
- }
- UUID rq = UUID.Random();
- UUID tid = AsyncCommands.
- DataserverPlugin.RegisterRequest(m_host.LocalId,
- m_item.ItemID, rq.ToString());
- AsyncCommands.
- DataserverPlugin.DataserverReply(rq.ToString(), reply);
- ScriptSleep(100);
- return tid.ToString();
- }
- public LSL_String llRequestInventoryData(string name)
- {
- m_host.AddScriptLPS(1);
- foreach (TaskInventoryItem item in m_host.Inventory.GetInventoryItems())
- {
- if (item.Type == 3 && item.Name == name)
- {
- UUID tid = AsyncCommands.
- DataserverPlugin.RegisterRequest(m_host.LocalId,
- m_item.ItemID, item.AssetID.ToString());
- Vector3 region = new Vector3(
- World.RegionInfo.RegionLocX * Constants.RegionSize,
- World.RegionInfo.RegionLocY * Constants.RegionSize,
- 0);
- World.AssetService.Get(item.AssetID.ToString(), this,
- delegate(string i, object sender, AssetBase a)
- {
- AssetLandmark lm = new AssetLandmark(a);
- float rx = (uint)(lm.RegionHandle >> 32);
- float ry = (uint)lm.RegionHandle;
- region = lm.Position + new Vector3(rx, ry, 0) - region;
- string reply = region.ToString();
- AsyncCommands.
- DataserverPlugin.DataserverReply(i.ToString(),
- reply);
- });
- ScriptSleep(1000);
- return tid.ToString();
- }
- }
- ScriptSleep(1000);
- return String.Empty;
- }
- public void llSetDamage(double damage)
- {
- m_host.AddScriptLPS(1);
- m_host.ParentGroup.Damage = (float)damage;
- }
- public void llTeleportAgentHome(string agent)
- {
- m_host.AddScriptLPS(1);
- UUID agentId = new UUID();
- if (UUID.TryParse(agent, out agentId))
- {
- ScenePresence presence = World.GetScenePresence(agentId);
- if (presence != null)
- {
- // agent must be over the owners land
- if (m_host.OwnerID == World.LandChannel.GetLandObject(
- presence.AbsolutePosition.X, presence.AbsolutePosition.Y).LandData.OwnerID)
- {
- World.TeleportClientHome(agentId, presence.ControllingClient);
- }
- }
- }
- ScriptSleep(5000);
- }
- public void llTeleportAgent(string agent, string destination, LSL_Vector targetPos, LSL_Vector targetLookAt)
- {
- m_host.AddScriptLPS(1);
- UUID agentId = new UUID();
- if (UUID.TryParse(agent, out agentId))
- {
- ScenePresence presence = World.GetScenePresence(agentId);
- if (presence != null && presence.PresenceType != PresenceType.Npc)
- {
- // agent must not be a god
- if (presence.GodLevel >= 200) return;
- if (destination == String.Empty)
- destination = World.RegionInfo.RegionName;
- // agent must be over the owners land
- if (m_host.OwnerID == World.LandChannel.GetLandObject(
- presence.AbsolutePosition.X, presence.AbsolutePosition.Y).LandData.OwnerID)
- {
- DoLLTeleport(presence, destination, targetPos, targetLookAt);
- }
- else // or must be wearing the prim
- {
- if (m_host.ParentGroup.AttachmentPoint != 0 && m_host.OwnerID == presence.UUID)
- {
- DoLLTeleport(presence, destination, targetPos, targetLookAt);
- }
- }
- }
- }
- }
- public void llTeleportAgentGlobalCoords(string agent, LSL_Vector global_coords, LSL_Vector targetPos, LSL_Vector targetLookAt)
- {
- m_host.AddScriptLPS(1);
- UUID agentId = new UUID();
- ulong regionHandle = Utils.UIntsToLong((uint)global_coords.x, (uint)global_coords.y);
- if (UUID.TryParse(agent, out agentId))
- {
- ScenePresence presence = World.GetScenePresence(agentId);
- if (presence != null && presence.PresenceType != PresenceType.Npc)
- {
- // agent must not be a god
- if (presence.GodLevel >= 200) return;
- // agent must be over the owners land
- if (m_host.OwnerID == World.LandChannel.GetLandObject(
- presence.AbsolutePosition.X, presence.AbsolutePosition.Y).LandData.OwnerID)
- {
- World.RequestTeleportLocation(presence.ControllingClient, regionHandle, targetPos, targetLookAt, (uint)TeleportFlags.ViaLocation);
- }
- else // or must be wearing the prim
- {
- if (m_host.ParentGroup.AttachmentPoint != 0 && m_host.OwnerID == presence.UUID)
- {
- World.RequestTeleportLocation(presence.ControllingClient, regionHandle, targetPos, targetLookAt, (uint)TeleportFlags.ViaLocation);
- }
- }
- }
- }
- }
- private void DoLLTeleport(ScenePresence sp, string destination, Vector3 targetPos, Vector3 targetLookAt)
- {
- UUID assetID = KeyOrName(destination);
- // The destinaion is not an asset ID and also doesn't name a landmark.
- // Use it as a sim name
- if (assetID == UUID.Zero)
- {
- World.RequestTeleportLocation(sp.ControllingClient, destination, targetPos, targetLookAt, (uint)TeleportFlags.ViaLocation);
- return;
- }
- AssetBase lma = World.AssetService.Get(assetID.ToString());
- if (lma == null)
- return;
- if (lma.Type != (sbyte)AssetType.Landmark)
- return;
- AssetLandmark lm = new AssetLandmark(lma);
- World.RequestTeleportLocation(sp.ControllingClient, lm.RegionHandle, targetPos, targetLookAt, (uint)TeleportFlags.ViaLocation);
- }
- public void llTextBox(string agent, string message, int chatChannel)
- {
- IDialogModule dm = World.RequestModuleInterface<IDialogModule>();
- if (dm == null)
- return;
- m_host.AddScriptLPS(1);
- UUID av = new UUID();
- if (!UUID.TryParse(agent,out av))
- {
- LSLError("First parameter to llDialog needs to be a key");
- return;
- }
- if (message == string.Empty)
- {
- ShoutError("Trying to use llTextBox with empty message.");
- }
- else if (message.Length > 512)
- {
- ShoutError("Trying to use llTextBox with message over 512 characters.");
- }
- else
- {
- dm.SendTextBoxToUser(av, message, chatChannel, m_host.Name, m_host.UUID, m_host.OwnerID);
- ScriptSleep(1000);
- }
- }
- public void llModifyLand(int action, int brush)
- {
- m_host.AddScriptLPS(1);
- ITerrainModule tm = m_ScriptEngine.World.RequestModuleInterface<ITerrainModule>();
- if (tm != null)
- {
- tm.ModifyTerrain(m_host.OwnerID, m_host.AbsolutePosition, (byte) brush, (byte) action, m_host.OwnerID);
- }
- }
- public void llCollisionSound(string impact_sound, double impact_volume)
- {
- m_host.AddScriptLPS(1);
-
- // TODO: Parameter check logic required.
- m_host.CollisionSound = KeyOrName(impact_sound, AssetType.Sound);
- m_host.CollisionSoundVolume = (float)impact_volume;
- }
- public LSL_String llGetAnimation(string id)
- {
- // This should only return a value if the avatar is in the same region
- m_host.AddScriptLPS(1);
- UUID avatar = (UUID)id;
- ScenePresence presence = World.GetScenePresence(avatar);
- if (presence == null)
- return "";
- if (m_host.RegionHandle == presence.RegionHandle)
- {
- Dictionary<UUID, string> animationstateNames = DefaultAvatarAnimations.AnimStateNames;
- if (presence != null)
- {
- AnimationSet currentAnims = presence.Animator.Animations;
- string currentAnimationState = String.Empty;
- if (animationstateNames.TryGetValue(currentAnims.ImplicitDefaultAnimation.AnimID, out currentAnimationState))
- return currentAnimationState;
- }
- }
- return String.Empty;
- }
- public void llMessageLinked(int linknumber, int num, string msg, string id)
- {
- m_host.AddScriptLPS(1);
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- UUID partItemID;
- foreach (SceneObjectPart part in parts)
- {
- foreach (TaskInventoryItem item in part.Inventory.GetInventoryItems())
- {
- if (item.Type == ScriptBaseClass.INVENTORY_SCRIPT)
- {
- partItemID = item.ItemID;
- int linkNumber = m_host.LinkNum;
- if (m_host.ParentGroup.PrimCount == 1)
- linkNumber = 0;
- object[] resobj = new object[]
- {
- new LSL_Integer(linkNumber), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id)
- };
- m_ScriptEngine.PostScriptEvent(partItemID,
- new EventParams("link_message",
- resobj, new DetectParams[0]));
- }
- }
- }
- }
- public void llPushObject(string target, LSL_Vector impulse, LSL_Vector ang_impulse, int local)
- {
- m_host.AddScriptLPS(1);
- bool pushrestricted = World.RegionInfo.RegionSettings.RestrictPushing;
- bool pushAllowed = false;
- bool pusheeIsAvatar = false;
- UUID targetID = UUID.Zero;
- if (!UUID.TryParse(target,out targetID))
- return;
- ScenePresence pusheeav = null;
- Vector3 PusheePos = Vector3.Zero;
- SceneObjectPart pusheeob = null;
- ScenePresence avatar = World.GetScenePresence(targetID);
- if (avatar != null)
- {
- pusheeIsAvatar = true;
- // Pushee doesn't have a physics actor
- if (avatar.PhysicsActor == null)
- return;
- // Pushee is in GodMode this pushing object isn't owned by them
- if (avatar.GodLevel > 0 && m_host.OwnerID != targetID)
- return;
- pusheeav = avatar;
- // Find pushee position
- // Pushee Linked?
- SceneObjectPart sitPart = pusheeav.ParentPart;
- if (sitPart != null)
- PusheePos = sitPart.AbsolutePosition;
- else
- PusheePos = pusheeav.AbsolutePosition;
- }
- if (!pusheeIsAvatar)
- {
- // not an avatar so push is not affected by parcel flags
- pusheeob = World.GetSceneObjectPart((UUID)target);
- // We can't find object
- if (pusheeob == null)
- return;
- // Object not pushable. Not an attachment and has no physics component
- if (!pusheeob.ParentGroup.IsAttachment && pusheeob.PhysActor == null)
- return;
- PusheePos = pusheeob.AbsolutePosition;
- pushAllowed = true;
- }
- else
- {
- if (pushrestricted)
- {
- ILandObject targetlandObj = World.LandChannel.GetLandObject(PusheePos.X, PusheePos.Y);
- // We didn't find the parcel but region is push restricted so assume it is NOT ok
- if (targetlandObj == null)
- return;
- // Need provisions for Group Owned here
- if (m_host.OwnerID == targetlandObj.LandData.OwnerID ||
- targetlandObj.LandData.IsGroupOwned || m_host.OwnerID == targetID)
- {
- pushAllowed = true;
- }
- }
- else
- {
- ILandObject targetlandObj = World.LandChannel.GetLandObject(PusheePos.X, PusheePos.Y);
- if (targetlandObj == null)
- {
- // We didn't find the parcel but region isn't push restricted so assume it's ok
- pushAllowed = true;
- }
- else
- {
- // Parcel push restriction
- if ((targetlandObj.LandData.Flags & (uint)ParcelFlags.RestrictPushObject) == (uint)ParcelFlags.RestrictPushObject)
- {
- // Need provisions for Group Owned here
- if (m_host.OwnerID == targetlandObj.LandData.OwnerID ||
- targetlandObj.LandData.IsGroupOwned ||
- m_host.OwnerID == targetID)
- {
- pushAllowed = true;
- }
- //ParcelFlags.RestrictPushObject
- //pushAllowed = true;
- }
- else
- {
- // Parcel isn't push restricted
- pushAllowed = true;
- }
- }
- }
- }
- if (pushAllowed)
- {
- float distance = (PusheePos - m_host.AbsolutePosition).Length();
- float distance_term = distance * distance * distance; // Script Energy
- float pusher_mass = m_host.GetMass();
- float PUSH_ATTENUATION_DISTANCE = 17f;
- float PUSH_ATTENUATION_SCALE = 5f;
- float distance_attenuation = 1f;
- if (distance > PUSH_ATTENUATION_DISTANCE)
- {
- float normalized_units = 1f + (distance - PUSH_ATTENUATION_DISTANCE) / PUSH_ATTENUATION_SCALE;
- distance_attenuation = 1f / normalized_units;
- }
- Vector3 applied_linear_impulse = impulse;
- {
- float impulse_length = applied_linear_impulse.Length();
- float desired_energy = impulse_length * pusher_mass;
- if (desired_energy > 0f)
- desired_energy += distance_term;
- float scaling_factor = 1f;
- scaling_factor *= distance_attenuation;
- applied_linear_impulse *= scaling_factor;
- }
- if (pusheeIsAvatar)
- {
- if (pusheeav != null)
- {
- if (pusheeav.PhysicsActor != null)
- {
- if (local != 0)
- {
- applied_linear_impulse *= m_host.GetWorldRotation();
- }
- pusheeav.PhysicsActor.AddForce(applied_linear_impulse, true);
- }
- }
- }
- else
- {
- if (pusheeob != null)
- {
- if (pusheeob.PhysActor != null)
- {
- pusheeob.ApplyImpulse(applied_linear_impulse, local != 0);
- }
- }
- }
- }
- }
- public void llPassCollisions(int pass)
- {
- m_host.AddScriptLPS(1);
- if (pass == 0)
- {
- m_host.PassCollisions = false;
- }
- else
- {
- m_host.PassCollisions = true;
- }
- }
- public LSL_String llGetScriptName()
- {
- m_host.AddScriptLPS(1);
- return m_item.Name != null ? m_item.Name : String.Empty;
- }
- public LSL_Integer llGetLinkNumberOfSides(int link)
- {
- m_host.AddScriptLPS(1);
- SceneObjectPart linkedPart;
- if (link == ScriptBaseClass.LINK_ROOT)
- linkedPart = m_host.ParentGroup.RootPart;
- else if (link == ScriptBaseClass.LINK_THIS)
- linkedPart = m_host;
- else
- linkedPart = m_host.ParentGroup.GetLinkNumPart(link);
- return GetNumberOfSides(linkedPart);
- }
- public LSL_Integer llGetNumberOfSides()
- {
- m_host.AddScriptLPS(1);
- return GetNumberOfSides(m_host);
- }
- protected int GetNumberOfSides(SceneObjectPart part)
- {
- int sides = part.GetNumberOfSides();
- if (part.GetPrimType() == PrimType.SPHERE && part.Shape.ProfileHollow > 0)
- {
- // Make up for a bug where LSL shows 4 sides rather than 2
- sides += 2;
- }
- return sides;
- }
- /* The new / changed functions were tested with the following LSL script:
- default
- {
- state_entry()
- {
- rotation rot = llEuler2Rot(<0,70,0> * DEG_TO_RAD);
- llOwnerSay("to get here, we rotate over: "+ (string) llRot2Axis(rot));
- llOwnerSay("and we rotate for: "+ (llRot2Angle(rot) * RAD_TO_DEG));
- // convert back and forth between quaternion <-> vector and angle
- rotation newrot = llAxisAngle2Rot(llRot2Axis(rot),llRot2Angle(rot));
- llOwnerSay("Old rotation was: "+(string) rot);
- llOwnerSay("re-converted rotation is: "+(string) newrot);
- llSetRot(rot); // to check the parameters in the prim
- }
- }
- */
- // Xantor 29/apr/2008
- // Returns rotation described by rotating angle radians about axis.
- // q = cos(a/2) + i (x * sin(a/2)) + j (y * sin(a/2)) + k (z * sin(a/2))
- public LSL_Rotation llAxisAngle2Rot(LSL_Vector axis, double angle)
- {
- m_host.AddScriptLPS(1);
- double x, y, z, s, t;
- s = Math.Cos(angle * 0.5);
- t = Math.Sin(angle * 0.5); // temp value to avoid 2 more sin() calcs
- x = axis.x * t;
- y = axis.y * t;
- z = axis.z * t;
- return new LSL_Rotation(x,y,z,s);
- }
- // Xantor 29/apr/2008
- // converts a Quaternion to X,Y,Z axis rotations
- public LSL_Vector llRot2Axis(LSL_Rotation rot)
- {
- m_host.AddScriptLPS(1);
- double x,y,z;
- if (rot.s > 1) // normalization needed
- {
- double length = Math.Sqrt(rot.x * rot.x + rot.y * rot.y +
- rot.z * rot.z + rot.s * rot.s);
- rot.x /= length;
- rot.y /= length;
- rot.z /= length;
- rot.s /= length;
- }
- // double angle = 2 * Math.Acos(rot.s);
- double s = Math.Sqrt(1 - rot.s * rot.s);
- if (s < 0.001)
- {
- x = 1;
- y = z = 0;
- }
- else
- {
- x = rot.x / s; // normalise axis
- y = rot.y / s;
- z = rot.z / s;
- }
- return new LSL_Vector(x,y,z);
- }
- // Returns the angle of a quaternion (see llRot2Axis for the axis)
- public LSL_Float llRot2Angle(LSL_Rotation rot)
- {
- m_host.AddScriptLPS(1);
- if (rot.s > 1) // normalization needed
- {
- double length = Math.Sqrt(rot.x * rot.x + rot.y * rot.y +
- rot.z * rot.z + rot.s * rot.s);
- rot.x /= length;
- rot.y /= length;
- rot.z /= length;
- rot.s /= length;
- }
- double angle = 2 * Math.Acos(rot.s);
- return angle;
- }
- public LSL_Float llAcos(double val)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Acos(val);
- }
- public LSL_Float llAsin(double val)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Asin(val);
- }
- // jcochran 5/jan/2012
- public LSL_Float llAngleBetween(LSL_Rotation a, LSL_Rotation b)
- {
- m_host.AddScriptLPS(1);
- double aa = (a.x * a.x + a.y * a.y + a.z * a.z + a.s * a.s);
- double bb = (b.x * b.x + b.y * b.y + b.z * b.z + b.s * b.s);
- double aa_bb = aa * bb;
- if (aa_bb == 0) return 0.0;
- double ab = (a.x * b.x + a.y * b.y + a.z * b.z + a.s * b.s);
- double quotient = (ab * ab) / aa_bb;
- if (quotient >= 1.0) return 0.0;
- return Math.Acos(2 * quotient - 1);
- }
- public LSL_String llGetInventoryKey(string name)
- {
- m_host.AddScriptLPS(1);
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(name);
- if (item == null)
- return UUID.Zero.ToString();
- if ((item.CurrentPermissions
- & (uint)(PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify))
- == (uint)(PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify))
- {
- return item.AssetID.ToString();
- }
- return UUID.Zero.ToString();
- }
- public void llAllowInventoryDrop(int add)
- {
- m_host.AddScriptLPS(1);
- if (add != 0)
- m_host.ParentGroup.RootPart.AllowedDrop = true;
- else
- m_host.ParentGroup.RootPart.AllowedDrop = false;
- // Update the object flags
- m_host.ParentGroup.RootPart.aggregateScriptEvents();
- }
- public LSL_Vector llGetSunDirection()
- {
- m_host.AddScriptLPS(1);
- LSL_Vector SunDoubleVector3;
- Vector3 SunFloatVector3;
- // sunPosition estate setting is set in OpenSim.Region.CoreModules.SunModule
- // have to convert from Vector3 (float) to LSL_Vector (double)
- SunFloatVector3 = World.RegionInfo.RegionSettings.SunVector;
- SunDoubleVector3.x = (double)SunFloatVector3.X;
- SunDoubleVector3.y = (double)SunFloatVector3.Y;
- SunDoubleVector3.z = (double)SunFloatVector3.Z;
- return SunDoubleVector3;
- }
- public LSL_Vector llGetTextureOffset(int face)
- {
- m_host.AddScriptLPS(1);
- return GetTextureOffset(m_host, face);
- }
- protected LSL_Vector GetTextureOffset(SceneObjectPart part, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- LSL_Vector offset = new LSL_Vector();
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- face = 0;
- }
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- offset.x = tex.GetFace((uint)face).OffsetU;
- offset.y = tex.GetFace((uint)face).OffsetV;
- offset.z = 0.0;
- return offset;
- }
- else
- {
- return offset;
- }
- }
- public LSL_Vector llGetTextureScale(int side)
- {
- m_host.AddScriptLPS(1);
- Primitive.TextureEntry tex = m_host.Shape.Textures;
- LSL_Vector scale;
- if (side == -1)
- {
- side = 0;
- }
- scale.x = tex.GetFace((uint)side).RepeatU;
- scale.y = tex.GetFace((uint)side).RepeatV;
- scale.z = 0.0;
- return scale;
- }
- public LSL_Float llGetTextureRot(int face)
- {
- m_host.AddScriptLPS(1);
- return GetTextureRot(m_host, face);
- }
- protected LSL_Float GetTextureRot(SceneObjectPart part, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face == -1)
- {
- face = 0;
- }
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- return tex.GetFace((uint)face).Rotation;
- }
- else
- {
- return 0.0;
- }
- }
- public LSL_Integer llSubStringIndex(string source, string pattern)
- {
- m_host.AddScriptLPS(1);
- return source.IndexOf(pattern);
- }
- public LSL_String llGetOwnerKey(string id)
- {
- m_host.AddScriptLPS(1);
- UUID key = new UUID();
- if (UUID.TryParse(id, out key))
- {
- try
- {
- SceneObjectPart obj = World.GetSceneObjectPart(key);
- if (obj == null)
- return id; // the key is for an agent so just return the key
- else
- return obj.OwnerID.ToString();
- }
- catch (KeyNotFoundException)
- {
- return id; // The Object/Agent not in the region so just return the key
- }
- }
- else
- {
- return UUID.Zero.ToString();
- }
- }
- public LSL_Vector llGetCenterOfMass()
- {
- m_host.AddScriptLPS(1);
- Vector3 center = m_host.GetGeometricCenter();
- return new LSL_Vector(center.X,center.Y,center.Z);
- }
- public LSL_List llListSort(LSL_List src, int stride, int ascending)
- {
- m_host.AddScriptLPS(1);
- if (stride <= 0)
- {
- stride = 1;
- }
- return src.Sort(stride, ascending);
- }
- public LSL_Integer llGetListLength(LSL_List src)
- {
- m_host.AddScriptLPS(1);
- if (src == null)
- {
- return 0;
- }
- else
- {
- return src.Length;
- }
- }
- public LSL_Integer llList2Integer(LSL_List src, int index)
- {
- m_host.AddScriptLPS(1);
- if (index < 0)
- {
- index = src.Length + index;
- }
- if (index >= src.Length || index < 0)
- {
- return 0;
- }
- // Vectors & Rotations always return zero in SL, but
- // keys don't always return zero, it seems to be a bit complex.
- else if (src.Data[index] is LSL_Vector ||
- src.Data[index] is LSL_Rotation)
- {
- return 0;
- }
- try
- {
- if (src.Data[index] is LSL_Integer)
- return (LSL_Integer)src.Data[index];
- else if (src.Data[index] is LSL_Float)
- return Convert.ToInt32(((LSL_Float)src.Data[index]).value);
- return new LSL_Integer(src.Data[index].ToString());
- }
- catch (FormatException)
- {
- return 0;
- }
- }
- public LSL_Float llList2Float(LSL_List src, int index)
- {
- m_host.AddScriptLPS(1);
- if (index < 0)
- {
- index = src.Length + index;
- }
- if (index >= src.Length || index < 0)
- {
- return 0.0;
- }
- // Vectors & Rotations always return zero in SL
- else if (src.Data[index] is LSL_Vector ||
- src.Data[index] is LSL_Rotation)
- {
- return 0;
- }
- // valid keys seem to get parsed as integers then converted to floats
- else
- {
- UUID uuidt;
- if (src.Data[index] is LSL_Key && UUID.TryParse(src.Data[index].ToString(), out uuidt))
- {
- return Convert.ToDouble(new LSL_Integer(src.Data[index].ToString()).value);
- }
- }
- try
- {
- if (src.Data[index] is LSL_Integer)
- return Convert.ToDouble(((LSL_Integer)src.Data[index]).value);
- else if (src.Data[index] is LSL_Float)
- return Convert.ToDouble(((LSL_Float)src.Data[index]).value);
- else if (src.Data[index] is LSL_String)
- return Convert.ToDouble(((LSL_String)src.Data[index]).m_string);
- return Convert.ToDouble(src.Data[index]);
- }
- catch (FormatException)
- {
- return 0.0;
- }
- }
- public LSL_String llList2String(LSL_List src, int index)
- {
- m_host.AddScriptLPS(1);
- if (index < 0)
- {
- index = src.Length + index;
- }
- if (index >= src.Length || index < 0)
- {
- return String.Empty;
- }
- return src.Data[index].ToString();
- }
- public LSL_Key llList2Key(LSL_List src, int index)
- {
- m_host.AddScriptLPS(1);
- if (index < 0)
- {
- index = src.Length + index;
- }
- if (index >= src.Length || index < 0)
- {
- return "";
- }
- // SL spits out an empty string for types other than key & string
- // At the time of patching, LSL_Key is currently LSL_String,
- // so the OR check may be a little redundant, but it's being done
- // for completion and should LSL_Key ever be implemented
- // as it's own struct
- else if (!(src.Data[index] is LSL_String ||
- src.Data[index] is LSL_Key))
- {
- return "";
- }
- return src.Data[index].ToString();
- }
- public LSL_Vector llList2Vector(LSL_List src, int index)
- {
- m_host.AddScriptLPS(1);
- if (index < 0)
- {
- index = src.Length + index;
- }
- if (index >= src.Length || index < 0)
- {
- return new LSL_Vector(0, 0, 0);
- }
- if (src.Data[index].GetType() == typeof(LSL_Vector))
- {
- return (LSL_Vector)src.Data[index];
- }
- // SL spits always out ZERO_VECTOR for anything other than
- // strings or vectors. Although keys always return ZERO_VECTOR,
- // it is currently difficult to make the distinction between
- // a string, a key as string and a string that by coincidence
- // is a string, so we're going to leave that up to the
- // LSL_Vector constructor.
- else if (!(src.Data[index] is LSL_String ||
- src.Data[index] is LSL_Vector))
- {
- return new LSL_Vector(0, 0, 0);
- }
- else
- {
- return new LSL_Vector(src.Data[index].ToString());
- }
- }
- public LSL_Rotation llList2Rot(LSL_List src, int index)
- {
- m_host.AddScriptLPS(1);
- if (index < 0)
- {
- index = src.Length + index;
- }
- if (index >= src.Length || index < 0)
- {
- return new LSL_Rotation(0, 0, 0, 1);
- }
- // SL spits always out ZERO_ROTATION for anything other than
- // strings or vectors. Although keys always return ZERO_ROTATION,
- // it is currently difficult to make the distinction between
- // a string, a key as string and a string that by coincidence
- // is a string, so we're going to leave that up to the
- // LSL_Rotation constructor.
- else if (!(src.Data[index] is LSL_String ||
- src.Data[index] is LSL_Rotation))
- {
- return new LSL_Rotation(0, 0, 0, 1);
- }
- else if (src.Data[index].GetType() == typeof(LSL_Rotation))
- {
- return (LSL_Rotation)src.Data[index];
- }
- else
- {
- return new LSL_Rotation(src.Data[index].ToString());
- }
- }
- public LSL_List llList2List(LSL_List src, int start, int end)
- {
- m_host.AddScriptLPS(1);
- return src.GetSublist(start, end);
- }
- public LSL_List llDeleteSubList(LSL_List src, int start, int end)
- {
- return src.DeleteSublist(start, end);
- }
- public LSL_Integer llGetListEntryType(LSL_List src, int index)
- {
- m_host.AddScriptLPS(1);
- if (index < 0)
- {
- index = src.Length + index;
- }
- if (index >= src.Length)
- {
- return 0;
- }
- if (src.Data[index] is LSL_Integer || src.Data[index] is Int32)
- return 1;
- if (src.Data[index] is LSL_Float || src.Data[index] is Single || src.Data[index] is Double)
- return 2;
- if (src.Data[index] is LSL_String || src.Data[index] is String)
- {
- UUID tuuid;
- if (UUID.TryParse(src.Data[index].ToString(), out tuuid))
- {
- return 4;
- }
- else
- {
- return 3;
- }
- }
- if (src.Data[index] is LSL_Vector)
- return 5;
- if (src.Data[index] is LSL_Rotation)
- return 6;
- if (src.Data[index] is LSL_List)
- return 7;
- return 0;
- }
- /// <summary>
- /// Process the supplied list and return the
- /// content of the list formatted as a comma
- /// separated list. There is a space after
- /// each comma.
- /// </summary>
- public LSL_String llList2CSV(LSL_List src)
- {
- m_host.AddScriptLPS(1);
- return string.Join(", ",
- (new List<object>(src.Data)).ConvertAll<string>(o =>
- {
- return o.ToString();
- }).ToArray());
- }
- /// <summary>
- /// The supplied string is scanned for commas
- /// and converted into a list. Commas are only
- /// effective if they are encountered outside
- /// of '<' '>' delimiters. Any whitespace
- /// before or after an element is trimmed.
- /// </summary>
- public LSL_List llCSV2List(string src)
- {
- LSL_List result = new LSL_List();
- int parens = 0;
- int start = 0;
- int length = 0;
- m_host.AddScriptLPS(1);
- for (int i = 0; i < src.Length; i++)
- {
- switch (src[i])
- {
- case '<':
- parens++;
- length++;
- break;
- case '>':
- if (parens > 0)
- parens--;
- length++;
- break;
- case ',':
- if (parens == 0)
- {
- result.Add(new LSL_String(src.Substring(start,length).Trim()));
- start += length+1;
- length = 0;
- }
- else
- {
- length++;
- }
- break;
- default:
- length++;
- break;
- }
- }
- result.Add(new LSL_String(src.Substring(start,length).Trim()));
- return result;
- }
- /// <summary>
- /// Randomizes the list, be arbitrarily reordering
- /// sublists of stride elements. As the stride approaches
- /// the size of the list, the options become very
- /// limited.
- /// </summary>
- /// <remarks>
- /// This could take a while for very large list
- /// sizes.
- /// </remarks>
- public LSL_List llListRandomize(LSL_List src, int stride)
- {
- LSL_List result;
- Random rand = new Random();
- int chunkk;
- int[] chunks;
- m_host.AddScriptLPS(1);
- if (stride <= 0)
- {
- stride = 1;
- }
- // Stride MUST be a factor of the list length
- // If not, then return the src list. This also
- // traps those cases where stride > length.
- if (src.Length != stride && src.Length%stride == 0)
- {
- chunkk = src.Length/stride;
- chunks = new int[chunkk];
- for (int i = 0; i < chunkk; i++)
- chunks[i] = i;
- // Knuth shuffle the chunkk index
- for (int i = chunkk - 1; i >= 1; i--)
- {
- // Elect an unrandomized chunk to swap
- int index = rand.Next(i + 1);
- int tmp;
- // and swap position with first unrandomized chunk
- tmp = chunks[i];
- chunks[i] = chunks[index];
- chunks[index] = tmp;
- }
- // Construct the randomized list
- result = new LSL_List();
- for (int i = 0; i < chunkk; i++)
- {
- for (int j = 0; j < stride; j++)
- {
- result.Add(src.Data[chunks[i]*stride+j]);
- }
- }
- }
- else {
- object[] array = new object[src.Length];
- Array.Copy(src.Data, 0, array, 0, src.Length);
- result = new LSL_List(array);
- }
- return result;
- }
- /// <summary>
- /// Elements in the source list starting with 0 and then
- /// every i+stride. If the stride is negative then the scan
- /// is backwards producing an inverted result.
- /// Only those elements that are also in the specified
- /// range are included in the result.
- /// </summary>
- public LSL_List llList2ListStrided(LSL_List src, int start, int end, int stride)
- {
- LSL_List result = new LSL_List();
- int[] si = new int[2];
- int[] ei = new int[2];
- bool twopass = false;
- m_host.AddScriptLPS(1);
- // First step is always to deal with negative indices
- if (start < 0)
- start = src.Length+start;
- if (end < 0)
- end = src.Length+end;
- // Out of bounds indices are OK, just trim them
- // accordingly
- if (start > src.Length)
- start = src.Length;
- if (end > src.Length)
- end = src.Length;
- if (stride == 0)
- stride = 1;
- // There may be one or two ranges to be considered
- if (start != end)
- {
- if (start <= end)
- {
- si[0] = start;
- ei[0] = end;
- }
- else
- {
- si[1] = start;
- ei[1] = src.Length;
- si[0] = 0;
- ei[0] = end;
- twopass = true;
- }
- // The scan always starts from the beginning of the
- // source list, but members are only selected if they
- // fall within the specified sub-range. The specified
- // range values are inclusive.
- // A negative stride reverses the direction of the
- // scan producing an inverted list as a result.
- if (stride > 0)
- {
- for (int i = 0; i < src.Length; i += stride)
- {
- if (i<=ei[0] && i>=si[0])
- result.Add(src.Data[i]);
- if (twopass && i>=si[1] && i<=ei[1])
- result.Add(src.Data[i]);
- }
- }
- else if (stride < 0)
- {
- for (int i = src.Length - 1; i >= 0; i += stride)
- {
- if (i <= ei[0] && i >= si[0])
- result.Add(src.Data[i]);
- if (twopass && i >= si[1] && i <= ei[1])
- result.Add(src.Data[i]);
- }
- }
- }
- else
- {
- if (start%stride == 0)
- {
- result.Add(src.Data[start]);
- }
- }
- return result;
- }
- public LSL_Integer llGetRegionAgentCount()
- {
- m_host.AddScriptLPS(1);
- return new LSL_Integer(World.GetRootAgentCount());
- }
- public LSL_Vector llGetRegionCorner()
- {
- m_host.AddScriptLPS(1);
- return new LSL_Vector(World.RegionInfo.RegionLocX * Constants.RegionSize, World.RegionInfo.RegionLocY * Constants.RegionSize, 0);
- }
- /// <summary>
- /// Insert the list identified by <src> into the
- /// list designated by <dest> such that the first
- /// new element has the index specified by <index>
- /// </summary>
- public LSL_List llListInsertList(LSL_List dest, LSL_List src, int index)
- {
- LSL_List pref = null;
- LSL_List suff = null;
- m_host.AddScriptLPS(1);
- if (index < 0)
- {
- index = index+dest.Length;
- if (index < 0)
- {
- index = 0;
- }
- }
- if (index != 0)
- {
- pref = dest.GetSublist(0,index-1);
- if (index < dest.Length)
- {
- suff = dest.GetSublist(index,-1);
- return pref + src + suff;
- }
- else
- {
- return pref + src;
- }
- }
- else
- {
- if (index < dest.Length)
- {
- suff = dest.GetSublist(index,-1);
- return src + suff;
- }
- else
- {
- return src;
- }
- }
- }
- /// <summary>
- /// Returns the index of the first occurrence of test
- /// in src.
- /// </summary>
- /// <param name="src">Source list</param>
- /// <param name="test">List to search for</param>
- /// <returns>
- /// The index number of the point in src where test was found if it was found.
- /// Otherwise returns -1
- /// </returns>
- public LSL_Integer llListFindList(LSL_List src, LSL_List test)
- {
- int index = -1;
- int length = src.Length - test.Length + 1;
- m_host.AddScriptLPS(1);
- // If either list is empty, do not match
- if (src.Length != 0 && test.Length != 0)
- {
- for (int i = 0; i < length; i++)
- {
- // Why this piece of insanity? This is because most script constants are C# value types (e.g. int)
- // rather than wrapped LSL types. Such a script constant does not have int.Equal(LSL_Integer) code
- // and so the comparison fails even if the LSL_Integer conceptually has the same value.
- // Therefore, here we test Equals on both the source and destination objects.
- // However, a future better approach may be use LSL struct script constants (e.g. LSL_Integer(1)).
- if (src.Data[i].Equals(test.Data[0]) || test.Data[0].Equals(src.Data[i]))
- {
- int j;
- for (j = 1; j < test.Length; j++)
- if (!(src.Data[i+j].Equals(test.Data[j]) || test.Data[j].Equals(src.Data[i+j])))
- break;
- if (j == test.Length)
- {
- index = i;
- break;
- }
- }
- }
- }
- return index;
- }
- public LSL_String llGetObjectName()
- {
- m_host.AddScriptLPS(1);
- return m_host.Name !=null ? m_host.Name : String.Empty;
- }
- public void llSetObjectName(string name)
- {
- m_host.AddScriptLPS(1);
- m_host.Name = name != null ? name : String.Empty;
- }
- public LSL_String llGetDate()
- {
- m_host.AddScriptLPS(1);
- DateTime date = DateTime.Now.ToUniversalTime();
- string result = date.ToString("yyyy-MM-dd");
- return result;
- }
- public LSL_Integer llEdgeOfWorld(LSL_Vector pos, LSL_Vector dir)
- {
- m_host.AddScriptLPS(1);
- // edge will be used to pass the Region Coordinates offset
- // we want to check for a neighboring sim
- LSL_Vector edge = new LSL_Vector(0, 0, 0);
- if (dir.x == 0)
- {
- if (dir.y == 0)
- {
- // Direction vector is 0,0 so return
- // false since we're staying in the sim
- return 0;
- }
- else
- {
- // Y is the only valid direction
- edge.y = dir.y / Math.Abs(dir.y);
- }
- }
- else
- {
- LSL_Float mag;
- if (dir.x > 0)
- {
- mag = (Constants.RegionSize - pos.x) / dir.x;
- }
- else
- {
- mag = (pos.x/dir.x);
- }
- mag = Math.Abs(mag);
- edge.y = pos.y + (dir.y * mag);
- if (edge.y > Constants.RegionSize || edge.y < 0)
- {
- // Y goes out of bounds first
- edge.y = dir.y / Math.Abs(dir.y);
- }
- else
- {
- // X goes out of bounds first or its a corner exit
- edge.y = 0;
- edge.x = dir.x / Math.Abs(dir.x);
- }
- }
- List<GridRegion> neighbors = World.GridService.GetNeighbours(World.RegionInfo.ScopeID, World.RegionInfo.RegionID);
- uint neighborX = World.RegionInfo.RegionLocX + (uint)dir.x;
- uint neighborY = World.RegionInfo.RegionLocY + (uint)dir.y;
- foreach (GridRegion sri in neighbors)
- {
- if (sri.RegionCoordX == neighborX && sri.RegionCoordY == neighborY)
- return 0;
- }
- return 1;
- }
- /// <summary>
- /// Not fully implemented yet. Still to do:-
- /// AGENT_BUSY
- /// Remove as they are done
- /// </summary>
- public LSL_Integer llGetAgentInfo(string id)
- {
- m_host.AddScriptLPS(1);
- UUID key = new UUID();
- if (!UUID.TryParse(id, out key))
- {
- return 0;
- }
- int flags = 0;
- ScenePresence agent = World.GetScenePresence(key);
- if (agent == null)
- {
- return 0;
- }
- if (agent.IsChildAgent)
- return 0; // Fail if they are not in the same region
- // note: in OpenSim, sitting seems to cancel AGENT_ALWAYS_RUN, unlike SL
- if (agent.SetAlwaysRun)
- {
- flags |= ScriptBaseClass.AGENT_ALWAYS_RUN;
- }
- if (agent.HasAttachments())
- {
- flags |= ScriptBaseClass.AGENT_ATTACHMENTS;
- if (agent.HasScriptedAttachments())
- flags |= ScriptBaseClass.AGENT_SCRIPTED;
- }
- if ((agent.AgentControlFlags & (uint)AgentManager.ControlFlags.AGENT_CONTROL_FLY) != 0)
- {
- flags |= ScriptBaseClass.AGENT_FLYING;
- flags |= ScriptBaseClass.AGENT_IN_AIR; // flying always implies in-air, even if colliding with e.g. a wall
- }
- if ((agent.AgentControlFlags & (uint)AgentManager.ControlFlags.AGENT_CONTROL_AWAY) != 0)
- {
- flags |= ScriptBaseClass.AGENT_AWAY;
- }
- // seems to get unset, even if in mouselook, when avatar is sitting on a prim???
- if ((agent.AgentControlFlags & (uint)AgentManager.ControlFlags.AGENT_CONTROL_MOUSELOOK) != 0)
- {
- flags |= ScriptBaseClass.AGENT_MOUSELOOK;
- }
- if ((agent.State & (byte)AgentState.Typing) != (byte)0)
- {
- flags |= ScriptBaseClass.AGENT_TYPING;
- }
- string agentMovementAnimation = agent.Animator.CurrentMovementAnimation;
- if (agentMovementAnimation == "CROUCH")
- {
- flags |= ScriptBaseClass.AGENT_CROUCHING;
- }
- if (agentMovementAnimation == "WALK" || agentMovementAnimation == "CROUCHWALK")
- {
- flags |= ScriptBaseClass.AGENT_WALKING;
- }
- // not colliding implies in air. Note: flying also implies in-air, even if colliding (see above)
- // note: AGENT_IN_AIR and AGENT_WALKING seem to be mutually exclusive states in SL.
- // note: this may need some tweaking when walking downhill. you "fall down" for a brief instant
- // and don't collide when walking downhill, which instantly registers as in-air, briefly. should
- // there be some minimum non-collision threshold time before claiming the avatar is in-air?
- if ((flags & ScriptBaseClass.AGENT_WALKING) == 0 && !agent.IsColliding )
- {
- flags |= ScriptBaseClass.AGENT_IN_AIR;
- }
- if (agent.ParentPart != null)
- {
- flags |= ScriptBaseClass.AGENT_ON_OBJECT;
- flags |= ScriptBaseClass.AGENT_SITTING;
- }
- if (agent.Animator.Animations.ImplicitDefaultAnimation.AnimID
- == DefaultAvatarAnimations.AnimsUUID["SIT_GROUND_CONSTRAINED"])
- {
- flags |= ScriptBaseClass.AGENT_SITTING;
- }
- return flags;
- }
- public LSL_String llGetAgentLanguage(string id)
- {
- // This should only return a value if the avatar is in the same region
- //ckrinke 1-30-09 : This needs to parse the XMLRPC language field supplied
- //by the client at login. Currently returning only en-us until our I18N
- //effort gains momentum
- m_host.AddScriptLPS(1);
- return "en-us";
- }
- /// <summary>
- /// http://wiki.secondlife.com/wiki/LlGetAgentList
- /// The list of options is currently not used in SL
- /// scope is one of:-
- /// AGENT_LIST_REGION - all in the region
- /// AGENT_LIST_PARCEL - all in the same parcel as the scripted object
- /// AGENT_LIST_PARCEL_OWNER - all in any parcel owned by the owner of the
- /// current parcel.
- /// </summary>
- public LSL_List llGetAgentList(LSL_Integer scope, LSL_List options)
- {
- m_host.AddScriptLPS(1);
- // the constants are 1, 2 and 4 so bits are being set, but you
- // get an error "INVALID_SCOPE" if it is anything but 1, 2 and 4
- bool regionWide = scope == ScriptBaseClass.AGENT_LIST_REGION;
- bool parcelOwned = scope == ScriptBaseClass.AGENT_LIST_PARCEL_OWNER;
- bool parcel = scope == ScriptBaseClass.AGENT_LIST_PARCEL;
- LSL_List result = new LSL_List();
- if (!regionWide && !parcelOwned && !parcel)
- {
- result.Add("INVALID_SCOPE");
- return result;
- }
- ILandObject land;
- Vector3 pos;
- UUID id = UUID.Zero;
- if (parcel || parcelOwned)
- {
- pos = m_host.ParentGroup.RootPart.GetWorldPosition();
- land = World.LandChannel.GetLandObject(pos.X, pos.Y);
- if (land == null)
- {
- id = UUID.Zero;
- }
- else
- {
- if (parcelOwned)
- {
- id = land.LandData.OwnerID;
- }
- else
- {
- id = land.LandData.GlobalID;
- }
- }
- }
- World.ForEachRootScenePresence(
- delegate (ScenePresence ssp)
- {
- // Gods are not listed in SL
- if (!ssp.IsDeleted && ssp.GodLevel == 0.0 && !ssp.IsChildAgent)
- {
- if (!regionWide)
- {
- pos = ssp.AbsolutePosition;
- land = World.LandChannel.GetLandObject(pos.X, pos.Y);
- if (land != null)
- {
- if (parcelOwned && land.LandData.OwnerID == id ||
- parcel && land.LandData.GlobalID == id)
- {
- result.Add(ssp.UUID.ToString());
- }
- }
- }
- else
- {
- result.Add(ssp.UUID.ToString());
- }
- }
- // Maximum of 100 results
- if (result.Length > 99)
- {
- return;
- }
- }
- );
- return result;
- }
- public void llAdjustSoundVolume(double volume)
- {
- m_host.AddScriptLPS(1);
- m_host.AdjustSoundGain(volume);
- ScriptSleep(100);
- }
- public void llSetSoundRadius(double radius)
- {
- m_host.AddScriptLPS(1);
- m_host.SoundRadius = radius;
- }
- public LSL_String llKey2Name(string id)
- {
- m_host.AddScriptLPS(1);
- UUID key = new UUID();
- if (UUID.TryParse(id,out key))
- {
- ScenePresence presence = World.GetScenePresence(key);
- if (presence != null)
- {
- return presence.ControllingClient.Name;
- //return presence.Name;
- }
- if (World.GetSceneObjectPart(key) != null)
- {
- return World.GetSceneObjectPart(key).Name;
- }
- }
- return String.Empty;
- }
- public void llSetTextureAnim(int mode, int face, int sizex, int sizey, double start, double length, double rate)
- {
- m_host.AddScriptLPS(1);
- SetTextureAnim(m_host, mode, face, sizex, sizey, start, length, rate);
- }
- public void llSetLinkTextureAnim(int linknumber, int mode, int face, int sizex, int sizey, double start, double length, double rate)
- {
- m_host.AddScriptLPS(1);
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- {
- SetTextureAnim(part, mode, face, sizex, sizey, start, length, rate);
- }
- }
- private void SetTextureAnim(SceneObjectPart part, int mode, int face, int sizex, int sizey, double start, double length, double rate)
- {
- Primitive.TextureAnimation pTexAnim = new Primitive.TextureAnimation();
- pTexAnim.Flags = (Primitive.TextureAnimMode)mode;
- //ALL_SIDES
- if (face == ScriptBaseClass.ALL_SIDES)
- face = 255;
- pTexAnim.Face = (uint)face;
- pTexAnim.Length = (float)length;
- pTexAnim.Rate = (float)rate;
- pTexAnim.SizeX = (uint)sizex;
- pTexAnim.SizeY = (uint)sizey;
- pTexAnim.Start = (float)start;
- part.AddTextureAnimation(pTexAnim);
- part.SendFullUpdateToAllClients();
- part.ParentGroup.HasGroupChanged = true;
- }
- public void llTriggerSoundLimited(string sound, double volume, LSL_Vector top_north_east,
- LSL_Vector bottom_south_west)
- {
- m_host.AddScriptLPS(1);
- if (m_SoundModule != null)
- {
- m_SoundModule.TriggerSoundLimited(m_host.UUID,
- KeyOrName(sound, AssetType.Sound), volume,
- bottom_south_west, top_north_east);
- }
- }
- public void llEjectFromLand(string pest)
- {
- m_host.AddScriptLPS(1);
- UUID agentID = new UUID();
- if (UUID.TryParse(pest, out agentID))
- {
- ScenePresence presence = World.GetScenePresence(agentID);
- if (presence != null)
- {
- // agent must be over the owners land
- ILandObject land = World.LandChannel.GetLandObject(presence.AbsolutePosition.X, presence.AbsolutePosition.Y);
- if (land == null)
- return;
- if (m_host.OwnerID == land.LandData.OwnerID)
- {
- World.TeleportClientHome(agentID, presence.ControllingClient);
- }
- }
- }
- ScriptSleep(5000);
- }
- public LSL_Integer llOverMyLand(string id)
- {
- m_host.AddScriptLPS(1);
- UUID key = new UUID();
- if (UUID.TryParse(id, out key))
- {
- ScenePresence presence = World.GetScenePresence(key);
- if (presence != null) // object is an avatar
- {
- if (m_host.OwnerID
- == World.LandChannel.GetLandObject(
- presence.AbsolutePosition.X, presence.AbsolutePosition.Y).LandData.OwnerID)
- return 1;
- }
- else // object is not an avatar
- {
- SceneObjectPart obj = World.GetSceneObjectPart(key);
- if (obj != null)
- if (m_host.OwnerID
- == World.LandChannel.GetLandObject(
- obj.AbsolutePosition.X, obj.AbsolutePosition.Y).LandData.OwnerID)
- return 1;
- }
- }
- return 0;
- }
- public LSL_String llGetLandOwnerAt(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- ILandObject land = World.LandChannel.GetLandObject((float)pos.x, (float)pos.y);
- if (land == null)
- return UUID.Zero.ToString();
- return land.LandData.OwnerID.ToString();
- }
- /// <summary>
- /// According to http://lslwiki.net/lslwiki/wakka.php?wakka=llGetAgentSize
- /// only the height of avatars vary and that says:
- /// Width (x) and depth (y) are constant. (0.45m and 0.6m respectively).
- /// </summary>
- public LSL_Vector llGetAgentSize(string id)
- {
- m_host.AddScriptLPS(1);
- ScenePresence avatar = World.GetScenePresence((UUID)id);
- LSL_Vector agentSize;
- if (avatar == null || avatar.IsChildAgent) // Fail if not in the same region
- {
- agentSize = ScriptBaseClass.ZERO_VECTOR;
- }
- else
- {
- agentSize = new LSL_Vector(0.45, 0.6, avatar.Appearance.AvatarHeight);
- }
- return agentSize;
- }
- public LSL_Integer llSameGroup(string agent)
- {
- m_host.AddScriptLPS(1);
- UUID agentId = new UUID();
- if (!UUID.TryParse(agent, out agentId))
- return new LSL_Integer(0);
- ScenePresence presence = World.GetScenePresence(agentId);
- if (presence == null || presence.IsChildAgent) // Return flase for child agents
- return new LSL_Integer(0);
- IClientAPI client = presence.ControllingClient;
- if (m_host.GroupID == client.ActiveGroupId)
- return new LSL_Integer(1);
- else
- return new LSL_Integer(0);
- }
- public void llUnSit(string id)
- {
- m_host.AddScriptLPS(1);
- UUID key = new UUID();
- if (UUID.TryParse(id, out key))
- {
- ScenePresence av = World.GetScenePresence(key);
- if (av != null)
- {
- if (llAvatarOnSitTarget() == id)
- {
- // if the avatar is sitting on this object, then
- // we can unsit them. We don't want random scripts unsitting random people
- // Lets avoid the popcorn avatar scenario.
- av.StandUp();
- }
- else
- {
- // If the object owner also owns the parcel
- // or
- // if the land is group owned and the object is group owned by the same group
- // or
- // if the object is owned by a person with estate access.
- ILandObject parcel = World.LandChannel.GetLandObject(av.AbsolutePosition.X, av.AbsolutePosition.Y);
- if (parcel != null)
- {
- if (m_host.OwnerID == parcel.LandData.OwnerID ||
- (m_host.OwnerID == m_host.GroupID && m_host.GroupID == parcel.LandData.GroupID
- && parcel.LandData.IsGroupOwned) || World.Permissions.IsGod(m_host.OwnerID))
- {
- av.StandUp();
- }
- }
- }
- }
- }
- }
- public LSL_Vector llGroundSlope(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- //Get the slope normal. This gives us the equation of the plane tangent to the slope.
- LSL_Vector vsn = llGroundNormal(offset);
- //Plug the x,y coordinates of the slope normal into the equation of the plane to get
- //the height of that point on the plane. The resulting vector gives the slope.
- Vector3 vsl = vsn;
- vsl.Z = (float)(((vsn.x * vsn.x) + (vsn.y * vsn.y)) / (-1 * vsn.z));
- vsl.Normalize();
- //Normalization might be overkill here
- return new LSL_Vector(vsl.X, vsl.Y, vsl.Z);
- }
- public LSL_Vector llGroundNormal(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- Vector3 pos = m_host.GetWorldPosition() + (Vector3)offset;
- // Clamp to valid position
- if (pos.X < 0)
- pos.X = 0;
- else if (pos.X >= World.Heightmap.Width)
- pos.X = World.Heightmap.Width - 1;
- if (pos.Y < 0)
- pos.Y = 0;
- else if (pos.Y >= World.Heightmap.Height)
- pos.Y = World.Heightmap.Height - 1;
- //Find two points in addition to the position to define a plane
- Vector3 p0 = new Vector3(pos.X, pos.Y,
- (float)World.Heightmap[(int)pos.X, (int)pos.Y]);
- Vector3 p1 = new Vector3();
- Vector3 p2 = new Vector3();
- if ((pos.X + 1.0f) >= World.Heightmap.Width)
- p1 = new Vector3(pos.X + 1.0f, pos.Y,
- (float)World.Heightmap[(int)pos.X, (int)pos.Y]);
- else
- p1 = new Vector3(pos.X + 1.0f, pos.Y,
- (float)World.Heightmap[(int)(pos.X + 1.0f), (int)pos.Y]);
- if ((pos.Y + 1.0f) >= World.Heightmap.Height)
- p2 = new Vector3(pos.X, pos.Y + 1.0f,
- (float)World.Heightmap[(int)pos.X, (int)pos.Y]);
- else
- p2 = new Vector3(pos.X, pos.Y + 1.0f,
- (float)World.Heightmap[(int)pos.X, (int)(pos.Y + 1.0f)]);
- //Find normalized vectors from p0 to p1 and p0 to p2
- Vector3 v0 = new Vector3(p1.X - p0.X, p1.Y - p0.Y, p1.Z - p0.Z);
- Vector3 v1 = new Vector3(p2.X - p0.X, p2.Y - p0.Y, p2.Z - p0.Z);
- v0.Normalize();
- v1.Normalize();
- //Find the cross product of the vectors (the slope normal).
- Vector3 vsn = new Vector3();
- vsn.X = (v0.Y * v1.Z) - (v0.Z * v1.Y);
- vsn.Y = (v0.Z * v1.X) - (v0.X * v1.Z);
- vsn.Z = (v0.X * v1.Y) - (v0.Y * v1.X);
- vsn.Normalize();
- //I believe the crossproduct of two normalized vectors is a normalized vector so
- //this normalization may be overkill
- return new LSL_Vector(vsn.X, vsn.Y, vsn.Z);
- }
- public LSL_Vector llGroundContour(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- LSL_Vector x = llGroundSlope(offset);
- return new LSL_Vector(-x.y, x.x, 0.0);
- }
- public LSL_Integer llGetAttached()
- {
- m_host.AddScriptLPS(1);
- return m_host.ParentGroup.AttachmentPoint;
- }
- public LSL_Integer llGetFreeMemory()
- {
- m_host.AddScriptLPS(1);
- // Make scripts designed for LSO happy
- return 16384;
- }
- public LSL_Integer llGetFreeURLs()
- {
- m_host.AddScriptLPS(1);
- if (m_UrlModule != null)
- return new LSL_Integer(m_UrlModule.GetFreeUrls());
- return new LSL_Integer(0);
- }
- public LSL_String llGetRegionName()
- {
- m_host.AddScriptLPS(1);
- return World.RegionInfo.RegionName;
- }
- public LSL_Float llGetRegionTimeDilation()
- {
- m_host.AddScriptLPS(1);
- return (double)World.TimeDilation;
- }
- /// <summary>
- /// Returns the value reported in the client Statistics window
- /// </summary>
- public LSL_Float llGetRegionFPS()
- {
- m_host.AddScriptLPS(1);
- return World.StatsReporter.LastReportedSimFPS;
- }
- /* particle system rules should be coming into this routine as doubles, that is
- rule[0] should be an integer from this list and rule[1] should be the arg
- for the same integer. wiki.secondlife.com has most of this mapping, but some
- came from http://www.caligari-designs.com/p4u2
- We iterate through the list for 'Count' elements, incrementing by two for each
- iteration and set the members of Primitive.ParticleSystem, one at a time.
- */
- public enum PrimitiveRule : int
- {
- PSYS_PART_FLAGS = 0,
- PSYS_PART_START_COLOR = 1,
- PSYS_PART_START_ALPHA = 2,
- PSYS_PART_END_COLOR = 3,
- PSYS_PART_END_ALPHA = 4,
- PSYS_PART_START_SCALE = 5,
- PSYS_PART_END_SCALE = 6,
- PSYS_PART_MAX_AGE = 7,
- PSYS_SRC_ACCEL = 8,
- PSYS_SRC_PATTERN = 9,
- PSYS_SRC_INNERANGLE = 10,
- PSYS_SRC_OUTERANGLE = 11,
- PSYS_SRC_TEXTURE = 12,
- PSYS_SRC_BURST_RATE = 13,
- PSYS_SRC_BURST_PART_COUNT = 15,
- PSYS_SRC_BURST_RADIUS = 16,
- PSYS_SRC_BURST_SPEED_MIN = 17,
- PSYS_SRC_BURST_SPEED_MAX = 18,
- PSYS_SRC_MAX_AGE = 19,
- PSYS_SRC_TARGET_KEY = 20,
- PSYS_SRC_OMEGA = 21,
- PSYS_SRC_ANGLE_BEGIN = 22,
- PSYS_SRC_ANGLE_END = 23
- }
- internal Primitive.ParticleSystem.ParticleDataFlags ConvertUINTtoFlags(uint flags)
- {
- Primitive.ParticleSystem.ParticleDataFlags returnval = Primitive.ParticleSystem.ParticleDataFlags.None;
- return returnval;
- }
- protected Primitive.ParticleSystem getNewParticleSystemWithSLDefaultValues()
- {
- Primitive.ParticleSystem ps = new Primitive.ParticleSystem();
- // TODO find out about the other defaults and add them here
- ps.PartStartColor = new Color4(1.0f, 1.0f, 1.0f, 1.0f);
- ps.PartEndColor = new Color4(1.0f, 1.0f, 1.0f, 1.0f);
- ps.PartStartScaleX = 1.0f;
- ps.PartStartScaleY = 1.0f;
- ps.PartEndScaleX = 1.0f;
- ps.PartEndScaleY = 1.0f;
- ps.BurstSpeedMin = 1.0f;
- ps.BurstSpeedMax = 1.0f;
- ps.BurstRate = 0.1f;
- ps.PartMaxAge = 10.0f;
- return ps;
- }
- public void llLinkParticleSystem(int linknumber, LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- {
- SetParticleSystem(part, rules);
- }
- }
- public void llParticleSystem(LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- SetParticleSystem(m_host, rules);
- }
- private void SetParticleSystem(SceneObjectPart part, LSL_List rules) {
- if (rules.Length == 0)
- {
- part.RemoveParticleSystem();
- part.ParentGroup.HasGroupChanged = true;
- }
- else
- {
- Primitive.ParticleSystem prules = getNewParticleSystemWithSLDefaultValues();
- LSL_Vector tempv = new LSL_Vector();
- float tempf = 0;
- for (int i = 0; i < rules.Length; i += 2)
- {
- switch (rules.GetLSLIntegerItem(i))
- {
- case (int)ScriptBaseClass.PSYS_PART_FLAGS:
- prules.PartDataFlags = (Primitive.ParticleSystem.ParticleDataFlags)(uint)rules.GetLSLIntegerItem(i + 1);
- break;
- case (int)ScriptBaseClass.PSYS_PART_START_COLOR:
- tempv = rules.GetVector3Item(i + 1);
- prules.PartStartColor.R = (float)tempv.x;
- prules.PartStartColor.G = (float)tempv.y;
- prules.PartStartColor.B = (float)tempv.z;
- break;
- case (int)ScriptBaseClass.PSYS_PART_START_ALPHA:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.PartStartColor.A = tempf;
- break;
- case (int)ScriptBaseClass.PSYS_PART_END_COLOR:
- tempv = rules.GetVector3Item(i + 1);
- prules.PartEndColor.R = (float)tempv.x;
- prules.PartEndColor.G = (float)tempv.y;
- prules.PartEndColor.B = (float)tempv.z;
- break;
- case (int)ScriptBaseClass.PSYS_PART_END_ALPHA:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.PartEndColor.A = tempf;
- break;
- case (int)ScriptBaseClass.PSYS_PART_START_SCALE:
- tempv = rules.GetVector3Item(i + 1);
- prules.PartStartScaleX = (float)tempv.x;
- prules.PartStartScaleY = (float)tempv.y;
- break;
- case (int)ScriptBaseClass.PSYS_PART_END_SCALE:
- tempv = rules.GetVector3Item(i + 1);
- prules.PartEndScaleX = (float)tempv.x;
- prules.PartEndScaleY = (float)tempv.y;
- break;
- case (int)ScriptBaseClass.PSYS_PART_MAX_AGE:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.PartMaxAge = tempf;
- break;
- case (int)ScriptBaseClass.PSYS_SRC_ACCEL:
- tempv = rules.GetVector3Item(i + 1);
- prules.PartAcceleration.X = (float)tempv.x;
- prules.PartAcceleration.Y = (float)tempv.y;
- prules.PartAcceleration.Z = (float)tempv.z;
- break;
- case (int)ScriptBaseClass.PSYS_SRC_PATTERN:
- int tmpi = (int)rules.GetLSLIntegerItem(i + 1);
- prules.Pattern = (Primitive.ParticleSystem.SourcePattern)tmpi;
- break;
- // PSYS_SRC_INNERANGLE and PSYS_SRC_ANGLE_BEGIN use the same variables. The
- // PSYS_SRC_OUTERANGLE and PSYS_SRC_ANGLE_END also use the same variable. The
- // client tells the difference between the two by looking at the 0x02 bit in
- // the PartFlags variable.
- case (int)ScriptBaseClass.PSYS_SRC_INNERANGLE:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.InnerAngle = (float)tempf;
- prules.PartFlags &= 0xFFFFFFFD; // Make sure new angle format is off.
- break;
- case (int)ScriptBaseClass.PSYS_SRC_OUTERANGLE:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.OuterAngle = (float)tempf;
- prules.PartFlags &= 0xFFFFFFFD; // Make sure new angle format is off.
- break;
- case (int)ScriptBaseClass.PSYS_SRC_TEXTURE:
- prules.Texture = KeyOrName(rules.GetLSLStringItem(i + 1));
- break;
- case (int)ScriptBaseClass.PSYS_SRC_BURST_RATE:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.BurstRate = (float)tempf;
- break;
- case (int)ScriptBaseClass.PSYS_SRC_BURST_PART_COUNT:
- prules.BurstPartCount = (byte)(int)rules.GetLSLIntegerItem(i + 1);
- break;
- case (int)ScriptBaseClass.PSYS_SRC_BURST_RADIUS:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.BurstRadius = (float)tempf;
- break;
- case (int)ScriptBaseClass.PSYS_SRC_BURST_SPEED_MIN:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.BurstSpeedMin = (float)tempf;
- break;
- case (int)ScriptBaseClass.PSYS_SRC_BURST_SPEED_MAX:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.BurstSpeedMax = (float)tempf;
- break;
- case (int)ScriptBaseClass.PSYS_SRC_MAX_AGE:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.MaxAge = (float)tempf;
- break;
- case (int)ScriptBaseClass.PSYS_SRC_TARGET_KEY:
- UUID key = UUID.Zero;
- if (UUID.TryParse(rules.Data[i + 1].ToString(), out key))
- {
- prules.Target = key;
- }
- else
- {
- prules.Target = part.UUID;
- }
- break;
- case (int)ScriptBaseClass.PSYS_SRC_OMEGA:
- // AL: This is an assumption, since it is the only thing that would match.
- tempv = rules.GetVector3Item(i + 1);
- prules.AngularVelocity.X = (float)tempv.x;
- prules.AngularVelocity.Y = (float)tempv.y;
- prules.AngularVelocity.Z = (float)tempv.z;
- break;
- case (int)ScriptBaseClass.PSYS_SRC_ANGLE_BEGIN:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.InnerAngle = (float)tempf;
- prules.PartFlags |= 0x02; // Set new angle format.
- break;
- case (int)ScriptBaseClass.PSYS_SRC_ANGLE_END:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.OuterAngle = (float)tempf;
- prules.PartFlags |= 0x02; // Set new angle format.
- break;
- }
- }
- prules.CRC = 1;
- part.AddNewParticleSystem(prules);
- part.ParentGroup.HasGroupChanged = true;
- }
- part.SendFullUpdateToAllClients();
- }
- public void llGroundRepel(double height, int water, double tau)
- {
- m_host.AddScriptLPS(1);
- if (m_host.PhysActor != null)
- {
- float ground = (float)llGround(new LSL_Types.Vector3(0, 0, 0));
- float waterLevel = (float)llWater(new LSL_Types.Vector3(0, 0, 0));
- PIDHoverType hoverType = PIDHoverType.Ground;
- if (water != 0)
- {
- hoverType = PIDHoverType.GroundAndWater;
- if (ground < waterLevel)
- height += waterLevel;
- else
- height += ground;
- }
- else
- {
- height += ground;
- }
- m_host.SetHoverHeight((float)height, hoverType, (float)tau);
- }
- }
- public void llGiveInventoryList(string destination, string category, LSL_List inventory)
- {
- m_host.AddScriptLPS(1);
- UUID destID;
- if (!UUID.TryParse(destination, out destID))
- return;
- List<UUID> itemList = new List<UUID>();
- foreach (Object item in inventory.Data)
- {
- string rawItemString = item.ToString();
- UUID itemID;
- if (UUID.TryParse(rawItemString, out itemID))
- {
- itemList.Add(itemID);
- }
- else
- {
- TaskInventoryItem taskItem = m_host.Inventory.GetInventoryItem(rawItemString);
- if (taskItem != null)
- itemList.Add(taskItem.ItemID);
- }
- }
- if (itemList.Count == 0)
- return;
- UUID folderID = m_ScriptEngine.World.MoveTaskInventoryItems(destID, category, m_host, itemList);
- if (folderID == UUID.Zero)
- return;
- if (m_TransferModule != null)
- {
- byte[] bucket = new byte[] { (byte)AssetType.Folder };
- Vector3 pos = m_host.AbsolutePosition;
- GridInstantMessage msg = new GridInstantMessage(World,
- m_host.OwnerID, m_host.Name, destID,
- (byte)InstantMessageDialog.TaskInventoryOffered,
- false, string.Format("'{0}'", category),
- // We won't go so far as to add a SLURL, but this is the format used by LL as of 2012-10-06
- // false, string.Format("'{0}' ( http://slurl.com/secondlife/{1}/{2}/{3}/{4} )", category, World.Name, (int)pos.X, (int)pos.Y, (int)pos.Z),
- folderID, false, pos,
- bucket, false);
- m_TransferModule.SendInstantMessage(msg, delegate(bool success) {});
- }
- }
- public void llSetVehicleType(int type)
- {
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetVehicleType(type);
- }
- }
- //CFK 9/28: Most, but not all of the underlying plumbing between here and the physics modules is in
- //CFK 9/28: so these are not complete yet.
- public void llSetVehicleFloatParam(int param, LSL_Float value)
- {
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetVehicleFloatParam(param, (float)value);
- }
- }
- //CFK 9/28: Most, but not all of the underlying plumbing between here and the physics modules is in
- //CFK 9/28: so these are not complete yet.
- public void llSetVehicleVectorParam(int param, LSL_Vector vec)
- {
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetVehicleVectorParam(param, vec);
- }
- }
- //CFK 9/28: Most, but not all of the underlying plumbing between here and the physics modules is in
- //CFK 9/28: so these are not complete yet.
- public void llSetVehicleRotationParam(int param, LSL_Rotation rot)
- {
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetVehicleRotationParam(param, rot);
- }
- }
- public void llSetVehicleFlags(int flags)
- {
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetVehicleFlags(flags, false);
- }
- }
- public void llRemoveVehicleFlags(int flags)
- {
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetVehicleFlags(flags, true);
- }
- }
- protected void SitTarget(SceneObjectPart part, LSL_Vector offset, LSL_Rotation rot)
- {
- part.SitTargetPosition = offset;
- part.SitTargetOrientation = rot;
- part.ParentGroup.HasGroupChanged = true;
- }
- public void llSitTarget(LSL_Vector offset, LSL_Rotation rot)
- {
- m_host.AddScriptLPS(1);
- SitTarget(m_host, offset, rot);
- }
- public void llLinkSitTarget(LSL_Integer link, LSL_Vector offset, LSL_Rotation rot)
- {
- m_host.AddScriptLPS(1);
- if (link == ScriptBaseClass.LINK_ROOT)
- SitTarget(m_host.ParentGroup.RootPart, offset, rot);
- else if (link == ScriptBaseClass.LINK_THIS)
- SitTarget(m_host, offset, rot);
- else
- {
- SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(link);
- if (null != part)
- {
- SitTarget(part, offset, rot);
- }
- }
- }
- public LSL_String llAvatarOnSitTarget()
- {
- m_host.AddScriptLPS(1);
- return m_host.SitTargetAvatar.ToString();
- }
- // http://wiki.secondlife.com/wiki/LlAvatarOnLinkSitTarget
- public LSL_String llAvatarOnLinkSitTarget(int linknum)
- {
- m_host.AddScriptLPS(1);
- if(linknum == ScriptBaseClass.LINK_SET ||
- linknum == ScriptBaseClass.LINK_ALL_CHILDREN ||
- linknum == ScriptBaseClass.LINK_ALL_OTHERS) return UUID.Zero.ToString();
-
- List<SceneObjectPart> parts = GetLinkParts(linknum);
- if (parts.Count == 0) return UUID.Zero.ToString();
- return parts[0].SitTargetAvatar.ToString();
- }
- public void llAddToLandPassList(string avatar, double hours)
- {
- m_host.AddScriptLPS(1);
- UUID key;
- ILandObject land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y);
- if (World.Permissions.CanEditParcelProperties(m_host.OwnerID, land, GroupPowers.LandManageBanned))
- {
- int expires = 0;
- if (hours != 0)
- expires = Util.UnixTimeSinceEpoch() + (int)(3600.0 * hours);
- if (UUID.TryParse(avatar, out key))
- {
- int idx = land.LandData.ParcelAccessList.FindIndex(
- delegate(LandAccessEntry e)
- {
- if (e.AgentID == key && e.Flags == AccessList.Access)
- return true;
- return false;
- });
- if (idx != -1 && (land.LandData.ParcelAccessList[idx].Expires == 0 || (expires != 0 && expires < land.LandData.ParcelAccessList[idx].Expires)))
- return;
- if (idx != -1)
- land.LandData.ParcelAccessList.RemoveAt(idx);
- LandAccessEntry entry = new LandAccessEntry();
- entry.AgentID = key;
- entry.Flags = AccessList.Access;
- entry.Expires = expires;
- land.LandData.ParcelAccessList.Add(entry);
- World.EventManager.TriggerLandObjectUpdated((uint)land.LandData.LocalID, land);
- }
- }
- ScriptSleep(100);
- }
- public void llSetTouchText(string text)
- {
- m_host.AddScriptLPS(1);
- m_host.TouchName = text;
- }
- public void llSetSitText(string text)
- {
- m_host.AddScriptLPS(1);
- m_host.SitName = text;
- }
- public void llSetCameraEyeOffset(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- m_host.SetCameraEyeOffset(offset);
- }
- public void llSetCameraAtOffset(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- m_host.SetCameraAtOffset(offset);
- }
- public LSL_String llDumpList2String(LSL_List src, string seperator)
- {
- m_host.AddScriptLPS(1);
- if (src.Length == 0)
- {
- return String.Empty;
- }
- string ret = String.Empty;
- foreach (object o in src.Data)
- {
- ret = ret + o.ToString() + seperator;
- }
- ret = ret.Substring(0, ret.Length - seperator.Length);
- return ret;
- }
- public LSL_Integer llScriptDanger(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- bool result = World.ScriptDanger(m_host.LocalId, pos);
- if (result)
- {
- return 1;
- }
- else
- {
- return 0;
- }
- }
- public void llDialog(string avatar, string message, LSL_List buttons, int chat_channel)
- {
- IDialogModule dm = World.RequestModuleInterface<IDialogModule>();
- if (dm == null)
- return;
- m_host.AddScriptLPS(1);
- UUID av = new UUID();
- if (!UUID.TryParse(avatar,out av))
- {
- LSLError("First parameter to llDialog needs to be a key");
- return;
- }
- if (buttons.Length < 1)
- {
- LSLError("No less than 1 button can be shown");
- return;
- }
- if (buttons.Length > 12)
- {
- LSLError("No more than 12 buttons can be shown");
- return;
- }
- string[] buts = new string[buttons.Length];
- for (int i = 0; i < buttons.Length; i++)
- {
- if (buttons.Data[i].ToString() == String.Empty)
- {
- LSLError("button label cannot be blank");
- return;
- }
- if (buttons.Data[i].ToString().Length > 24)
- {
- LSLError("button label cannot be longer than 24 characters");
- return;
- }
- buts[i] = buttons.Data[i].ToString();
- }
- dm.SendDialogToUser(
- av, m_host.Name, m_host.UUID, m_host.OwnerID,
- message, new UUID("00000000-0000-2222-3333-100000001000"), chat_channel, buts);
- ScriptSleep(1000);
- }
- public void llVolumeDetect(int detect)
- {
- m_host.AddScriptLPS(1);
- if (!m_host.ParentGroup.IsDeleted)
- m_host.ParentGroup.ScriptSetVolumeDetect(detect != 0);
- }
- /// <summary>
- /// This is a depecated function so this just replicates the result of
- /// invoking it in SL
- /// </summary>
- public void llRemoteLoadScript(string target, string name, int running, int start_param)
- {
- m_host.AddScriptLPS(1);
- // Report an error as it does in SL
- ShoutError("Deprecated. Please use llRemoteLoadScriptPin instead.");
- ScriptSleep(3000);
- }
- public void llSetRemoteScriptAccessPin(int pin)
- {
- m_host.AddScriptLPS(1);
- m_host.ScriptAccessPin = pin;
- }
- public void llRemoteLoadScriptPin(string target, string name, int pin, int running, int start_param)
- {
- m_host.AddScriptLPS(1);
- UUID destId = UUID.Zero;
- if (!UUID.TryParse(target, out destId))
- {
- llSay(0, "Could not parse key " + target);
- return;
- }
- // target must be a different prim than the one containing the script
- if (m_host.UUID == destId)
- {
- return;
- }
- // copy the first script found with this inventory name
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(name);
- // make sure the object is a script
- if (item == null || item.Type != 10)
- {
- llSay(0, "Could not find script " + name);
- return;
- }
- // the rest of the permission checks are done in RezScript, so check the pin there as well
- World.RezScriptFromPrim(item.ItemID, m_host, destId, pin, running, start_param);
- // this will cause the delay even if the script pin or permissions were wrong - seems ok
- ScriptSleep(3000);
- }
- public void llOpenRemoteDataChannel()
- {
- m_host.AddScriptLPS(1);
- IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface<IXMLRPC>();
- if (xmlrpcMod.IsEnabled())
- {
- UUID channelID = xmlrpcMod.OpenXMLRPCChannel(m_host.LocalId, m_item.ItemID, UUID.Zero);
- IXmlRpcRouter xmlRpcRouter = m_ScriptEngine.World.RequestModuleInterface<IXmlRpcRouter>();
- if (xmlRpcRouter != null)
- {
- string ExternalHostName = m_ScriptEngine.World.RegionInfo.ExternalHostName;
- xmlRpcRouter.RegisterNewReceiver(m_ScriptEngine.ScriptModule, channelID, m_host.UUID,
- m_item.ItemID, String.Format("http://{0}:{1}/", ExternalHostName,
- xmlrpcMod.Port.ToString()));
- }
- object[] resobj = new object[]
- {
- new LSL_Integer(1),
- new LSL_String(channelID.ToString()),
- new LSL_String(UUID.Zero.ToString()),
- new LSL_String(String.Empty),
- new LSL_Integer(0),
- new LSL_String(String.Empty)
- };
- m_ScriptEngine.PostScriptEvent(m_item.ItemID, new EventParams("remote_data", resobj,
- new DetectParams[0]));
- }
- ScriptSleep(1000);
- }
- public LSL_String llSendRemoteData(string channel, string dest, int idata, string sdata)
- {
- m_host.AddScriptLPS(1);
- IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface<IXMLRPC>();
- ScriptSleep(3000);
- return (xmlrpcMod.SendRemoteData(m_host.LocalId, m_item.ItemID, channel, dest, idata, sdata)).ToString();
- }
- public void llRemoteDataReply(string channel, string message_id, string sdata, int idata)
- {
- m_host.AddScriptLPS(1);
- IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface<IXMLRPC>();
- xmlrpcMod.RemoteDataReply(channel, message_id, sdata, idata);
- ScriptSleep(3000);
- }
- public void llCloseRemoteDataChannel(string channel)
- {
- m_host.AddScriptLPS(1);
- IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface<IXMLRPC>();
- xmlrpcMod.CloseXMLRPCChannel((UUID)channel);
- ScriptSleep(1000);
- }
- public LSL_String llMD5String(string src, int nonce)
- {
- m_host.AddScriptLPS(1);
- return Util.Md5Hash(String.Format("{0}:{1}", src, nonce.ToString()));
- }
- public LSL_String llSHA1String(string src)
- {
- m_host.AddScriptLPS(1);
- return Util.SHA1Hash(src).ToLower();
- }
- protected ObjectShapePacket.ObjectDataBlock SetPrimitiveBlockShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, byte profileshape, byte pathcurve)
- {
- float tempFloat; // Use in float expressions below to avoid byte cast precision issues.
- ObjectShapePacket.ObjectDataBlock shapeBlock = new ObjectShapePacket.ObjectDataBlock();
- if (holeshape != (int)ScriptBaseClass.PRIM_HOLE_DEFAULT &&
- holeshape != (int)ScriptBaseClass.PRIM_HOLE_CIRCLE &&
- holeshape != (int)ScriptBaseClass.PRIM_HOLE_SQUARE &&
- holeshape != (int)ScriptBaseClass.PRIM_HOLE_TRIANGLE)
- {
- holeshape = (int)ScriptBaseClass.PRIM_HOLE_DEFAULT;
- }
- shapeBlock.PathCurve = pathcurve;
- shapeBlock.ProfileCurve = (byte)holeshape; // Set the hole shape.
- shapeBlock.ProfileCurve += profileshape; // Add in the profile shape.
- if (cut.x < 0f)
- {
- cut.x = 0f;
- }
- if (cut.x > 1f)
- {
- cut.x = 1f;
- }
- if (cut.y < 0f)
- {
- cut.y = 0f;
- }
- if (cut.y > 1f)
- {
- cut.y = 1f;
- }
- if (cut.y - cut.x < 0.05f)
- {
- cut.x = cut.y - 0.05f;
- if (cut.x < 0.0f)
- {
- cut.x = 0.0f;
- cut.y = 0.05f;
- }
- }
- shapeBlock.ProfileBegin = (ushort)(50000 * cut.x);
- shapeBlock.ProfileEnd = (ushort)(50000 * (1 - cut.y));
- if (hollow < 0f)
- {
- hollow = 0f;
- }
- // If the prim is a Cylinder, Prism, Sphere, Torus or Ring (or not a
- // Box or Tube) and the hole shape is a square, hollow is limited to
- // a max of 70%. The viewer performs its own check on this value but
- // we need to do it here also so llGetPrimitiveParams can have access
- // to the correct value.
- if (profileshape != (byte)ProfileCurve.Square &&
- holeshape == (int)ScriptBaseClass.PRIM_HOLE_SQUARE)
- {
- if (hollow > 0.70f)
- {
- hollow = 0.70f;
- }
- }
- // Otherwise, hollow is limited to 95%.
- else
- {
- if (hollow > 0.95f)
- {
- hollow = 0.95f;
- }
- }
- shapeBlock.ProfileHollow = (ushort)(50000 * hollow);
- if (twist.x < -1.0f)
- {
- twist.x = -1.0f;
- }
- if (twist.x > 1.0f)
- {
- twist.x = 1.0f;
- }
- if (twist.y < -1.0f)
- {
- twist.y = -1.0f;
- }
- if (twist.y > 1.0f)
- {
- twist.y = 1.0f;
- }
- // A fairly large precision error occurs for some calculations,
- // if a float or double is directly cast to a byte or sbyte
- // variable, in both .Net and Mono. In .Net, coding
- // "(sbyte)(float)(some expression)" corrects the precision
- // errors. But this does not work for Mono. This longer coding
- // form of creating a tempoary float variable from the
- // expression first, then casting that variable to a byte or
- // sbyte, works for both .Net and Mono. These types of
- // assignments occur in SetPrimtiveBlockShapeParams and
- // SetPrimitiveShapeParams in support of llSetPrimitiveParams.
- tempFloat = (float)(100.0d * twist.x);
- shapeBlock.PathTwistBegin = (sbyte)tempFloat;
- tempFloat = (float)(100.0d * twist.y);
- shapeBlock.PathTwist = (sbyte)tempFloat;
- shapeBlock.ObjectLocalID = part.LocalId;
- part.Shape.SculptEntry = false;
- return shapeBlock;
- }
- // Prim type box, cylinder and prism.
- protected void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector taper_b, LSL_Vector topshear, byte profileshape, byte pathcurve)
- {
- float tempFloat; // Use in float expressions below to avoid byte cast precision issues.
- ObjectShapePacket.ObjectDataBlock shapeBlock;
- shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist, profileshape, pathcurve);
- if (taper_b.x < 0f)
- {
- taper_b.x = 0f;
- }
- if (taper_b.x > 2f)
- {
- taper_b.x = 2f;
- }
- if (taper_b.y < 0f)
- {
- taper_b.y = 0f;
- }
- if (taper_b.y > 2f)
- {
- taper_b.y = 2f;
- }
- tempFloat = (float)(100.0d * (2.0d - taper_b.x));
- shapeBlock.PathScaleX = (byte)tempFloat;
- tempFloat = (float)(100.0d * (2.0d - taper_b.y));
- shapeBlock.PathScaleY = (byte)tempFloat;
- if (topshear.x < -0.5f)
- {
- topshear.x = -0.5f;
- }
- if (topshear.x > 0.5f)
- {
- topshear.x = 0.5f;
- }
- if (topshear.y < -0.5f)
- {
- topshear.y = -0.5f;
- }
- if (topshear.y > 0.5f)
- {
- topshear.y = 0.5f;
- }
- tempFloat = (float)(100.0d * topshear.x);
- shapeBlock.PathShearX = (byte)tempFloat;
- tempFloat = (float)(100.0d * topshear.y);
- shapeBlock.PathShearY = (byte)tempFloat;
- part.Shape.SculptEntry = false;
- part.UpdateShape(shapeBlock);
- }
- // Prim type sphere.
- protected void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector dimple, byte profileshape, byte pathcurve)
- {
- ObjectShapePacket.ObjectDataBlock shapeBlock;
- shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist, profileshape, pathcurve);
- // profile/path swapped for a sphere
- shapeBlock.PathBegin = shapeBlock.ProfileBegin;
- shapeBlock.PathEnd = shapeBlock.ProfileEnd;
- shapeBlock.PathScaleX = 100;
- shapeBlock.PathScaleY = 100;
- if (dimple.x < 0f)
- {
- dimple.x = 0f;
- }
- if (dimple.x > 1f)
- {
- dimple.x = 1f;
- }
- if (dimple.y < 0f)
- {
- dimple.y = 0f;
- }
- if (dimple.y > 1f)
- {
- dimple.y = 1f;
- }
- if (dimple.y - cut.x < 0.05f)
- {
- dimple.x = cut.y - 0.05f;
- }
- shapeBlock.ProfileBegin = (ushort)(50000 * dimple.x);
- shapeBlock.ProfileEnd = (ushort)(50000 * (1 - dimple.y));
- part.Shape.SculptEntry = false;
- part.UpdateShape(shapeBlock);
- }
- // Prim type torus, tube and ring.
- protected void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector holesize, LSL_Vector topshear, LSL_Vector profilecut, LSL_Vector taper_a, float revolutions, float radiusoffset, float skew, byte profileshape, byte pathcurve)
- {
- float tempFloat; // Use in float expressions below to avoid byte cast precision issues.
- ObjectShapePacket.ObjectDataBlock shapeBlock;
- shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist, profileshape, pathcurve);
- // profile/path swapped for a torrus, tube, ring
- shapeBlock.PathBegin = shapeBlock.ProfileBegin;
- shapeBlock.PathEnd = shapeBlock.ProfileEnd;
- if (holesize.x < 0.05f)
- {
- holesize.x = 0.05f;
- }
- if (holesize.x > 1f)
- {
- holesize.x = 1f;
- }
- if (holesize.y < 0.05f)
- {
- holesize.y = 0.05f;
- }
- if (holesize.y > 0.5f)
- {
- holesize.y = 0.5f;
- }
- tempFloat = (float)(100.0d * (2.0d - holesize.x));
- shapeBlock.PathScaleX = (byte)tempFloat;
- tempFloat = (float)(100.0d * (2.0d - holesize.y));
- shapeBlock.PathScaleY = (byte)tempFloat;
- if (topshear.x < -0.5f)
- {
- topshear.x = -0.5f;
- }
- if (topshear.x > 0.5f)
- {
- topshear.x = 0.5f;
- }
- if (topshear.y < -0.5f)
- {
- topshear.y = -0.5f;
- }
- if (topshear.y > 0.5f)
- {
- topshear.y = 0.5f;
- }
- tempFloat = (float)(100.0d * topshear.x);
- shapeBlock.PathShearX = (byte)tempFloat;
- tempFloat = (float)(100.0d * topshear.y);
- shapeBlock.PathShearY = (byte)tempFloat;
- if (profilecut.x < 0f)
- {
- profilecut.x = 0f;
- }
- if (profilecut.x > 1f)
- {
- profilecut.x = 1f;
- }
- if (profilecut.y < 0f)
- {
- profilecut.y = 0f;
- }
- if (profilecut.y > 1f)
- {
- profilecut.y = 1f;
- }
- if (profilecut.y - profilecut.x < 0.05f)
- {
- profilecut.x = profilecut.y - 0.05f;
- if (profilecut.x < 0.0f)
- {
- profilecut.x = 0.0f;
- profilecut.y = 0.05f;
- }
- }
- shapeBlock.ProfileBegin = (ushort)(50000 * profilecut.x);
- shapeBlock.ProfileEnd = (ushort)(50000 * (1 - profilecut.y));
- if (taper_a.x < -1f)
- {
- taper_a.x = -1f;
- }
- if (taper_a.x > 1f)
- {
- taper_a.x = 1f;
- }
- if (taper_a.y < -1f)
- {
- taper_a.y = -1f;
- }
- if (taper_a.y > 1f)
- {
- taper_a.y = 1f;
- }
- tempFloat = (float)(100.0d * taper_a.x);
- shapeBlock.PathTaperX = (sbyte)tempFloat;
- tempFloat = (float)(100.0d * taper_a.y);
- shapeBlock.PathTaperY = (sbyte)tempFloat;
- if (revolutions < 1f)
- {
- revolutions = 1f;
- }
- if (revolutions > 4f)
- {
- revolutions = 4f;
- }
- tempFloat = 66.66667f * (revolutions - 1.0f);
- shapeBlock.PathRevolutions = (byte)tempFloat;
- // limits on radiusoffset depend on revolutions and hole size (how?) seems like the maximum range is 0 to 1
- if (radiusoffset < 0f)
- {
- radiusoffset = 0f;
- }
- if (radiusoffset > 1f)
- {
- radiusoffset = 1f;
- }
- tempFloat = 100.0f * radiusoffset;
- shapeBlock.PathRadiusOffset = (sbyte)tempFloat;
- if (skew < -0.95f)
- {
- skew = -0.95f;
- }
- if (skew > 0.95f)
- {
- skew = 0.95f;
- }
- tempFloat = 100.0f * skew;
- shapeBlock.PathSkew = (sbyte)tempFloat;
- part.Shape.SculptEntry = false;
- part.UpdateShape(shapeBlock);
- }
- // Prim type sculpt.
- protected void SetPrimitiveShapeParams(SceneObjectPart part, string map, int type, byte pathcurve)
- {
- ObjectShapePacket.ObjectDataBlock shapeBlock = new ObjectShapePacket.ObjectDataBlock();
- UUID sculptId;
- if (!UUID.TryParse(map, out sculptId))
- {
- sculptId = InventoryKey(map, (int)AssetType.Texture);
- }
- if (sculptId == UUID.Zero)
- return;
- shapeBlock.PathCurve = pathcurve;
- shapeBlock.ObjectLocalID = part.LocalId;
- shapeBlock.PathScaleX = 100;
- shapeBlock.PathScaleY = 150;
- int flag = type & (ScriptBaseClass.PRIM_SCULPT_FLAG_INVERT | ScriptBaseClass.PRIM_SCULPT_FLAG_MIRROR);
- if (type != (ScriptBaseClass.PRIM_SCULPT_TYPE_CYLINDER | flag) &&
- type != (ScriptBaseClass.PRIM_SCULPT_TYPE_PLANE | flag) &&
- type != (ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE | flag) &&
- type != (ScriptBaseClass.PRIM_SCULPT_TYPE_TORUS | flag))
- {
- // default
- type = (int)ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE;
- }
- part.Shape.SetSculptProperties((byte)type, sculptId);
- part.Shape.SculptEntry = true;
- part.UpdateShape(shapeBlock);
- }
- public void llSetPrimitiveParams(LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- setLinkPrimParams(ScriptBaseClass.LINK_THIS, rules, "llSetPrimitiveParams");
- ScriptSleep(200);
- }
- public void llSetLinkPrimitiveParams(int linknumber, LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- setLinkPrimParams(linknumber, rules, "llSetLinkPrimitiveParams");
- ScriptSleep(200);
- }
- public void llSetLinkPrimitiveParamsFast(int linknumber, LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- setLinkPrimParams(linknumber, rules, "llSetLinkPrimitiveParamsFast");
- }
- protected void setLinkPrimParams(int linknumber, LSL_List rules, string originFunc)
- {
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- LSL_List remaining = null;
- uint rulesParsed = 0;
- foreach (SceneObjectPart part in parts)
- remaining = SetPrimParams(part, rules, originFunc, ref rulesParsed);
- while (remaining != null && remaining.Length > 2)
- {
- linknumber = remaining.GetLSLIntegerItem(0);
- rules = remaining.GetSublist(1, -1);
- parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- remaining = SetPrimParams(part, rules, originFunc, ref rulesParsed);
- }
- }
- protected LSL_List SetPrimParams(SceneObjectPart part, LSL_List rules, string originFunc, ref uint rulesParsed)
- {
- int idx = 0;
- int idxStart = 0;
- bool positionChanged = false;
- LSL_Vector currentPosition = GetPartLocalPos(part);
- try
- {
- while (idx < rules.Length)
- {
- ++rulesParsed;
- int code = rules.GetLSLIntegerItem(idx++);
- int remain = rules.Length - idx;
- idxStart = idx;
- int face;
- LSL_Vector v;
- switch (code)
- {
- case (int)ScriptBaseClass.PRIM_POSITION:
- case (int)ScriptBaseClass.PRIM_POS_LOCAL:
- if (remain < 1)
- return null;
- v=rules.GetVector3Item(idx++);
- positionChanged = true;
- currentPosition = GetSetPosTarget(part, v, currentPosition);
- break;
- case (int)ScriptBaseClass.PRIM_SIZE:
- if (remain < 1)
- return null;
- v=rules.GetVector3Item(idx++);
- SetScale(part, v);
- break;
- case (int)ScriptBaseClass.PRIM_ROTATION:
- if (remain < 1)
- return null;
- LSL_Rotation q = rules.GetQuaternionItem(idx++);
- // try to let this work as in SL...
- if (part.ParentID == 0)
- {
- // special case: If we are root, rotate complete SOG to new rotation
- SetRot(part, q);
- }
- else
- {
- // we are a child. The rotation values will be set to the one of root modified by rot, as in SL. Don't ask.
- SceneObjectPart rootPart = part.ParentGroup.RootPart;
- SetRot(part, rootPart.RotationOffset * (Quaternion)q);
- }
- break;
- case (int)ScriptBaseClass.PRIM_TYPE:
- if (remain < 3)
- return null;
- code = (int)rules.GetLSLIntegerItem(idx++);
- remain = rules.Length - idx;
- float hollow;
- LSL_Vector twist;
- LSL_Vector taper_b;
- LSL_Vector topshear;
- float revolutions;
- float radiusoffset;
- float skew;
- LSL_Vector holesize;
- LSL_Vector profilecut;
- switch (code)
- {
- case (int)ScriptBaseClass.PRIM_TYPE_BOX:
- if (remain < 6)
- return null;
- face = (int)rules.GetLSLIntegerItem(idx++);
- v = rules.GetVector3Item(idx++); // cut
- hollow = (float)rules.GetLSLFloatItem(idx++);
- twist = rules.GetVector3Item(idx++);
- taper_b = rules.GetVector3Item(idx++);
- topshear = rules.GetVector3Item(idx++);
- SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear,
- (byte)ProfileShape.Square, (byte)Extrusion.Straight);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_CYLINDER:
- if (remain < 6)
- return null;
- face = (int)rules.GetLSLIntegerItem(idx++); // holeshape
- v = rules.GetVector3Item(idx++); // cut
- hollow = (float)rules.GetLSLFloatItem(idx++);
- twist = rules.GetVector3Item(idx++);
- taper_b = rules.GetVector3Item(idx++);
- topshear = rules.GetVector3Item(idx++);
- SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear,
- (byte)ProfileShape.Circle, (byte)Extrusion.Straight);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_PRISM:
- if (remain < 6)
- return null;
- face = (int)rules.GetLSLIntegerItem(idx++); // holeshape
- v = rules.GetVector3Item(idx++); //cut
- hollow = (float)rules.GetLSLFloatItem(idx++);
- twist = rules.GetVector3Item(idx++);
- taper_b = rules.GetVector3Item(idx++);
- topshear = rules.GetVector3Item(idx++);
- SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear,
- (byte)ProfileShape.EquilateralTriangle, (byte)Extrusion.Straight);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_SPHERE:
- if (remain < 5)
- return null;
- face = (int)rules.GetLSLIntegerItem(idx++); // holeshape
- v = rules.GetVector3Item(idx++); // cut
- hollow = (float)rules.GetLSLFloatItem(idx++);
- twist = rules.GetVector3Item(idx++);
- taper_b = rules.GetVector3Item(idx++); // dimple
- SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b,
- (byte)ProfileShape.HalfCircle, (byte)Extrusion.Curve1);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_TORUS:
- if (remain < 11)
- return null;
- face = (int)rules.GetLSLIntegerItem(idx++); // holeshape
- v = rules.GetVector3Item(idx++); //cut
- hollow = (float)rules.GetLSLFloatItem(idx++);
- twist = rules.GetVector3Item(idx++);
- holesize = rules.GetVector3Item(idx++);
- topshear = rules.GetVector3Item(idx++);
- profilecut = rules.GetVector3Item(idx++);
- taper_b = rules.GetVector3Item(idx++); // taper_a
- revolutions = (float)rules.GetLSLFloatItem(idx++);
- radiusoffset = (float)rules.GetLSLFloatItem(idx++);
- skew = (float)rules.GetLSLFloatItem(idx++);
- SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b,
- revolutions, radiusoffset, skew, (byte)ProfileShape.Circle, (byte)Extrusion.Curve1);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_TUBE:
- if (remain < 11)
- return null;
- face = (int)rules.GetLSLIntegerItem(idx++); // holeshape
- v = rules.GetVector3Item(idx++); //cut
- hollow = (float)rules.GetLSLFloatItem(idx++);
- twist = rules.GetVector3Item(idx++);
- holesize = rules.GetVector3Item(idx++);
- topshear = rules.GetVector3Item(idx++);
- profilecut = rules.GetVector3Item(idx++);
- taper_b = rules.GetVector3Item(idx++); // taper_a
- revolutions = (float)rules.GetLSLFloatItem(idx++);
- radiusoffset = (float)rules.GetLSLFloatItem(idx++);
- skew = (float)rules.GetLSLFloatItem(idx++);
- SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b,
- revolutions, radiusoffset, skew, (byte)ProfileShape.Square, (byte)Extrusion.Curve1);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_RING:
- if (remain < 11)
- return null;
- face = (int)rules.GetLSLIntegerItem(idx++); // holeshape
- v = rules.GetVector3Item(idx++); //cut
- hollow = (float)rules.GetLSLFloatItem(idx++);
- twist = rules.GetVector3Item(idx++);
- holesize = rules.GetVector3Item(idx++);
- topshear = rules.GetVector3Item(idx++);
- profilecut = rules.GetVector3Item(idx++);
- taper_b = rules.GetVector3Item(idx++); // taper_a
- revolutions = (float)rules.GetLSLFloatItem(idx++);
- radiusoffset = (float)rules.GetLSLFloatItem(idx++);
- skew = (float)rules.GetLSLFloatItem(idx++);
- SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b,
- revolutions, radiusoffset, skew, (byte)ProfileShape.EquilateralTriangle, (byte)Extrusion.Curve1);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_SCULPT:
- if (remain < 2)
- return null;
- string map = rules.Data[idx++].ToString();
- face = (int)rules.GetLSLIntegerItem(idx++); // type
- SetPrimitiveShapeParams(part, map, face, (byte)Extrusion.Curve1);
- break;
- }
- break;
- case (int)ScriptBaseClass.PRIM_TEXTURE:
- if (remain < 5)
- return null;
- face=(int)rules.GetLSLIntegerItem(idx++);
- string tex=rules.Data[idx++].ToString();
- LSL_Vector repeats=rules.GetVector3Item(idx++);
- LSL_Vector offsets=rules.GetVector3Item(idx++);
- double rotation=(double)rules.GetLSLFloatItem(idx++);
- SetTexture(part, tex, face);
- ScaleTexture(part, repeats.x, repeats.y, face);
- OffsetTexture(part, offsets.x, offsets.y, face);
- RotateTexture(part, rotation, face);
- break;
- case (int)ScriptBaseClass.PRIM_COLOR:
- if (remain < 3)
- return null;
- face=(int)rules.GetLSLIntegerItem(idx++);
- LSL_Vector color=rules.GetVector3Item(idx++);
- double alpha=(double)rules.GetLSLFloatItem(idx++);
- part.SetFaceColorAlpha(face, color, alpha);
- break;
- case (int)ScriptBaseClass.PRIM_FLEXIBLE:
- if (remain < 7)
- return null;
- bool flexi = rules.GetLSLIntegerItem(idx++);
- int softness = rules.GetLSLIntegerItem(idx++);
- float gravity = (float)rules.GetLSLFloatItem(idx++);
- float friction = (float)rules.GetLSLFloatItem(idx++);
- float wind = (float)rules.GetLSLFloatItem(idx++);
- float tension = (float)rules.GetLSLFloatItem(idx++);
- LSL_Vector force = rules.GetVector3Item(idx++);
- SetFlexi(part, flexi, softness, gravity, friction, wind, tension, force);
- break;
- case (int)ScriptBaseClass.PRIM_POINT_LIGHT:
- if (remain < 5)
- return null;
- bool light = rules.GetLSLIntegerItem(idx++);
- LSL_Vector lightcolor = rules.GetVector3Item(idx++);
- float intensity = (float)rules.GetLSLFloatItem(idx++);
- float radius = (float)rules.GetLSLFloatItem(idx++);
- float falloff = (float)rules.GetLSLFloatItem(idx++);
- SetPointLight(part, light, lightcolor, intensity, radius, falloff);
- break;
- case (int)ScriptBaseClass.PRIM_GLOW:
- if (remain < 2)
- return null;
- face = rules.GetLSLIntegerItem(idx++);
- float glow = (float)rules.GetLSLFloatItem(idx++);
- SetGlow(part, face, glow);
- break;
- case (int)ScriptBaseClass.PRIM_BUMP_SHINY:
- if (remain < 3)
- return null;
- face = (int)rules.GetLSLIntegerItem(idx++);
- int shiny = (int)rules.GetLSLIntegerItem(idx++);
- Bumpiness bump = (Bumpiness)(int)rules.GetLSLIntegerItem(idx++);
- SetShiny(part, face, shiny, bump);
- break;
- case (int)ScriptBaseClass.PRIM_FULLBRIGHT:
- if (remain < 2)
- return null;
- face = rules.GetLSLIntegerItem(idx++);
- bool st = rules.GetLSLIntegerItem(idx++);
- SetFullBright(part, face , st);
- break;
- case (int)ScriptBaseClass.PRIM_MATERIAL:
- if (remain < 1)
- return null;
- int mat = rules.GetLSLIntegerItem(idx++);
- if (mat < 0 || mat > 7)
- return null;
- part.Material = Convert.ToByte(mat);
- break;
- case (int)ScriptBaseClass.PRIM_PHANTOM:
- if (remain < 1)
- return null;
- string ph = rules.Data[idx++].ToString();
- m_host.ParentGroup.ScriptSetPhantomStatus(ph.Equals("1"));
- break;
- case (int)ScriptBaseClass.PRIM_PHYSICS:
- if (remain < 1)
- return null;
- string phy = rules.Data[idx++].ToString();
- bool physics;
- if (phy.Equals("1"))
- physics = true;
- else
- physics = false;
- part.ScriptSetPhysicsStatus(physics);
- break;
- case (int)ScriptBaseClass.PRIM_TEMP_ON_REZ:
- if (remain < 1)
- return null;
- string temp = rules.Data[idx++].ToString();
- m_host.ParentGroup.ScriptSetTemporaryStatus(temp.Equals("1"));
- break;
- case (int)ScriptBaseClass.PRIM_TEXGEN:
- if (remain < 2)
- return null;
- //face,type
- face = rules.GetLSLIntegerItem(idx++);
- int style = rules.GetLSLIntegerItem(idx++);
- SetTexGen(part, face, style);
- break;
- case (int)ScriptBaseClass.PRIM_TEXT:
- if (remain < 3)
- return null;
- string primText = rules.GetLSLStringItem(idx++);
- LSL_Vector primTextColor = rules.GetVector3Item(idx++);
- LSL_Float primTextAlpha = rules.GetLSLFloatItem(idx++);
- Vector3 av3 = Util.Clip(primTextColor, 0.0f, 1.0f);
- part.SetText(primText, av3, Util.Clip((float)primTextAlpha, 0.0f, 1.0f));
- break;
- case (int)ScriptBaseClass.PRIM_NAME:
- if (remain < 1)
- return null;
- string primName = rules.GetLSLStringItem(idx++);
- part.Name = primName;
- break;
- case (int)ScriptBaseClass.PRIM_DESC:
- if (remain < 1)
- return null;
- string primDesc = rules.GetLSLStringItem(idx++);
- part.Description = primDesc;
- break;
- case (int)ScriptBaseClass.PRIM_ROT_LOCAL:
- if (remain < 1)
- return null;
- SetRot(part, rules.GetQuaternionItem(idx++));
- break;
- case (int)ScriptBaseClass.PRIM_OMEGA:
- if (remain < 3)
- return null;
- LSL_Vector axis = rules.GetVector3Item(idx++);
- LSL_Float spinrate = rules.GetLSLFloatItem(idx++);
- LSL_Float gain = rules.GetLSLFloatItem(idx++);
- TargetOmega(part, axis, (double)spinrate, (double)gain);
- break;
- case (int)ScriptBaseClass.PRIM_SLICE:
- if (remain < 1)
- return null;
- LSL_Vector slice = rules.GetVector3Item(idx++);
- part.UpdateSlice((float)slice.x, (float)slice.y);
- break;
- case (int)ScriptBaseClass.PRIM_LINK_TARGET:
- if (remain < 3) // setting to 3 on the basis that parsing any usage of PRIM_LINK_TARGET that has nothing following it is pointless.
- return null;
- return rules.GetSublist(idx, -1);
- }
- }
- }
- catch (InvalidCastException e)
- {
- ShoutError(string.Format(
- "{0} error running rule #{1}: arg #{2} ",
- originFunc, rulesParsed, idx - idxStart) + e.Message);
- }
- finally
- {
- if (positionChanged)
- {
- if (part.ParentGroup.RootPart == part)
- {
- SceneObjectGroup parent = part.ParentGroup;
- parent.UpdateGroupPosition(currentPosition);
- }
- else
- {
- part.OffsetPosition = currentPosition;
- SceneObjectGroup parent = part.ParentGroup;
- parent.HasGroupChanged = true;
- parent.ScheduleGroupForTerseUpdate();
- }
- }
- }
- return null;
- }
- public LSL_String llStringToBase64(string str)
- {
- m_host.AddScriptLPS(1);
- try
- {
- byte[] encData_byte = new byte[str.Length];
- encData_byte = Util.UTF8.GetBytes(str);
- string encodedData = Convert.ToBase64String(encData_byte);
- return encodedData;
- }
- catch (Exception e)
- {
- throw new Exception("Error in base64Encode" + e.Message);
- }
- }
- public LSL_String llBase64ToString(string str)
- {
- m_host.AddScriptLPS(1);
- try
- {
- return Util.Base64ToString(str);
- }
- catch (Exception e)
- {
- throw new Exception("Error in base64Decode" + e.Message);
- }
- }
- public LSL_String llXorBase64Strings(string str1, string str2)
- {
- m_host.AddScriptLPS(1);
- Deprecated("llXorBase64Strings");
- ScriptSleep(300);
- return String.Empty;
- }
- public void llRemoteDataSetRegion()
- {
- m_host.AddScriptLPS(1);
- Deprecated("llRemoteDataSetRegion");
- }
- public LSL_Float llLog10(double val)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Log10(val);
- }
- public LSL_Float llLog(double val)
- {
- m_host.AddScriptLPS(1);
- return (double)Math.Log(val);
- }
- public LSL_List llGetAnimationList(string id)
- {
- m_host.AddScriptLPS(1);
- LSL_List l = new LSL_List();
- ScenePresence av = World.GetScenePresence((UUID)id);
- if (av == null || av.IsChildAgent) // only if in the region
- return l;
- UUID[] anims;
- anims = av.Animator.GetAnimationArray();
- foreach (UUID foo in anims)
- l.Add(new LSL_Key(foo.ToString()));
- return l;
- }
- public void llSetParcelMusicURL(string url)
- {
- m_host.AddScriptLPS(1);
- ILandObject land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y);
- if (land.LandData.OwnerID != m_host.OwnerID)
- return;
- land.SetMusicUrl(url);
- ScriptSleep(2000);
- }
- public LSL_String llGetParcelMusicURL()
- {
- m_host.AddScriptLPS(1);
- ILandObject land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y);
- if (land.LandData.OwnerID != m_host.OwnerID)
- return String.Empty;
- return land.GetMusicUrl();
- }
- public LSL_Vector llGetRootPosition()
- {
- m_host.AddScriptLPS(1);
- return new LSL_Vector(m_host.ParentGroup.AbsolutePosition.X, m_host.ParentGroup.AbsolutePosition.Y,
- m_host.ParentGroup.AbsolutePosition.Z);
- }
- /// <summary>
- /// http://lslwiki.net/lslwiki/wakka.php?wakka=llGetRot
- /// http://lslwiki.net/lslwiki/wakka.php?wakka=ChildRotation
- /// Also tested in sl in regards to the behaviour in attachments/mouselook
- /// In the root prim:-
- /// Returns the object rotation if not attached
- /// Returns the avatars rotation if attached
- /// Returns the camera rotation if attached and the avatar is in mouselook
- /// </summary>
- public LSL_Rotation llGetRootRotation()
- {
- m_host.AddScriptLPS(1);
- Quaternion q;
- if (m_host.ParentGroup.AttachmentPoint != 0)
- {
- ScenePresence avatar = World.GetScenePresence(m_host.ParentGroup.AttachedAvatar);
- if (avatar != null)
- if ((avatar.AgentControlFlags & (uint)AgentManager.ControlFlags.AGENT_CONTROL_MOUSELOOK) != 0)
- q = avatar.CameraRotation; // Mouselook
- else
- q = avatar.Rotation; // Currently infrequently updated so may be inaccurate
- else
- q = m_host.ParentGroup.GroupRotation; // Likely never get here but just in case
- }
- else
- q = m_host.ParentGroup.GroupRotation; // just the group rotation
- return new LSL_Rotation(q.X, q.Y, q.Z, q.W);
- }
- public LSL_String llGetObjectDesc()
- {
- return m_host.Description!=null?m_host.Description:String.Empty;
- }
- public void llSetObjectDesc(string desc)
- {
- m_host.AddScriptLPS(1);
- m_host.Description = desc!=null?desc:String.Empty;
- }
- public LSL_String llGetCreator()
- {
- m_host.AddScriptLPS(1);
- return m_host.CreatorID.ToString();
- }
- public LSL_String llGetTimestamp()
- {
- m_host.AddScriptLPS(1);
- return DateTime.Now.ToUniversalTime().ToString("yyyy-MM-ddTHH:mm:ss.fffffffZ");
- }
- public LSL_Integer llGetNumberOfPrims()
- {
- m_host.AddScriptLPS(1);
- int avatarCount = 0;
- World.ForEachRootScenePresence(delegate(ScenePresence presence)
- {
- if (presence.ParentID != 0 && m_host.ParentGroup.ContainsPart(presence.ParentID))
- avatarCount++;
- });
- return m_host.ParentGroup.PrimCount + avatarCount;
- }
- /// <summary>
- /// A partial implementation.
- /// http://lslwiki.net/lslwiki/wakka.php?wakka=llGetBoundingBox
- /// So far only valid for standing/flying/ground sitting avatars and single prim objects.
- /// If the object has multiple prims and/or a sitting avatar then the bounding
- /// box is for the root prim only.
- /// </summary>
- public LSL_List llGetBoundingBox(string obj)
- {
- m_host.AddScriptLPS(1);
- UUID objID = UUID.Zero;
- LSL_List result = new LSL_List();
- if (!UUID.TryParse(obj, out objID))
- {
- result.Add(new LSL_Vector());
- result.Add(new LSL_Vector());
- return result;
- }
- ScenePresence presence = World.GetScenePresence(objID);
- if (presence != null)
- {
- if (presence.ParentID == 0) // not sat on an object
- {
- LSL_Vector lower;
- LSL_Vector upper;
- if (presence.Animator.Animations.ImplicitDefaultAnimation.AnimID
- == DefaultAvatarAnimations.AnimsUUID["SIT_GROUND_CONSTRAINED"])
- {
- // This is for ground sitting avatars
- float height = presence.Appearance.AvatarHeight / 2.66666667f;
- lower = new LSL_Vector(-0.3375f, -0.45f, height * -1.0f);
- upper = new LSL_Vector(0.3375f, 0.45f, 0.0f);
- }
- else
- {
- // This is for standing/flying avatars
- float height = presence.Appearance.AvatarHeight / 2.0f;
- lower = new LSL_Vector(-0.225f, -0.3f, height * -1.0f);
- upper = new LSL_Vector(0.225f, 0.3f, height + 0.05f);
- }
- result.Add(lower);
- result.Add(upper);
- return result;
- }
- else
- {
- // sitting on an object so we need the bounding box of that
- // which should include the avatar so set the UUID to the
- // UUID of the object the avatar is sat on and allow it to fall through
- // to processing an object
- SceneObjectPart p = World.GetSceneObjectPart(presence.ParentID);
- objID = p.UUID;
- }
- }
- SceneObjectPart part = World.GetSceneObjectPart(objID);
- // Currently only works for single prims without a sitting avatar
- if (part != null)
- {
- Vector3 halfSize = part.Scale / 2.0f;
- LSL_Vector lower = (new LSL_Vector(halfSize)) * -1.0f;
- LSL_Vector upper = new LSL_Vector(halfSize);
- result.Add(lower);
- result.Add(upper);
- return result;
- }
- // Not found so return empty values
- result.Add(new LSL_Vector());
- result.Add(new LSL_Vector());
- return result;
- }
- public LSL_Vector llGetGeometricCenter()
- {
- return new LSL_Vector(m_host.GetGeometricCenter().X, m_host.GetGeometricCenter().Y, m_host.GetGeometricCenter().Z);
- }
- public LSL_List llGetPrimitiveParams(LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- LSL_List result = new LSL_List();
- LSL_List remaining = GetPrimParams(m_host, rules, ref result);
- while (remaining != null && remaining.Length > 2)
- {
- int linknumber = remaining.GetLSLIntegerItem(0);
- rules = remaining.GetSublist(1, -1);
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- remaining = GetPrimParams(part, rules, ref result);
- }
- return result;
- }
- public LSL_List llGetLinkPrimitiveParams(int linknumber, LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- LSL_List res = new LSL_List();
- LSL_List remaining = null;
- foreach (SceneObjectPart part in parts)
- {
- remaining = GetPrimParams(part, rules, ref res);
- }
- while (remaining != null && remaining.Length > 2)
- {
- linknumber = remaining.GetLSLIntegerItem(0);
- rules = remaining.GetSublist(1, -1);
- parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- remaining = GetPrimParams(part, rules, ref res);
- }
- return res;
- }
- public LSL_List GetPrimParams(SceneObjectPart part, LSL_List rules, ref LSL_List res)
- {
- int idx=0;
- while (idx < rules.Length)
- {
- int code=(int)rules.GetLSLIntegerItem(idx++);
- int remain=rules.Length-idx;
- switch (code)
- {
- case (int)ScriptBaseClass.PRIM_MATERIAL:
- res.Add(new LSL_Integer(part.Material));
- break;
- case (int)ScriptBaseClass.PRIM_PHYSICS:
- if ((part.GetEffectiveObjectFlags() & (uint)PrimFlags.Physics) != 0)
- res.Add(new LSL_Integer(1));
- else
- res.Add(new LSL_Integer(0));
- break;
- case (int)ScriptBaseClass.PRIM_TEMP_ON_REZ:
- if ((part.GetEffectiveObjectFlags() & (uint)PrimFlags.TemporaryOnRez) != 0)
- res.Add(new LSL_Integer(1));
- else
- res.Add(new LSL_Integer(0));
- break;
- case (int)ScriptBaseClass.PRIM_PHANTOM:
- if ((part.GetEffectiveObjectFlags() & (uint)PrimFlags.Phantom) != 0)
- res.Add(new LSL_Integer(1));
- else
- res.Add(new LSL_Integer(0));
- break;
- case (int)ScriptBaseClass.PRIM_POSITION:
- LSL_Vector v = new LSL_Vector(part.AbsolutePosition.X,
- part.AbsolutePosition.Y,
- part.AbsolutePosition.Z);
- // For some reason, the part.AbsolutePosition.* values do not change if the
- // linkset is rotated; they always reflect the child prim's world position
- // as though the linkset is unrotated. This is incompatible behavior with SL's
- // implementation, so will break scripts imported from there (not to mention it
- // makes it more difficult to determine a child prim's actual inworld position).
- if (part.ParentID != 0)
- v = ((v - llGetRootPosition()) * llGetRootRotation()) + llGetRootPosition();
- res.Add(v);
- break;
- case (int)ScriptBaseClass.PRIM_SIZE:
- res.Add(new LSL_Vector(part.Scale.X,
- part.Scale.Y,
- part.Scale.Z));
- break;
- case (int)ScriptBaseClass.PRIM_ROTATION:
- res.Add(GetPartRot(part));
- break;
- case (int)ScriptBaseClass.PRIM_TYPE:
- // implementing box
- PrimitiveBaseShape Shape = part.Shape;
- int primType = (int)part.GetPrimType();
- res.Add(new LSL_Integer(primType));
- double topshearx = (double)(sbyte)Shape.PathShearX / 100.0; // Fix negative values for PathShearX
- double topsheary = (double)(sbyte)Shape.PathShearY / 100.0; // and PathShearY.
- switch (primType)
- {
- case ScriptBaseClass.PRIM_TYPE_BOX:
- case ScriptBaseClass.PRIM_TYPE_CYLINDER:
- case ScriptBaseClass.PRIM_TYPE_PRISM:
- res.Add(new LSL_Integer(Shape.ProfileCurve) & 0xf0); // Isolate hole shape nibble.
- res.Add(new LSL_Vector(Shape.ProfileBegin / 50000.0, 1 - Shape.ProfileEnd / 50000.0, 0));
- res.Add(new LSL_Float(Shape.ProfileHollow / 50000.0));
- res.Add(new LSL_Vector(Shape.PathTwistBegin / 100.0, Shape.PathTwist / 100.0, 0));
- res.Add(new LSL_Vector(1 - (Shape.PathScaleX / 100.0 - 1), 1 - (Shape.PathScaleY / 100.0 - 1), 0));
- res.Add(new LSL_Vector(topshearx, topsheary, 0));
- break;
- case ScriptBaseClass.PRIM_TYPE_SPHERE:
- res.Add(new LSL_Integer(Shape.ProfileCurve) & 0xf0); // Isolate hole shape nibble.
- res.Add(new LSL_Vector(Shape.PathBegin / 50000.0, 1 - Shape.PathEnd / 50000.0, 0));
- res.Add(new LSL_Float(Shape.ProfileHollow / 50000.0));
- res.Add(new LSL_Vector(Shape.PathTwistBegin / 100.0, Shape.PathTwist / 100.0, 0));
- res.Add(new LSL_Vector(Shape.ProfileBegin / 50000.0, 1 - Shape.ProfileEnd / 50000.0, 0));
- break;
- case ScriptBaseClass.PRIM_TYPE_SCULPT:
- res.Add(Shape.SculptTexture.ToString());
- res.Add(new LSL_Integer(Shape.SculptType));
- break;
- case ScriptBaseClass.PRIM_TYPE_RING:
- case ScriptBaseClass.PRIM_TYPE_TUBE:
- case ScriptBaseClass.PRIM_TYPE_TORUS:
- // holeshape
- res.Add(new LSL_Integer(Shape.ProfileCurve) & 0xf0); // Isolate hole shape nibble.
- // cut
- res.Add(new LSL_Vector(Shape.PathBegin / 50000.0, 1 - Shape.PathEnd / 50000.0, 0));
- // hollow
- res.Add(new LSL_Float(Shape.ProfileHollow / 50000.0));
- // twist
- res.Add(new LSL_Vector(Shape.PathTwistBegin / 100.0, Shape.PathTwist / 100.0, 0));
- // vector holesize
- res.Add(new LSL_Vector(1 - (Shape.PathScaleX / 100.0 - 1), 1 - (Shape.PathScaleY / 100.0 - 1), 0));
- // vector topshear
- res.Add(new LSL_Vector(topshearx, topsheary, 0));
- // vector profilecut
- res.Add(new LSL_Vector(Shape.ProfileBegin / 50000.0, 1 - Shape.ProfileEnd / 50000.0, 0));
- // vector tapera
- res.Add(new LSL_Vector(Shape.PathTaperX / 100.0, Shape.PathTaperY / 100.0, 0));
- // float revolutions
- res.Add(new LSL_Float(Math.Round(Shape.PathRevolutions * 0.015d, 2, MidpointRounding.AwayFromZero)) + 1.0d);
- // Slightly inaccurate, because an unsigned byte is being used to represent
- // the entire range of floating-point values from 1.0 through 4.0 (which is how
- // SL does it).
- //
- // Using these formulas to store and retrieve PathRevolutions, it is not
- // possible to use all values between 1.00 and 4.00. For instance, you can't
- // represent 1.10. You can represent 1.09 and 1.11, but not 1.10. So, if you
- // use llSetPrimitiveParams to set revolutions to 1.10 and then retreive them
- // with llGetPrimitiveParams, you'll retrieve 1.09. You can also see a similar
- // behavior in the viewer as you cannot set 1.10. The viewer jumps to 1.11.
- // In SL, llSetPrimitveParams and llGetPrimitiveParams can set and get a value
- // such as 1.10. So, SL must store and retreive the actual user input rather
- // than only storing the encoded value.
- // float radiusoffset
- res.Add(new LSL_Float(Shape.PathRadiusOffset / 100.0));
- // float skew
- res.Add(new LSL_Float(Shape.PathSkew / 100.0));
- break;
- }
- break;
- case (int)ScriptBaseClass.PRIM_TEXTURE:
- if (remain < 1)
- return null;
- int face = (int)rules.GetLSLIntegerItem(idx++);
- Primitive.TextureEntry tex = part.Shape.Textures;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (face = 0 ; face < GetNumberOfSides(part); face++)
- {
- Primitive.TextureEntryFace texface = tex.GetFace((uint)face);
- res.Add(new LSL_String(texface.TextureID.ToString()));
- res.Add(new LSL_Vector(texface.RepeatU,
- texface.RepeatV,
- 0));
- res.Add(new LSL_Vector(texface.OffsetU,
- texface.OffsetV,
- 0));
- res.Add(new LSL_Float(texface.Rotation));
- }
- }
- else
- {
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- Primitive.TextureEntryFace texface = tex.GetFace((uint)face);
- res.Add(new LSL_String(texface.TextureID.ToString()));
- res.Add(new LSL_Vector(texface.RepeatU,
- texface.RepeatV,
- 0));
- res.Add(new LSL_Vector(texface.OffsetU,
- texface.OffsetV,
- 0));
- res.Add(new LSL_Float(texface.Rotation));
- }
- }
- break;
- case (int)ScriptBaseClass.PRIM_COLOR:
- if (remain < 1)
- return null;
- face=(int)rules.GetLSLIntegerItem(idx++);
- tex = part.Shape.Textures;
- Color4 texcolor;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (face = 0 ; face < GetNumberOfSides(part); face++)
- {
- texcolor = tex.GetFace((uint)face).RGBA;
- res.Add(new LSL_Vector(texcolor.R,
- texcolor.G,
- texcolor.B));
- res.Add(new LSL_Float(texcolor.A));
- }
- }
- else
- {
- texcolor = tex.GetFace((uint)face).RGBA;
- res.Add(new LSL_Vector(texcolor.R,
- texcolor.G,
- texcolor.B));
- res.Add(new LSL_Float(texcolor.A));
- }
- break;
- case (int)ScriptBaseClass.PRIM_BUMP_SHINY:
- if (remain < 1)
- return null;
- face=(int)rules.GetLSLIntegerItem(idx++);
- tex = part.Shape.Textures;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (face = 0; face < GetNumberOfSides(part); face++)
- {
- Primitive.TextureEntryFace texface = tex.GetFace((uint)face);
- // Convert Shininess to PRIM_SHINY_*
- res.Add(new LSL_Integer((uint)texface.Shiny >> 6));
- // PRIM_BUMP_*
- res.Add(new LSL_Integer((int)texface.Bump));
- }
- }
- else
- {
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- Primitive.TextureEntryFace texface = tex.GetFace((uint)face);
- // Convert Shininess to PRIM_SHINY_*
- res.Add(new LSL_Integer((uint)texface.Shiny >> 6));
- // PRIM_BUMP_*
- res.Add(new LSL_Integer((int)texface.Bump));
- }
- }
- break;
- case (int)ScriptBaseClass.PRIM_FULLBRIGHT:
- if (remain < 1)
- return null;
- face=(int)rules.GetLSLIntegerItem(idx++);
- tex = part.Shape.Textures;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (face = 0; face < GetNumberOfSides(part); face++)
- {
- Primitive.TextureEntryFace texface = tex.GetFace((uint)face);
- res.Add(new LSL_Integer(texface.Fullbright ? 1 : 0));
- }
- }
- else
- {
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- Primitive.TextureEntryFace texface = tex.GetFace((uint)face);
- res.Add(new LSL_Integer(texface.Fullbright ? 1 : 0));
- }
- }
- break;
- case (int)ScriptBaseClass.PRIM_FLEXIBLE:
- PrimitiveBaseShape shape = part.Shape;
- if (shape.FlexiEntry)
- res.Add(new LSL_Integer(1)); // active
- else
- res.Add(new LSL_Integer(0));
- res.Add(new LSL_Integer(shape.FlexiSoftness));// softness
- res.Add(new LSL_Float(shape.FlexiGravity)); // gravity
- res.Add(new LSL_Float(shape.FlexiDrag)); // friction
- res.Add(new LSL_Float(shape.FlexiWind)); // wind
- res.Add(new LSL_Float(shape.FlexiTension)); // tension
- res.Add(new LSL_Vector(shape.FlexiForceX, // force
- shape.FlexiForceY,
- shape.FlexiForceZ));
- break;
- case (int)ScriptBaseClass.PRIM_TEXGEN:
- if (remain < 1)
- return null;
- face=(int)rules.GetLSLIntegerItem(idx++);
- tex = part.Shape.Textures;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (face = 0; face < GetNumberOfSides(part); face++)
- {
- MappingType texgen = tex.GetFace((uint)face).TexMapType;
- // Convert MappingType to PRIM_TEXGEN_DEFAULT, PRIM_TEXGEN_PLANAR etc.
- res.Add(new LSL_Integer((uint)texgen >> 1));
- }
- }
- else
- {
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- MappingType texgen = tex.GetFace((uint)face).TexMapType;
- res.Add(new LSL_Integer((uint)texgen >> 1));
- }
- }
- break;
- case (int)ScriptBaseClass.PRIM_POINT_LIGHT:
- shape = part.Shape;
- if (shape.LightEntry)
- res.Add(new LSL_Integer(1)); // active
- else
- res.Add(new LSL_Integer(0));
- res.Add(new LSL_Vector(shape.LightColorR, // color
- shape.LightColorG,
- shape.LightColorB));
- res.Add(new LSL_Float(shape.LightIntensity)); // intensity
- res.Add(new LSL_Float(shape.LightRadius)); // radius
- res.Add(new LSL_Float(shape.LightFalloff)); // falloff
- break;
- case (int)ScriptBaseClass.PRIM_GLOW:
- if (remain < 1)
- return null;
- face=(int)rules.GetLSLIntegerItem(idx++);
- tex = part.Shape.Textures;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (face = 0; face < GetNumberOfSides(part); face++)
- {
- Primitive.TextureEntryFace texface = tex.GetFace((uint)face);
- res.Add(new LSL_Float(texface.Glow));
- }
- }
- else
- {
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- Primitive.TextureEntryFace texface = tex.GetFace((uint)face);
- res.Add(new LSL_Float(texface.Glow));
- }
- }
- break;
- case (int)ScriptBaseClass.PRIM_TEXT:
- Color4 textColor = part.GetTextColor();
- res.Add(new LSL_String(part.Text));
- res.Add(new LSL_Vector(textColor.R,
- textColor.G,
- textColor.B));
- res.Add(new LSL_Float(textColor.A));
- break;
- case (int)ScriptBaseClass.PRIM_NAME:
- res.Add(new LSL_String(part.Name));
- break;
- case (int)ScriptBaseClass.PRIM_DESC:
- res.Add(new LSL_String(part.Description));
- break;
- case (int)ScriptBaseClass.PRIM_ROT_LOCAL:
- res.Add(new LSL_Rotation(part.RotationOffset.X, part.RotationOffset.Y, part.RotationOffset.Z, part.RotationOffset.W));
- break;
- case (int)ScriptBaseClass.PRIM_POS_LOCAL:
- res.Add(new LSL_Vector(GetPartLocalPos(part)));
- break;
- case (int)ScriptBaseClass.PRIM_SLICE:
- PrimType prim_type = part.GetPrimType();
- bool useProfileBeginEnd = (prim_type == PrimType.SPHERE || prim_type == PrimType.TORUS || prim_type == PrimType.TUBE || prim_type == PrimType.RING);
- res.Add(new LSL_Vector(
- (useProfileBeginEnd ? part.Shape.ProfileBegin : part.Shape.PathBegin) / 50000.0,
- 1 - (useProfileBeginEnd ? part.Shape.ProfileEnd : part.Shape.PathEnd) / 50000.0,
- 0
- ));
- break;
- case (int)ScriptBaseClass.PRIM_LINK_TARGET:
- if(remain < 3)
- return null;
- return rules.GetSublist(idx, -1);
- }
- }
- return null;
- }
- public LSL_List llGetPrimMediaParams(int face, LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- ScriptSleep(1000);
- return GetPrimMediaParams(m_host, face, rules);
- }
- public LSL_List llGetLinkMedia(LSL_Integer link, LSL_Integer face, LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- ScriptSleep(1000);
- if (link == ScriptBaseClass.LINK_ROOT)
- return GetPrimMediaParams(m_host.ParentGroup.RootPart, face, rules);
- else if (link == ScriptBaseClass.LINK_THIS)
- return GetPrimMediaParams(m_host, face, rules);
- else
- {
- SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(link);
- if (null != part)
- return GetPrimMediaParams(part, face, rules);
- }
- return new LSL_List();
- }
- private LSL_List GetPrimMediaParams(SceneObjectPart part, int face, LSL_List rules)
- {
- // LSL Spec http://wiki.secondlife.com/wiki/LlGetPrimMediaParams says to fail silently if face is invalid
- // TODO: Need to correctly handle case where a face has no media (which gives back an empty list).
- // Assuming silently fail means give back an empty list. Ideally, need to check this.
- if (face < 0 || face > part.GetNumberOfSides() - 1)
- return new LSL_List();
- IMoapModule module = m_ScriptEngine.World.RequestModuleInterface<IMoapModule>();
- if (null == module)
- return new LSL_List();
- MediaEntry me = module.GetMediaEntry(part, face);
- // As per http://wiki.secondlife.com/wiki/LlGetPrimMediaParams
- if (null == me)
- return new LSL_List();
- LSL_List res = new LSL_List();
- for (int i = 0; i < rules.Length; i++)
- {
- int code = (int)rules.GetLSLIntegerItem(i);
- switch (code)
- {
- case ScriptBaseClass.PRIM_MEDIA_ALT_IMAGE_ENABLE:
- // Not implemented
- res.Add(new LSL_Integer(0));
- break;
- case ScriptBaseClass.PRIM_MEDIA_CONTROLS:
- if (me.Controls == MediaControls.Standard)
- res.Add(new LSL_Integer(ScriptBaseClass.PRIM_MEDIA_CONTROLS_STANDARD));
- else
- res.Add(new LSL_Integer(ScriptBaseClass.PRIM_MEDIA_CONTROLS_MINI));
- break;
- case ScriptBaseClass.PRIM_MEDIA_CURRENT_URL:
- res.Add(new LSL_String(me.CurrentURL));
- break;
- case ScriptBaseClass.PRIM_MEDIA_HOME_URL:
- res.Add(new LSL_String(me.HomeURL));
- break;
- case ScriptBaseClass.PRIM_MEDIA_AUTO_LOOP:
- res.Add(me.AutoLoop ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);
- break;
- case ScriptBaseClass.PRIM_MEDIA_AUTO_PLAY:
- res.Add(me.AutoPlay ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);
- break;
- case ScriptBaseClass.PRIM_MEDIA_AUTO_SCALE:
- res.Add(me.AutoScale ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);
- break;
- case ScriptBaseClass.PRIM_MEDIA_AUTO_ZOOM:
- res.Add(me.AutoZoom ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);
- break;
- case ScriptBaseClass.PRIM_MEDIA_FIRST_CLICK_INTERACT:
- res.Add(me.InteractOnFirstClick ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);
- break;
- case ScriptBaseClass.PRIM_MEDIA_WIDTH_PIXELS:
- res.Add(new LSL_Integer(me.Width));
- break;
- case ScriptBaseClass.PRIM_MEDIA_HEIGHT_PIXELS:
- res.Add(new LSL_Integer(me.Height));
- break;
- case ScriptBaseClass.PRIM_MEDIA_WHITELIST_ENABLE:
- res.Add(me.EnableWhiteList ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);
- break;
- case ScriptBaseClass.PRIM_MEDIA_WHITELIST:
- string[] urls = (string[])me.WhiteList.Clone();
- for (int j = 0; j < urls.Length; j++)
- urls[j] = Uri.EscapeDataString(urls[j]);
- res.Add(new LSL_String(string.Join(", ", urls)));
- break;
- case ScriptBaseClass.PRIM_MEDIA_PERMS_INTERACT:
- res.Add(new LSL_Integer((int)me.InteractPermissions));
- break;
- case ScriptBaseClass.PRIM_MEDIA_PERMS_CONTROL:
- res.Add(new LSL_Integer((int)me.ControlPermissions));
- break;
- default: return ScriptBaseClass.LSL_STATUS_MALFORMED_PARAMS;
- }
- }
- return res;
- }
- public LSL_Integer llSetPrimMediaParams(LSL_Integer face, LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- ScriptSleep(1000);
- return SetPrimMediaParams(m_host, face, rules);
- }
- public LSL_Integer llSetLinkMedia(LSL_Integer link, LSL_Integer face, LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- ScriptSleep(1000);
- if (link == ScriptBaseClass.LINK_ROOT)
- return SetPrimMediaParams(m_host.ParentGroup.RootPart, face, rules);
- else if (link == ScriptBaseClass.LINK_THIS)
- return SetPrimMediaParams(m_host, face, rules);
- else
- {
- SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(link);
- if (null != part)
- return SetPrimMediaParams(part, face, rules);
- }
- return ScriptBaseClass.LSL_STATUS_NOT_FOUND;
- }
- private LSL_Integer SetPrimMediaParams(SceneObjectPart part, LSL_Integer face, LSL_List rules)
- {
- // LSL Spec http://wiki.secondlife.com/wiki/LlSetPrimMediaParams says to fail silently if face is invalid
- // Assuming silently fail means sending back LSL_STATUS_OK. Ideally, need to check this.
- // Don't perform the media check directly
- if (face < 0 || face > part.GetNumberOfSides() - 1)
- return ScriptBaseClass.LSL_STATUS_NOT_FOUND;
- IMoapModule module = m_ScriptEngine.World.RequestModuleInterface<IMoapModule>();
- if (null == module)
- return ScriptBaseClass.LSL_STATUS_NOT_SUPPORTED;
- MediaEntry me = module.GetMediaEntry(part, face);
- if (null == me)
- me = new MediaEntry();
- int i = 0;
- while (i < rules.Length - 1)
- {
- int code = rules.GetLSLIntegerItem(i++);
- switch (code)
- {
- case ScriptBaseClass.PRIM_MEDIA_ALT_IMAGE_ENABLE:
- me.EnableAlterntiveImage = (rules.GetLSLIntegerItem(i++) != 0 ? true : false);
- break;
- case ScriptBaseClass.PRIM_MEDIA_CONTROLS:
- int v = rules.GetLSLIntegerItem(i++);
- if (ScriptBaseClass.PRIM_MEDIA_CONTROLS_STANDARD == v)
- me.Controls = MediaControls.Standard;
- else
- me.Controls = MediaControls.Mini;
- break;
- case ScriptBaseClass.PRIM_MEDIA_CURRENT_URL:
- me.CurrentURL = rules.GetLSLStringItem(i++);
- break;
- case ScriptBaseClass.PRIM_MEDIA_HOME_URL:
- me.HomeURL = rules.GetLSLStringItem(i++);
- break;
- case ScriptBaseClass.PRIM_MEDIA_AUTO_LOOP:
- me.AutoLoop = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++) ? true : false);
- break;
- case ScriptBaseClass.PRIM_MEDIA_AUTO_PLAY:
- me.AutoPlay = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++) ? true : false);
- break;
- case ScriptBaseClass.PRIM_MEDIA_AUTO_SCALE:
- me.AutoScale = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++) ? true : false);
- break;
- case ScriptBaseClass.PRIM_MEDIA_AUTO_ZOOM:
- me.AutoZoom = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++) ? true : false);
- break;
- case ScriptBaseClass.PRIM_MEDIA_FIRST_CLICK_INTERACT:
- me.InteractOnFirstClick = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++) ? true : false);
- break;
- case ScriptBaseClass.PRIM_MEDIA_WIDTH_PIXELS:
- me.Width = (int)rules.GetLSLIntegerItem(i++);
- break;
- case ScriptBaseClass.PRIM_MEDIA_HEIGHT_PIXELS:
- me.Height = (int)rules.GetLSLIntegerItem(i++);
- break;
- case ScriptBaseClass.PRIM_MEDIA_WHITELIST_ENABLE:
- me.EnableWhiteList = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++) ? true : false);
- break;
- case ScriptBaseClass.PRIM_MEDIA_WHITELIST:
- string[] rawWhiteListUrls = rules.GetLSLStringItem(i++).ToString().Split(new char[] { ',' });
- List<string> whiteListUrls = new List<string>();
- Array.ForEach(
- rawWhiteListUrls, delegate(string rawUrl) { whiteListUrls.Add(rawUrl.Trim()); });
- me.WhiteList = whiteListUrls.ToArray();
- break;
- case ScriptBaseClass.PRIM_MEDIA_PERMS_INTERACT:
- me.InteractPermissions = (MediaPermission)(byte)(int)rules.GetLSLIntegerItem(i++);
- break;
- case ScriptBaseClass.PRIM_MEDIA_PERMS_CONTROL:
- me.ControlPermissions = (MediaPermission)(byte)(int)rules.GetLSLIntegerItem(i++);
- break;
- default: return ScriptBaseClass.LSL_STATUS_MALFORMED_PARAMS;
- }
- }
- module.SetMediaEntry(part, face, me);
- return ScriptBaseClass.LSL_STATUS_OK;
- }
- public LSL_Integer llClearPrimMedia(LSL_Integer face)
- {
- m_host.AddScriptLPS(1);
- ScriptSleep(1000);
- return ClearPrimMedia(m_host, face);
- }
- public LSL_Integer llClearLinkMedia(LSL_Integer link, LSL_Integer face)
- {
- m_host.AddScriptLPS(1);
- ScriptSleep(1000);
- if (link == ScriptBaseClass.LINK_ROOT)
- return ClearPrimMedia(m_host.ParentGroup.RootPart, face);
- else if (link == ScriptBaseClass.LINK_THIS)
- return ClearPrimMedia(m_host, face);
- else
- {
- SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(link);
- if (null != part)
- return ClearPrimMedia(part, face);
- }
- return ScriptBaseClass.LSL_STATUS_NOT_FOUND;
- }
- private LSL_Integer ClearPrimMedia(SceneObjectPart part, LSL_Integer face)
- {
- // LSL Spec http://wiki.secondlife.com/wiki/LlClearPrimMedia says to fail silently if face is invalid
- // Assuming silently fail means sending back LSL_STATUS_OK. Ideally, need to check this.
- // FIXME: Don't perform the media check directly
- if (face < 0 || face > part.GetNumberOfSides() - 1)
- return ScriptBaseClass.LSL_STATUS_NOT_FOUND;
- IMoapModule module = m_ScriptEngine.World.RequestModuleInterface<IMoapModule>();
- if (null == module)
- return ScriptBaseClass.LSL_STATUS_NOT_SUPPORTED;
- module.ClearMediaEntry(part, face);
- return ScriptBaseClass.LSL_STATUS_OK;
- }
- // <remarks>
- // <para>
- // The .NET definition of base 64 is:
- // <list>
- // <item>
- // Significant: A-Z a-z 0-9 + -
- // </item>
- // <item>
- // Whitespace: \t \n \r ' '
- // </item>
- // <item>
- // Valueless: =
- // </item>
- // <item>
- // End-of-string: \0 or '=='
- // </item>
- // </list>
- // </para>
- // <para>
- // Each point in a base-64 string represents
- // a 6 bit value. A 32-bit integer can be
- // represented using 6 characters (with some
- // redundancy).
- // </para>
- // <para>
- // LSL requires a base64 string to be 8
- // characters in length. LSL also uses '/'
- // rather than '-' (MIME compliant).
- // </para>
- // <para>
- // RFC 1341 used as a reference (as specified
- // by the SecondLife Wiki).
- // </para>
- // <para>
- // SL do not record any kind of exception for
- // these functions, so the string to integer
- // conversion returns '0' if an invalid
- // character is encountered during conversion.
- // </para>
- // <para>
- // References
- // <list>
- // <item>
- // http://lslwiki.net/lslwiki/wakka.php?wakka=Base64
- // </item>
- // <item>
- // </item>
- // </list>
- // </para>
- // </remarks>
- // <summary>
- // Table for converting 6-bit integers into
- // base-64 characters
- // </summary>
- protected static readonly char[] i2ctable =
- {
- 'A','B','C','D','E','F','G','H',
- 'I','J','K','L','M','N','O','P',
- 'Q','R','S','T','U','V','W','X',
- 'Y','Z',
- 'a','b','c','d','e','f','g','h',
- 'i','j','k','l','m','n','o','p',
- 'q','r','s','t','u','v','w','x',
- 'y','z',
- '0','1','2','3','4','5','6','7',
- '8','9',
- '+','/'
- };
- // <summary>
- // Table for converting base-64 characters
- // into 6-bit integers.
- // </summary>
- protected static readonly int[] c2itable =
- {
- -1,-1,-1,-1,-1,-1,-1,-1, // 0x
- -1,-1,-1,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // 1x
- -1,-1,-1,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // 2x
- -1,-1,-1,63,-1,-1,-1,64,
- 53,54,55,56,57,58,59,60, // 3x
- 61,62,-1,-1,-1,0,-1,-1,
- -1,1,2,3,4,5,6,7, // 4x
- 8,9,10,11,12,13,14,15,
- 16,17,18,19,20,21,22,23, // 5x
- 24,25,26,-1,-1,-1,-1,-1,
- -1,27,28,29,30,31,32,33, // 6x
- 34,35,36,37,38,39,40,41,
- 42,43,44,45,46,47,48,49, // 7x
- 50,51,52,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // 8x
- -1,-1,-1,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // 9x
- -1,-1,-1,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // Ax
- -1,-1,-1,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // Bx
- -1,-1,-1,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // Cx
- -1,-1,-1,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // Dx
- -1,-1,-1,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // Ex
- -1,-1,-1,-1,-1,-1,-1,-1,
- -1,-1,-1,-1,-1,-1,-1,-1, // Fx
- -1,-1,-1,-1,-1,-1,-1,-1
- };
- // <summary>
- // Converts a 32-bit integer into a Base64
- // character string. Base64 character strings
- // are always 8 characters long. All iinteger
- // values are acceptable.
- // </summary>
- // <param name="number">
- // 32-bit integer to be converted.
- // </param>
- // <returns>
- // 8 character string. The 1st six characters
- // contain the encoded number, the last two
- // characters are padded with "=".
- // </returns>
- public LSL_String llIntegerToBase64(int number)
- {
- // uninitialized string
- char[] imdt = new char[8];
- m_host.AddScriptLPS(1);
- // Manually unroll the loop
- imdt[7] = '=';
- imdt[6] = '=';
- imdt[5] = i2ctable[number<<4 & 0x3F];
- imdt[4] = i2ctable[number>>2 & 0x3F];
- imdt[3] = i2ctable[number>>8 & 0x3F];
- imdt[2] = i2ctable[number>>14 & 0x3F];
- imdt[1] = i2ctable[number>>20 & 0x3F];
- imdt[0] = i2ctable[number>>26 & 0x3F];
- return new string(imdt);
- }
- // <summary>
- // Converts an eight character base-64 string
- // into a 32-bit integer.
- // </summary>
- // <param name="str">
- // 8 characters string to be converted. Other
- // length strings return zero.
- // </param>
- // <returns>
- // Returns an integer representing the
- // encoded value providedint he 1st 6
- // characters of the string.
- // </returns>
- // <remarks>
- // This is coded to behave like LSL's
- // implementation (I think), based upon the
- // information available at the Wiki.
- // If more than 8 characters are supplied,
- // zero is returned.
- // If a NULL string is supplied, zero will
- // be returned.
- // If fewer than 6 characters are supplied, then
- // the answer will reflect a partial
- // accumulation.
- // <para>
- // The 6-bit segments are
- // extracted left-to-right in big-endian mode,
- // which means that segment 6 only contains the
- // two low-order bits of the 32 bit integer as
- // its high order 2 bits. A short string therefore
- // means loss of low-order information. E.g.
- //
- // |<---------------------- 32-bit integer ----------------------->|<-Pad->|
- // |<--Byte 0----->|<--Byte 1----->|<--Byte 2----->|<--Byte 3----->|<-Pad->|
- // |3|3|2|2|2|2|2|2|2|2|2|2|1|1|1|1|1|1|1|1|1|1| | | | | | | | | | |P|P|P|P|
- // |1|0|9|8|7|6|5|4|3|2|1|0|9|8|7|6|5|4|3|2|1|0|9|8|7|6|5|4|3|2|1|0|P|P|P|P|
- // | str[0] | str[1] | str[2] | str[3] | str[4] | str[6] |
- //
- // </para>
- // </remarks>
- public LSL_Integer llBase64ToInteger(string str)
- {
- int number = 0;
- int digit;
- m_host.AddScriptLPS(1);
- // Require a well-fromed base64 string
- if (str.Length > 8)
- return 0;
- // The loop is unrolled in the interests
- // of performance and simple necessity.
- //
- // MUST find 6 digits to be well formed
- // -1 == invalid
- // 0 == padding
- if ((digit = c2itable[str[0]]) <= 0)
- {
- return digit < 0 ? (int)0 : number;
- }
- number += --digit<<26;
- if ((digit = c2itable[str[1]]) <= 0)
- {
- return digit < 0 ? (int)0 : number;
- }
- number += --digit<<20;
- if ((digit = c2itable[str[2]]) <= 0)
- {
- return digit < 0 ? (int)0 : number;
- }
- number += --digit<<14;
- if ((digit = c2itable[str[3]]) <= 0)
- {
- return digit < 0 ? (int)0 : number;
- }
- number += --digit<<8;
- if ((digit = c2itable[str[4]]) <= 0)
- {
- return digit < 0 ? (int)0 : number;
- }
- number += --digit<<2;
- if ((digit = c2itable[str[5]]) <= 0)
- {
- return digit < 0 ? (int)0 : number;
- }
- number += --digit>>4;
- // ignore trailing padding
- return number;
- }
- public LSL_Float llGetGMTclock()
- {
- m_host.AddScriptLPS(1);
- return DateTime.UtcNow.TimeOfDay.TotalSeconds;
- }
- public LSL_String llGetHTTPHeader(LSL_Key request_id, string header)
- {
- m_host.AddScriptLPS(1);
- if (m_UrlModule != null)
- return m_UrlModule.GetHttpHeader(new UUID(request_id), header);
- return String.Empty;
- }
- public LSL_String llGetSimulatorHostname()
- {
- m_host.AddScriptLPS(1);
- IUrlModule UrlModule = World.RequestModuleInterface<IUrlModule>();
- return UrlModule.ExternalHostNameForLSL;
- }
- // <summary>
- // Scan the string supplied in 'src' and
- // tokenize it based upon two sets of
- // tokenizers provided in two lists,
- // separators and spacers.
- // </summary>
- //
- // <remarks>
- // Separators demarcate tokens and are
- // elided as they are encountered. Spacers
- // also demarcate tokens, but are themselves
- // retained as tokens.
- //
- // Both separators and spacers may be arbitrarily
- // long strings. i.e. ":::".
- //
- // The function returns an ordered list
- // representing the tokens found in the supplied
- // sources string. If two successive tokenizers
- // are encountered, then a NULL entry is added
- // to the list.
- //
- // It is a precondition that the source and
- // toekizer lisst are non-null. If they are null,
- // then a null pointer exception will be thrown
- // while their lengths are being determined.
- //
- // A small amount of working memoryis required
- // of approximately 8*#tokenizers.
- //
- // There are many ways in which this function
- // can be implemented, this implementation is
- // fairly naive and assumes that when the
- // function is invooked with a short source
- // string and/or short lists of tokenizers, then
- // performance will not be an issue.
- //
- // In order to minimize the perofrmance
- // effects of long strings, or large numbers
- // of tokeizers, the function skips as far as
- // possible whenever a toekenizer is found,
- // and eliminates redundant tokenizers as soon
- // as is possible.
- //
- // The implementation tries to avoid any copying
- // of arrays or other objects.
- // </remarks>
- private LSL_List ParseString(string src, LSL_List separators, LSL_List spacers, bool keepNulls)
- {
- int beginning = 0;
- int srclen = src.Length;
- int seplen = separators.Length;
- object[] separray = separators.Data;
- int spclen = spacers.Length;
- object[] spcarray = spacers.Data;
- int mlen = seplen+spclen;
- int[] offset = new int[mlen+1];
- bool[] active = new bool[mlen];
- int best;
- int j;
- // Initial capacity reduces resize cost
- LSL_List tokens = new LSL_List();
- // All entries are initially valid
- for (int i = 0; i < mlen; i++)
- active[i] = true;
- offset[mlen] = srclen;
- while (beginning < srclen)
- {
- best = mlen; // as bad as it gets
- // Scan for separators
- for (j = 0; j < seplen; j++)
- {
- if (separray[j].ToString() == String.Empty)
- active[j] = false;
- if (active[j])
- {
- // scan all of the markers
- if ((offset[j] = src.IndexOf(separray[j].ToString(), beginning)) == -1)
- {
- // not present at all
- active[j] = false;
- }
- else
- {
- // present and correct
- if (offset[j] < offset[best])
- {
- // closest so far
- best = j;
- if (offset[best] == beginning)
- break;
- }
- }
- }
- }
- // Scan for spacers
- if (offset[best] != beginning)
- {
- for (j = seplen; (j < mlen) && (offset[best] > beginning); j++)
- {
- if (spcarray[j-seplen].ToString() == String.Empty)
- active[j] = false;
- if (active[j])
- {
- // scan all of the markers
- if ((offset[j] = src.IndexOf(spcarray[j-seplen].ToString(), beginning)) == -1)
- {
- // not present at all
- active[j] = false;
- }
- else
- {
- // present and correct
- if (offset[j] < offset[best])
- {
- // closest so far
- best = j;
- }
- }
- }
- }
- }
- // This is the normal exit from the scanning loop
- if (best == mlen)
- {
- // no markers were found on this pass
- // so we're pretty much done
- if ((keepNulls) || ((!keepNulls) && (srclen - beginning) > 0))
- tokens.Add(new LSL_String(src.Substring(beginning, srclen - beginning)));
- break;
- }
- // Otherwise we just add the newly delimited token
- // and recalculate where the search should continue.
- if ((keepNulls) || ((!keepNulls) && (offset[best] - beginning) > 0))
- tokens.Add(new LSL_String(src.Substring(beginning,offset[best]-beginning)));
- if (best < seplen)
- {
- beginning = offset[best] + (separray[best].ToString()).Length;
- }
- else
- {
- beginning = offset[best] + (spcarray[best - seplen].ToString()).Length;
- string str = spcarray[best - seplen].ToString();
- if ((keepNulls) || ((!keepNulls) && (str.Length > 0)))
- tokens.Add(new LSL_String(str));
- }
- }
- // This an awkward an not very intuitive boundary case. If the
- // last substring is a tokenizer, then there is an implied trailing
- // null list entry. Hopefully the single comparison will not be too
- // arduous. Alternatively the 'break' could be replced with a return
- // but that's shabby programming.
- if ((beginning == srclen) && (keepNulls))
- {
- if (srclen != 0)
- tokens.Add(new LSL_String(""));
- }
- return tokens;
- }
- public LSL_List llParseString2List(string src, LSL_List separators, LSL_List spacers)
- {
- m_host.AddScriptLPS(1);
- return this.ParseString(src, separators, spacers, false);
- }
- public LSL_List llParseStringKeepNulls(string src, LSL_List separators, LSL_List spacers)
- {
- m_host.AddScriptLPS(1);
- return this.ParseString(src, separators, spacers, true);
- }
- public LSL_Integer llGetObjectPermMask(int mask)
- {
- m_host.AddScriptLPS(1);
- int permmask = 0;
- if (mask == ScriptBaseClass.MASK_BASE)//0
- {
- permmask = (int)m_host.BaseMask;
- }
- else if (mask == ScriptBaseClass.MASK_OWNER)//1
- {
- permmask = (int)m_host.OwnerMask;
- }
- else if (mask == ScriptBaseClass.MASK_GROUP)//2
- {
- permmask = (int)m_host.GroupMask;
- }
- else if (mask == ScriptBaseClass.MASK_EVERYONE)//3
- {
- permmask = (int)m_host.EveryoneMask;
- }
- else if (mask == ScriptBaseClass.MASK_NEXT)//4
- {
- permmask = (int)m_host.NextOwnerMask;
- }
- return permmask;
- }
- public void llSetObjectPermMask(int mask, int value)
- {
- m_host.AddScriptLPS(1);
- if (m_ScriptEngine.Config.GetBoolean("AllowGodFunctions", false))
- {
- if (World.Permissions.CanRunConsoleCommand(m_host.OwnerID))
- {
- if (mask == ScriptBaseClass.MASK_BASE)//0
- {
- m_host.BaseMask = (uint)value;
- }
- else if (mask == ScriptBaseClass.MASK_OWNER)//1
- {
- m_host.OwnerMask = (uint)value;
- }
- else if (mask == ScriptBaseClass.MASK_GROUP)//2
- {
- m_host.GroupMask = (uint)value;
- }
- else if (mask == ScriptBaseClass.MASK_EVERYONE)//3
- {
- m_host.EveryoneMask = (uint)value;
- }
- else if (mask == ScriptBaseClass.MASK_NEXT)//4
- {
- m_host.NextOwnerMask = (uint)value;
- }
- }
- }
- }
- public LSL_Integer llGetInventoryPermMask(string itemName, int mask)
- {
- m_host.AddScriptLPS(1);
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(itemName);
- if (item == null)
- return -1;
- switch (mask)
- {
- case 0:
- return (int)item.BasePermissions;
- case 1:
- return (int)item.CurrentPermissions;
- case 2:
- return (int)item.GroupPermissions;
- case 3:
- return (int)item.EveryonePermissions;
- case 4:
- return (int)item.NextPermissions;
- }
- return -1;
- }
- public void llSetInventoryPermMask(string itemName, int mask, int value)
- {
- m_host.AddScriptLPS(1);
- if (m_ScriptEngine.Config.GetBoolean("AllowGodFunctions", false))
- {
- if (World.Permissions.CanRunConsoleCommand(m_host.OwnerID))
- {
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(itemName);
- if (item != null)
- {
- switch (mask)
- {
- case 0:
- item.BasePermissions = (uint)value;
- break;
- case 1:
- item.CurrentPermissions = (uint)value;
- break;
- case 2:
- item.GroupPermissions = (uint)value;
- break;
- case 3:
- item.EveryonePermissions = (uint)value;
- break;
- case 4:
- item.NextPermissions = (uint)value;
- break;
- }
- }
- }
- }
- }
- public LSL_String llGetInventoryCreator(string itemName)
- {
- m_host.AddScriptLPS(1);
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(itemName);
- if (item == null)
- {
- llSay(0, "No item name '" + item + "'");
- return String.Empty;
- }
- return item.CreatorID.ToString();
- }
- public void llOwnerSay(string msg)
- {
- m_host.AddScriptLPS(1);
- World.SimChatBroadcast(Utils.StringToBytes(msg), ChatTypeEnum.Owner, 0,
- m_host.AbsolutePosition, m_host.Name, m_host.UUID, false);
- // IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- // wComm.DeliverMessage(ChatTypeEnum.Owner, 0, m_host.Name, m_host.UUID, msg);
- }
- public LSL_String llRequestSecureURL()
- {
- m_host.AddScriptLPS(1);
- if (m_UrlModule != null)
- return m_UrlModule.RequestSecureURL(m_ScriptEngine.ScriptModule, m_host, m_item.ItemID).ToString();
- return UUID.Zero.ToString();
- }
- public LSL_String llRequestSimulatorData(string simulator, int data)
- {
- IOSSL_Api ossl = (IOSSL_Api)m_ScriptEngine.GetApi(m_item.ItemID, "OSSL");
- try
- {
- m_host.AddScriptLPS(1);
- string reply = String.Empty;
- GridRegion info;
- if (World.RegionInfo.RegionName == simulator)
- info = new GridRegion(World.RegionInfo);
- else
- info = World.GridService.GetRegionByName(m_ScriptEngine.World.RegionInfo.ScopeID, simulator);
- switch (data)
- {
- case ScriptBaseClass.DATA_SIM_POS:
- if (info == null)
- {
- ScriptSleep(1000);
- return UUID.Zero.ToString();
- }
- bool isHypergridRegion = false;
- if (World.RegionInfo.RegionName != simulator && info.RegionSecret != "")
- {
- // Hypergrid is currently placing real destination region co-ords into RegionSecret.
- // But other code can also use this field for a genuine RegionSecret! Therefore, if
- // anything is present we need to disambiguate.
- //
- // FIXME: Hypergrid should be storing this data in a different field.
- RegionFlags regionFlags
- = (RegionFlags)m_ScriptEngine.World.GridService.GetRegionFlags(
- info.ScopeID, info.RegionID);
- isHypergridRegion = (regionFlags & RegionFlags.Hyperlink) != 0;
- }
- if (isHypergridRegion)
- {
- uint rx = 0, ry = 0;
- Utils.LongToUInts(Convert.ToUInt64(info.RegionSecret), out rx, out ry);
- reply = new LSL_Vector(
- rx,
- ry,
- 0).ToString();
- }
- else
- {
- // Local grid co-oridnates
- reply = new LSL_Vector(
- info.RegionLocX,
- info.RegionLocY,
- 0).ToString();
- }
- break;
- case ScriptBaseClass.DATA_SIM_STATUS:
- if (info != null)
- reply = "up"; // Duh!
- else
- reply = "unknown";
- break;
- case ScriptBaseClass.DATA_SIM_RATING:
- if (info == null)
- {
- ScriptSleep(1000);
- return UUID.Zero.ToString();
- }
- int access = info.Maturity;
- if (access == 0)
- reply = "PG";
- else if (access == 1)
- reply = "MATURE";
- else if (access == 2)
- reply = "ADULT";
- else
- reply = "UNKNOWN";
- break;
- case ScriptBaseClass.DATA_SIM_RELEASE:
- if (ossl != null)
- ossl.CheckThreatLevel(ThreatLevel.High, "llRequestSimulatorData");
- reply = "OpenSim";
- break;
- default:
- ScriptSleep(1000);
- return UUID.Zero.ToString(); // Raise no event
- }
- UUID rq = UUID.Random();
- UUID tid = AsyncCommands.
- DataserverPlugin.RegisterRequest(m_host.LocalId, m_item.ItemID, rq.ToString());
- AsyncCommands.
- DataserverPlugin.DataserverReply(rq.ToString(), reply);
- ScriptSleep(1000);
- return tid.ToString();
- }
- catch(Exception)
- {
- //m_log.Error("[LSL_API]: llRequestSimulatorData" + e.ToString());
- return UUID.Zero.ToString();
- }
- }
- public LSL_String llRequestURL()
- {
- m_host.AddScriptLPS(1);
- if (m_UrlModule != null)
- return m_UrlModule.RequestURL(m_ScriptEngine.ScriptModule, m_host, m_item.ItemID).ToString();
- return UUID.Zero.ToString();
- }
- public void llForceMouselook(int mouselook)
- {
- m_host.AddScriptLPS(1);
- m_host.SetForceMouselook(mouselook != 0);
- }
- public LSL_Float llGetObjectMass(string id)
- {
- m_host.AddScriptLPS(1);
- UUID key = new UUID();
- if (UUID.TryParse(id, out key))
- {
- try
- {
- SceneObjectPart obj = World.GetSceneObjectPart(World.Entities[key].LocalId);
- if (obj != null)
- return (double)obj.GetMass();
- // the object is null so the key is for an avatar
- ScenePresence avatar = World.GetScenePresence(key);
- if (avatar != null)
- if (avatar.IsChildAgent)
- // reference http://www.lslwiki.net/lslwiki/wakka.php?wakka=llGetObjectMass
- // child agents have a mass of 1.0
- return 1;
- else
- return (double)avatar.GetMass();
- }
- catch (KeyNotFoundException)
- {
- return 0; // The Object/Agent not in the region so just return zero
- }
- }
- return 0;
- }
- /// <summary>
- /// illListReplaceList removes the sub-list defined by the inclusive indices
- /// start and end and inserts the src list in its place. The inclusive
- /// nature of the indices means that at least one element must be deleted
- /// if the indices are within the bounds of the existing list. I.e. 2,2
- /// will remove the element at index 2 and replace it with the source
- /// list. Both indices may be negative, with the usual interpretation. An
- /// interesting case is where end is lower than start. As these indices
- /// bound the list to be removed, then 0->end, and start->lim are removed
- /// and the source list is added as a suffix.
- /// </summary>
- public LSL_List llListReplaceList(LSL_List dest, LSL_List src, int start, int end)
- {
- LSL_List pref = null;
- m_host.AddScriptLPS(1);
- // Note that although we have normalized, both
- // indices could still be negative.
- if (start < 0)
- {
- start = start+dest.Length;
- }
- if (end < 0)
- {
- end = end+dest.Length;
- }
- // The comventional case, remove a sequence starting with
- // start and ending with end. And then insert the source
- // list.
- if (start <= end)
- {
- // If greater than zero, then there is going to be a
- // surviving prefix. Otherwise the inclusive nature
- // of the indices mean that we're going to add the
- // source list as a prefix.
- if (start > 0)
- {
- pref = dest.GetSublist(0,start-1);
- // Only add a suffix if there is something
- // beyond the end index (it's inclusive too).
- if (end + 1 < dest.Length)
- {
- return pref + src + dest.GetSublist(end + 1, -1);
- }
- else
- {
- return pref + src;
- }
- }
- // If start is less than or equal to zero, then
- // the new list is simply a prefix. We still need to
- // figure out any necessary surgery to the destination
- // based upon end. Note that if end exceeds the upper
- // bound in this case, the entire destination list
- // is removed.
- else
- {
- if (end + 1 < dest.Length)
- {
- return src + dest.GetSublist(end + 1, -1);
- }
- else
- {
- return src;
- }
- }
- }
- // Finally, if start > end, we strip away a prefix and
- // a suffix, to leave the list that sits <between> ens
- // and start, and then tag on the src list. AT least
- // that's my interpretation. We can get sublist to do
- // this for us. Note that one, or both of the indices
- // might have been negative.
- else
- {
- return dest.GetSublist(end + 1, start - 1) + src;
- }
- }
- public void llLoadURL(string avatar_id, string message, string url)
- {
- m_host.AddScriptLPS(1);
- IDialogModule dm = World.RequestModuleInterface<IDialogModule>();
- if (null != dm)
- dm.SendUrlToUser(
- new UUID(avatar_id), m_host.Name, m_host.UUID, m_host.OwnerID, false, message, url);
- ScriptSleep(10000);
- }
- public void llParcelMediaCommandList(LSL_List commandList)
- {
- // TODO: Not implemented yet (missing in libomv?):
- // PARCEL_MEDIA_COMMAND_LOOP_SET float loop Use this to get or set the parcel's media loop duration. (1.19.1 RC0 or later)
- m_host.AddScriptLPS(1);
- // according to the docs, this command only works if script owner and land owner are the same
- // lets add estate owners and gods, too, and use the generic permission check.
- ILandObject landObject = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y);
- if (!World.Permissions.CanEditParcelProperties(m_host.OwnerID, landObject, GroupPowers.ChangeMedia)) return;
- bool update = false; // send a ParcelMediaUpdate (and possibly change the land's media URL)?
- byte loop = 0;
- LandData landData = landObject.LandData;
- string url = landData.MediaURL;
- string texture = landData.MediaID.ToString();
- bool autoAlign = landData.MediaAutoScale != 0;
- string mediaType = ""; // TODO these have to be added as soon as LandData supports it
- string description = "";
- int width = 0;
- int height = 0;
- ParcelMediaCommandEnum? commandToSend = null;
- float time = 0.0f; // default is from start
- ScenePresence presence = null;
- for (int i = 0; i < commandList.Data.Length; i++)
- {
- ParcelMediaCommandEnum command = (ParcelMediaCommandEnum)commandList.Data[i];
- switch (command)
- {
- case ParcelMediaCommandEnum.Agent:
- // we send only to one agent
- if ((i + 1) < commandList.Length)
- {
- if (commandList.Data[i + 1] is LSL_String)
- {
- UUID agentID;
- if (UUID.TryParse((LSL_String)commandList.Data[i + 1], out agentID))
- {
- presence = World.GetScenePresence(agentID);
- }
- }
- else ShoutError("The argument of PARCEL_MEDIA_COMMAND_AGENT must be a key");
- ++i;
- }
- break;
- case ParcelMediaCommandEnum.Loop:
- loop = 1;
- commandToSend = command;
- update = true; //need to send the media update packet to set looping
- break;
- case ParcelMediaCommandEnum.Play:
- loop = 0;
- commandToSend = command;
- update = true; //need to send the media update packet to make sure it doesn't loop
- break;
- case ParcelMediaCommandEnum.Pause:
- case ParcelMediaCommandEnum.Stop:
- case ParcelMediaCommandEnum.Unload:
- commandToSend = command;
- break;
- case ParcelMediaCommandEnum.Url:
- if ((i + 1) < commandList.Length)
- {
- if (commandList.Data[i + 1] is LSL_String)
- {
- url = (LSL_String)commandList.Data[i + 1];
- update = true;
- }
- else ShoutError("The argument of PARCEL_MEDIA_COMMAND_URL must be a string.");
- ++i;
- }
- break;
- case ParcelMediaCommandEnum.Texture:
- if ((i + 1) < commandList.Length)
- {
- if (commandList.Data[i + 1] is LSL_String)
- {
- texture = (LSL_String)commandList.Data[i + 1];
- update = true;
- }
- else ShoutError("The argument of PARCEL_MEDIA_COMMAND_TEXTURE must be a string or key.");
- ++i;
- }
- break;
- case ParcelMediaCommandEnum.Time:
- if ((i + 1) < commandList.Length)
- {
- if (commandList.Data[i + 1] is LSL_Float)
- {
- time = (float)(LSL_Float)commandList.Data[i + 1];
- }
- else ShoutError("The argument of PARCEL_MEDIA_COMMAND_TIME must be a float.");
- ++i;
- }
- break;
- case ParcelMediaCommandEnum.AutoAlign:
- if ((i + 1) < commandList.Length)
- {
- if (commandList.Data[i + 1] is LSL_Integer)
- {
- autoAlign = (LSL_Integer)commandList.Data[i + 1];
- update = true;
- }
- else ShoutError("The argument of PARCEL_MEDIA_COMMAND_AUTO_ALIGN must be an integer.");
- ++i;
- }
- break;
- case ParcelMediaCommandEnum.Type:
- if ((i + 1) < commandList.Length)
- {
- if (commandList.Data[i + 1] is LSL_String)
- {
- mediaType = (LSL_String)commandList.Data[i + 1];
- update = true;
- }
- else ShoutError("The argument of PARCEL_MEDIA_COMMAND_TYPE must be a string.");
- ++i;
- }
- break;
- case ParcelMediaCommandEnum.Desc:
- if ((i + 1) < commandList.Length)
- {
- if (commandList.Data[i + 1] is LSL_String)
- {
- description = (LSL_String)commandList.Data[i + 1];
- update = true;
- }
- else ShoutError("The argument of PARCEL_MEDIA_COMMAND_DESC must be a string.");
- ++i;
- }
- break;
- case ParcelMediaCommandEnum.Size:
- if ((i + 2) < commandList.Length)
- {
- if (commandList.Data[i + 1] is LSL_Integer)
- {
- if (commandList.Data[i + 2] is LSL_Integer)
- {
- width = (LSL_Integer)commandList.Data[i + 1];
- height = (LSL_Integer)commandList.Data[i + 2];
- update = true;
- }
- else ShoutError("The second argument of PARCEL_MEDIA_COMMAND_SIZE must be an integer.");
- }
- else ShoutError("The first argument of PARCEL_MEDIA_COMMAND_SIZE must be an integer.");
- i += 2;
- }
- break;
- default:
- NotImplemented("llParcelMediaCommandList parameter not supported yet: " + Enum.Parse(typeof(ParcelMediaCommandEnum), commandList.Data[i].ToString()).ToString());
- break;
- }//end switch
- }//end for
- // if we didn't get a presence, we send to all and change the url
- // if we did get a presence, we only send to the agent specified, and *don't change the land settings*!
- // did something important change or do we only start/stop/pause?
- if (update)
- {
- if (presence == null)
- {
- // we send to all
- landData.MediaID = new UUID(texture);
- landData.MediaAutoScale = autoAlign ? (byte)1 : (byte)0;
- landData.MediaWidth = width;
- landData.MediaHeight = height;
- landData.MediaType = mediaType;
- // do that one last, it will cause a ParcelPropertiesUpdate
- landObject.SetMediaUrl(url);
- // now send to all (non-child) agents in the parcel
- World.ForEachRootScenePresence(delegate(ScenePresence sp)
- {
- if (sp.currentParcelUUID == landData.GlobalID)
- {
- sp.ControllingClient.SendParcelMediaUpdate(landData.MediaURL,
- landData.MediaID,
- landData.MediaAutoScale,
- mediaType,
- description,
- width, height,
- loop);
- }
- });
- }
- else if (!presence.IsChildAgent)
- {
- // we only send to one (root) agent
- presence.ControllingClient.SendParcelMediaUpdate(url,
- new UUID(texture),
- autoAlign ? (byte)1 : (byte)0,
- mediaType,
- description,
- width, height,
- loop);
- }
- }
- if (commandToSend != null)
- {
- // the commandList contained a start/stop/... command, too
- if (presence == null)
- {
- // send to all (non-child) agents in the parcel
- World.ForEachRootScenePresence(delegate(ScenePresence sp)
- {
- if (sp.currentParcelUUID == landData.GlobalID)
- {
- sp.ControllingClient.SendParcelMediaCommand(0x4, // TODO what is this?
- (ParcelMediaCommandEnum)commandToSend,
- time);
- }
- });
- }
- else if (!presence.IsChildAgent)
- {
- presence.ControllingClient.SendParcelMediaCommand(0x4, // TODO what is this?
- (ParcelMediaCommandEnum)commandToSend,
- time);
- }
- }
- ScriptSleep(2000);
- }
- public LSL_List llParcelMediaQuery(LSL_List aList)
- {
- m_host.AddScriptLPS(1);
- LSL_List list = new LSL_List();
- //TO DO: make the implementation for the missing commands
- //PARCEL_MEDIA_COMMAND_LOOP_SET float loop Use this to get or set the parcel's media loop duration. (1.19.1 RC0 or later)
- for (int i = 0; i < aList.Data.Length; i++)
- {
- if (aList.Data[i] != null)
- {
- switch ((ParcelMediaCommandEnum) aList.Data[i])
- {
- case ParcelMediaCommandEnum.Url:
- list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition).MediaURL));
- break;
- case ParcelMediaCommandEnum.Desc:
- list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition).Description));
- break;
- case ParcelMediaCommandEnum.Texture:
- list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition).MediaID.ToString()));
- break;
- case ParcelMediaCommandEnum.Type:
- list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition).MediaType));
- break;
- case ParcelMediaCommandEnum.Size:
- list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition).MediaWidth));
- list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition).MediaHeight));
- break;
- default:
- ParcelMediaCommandEnum mediaCommandEnum = ParcelMediaCommandEnum.Url;
- NotImplemented("llParcelMediaQuery parameter do not supported yet: " + Enum.Parse(mediaCommandEnum.GetType() , aList.Data[i].ToString()).ToString());
- break;
- }
- }
- }
- ScriptSleep(2000);
- return list;
- }
- public LSL_Integer llModPow(int a, int b, int c)
- {
- m_host.AddScriptLPS(1);
- Int64 tmp = 0;
- Math.DivRem(Convert.ToInt64(Math.Pow(a, b)), c, out tmp);
- ScriptSleep(1000);
- return Convert.ToInt32(tmp);
- }
- public LSL_Integer llGetInventoryType(string name)
- {
- m_host.AddScriptLPS(1);
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(name);
- if (item == null)
- return -1;
- return item.Type;
- }
- public void llSetPayPrice(int price, LSL_List quick_pay_buttons)
- {
- m_host.AddScriptLPS(1);
- if (quick_pay_buttons.Data.Length < 4)
- {
- LSLError("List must have at least 4 elements");
- return;
- }
- m_host.ParentGroup.RootPart.PayPrice[0]=price;
- m_host.ParentGroup.RootPart.PayPrice[1]=(LSL_Integer)quick_pay_buttons.Data[0];
- m_host.ParentGroup.RootPart.PayPrice[2]=(LSL_Integer)quick_pay_buttons.Data[1];
- m_host.ParentGroup.RootPart.PayPrice[3]=(LSL_Integer)quick_pay_buttons.Data[2];
- m_host.ParentGroup.RootPart.PayPrice[4]=(LSL_Integer)quick_pay_buttons.Data[3];
- m_host.ParentGroup.HasGroupChanged = true;
- }
- public LSL_Vector llGetCameraPos()
- {
- m_host.AddScriptLPS(1);
- if (m_item.PermsGranter == UUID.Zero)
- return new LSL_Vector();
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_TRACK_CAMERA) == 0)
- {
- ShoutError("No permissions to track the camera");
- return new LSL_Vector();
- }
- ScenePresence presence = World.GetScenePresence(m_host.OwnerID);
- if (presence != null)
- {
- LSL_Vector pos = new LSL_Vector(presence.CameraPosition.X, presence.CameraPosition.Y, presence.CameraPosition.Z);
- return pos;
- }
- return new LSL_Vector();
- }
- public LSL_Rotation llGetCameraRot()
- {
- m_host.AddScriptLPS(1);
- if (m_item.PermsGranter == UUID.Zero)
- return new LSL_Rotation();
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_TRACK_CAMERA) == 0)
- {
- ShoutError("No permissions to track the camera");
- return new LSL_Rotation();
- }
- ScenePresence presence = World.GetScenePresence(m_host.OwnerID);
- if (presence != null)
- {
- return new LSL_Rotation(presence.CameraRotation.X, presence.CameraRotation.Y, presence.CameraRotation.Z, presence.CameraRotation.W);
- }
- return new LSL_Rotation();
- }
- /// <summary>
- /// The SL implementation does nothing, it is deprecated
- /// This duplicates SL
- /// </summary>
- public void llSetPrimURL(string url)
- {
- m_host.AddScriptLPS(1);
- ScriptSleep(2000);
- }
- /// <summary>
- /// The SL implementation shouts an error, it is deprecated
- /// This duplicates SL
- /// </summary>
- public void llRefreshPrimURL()
- {
- m_host.AddScriptLPS(1);
- ShoutError("llRefreshPrimURL - not yet supported");
- ScriptSleep(20000);
- }
- public LSL_String llEscapeURL(string url)
- {
- m_host.AddScriptLPS(1);
- try
- {
- return Uri.EscapeDataString(url);
- }
- catch (Exception ex)
- {
- return "llEscapeURL: " + ex.ToString();
- }
- }
- public LSL_String llUnescapeURL(string url)
- {
- m_host.AddScriptLPS(1);
- try
- {
- return Uri.UnescapeDataString(url);
- }
- catch (Exception ex)
- {
- return "llUnescapeURL: " + ex.ToString();
- }
- }
- public void llMapDestination(string simname, LSL_Vector pos, LSL_Vector lookAt)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_item.ItemID, 0);
- if (detectedParams == null) return; // only works on the first detected avatar
- ScenePresence avatar = World.GetScenePresence(detectedParams.Key);
- if (avatar != null)
- {
- avatar.ControllingClient.SendScriptTeleportRequest(m_host.Name,
- simname, pos, lookAt);
- }
- ScriptSleep(1000);
- }
- public void llAddToLandBanList(string avatar, double hours)
- {
- m_host.AddScriptLPS(1);
- UUID key;
- ILandObject land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y);
- if (World.Permissions.CanEditParcelProperties(m_host.OwnerID, land, GroupPowers.LandManageBanned))
- {
- int expires = 0;
- if (hours != 0)
- expires = Util.UnixTimeSinceEpoch() + (int)(3600.0 * hours);
- if (UUID.TryParse(avatar, out key))
- {
- int idx = land.LandData.ParcelAccessList.FindIndex(
- delegate(LandAccessEntry e)
- {
- if (e.AgentID == key && e.Flags == AccessList.Ban)
- return true;
- return false;
- });
- if (idx != -1 && (land.LandData.ParcelAccessList[idx].Expires == 0 || (expires != 0 && expires < land.LandData.ParcelAccessList[idx].Expires)))
- return;
- if (idx != -1)
- land.LandData.ParcelAccessList.RemoveAt(idx);
- LandAccessEntry entry = new LandAccessEntry();
- entry.AgentID = key;
- entry.Flags = AccessList.Ban;
- entry.Expires = expires;
- land.LandData.ParcelAccessList.Add(entry);
- World.EventManager.TriggerLandObjectUpdated((uint)land.LandData.LocalID, land);
- }
- }
- ScriptSleep(100);
- }
- public void llRemoveFromLandPassList(string avatar)
- {
- m_host.AddScriptLPS(1);
- UUID key;
- ILandObject land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y);
- if (World.Permissions.CanEditParcelProperties(m_host.OwnerID, land, GroupPowers.LandManageAllowed))
- {
- if (UUID.TryParse(avatar, out key))
- {
- int idx = land.LandData.ParcelAccessList.FindIndex(
- delegate(LandAccessEntry e)
- {
- if (e.AgentID == key && e.Flags == AccessList.Access)
- return true;
- return false;
- });
- if (idx != -1)
- {
- land.LandData.ParcelAccessList.RemoveAt(idx);
- World.EventManager.TriggerLandObjectUpdated((uint)land.LandData.LocalID, land);
- }
- }
- }
- ScriptSleep(100);
- }
- public void llRemoveFromLandBanList(string avatar)
- {
- m_host.AddScriptLPS(1);
- UUID key;
- ILandObject land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y);
- if (World.Permissions.CanEditParcelProperties(m_host.OwnerID, land, GroupPowers.LandManageBanned))
- {
- if (UUID.TryParse(avatar, out key))
- {
- int idx = land.LandData.ParcelAccessList.FindIndex(
- delegate(LandAccessEntry e)
- {
- if (e.AgentID == key && e.Flags == AccessList.Ban)
- return true;
- return false;
- });
- if (idx != -1)
- {
- land.LandData.ParcelAccessList.RemoveAt(idx);
- World.EventManager.TriggerLandObjectUpdated((uint)land.LandData.LocalID, land);
- }
- }
- }
- ScriptSleep(100);
- }
- public void llSetCameraParams(LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- // the object we are in
- UUID objectID = m_host.ParentUUID;
- if (objectID == UUID.Zero)
- return;
- // we need the permission first, to know which avatar we want to set the camera for
- UUID agentID = m_item.PermsGranter;
- if (agentID == UUID.Zero)
- return;
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_CONTROL_CAMERA) == 0)
- return;
- ScenePresence presence = World.GetScenePresence(agentID);
- // we are not interested in child-agents
- if (presence.IsChildAgent) return;
- SortedDictionary<int, float> parameters = new SortedDictionary<int, float>();
- object[] data = rules.Data;
- for (int i = 0; i < data.Length; ++i) {
- int type = Convert.ToInt32(data[i++].ToString());
- if (i >= data.Length) break; // odd number of entries => ignore the last
- // some special cases: Vector parameters are split into 3 float parameters (with type+1, type+2, type+3)
- switch (type) {
- case ScriptBaseClass.CAMERA_FOCUS:
- case ScriptBaseClass.CAMERA_FOCUS_OFFSET:
- case ScriptBaseClass.CAMERA_POSITION:
- LSL_Vector v = (LSL_Vector)data[i];
- parameters.Add(type + 1, (float)v.x);
- parameters.Add(type + 2, (float)v.y);
- parameters.Add(type + 3, (float)v.z);
- break;
- default:
- // TODO: clean that up as soon as the implicit casts are in
- if (data[i] is LSL_Float)
- parameters.Add(type, (float)((LSL_Float)data[i]).value);
- else if (data[i] is LSL_Integer)
- parameters.Add(type, (float)((LSL_Integer)data[i]).value);
- else parameters.Add(type, Convert.ToSingle(data[i]));
- break;
- }
- }
- if (parameters.Count > 0) presence.ControllingClient.SendSetFollowCamProperties(objectID, parameters);
- }
- public void llClearCameraParams()
- {
- m_host.AddScriptLPS(1);
- // the object we are in
- UUID objectID = m_host.ParentUUID;
- if (objectID == UUID.Zero)
- return;
- // we need the permission first, to know which avatar we want to clear the camera for
- UUID agentID = m_item.PermsGranter;
- if (agentID == UUID.Zero)
- return;
- if ((m_item.PermsMask & ScriptBaseClass.PERMISSION_CONTROL_CAMERA) == 0)
- return;
- ScenePresence presence = World.GetScenePresence(agentID);
- // we are not interested in child-agents
- if (presence.IsChildAgent)
- return;
- presence.ControllingClient.SendClearFollowCamProperties(objectID);
- }
- public LSL_Float llListStatistics(int operation, LSL_List src)
- {
- m_host.AddScriptLPS(1);
- switch (operation)
- {
- case ScriptBaseClass.LIST_STAT_RANGE:
- return src.Range();
- case ScriptBaseClass.LIST_STAT_MIN:
- return src.Min();
- case ScriptBaseClass.LIST_STAT_MAX:
- return src.Max();
- case ScriptBaseClass.LIST_STAT_MEAN:
- return src.Mean();
- case ScriptBaseClass.LIST_STAT_MEDIAN:
- return LSL_List.ToDoubleList(src).Median();
- case ScriptBaseClass.LIST_STAT_NUM_COUNT:
- return src.NumericLength();
- case ScriptBaseClass.LIST_STAT_STD_DEV:
- return src.StdDev();
- case ScriptBaseClass.LIST_STAT_SUM:
- return src.Sum();
- case ScriptBaseClass.LIST_STAT_SUM_SQUARES:
- return src.SumSqrs();
- case ScriptBaseClass.LIST_STAT_GEOMETRIC_MEAN:
- return src.GeometricMean();
- case ScriptBaseClass.LIST_STAT_HARMONIC_MEAN:
- return src.HarmonicMean();
- default:
- return 0.0;
- }
- }
- public LSL_Integer llGetUnixTime()
- {
- m_host.AddScriptLPS(1);
- return Util.UnixTimeSinceEpoch();
- }
- public LSL_Integer llGetParcelFlags(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- return (int)World.LandChannel.GetLandObject((float)pos.x, (float)pos.y).LandData.Flags;
- }
- public LSL_Integer llGetRegionFlags()
- {
- m_host.AddScriptLPS(1);
- IEstateModule estate = World.RequestModuleInterface<IEstateModule>();
- if (estate == null)
- return 67108864;
- return (int)estate.GetRegionFlags();
- }
- public LSL_String llXorBase64StringsCorrect(string str1, string str2)
- {
- m_host.AddScriptLPS(1);
- string ret = String.Empty;
- string src1 = llBase64ToString(str1);
- string src2 = llBase64ToString(str2);
- int c = 0;
- for (int i = 0; i < src1.Length; i++)
- {
- ret += (char) (src1[i] ^ src2[c]);
- c++;
- if (c >= src2.Length)
- c = 0;
- }
- return llStringToBase64(ret);
- }
- public LSL_String llHTTPRequest(string url, LSL_List parameters, string body)
- {
- // Partial implementation: support for parameter flags needed
- // see http://wiki.secondlife.com/wiki/LlHTTPRequest
- // parameter flags support are implemented in ScriptsHttpRequests.cs
- // in StartHttpRequest
- m_host.AddScriptLPS(1);
- IHttpRequestModule httpScriptMod =
- m_ScriptEngine.World.RequestModuleInterface<IHttpRequestModule>();
- List<string> param = new List<string>();
- foreach (object o in parameters.Data)
- {
- param.Add(o.ToString());
- }
- Vector3 position = m_host.AbsolutePosition;
- Vector3 velocity = m_host.Velocity;
- Quaternion rotation = m_host.RotationOffset;
- string ownerName = String.Empty;
- ScenePresence scenePresence = World.GetScenePresence(m_host.OwnerID);
- if (scenePresence == null)
- ownerName = resolveName(m_host.OwnerID);
- else
- ownerName = scenePresence.Name;
- RegionInfo regionInfo = World.RegionInfo;
- Dictionary<string, string> httpHeaders = new Dictionary<string, string>();
- string shard = "OpenSim";
- IConfigSource config = m_ScriptEngine.ConfigSource;
- if (config.Configs["Network"] != null)
- {
- shard = config.Configs["Network"].GetString("shard", shard);
- }
- httpHeaders["X-SecondLife-Shard"] = shard;
- httpHeaders["X-SecondLife-Object-Name"] = m_host.Name;
- httpHeaders["X-SecondLife-Object-Key"] = m_host.UUID.ToString();
- httpHeaders["X-SecondLife-Region"] = string.Format("{0} ({1}, {2})", regionInfo.RegionName, regionInfo.RegionLocX, regionInfo.RegionLocY);
- httpHeaders["X-SecondLife-Local-Position"] = string.Format("({0:0.000000}, {1:0.000000}, {2:0.000000})", position.X, position.Y, position.Z);
- httpHeaders["X-SecondLife-Local-Velocity"] = string.Format("({0:0.000000}, {1:0.000000}, {2:0.000000})", velocity.X, velocity.Y, velocity.Z);
- httpHeaders["X-SecondLife-Local-Rotation"] = string.Format("({0:0.000000}, {1:0.000000}, {2:0.000000}, {3:0.000000})", rotation.X, rotation.Y, rotation.Z, rotation.W);
- httpHeaders["X-SecondLife-Owner-Name"] = ownerName;
- httpHeaders["X-SecondLife-Owner-Key"] = m_host.OwnerID.ToString();
- string userAgent = config.Configs["Network"].GetString("user_agent", null);
- if (userAgent != null)
- httpHeaders["User-Agent"] = userAgent;
- string authregex = @"^(https?:\/\/)(\w+):(\w+)@(.*)$";
- Regex r = new Regex(authregex);
- int[] gnums = r.GetGroupNumbers();
- Match m = r.Match(url);
- if (m.Success) {
- for (int i = 1; i < gnums.Length; i++) {
- //System.Text.RegularExpressions.Group g = m.Groups[gnums[i]];
- //CaptureCollection cc = g.Captures;
- }
- if (m.Groups.Count == 5) {
- httpHeaders["Authorization"] = String.Format("Basic {0}", Convert.ToBase64String(System.Text.ASCIIEncoding.ASCII.GetBytes(m.Groups[2].ToString() + ":" + m.Groups[3].ToString())));
- url = m.Groups[1].ToString() + m.Groups[4].ToString();
- }
- }
- UUID reqID
- = httpScriptMod.StartHttpRequest(m_host.LocalId, m_item.ItemID, url, param, httpHeaders, body);
- if (reqID != UUID.Zero)
- return reqID.ToString();
- else
- return null;
- }
- public void llHTTPResponse(LSL_Key id, int status, string body)
- {
- // Partial implementation: support for parameter flags needed
- // see http://wiki.secondlife.com/wiki/llHTTPResponse
- m_host.AddScriptLPS(1);
- if (m_UrlModule != null)
- m_UrlModule.HttpResponse(new UUID(id), status,body);
- }
- public void llResetLandBanList()
- {
- m_host.AddScriptLPS(1);
- LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).LandData;
- if (land.OwnerID == m_host.OwnerID)
- {
- foreach (LandAccessEntry entry in land.ParcelAccessList)
- {
- if (entry.Flags == AccessList.Ban)
- {
- land.ParcelAccessList.Remove(entry);
- }
- }
- }
- ScriptSleep(100);
- }
- public void llResetLandPassList()
- {
- m_host.AddScriptLPS(1);
- LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).LandData;
- if (land.OwnerID == m_host.OwnerID)
- {
- foreach (LandAccessEntry entry in land.ParcelAccessList)
- {
- if (entry.Flags == AccessList.Access)
- {
- land.ParcelAccessList.Remove(entry);
- }
- }
- }
- ScriptSleep(100);
- }
- public LSL_Integer llGetParcelPrimCount(LSL_Vector pos, int category, int sim_wide)
- {
- m_host.AddScriptLPS(1);
-
- ILandObject lo = World.LandChannel.GetLandObject((float)pos.x, (float)pos.y);
- if (lo == null)
- return 0;
-
- IPrimCounts pc = lo.PrimCounts;
- if (sim_wide != ScriptBaseClass.FALSE)
- {
- if (category == ScriptBaseClass.PARCEL_COUNT_TOTAL)
- {
- return pc.Simulator;
- }
- else
- {
- // counts not implemented yet
- return 0;
- }
- }
- else
- {
- if (category == ScriptBaseClass.PARCEL_COUNT_TOTAL)
- return pc.Total;
- else if (category == ScriptBaseClass.PARCEL_COUNT_OWNER)
- return pc.Owner;
- else if (category == ScriptBaseClass.PARCEL_COUNT_GROUP)
- return pc.Group;
- else if (category == ScriptBaseClass.PARCEL_COUNT_OTHER)
- return pc.Others;
- else if (category == ScriptBaseClass.PARCEL_COUNT_SELECTED)
- return pc.Selected;
- else if (category == ScriptBaseClass.PARCEL_COUNT_TEMP)
- return 0; // counts not implemented yet
- }
-
- return 0;
- }
- public LSL_List llGetParcelPrimOwners(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- LandObject land = (LandObject)World.LandChannel.GetLandObject((float)pos.x, (float)pos.y);
- LSL_List ret = new LSL_List();
- if (land != null)
- {
- foreach (KeyValuePair<UUID, int> detectedParams in land.GetLandObjectOwners())
- {
- ret.Add(new LSL_String(detectedParams.Key.ToString()));
- ret.Add(new LSL_Integer(detectedParams.Value));
- }
- }
- ScriptSleep(2000);
- return ret;
- }
- public LSL_Integer llGetObjectPrimCount(string object_id)
- {
- m_host.AddScriptLPS(1);
- SceneObjectPart part = World.GetSceneObjectPart(new UUID(object_id));
- if (part == null)
- {
- return 0;
- }
- else
- {
- return part.ParentGroup.PrimCount;
- }
- }
- public LSL_Integer llGetParcelMaxPrims(LSL_Vector pos, int sim_wide)
- {
- m_host.AddScriptLPS(1);
- ILandObject lo = World.LandChannel.GetLandObject((float)pos.x, (float)pos.y);
- if (lo == null)
- return 0;
- if (sim_wide != 0)
- return lo.GetSimulatorMaxPrimCount();
- else
- return lo.GetParcelMaxPrimCount();
- }
- public LSL_List llGetParcelDetails(LSL_Vector pos, LSL_List param)
- {
- m_host.AddScriptLPS(1);
- LandData land = World.GetLandData(pos);
- if (land == null)
- {
- return new LSL_List(0);
- }
- LSL_List ret = new LSL_List();
- foreach (object o in param.Data)
- {
- switch (o.ToString())
- {
- case "0":
- ret.Add(new LSL_String(land.Name));
- break;
- case "1":
- ret.Add(new LSL_String(land.Description));
- break;
- case "2":
- ret.Add(new LSL_Key(land.OwnerID.ToString()));
- break;
- case "3":
- ret.Add(new LSL_Key(land.GroupID.ToString()));
- break;
- case "4":
- ret.Add(new LSL_Integer(land.Area));
- break;
- case "5":
- ret.Add(new LSL_Key(land.GlobalID.ToString()));
- break;
- default:
- ret.Add(new LSL_Integer(0));
- break;
- }
- }
- return ret;
- }
- public LSL_String llStringTrim(string src, int type)
- {
- m_host.AddScriptLPS(1);
- if (type == (int)ScriptBaseClass.STRING_TRIM_HEAD) { return src.TrimStart(); }
- if (type == (int)ScriptBaseClass.STRING_TRIM_TAIL) { return src.TrimEnd(); }
- if (type == (int)ScriptBaseClass.STRING_TRIM) { return src.Trim(); }
- return src;
- }
- public LSL_List llGetObjectDetails(string id, LSL_List args)
- {
- m_host.AddScriptLPS(1);
- LSL_List ret = new LSL_List();
- UUID key = new UUID();
- if (UUID.TryParse(id, out key))
- {
- ScenePresence av = World.GetScenePresence(key);
- if (av != null)
- {
- foreach (object o in args.Data)
- {
- switch (int.Parse(o.ToString()))
- {
- case ScriptBaseClass.OBJECT_NAME:
- ret.Add(new LSL_String(av.Firstname + " " + av.Lastname));
- break;
- case ScriptBaseClass.OBJECT_DESC:
- ret.Add(new LSL_String(""));
- break;
- case ScriptBaseClass.OBJECT_POS:
- ret.Add(new LSL_Vector((double)av.AbsolutePosition.X, (double)av.AbsolutePosition.Y, (double)av.AbsolutePosition.Z));
- break;
- case ScriptBaseClass.OBJECT_ROT:
- ret.Add(new LSL_Rotation((double)av.Rotation.X, (double)av.Rotation.Y, (double)av.Rotation.Z, (double)av.Rotation.W));
- break;
- case ScriptBaseClass.OBJECT_VELOCITY:
- ret.Add(new LSL_Vector(av.Velocity.X, av.Velocity.Y, av.Velocity.Z));
- break;
- case ScriptBaseClass.OBJECT_OWNER:
- ret.Add(new LSL_String(id));
- break;
- case ScriptBaseClass.OBJECT_GROUP:
- ret.Add(new LSL_String(UUID.Zero.ToString()));
- break;
- case ScriptBaseClass.OBJECT_CREATOR:
- ret.Add(new LSL_String(UUID.Zero.ToString()));
- break;
- // For the following 8 see the Object version below
- case ScriptBaseClass.OBJECT_RUNNING_SCRIPT_COUNT:
- ret.Add(new LSL_Integer(av.RunningScriptCount()));
- break;
- case ScriptBaseClass.OBJECT_TOTAL_SCRIPT_COUNT:
- ret.Add(new LSL_Integer(av.ScriptCount()));
- break;
- case ScriptBaseClass.OBJECT_SCRIPT_MEMORY:
- ret.Add(new LSL_Integer(av.RunningScriptCount() * 16384));
- break;
- case ScriptBaseClass.OBJECT_SCRIPT_TIME:
- ret.Add(new LSL_Float(av.ScriptExecutionTime() / 1000.0f));
- break;
- case ScriptBaseClass.OBJECT_PRIM_EQUIVALENCE:
- ret.Add(new LSL_Integer(1));
- break;
- case ScriptBaseClass.OBJECT_SERVER_COST:
- ret.Add(new LSL_Float(0));
- break;
- case ScriptBaseClass.OBJECT_STREAMING_COST:
- ret.Add(new LSL_Float(0));
- break;
- case ScriptBaseClass.OBJECT_PHYSICS_COST:
- ret.Add(new LSL_Float(0));
- break;
- default:
- // Invalid or unhandled constant.
- ret.Add(new LSL_Integer(ScriptBaseClass.OBJECT_UNKNOWN_DETAIL));
- break;
- }
- }
- return ret;
- }
- SceneObjectPart obj = World.GetSceneObjectPart(key);
- if (obj != null)
- {
- foreach (object o in args.Data)
- {
- switch (int.Parse(o.ToString()))
- {
- case ScriptBaseClass.OBJECT_NAME:
- ret.Add(new LSL_String(obj.Name));
- break;
- case ScriptBaseClass.OBJECT_DESC:
- ret.Add(new LSL_String(obj.Description));
- break;
- case ScriptBaseClass.OBJECT_POS:
- ret.Add(new LSL_Vector(obj.AbsolutePosition.X, obj.AbsolutePosition.Y, obj.AbsolutePosition.Z));
- break;
- case ScriptBaseClass.OBJECT_ROT:
- {
- Quaternion rot = Quaternion.Identity;
- if (obj.ParentGroup.RootPart == obj)
- rot = obj.ParentGroup.GroupRotation;
- else
- rot = obj.GetWorldRotation();
- LSL_Rotation objrot = new LSL_Rotation(rot);
- ret.Add(objrot);
- }
- break;
- case ScriptBaseClass.OBJECT_VELOCITY:
- ret.Add(new LSL_Vector(obj.Velocity));
- break;
- case ScriptBaseClass.OBJECT_OWNER:
- ret.Add(new LSL_String(obj.OwnerID.ToString()));
- break;
- case ScriptBaseClass.OBJECT_GROUP:
- ret.Add(new LSL_String(obj.GroupID.ToString()));
- break;
- case ScriptBaseClass.OBJECT_CREATOR:
- ret.Add(new LSL_String(obj.CreatorID.ToString()));
- break;
- case ScriptBaseClass.OBJECT_RUNNING_SCRIPT_COUNT:
- ret.Add(new LSL_Integer(obj.ParentGroup.RunningScriptCount()));
- break;
- case ScriptBaseClass.OBJECT_TOTAL_SCRIPT_COUNT:
- ret.Add(new LSL_Integer(obj.ParentGroup.ScriptCount()));
- break;
- case ScriptBaseClass.OBJECT_SCRIPT_MEMORY:
- // The value returned in SL for mono scripts is 65536 * number of active scripts
- // and 16384 * number of active scripts for LSO. since llGetFreememory
- // is coded to give the LSO value use it here
- ret.Add(new LSL_Integer(obj.ParentGroup.RunningScriptCount() * 16384));
- break;
- case ScriptBaseClass.OBJECT_SCRIPT_TIME:
- // Average cpu time in seconds per simulator frame expended on all scripts in the object
- ret.Add(new LSL_Float(obj.ParentGroup.ScriptExecutionTime() / 1000.0f));
- break;
- case ScriptBaseClass.OBJECT_PRIM_EQUIVALENCE:
- // according to the SL wiki A prim or linkset will have prim
- // equivalent of the number of prims in a linkset if it does not
- // contain a mesh anywhere in the link set or is not a normal prim
- // The value returned in SL for normal prims is prim count
- ret.Add(new LSL_Integer(obj.ParentGroup.PrimCount));
- break;
- // The following 3 costs I have intentionaly coded to return zero. They are part of
- // "Land Impact" calculations. These calculations are probably not applicable
- // to OpenSim and are not yet complete in SL
- case ScriptBaseClass.OBJECT_SERVER_COST:
- // The linden calculation is here
- // http://wiki.secondlife.com/wiki/Mesh/Mesh_Server_Weight
- // The value returned in SL for normal prims looks like the prim count
- ret.Add(new LSL_Float(0));
- break;
- case ScriptBaseClass.OBJECT_STREAMING_COST:
- // The linden calculation is here
- // http://wiki.secondlife.com/wiki/Mesh/Mesh_Streaming_Cost
- // The value returned in SL for normal prims looks like the prim count * 0.06
- ret.Add(new LSL_Float(0));
- break;
- case ScriptBaseClass.OBJECT_PHYSICS_COST:
- // The linden calculation is here
- // http://wiki.secondlife.com/wiki/Mesh/Mesh_physics
- // The value returned in SL for normal prims looks like the prim count
- ret.Add(new LSL_Float(0));
- break;
- default:
- // Invalid or unhandled constant.
- ret.Add(new LSL_Integer(ScriptBaseClass.OBJECT_UNKNOWN_DETAIL));
- break;
- }
- }
- return ret;
- }
- }
-
- return new LSL_List();
- }
- internal UUID GetScriptByName(string name)
- {
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(name);
- if (item == null || item.Type != 10)
- return UUID.Zero;
- return item.ItemID;
- }
- internal void ShoutError(string msg)
- {
- llShout(ScriptBaseClass.DEBUG_CHANNEL, msg);
- }
- internal void NotImplemented(string command)
- {
- if (throwErrorOnNotImplemented)
- throw new NotImplementedException("Command not implemented: " + command);
- }
- internal void Deprecated(string command)
- {
- throw new ScriptException("Command deprecated: " + command);
- }
- internal void LSLError(string msg)
- {
- throw new ScriptException("LSL Runtime Error: " + msg);
- }
- public delegate void AssetRequestCallback(UUID assetID, AssetBase asset);
- protected void WithNotecard(UUID assetID, AssetRequestCallback cb)
- {
- World.AssetService.Get(assetID.ToString(), this,
- delegate(string i, object sender, AssetBase a)
- {
- UUID uuid = UUID.Zero;
- UUID.TryParse(i, out uuid);
- cb(uuid, a);
- });
- }
- public LSL_String llGetNumberOfNotecardLines(string name)
- {
- m_host.AddScriptLPS(1);
- UUID assetID = UUID.Zero;
- if (!UUID.TryParse(name, out assetID))
- {
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(name);
- if (item != null && item.Type == 7)
- assetID = item.AssetID;
- }
- if (assetID == UUID.Zero)
- {
- // => complain loudly, as specified by the LSL docs
- ShoutError("Notecard '" + name + "' could not be found.");
- return UUID.Zero.ToString();
- }
- // was: UUID tid = tid = AsyncCommands.
- UUID tid = AsyncCommands.DataserverPlugin.RegisterRequest(m_host.LocalId, m_item.ItemID, assetID.ToString());
- if (NotecardCache.IsCached(assetID))
- {
- AsyncCommands.
- DataserverPlugin.DataserverReply(assetID.ToString(),
- NotecardCache.GetLines(assetID).ToString());
- ScriptSleep(100);
- return tid.ToString();
- }
- WithNotecard(assetID, delegate (UUID id, AssetBase a)
- {
- if (a == null || a.Type != 7)
- {
- ShoutError("Notecard '" + name + "' could not be found.");
- return;
- }
- string data = Encoding.UTF8.GetString(a.Data);
- //m_log.Debug(data);
- NotecardCache.Cache(id, data);
- AsyncCommands.
- DataserverPlugin.DataserverReply(id.ToString(),
- NotecardCache.GetLines(id).ToString());
- });
- ScriptSleep(100);
- return tid.ToString();
- }
- public LSL_String llGetNotecardLine(string name, int line)
- {
- m_host.AddScriptLPS(1);
- UUID assetID = UUID.Zero;
- if (!UUID.TryParse(name, out assetID))
- {
- TaskInventoryItem item = m_host.Inventory.GetInventoryItem(name);
- if (item != null && item.Type == 7)
- assetID = item.AssetID;
- }
- if (assetID == UUID.Zero)
- {
- // => complain loudly, as specified by the LSL docs
- ShoutError("Notecard '" + name + "' could not be found.");
- return UUID.Zero.ToString();
- }
- // was: UUID tid = tid = AsyncCommands.
- UUID tid = AsyncCommands.DataserverPlugin.RegisterRequest(m_host.LocalId, m_item.ItemID, assetID.ToString());
- if (NotecardCache.IsCached(assetID))
- {
- AsyncCommands.DataserverPlugin.DataserverReply(assetID.ToString(),
- NotecardCache.GetLine(assetID, line, m_notecardLineReadCharsMax));
- ScriptSleep(100);
- return tid.ToString();
- }
- WithNotecard(assetID, delegate (UUID id, AssetBase a)
- {
- if (a == null || a.Type != 7)
- {
- ShoutError("Notecard '" + name + "' could not be found.");
- return;
- }
- string data = Encoding.UTF8.GetString(a.Data);
- //m_log.Debug(data);
- NotecardCache.Cache(id, data);
- AsyncCommands.DataserverPlugin.DataserverReply(id.ToString(),
- NotecardCache.GetLine(id, line, m_notecardLineReadCharsMax));
- });
- ScriptSleep(100);
- return tid.ToString();
- }
- public void SetPrimitiveParamsEx(LSL_Key prim, LSL_List rules, string originFunc)
- {
- SceneObjectPart obj = World.GetSceneObjectPart(new UUID(prim));
- if (obj == null)
- return;
- if (obj.OwnerID != m_host.OwnerID)
- return;
- uint rulesParsed = 0;
- LSL_List remaining = SetPrimParams(obj, rules, originFunc, ref rulesParsed);
- while ((object)remaining != null && remaining.Length > 2)
- {
- LSL_Integer newLink = remaining.GetLSLIntegerItem(0);
- LSL_List newrules = remaining.GetSublist(1, -1);
- foreach(SceneObjectPart part in GetLinkParts(obj, newLink)){
- remaining = SetPrimParams(part, newrules, originFunc, ref rulesParsed);
- }
- }
- }
- public LSL_List GetPrimitiveParamsEx(LSL_Key prim, LSL_List rules)
- {
- SceneObjectPart obj = World.GetSceneObjectPart(new UUID(prim));
- LSL_List result = new LSL_List();
- if (obj != null && obj.OwnerID != m_host.OwnerID)
- {
- LSL_List remaining = GetPrimParams(obj, rules, ref result);
- while (remaining != null && remaining.Length > 2)
- {
- int linknumber = remaining.GetLSLIntegerItem(0);
- rules = remaining.GetSublist(1, -1);
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- remaining = GetPrimParams(part, rules, ref result);
- }
- }
- return result;
- }
- public void print(string str)
- {
- // yes, this is a real LSL function. See: http://wiki.secondlife.com/wiki/Print
- IOSSL_Api ossl = (IOSSL_Api)m_ScriptEngine.GetApi(m_item.ItemID, "OSSL");
- if (ossl != null)
- {
- ossl.CheckThreatLevel(ThreatLevel.High, "print");
- m_log.Info("LSL print():" + str);
- }
- }
- private string Name2Username(string name)
- {
- string[] parts = name.Split(new char[] {' '});
- if (parts.Length < 2)
- return name.ToLower();
- if (parts[1] == "Resident")
- return parts[0].ToLower();
- return name.Replace(" ", ".").ToLower();
- }
- public LSL_String llGetUsername(string id)
- {
- return Name2Username(llKey2Name(id));
- }
- public LSL_String llRequestUsername(string id)
- {
- UUID rq = UUID.Random();
- AsyncCommands.DataserverPlugin.RegisterRequest(m_host.LocalId, m_item.ItemID, rq.ToString());
- AsyncCommands.DataserverPlugin.DataserverReply(rq.ToString(), Name2Username(llKey2Name(id)));
- return rq.ToString();
- }
- public LSL_String llGetDisplayName(string id)
- {
- return llKey2Name(id);
- }
- public LSL_String llRequestDisplayName(string id)
- {
- UUID rq = UUID.Random();
- AsyncCommands.DataserverPlugin.RegisterRequest(m_host.LocalId, m_item.ItemID, rq.ToString());
- AsyncCommands.DataserverPlugin.DataserverReply(rq.ToString(), llKey2Name(id));
- return rq.ToString();
- }
- private struct Tri
- {
- public Vector3 p1;
- public Vector3 p2;
- public Vector3 p3;
- }
- private bool InBoundingBox(ScenePresence avatar, Vector3 point)
- {
- float height = avatar.Appearance.AvatarHeight;
- Vector3 b1 = avatar.AbsolutePosition + new Vector3(-0.22f, -0.22f, -height/2);
- Vector3 b2 = avatar.AbsolutePosition + new Vector3(0.22f, 0.22f, height/2);
- if (point.X > b1.X && point.X < b2.X &&
- point.Y > b1.Y && point.Y < b2.Y &&
- point.Z > b1.Z && point.Z < b2.Z)
- return true;
- return false;
- }
- private ContactResult[] AvatarIntersection(Vector3 rayStart, Vector3 rayEnd)
- {
- List<ContactResult> contacts = new List<ContactResult>();
- Vector3 ab = rayEnd - rayStart;
- World.ForEachScenePresence(delegate(ScenePresence sp)
- {
- Vector3 ac = sp.AbsolutePosition - rayStart;
- Vector3 bc = sp.AbsolutePosition - rayEnd;
- double d = Math.Abs(Vector3.Mag(Vector3.Cross(ab, ac)) / Vector3.Distance(rayStart, rayEnd));
- if (d > 1.5)
- return;
- double d2 = Vector3.Dot(Vector3.Negate(ab), ac);
- if (d2 > 0)
- return;
- double dp = Math.Sqrt(Vector3.Mag(ac) * Vector3.Mag(ac) - d * d);
- Vector3 p = rayStart + Vector3.Divide(Vector3.Multiply(ab, (float)dp), (float)Vector3.Mag(ab));
- if (!InBoundingBox(sp, p))
- return;
- ContactResult result = new ContactResult ();
- result.ConsumerID = sp.LocalId;
- result.Depth = Vector3.Distance(rayStart, p);
- result.Normal = Vector3.Zero;
- result.Pos = p;
- contacts.Add(result);
- });
- return contacts.ToArray();
- }
- private ContactResult[] ObjectIntersection(Vector3 rayStart, Vector3 rayEnd, bool includePhysical, bool includeNonPhysical, bool includePhantom)
- {
- Ray ray = new Ray(rayStart, Vector3.Normalize(rayEnd - rayStart));
- List<ContactResult> contacts = new List<ContactResult>();
- Vector3 ab = rayEnd - rayStart;
- World.ForEachSOG(delegate(SceneObjectGroup group)
- {
- if (m_host.ParentGroup == group)
- return;
- if (group.IsAttachment)
- return;
- if (group.RootPart.PhysActor == null)
- {
- if (!includePhantom)
- return;
- }
- else
- {
- if (group.RootPart.PhysActor.IsPhysical)
- {
- if (!includePhysical)
- return;
- }
- else
- {
- if (!includeNonPhysical)
- return;
- }
- }
- // Find the radius ouside of which we don't even need to hit test
- float minX;
- float maxX;
- float minY;
- float maxY;
- float minZ;
- float maxZ;
- float radius = 0.0f;
- group.GetAxisAlignedBoundingBoxRaw(out minX, out maxX, out minY, out maxY, out minZ, out maxZ);
- if (Math.Abs(minX) > radius)
- radius = Math.Abs(minX);
- if (Math.Abs(minY) > radius)
- radius = Math.Abs(minY);
- if (Math.Abs(minZ) > radius)
- radius = Math.Abs(minZ);
- if (Math.Abs(maxX) > radius)
- radius = Math.Abs(maxX);
- if (Math.Abs(maxY) > radius)
- radius = Math.Abs(maxY);
- if (Math.Abs(maxZ) > radius)
- radius = Math.Abs(maxZ);
- Vector3 ac = group.AbsolutePosition - rayStart;
- Vector3 bc = group.AbsolutePosition - rayEnd;
- double d = Math.Abs(Vector3.Mag(Vector3.Cross(ab, ac)) / Vector3.Distance(rayStart, rayEnd));
- // Too far off ray, don't bother
- if (d > radius)
- return;
- // Behind ray, drop
- double d2 = Vector3.Dot(Vector3.Negate(ab), ac);
- if (d2 > 0)
- return;
- EntityIntersection intersection = group.TestIntersection(ray, true, false);
- // Miss.
- if (!intersection.HitTF)
- return;
- ContactResult result = new ContactResult ();
- result.ConsumerID = group.LocalId;
- result.Depth = intersection.distance;
- result.Normal = intersection.normal;
- result.Pos = intersection.ipoint;
- contacts.Add(result);
- });
- return contacts.ToArray();
- }
- private ContactResult? GroundIntersection(Vector3 rayStart, Vector3 rayEnd)
- {
- double[,] heightfield = World.Heightmap.GetDoubles();
- List<ContactResult> contacts = new List<ContactResult>();
- double min = 2048.0;
- double max = 0.0;
- // Find the min and max of the heightfield
- for (int x = 0 ; x < World.Heightmap.Width ; x++)
- {
- for (int y = 0 ; y < World.Heightmap.Height ; y++)
- {
- if (heightfield[x, y] > max)
- max = heightfield[x, y];
- if (heightfield[x, y] < min)
- min = heightfield[x, y];
- }
- }
- // A ray extends past rayEnd, but doesn't go back before
- // rayStart. If the start is above the highest point of the ground
- // and the ray goes up, we can't hit the ground. Ever.
- if (rayStart.Z > max && rayEnd.Z >= rayStart.Z)
- return null;
- // Same for going down
- if (rayStart.Z < min && rayEnd.Z <= rayStart.Z)
- return null;
- List<Tri> trilist = new List<Tri>();
- // Create our triangle list
- for (int x = 1 ; x < World.Heightmap.Width ; x++)
- {
- for (int y = 1 ; y < World.Heightmap.Height ; y++)
- {
- Tri t1 = new Tri();
- Tri t2 = new Tri();
- Vector3 p1 = new Vector3(x-1, y-1, (float)heightfield[x-1, y-1]);
- Vector3 p2 = new Vector3(x, y-1, (float)heightfield[x, y-1]);
- Vector3 p3 = new Vector3(x, y, (float)heightfield[x, y]);
- Vector3 p4 = new Vector3(x-1, y, (float)heightfield[x-1, y]);
- t1.p1 = p1;
- t1.p2 = p2;
- t1.p3 = p3;
- t2.p1 = p3;
- t2.p2 = p4;
- t2.p3 = p1;
- trilist.Add(t1);
- trilist.Add(t2);
- }
- }
- // Ray direction
- Vector3 rayDirection = rayEnd - rayStart;
- foreach (Tri t in trilist)
- {
- // Compute triangle plane normal and edges
- Vector3 u = t.p2 - t.p1;
- Vector3 v = t.p3 - t.p1;
- Vector3 n = Vector3.Cross(u, v);
- if (n == Vector3.Zero)
- continue;
- Vector3 w0 = rayStart - t.p1;
- double a = -Vector3.Dot(n, w0);
- double b = Vector3.Dot(n, rayDirection);
- // Not intersecting the plane, or in plane (same thing)
- // Ignoring this MAY cause the ground to not be detected
- // sometimes
- if (Math.Abs(b) < 0.000001)
- continue;
- double r = a / b;
- // ray points away from plane
- if (r < 0.0)
- continue;
- Vector3 ip = rayStart + Vector3.Multiply(rayDirection, (float)r);
- float uu = Vector3.Dot(u, u);
- float uv = Vector3.Dot(u, v);
- float vv = Vector3.Dot(v, v);
- Vector3 w = ip - t.p1;
- float wu = Vector3.Dot(w, u);
- float wv = Vector3.Dot(w, v);
- float d = uv * uv - uu * vv;
- float cs = (uv * wv - vv * wu) / d;
- if (cs < 0 || cs > 1.0)
- continue;
- float ct = (uv * wu - uu * wv) / d;
- if (ct < 0 || (cs + ct) > 1.0)
- continue;
- // Add contact point
- ContactResult result = new ContactResult ();
- result.ConsumerID = 0;
- result.Depth = Vector3.Distance(rayStart, ip);
- result.Normal = n;
- result.Pos = ip;
- contacts.Add(result);
- }
- if (contacts.Count == 0)
- return null;
- contacts.Sort(delegate(ContactResult a, ContactResult b)
- {
- return (int)(a.Depth - b.Depth);
- });
- return contacts[0];
- }
- public LSL_List llCastRay(LSL_Vector start, LSL_Vector end, LSL_List options)
- {
- LSL_List list = new LSL_List();
- m_host.AddScriptLPS(1);
- Vector3 rayStart = start;
- Vector3 rayEnd = end;
- Vector3 dir = rayEnd - rayStart;
- float dist = Vector3.Mag(dir);
- int count = 1;
- bool detectPhantom = false;
- int dataFlags = 0;
- int rejectTypes = 0;
- for (int i = 0; i < options.Length; i += 2)
- {
- if (options.GetLSLIntegerItem(i) == ScriptBaseClass.RC_MAX_HITS)
- count = options.GetLSLIntegerItem(i + 1);
- else if (options.GetLSLIntegerItem(i) == ScriptBaseClass.RC_DETECT_PHANTOM)
- detectPhantom = (options.GetLSLIntegerItem(i + 1) > 0);
- else if (options.GetLSLIntegerItem(i) == ScriptBaseClass.RC_DATA_FLAGS)
- dataFlags = options.GetLSLIntegerItem(i + 1);
- else if (options.GetLSLIntegerItem(i) == ScriptBaseClass.RC_REJECT_TYPES)
- rejectTypes = options.GetLSLIntegerItem(i + 1);
- }
- if (count > 16)
- count = 16;
- List<ContactResult> results = new List<ContactResult>();
- bool checkTerrain = !((rejectTypes & ScriptBaseClass.RC_REJECT_LAND) == ScriptBaseClass.RC_REJECT_LAND);
- bool checkAgents = !((rejectTypes & ScriptBaseClass.RC_REJECT_AGENTS) == ScriptBaseClass.RC_REJECT_AGENTS);
- bool checkNonPhysical = !((rejectTypes & ScriptBaseClass.RC_REJECT_NONPHYSICAL) == ScriptBaseClass.RC_REJECT_NONPHYSICAL);
- bool checkPhysical = !((rejectTypes & ScriptBaseClass.RC_REJECT_PHYSICAL) == ScriptBaseClass.RC_REJECT_PHYSICAL);
- if (checkTerrain)
- {
- ContactResult? groundContact = GroundIntersection(rayStart, rayEnd);
- if (groundContact != null)
- results.Add((ContactResult)groundContact);
- }
- if (checkAgents)
- {
- ContactResult[] agentHits = AvatarIntersection(rayStart, rayEnd);
- foreach (ContactResult r in agentHits)
- results.Add(r);
- }
- if (checkPhysical || checkNonPhysical || detectPhantom)
- {
- ContactResult[] objectHits = ObjectIntersection(rayStart, rayEnd, checkPhysical, checkNonPhysical, detectPhantom);
- foreach (ContactResult r in objectHits)
- results.Add(r);
- }
- results.Sort(delegate(ContactResult a, ContactResult b)
- {
- return a.Depth.CompareTo(b.Depth);
- });
- int values = 0;
- SceneObjectGroup thisgrp = m_host.ParentGroup;
- foreach (ContactResult result in results)
- {
- if (result.Depth > dist)
- continue;
- // physics ray can return colisions with host prim
- if (m_host.LocalId == result.ConsumerID)
- continue;
- UUID itemID = UUID.Zero;
- int linkNum = 0;
- SceneObjectPart part = World.GetSceneObjectPart(result.ConsumerID);
- // It's a prim!
- if (part != null)
- {
- // dont detect members of same object ???
- if (part.ParentGroup == thisgrp)
- continue;
- if ((dataFlags & ScriptBaseClass.RC_GET_ROOT_KEY) == ScriptBaseClass.RC_GET_ROOT_KEY)
- itemID = part.ParentGroup.UUID;
- else
- itemID = part.UUID;
- linkNum = part.LinkNum;
- }
- else
- {
- ScenePresence sp = World.GetScenePresence(result.ConsumerID);
- /// It it a boy? a girl?
- if (sp != null)
- itemID = sp.UUID;
- }
- list.Add(new LSL_String(itemID.ToString()));
- list.Add(new LSL_String(result.Pos.ToString()));
- if ((dataFlags & ScriptBaseClass.RC_GET_LINK_NUM) == ScriptBaseClass.RC_GET_LINK_NUM)
- list.Add(new LSL_Integer(linkNum));
- if ((dataFlags & ScriptBaseClass.RC_GET_NORMAL) == ScriptBaseClass.RC_GET_NORMAL)
- list.Add(new LSL_Vector(result.Normal.X, result.Normal.Y, result.Normal.Z));
- values++;
- if (values >= count)
- break;
- }
- list.Add(new LSL_Integer(values));
- return list;
- }
- public LSL_Integer llManageEstateAccess(int action, string avatar)
- {
- m_host.AddScriptLPS(1);
- EstateSettings estate = World.RegionInfo.EstateSettings;
- bool isAccount = false;
- bool isGroup = false;
- if (!estate.IsEstateOwner(m_host.OwnerID) || !estate.IsEstateManagerOrOwner(m_host.OwnerID))
- return 0;
- UUID id = new UUID();
- if (!UUID.TryParse(avatar, out id))
- return 0;
- UserAccount account = World.UserAccountService.GetUserAccount(World.RegionInfo.ScopeID, id);
- isAccount = account != null ? true : false;
- if (!isAccount)
- {
- IGroupsModule groups = World.RequestModuleInterface<IGroupsModule>();
- if (groups != null)
- {
- GroupRecord group = groups.GetGroupRecord(id);
- isGroup = group != null ? true : false;
- if (!isGroup)
- return 0;
- }
- else
- return 0;
- }
- switch (action)
- {
- case ScriptBaseClass.ESTATE_ACCESS_ALLOWED_AGENT_ADD:
- if (!isAccount) return 0;
- if (estate.HasAccess(id)) return 1;
- if (estate.IsBanned(id))
- estate.RemoveBan(id);
- estate.AddEstateUser(id);
- break;
- case ScriptBaseClass.ESTATE_ACCESS_ALLOWED_AGENT_REMOVE:
- if (!isAccount || !estate.HasAccess(id)) return 0;
- estate.RemoveEstateUser(id);
- break;
- case ScriptBaseClass.ESTATE_ACCESS_ALLOWED_GROUP_ADD:
- if (!isGroup) return 0;
- if (estate.GroupAccess(id)) return 1;
- estate.AddEstateGroup(id);
- break;
- case ScriptBaseClass.ESTATE_ACCESS_ALLOWED_GROUP_REMOVE:
- if (!isGroup || !estate.GroupAccess(id)) return 0;
- estate.RemoveEstateGroup(id);
- break;
- case ScriptBaseClass.ESTATE_ACCESS_BANNED_AGENT_ADD:
- if (!isAccount) return 0;
- if (estate.IsBanned(id)) return 1;
- EstateBan ban = new EstateBan();
- ban.EstateID = estate.EstateID;
- ban.BannedUserID = id;
- estate.AddBan(ban);
- break;
- case ScriptBaseClass.ESTATE_ACCESS_BANNED_AGENT_REMOVE:
- if (!isAccount || !estate.IsBanned(id)) return 0;
- estate.RemoveBan(id);
- break;
- default: return 0;
- }
- return 1;
- }
- public LSL_Integer llGetMemoryLimit()
- {
- m_host.AddScriptLPS(1);
- // The value returned for LSO scripts in SL
- return 16384;
- }
- public LSL_Integer llSetMemoryLimit(LSL_Integer limit)
- {
- m_host.AddScriptLPS(1);
- // Treat as an LSO script
- return ScriptBaseClass.FALSE;
- }
- public LSL_Integer llGetSPMaxMemory()
- {
- m_host.AddScriptLPS(1);
- // The value returned for LSO scripts in SL
- return 16384;
- }
- public LSL_Integer llGetUsedMemory()
- {
- m_host.AddScriptLPS(1);
- // The value returned for LSO scripts in SL
- return 16384;
- }
- public void llScriptProfiler(LSL_Integer flags)
- {
- m_host.AddScriptLPS(1);
- // This does nothing for LSO scripts in SL
- }
- #region Not Implemented
- //
- // Listing the unimplemented lsl functions here, please move
- // them from this region as they are completed
- //
- public void llGetEnv(LSL_String name)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llGetEnv");
- }
- public void llSetSoundQueueing(int queue)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llSetSoundQueueing");
- }
- public void llCollisionSprite(string impact_sprite)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llCollisionSprite");
- }
- public void llGodLikeRezObject(string inventory, LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llGodLikeRezObject");
- }
- #endregion
- }
- public class NotecardCache
- {
- protected class Notecard
- {
- public string[] text;
- public DateTime lastRef;
- }
- protected static Dictionary<UUID, Notecard> m_Notecards =
- new Dictionary<UUID, Notecard>();
- public static void Cache(UUID assetID, string text)
- {
- CacheCheck();
- lock (m_Notecards)
- {
- if (m_Notecards.ContainsKey(assetID))
- return;
- Notecard nc = new Notecard();
- nc.lastRef = DateTime.Now;
- nc.text = SLUtil.ParseNotecardToList(text).ToArray();
- m_Notecards[assetID] = nc;
- }
- }
- public static bool IsCached(UUID assetID)
- {
- lock (m_Notecards)
- {
- return m_Notecards.ContainsKey(assetID);
- }
- }
- public static int GetLines(UUID assetID)
- {
- if (!IsCached(assetID))
- return -1;
- lock (m_Notecards)
- {
- m_Notecards[assetID].lastRef = DateTime.Now;
- return m_Notecards[assetID].text.Length;
- }
- }
- /// <summary>
- /// Get a notecard line.
- /// </summary>
- /// <param name="assetID"></param>
- /// <param name="line">Lines start at index 0</param>
- /// <returns></returns>
- public static string GetLine(UUID assetID, int lineNumber)
- {
- if (lineNumber < 0)
- return "";
- string data;
- if (!IsCached(assetID))
- return "";
- lock (m_Notecards)
- {
- m_Notecards[assetID].lastRef = DateTime.Now;
- if (lineNumber >= m_Notecards[assetID].text.Length)
- return "\n\n\n";
- data = m_Notecards[assetID].text[lineNumber];
- return data;
- }
- }
- /// <summary>
- /// Get a notecard line.
- /// </summary>
- /// <param name="assetID"></param>
- /// <param name="line">Lines start at index 0</param>
- /// <param name="maxLength">Maximum length of the returned line. Longer lines will be truncated</para>
- /// <returns></returns>
- public static string GetLine(UUID assetID, int lineNumber, int maxLength)
- {
- string line = GetLine(assetID, lineNumber);
- if (line.Length > maxLength)
- line = line.Substring(0, maxLength);
- return line;
- }
- public static void CacheCheck()
- {
- foreach (UUID key in new List<UUID>(m_Notecards.Keys))
- {
- Notecard nc = m_Notecards[key];
- if (nc.lastRef.AddSeconds(30) < DateTime.Now)
- m_Notecards.Remove(key);
- }
- }
- }
- }
|