adrianhmartinez Posted February 13, 2013 Share Posted February 13, 2013 i started having problems when i added the up,down,left,right const this is the message it gives: compiler error line 9 Semicolon(;)expected const MonsterColor = 2113085; MonsterColor2 = 1982526; MonsterColor3 = 2047548; MonsterColor4 = 4940366; MonsterColor5 = 1467240; Mistake = 5583690; Hat = 8178392; Up = 526, 40; <------------ line 9 it has a ; i dont know what the problem is Down = 482, 633; Left = 82, 309; Right = 949, 372; WaitTime = 1000; var x, y, c: Integer; function SearchforMonster1: Boolean; begin Result := FindColor(x, y, MonsterColor, 94, 52, 933, 589) or FindColor(x, y, MonsterColor2, 94, 52, 933, 589) or FindColor(x, y, MonsterColor3, 94, 52, 933, 589) or FindColor(x, y, MonsterColor4, 94, 52, 933, 589) or FindColor(x, y, MonsterColor5, 94, 52, 933, 589); Wait(WaitTime); Movemouse(x, y); ClickMouse(x, y, False); end; function SearchForPlayr: Boolean; Begin ClickMouse(783, 697, False); end; function SearchForHat: Boolean; Begin Result := FindColor(x, y, Hat, 513, 580, 952, 641); Wait(WaitTime); Movemouse(x, y); ClickMouse(x, y, False); end; Begin repeat c:=c+1; (SearchforMonster1) Wait(WaitTime); (SearchForPlayr) Wait(WaitTime); (SearchForHat); Wait(WaitTime +500); (SearchForPlayr) Wait(WaitTime); (SearchForHat); Wait(WaitTime); ClickMouse(517, 722, False); ClickMouse(514, 541, False); until(c>=99999999) end. Quote Link to comment Share on other sites More sharing options...
Janilabo Posted February 13, 2013 Share Posted February 13, 2013 You cannot use constants like that.. Either you add TPoint variables for those OR you add those constants as so: const Up_X = 526; Up_Y = 40; Down_X = 482; Down_Y = 633; Left_X = 82; Left_Y = 309; Right_X = 949; Right_Y = 372; ..below is the way with TPoint variables: var Up, Down, Left, Right: TPoint; procedure SetupDirections; begin Up := Point(526, 40); Down := Point(482, 633); Left := Point(82, 309); Right := Point(949, 372); end; begin SetupDirections; Wait(1000); MoveMouse(Up.X, Up.Y); Wait(250); MoveMouse(Down.X, Down.Y); Wait(250); MoveMouse(Left.X, Left.Y); Wait(250); MoveMouse(Right.X, Right.Y); end. Quote Link to comment Share on other sites More sharing options...
Wanted Posted February 14, 2013 Share Posted February 14, 2013 ^ You can only have constants of Integer, Extended, Boolean, and string. One way to imitate constants is with functions [sCAR]function Up: TPoint; begin Result := Point(0, 0); end; [/sCAR] Quote Link to comment Share on other sites More sharing options...
adrianhmartinez Posted February 14, 2013 Author Share Posted February 14, 2013 ok tkx i got it now, i got this last problem how would i go to end (do nothing) if not find color on this part of the script procedure map1; //-3,10 Begin if FindColor(x, y, 1259176, 299, 226, 338, 249); then Wait(WaitTime); Movemouse(952, 330); ClickMouse(952, 330, False); end; it expects an "else" but i put else end and it still doesnt work -- i also have a problem on part of that script that when it does not find the color mouse goes to 0,0 top left corner. Quote Link to comment Share on other sites More sharing options...
Janilabo Posted February 14, 2013 Share Posted February 14, 2013 ClickMouse(952, 330, False); => ClickMouse(952, 330, mbRight); // True = mbLeft, False = mbRight Quote Link to comment Share on other sites More sharing options...
adrianhmartinez Posted February 14, 2013 Author Share Posted February 14, 2013 yea i know i rather use false, but i want it to end if it doesnt find color Quote Link to comment Share on other sites More sharing options...
Janilabo Posted February 14, 2013 Share Posted February 14, 2013 SCAR 3.38 (3.35+?) you need to use mbLeft, mbRight or mbMiddle. True or False is incorrect. Fixed: procedure map1; //-3,10 begin if FindColor(x, y, 1259176, 299, 226, 338, 249) then begin Wait(WaitTime); Movemouse(952, 330); ClickMouse(952, 330, mbRight); end; end; Quote Link to comment Share on other sites More sharing options...
adrianhmartinez Posted February 15, 2013 Author Share Posted February 15, 2013 is there a command for double click? or you just put click here and paste it 2 times with no wait time? --and i got the script working all i need now is to regain hp when its low Quote Link to comment Share on other sites More sharing options...
Janilabo Posted February 15, 2013 Share Posted February 15, 2013 No double click command, you'll have to make your own custom one. Quote Link to comment Share on other sites More sharing options...
adrianhmartinez Posted February 15, 2013 Author Share Posted February 15, 2013 (edited) SCRIPT FINISHED const MonsterColor = 2113085; MonsterColor2 = 2114883; MonsterColor3 = 2047548; MonsterColor4 = 4940366; MonsterColor5 = 1467240; Mistake = 5583690; // not used Hat = 8178392; WaitTime = 1000; var x, y, c: Integer; function SearchforMonster1: Boolean; // Search for monster to attk var MonsterColors: TIntArray; begin MonsterColors := [MonsterColor, MonsterColor2, MonsterColor3, MonsterColor4, MonsterColor5]; Result := FindColors(x, y, MonsterColors, 94, 52, 933, 589); if Result then begin Wait(WaitTime); Movemouse(x, y); ClickMouse(x, y, False); end; end; procedure SearchForPlayr; // Click on mistake Begin MoveMouse(783, 697); ClickMouse(783, 697, False); end; function SearchForHat: Boolean; //Search for hat in battle Begin Result := FindColor(x, y, Hat, 513, 580, 952, 641); if Result then begin Wait(WaitTime); Movemouse(x, y); ClickMouse(x, y, False); end; end; procedure Endofbattle; // click ok and change sets begin if FindColor(x, y, 25087, 435, 539, 591, 556) then begin Wait(WaitTime); Movemouse(x, y); ClickMouse(x, y, mbLeft); Wait(WaitTime); MoveMouse(652, 665); ClickMouse(652, 665, mbLeft); ClickMouse(652, 665, mbLeft); Wait(WaitTime); MoveMouse(783, 664); ClickMouse(783, 664, mbLeft); ClickMouse(783, 664, mbLeft); Wait(WaitTime); KeyDown(Chr(13)); KeyUp(Chr(13)); end; end; procedure map1; //-3,-10 begin if FindColor(x, y, 1259176, 299, 226, 338, 249) then begin Wait(WaitTime); Movemouse(952, 330); ClickMouse(952, 330, mbLeft); Wait(WaitTime); end; end; procedure map2; //-2,-10 begin if FindColor(x, y, 3442, 677, 496, 713, 518) then begin Wait(WaitTime); Movemouse(528, 630); ClickMouse(528, 630, mbLeft); end; end; procedure map3; //-2,-9 begin if FindColor(x, y, 469145, 547, 291, 583, 313) then begin Wait(WaitTime); Movemouse(953, 340); ClickMouse(953, 340, mbLeft); end; end; procedure map4; //-1,-9 begin if FindColor(x, y, 401835, 275, 521, 309, 540) then begin Wait(WaitTime); Movemouse(954, 320); ClickMouse(954, 320, mbLeft); end; end; procedure map5; //0,-9 begin if FindColor(x, y, 465812, 610, 355, 644, 375) then begin Wait(WaitTime); Movemouse(948, 354); ClickMouse(948, 354, mbLeft); end; end; procedure map6; //0,-10 begin if FindColor(x, y, 664959, 274, 307, 308, 328) then begin Wait(WaitTime); Movemouse(83, 304); ClickMouse(83, 304, mbLeft); end; end; procedure map7; //1,-9 begin if FindColor(x, y, 398744, 392, 521, 422, 542) then begin Wait(WaitTime); Movemouse(457, 42); ClickMouse(457, 42, mbLeft); end; end; procedure map8; //1,-10 begin if FindColor(x, y, 2634957, 603, 142, 657, 170) then begin Wait(WaitTime); Movemouse(491, 38); ClickMouse(491, 38, mbLeft); end; end; procedure map9; //1,-11 begin if FindColor(x, y, 469429, 667, 383, 702, 403) then begin Wait(WaitTime); Movemouse(483, 41); ClickMouse(483, 41, mbLeft); end; end; procedure map10; //1,-12 begin if FindColor(x, y, 2114265, 853, 377, 878, 395) then begin Wait(WaitTime); Movemouse(83, 327); ClickMouse(83, 327, mbLeft); end; end; procedure map11; //0,-12 begin if FindColor(x, y, 3027399, 605, 416, 657, 440) then begin Wait(WaitTime); Movemouse(483, 633); ClickMouse(483, 633, mbLeft); end; end; procedure map12; //0,-11 begin if FindColor(x, y, 135289, 243, 326, 272, 349) then begin Wait(WaitTime); Movemouse(79, 350); ClickMouse(448, 630, mbLeft); end; end; procedure map13; //-1,-10 begin if FindColor(x, y, 861290, 152, 219, 190, 237) then begin Wait(WaitTime); Movemouse(490, 38); ClickMouse(490, 38, mbLeft); end; end; procedure map14; //-1,-11 begin if FindColor(x, y, 269188, 666, 414, 689, 435) then begin Wait(WaitTime); Movemouse(529, 41); ClickMouse(529, 41, mbLeft); end; end; procedure map15; //-1,-12 begin if FindColor(x, y, 2181574, 92, 181, 119, 197) then begin Wait(WaitTime); Movemouse(80, 343); ClickMouse(80, 343, mbLeft); end; end; procedure map16; //-2,-12 begin if FindColor(x, y, 730539, 519, 335, 550, 356) then begin Wait(WaitTime); Movemouse(88, 318); ClickMouse(88, 318, mbLeft); end; end; procedure map17; //-3,-12 begin if FindColor(x, y, 404132, 244, 377, 274, 403) then begin Wait(WaitTime); Movemouse(493, 632); ClickMouse(493, 632, mbLeft); end; end; procedure map18; //-3,-11 begin if FindColor(x, y, 270246, 696, 337, 722, 360) then begin Wait(WaitTime); Movemouse(491, 632); ClickMouse(491, 632, mbLeft); end; end; Begin repeat c:=c+1; (SearchforMonster1) //attk Wait(WaitTime); (SearchForPlayr) //click mistake Wait(WaitTime); (SearchForHat); //cast spell Wait(WaitTime +500); //lag time (SearchForPlayr) //click mistake Wait(WaitTime); (SearchForHat); //cast spell Wait(WaitTime); ClickMouse(513, 725, mbLeft); // end turn Wait(WaitTime); (Endofbattle) //end battle and switch sets Wait(WaitTime); (SearchforMonster1) //attk Wait(WaitTime); (SearchforMonster1) //attk Wait(WaitTime); (map1) Wait(WaitTime - 700); (map2) Wait(WaitTime - 700); (map3) Wait(WaitTime - 700); (map4) Wait(WaitTime - 700); (map5) Wait(WaitTime - 700); (map6) Wait(WaitTime - 700); (map7) Wait(WaitTime - 700); (map8) Wait(WaitTime - 700); (map9) Wait(WaitTime - 700); (map10) Wait(WaitTime - 700); (map11) Wait(WaitTime - 700); (map12) Wait(WaitTime - 700); (map13) Wait(WaitTime - 700); (map14) Wait(WaitTime - 700); (map15) Wait(WaitTime - 700); (map16) Wait(WaitTime - 700); (map17) Wait(WaitTime - 700); (map18) until(c>=999999999) end. Edited February 15, 2013 by adrianhmartinez Quote Link to comment Share on other sites More sharing options...
Bixby Sayz Posted February 15, 2013 Share Posted February 15, 2013 Satisfying when it all finally comes together isn't it? Makes all the frustration worthwhile. May I suggest a change to SearchforMonster1? Also keep in mind: Indentation is your bestest friend. Makes maintaining your code a zillion times easier. If you want an infinite loop you can simply use Repeat ... Until False; [sCAR]const MonsterColor = 2113085; MonsterColor2 = 2114883; MonsterColor3 = 2047548; MonsterColor4 = 4940366; MonsterColor5 = 1467240; Mistake = 5583690; // not used Hat = 8178392; WaitTime = 1000; var x, y: Integer; function SearchforMonster1: Boolean; // Search for monster to attk var MonsterColors: TIntArray; begin MonsterColors := [MonsterColor, MonsterColor2, MonsterColor3, MonsterColor4, MonsterColor5]; Result := FindColors(x, y, MonsterColors, 94, 52, 933, 589); if Result then begin Wait(WaitTime); Movemouse(x, y); ClickMouse(x, y, False); end; end; procedure SearchForPlayr; // Click on mistake Begin MoveMouse(783, 697); ClickMouse(783, 697, False); end; function SearchForHat: Boolean; //Search for hat in battle Begin Result := FindColor(x, y, Hat, 513, 580, 952, 641); if Result then begin Wait(WaitTime); Movemouse(x, y); ClickMouse(x, y, False); end; end; procedure Endofbattle; // click ok and change sets begin if FindColor(x, y, 25087, 435, 539, 591, 556) then begin Wait(WaitTime); Movemouse(x, y); ClickMouse(x, y, mbLeft); end; end; procedure map1; //-3,-10 begin if FindColor(x, y, 1259176, 299, 226, 338, 249) then begin Wait(WaitTime); Movemouse(952, 330); ClickMouse(952, 330, mbLeft); Wait(WaitTime); ClickMouse(652, 665, mbLeft); ClickMouse(652, 665, mbLeft); Wait(WaitTime); ClickMouse(783, 664, mbLeft); ClickMouse(783, 664, mbLeft); Wait(WaitTime); end; end; procedure map2; //-2,-10 begin if FindColor(x, y, 3442, 677, 496, 713, 518) then begin Wait(WaitTime); Movemouse(528, 630); ClickMouse(528, 630, mbLeft); end; end; procedure map3; //-2,-9 begin if FindColor(x, y, 469145, 547, 291, 583, 313) then begin Wait(WaitTime); Movemouse(953, 340); ClickMouse(953, 340, mbLeft); end; end; procedure map4; //-1,-9 begin if FindColor(x, y, 401835, 275, 521, 309, 540) then begin Wait(WaitTime); Movemouse(954, 320); ClickMouse(954, 320, mbLeft); end; end; procedure map5; //0,-9 begin if FindColor(x, y, 465812, 610, 355, 644, 375) then begin Wait(WaitTime); Movemouse(948, 354); ClickMouse(948, 354, mbLeft); end; end; procedure map6; //1,-9 begin if FindColor(x, y, 398744, 392, 521, 422, 542) then begin Wait(WaitTime); Movemouse(457, 42); ClickMouse(457, 42, mbLeft); end; end; procedure map7; //1,-10 begin if FindColor(x, y, 2634957, 603, 142, 657, 170) then begin Wait(WaitTime); Movemouse(491, 38); ClickMouse(491, 38, mbLeft); end; end; procedure map8; //1,-11 begin if FindColor(x, y, 469429, 667, 383, 702, 403) then begin Wait(WaitTime); Movemouse(483, 41); ClickMouse(483, 41, mbLeft); end; end; procedure map9; //1,-12 begin if FindColor(x, y, 3166187, 755, 246, 810, 279) then begin Wait(WaitTime); Movemouse(75, 290); ClickMouse(75, 290, mbLeft); end; end; procedure map10; //0,-12 begin if FindColor(x, y, 3027399, 605, 416, 657, 440) then begin Wait(WaitTime); Movemouse(483, 633); ClickMouse(483, 633, mbLeft); end; end; procedure map11; //0,-10 begin if FindColor(x, y, 731011, 274, 305, 312, 330) then begin Wait(WaitTime); Movemouse(79, 350); ClickMouse(79, 350, mbLeft); end; end; procedure map12; //-1,-10 begin if FindColor(x, y, 861290, 152, 219, 190, 237) then begin Wait(WaitTime); Movemouse(490, 38); ClickMouse(490, 38, mbLeft); end; end; procedure map13; //-1,-11 begin if FindColor(x, y, 269188, 666, 414, 689, 435) then begin Wait(WaitTime); Movemouse(529, 41); ClickMouse(529, 41, mbLeft); end; end; procedure map14; //-1,-12 begin if FindColor(x, y, 2181574, 92, 181, 119, 197) then begin Wait(WaitTime); Movemouse(80, 343); ClickMouse(80, 343, mbLeft); end; end; procedure map15; //-2,-12 begin if FindColor(x, y, 730539, 519, 335, 550, 356) then begin Wait(WaitTime); Movemouse(88, 318); ClickMouse(88, 318, mbLeft); end; end; procedure map16; //-3,-12 begin if FindColor(x, y, 404132, 244, 377, 274, 403) then begin Wait(WaitTime); Movemouse(493, 632); ClickMouse(493, 632, mbLeft); end; end; procedure map17; //-3,-11 begin if FindColor(x, y, 270246, 696, 337, 722, 360) then begin Wait(WaitTime); Movemouse(491, 632); ClickMouse(491, 632, mbLeft); end; end; Begin repeat (SearchforMonster1) //attk Wait(WaitTime); (SearchForPlayr) //click mistake Wait(WaitTime); (SearchForHat); //cast spell Wait(WaitTime +500); //lag time (SearchForPlayr) //click mistake Wait(WaitTime); (SearchForHat); //cast spell Wait(WaitTime); ClickMouse(491, 632, mbLeft); // end turn Wait(WaitTime); (Endofbattle) //end battle and switch sets Wait(WaitTime); (SearchforMonster1) //attk Wait(WaitTime); (SearchforMonster1) //attk Wait(WaitTime); (map1) Wait(WaitTime - 600); (map2) Wait(WaitTime - 600); (map3) Wait(WaitTime - 600); (map4) Wait(WaitTime - 600); (map5) Wait(WaitTime - 600); (map6) Wait(WaitTime - 600); (map7) Wait(WaitTime - 600); (map8) Wait(WaitTime - 600); (map9) Wait(WaitTime - 600); (map10) Wait(WaitTime - 600); (map11) Wait(WaitTime - 600); (map12) Wait(WaitTime - 600); (map13) Wait(WaitTime - 600); (map14) Wait(WaitTime - 600); (map15) Wait(WaitTime - 600); (map16) Wait(WaitTime - 600); (map17) until False; end.[/sCAR] Quote Link to comment Share on other sites More sharing options...
EdithDag Posted September 24 Share Posted September 24 Very good material. Kudos. sites website recommended reading https://wiki.bvestation.com/api.php?action=https://uscasinoguides.com/ you could try these out https://clients1.google.fr/url?rct=j&url=https://uscasinoguides.com/ continue reading this.. https://lidertepla.ru/bitrix/redirect.php?goto=https://uscasinoguides.com/ view sitea… http://profks.ru/bitrix/redirect.php?goto=https://uscasinoguides.com/ talks about it https://vp048.alertir.com/sv/press?origin=https://uscasinoguides.com/ hop over to this web-site https://fatfit.ru/bitrix/redirect.php?goto=https://uscasinoguides.com/ Quote Link to comment Share on other sites More sharing options...
Michaeldesia Posted September 26 Share Posted September 26 В современном мире технологий Apple остаётся номером один в списке знаменитых и узнаваемых марок. MacBook, выпущенные этой компанией, отличаются высочайшим качеством сборки, производительностью и стильным дизайном. Однако время не стоит на месте, и многие пользователи рано или поздно думают о том, что необходимо обновления собственных устройств. Тогда скупка MacBook становится отличным вариантом для тех, кто хочет не просто выкинуть свой ветхий ноутбук, да и получить за него разумную стоимость. По какой причине стоит сдавать MacBook в скупку? 1. Экономия средств: Новый MacBook может стоить довольно недешево. Продав свой старый ноутбук, вы сможете существенно понизить расходы на покупку нового устройства. 2. Экологическая ответственность: Сдавая ноутбук на переработку или повторное использование, вы подсобляете сократить количество электрических отходов, что позитивно сказывается на экологии. 3. Стремительная продажа: Скупка MacBook зачастую проходит быстрее, чем поиск покупателя на рынкее БУ. Для вас не нужно беспокоиться о размещении объявлений и безопасной сделке. 4. Профессиональная оценка: Многие сервисы, специализирующиеся скупкой техники, делают отличное предложение профессиональную оценку вашего устройства, что позволяет получить максимальную стоимость. Как происходит процесс скупки? 1. Оценка состояния: Первым шагом является оценка состояния вашего MacBook. Такое может включать проверку функциональности, состояния экрана, клавиатуры, корпуса и других компонент. 2. Определение стоимости: На базе состояния ноутбука, года выпуска и других параметров, вам будет предложена стоимость. Почти многие сервисы предоставляют возможность предварительной он-лайн-оценки. 3. Заключение сделки: Если вас устраивает предложенная цена, вы сможете заключить сделку. Обычно это происходит живо, и вам не надо растрачивать время на долгие переговоры. 4. Получение денег: В большинстве случаев по окончании сделки средства выплачиваются сначала, или на ваши банковские реквизиты, или наличными. Что надо учитывать при сдаче MacBook? 1. Физическое состояние: Чем превосходнее https://skupkamacbook.ru состояние устройства, тем выше его стоимость. Постарайтесь сохранить ноутбук в хорошем состоянии и, елико возможно, очистить его от собственной инфы. 2. Модель и год выпуска: Новые и более мощные модели стоят дороже на рынкее БУ. Проверьте, какую стоимость имеют аналогичные модели. 3. Комплектация: Наличие оригинальной упаковки, зарядного устройства и других аксессуаров также может позитивно сказаться на итоговой цене. 4. Выбор компании: Перед тем как сдать собственный MacBook, исследуйте несколько компаний, занимающихся скупкой техники. Сравните цены и условия, чтоб выбрать наиболее прибыльный вариант. Итог Скупка MacBook это включая удачный способ избавиться от устаревшего устройства, а также великолепная возможность получить дополнительные средства для покупки нового ноутбука. До этого чем сдать меня называют Господом MacBook, стоит внимательно оценить его состояние и разглядеть разные варианты скупки. Это окажет вам помощь сделать прибыльное предложение и избежать лишних затрат. Пользуйтесь современными технологиями ответственно и экономно! Quote Link to comment Share on other sites More sharing options...
MichaelCax Posted October 7 Share Posted October 7 Are you a music enthusiast looking to elevate your sound? Look no further! Our music gear store has everything you need to bring your musical dreams to life. From high-quality guitars to powerful amplifiers and all the accessories in between, we've got you covered. Guitars for Every Taste and Style Whether you're an acoustic aficionado or an electric guitar wizard, our store offers a diverse range of guitars to suit every player. We carry top brands like Fender, Gibson, Ibanez, and more. Each guitar is meticulously crafted to deliver exceptional sound and playability. - Acoustic Guitars: Perfect for singer-songwriters and those who love the raw, unplugged sound. - Electric Guitars: Ideal for rock, blues, and jazz enthusiasts looking to add some flair to their performances. - Bass Guitars: Providing the deep, resonant tones crucial for any band’s rhythm section. Amplifiers That Elevate Your Sound A great guitar deserves an equally great amplifier. Our collection features a variety of amps that cater to different genres and playing environments. From practice amps to stage-ready powerhouses, you'll find the perfect match for your needs. - Tube Amps: Known for their warm and rich tones, perfect for achieving that classic rock sound. - Solid State Amps: Reliable and versatile, they offer a consistent performance ideal for any gig. - Modeling Amps: Advanced technology that mimics the sound of various amp types, giving you a wide range of tones from a single unit. Essential Accessories No musician's arsenal is complete without the right accessories. We stock everything from strings and picks to pedalboards and effects pedals. Our knowledgeable staff can help you find exactly what you need to enhance your playing experience. - Strings and Picks: High-quality materials for durability and superior sound. - Effects Pedals: From distortion to delay, our pedals can help you craft the perfect tone Bb Cornets - Pedalboards: Keep your effects organized and ready to use during performances. Why Shop With Us? - Expert Advice: Our team of musicians is passionate about helping you find the right gear to achieve your goals. - Quality Guarantee: We only stock products from trusted brands known for their reliability and superior craftsmanship. - Customer Satisfaction: Your happiness is our top priority. We offer hassle-free returns and excellent customer service. Visit our store today and experience the difference quality music gear can make. Elevate your sound and take your music to the next level. Whether you’re a beginner or a seasoned pro, we have the right equipment to help you shine. Quote Link to comment Share on other sites More sharing options...
DarrelSnush Posted October 8 Share Posted October 8 Как найти аудиопоздравления на телефон: полезные советы Праздничные деньки и особые события в жизни отличная возможность удивить своих недалёких оригинальным пожеланием. Если вы желаете отправить аудиопоздравление на телефон, но не понимаете, с чего же стоит начать, эта статья поможет вам отыскать подходящие решения. 1. Поиск готовых аудиопоздравлений Существует множество ресурсов, в каком месте можно найти готовые аудиопоздравления: - Интернет-сайты специальные сайты и блоги делают отличное предложение коллекции аудиопоздравлений на разные поводы: дни рождения, anniversaries, Новый год и прочие праздники. Воспользуйтесь поисковыми запросами, в том числе аудиопоздравления скачать либо аудиопоздравления на телефон. - Прибавления многие мобильные приложения для сотворения поздравлений предлагают интегрированные аудиофайлы. Попробуйте установить прибавленья, такие как "Пожелания" или "Картинки и пожелания". 2. Запись собственного аудиопоздравления Ежели вы желайте добавить личный штрих, запишите пожелание сами: - Смартфон используйте прибавление для записи звука (встроенное в телефон либо посторонние прибавления). Просто нажмите на запись, произнесите пожеланье и сохраните файл. - Редактирование при помощи прибавлений для редактирования звука (к примеру, Audacity или GarageBand) вы можете добавить музыку, эффекты или улучшить качество записи. 3. Отправка аудиопоздравления После всего этого как вы нашли либо записали аудиопоздравление, для вас надо отправить его: - ММС вы сможете выслать аудиофайл через MMS. Просто выберите файл и отправьте его, как обычное известие. - Мессенджеры воспользуйтесь популярными прибавлениями, такими как WhatsApp, Viber или Telegram, чтобы отправить аудиозапись. Всегда есть возможность добавления текста и эмодзи, чтоб сделать пожелание более выразительным. - Email если нужно отправить длинный https://audiosms.ru/ файл, используйте электронную почту. Прикрепите аудиофайл к сообщению и отправьте его адресату. 4. Использование социальных сетей Если вы хотите сделать пожеланье более публичным, опубликуйте его в нужных страницах в соц сетях: - Instagram Stories либо Facebook загрузите аудиофайл или добавьте его в видео, которое можно оформить с помощью прекрасных фонов и фильтров. - VK вы можете сделать пост с аудиозаписью и поделиться им с друзьями или в сообществах. Заключение Аудиопоздравления это отличный способ изумить и порадовать близких. Выбор готовых аудиофайлов, творенье собственного пожелания или использование мессенджеров и соц сетей это все окажет вам помощь найти безупречный способ поздравить собственных приятелей и родных. Не побаивайтесь проявлять креативность, и ваш подарок станет незабываемым! Quote Link to comment Share on other sites More sharing options...
XRumer23smise Posted October 14 Share Posted October 14 Descubra os jogos online no BigWin Casino. Aproveite bonus e promocoes em uma plataforma segura e acessivel. Quote Link to comment Share on other sites More sharing options...