1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597459845994600460146024603460446054606460746084609461046114612461346144615461646174618461946204621462246234624462546264627462846294630463146324633463446354636463746384639464046414642464346444645464646474648464946504651465246534654465546564657465846594660466146624663466446654666466746684669467046714672467346744675467646774678467946804681468246834684468546864687468846894690469146924693469446954696469746984699470047014702470347044705470647074708470947104711471247134714471547164717471847194720472147224723472447254726472747284729473047314732473347344735473647374738473947404741474247434744474547464747474847494750475147524753475447554756475747584759476047614762476347644765476647674768476947704771477247734774477547764777477847794780478147824783478447854786478747884789479047914792479347944795479647974798479948004801480248034804480548064807480848094810481148124813481448154816481748184819482048214822482348244825482648274828482948304831483248334834483548364837483848394840484148424843484448454846484748484849485048514852485348544855485648574858485948604861486248634864486548664867486848694870487148724873487448754876487748784879488048814882488348844885488648874888488948904891489248934894489548964897489848994900490149024903490449054906490749084909491049114912491349144915491649174918491949204921492249234924492549264927492849294930493149324933493449354936493749384939494049414942494349444945494649474948494949504951495249534954495549564957495849594960496149624963496449654966496749684969497049714972497349744975497649774978497949804981498249834984498549864987498849894990499149924993499449954996499749984999500050015002500350045005500650075008500950105011501250135014501550165017501850195020502150225023502450255026502750285029503050315032503350345035503650375038503950405041504250435044504550465047504850495050505150525053505450555056505750585059506050615062506350645065506650675068506950705071507250735074507550765077507850795080508150825083508450855086508750885089509050915092509350945095509650975098509951005101510251035104510551065107510851095110511151125113511451155116511751185119512051215122512351245125512651275128512951305131513251335134513551365137513851395140514151425143514451455146514751485149515051515152515351545155515651575158515951605161516251635164516551665167516851695170517151725173517451755176517751785179518051815182518351845185518651875188518951905191519251935194519551965197519851995200520152025203520452055206520752085209521052115212521352145215521652175218521952205221522252235224522552265227522852295230523152325233523452355236523752385239524052415242524352445245524652475248524952505251525252535254525552565257525852595260526152625263526452655266526752685269527052715272527352745275527652775278527952805281528252835284528552865287528852895290529152925293529452955296529752985299530053015302530353045305530653075308530953105311531253135314531553165317531853195320532153225323532453255326532753285329533053315332533353345335533653375338533953405341534253435344534553465347534853495350535153525353535453555356535753585359536053615362536353645365536653675368536953705371537253735374537553765377537853795380538153825383538453855386538753885389539053915392539353945395539653975398539954005401540254035404540554065407540854095410541154125413541454155416541754185419542054215422542354245425542654275428542954305431543254335434543554365437543854395440544154425443544454455446544754485449545054515452545354545455545654575458545954605461546254635464546554665467546854695470547154725473547454755476547754785479548054815482548354845485548654875488548954905491549254935494549554965497549854995500550155025503550455055506550755085509551055115512551355145515551655175518551955205521552255235524552555265527552855295530553155325533553455355536553755385539554055415542554355445545554655475548554955505551555255535554555555565557555855595560556155625563556455655566556755685569557055715572557355745575557655775578557955805581558255835584558555865587558855895590559155925593559455955596559755985599560056015602560356045605560656075608560956105611561256135614561556165617561856195620562156225623562456255626562756285629563056315632563356345635563656375638563956405641564256435644564556465647564856495650565156525653565456555656565756585659566056615662566356645665566656675668566956705671567256735674567556765677567856795680568156825683568456855686568756885689569056915692569356945695569656975698569957005701570257035704570557065707570857095710571157125713571457155716571757185719572057215722572357245725572657275728572957305731573257335734573557365737573857395740574157425743574457455746574757485749575057515752575357545755575657575758575957605761576257635764576557665767576857695770577157725773577457755776577757785779578057815782578357845785578657875788578957905791579257935794579557965797579857995800580158025803580458055806580758085809581058115812581358145815581658175818581958205821582258235824582558265827582858295830583158325833583458355836583758385839584058415842584358445845584658475848584958505851585258535854585558565857585858595860586158625863586458655866586758685869587058715872587358745875587658775878587958805881588258835884588558865887588858895890589158925893589458955896589758985899590059015902590359045905590659075908590959105911591259135914591559165917591859195920592159225923592459255926592759285929593059315932593359345935593659375938593959405941594259435944594559465947594859495950595159525953595459555956595759585959596059615962596359645965596659675968596959705971597259735974597559765977597859795980598159825983598459855986598759885989599059915992599359945995599659975998599960006001600260036004600560066007600860096010601160126013601460156016601760186019602060216022602360246025602660276028602960306031603260336034603560366037603860396040604160426043604460456046604760486049605060516052605360546055605660576058605960606061606260636064606560666067606860696070607160726073607460756076607760786079608060816082608360846085608660876088608960906091609260936094609560966097609860996100610161026103610461056106610761086109611061116112611361146115611661176118611961206121612261236124612561266127612861296130613161326133613461356136613761386139614061416142614361446145614661476148614961506151615261536154615561566157615861596160616161626163616461656166616761686169617061716172617361746175617661776178617961806181618261836184618561866187618861896190619161926193619461956196619761986199620062016202620362046205620662076208620962106211621262136214621562166217621862196220622162226223622462256226622762286229623062316232623362346235623662376238623962406241624262436244624562466247624862496250625162526253625462556256625762586259626062616262626362646265626662676268626962706271627262736274627562766277627862796280628162826283628462856286628762886289629062916292629362946295629662976298629963006301630263036304630563066307630863096310631163126313631463156316631763186319632063216322632363246325632663276328632963306331633263336334633563366337633863396340634163426343634463456346634763486349635063516352635363546355635663576358635963606361636263636364636563666367636863696370637163726373637463756376637763786379638063816382638363846385638663876388638963906391639263936394639563966397639863996400640164026403640464056406640764086409641064116412641364146415641664176418641964206421642264236424642564266427642864296430643164326433643464356436643764386439644064416442644364446445644664476448644964506451645264536454645564566457645864596460646164626463646464656466646764686469647064716472647364746475647664776478647964806481648264836484648564866487648864896490649164926493649464956496649764986499650065016502650365046505650665076508650965106511651265136514651565166517651865196520652165226523652465256526652765286529653065316532653365346535653665376538653965406541654265436544654565466547654865496550655165526553655465556556655765586559656065616562656365646565656665676568656965706571657265736574657565766577657865796580658165826583658465856586658765886589659065916592659365946595659665976598659966006601660266036604660566066607660866096610661166126613661466156616661766186619662066216622662366246625662666276628662966306631663266336634663566366637663866396640664166426643664466456646664766486649665066516652665366546655665666576658665966606661666266636664666566666667666866696670667166726673667466756676667766786679668066816682668366846685668666876688668966906691669266936694669566966697669866996700670167026703670467056706670767086709671067116712671367146715671667176718671967206721672267236724672567266727672867296730673167326733673467356736673767386739674067416742674367446745674667476748674967506751675267536754675567566757675867596760676167626763676467656766676767686769677067716772677367746775677667776778677967806781678267836784678567866787678867896790679167926793679467956796679767986799680068016802680368046805680668076808680968106811681268136814681568166817681868196820682168226823682468256826682768286829683068316832683368346835683668376838683968406841684268436844684568466847684868496850685168526853685468556856685768586859686068616862686368646865686668676868686968706871687268736874687568766877687868796880688168826883688468856886688768886889689068916892689368946895689668976898689969006901690269036904690569066907690869096910691169126913691469156916691769186919692069216922692369246925692669276928692969306931693269336934693569366937693869396940694169426943694469456946694769486949695069516952695369546955695669576958695969606961696269636964696569666967696869696970697169726973697469756976697769786979698069816982698369846985698669876988698969906991699269936994699569966997699869997000700170027003700470057006700770087009701070117012701370147015701670177018701970207021702270237024702570267027702870297030703170327033703470357036703770387039704070417042704370447045704670477048704970507051705270537054705570567057705870597060706170627063706470657066706770687069707070717072707370747075707670777078707970807081708270837084708570867087708870897090709170927093709470957096709770987099710071017102710371047105710671077108710971107111711271137114711571167117711871197120712171227123712471257126712771287129713071317132713371347135713671377138713971407141714271437144714571467147714871497150715171527153715471557156715771587159716071617162716371647165716671677168716971707171717271737174717571767177717871797180718171827183718471857186718771887189719071917192719371947195719671977198719972007201720272037204720572067207720872097210721172127213721472157216721772187219722072217222722372247225722672277228722972307231723272337234723572367237723872397240724172427243724472457246724772487249725072517252725372547255725672577258725972607261726272637264726572667267726872697270727172727273727472757276727772787279728072817282728372847285728672877288728972907291729272937294729572967297729872997300730173027303730473057306730773087309731073117312731373147315731673177318731973207321732273237324732573267327732873297330733173327333733473357336733773387339734073417342734373447345734673477348734973507351735273537354735573567357735873597360736173627363736473657366736773687369737073717372737373747375737673777378737973807381738273837384738573867387738873897390739173927393739473957396739773987399740074017402740374047405740674077408740974107411741274137414741574167417741874197420742174227423742474257426742774287429743074317432743374347435743674377438743974407441744274437444744574467447744874497450745174527453745474557456745774587459746074617462746374647465746674677468746974707471747274737474747574767477747874797480748174827483748474857486748774887489749074917492749374947495749674977498749975007501750275037504750575067507750875097510751175127513751475157516751775187519752075217522752375247525752675277528752975307531753275337534753575367537753875397540754175427543754475457546754775487549755075517552755375547555755675577558755975607561756275637564756575667567756875697570757175727573757475757576757775787579758075817582758375847585758675877588758975907591759275937594759575967597759875997600760176027603760476057606760776087609761076117612761376147615761676177618761976207621762276237624762576267627762876297630763176327633763476357636763776387639764076417642764376447645764676477648764976507651765276537654765576567657765876597660766176627663766476657666766776687669767076717672767376747675767676777678767976807681768276837684768576867687768876897690769176927693769476957696769776987699770077017702770377047705770677077708770977107711771277137714771577167717771877197720772177227723772477257726772777287729773077317732773377347735773677377738773977407741774277437744774577467747774877497750775177527753775477557756775777587759776077617762776377647765776677677768776977707771777277737774777577767777777877797780778177827783778477857786778777887789779077917792779377947795779677977798779978007801780278037804780578067807780878097810781178127813781478157816781778187819782078217822782378247825782678277828782978307831783278337834783578367837783878397840784178427843784478457846784778487849785078517852785378547855785678577858785978607861786278637864786578667867786878697870787178727873787478757876787778787879788078817882788378847885788678877888788978907891789278937894789578967897789878997900790179027903790479057906790779087909791079117912791379147915791679177918791979207921792279237924792579267927792879297930793179327933793479357936793779387939794079417942794379447945794679477948794979507951795279537954795579567957795879597960796179627963796479657966796779687969797079717972797379747975797679777978797979807981798279837984798579867987798879897990799179927993799479957996799779987999800080018002800380048005800680078008800980108011801280138014801580168017801880198020802180228023802480258026802780288029803080318032803380348035803680378038803980408041804280438044804580468047804880498050805180528053805480558056805780588059806080618062806380648065806680678068806980708071807280738074807580768077807880798080808180828083808480858086808780888089809080918092809380948095809680978098809981008101810281038104810581068107810881098110811181128113811481158116811781188119812081218122812381248125812681278128812981308131813281338134813581368137813881398140814181428143814481458146814781488149815081518152815381548155815681578158815981608161816281638164816581668167816881698170817181728173817481758176817781788179818081818182818381848185818681878188818981908191819281938194819581968197819881998200820182028203820482058206820782088209821082118212821382148215821682178218821982208221822282238224822582268227822882298230823182328233823482358236823782388239824082418242824382448245824682478248824982508251825282538254825582568257825882598260826182628263826482658266826782688269827082718272827382748275827682778278827982808281828282838284828582868287828882898290829182928293829482958296829782988299830083018302830383048305830683078308830983108311831283138314831583168317831883198320832183228323832483258326832783288329833083318332833383348335833683378338833983408341834283438344834583468347834883498350835183528353835483558356835783588359836083618362836383648365836683678368836983708371837283738374837583768377837883798380838183828383838483858386838783888389839083918392839383948395839683978398839984008401840284038404840584068407840884098410841184128413841484158416841784188419842084218422842384248425842684278428842984308431843284338434843584368437843884398440844184428443844484458446844784488449845084518452845384548455845684578458845984608461846284638464846584668467846884698470847184728473847484758476847784788479848084818482848384848485848684878488848984908491849284938494849584968497849884998500850185028503850485058506850785088509851085118512851385148515851685178518851985208521852285238524852585268527852885298530853185328533853485358536853785388539854085418542854385448545854685478548854985508551855285538554855585568557855885598560856185628563856485658566856785688569857085718572857385748575857685778578857985808581858285838584858585868587858885898590859185928593859485958596859785988599860086018602860386048605860686078608860986108611861286138614861586168617861886198620862186228623862486258626862786288629863086318632863386348635863686378638863986408641864286438644864586468647864886498650865186528653865486558656865786588659866086618662866386648665866686678668866986708671867286738674867586768677867886798680868186828683868486858686868786888689869086918692869386948695869686978698869987008701870287038704870587068707870887098710871187128713871487158716871787188719872087218722872387248725872687278728872987308731873287338734873587368737873887398740874187428743874487458746874787488749875087518752875387548755875687578758875987608761876287638764876587668767876887698770877187728773877487758776877787788779878087818782878387848785878687878788878987908791879287938794879587968797879887998800880188028803880488058806880788088809881088118812881388148815881688178818881988208821882288238824882588268827882888298830883188328833883488358836883788388839884088418842884388448845884688478848884988508851885288538854885588568857885888598860886188628863886488658866886788688869887088718872887388748875887688778878887988808881888288838884888588868887888888898890889188928893889488958896889788988899890089018902890389048905890689078908890989108911891289138914891589168917891889198920892189228923892489258926892789288929893089318932893389348935893689378938893989408941894289438944894589468947894889498950895189528953895489558956895789588959896089618962896389648965896689678968896989708971897289738974897589768977897889798980898189828983898489858986898789888989899089918992899389948995899689978998899990009001900290039004900590069007900890099010901190129013901490159016901790189019902090219022902390249025902690279028902990309031903290339034903590369037 |
- /*
- * 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 OpenSim 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 Nini.Config;
- using OpenMetaverse;
- using OpenMetaverse.Packets;
- using OpenSim;
- using OpenSim.Framework;
- using OpenSim.Framework.Communications.Cache;
- using OpenSim.Region.Environment;
- using OpenSim.Region.Interfaces;
- using OpenSim.Region.Environment.Interfaces;
- using OpenSim.Region.Environment.Modules.Avatar.Currency.SampleMoney;
- using OpenSim.Region.Environment.Modules.World.Land;
- using OpenSim.Region.Environment.Modules.World.Terrain;
- using OpenSim.Region.Environment.Scenes;
- 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 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;
- namespace OpenSim.Region.ScriptEngine.Shared.Api
- {
- /// <summary>
- /// Contains all LSL ll-functions. This class will be in Default AppDomain.
- /// </summary>
- public class LSL_Api : MarshalByRefObject, ILSL_Api, IScriptApi
- {
- protected IScriptEngine m_ScriptEngine;
- protected SceneObjectPart m_host;
- protected uint m_localID;
- protected UUID m_itemID;
- 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;
- private DateTime m_timer = DateTime.Now;
- private bool m_waitingForScriptAnswer=false;
- private bool m_automaticLinkPermission=false;
- private IMessageTransferModule m_TransferModule = null;
- //private static readonly log4net.ILog m_log = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType);
- public void Initialize(IScriptEngine ScriptEngine, SceneObjectPart host, uint localID, UUID itemID)
- {
- m_ScriptEngine = ScriptEngine;
- m_host = host;
- m_localID = localID;
- m_itemID = itemID;
- 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_TransferModule =
- m_ScriptEngine.World.RequestModuleInterface<IMessageTransferModule>();
- AsyncCommands = new AsyncCommandManager(ScriptEngine);
- }
- // Object never expires
- public override Object InitializeLifetimeService()
- {
- ILease lease = (ILease)base.InitializeLifetimeService();
- if (lease.CurrentState == LeaseState.Initial)
- {
- lease.InitialLeaseTime = TimeSpan.Zero;
- }
- return lease;
- }
- protected 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; }
- }
- // Extension commands use this:
- public ICommander GetCommander(string name)
- {
- return World.GetCommander(name);
- }
- public void state(string newState)
- {
- m_ScriptEngine.SetState(m_itemID, newState);
- }
- /// <summary>
- /// Reset the named script. The script must be present
- /// in the same prim.
- /// </summary>
- public void llResetScript()
- {
- m_host.AddScriptLPS(1);
- m_ScriptEngine.ApiResetScript(m_itemID);
- }
- public void llResetOtherScript(string name)
- {
- UUID item;
- m_host.AddScriptLPS(1);
- if ((item = ScriptByName(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 = ScriptByName(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 = ScriptByName(name)) != UUID.Zero)
- {
- m_ScriptEngine.SetScriptState(item, run == 0 ? false : true);
- }
- else
- {
- ShoutError("llSetScriptState: script "+name+" not found");
- }
- }
- private List<SceneObjectPart> GetLinkParts(int linkType)
- {
- List<SceneObjectPart> ret = new List<SceneObjectPart>();
- ret.Add(m_host);
- switch (linkType)
- {
- case ScriptBaseClass.LINK_SET:
- if (m_host.ParentGroup != null)
- return new List<SceneObjectPart>(m_host.ParentGroup.Children.Values);
- return ret;
- case ScriptBaseClass.LINK_ROOT:
- if (m_host.ParentGroup != null)
- {
- ret = new List<SceneObjectPart>();
- ret.Add(m_host.ParentGroup.RootPart);
- return ret;
- }
- return ret;
- case ScriptBaseClass.LINK_ALL_OTHERS:
- if (m_host.ParentGroup == null)
- return new List<SceneObjectPart>();
- ret = new List<SceneObjectPart>(m_host.ParentGroup.Children.Values);
- if (ret.Contains(m_host))
- ret.Remove(m_host);
- return ret;
- case ScriptBaseClass.LINK_ALL_CHILDREN:
- if (m_host.ParentGroup == null)
- return new List<SceneObjectPart>();
- ret = new List<SceneObjectPart>(m_host.ParentGroup.Children.Values);
- if (ret.Contains(m_host.ParentGroup.RootPart))
- ret.Remove(m_host.ParentGroup.RootPart);
- return ret;
- case ScriptBaseClass.LINK_THIS:
- return ret;
- default:
- if (linkType < 0 || m_host.ParentGroup == null)
- return new List<SceneObjectPart>();
- SceneObjectPart target = m_host.ParentGroup.GetLinkNumPart(linkType);
- if (target == null)
- return new List<SceneObjectPart>();
- ret = new List<SceneObjectPart>();
- ret.Add(target);
- return ret;
- }
- }
- private UUID InventorySelf()
- {
- UUID invItemID = new UUID();
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Type == 10 && inv.Value.ItemID == m_itemID)
- {
- invItemID = inv.Key;
- break;
- }
- }
- return invItemID;
- }
- private UUID InventoryKey(string name, int type)
- {
- m_host.AddScriptLPS(1);
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == name)
- {
- if (inv.Value.Type != type)
- return UUID.Zero;
- return inv.Value.AssetID;
- }
- }
- return UUID.Zero;
- }
- private UUID InventoryKey(string name)
- {
- m_host.AddScriptLPS(1);
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == name)
- {
- return inv.Value.AssetID;
- }
- }
- 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>
- private UUID KeyOrName(string k)
- {
- UUID key = UUID.Zero;
- // if we can parse the string as a key, use it.
- if (UUID.TryParse(k, out key))
- {
- return key;
- }
- // else try to locate the name in inventory of object. found returns key,
- // not found returns UUID.Zero which will translate to the default particle texture
- else
- {
- return InventoryKey(k);
- }
- }
- // convert a LSL_Rotation to a Quaternion
- private Quaternion Rot2Quaternion(LSL_Rotation r)
- {
- return new Quaternion((float)r.x, (float)r.y, (float)r.z, (float)r.s);
- }
- //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(y, x);
- }
- 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)
- {
- m_host.AddScriptLPS(1);
- 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);
- double mag = LSL_Vector.Mag(v);
- LSL_Vector nor = new LSL_Vector();
- nor.x = v.x / mag;
- nor.y = v.y / mag;
- nor.z = v.z / mag;
- return nor;
- }
- public LSL_Float llVecDist(LSL_Vector a, LSL_Vector b)
- {
- m_host.AddScriptLPS(1);
- 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);
- }
- //Now we start getting into quaternions which means sin/cos, matrices and vectors. ckrinke
- // Utility function for llRot2Euler
- // normalize an angle between 0 - 2*PI (0 and 360 degrees)
- private double NormalizeAngle(double angle)
- {
- angle = angle % (Math.PI * 2);
- if (angle < 0) angle = angle + Math.PI * 2;
- return angle;
- }
- // Old implementation of llRot2Euler, now normalized
- public LSL_Vector llRot2Euler(LSL_Rotation r)
- {
- m_host.AddScriptLPS(1);
- //This implementation is from http://lslwiki.net/lslwiki/wakka.php?wakka=LibraryRotationFunctions. ckrinke
- LSL_Rotation t = new LSL_Rotation(r.x * r.x, r.y * r.y, r.z * r.z, r.s * r.s);
- double m = (t.x + t.y + t.z + t.s);
- if (m == 0) return new LSL_Vector();
- double n = 2 * (r.y * r.s + r.x * r.z);
- double p = m * m - n * n;
- if (p > 0)
- return new LSL_Vector(NormalizeAngle(Math.Atan2(2.0 * (r.x * r.s - r.y * r.z), (-t.x - t.y + t.z + t.s))),
- NormalizeAngle(Math.Atan2(n, Math.Sqrt(p))),
- NormalizeAngle(Math.Atan2(2.0 * (r.z * r.s - r.x * r.y), (t.x - t.y - t.z + t.s))));
- else if (n > 0)
- return new LSL_Vector(0.0, Math.PI / 2, NormalizeAngle(Math.Atan2((r.z * r.s + r.x * r.y), 0.5 - t.x - t.z)));
- else
- return new LSL_Vector(0.0, -Math.PI / 2, NormalizeAngle(Math.Atan2((r.z * r.s + r.x * r.y), 0.5 - t.x - t.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/2.0);
- double c2 = Math.Cos(v.y/2.0);
- double c3 = Math.Cos(v.z/2.0);
- double s1 = Math.Sin(v.x/2.0);
- double s2 = Math.Sin(v.y/2.0);
- double s3 = Math.Sin(v.z/2.0);
- 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);
- double dotProduct = LSL_Vector.Dot(a, b);
- LSL_Vector crossProduct = LSL_Vector.Cross(a, b);
- double magProduct = LSL_Vector.Mag(a) * LSL_Vector.Mag(b);
- double angle = Math.Acos(dotProduct / magProduct);
- LSL_Vector axis = LSL_Vector.Norm(crossProduct);
- double s = Math.Sin(angle / 2);
- double x = axis.x * s;
- double y = axis.y * s;
- double z = axis.z * s;
- double w = Math.Cos(angle / 2);
- if (Double.IsNaN(x) || Double.IsNaN(y) || Double.IsNaN(z) || Double.IsNaN(w))
- return new LSL_Rotation(0.0f, 0.0f, 0.0f, 1.0f);
- return new LSL_Rotation((float)x, (float)y, (float)z, (float)w);
- }
- 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>();
- wComm.DeliverMessage(ChatTypeEnum.Whisper, channelID, m_host.Name, m_host.UUID, text);
- }
- public void llSay(int channelID, string text)
- {
- m_host.AddScriptLPS(1);
- 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>();
- 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>();
- 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>();
- wComm.DeliverMessage(ChatTypeEnum.Region, channelID, m_host.Name, m_host.UUID, text);
- }
- 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>();
- return wComm.Listen(m_localID, m_itemID, m_host.UUID, channelID, name, keyID, msg);
- }
- public void llListenControl(int number, int active)
- {
- m_host.AddScriptLPS(1);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- wComm.ListenControl(m_itemID, number, active);
- }
- public void llListenRemove(int number)
- {
- m_host.AddScriptLPS(1);
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface<IWorldComm>();
- wComm.ListenRemove(m_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_localID, m_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_localID, m_itemID, name, keyID, type, range, arc, rate, m_host);
- }
- public void llSensorRemove()
- {
- m_host.AddScriptLPS(1);
- AsyncCommands.SensorRepeatPlugin.UnSetSenseRepeaterEvents(m_localID, m_itemID);
- }
- public string resolveName(UUID objecUUID)
- {
- // try avatar username surname
- CachedUserInfo profile = World.CommsManager.UserProfileCacheService.GetUserDetails(objecUUID);
- if (profile != null && profile.UserProfile != null)
- {
- string avatarname = profile.UserProfile.FirstName + " " + profile.UserProfile.SurName;
- 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)
- return String.Empty;
- return SensedObject.Name;
- }
- public LSL_String llDetectedName(int number)
- {
- m_host.AddScriptLPS(1);
- DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_itemID, index);
- if (detectedParams == null)
- return new LSL_Vector(-1.0, -1.0, 0.0);
- return detectedParams.TouchUV;
- }
- public 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();
- int x = (int)(pos.X + offset.x);
- int y = (int)(pos.Y + offset.y);
- // Clamp to valid position
- if (x<0)
- x = 0;
- else if (x>=World.Heightmap.Width)
- x = World.Heightmap.Width-1;
- if (y<0)
- y = 0;
- else if (y>=World.Heightmap.Height)
- y = World.Heightmap.Height-1;
-
- return World.GetLandHeight(x, y);
- }
- public LSL_Float llCloud(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- return 0;
- }
- 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 && module.WindSpeeds != null)
- {
- Vector3 pos = m_host.GetWorldPosition();
- int x = (int)((pos.X + offset.x)/ 16);
- int y = (int)((pos.Y + offset.y)/ 16);
- if (x < 0) x = 0;
- if (x > 15) x = 15;
- if (y < 0) y = 0;
- if (y > 15) y = 15;
- wind.x = module.WindSpeeds[y * 16 + x].X;
- wind.y = module.WindSpeeds[y * 16 + x].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 == 1)
- {
- SceneObjectGroup group = m_host.ParentGroup;
- if (group == null)
- return;
- bool allow = true;
- foreach (SceneObjectPart part in group.Children.Values)
- {
- 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)
- {
- if (value == 1)
- m_host.ScriptSetPhantomStatus(true);
- else
- m_host.ScriptSetPhantomStatus(false);
- }
- 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)
- {
- NotImplemented("llSetStatus - STATUS_BLOCK_GRAB");
- }
- if ((status & ScriptBaseClass.STATUS_DIE_AT_EDGE) == ScriptBaseClass.STATUS_DIE_AT_EDGE)
- {
- if (value == 1)
- m_host.SetDieAtEdge(true);
- else
- m_host.SetDieAtEdge(false);
- }
- if ((status & ScriptBaseClass.STATUS_RETURN_AT_EDGE) == ScriptBaseClass.STATUS_RETURN_AT_EDGE)
- {
- NotImplemented("llSetStatus - STATUS_RETURN_AT_EDGE");
- }
- if ((status & ScriptBaseClass.STATUS_SANDBOX) == ScriptBaseClass.STATUS_SANDBOX)
- {
- NotImplemented("llSetStatus - STATUS_SANDBOX");
- }
- if (statusrotationaxis != 0)
- {
- m_host.SetAxisRotation(statusrotationaxis, value);
- }
- }
- public LSL_Integer llGetStatus(int status)
- {
- m_host.AddScriptLPS(1);
- // Console.WriteLine(m_host.ToString() + " status is " + m_host.GetEffectiveObjectFlags().ToString());
- switch (status)
- {
- case ScriptBaseClass.STATUS_PHYSICS:
- if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Physics) == (uint)PrimFlags.Physics)
- {
- return 1;
- }
- return 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:
- NotImplemented("llGetStatus - STATUS_BLOCK_GRAB");
- return 0;
- case ScriptBaseClass.STATUS_DIE_AT_EDGE:
- if (m_host.GetDieAtEdge())
- return 1;
- else
- return 0;
- case ScriptBaseClass.STATUS_RETURN_AT_EDGE:
- NotImplemented("llGetStatus - STATUS_RETURN_AT_EDGE");
- return 0;
- case ScriptBaseClass.STATUS_ROTATE_X:
- NotImplemented("llGetStatus - STATUS_ROTATE_X");
- return 0;
- case ScriptBaseClass.STATUS_ROTATE_Y:
- NotImplemented("llGetStatus - STATUS_ROTATE_Y");
- return 0;
- case ScriptBaseClass.STATUS_ROTATE_Z:
- NotImplemented("llGetStatus - STATUS_ROTATE_Z");
- return 0;
- case ScriptBaseClass.STATUS_SANDBOX:
- NotImplemented("llGetStatus - STATUS_SANDBOX");
- return 0;
- }
- return 0;
- }
- public void llSetScale(LSL_Vector scale)
- {
- m_host.AddScriptLPS(1);
- SetScale(m_host, scale);
- }
- private void SetScale(SceneObjectPart part, LSL_Vector scale)
- {
- // TODO: this needs to trigger a persistance save as well
- if (part == null || part.ParentGroup == null || part.ParentGroup.IsDeleted)
- return;
- if (scale.x < 0.01 || scale.y < 0.01 || scale.z < 0.01)
- return;
- if (part.ParentGroup.RootPart.PhysActor != null && part.ParentGroup.RootPart.PhysActor.IsPhysical)
- {
- if (scale.x > World.m_maxPhys)
- scale.x = World.m_maxPhys;
- if (scale.y > World.m_maxPhys)
- scale.y = World.m_maxPhys;
- if (scale.z > World.m_maxPhys)
- scale.z = World.m_maxPhys;
- }
- if (scale.x > World.m_maxNonphys)
- scale.x = World.m_maxNonphys;
- if (scale.y > World.m_maxNonphys)
- scale.y = World.m_maxNonphys;
- if (scale.z > World.m_maxNonphys)
- scale.z = World.m_maxNonphys;
- 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;
- if (m_host.ParentGroup != null) m_host.ParentGroup.HasGroupChanged = true;
- m_host.ScheduleFullUpdate();
- return;
- }
- public void llSetColor(LSL_Vector color, int face)
- {
- m_host.AddScriptLPS(1);
- SetColor(m_host, color, face);
- }
- private void SetColor(SceneObjectPart part, LSL_Vector color, int face)
- {
- Primitive.TextureEntry tex = part.Shape.Textures;
- Color4 texcolor;
- if (face >= 0 && face < GetNumberOfSides(part))
- {
- texcolor = tex.CreateFace((uint)face).RGBA;
- texcolor.R = Util.Clip((float)color.x, 0.0f, 1.0f);
- texcolor.G = Util.Clip((float)color.y, 0.0f, 1.0f);
- texcolor.B = Util.Clip((float)color.z, 0.0f, 1.0f);
- tex.FaceTextures[face].RGBA = texcolor;
- part.UpdateTexture(tex);
- return;
- }
- else if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (uint i = 0; i < GetNumberOfSides(part); i++)
- {
- if (tex.FaceTextures[i] != null)
- {
- texcolor = tex.FaceTextures[i].RGBA;
- texcolor.R = Util.Clip((float)color.x, 0.0f, 1.0f);
- texcolor.G = Util.Clip((float)color.y, 0.0f, 1.0f);
- texcolor.B = Util.Clip((float)color.z, 0.0f, 1.0f);
- tex.FaceTextures[i].RGBA = texcolor;
- }
- texcolor = tex.DefaultTexture.RGBA;
- texcolor.R = Util.Clip((float)color.x, 0.0f, 1.0f);
- texcolor.G = Util.Clip((float)color.y, 0.0f, 1.0f);
- texcolor.B = Util.Clip((float)color.z, 0.0f, 1.0f);
- tex.DefaultTexture.RGBA = texcolor;
- }
- part.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- return;
- }
- }
- public LSL_Float llGetAlpha(int face)
- {
- m_host.AddScriptLPS(1);
- return GetAlpha(m_host, face);
- }
- private 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);
- }
- private 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.UpdateTexture(tex);
- 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;
- }
- }
- texcolor = tex.DefaultTexture.RGBA;
- texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f);
- tex.DefaultTexture.RGBA = texcolor;
- part.UpdateTexture(tex);
- 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>
- private 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>
- private 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);
- }
- private 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);
- }
- private void SetTexture(SceneObjectPart part, string texture, int face)
- {
- UUID textureID=new UUID();
- if (!UUID.TryParse(texture, out textureID))
- {
- textureID=InventoryKey(texture, (int)AssetType.Texture);
- }
- if (textureID == UUID.Zero)
- 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.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- return;
- }
- }
- public void llScaleTexture(double u, double v, int face)
- {
- m_host.AddScriptLPS(1);
- ScaleTexture(m_host, u, v, face);
- // ScriptSleep(200);
- }
- private 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.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- return;
- }
- }
- public void llOffsetTexture(double u, double v, int face)
- {
- m_host.AddScriptLPS(1);
- OffsetTexture(m_host, u, v, face);
- // ScriptSleep(200);
- }
- private 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.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- return;
- }
- }
- public void llRotateTexture(double rotation, int face)
- {
- m_host.AddScriptLPS(1);
- RotateTexture(m_host, rotation, face);
- // ScriptSleep(200);
- }
- private 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.UpdateTexture(tex);
- 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.UpdateTexture(tex);
- return;
- }
- }
- public LSL_String llGetTexture(int face)
- {
- m_host.AddScriptLPS(1);
- return GetTexture(m_host, face);
- }
- private 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);
- return texface.TextureID.ToString();
- }
- else
- {
- return String.Empty;
- }
- }
- public void llSetPos(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- SetPos(m_host, pos);
- ScriptSleep(200);
- }
- private void SetPos(SceneObjectPart part, LSL_Vector targetPos)
- {
- // Capped movemment if distance > 10m (http://wiki.secondlife.com/wiki/LlSetPos)
- LSL_Vector currentPos = llGetLocalPos();
- if (llVecDist(currentPos, targetPos) > 10.0f * m_ScriptDistanceFactor)
- {
- targetPos = currentPos + m_ScriptDistanceFactor * 10.0f * llVecNorm(targetPos - currentPos);
- }
-
- if (part.ParentGroup == null)
- {
- part.UpdateOffSet(new Vector3((float)targetPos.x, (float)targetPos.y, (float)targetPos.z));
- }
- else if (part.ParentGroup.RootPart == part)
- {
- SceneObjectGroup parent = part.ParentGroup;
- parent.UpdateGroupPosition(new Vector3((float)targetPos.x, (float)targetPos.y, (float)targetPos.z));
- }
- else
- {
- part.OffsetPosition = new Vector3((float)targetPos.x, (float)targetPos.y, (float)targetPos.z);
- SceneObjectGroup parent = part.ParentGroup;
- parent.HasGroupChanged = true;
- parent.ScheduleGroupForTerseUpdate();
- }
- }
- public LSL_Vector llGetPos()
- {
- m_host.AddScriptLPS(1);
- Vector3 pos = m_host.GetWorldPosition();
- return new LSL_Vector(pos.X, pos.Y, pos.Z);
- }
- public LSL_Vector llGetLocalPos()
- {
- m_host.AddScriptLPS(1);
- if (m_host.ParentID != 0)
- {
- return new LSL_Vector(m_host.OffsetPosition.X,
- m_host.OffsetPosition.Y,
- m_host.OffsetPosition.Z);
- }
- else
- {
- return new LSL_Vector(m_host.AbsolutePosition.X,
- m_host.AbsolutePosition.Y,
- m_host.AbsolutePosition.Z);
- }
- }
- 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, Rot2Quaternion(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.
- SceneObjectGroup group = m_host.ParentGroup;
- if (group != null) // a bit paranoid, maybe
- {
- SceneObjectPart rootPart = group.RootPart;
- if (rootPart != null) // again, better safe than sorry
- {
- SetRot(m_host, rootPart.RotationOffset * Rot2Quaternion(rot));
- }
- }
- }
- ScriptSleep(200);
- }
- public void llSetLocalRot(LSL_Rotation rot)
- {
- m_host.AddScriptLPS(1);
- SetRot(m_host, Rot2Quaternion(rot));
- ScriptSleep(200);
- }
- private 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.
- part.ParentGroup.AbsolutePosition = part.ParentGroup.AbsolutePosition;
- }
- 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.RotationOffset;
- 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 != null)
- {
- if (!m_host.ParentGroup.IsDeleted)
- {
- if (local != 0)
- force *= llGetRot();
- m_host.ParentGroup.RootPart.SetForce(new PhysicsVector((float)force.x, (float)force.y, (float)force.z));
- }
- }
- }
- public LSL_Vector llGetForce()
- {
- LSL_Vector force = new LSL_Vector(0.0, 0.0, 0.0);
- m_host.AddScriptLPS(1);
- if (m_host.ParentGroup != null)
- {
- if (!m_host.ParentGroup.IsDeleted)
- {
- PhysicsVector tmpForce = m_host.ParentGroup.RootPart.GetForce();
- force.x = tmpForce.X;
- force.y = tmpForce.Y;
- force.z = tmpForce.Z;
- }
- }
- return force;
- }
- public LSL_Integer llTarget(LSL_Vector position, double range)
- {
- m_host.AddScriptLPS(1);
- return m_host.registerTargetWaypoint(new Vector3((float)position.x, (float)position.y, (float)position.z), (float)range);
- }
- public void llTargetRemove(int number)
- {
- m_host.AddScriptLPS(1);
- m_host.unregisterTargetWaypoint(number);
- }
- public LSL_Integer llRotTarget(LSL_Rotation rot, double error)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llRotTarget");
- return 0;
- }
- public void llRotTargetRemove(int number)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llRotTargetRemove");
- }
- public void llMoveToTarget(LSL_Vector target, double tau)
- {
- m_host.AddScriptLPS(1);
- m_host.MoveToTarget(new Vector3((float)target.x, (float)target.y, (float)target.z), (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
- if (force.x > 20000)
- force.x = 20000;
- if (force.y > 20000)
- force.y = 20000;
- if (force.z > 20000)
- force.z = 20000;
- m_host.ApplyImpulse(new Vector3((float)force.x, (float)force.y, (float)force.z), local != 0);
- }
- public void llApplyRotationalImpulse(LSL_Vector force, int local)
- {
- m_host.AddScriptLPS(1);
- m_host.ApplyAngularImpulse(new Vector3((float)force.x, (float)force.y, (float)force.z), local != 0);
- }
- public void llSetTorque(LSL_Vector torque, int local)
- {
- m_host.AddScriptLPS(1);
- m_host.SetAngularImpulse(new Vector3((float)torque.x, (float)torque.y, (float)torque.z), local != 0);
- }
- public LSL_Vector llGetTorque()
- {
- m_host.AddScriptLPS(1);
- Vector3 torque = m_host.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);
- return new LSL_Vector(m_host.Velocity.X, m_host.Velocity.Y, m_host.Velocity.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.RotationalVelocity.X, m_host.RotationalVelocity.Y, m_host.RotationalVelocity.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
- m_host.SendSound(KeyOrName(sound).ToString(), volume, false, 0);
- }
- // Xantor 20080528 we should do this differently.
- // 1) apply the sound to the object
- // 2) schedule full update
- // just sending the sound out once doesn't work so well when other avatars come in view later on
- // or when the prim gets moved, changed, sat on, whatever
- // see large number of mantises (mantes?)
- // 20080530 Updated to remove code duplication
- // 20080530 Stop sound if there is one, otherwise volume only changes don't work
- public void llLoopSound(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- if (m_host.Sound != UUID.Zero)
- llStopSound();
- m_host.Sound = KeyOrName(sound);
- m_host.SoundGain = volume;
- m_host.SoundFlags = 1; // looping
- m_host.SoundRadius = 20; // Magic number, 20 seems reasonable. Make configurable?
- m_host.ScheduleFullUpdate();
- m_host.SendFullUpdateToAllClients();
- }
- public void llLoopSoundMaster(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llLoopSoundMaster");
- }
- public void llLoopSoundSlave(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llLoopSoundSlave");
- }
- public void llPlaySoundSlave(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llPlaySoundSlave");
- }
- public void llTriggerSound(string sound, double volume)
- {
- m_host.AddScriptLPS(1);
- // send the sound, once, to all clients in range
- m_host.SendSound(KeyOrName(sound).ToString(), volume, true, 0);
- }
- // Xantor 20080528: Clear prim data of sound instead
- public void llStopSound()
- {
- m_host.AddScriptLPS(1);
- m_host.Sound = UUID.Zero;
- m_host.SoundGain = 0;
- m_host.SoundFlags = 0;
- m_host.SoundRadius = 0;
- m_host.ScheduleFullUpdate();
- m_host.SendFullUpdateToAllClients();
- // m_host.SendSound(UUID.Zero.ToString(), 1.0, false, 2);
- }
- public void llPreloadSound(string sound)
- {
- m_host.AddScriptLPS(1);
- m_host.PreloadSound(sound);
- // 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)
- {
- UUID invItemID=InventorySelf();
- if (invItemID == UUID.Zero)
- return 0;
- m_host.AddScriptLPS(1);
- if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero)
- return 0;
- if ((m_host.TaskInventory[invItemID].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, float scale, float vel, float lifetime, float arc, int bounce, string texture, LSL_Vector offset, float 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);
- 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;
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == inventory)
- {
- // make sure we're an object.
- if (inv.Value.InvType != (int)InventoryType.Object)
- {
- llSay(0, "Unable to create requested object. Object is missing from database.");
- return;
- }
- Vector3 llpos = new Vector3((float)pos.x, (float)pos.y, (float)pos.z);
- // test if we're further away then 10m
- if (Util.GetDistanceTo(llpos, m_host.AbsolutePosition) > 10)
- return; // wiki says, if it's further away then 10m, silently fail.
- Vector3 llvel = new Vector3((float)vel.x, (float)vel.y, (float)vel.z);
- // need the magnitude later
- float velmag = (float)Util.GetMagnitude(llvel);
- SceneObjectGroup new_group = World.RezObject(m_host, inv.Value, llpos, Rot2Quaternion(rot), llvel, param);
- // If either of these are null, then there was an unknown error.
- if (new_group == null)
- continue;
- if (new_group.RootPart == null)
- continue;
- // objects rezzed with this method are die_at_edge by default.
- new_group.RootPart.SetDieAtEdge(true);
- 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();
- if (new_group.RootPart.PhysActor != null && new_group.RootPart.PhysActor.IsPhysical && llvel != Vector3.Zero)
- {
- new_group.RootPart.ApplyImpulse(llvel, false);
- //Recoil.
- llApplyImpulse(new LSL_Vector(llvel.X * groupmass, llvel.Y * groupmass, llvel.Z * groupmass), 0);
- }
- // Variable script delay? (see (http://wiki.secondlife.com/wiki/LSL_Delay)
- ScriptSleep((int)((groupmass * velmag) / 10));
- // ScriptSleep(100);
- return;
- }
- }
- llSay(0, "Could not find object " + inventory);
- }
- 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);
- NotImplemented("llLookAt");
- }
- public void llStopLookAt()
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llStopLookAt");
- }
- 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_localID, m_itemID, sec);
- }
- public void llSleep(double sec)
- {
- m_host.AddScriptLPS(1);
- Thread.Sleep((int)(sec * 1000));
- }
- public LSL_Float llGetMass()
- {
- m_host.AddScriptLPS(1);
- return m_host.GetMass();
- }
- public void llCollisionFilter(string name, string id, int accept)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llCollisionFilter");
- }
- public void llTakeControls(int controls, int accept, int pass_on)
- {
- if (!m_host.TaskInventory.ContainsKey(InventorySelf()))
- {
- return;
- }
- if (m_host.TaskInventory[InventorySelf()].PermsGranter != UUID.Zero)
- {
- ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[InventorySelf()].PermsGranter);
- if (presence != null)
- {
- if ((m_host.TaskInventory[InventorySelf()].PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0)
- {
- presence.RegisterControlEventsToScript(controls, accept, pass_on, m_localID, m_itemID);
- }
- }
- }
- m_host.AddScriptLPS(1);
- }
- public void llReleaseControls()
- {
- m_host.AddScriptLPS(1);
- if (!m_host.TaskInventory.ContainsKey(InventorySelf()))
- {
- return;
- }
- if (m_host.TaskInventory[InventorySelf()].PermsGranter != UUID.Zero)
- {
- ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[InventorySelf()].PermsGranter);
- if (presence != null)
- {
- if ((m_host.TaskInventory[InventorySelf()].PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0)
- {
- // Unregister controls from Presence
- presence.UnRegisterControlEventsToScript(m_localID, m_itemID);
- // Remove Take Control permission.
- m_host.TaskInventory[InventorySelf()].PermsMask &= ~ScriptBaseClass.PERMISSION_TAKE_CONTROLS;
- }
- }
- }
- }
- public void llAttachToAvatar(int attachment)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llAttachToAvatar");
- }
- public void llDetachFromAvatar()
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llDetachFromAvatar");
- }
- 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.ObjectOwner.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
- // Console.WriteLine("[Scripting IM]: From:" + msg.fromAgentID.ToString() + " To: " + msg.toAgentID.ToString() + " Session:" + msg.imSessionID.ToString() + " Message:" + message);
- // Console.WriteLine("[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
- //}
- 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 = Vector3.Zero;// new Vector3(m_host.AbsolutePosition);
- msg.RegionID = World.RegionInfo.RegionID.Guid;//RegionID.Guid;
- msg.binaryBucket = new byte[0];// binaryBucket;
- 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)
- return;
- emailModule.SendEmail(m_host.UUID, address, subject, message);
- // ScriptSleep(20000);
- }
- public void llGetNextEmail(string address, string subject)
- {
- m_host.AddScriptLPS(1);
- IEmailModule emailModule = m_ScriptEngine.World.RequestModuleInterface<IEmailModule>();
- if (emailModule == null)
- 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 void llSetBuoyancy(double buoyancy)
- {
- m_host.AddScriptLPS(1);
- if (m_host.ParentGroup != null)
- {
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetBuoyancy((float)buoyancy);
- }
- }
- }
- public void llSetHoverHeight(double height, int water, double tau)
- {
- m_host.AddScriptLPS(1);
- Vector3 pos = m_host.GetWorldPosition();
- int x = (int)(pos.X);
- int y = (int)(pos.Y);
- float landHeight = (float)World.GetLandHeight(x, y);
- float targetHeight = landHeight + (float)height;
- if (water == 1)
- {
- float waterHeight = (float)World.RegionInfo.RegionSettings.WaterHeight;
- if (waterHeight > targetHeight)
- {
- targetHeight = waterHeight + (float)height;
- }
- }
- if (m_host.PhysActor != null)
- {
- m_host.MoveToTarget(new Vector3(pos.X, pos.Y, targetHeight), (float)tau);
- m_host.PhysActor.Flying = true;
- }
- }
- public void llStopHover()
- {
- m_host.AddScriptLPS(1);
- if (m_host.PhysActor != null)
- {
- m_host.PhysActor.Flying = false;
- m_host.PhysActor.PIDActive = false;
- }
- }
- public void llMinEventDelay(double delay)
- {
- m_host.AddScriptLPS(1);
- try
- {
- m_ScriptEngine.SetMinEventDelay(m_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);
- NotImplemented("llRotLookAt");
- }
- 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);
- UUID invItemID=InventorySelf();
- if (invItemID == UUID.Zero)
- return;
- if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero)
- return;
- if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0)
- {
- ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[invItemID].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.AddAnimation(anim);
- else
- presence.AddAnimation(animID);
- }
- }
- }
- public void llStopAnimation(string anim)
- {
- m_host.AddScriptLPS(1);
- UUID invItemID=InventorySelf();
- if (invItemID == UUID.Zero)
- return;
- if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero)
- return;
- if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0)
- {
- UUID animID = new UUID();
- if (!UUID.TryParse(anim, out animID))
- {
- animID=InventoryKey(anim);
- }
- ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[invItemID].PermsGranter);
- if (presence != null)
- {
- if (animID == UUID.Zero)
- presence.RemoveAnimation(anim);
- else
- presence.RemoveAnimation(animID);
- }
- }
- }
- public void llPointAt(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llPointAt");
- }
- public void llStopPointAt()
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llStopPointAt");
- }
- public void llTargetOmega(LSL_Vector axis, double spinrate, double gain)
- {
- m_host.AddScriptLPS(1);
- m_host.RotationalVelocity = new Vector3((float)(axis.x * spinrate), (float)(axis.y * spinrate), (float)(axis.z * spinrate));
- m_host.AngularVelocity = new Vector3((float)(axis.x * spinrate), (float)(axis.y * spinrate), (float)(axis.z * spinrate));
- m_host.ScheduleTerseUpdate();
- m_host.SendTerseUpdateToAllClients();
- m_host.ParentGroup.HasGroupChanged = true;
- }
- public LSL_Integer llGetStartParameter()
- {
- m_host.AddScriptLPS(1);
- return m_ScriptEngine.GetStartParameter(m_itemID);
- }
- public void llGodLikeRezObject(string inventory, LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llGodLikeRezObject");
- }
- public void llRequestPermissions(string agent, int perm)
- {
- UUID agentID=new UUID();
- if (!UUID.TryParse(agent, out agentID))
- return;
- UUID invItemID=InventorySelf();
- if (invItemID == UUID.Zero)
- return; // Not in a prim? How??
- if (agentID == UUID.Zero || perm == 0) // Releasing permissions
- {
- llReleaseControls();
- m_host.TaskInventory[invItemID].PermsGranter=UUID.Zero;
- m_host.TaskInventory[invItemID].PermsMask=0;
- m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams(
- "run_time_permissions", new Object[] {
- new LSL_Integer(0) },
- new DetectParams[0]));
- return;
- }
- if ( m_host.TaskInventory[invItemID].PermsGranter != agentID || (perm & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) == 0)
- llReleaseControls();
- m_host.AddScriptLPS(1);
- if (m_host.ParentGroup.IsAttachment && (UUID)agent == m_host.ParentGroup.RootPart.AttachedAvatar)
- {
- // When attached, certain permissions are implicit if requested from owner
- int implicitPerms = ScriptBaseClass.PERMISSION_TAKE_CONTROLS |
- ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION |
- ScriptBaseClass.PERMISSION_CONTROL_CAMERA |
- ScriptBaseClass.PERMISSION_ATTACH;
- if ((perm & (~implicitPerms)) == 0) // Requested only implicit perms
- {
- m_host.TaskInventory[invItemID].PermsGranter=agentID;
- m_host.TaskInventory[invItemID].PermsMask=perm;
- m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams(
- "run_time_permissions", new Object[] {
- new LSL_Integer(perm) },
- new DetectParams[0]));
- return;
- }
- }
- else if (m_host.SitTargetAvatar == agentID) // Sitting avatar
- {
- // When agent is sitting, certain permissions are implicit if requested from sitting agent
- int implicitPerms = ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION |
- ScriptBaseClass.PERMISSION_CONTROL_CAMERA |
- ScriptBaseClass.PERMISSION_TRACK_CAMERA;
- if ((perm & (~implicitPerms)) == 0) // Requested only implicit perms
- {
- m_host.TaskInventory[invItemID].PermsGranter=agentID;
- m_host.TaskInventory[invItemID].PermsMask=perm;
- m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams(
- "run_time_permissions", new Object[] {
- new LSL_Integer(perm) },
- new DetectParams[0]));
- return;
- }
- }
- ScenePresence presence = World.GetScenePresence(agentID);
- if (presence != null)
- {
- string ownerName=resolveName(m_host.ParentGroup.RootPart.OwnerID);
- if (ownerName == String.Empty)
- ownerName="(hippos)";
- if (!m_waitingForScriptAnswer)
- {
- m_host.TaskInventory[invItemID].PermsGranter=agentID;
- m_host.TaskInventory[invItemID].PermsMask=0;
- presence.ControllingClient.OnScriptAnswer+=handleScriptAnswer;
- m_waitingForScriptAnswer=true;
- }
- presence.ControllingClient.SendScriptQuestion(m_host.UUID, m_host.ParentGroup.RootPart.Name, ownerName, invItemID, perm);
- return;
- }
- // Requested agent is not in range, refuse perms
- m_ScriptEngine.PostScriptEvent(m_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;
- UUID invItemID=InventorySelf();
- if (invItemID == UUID.Zero)
- return;
- client.OnScriptAnswer-=handleScriptAnswer;
- m_waitingForScriptAnswer=false;
- if ((answer & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) == 0)
- llReleaseControls();
- m_host.TaskInventory[invItemID].PermsMask=answer;
- m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams(
- "run_time_permissions", new Object[] {
- new LSL_Integer(answer) },
- new DetectParams[0]));
- }
- public LSL_String llGetPermissionsKey()
- {
- m_host.AddScriptLPS(1);
- foreach (TaskInventoryItem item in m_host.TaskInventory.Values)
- {
- if (item.Type == 10 && item.ItemID == m_itemID)
- {
- return item.PermsGranter.ToString();
- }
- }
- return UUID.Zero.ToString();
- }
- public LSL_Integer llGetPermissions()
- {
- m_host.AddScriptLPS(1);
- foreach (TaskInventoryItem item in m_host.TaskInventory.Values)
- {
- if (item.Type == 10 && item.ItemID == m_itemID)
- {
- int perms = item.PermsMask;
- if (m_automaticLinkPermission)
- perms |= ScriptBaseClass.PERMISSION_CHANGE_LINKS;
- return perms;
- }
- }
- return 0;
- }
- public LSL_Integer llGetLinkNumber()
- {
- m_host.AddScriptLPS(1);
- if (m_host.ParentGroup.Children.Count > 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)
- SetColor(part, color, face);
- }
- public void llCreateLink(string target, int parent)
- {
- m_host.AddScriptLPS(1);
- UUID invItemID = InventorySelf();
- if ((m_host.TaskInventory[invItemID].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_host.TaskInventory[invItemID].PermsGranter);
- if (sp != null)
- client = sp.ControllingClient;
- SceneObjectPart targetPart = World.GetSceneObjectPart((UUID)target);
- if (targetPart.ParentGroup.RootPart.AttachmentPoint != 0)
- return; // Fail silently if attached
- 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;
- }
- // byte uf = childPrim.RootPart.UpdateFlag;
- childPrim.RootPart.UpdateFlag = 0;
- parentPrim.LinkToGroup(childPrim);
- // if (uf != (Byte)0)
- // parent.RootPart.UpdateFlag = uf;
- }
- parentPrim.TriggerScriptChangedEvent(Changed.LINK);
- parentPrim.RootPart.AddFlag(PrimFlags.CreateSelected);
- parentPrim.HasGroupChanged = true;
- parentPrim.ScheduleGroupForFullUpdate();
- if (client != null)
- parentPrim.GetProperties(client);
- ScriptSleep(1000);
- }
- public void llBreakLink(int linknum)
- {
- m_host.AddScriptLPS(1);
- UUID invItemID = InventorySelf();
- if ((m_host.TaskInventory[invItemID].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.RootPart.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.Children.Values)
- {
- 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.Children.Values);
- parts.Remove(parentPrim.RootPart);
- foreach (SceneObjectPart part in parts)
- {
- parentPrim.DelinkFromGroup(part.LocalId, true);
- }
- parentPrim.TriggerScriptChangedEvent(Changed.LINK);
- if (parts.Count > 0) {
- SceneObjectPart newRoot = parts[0];
- parts.Remove(newRoot);
- foreach (SceneObjectPart part in parts)
- {
- part.UpdateFlag = 0;
- newRoot.ParentGroup.LinkToGroup(part.ParentGroup);
- }
- }
- }
- else
- {
- if (childPrim == null)
- return;
- parentPrim.DelinkFromGroup(childPrim.LocalId, true);
- parentPrim.TriggerScriptChangedEvent(Changed.LINK);
- }
- }
- public void llBreakAllLinks()
- {
- m_host.AddScriptLPS(1);
- SceneObjectGroup parentPrim = m_host.ParentGroup;
- if (parentPrim.RootPart.AttachmentPoint != 0)
- return; // Fail silently if attached
- List<SceneObjectPart> parts = new List<SceneObjectPart>(parentPrim.Children.Values);
- parts.Remove(parentPrim.RootPart);
- foreach (SceneObjectPart part in parts)
- {
- parentPrim.DelinkFromGroup(part.LocalId, true);
- parentPrim.TriggerScriptChangedEvent(Changed.LINK);
- }
- }
- public LSL_String llGetLinkKey(int linknum)
- {
- m_host.AddScriptLPS(1);
- SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknum);
- if (part != null)
- {
- return part.UUID.ToString();
- }
- else
- {
- return UUID.Zero.ToString();
- }
- }
- /// <summary>
- /// 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
- /// </summary>
- public LSL_String llGetLinkName(int linknum)
- {
- m_host.AddScriptLPS(1);
- // simplest case, this prims link number
- if (m_host.LinkNum == linknum)
- return m_host.Name;
-
- // Single prim
- if (m_host.LinkNum == 0)
- {
- if (linknum == 0)
- 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;
- 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();
- 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);
- bool found = false;
- UUID destId = UUID.Zero;
- UUID objId = UUID.Zero;
- int assetType = 0;
- string objName = String.Empty;
- if (!UUID.TryParse(destination, out destId))
- {
- llSay(0, "Could not parse key " + destination);
- return;
- }
- // move the first object found with this inventory name
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == inventory)
- {
- found = true;
- objId = inv.Key;
- assetType = inv.Value.Type;
- objName = inv.Value.Name;
- break;
- }
- }
- if (!found)
- {
- llSay(0, String.Format("Could not find object '{0}'", inventory));
- throw new Exception(String.Format("The inventory object '{0}' could not be found", inventory));
- }
- // check if destination is an avatar
- if (World.GetScenePresence(destId) != null)
- {
- // destination is an avatar
- InventoryItemBase agentItem =
- World.MoveTaskInventoryItem(destId, UUID.Zero, m_host, objId);
- if (agentItem == null)
- return;
- byte[] bucket = new byte[17];
- bucket[0] = (byte)assetType;
- byte[] objBytes = objId.GetBytes();
- Array.Copy(objBytes, 0, bucket, 1, 16);
- GridInstantMessage msg = new GridInstantMessage(World,
- m_host.UUID, m_host.Name+", an object owned by "+
- resolveName(m_host.OwnerID)+",", destId,
- (byte)InstantMessageDialog.InventoryOffered,
- false, objName+"\n"+m_host.Name+" is located at "+
- World.RegionInfo.RegionName+" "+
- m_host.AbsolutePosition.ToString(),
- agentItem.ID, true, m_host.AbsolutePosition,
- bucket);
- if (m_TransferModule != null)
- m_TransferModule.SendInstantMessage(msg, delegate(bool success) {} );
- }
- else
- {
- // destination is an object
- World.MoveTaskInventoryItem(destId, m_host, objId);
- }
- // ScriptSleep(3000);
- }
- public void llRemoveInventory(string name)
- {
- m_host.AddScriptLPS(1);
- foreach (TaskInventoryItem item in m_host.TaskInventory.Values)
- {
- if (item.Name == name)
- {
- m_host.Inventory.RemoveInventoryItem(item.ItemID);
- return;
- }
- }
- }
- public void llSetText(string text, LSL_Vector color, double alpha)
- {
- m_host.AddScriptLPS(1);
- Vector3 av3 = new Vector3(Util.Clip((float)color.x, 0.0f, 1.0f),
- Util.Clip((float)color.y, 0.0f, 1.0f),
- Util.Clip((float)color.z, 0.0f, 1.0f));
- m_host.SetText(text, av3, Util.Clip((float)alpha, 0.0f, 1.0f));
- m_host.ParentGroup.HasGroupChanged = true;
- }
- 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);
- NotImplemented("llPassTouches");
- }
- public LSL_String llRequestAgentData(string id, int data)
- {
- m_host.AddScriptLPS(1);
- UUID uuid = (UUID)id;
- UserProfileData userProfile =
- World.CommsManager.UserService.GetUserProfile(uuid);
- UserAgentData userAgent =
- World.CommsManager.UserService.GetAgentByUUID(uuid);
- if (userProfile == null || userAgent == null)
- return UUID.Zero.ToString();
- string reply = String.Empty;
- switch (data)
- {
- case 1: // DATA_ONLINE (0|1)
- // TODO: implement fetching of this information
- if (userProfile.CurrentAgent.AgentOnline)
- reply = "1";
- else
- reply = "0";
- break;
- case 2: // DATA_NAME (First Last)
- reply = userProfile.FirstName + " " + userProfile.SurName;
- break;
- case 3: // DATA_BORN (YYYY-MM-DD)
- DateTime born = new DateTime(1970, 1, 1, 0, 0, 0, 0);
- born = born.AddSeconds(userProfile.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 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_localID,
- m_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.TaskInventory.Values)
- {
- if (item.Type == 3 && item.Name == name)
- {
- UUID tid = AsyncCommands.
- DataserverPlugin.RegisterRequest(m_localID,
- m_itemID, item.AssetID.ToString());
- Vector3 region = new Vector3(
- World.RegionInfo.RegionLocX * Constants.RegionSize,
- World.RegionInfo.RegionLocY * Constants.RegionSize,
- 0);
- World.AssetCache.GetAsset(item.AssetID,
- delegate(UUID i, 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);
- }, false);
- // ScriptSleep(1000);
- return tid.ToString();
- }
- }
- // ScriptSleep(1000);
- return String.Empty;
- }
- public void llSetDamage(double damage)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llSetDamage");
- }
- 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.GetLandOwner(presence.AbsolutePosition.X, presence.AbsolutePosition.Y))
- {
- presence.ControllingClient.SendTeleportLocationStart();
- World.TeleportClientHome(agentId, presence.ControllingClient);
- }
- }
- }
- // ScriptSleep(5000);
- }
- public void llTextBox(string avatar, string message, int chat_channel)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llTextBox");
- }
- 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);
- //NotImplemented("llCollisionSound");
- // TODO: Parameter check logic required.
- UUID soundId = UUID.Zero;
- if (!UUID.TryParse(impact_sound, out soundId))
- {
- foreach (TaskInventoryItem item in m_host.TaskInventory.Values)
- {
- if (item.Type == (int)AssetType.Sound && item.Name == impact_sound)
- {
- soundId = item.AssetID;
- break;
- }
- }
- }
- m_host.CollisionSound = soundId;
- m_host.CollisionSoundVolume = (float)impact_volume;
- }
- public void llCollisionSprite(string impact_sprite)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llCollisionSprite");
- }
- 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 = AnimationSet.Animations.AnimStateNames;
- if (presence != null)
- {
- AnimationSet currentAnims = presence.Animations;
- string currentAnimationState = String.Empty;
- if (animationstateNames.TryGetValue(currentAnims.DefaultAnimation.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.TaskInventory.Values)
- {
- if (item.Type == ScriptBaseClass.INVENTORY_SCRIPT)
- {
- partItemID = item.ItemID;
- int linkNumber = m_host.LinkNum;
- if (m_host.ParentGroup.Children.Count == 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?
- if (pusheeav.ParentID != 0)
- {
- SceneObjectPart parentobj = World.GetSceneObjectPart(pusheeav.ParentID);
- if (parentobj != null)
- {
- PusheePos = parentobj.AbsolutePosition;
- }
- else
- {
- PusheePos = pusheeav.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.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)Parcel.ParcelFlags.RestrictPushObject) == (uint)Parcel.ParcelFlags.RestrictPushObject)
- {
- // Need provisions for Group Owned here
- if (m_host.OwnerID == targetlandObj.landData.OwnerID || targetlandObj.landData.IsGroupOwned || m_host.OwnerID == targetID)
- {
- pushAllowed = true;
- }
- //Parcel.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 = new Vector3((float)impulse.x, (float)impulse.y, (float)impulse.z);
- {
- 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(new PhysicsVector(applied_linear_impulse.X, applied_linear_impulse.Y, applied_linear_impulse.Z), 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);
- NotImplemented("llPassCollisions");
- }
- public LSL_String llGetScriptName()
- {
- string result = String.Empty;
- m_host.AddScriptLPS(1);
- foreach (TaskInventoryItem item in m_host.TaskInventory.Values)
- {
- if (item.Type == 10 && item.ItemID == m_itemID)
- {
- result = item.Name!=null?item.Name:String.Empty;
- break;
- }
- }
- return result;
- }
- // this function to understand which shape it is (taken from meshmerizer)
- // quite useful can be used by meshmerizer to have a centralized point of understanding the shape
- // except that it refers to scripting constants
- private int getScriptPrimType(PrimitiveBaseShape primShape)
- {
- if (primShape.SculptEntry)
- return ScriptBaseClass.PRIM_TYPE_SCULPT;
- if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.Square)
- {
- if (primShape.PathCurve == (byte)Extrusion.Straight)
- return ScriptBaseClass.PRIM_TYPE_BOX;
- else if (primShape.PathCurve == (byte)Extrusion.Curve1)
- return ScriptBaseClass.PRIM_TYPE_TUBE;
- }
- else if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.Circle)
- {
- if (primShape.PathCurve == (byte)Extrusion.Straight)
- return ScriptBaseClass.PRIM_TYPE_CYLINDER;
- // ProfileCurve seems to combine hole shape and profile curve so we need to only compare against the lower 3 bits
- else if (primShape.PathCurve == (byte)Extrusion.Curve1)
- return ScriptBaseClass.PRIM_TYPE_TORUS;
- }
- else if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.HalfCircle)
- {
- if (primShape.PathCurve == (byte)Extrusion.Curve1 || primShape.PathCurve == (byte)Extrusion.Curve2)
- return ScriptBaseClass.PRIM_TYPE_SPHERE;
- }
- else if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.EquilateralTriangle)
- {
- if (primShape.PathCurve == (byte)Extrusion.Straight)
- return ScriptBaseClass.PRIM_TYPE_PRISM;
- else if (primShape.PathCurve == (byte)Extrusion.Curve1)
- return ScriptBaseClass.PRIM_TYPE_RING;
- }
- return ScriptBaseClass.PRIM_TYPE_BOX;
- }
- // Helper functions to understand if object has cut, hollow, dimple, and other affecting number of faces
- private void hasCutHollowDimpleProfileCut(int primType, PrimitiveBaseShape shape, out bool hasCut, out bool hasHollow,
- out bool hasDimple, out bool hasProfileCut)
- {
- if (primType == ScriptBaseClass.PRIM_TYPE_BOX
- ||
- primType == ScriptBaseClass.PRIM_TYPE_CYLINDER
- ||
- primType == ScriptBaseClass.PRIM_TYPE_PRISM)
- hasCut = (shape.ProfileBegin > 0) || (shape.ProfileEnd > 0);
- else
- hasCut = (shape.PathBegin > 0) || (shape.PathEnd > 0);
- hasHollow = shape.ProfileHollow > 0;
- hasDimple = (shape.ProfileBegin > 0) || (shape.ProfileEnd > 0); // taken from llSetPrimitiveParms
- hasProfileCut = hasDimple; // is it the same thing?
- }
- public LSL_Integer llGetNumberOfSides()
- {
- m_host.AddScriptLPS(1);
- return GetNumberOfSides(m_host);
- }
- private int GetNumberOfSides(SceneObjectPart part)
- {
- int ret = 0;
- bool hasCut;
- bool hasHollow;
- bool hasDimple;
- bool hasProfileCut;
- int primType = getScriptPrimType(part.Shape);
- hasCutHollowDimpleProfileCut(primType, part.Shape, out hasCut, out hasHollow, out hasDimple, out hasProfileCut);
- switch (primType)
- {
- case ScriptBaseClass.PRIM_TYPE_BOX:
- ret = 6;
- if (hasCut) ret += 2;
- if (hasHollow) ret += 1;
- break;
- case ScriptBaseClass.PRIM_TYPE_CYLINDER:
- ret = 3;
- if (hasCut) ret += 2;
- if (hasHollow) ret += 1;
- break;
- case ScriptBaseClass.PRIM_TYPE_PRISM:
- ret = 5;
- if (hasCut) ret += 2;
- if (hasHollow) ret += 1;
- break;
- case ScriptBaseClass.PRIM_TYPE_SPHERE:
- ret = 1;
- if (hasCut) ret += 2;
- if (hasDimple) ret += 2;
- if (hasHollow) ret += 3; // Emulate lsl on secondlife (according to documentation it should have added only +1)
- break;
- case ScriptBaseClass.PRIM_TYPE_TORUS:
- ret = 1;
- if (hasCut) ret += 2;
- if (hasProfileCut) ret += 2;
- if (hasHollow) ret += 1;
- break;
- case ScriptBaseClass.PRIM_TYPE_TUBE:
- ret = 4;
- if (hasCut) ret += 2;
- if (hasProfileCut) ret += 2;
- if (hasHollow) ret += 1;
- break;
- case ScriptBaseClass.PRIM_TYPE_RING:
- ret = 3;
- if (hasCut) ret += 2;
- if (hasProfileCut) ret += 2;
- if (hasHollow) ret += 1;
- break;
- case ScriptBaseClass.PRIM_TYPE_SCULPT:
- ret = 1;
- break;
- }
- return ret;
- }
- /* 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 / 2);
- t = Math.Sin(angle / 2); // 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);
- }
- // Xantor 30/apr/2008
- public LSL_Float llAngleBetween(LSL_Rotation a, LSL_Rotation b)
- {
- m_host.AddScriptLPS(1);
- return (double) Math.Acos(a.x * b.x + a.y * b.y + a.z * b.z + a.s * b.s) * 2;
- }
- public LSL_String llGetInventoryKey(string name)
- {
- m_host.AddScriptLPS(1);
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == name)
- {
- if ((inv.Value.CurrentPermissions & (uint)(PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify)) == (uint)(PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify))
- {
- return inv.Value.AssetID.ToString();
- }
- else
- {
- return UUID.Zero.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.Environment.Modules.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);
- }
- private 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);
- }
- private 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(World.Entities[key].LocalId);
- 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);
- NotImplemented("llGetCenterOfMass");
- return new LSL_Vector();
- }
- 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)
- {
- 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)
- {
- return 0.0;
- }
- 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)
- {
- return String.Empty;
- }
- return src.Data[index].ToString();
- }
- public LSL_String llList2Key(LSL_List src, int index)
- {
- m_host.AddScriptLPS(1);
- if (index < 0)
- {
- index = src.Length + index;
- }
- if (index >= src.Length)
- {
- 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)
- {
- return new LSL_Vector(0, 0, 0);
- }
- if (src.Data[index].GetType() == typeof(LSL_Vector))
- {
- return (LSL_Vector)src.Data[index];
- }
- 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)
- {
- return new LSL_Rotation(0, 0, 0, 1);
- }
- 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)
- {
- string ret = String.Empty;
- int x = 0;
- m_host.AddScriptLPS(1);
- if (src.Data.Length > 0)
- {
- ret = src.Data[x++].ToString();
- for (; x < src.Data.Length; x++)
- {
- ret += ", "+src.Data[x].ToString();
- }
- }
- return ret;
- }
- /// <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(src.Substring(start,length).Trim());
- start += length+1;
- length = 0;
- }
- else
- {
- length++;
- }
- break;
- default:
- length++;
- break;
- }
- }
- result.Add(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;
- // 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)
- stride = 1;
- 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]);
- }
- }
- }
- return result;
- }
- public LSL_Integer llGetRegionAgentCount()
- {
- m_host.AddScriptLPS(1);
- return new LSL_Integer(World.GetAvatars().Count);
- }
- 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>
- 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++)
- {
- if (src.Data[i].Equals(test.Data[0]))
- {
- int j;
- for (j = 1; j < test.Length; j++)
- if (!src.Data[i+j].Equals(test.Data[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);
- NotImplemented("llEdgeOfWorld");
- return 0;
- }
- /// <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)AgentManager.AgentState.Typing) != (byte)0)
- {
- flags |= ScriptBaseClass.AGENT_TYPING;
- }
- string agentMovementAnimation = agent.GetMovementAnimation();
- 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.PhysicsActor != null &&
- !agent.PhysicsActor.IsColliding)
- {
- flags |= ScriptBaseClass.AGENT_IN_AIR;
- }
- if (agent.ParentID != 0)
- {
- flags |= ScriptBaseClass.AGENT_ON_OBJECT;
- flags |= ScriptBaseClass.AGENT_SITTING;
- }
- if (agent.Animations.DefaultAnimation.AnimID == AnimationSet.Animations.AnimsUUID["SIT_GROUND_CONSTRAINED"])
- {
- flags |= ScriptBaseClass.AGENT_SITTING;
- }
- //NotImplemented("llGetAgentInfo");
- return flags;
- }
- public LSL_String llGetAgentLanguage(string id)
- {
- // This should only return a value if the avatar is in the same region
- m_host.AddScriptLPS(1);
- NotImplemented("llGetAgentLanguage");
- return "";
- }
- public void llAdjustSoundVolume(double volume)
- {
- m_host.AddScriptLPS(1);
- m_host.AdjustSoundGain(volume);
- // ScriptSleep(100);
- }
- public void llSetSoundQueueing(int queue)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llSetSoundQueueing");
- }
- 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);
- 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;
- m_host.AddTextureAnimation(pTexAnim);
- m_host.SendFullUpdateToAllClients();
- m_host.ParentGroup.HasGroupChanged = true;
- }
- public void llTriggerSoundLimited(string sound, double volume, LSL_Vector top_north_east,
- LSL_Vector bottom_south_west)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llTriggerSoundLimited");
- }
- 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
- if (m_host.OwnerID == World.GetLandOwner(presence.AbsolutePosition.X, presence.AbsolutePosition.Y))
- World.TeleportClientHome(agentId, presence.ControllingClient);
- }
- }
- // ScriptSleep(5000);
- }
- public LSL_List llParseString2List(string str, LSL_List separators, LSL_List in_spacers)
- {
- m_host.AddScriptLPS(1);
- LSL_List ret = new LSL_List();
- LSL_List spacers = new LSL_List();
- if (in_spacers.Length > 0 && separators.Length > 0)
- {
- for (int i = 0; i < in_spacers.Length; i++)
- {
- object s = in_spacers.Data[i];
- for (int j = 0; j < separators.Length; j++)
- {
- if (separators.Data[j].ToString() == s.ToString())
- {
- s = null;
- break;
- }
- }
- if (s != null)
- {
- spacers.Add(s);
- }
- }
- }
- object[] delimiters = new object[separators.Length + spacers.Length];
- separators.Data.CopyTo(delimiters, 0);
- spacers.Data.CopyTo(delimiters, separators.Length);
- bool dfound = false;
- do
- {
- dfound = false;
- int cindex = -1;
- string cdeli = "";
- for (int i = 0; i < delimiters.Length; i++)
- {
- int index = str.IndexOf(delimiters[i].ToString());
- bool found = index != -1;
- if (found && String.Empty != delimiters[i].ToString())
- {
- if ((cindex > index) || (cindex == -1))
- {
- cindex = index;
- cdeli = delimiters[i].ToString();
- }
- dfound = dfound || found;
- }
- }
- if (cindex != -1)
- {
- if (cindex > 0)
- {
- ret.Add(new LSL_String(str.Substring(0, cindex)));
- }
- // Cannot use spacers.Contains() because spacers may be either type String or LSLString
- for (int j = 0; j < spacers.Length; j++)
- {
- if (spacers.Data[j].ToString() == cdeli)
- {
- ret.Add(new LSL_String(cdeli));
- break;
- }
- }
- str = str.Substring(cindex + cdeli.Length);
- }
- } while (dfound);
- if (str != "")
- {
- ret.Add(new LSL_String(str));
- }
- return ret;
- }
- 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.GetLandOwner(presence.AbsolutePosition.X, presence.AbsolutePosition.Y))
- return 1;
- }
- else // object is not an avatar
- {
- SceneObjectPart obj = World.GetSceneObjectPart(key);
- if (obj != null)
- if (m_host.OwnerID == World.GetLandOwner(obj.AbsolutePosition.X, obj.AbsolutePosition.Y))
- return 1;
- }
- }
- return 0;
- }
- public LSL_String llGetLandOwnerAt(LSL_Vector pos)
- {
- m_host.AddScriptLPS(1);
- return World.GetLandOwner((float)pos.x, (float)pos.y).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.ObjectOwner == 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);
- Vector3 pos = m_host.AbsolutePosition + new Vector3((float)offset.x,
- (float)offset.y,
- (float)offset.z);
- Vector3 p0 = new Vector3(pos.X, pos.Y,
- (float)llGround(
- new LSL_Vector(pos.X, pos.Y, pos.Z)
- ));
- Vector3 p1 = new Vector3(pos.X + 1, pos.Y,
- (float)llGround(
- new LSL_Vector(pos.X + 1, pos.Y, pos.Z)
- ));
- Vector3 p2 = new Vector3(pos.X, pos.Y + 1,
- (float)llGround(
- new LSL_Vector(pos.X, pos.Y + 1, pos.Z)
- ));
- Vector3 v0 = new Vector3(p1.X - p0.X, p1.Y - p0.Y, p1.Z - p0.Z);
- Vector3 v1 = new Vector3(p2.X - p1.X, p2.Y - p1.Y, p2.Z - p1.Z);
- v0.Normalize();
- v1.Normalize();
- Vector3 tv = new Vector3();
- tv.X = (v0.Y * v1.Z) - (v0.Z * v1.Y);
- tv.Y = (v0.Z * v1.X) - (v0.X * v1.Z);
- tv.Z = (v0.X * v1.Y) - (v0.Y * v1.X);
- return new LSL_Vector(tv.X, tv.Y, tv.Z);
- }
- public LSL_Vector llGroundNormal(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- LSL_Vector x = llGroundSlope(offset);
- return new LSL_Vector(x.x, x.y, 1.0);
- }
- 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.RootPart.AttachmentPoint;
- }
- public LSL_Integer llGetFreeMemory()
- {
- m_host.AddScriptLPS(1);
- // Make scripts designed for LSO happy
- return 16384;
- }
- 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.SimulatorFPS;
- }
- /* 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_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;
- }
- private 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 llParticleSystem(LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- if (rules.Length == 0)
- {
- m_host.RemoveParticleSystem();
- m_host.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 ((int)rules.Data[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;
- 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 = m_host.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;
- break;
- case (int)ScriptBaseClass.PSYS_SRC_ANGLE_END:
- tempf = (float)rules.GetLSLFloatItem(i + 1);
- prules.OuterAngle = (float)tempf;
- break;
- }
- }
- prules.CRC = 1;
- m_host.AddNewParticleSystem(prules);
- m_host.ParentGroup.HasGroupChanged = true;
- }
- m_host.SendFullUpdateToAllClients();
- }
- public void llGroundRepel(double height, int water, double tau)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llGroundRepel");
- }
- private UUID GetTaskInventoryItem(string name)
- {
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == name)
- return inv.Key;
- }
- return UUID.Zero;
- }
- 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)
- {
- UUID itemID;
- if (UUID.TryParse(item.ToString(), out itemID))
- {
- itemList.Add(itemID);
- }
- else
- {
- itemID = GetTaskInventoryItem(item.ToString());
- if (itemID != UUID.Zero)
- itemList.Add(itemID);
- }
- }
- if (itemList.Count == 0)
- return;
- UUID folderID = m_ScriptEngine.World.MoveTaskInventoryItems(destID, category, m_host, itemList);
- if (folderID == UUID.Zero)
- return;
- byte[] bucket = new byte[17];
- bucket[0] = (byte)AssetType.Folder;
- byte[] objBytes = folderID.GetBytes();
- Array.Copy(objBytes, 0, bucket, 1, 16);
- GridInstantMessage msg = new GridInstantMessage(World,
- m_host.UUID, m_host.Name+", an object owned by "+
- resolveName(m_host.OwnerID)+",", destID,
- (byte)InstantMessageDialog.InventoryOffered,
- false, category+"\n"+m_host.Name+" is located at "+
- World.RegionInfo.RegionName+" "+
- m_host.AbsolutePosition.ToString(),
- folderID, true, m_host.AbsolutePosition,
- bucket);
- if (m_TransferModule != null)
- m_TransferModule.SendInstantMessage(msg, delegate(bool success) {} );
- }
- public void llSetVehicleType(int type)
- {
- m_host.AddScriptLPS(1);
- if (m_host.ParentGroup != null)
- {
- 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 != null)
- {
- 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 != null)
- {
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetVehicleVectorParam(param,
- new PhysicsVector((float)vec.x, (float)vec.y, (float)vec.z) );
- }
- }
- }
- //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 != null)
- {
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.SetVehicleRotationParam(param,
- Rot2Quaternion(rot));
- }
- }
- }
- public void llSetVehicleFlags(int flags)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llSetVehicleFlags");
- }
- public void llRemoveVehicleFlags(int flags)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llRemoveVehicleFlags");
- }
- public void llSitTarget(LSL_Vector offset, LSL_Rotation rot)
- {
- m_host.AddScriptLPS(1);
- // LSL quaternions can normalize to 0, normal Quaternions can't.
- if (rot.s == 0 && rot.x == 0 && rot.y == 0 && rot.z == 0)
- rot.z = 1; // ZERO_ROTATION = 0,0,0,1
- m_host.SitTargetPosition = new Vector3((float)offset.x, (float)offset.y, (float)offset.z);
- m_host.SitTargetOrientation = Rot2Quaternion(rot);
- }
- public LSL_String llAvatarOnSitTarget()
- {
- m_host.AddScriptLPS(1);
- return m_host.GetAvatarOnSitTarget().ToString();
- }
- public void llAddToLandPassList(string avatar, double hours)
- {
- m_host.AddScriptLPS(1);
- UUID key;
- LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData;
- if (land.OwnerID == m_host.OwnerID)
- {
- ParcelManager.ParcelAccessEntry entry = new ParcelManager.ParcelAccessEntry();
- if (UUID.TryParse(avatar, out key))
- {
- entry.AgentID = key;
- entry.Flags = AccessList.Access;
- entry.Time = DateTime.Now.AddHours(hours);
- land.ParcelAccessList.Add(entry);
- }
- }
- // 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(new Vector3((float)offset.x, (float)offset.y, (float)offset.z));
- }
- public void llSetCameraAtOffset(LSL_Vector offset)
- {
- m_host.AddScriptLPS(1);
- m_host.SetCameraAtOffset(new Vector3((float)offset.x, (float)offset.y, (float)offset.z));
- }
- 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, new Vector3((float)pos.x, (float)pos.y, (float)pos.z));
- if (result)
- {
- return 1;
- }
- else
- {
- return 0;
- }
- }
- public void llDialog(string avatar, string message, LSL_List buttons, int chat_channel)
- {
- 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 > 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();
- }
- World.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 != null)
- {
- if (!m_host.ParentGroup.IsDeleted)
- {
- m_host.ParentGroup.RootPart.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);
- bool found = false;
- UUID destId = UUID.Zero;
- UUID srcId = 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
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == name)
- {
- // make sure the object is a script
- if (10 == inv.Value.Type)
- {
- found = true;
- srcId = inv.Key;
- break;
- }
- }
- }
- if (!found)
- {
- 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.RezScript(srcId, 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_localID, m_itemID, UUID.Zero);
- 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_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_localID, m_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(src + ":" + nonce.ToString());
- }
- private ObjectShapePacket.ObjectDataBlock SetPrimitiveBlockShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist)
- {
- 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.ProfileCurve = (byte)holeshape;
- 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;
- }
- shapeBlock.ProfileBegin = (ushort)(50000 * cut.x);
- shapeBlock.ProfileEnd = (ushort)(50000 * (1 - cut.y));
- if (hollow < 0f)
- {
- hollow = 0f;
- }
- if (hollow > 0.95)
- {
- 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;
- }
- shapeBlock.PathTwistBegin = (sbyte)(100 * twist.x);
- shapeBlock.PathTwist = (sbyte)(100 * twist.y);
- shapeBlock.ObjectLocalID = part.LocalId;
- // retain pathcurve
- shapeBlock.PathCurve = part.Shape.PathCurve;
- return shapeBlock;
- }
- private void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector taper_b, LSL_Vector topshear, byte fudge)
- {
- ObjectShapePacket.ObjectDataBlock shapeBlock;
- shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist);
- shapeBlock.ProfileCurve += fudge;
- 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;
- }
- shapeBlock.PathScaleX = (byte)(100 * (2.0 - taper_b.x));
- shapeBlock.PathScaleY = (byte)(100 * (2.0 - taper_b.y));
- 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;
- }
- shapeBlock.PathShearX = (byte)(100 * topshear.x);
- shapeBlock.PathShearY = (byte)(100 * topshear.y);
- part.UpdateShape(shapeBlock);
- }
- private void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector dimple, byte fudge)
- {
- ObjectShapePacket.ObjectDataBlock shapeBlock;
- shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist);
- // profile/path swapped for a sphere
- shapeBlock.PathBegin = shapeBlock.ProfileBegin;
- shapeBlock.PathEnd = shapeBlock.ProfileEnd;
- shapeBlock.ProfileCurve += fudge;
- 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.UpdateShape(shapeBlock);
- }
- private 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 fudge)
- {
- ObjectShapePacket.ObjectDataBlock shapeBlock;
- shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist);
- shapeBlock.ProfileCurve += fudge;
- // 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;
- }
- shapeBlock.PathScaleX = (byte)(100 * (2 - holesize.x));
- shapeBlock.PathScaleY = (byte)(100 * (2 - holesize.y));
- 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;
- }
- shapeBlock.PathShearX = (byte)(100 * topshear.x);
- shapeBlock.PathShearY = (byte)(100 * topshear.y);
- 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 - cut.x < 0.05f)
- {
- profilecut.x = cut.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;
- }
- shapeBlock.PathTaperX = (sbyte)(100 * taper_a.x);
- shapeBlock.PathTaperY = (sbyte)(100 * taper_a.y);
- if (revolutions < 1f)
- {
- revolutions = 1f;
- }
- if (revolutions > 4f)
- {
- revolutions = 4f;
- }
- shapeBlock.PathRevolutions = (byte)(66.666667 * (revolutions - 1.0));
- // 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;
- }
- shapeBlock.PathRadiusOffset = (sbyte)(100 * radiusoffset);
- if (skew < -0.95f)
- {
- skew = -0.95f;
- }
- if (skew > 0.95f)
- {
- skew = 0.95f;
- }
- shapeBlock.PathSkew = (sbyte)(100 * skew);
- part.UpdateShape(shapeBlock);
- }
- private void SetPrimitiveShapeParams(SceneObjectPart part, string map, int type)
- {
- ObjectShapePacket.ObjectDataBlock shapeBlock = new ObjectShapePacket.ObjectDataBlock();
- UUID sculptId;
- if (!UUID.TryParse(map, out sculptId))
- {
- llSay(0, "Could not parse key " + map);
- return;
- }
- shapeBlock.ObjectLocalID = part.LocalId;
- shapeBlock.PathScaleX = 100;
- shapeBlock.PathScaleY = 150;
- if (type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_CYLINDER &&
- type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_PLANE &&
- type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE &&
- type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_TORUS)
- {
- // default
- type = (int)ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE;
- }
- // retain pathcurve
- shapeBlock.PathCurve = part.Shape.PathCurve;
- part.Shape.SetSculptData((byte)type, sculptId);
- part.Shape.SculptEntry = true;
- part.UpdateShape(shapeBlock);
- }
- public void llSetPrimitiveParams(LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- SetPrimParams(m_host, rules);
- }
- public void llSetLinkPrimitiveParams(int linknumber, LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- List<SceneObjectPart> parts = GetLinkParts(linknumber);
- foreach (SceneObjectPart part in parts)
- SetPrimParams(part, rules);
- }
- private void SetPrimParams(SceneObjectPart part, LSL_List rules)
- {
- int idx = 0;
- while (idx < rules.Length)
- {
- int code = rules.GetLSLIntegerItem(idx++);
- int remain = rules.Length - idx;
- int face;
- LSL_Vector v;
- switch (code)
- {
- case (int)ScriptBaseClass.PRIM_POSITION:
- if (remain < 1)
- return;
- v=rules.GetVector3Item(idx++);
- SetPos(part, v);
- break;
- case (int)ScriptBaseClass.PRIM_SIZE:
- if (remain < 1)
- return;
- v=rules.GetVector3Item(idx++);
- SetScale(part, v);
- break;
- case (int)ScriptBaseClass.PRIM_ROTATION:
- if (remain < 1)
- return;
- LSL_Rotation q = rules.GetQuaternionItem(idx++);
- SetRot(part, Rot2Quaternion(q));
- break;
- case (int)ScriptBaseClass.PRIM_TYPE:
- if (remain < 3)
- return;
- 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;
- 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++);
- part.Shape.PathCurve = (byte)Extrusion.Straight;
- SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear, 1);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_CYLINDER:
- if (remain < 6)
- return;
- 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++);
- part.Shape.ProfileShape = ProfileShape.Circle;
- part.Shape.PathCurve = (byte)Extrusion.Straight;
- SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear, 0);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_PRISM:
- if (remain < 6)
- return;
- 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++);
- part.Shape.PathCurve = (byte)Extrusion.Straight;
- SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear, 3);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_SPHERE:
- if (remain < 5)
- return;
- 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
- part.Shape.PathCurve = (byte)Extrusion.Curve1;
- SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, 5);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_TORUS:
- if (remain < 11)
- return;
- 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++);
- part.Shape.PathCurve = (byte)Extrusion.Curve1;
- SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b, revolutions, radiusoffset, skew, 0);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_TUBE:
- if (remain < 11)
- return;
- 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++);
- part.Shape.PathCurve = (byte)Extrusion.Curve1;
- SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b, revolutions, radiusoffset, skew, 1);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_RING:
- if (remain < 11)
- return;
- 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++);
- part.Shape.PathCurve = (byte)Extrusion.Curve1;
- SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b, revolutions, radiusoffset, skew, 3);
- break;
- case (int)ScriptBaseClass.PRIM_TYPE_SCULPT:
- if (remain < 2)
- return;
- string map = rules.Data[idx++].ToString();
- face = (int)rules.GetLSLIntegerItem(idx++); // type
- part.Shape.PathCurve = (byte)Extrusion.Curve1;
- SetPrimitiveShapeParams(part, map, face);
- break;
- }
- break;
- case (int)ScriptBaseClass.PRIM_TEXTURE:
- if (remain < 5)
- return;
- 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;
- face=(int)rules.GetLSLIntegerItem(idx++);
- LSL_Vector color=rules.GetVector3Item(idx++);
- double alpha=(double)rules.GetLSLFloatItem(idx++);
- SetColor(part, color, face);
- SetAlpha(part, alpha, face);
- break;
- case (int)ScriptBaseClass.PRIM_FLEXIBLE:
- if (remain < 7)
- return;
- 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;
- 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;
- 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;
- face = (int)rules.GetLSLIntegerItem(idx++);
- int shiny = (int)rules.GetLSLIntegerItem(idx++);
- Bumpiness bump = (Bumpiness)Convert.ToByte((int)rules.GetLSLIntegerItem(idx++));
- SetShiny(part, face, shiny, bump);
- break;
- case (int)ScriptBaseClass.PRIM_FULLBRIGHT:
- if (remain < 2)
- return;
- face = rules.GetLSLIntegerItem(idx++);
- bool st = rules.GetLSLIntegerItem(idx++);
- SetFullBright(part, face , st);
- break;
- case (int)ScriptBaseClass.PRIM_MATERIAL:
- if (remain < 1)
- return;
- int mat = rules.GetLSLIntegerItem(idx++);
- if (mat < 0 || mat > 7)
- return;
- part.Material = Convert.ToByte(mat);
- break;
- case (int)ScriptBaseClass.PRIM_PHANTOM:
- if (remain < 1)
- return;
- string ph = rules.Data[idx++].ToString();
- bool phantom;
- if (ph.Equals("1"))
- phantom = true;
- else
- phantom = false;
- part.ScriptSetPhantomStatus(phantom);
- break;
- case (int)ScriptBaseClass.PRIM_PHYSICS:
- if (remain < 1)
- return;
- 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;
- string temp = rules.Data[idx++].ToString();
- bool tempOnRez;
- if (temp.Equals("1"))
- tempOnRez = true;
- else
- tempOnRez = false;
- part.ScriptSetTemporaryStatus(tempOnRez);
- break;
- }
- }
- }
- public LSL_String llStringToBase64(string str)
- {
- m_host.AddScriptLPS(1);
- try
- {
- byte[] encData_byte = new byte[str.Length];
- encData_byte = Encoding.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);
- UTF8Encoding encoder = new UTF8Encoding();
- Decoder utf8Decode = encoder.GetDecoder();
- try
- {
- byte[] todecode_byte = Convert.FromBase64String(str);
- int charCount = utf8Decode.GetCharCount(todecode_byte, 0, todecode_byte.Length);
- char[] decoded_char = new char[charCount];
- utf8Decode.GetChars(todecode_byte, 0, todecode_byte.Length, decoded_char, 0);
- string result = new String(decoded_char);
- return result;
- }
- 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);
- NotImplemented("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.GetAnimationArray();
- foreach (UUID foo in anims)
- l.Add(foo.ToString());
- return l;
- }
- public void llSetParcelMusicURL(string url)
- {
- m_host.AddScriptLPS(1);
- UUID landowner = World.GetLandOwner(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y);
- if (landowner == UUID.Zero)
- {
- return;
- }
- if (landowner != m_host.ObjectOwner)
- {
- return;
- }
- World.SetLandMusicURL(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, url);
- // ScriptSleep(2000);
- }
- 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.RootPart.AttachmentPoint != 0)
- {
- ScenePresence avatar = World.GetScenePresence(m_host.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.ObjectCreator.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);
- return m_host.ParentGroup.PrimCount;
- }
- /// <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.Animations.DefaultAnimation.AnimID == AnimationSet.Animations.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.X * -1.0f, halfSize.Y * -1.0f, halfSize.Z * -1.0f);
- LSL_Vector upper = new LSL_Vector(halfSize.X, halfSize.Y, halfSize.Z);
- 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 res = new LSL_List();
- 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(m_host.Material));
- break;
- case (int)ScriptBaseClass.PRIM_PHYSICS:
- if ((m_host.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 ((m_host.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 ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Phantom) != 0)
- res.Add(new LSL_Integer(1));
- else
- res.Add(new LSL_Integer(0));
- break;
- case (int)ScriptBaseClass.PRIM_POSITION:
- res.Add(new LSL_Vector(m_host.AbsolutePosition.X,
- m_host.AbsolutePosition.Y,
- m_host.AbsolutePosition.Z));
- break;
- case (int)ScriptBaseClass.PRIM_SIZE:
- res.Add(new LSL_Vector(m_host.Scale.X,
- m_host.Scale.Y,
- m_host.Scale.Z));
- break;
- case (int)ScriptBaseClass.PRIM_ROTATION:
- res.Add(new LSL_Rotation(m_host.RotationOffset.X,
- m_host.RotationOffset.Y,
- m_host.RotationOffset.Z,
- m_host.RotationOffset.W));
- break;
- case (int)ScriptBaseClass.PRIM_TYPE:
- // implementing box
- PrimitiveBaseShape Shape = m_host.Shape;
- int primType = getScriptPrimType(m_host.Shape);
- res.Add(new LSL_Integer(primType));
- switch (primType)
- {
- case ScriptBaseClass.PRIM_TYPE_BOX:
- case ScriptBaseClass.PRIM_TYPE_CYLINDER:
- case ScriptBaseClass.PRIM_TYPE_PRISM:
- res.Add(new LSL_Integer(Shape.ProfileCurve));
- 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(Shape.PathShearX / 100.0, Shape.PathShearY / 100.0, 0));
- break;
- case ScriptBaseClass.PRIM_TYPE_SPHERE:
- res.Add(new LSL_Integer(Shape.ProfileCurve));
- 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));
- // 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(Shape.PathShearX / 100.0, Shape.PathShearY / 100.0, 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(Shape.PathRevolutions / 50.0)); // needs fixing :(
- // 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 res;
- int face = (int)rules.GetLSLIntegerItem(idx++);
- Primitive.TextureEntry tex = m_host.Shape.Textures;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (face = 0 ; face < GetNumberOfSides(m_host) ; 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(m_host))
- {
- 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 res;
- face=(int)rules.GetLSLIntegerItem(idx++);
- tex = m_host.Shape.Textures;
- Color4 texcolor;
- if (face == ScriptBaseClass.ALL_SIDES)
- {
- for (face = 0 ; face < GetNumberOfSides(m_host) ; 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:
- // TODO--------------
- if (remain < 1)
- return res;
- face=(int)rules.GetLSLIntegerItem(idx++);
- res.Add(new LSL_Integer(0));
- res.Add(new LSL_Integer(0));
- break;
- case (int)ScriptBaseClass.PRIM_FULLBRIGHT:
- // TODO--------------
- if (remain < 1)
- return res;
- face=(int)rules.GetLSLIntegerItem(idx++);
- res.Add(new LSL_Integer(0));
- break;
- case (int)ScriptBaseClass.PRIM_FLEXIBLE:
- PrimitiveBaseShape shape = m_host.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:
- // TODO--------------
- // (PRIM_TEXGEN_DEFAULT, PRIM_TEXGEN_PLANAR)
- if (remain < 1)
- return res;
- face=(int)rules.GetLSLIntegerItem(idx++);
- res.Add(new LSL_Integer(0));
- break;
- case (int)ScriptBaseClass.PRIM_POINT_LIGHT:
- shape = m_host.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:
- // TODO--------------
- if (remain < 1)
- return res;
- face=(int)rules.GetLSLIntegerItem(idx++);
- res.Add(new LSL_Float(0));
- break;
- }
- }
- return res;
- }
- // <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>
- private 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>
- private 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 llGetSimulatorHostname()
- {
- m_host.AddScriptLPS(1);
- return System.Environment.MachineName;
- }
- // <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>
- public LSL_List llParseStringKeepNulls(string src, LSL_List separators, LSL_List spacers)
- {
- 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();
- m_host.AddScriptLPS(1);
- // 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 (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 (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
- 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.
- 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;
- tokens.Add(new LSL_String(spcarray[best - seplen].ToString()));
- }
- }
- // 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)
- {
- if (srclen != 0)
- tokens.Add(new LSL_String(""));
- }
- return tokens;
- }
- 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);
- IConfigSource config = new IniConfigSource(Application.iniFilePath);
- if (config.Configs["XEngine"] == null)
- config.AddConfig("XEngine");
- if (config.Configs["XEngine"].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 item, int mask)
- {
- m_host.AddScriptLPS(1);
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == item)
- {
- switch (mask)
- {
- case 0:
- return (int)inv.Value.BasePermissions;
- case 1:
- return (int)inv.Value.CurrentPermissions;
- case 2:
- return (int)inv.Value.GroupPermissions;
- case 3:
- return (int)inv.Value.EveryonePermissions;
- case 4:
- return (int)inv.Value.NextPermissions;
- }
- }
- }
- return -1;
- }
- public void llSetInventoryPermMask(string item, int mask, int value)
- {
- m_host.AddScriptLPS(1);
- NotImplemented("llSetInventoryPermMask");
- }
- public LSL_String llGetInventoryCreator(string item)
- {
- m_host.AddScriptLPS(1);
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == item)
- {
- return inv.Value.CreatorID.ToString();
- }
- }
- llSay(0, "No item name '" + item + "'");
- return String.Empty;
- }
- 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 llRequestSimulatorData(string simulator, int data)
- {
- IOSSL_Api ossl = (IOSSL_Api)m_ScriptEngine.GetApi(m_itemID, "OSSL");
- try
- {
- m_host.AddScriptLPS(1);
- string reply = String.Empty;
- RegionInfo info = m_ScriptEngine.World.RequestClosestRegion(simulator);
- switch (data)
- {
- case 5: // DATA_SIM_POS
- if (info == null)
- {
- // ScriptSleep(1000);
- return UUID.Zero.ToString();
- }
- reply = new LSL_Vector(
- info.RegionLocX * Constants.RegionSize,
- info.RegionLocY * Constants.RegionSize,
- 0).ToString();
- break;
- case 6: // DATA_SIM_STATUS
- if (info != null)
- reply = "up"; // Duh!
- else
- reply = "unknown";
- break;
- case 7: // DATA_SIM_RATING
- if (info == null)
- {
- // ScriptSleep(1000);
- return UUID.Zero.ToString();
- }
- int access = info.RegionSettings.Maturity;
- if (access == 0)
- reply = "PG";
- else if (access == 1)
- reply = "MATURE";
- else
- reply = "UNKNOWN";
- break;
- case 128:
- 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_localID, m_itemID, rq.ToString());
- AsyncCommands.
- DataserverPlugin.DataserverReply(rq.ToString(), reply);
- // ScriptSleep(1000);
- return tid.ToString();
- }
- catch(Exception e)
- {
- Console.WriteLine(e.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.PhysicsActor.Mass;
- }
- 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);
- UUID avatarId = new UUID(avatar_id);
- m_ScriptEngine.World.SendUrlToUser(avatarId, m_host.Name, m_host.UUID, m_host.ObjectOwner, 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.CanEditParcel(m_host.ObjectOwner, landObject)) return;
- bool update = false; // send a ParcelMediaUpdate (and possibly change the land's media URL)?
- 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:
- case ParcelMediaCommandEnum.Play:
- 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;
- // do that one last, it will cause a ParcelPropertiesUpdate
- World.SetLandMediaURL(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, url);
- // now send to all (non-child) agents
- List<ScenePresence> agents = World.GetAvatars();
- foreach (ScenePresence agent in agents)
- {
- agent.ControllingClient.SendParcelMediaUpdate(landData.MediaURL,
- landData.MediaID,
- landData.MediaAutoScale,
- mediaType,
- description,
- width, height,
- 1); // TODO do some LOOP logic here
- }
- }
- 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,
- 1); // TODO do some LOOP logic here
- }
- }
- if (commandToSend != null)
- {
- // the commandList contained a start/stop/... command, too
- if (presence == null)
- {
- // send to all (non-child) agents
- List<ScenePresence> agents = World.GetAvatars();
- foreach (ScenePresence agent in agents)
- {
- agent.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_TEXTURE key uuid Use this to get or set the parcel's media texture.
- //PARCEL_MEDIA_COMMAND_URL string url Used to get or set the parcel's media url.
- //PARCEL_MEDIA_COMMAND_TYPE string mime_type Use this to get or set the parcel media MIME type (e.g. "text/html"). (1.19.1 RC0 or later)
- //PARCEL_MEDIA_COMMAND_SIZE integer x, integer y Use this to get or set the parcel media pixel resolution. (1.19.1 RC0 or later)
- //PARCEL_MEDIA_COMMAND_DESC string desc Use this to get or set the parcel media description. (1.19.1 RC0 or later)
- //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.X, m_host.AbsolutePosition.Y).MediaURL));
- break;
- case ParcelMediaCommandEnum.Desc:
- list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).Description));
- break;
- case ParcelMediaCommandEnum.Texture:
- list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).MediaID.ToString()));
- 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);
- foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)
- {
- if (inv.Value.Name == name)
- {
- return inv.Value.Type;
- }
- }
- return -1;
- }
- 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);
- UUID invItemID=InventorySelf();
- if (invItemID == UUID.Zero)
- return new LSL_Vector();
- if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero)
- return new LSL_Vector();
- if ((m_host.TaskInventory[invItemID].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);
- UUID invItemID=InventorySelf();
- if (invItemID == UUID.Zero)
- return new LSL_Rotation();
- if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero)
- return new LSL_Rotation();
- if ((m_host.TaskInventory[invItemID].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.EscapeUriString(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_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,
- new Vector3((float)pos.x, (float)pos.y, (float)pos.z),
- new Vector3((float)lookAt.x, (float)lookAt.y, (float)lookAt.z));
- }
- // ScriptSleep(1000);
- }
- public void llAddToLandBanList(string avatar, double hours)
- {
- m_host.AddScriptLPS(1);
- UUID key;
- LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData;
- if (land.OwnerID == m_host.OwnerID)
- {
- ParcelManager.ParcelAccessEntry entry = new ParcelManager.ParcelAccessEntry();
- if (UUID.TryParse(avatar, out key))
- {
- entry.AgentID = key;
- entry.Flags = AccessList.Ban;
- entry.Time = DateTime.Now.AddHours(hours);
- land.ParcelAccessList.Add(entry);
- }
- }
- // ScriptSleep(100);
- }
- public void llRemoveFromLandPassList(string avatar)
- {
- m_host.AddScriptLPS(1);
- UUID key;
- LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData;
- if (land.OwnerID == m_host.OwnerID)
- {
- if (UUID.TryParse(avatar, out key))
- {
- foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList)
- {
- if (entry.AgentID == key && entry.Flags == AccessList.Access)
- {
- land.ParcelAccessList.Remove(entry);
- break;
- }
- }
- }
- }
- // ScriptSleep(100);
- }
- public void llRemoveFromLandBanList(string avatar)
- {
- m_host.AddScriptLPS(1);
- UUID key;
- LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData;
- if (land.OwnerID == m_host.OwnerID)
- {
- if (UUID.TryParse(avatar, out key))
- {
- foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList)
- {
- if (entry.AgentID == key && entry.Flags == AccessList.Ban)
- {
- land.ParcelAccessList.Remove(entry);
- break;
- }
- }
- }
- }
- // ScriptSleep(100);
- }
- public void llSetCameraParams(LSL_List rules)
- {
- m_host.AddScriptLPS(1);
- // our key in the object we are in
- UUID invItemID=InventorySelf();
- if (invItemID == UUID.Zero) return;
- // 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_host.TaskInventory[invItemID].PermsGranter;
- if (agentID == UUID.Zero) return;
- if ((m_host.TaskInventory[invItemID].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);
- // our key in the object we are in
- UUID invItemID=InventorySelf();
- if (invItemID == UUID.Zero) return;
- // 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_host.TaskInventory[invItemID].PermsGranter;
- if (agentID == UUID.Zero) return;
- if ((m_host.TaskInventory[invItemID].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);
- LSL_List nums = LSL_List.ToDoubleList(src);
- switch (operation)
- {
- case ScriptBaseClass.LIST_STAT_RANGE:
- return nums.Range();
- case ScriptBaseClass.LIST_STAT_MIN:
- return nums.Min();
- case ScriptBaseClass.LIST_STAT_MAX:
- return nums.Max();
- case ScriptBaseClass.LIST_STAT_MEAN:
- return nums.Mean();
- case ScriptBaseClass.LIST_STAT_MEDIAN:
- return nums.Median();
- case ScriptBaseClass.LIST_STAT_NUM_COUNT:
- return nums.NumericLength();
- case ScriptBaseClass.LIST_STAT_STD_DEV:
- return nums.StdDev();
- case ScriptBaseClass.LIST_STAT_SUM:
- return nums.Sum();
- case ScriptBaseClass.LIST_STAT_SUM_SQUARES:
- return nums.SumSqrs();
- case ScriptBaseClass.LIST_STAT_GEOMETRIC_MEAN:
- return nums.GeometricMean();
- case ScriptBaseClass.LIST_STAT_HARMONIC_MEAN:
- return nums.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 += 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);
- IHttpRequests httpScriptMod =
- m_ScriptEngine.World.RequestModuleInterface<IHttpRequests>();
- 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;
- ScenePresence scenePresence = World.GetScenePresence(m_host.ObjectOwner);
- RegionInfo regionInfo = World.RegionInfo;
- Dictionary<string, string> httpHeaders = new Dictionary<string, string>();
- httpHeaders["X-SecondLife-Shard"] = "OpenSim";
- httpHeaders["X-SecondLife-Object-Name"] = m_host.Name;
- httpHeaders["X-SecondLife-Object-Key"] = m_itemID.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"] = scenePresence == null ? string.Empty : scenePresence.ControllingClient.Name;
- httpHeaders["X-SecondLife-Owner-Key"] = m_host.ObjectOwner.ToString();
- UUID reqID = httpScriptMod.
- StartHttpRequest(m_localID, m_itemID, url, param, httpHeaders, body);
- if (reqID != UUID.Zero)
- return reqID.ToString();
- else
- return null;
- }
- 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 (ParcelManager.ParcelAccessEntry 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 (ParcelManager.ParcelAccessEntry 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);
- LandData land = World.GetLandData((float)pos.x, (float)pos.y);
- if (land == null)
- {
- return 0;
- }
- else
- {
- if (sim_wide == 1)
- {
- if (category == 0)
- {
- return land.SimwidePrims;
- }
- else
- {
- //public int simwideArea = 0;
- return 0;
- }
- }
- else
- {
- if (category == 0)//Total Prims
- {
- return 0;//land.
- }
- else if (category == 1)//Owner Prims
- {
- return land.OwnerPrims;
- }
- else if (category == 2)//Group Prims
- {
- return land.GroupPrims;
- }
- else if (category == 3)//Other Prims
- {
- return land.OtherPrims;
- }
- else if (category == 4)//Selected
- {
- return land.SelectedPrims;
- }
- else if (category == 5)//Temp
- {
- return 0;//land.
- }
- }
- }
- 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(detectedParams.Key.ToString());
- ret.Add(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.Children.Count;
- }
- }
- public LSL_Integer llGetParcelMaxPrims(LSL_Vector pos, int sim_wide)
- {
- m_host.AddScriptLPS(1);
- // Alondria: This currently just is utilizing the normal grid's 0.22 prims/m2 calculation
- // Which probably will be irrelevent in OpenSim....
- LandData land = World.GetLandData((float)pos.x, (float)pos.y);
- float bonusfactor = (float)World.RegionInfo.RegionSettings.ObjectBonus;
- if (land == null)
- {
- return 0;
- }
- if (sim_wide == 1)
- {
- decimal v = land.SimwideArea * (decimal)(0.22) * (decimal)bonusfactor;
- return (int)v;
- }
- else
- {
- decimal v = land.Area * (decimal)(0.22) * (decimal)bonusfactor;
- return (int)v;
- }
- }
- public LSL_List llGetParcelDetails(LSL_Vector pos, LSL_List param)
- {
- m_host.AddScriptLPS(1);
- LandData land = World.GetLandData((float)pos.x, (float)pos.y);
- 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 = ret + new LSL_List(land.Name);
- break;
- case "1":
- ret = ret + new LSL_List(land.Description);
- break;
- case "2":
- ret = ret + new LSL_List(land.OwnerID.ToString());
- break;
- case "3":
- ret = ret + new LSL_List(land.GroupID.ToString());
- break;
- case "4":
- ret = ret + new LSL_List(land.Area);
- break;
- default:
- ret = ret + new LSL_List(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 (o.ToString())
- {
- case "1":
- ret.Add(av.Firstname + " " + av.Lastname);
- break;
- case "2":
- ret.Add("");
- break;
- case "3":
- ret.Add(new LSL_Vector((double)av.AbsolutePosition.X, (double)av.AbsolutePosition.Y, (double)av.AbsolutePosition.Z));
- break;
- case "4":
- ret.Add(new LSL_Rotation((double)av.Rotation.X, (double)av.Rotation.Y, (double)av.Rotation.Z, (double)av.Rotation.W));
- break;
- case "5":
- ret.Add(new LSL_Vector(av.Velocity.X, av.Velocity.Y, av.Velocity.Z));
- break;
- case "6":
- ret.Add(id);
- break;
- case "7":
- ret.Add(UUID.Zero.ToString());
- break;
- case "8":
- ret.Add(UUID.Zero.ToString());
- break;
- }
- }
- return ret;
- }
- SceneObjectPart obj = World.GetSceneObjectPart(key);
- if (obj != null)
- {
- foreach (object o in args.Data)
- {
- switch (o.ToString())
- {
- case "1":
- ret.Add(obj.Name);
- break;
- case "2":
- ret.Add(obj.Description);
- break;
- case "3":
- ret.Add(new LSL_Vector(obj.AbsolutePosition.X, obj.AbsolutePosition.Y, obj.AbsolutePosition.Z));
- break;
- case "4":
- ret.Add(new LSL_Rotation(obj.RotationOffset.X, obj.RotationOffset.Y, obj.RotationOffset.Z, obj.RotationOffset.W));
- break;
- case "5":
- ret.Add(new LSL_Vector(obj.Velocity.X, obj.Velocity.Y, obj.Velocity.Z));
- break;
- case "6":
- ret.Add(obj.OwnerID.ToString());
- break;
- case "7":
- ret.Add(obj.GroupID.ToString());
- break;
- case "8":
- ret.Add(obj.CreatorID.ToString());
- break;
- }
- }
- return ret;
- }
- }
- return new LSL_List();
- }
- internal UUID ScriptByName(string name)
- {
- foreach (TaskInventoryItem item in m_host.TaskInventory.Values)
- {
- if (item.Type == 10 && item.Name == name)
- return item.ItemID;
- }
- return UUID.Zero;
- }
- 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 Exception("Command deprecated: " + command);
- }
- internal void LSLError(string msg)
- {
- throw new Exception("LSL Runtime Error: " + msg);
- }
- public delegate void AssetRequestCallback(UUID assetID, AssetBase asset);
- private void WithNotecard(UUID assetID, AssetRequestCallback cb)
- {
- World.AssetCache.GetAsset(assetID, delegate(UUID i, AssetBase a) { cb(i, a); }, false);
- }
- public LSL_String llGetNumberOfNotecardLines(string name)
- {
- m_host.AddScriptLPS(1);
- foreach (TaskInventoryItem item in m_host.TaskInventory.Values)
- {
- if (item.Type == 7 && item.Name == name)
- {
- UUID tid = AsyncCommands.
- DataserverPlugin.RegisterRequest(m_localID,
- m_itemID, item.AssetID.ToString());
- if (NotecardCache.IsCached(item.AssetID))
- {
- AsyncCommands.
- DataserverPlugin.DataserverReply(item.AssetID.ToString(),
- NotecardCache.GetLines(item.AssetID).ToString());
- // ScriptSleep(100);
- return tid.ToString();
- }
- WithNotecard(item.AssetID, delegate (UUID id, AssetBase a)
- {
- System.Text.ASCIIEncoding enc =
- new System.Text.ASCIIEncoding();
- string data = enc.GetString(a.Data);
- //Console.WriteLine(data);
- NotecardCache.Cache(id, data);
- AsyncCommands.
- DataserverPlugin.DataserverReply(id.ToString(),
- NotecardCache.GetLines(id).ToString());
- });
- // ScriptSleep(100);
- return tid.ToString();
- }
- }
- // if we got to here, we didn't find the notecard the script was asking for
- // => complain loudly, as specified by the LSL docs
- ShoutError("Notecard '" + name + "' could not be found.");
- // ScriptSleep(100);
- return UUID.Zero.ToString();
- }
- public LSL_String llGetNotecardLine(string name, int line)
- {
- m_host.AddScriptLPS(1);
- foreach (TaskInventoryItem item in m_host.TaskInventory.Values)
- {
- if (item.Type == 7 && item.Name == name)
- {
- UUID tid = AsyncCommands.
- DataserverPlugin.RegisterRequest(m_localID,
- m_itemID, item.AssetID.ToString());
-
- if (NotecardCache.IsCached(item.AssetID))
- {
- AsyncCommands.
- DataserverPlugin.DataserverReply(item.AssetID.ToString(),
- NotecardCache.GetLine(item.AssetID, line));
- // ScriptSleep(100);
- return tid.ToString();
- }
-
- WithNotecard(item.AssetID, delegate (UUID id, AssetBase a)
- {
- System.Text.ASCIIEncoding enc =
- new System.Text.ASCIIEncoding();
- string data = enc.GetString(a.Data);
- //Console.WriteLine(data);
- NotecardCache.Cache(id, data);
- AsyncCommands.
- DataserverPlugin.DataserverReply(id.ToString(),
- NotecardCache.GetLine(id, line));
- });
- // ScriptSleep(100);
- return tid.ToString();
- }
- }
- // if we got to here, we didn't find the notecard the script was asking for
- // => complain loudly, as specified by the LSL docs
- ShoutError("Notecard '" + name + "' could not be found.");
- // ScriptSleep(100);
- return UUID.Zero.ToString();
- }
- }
- public class NotecardCache
- {
- private class Notecard
- {
- public string[] text;
- public DateTime lastRef;
- }
- private 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 = ParseText(text.Replace("\r", "").Split('\n'));
- m_Notecards[assetID] = nc;
- }
- }
- private static string[] ParseText(string[] input)
- {
- int idx = 0;
- int level = 0;
- List<string> output = new List<string>();
- string[] words;
- while (idx < input.Length)
- {
- if (input[idx] == "{")
- {
- level++;
- idx++;
- continue;
- }
- if (input[idx]== "}")
- {
- level--;
- idx++;
- continue;
- }
- switch (level)
- {
- case 0:
- words = input[idx].Split(' '); // Linden text ver
- // Notecards are created *really* empty. Treat that as "no text" (just like after saving an empty notecard)
- if (words.Length < 3)
- return new String[0];
- int version = int.Parse(words[3]);
- if (version != 2)
- return new String[0];
- break;
- case 1:
- words = input[idx].Split(' ');
- if (words[0] == "LLEmbeddedItems")
- break;
- if (words[0] == "Text")
- {
- int len = int.Parse(words[2]);
- idx++;
- int count = -1;
- while (count < len)
- {
- // int l = input[idx].Length;
- string ln = input[idx];
- int need = len-count-1;
- if (ln.Length > need)
- ln = ln.Substring(0, need);
- output.Add(ln);
- count += ln.Length + 1;
- idx++;
- }
- return output.ToArray();
- }
- break;
- case 2:
- words = input[idx].Split(' '); // count
- if (words[0] == "count")
- {
- int c = int.Parse(words[1]);
- if (c > 0)
- return new String[0];
- break;
- }
- break;
- }
- idx++;
- }
- return output.ToArray();
- }
- 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;
- }
- }
- public static string GetLine(UUID assetID, int line)
- {
- if (line < 0)
- return "";
- string data;
- if (!IsCached(assetID))
- return "";
- lock (m_Notecards)
- {
- m_Notecards[assetID].lastRef = DateTime.Now;
- if (line >= m_Notecards[assetID].text.Length)
- return "\n\n\n";
- data = m_Notecards[assetID].text[line];
- if (data.Length > 255)
- data = data.Substring(0, 255);
- return data;
- }
- }
- 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);
- }
- }
- }
- }
|