تحت التطوير :كود - Useful Arab functions

[</Mr.Tn6eL>]

ههههههههههههههههههههههههههه

ياذكي لو انا ماسالت عن التاريخ الهجري

كان انت ماسويت الكود

اما بالنسبة للملاقيف الظاهر متعودين ياخذون افكار الناس وينسبونها لنفسهم

Glmd

[HassoN]

* convertWordsToSound

*only Server Side

Author: HasoN

Syntax:

convertWordsToSound(string text) 

Required Arguments:

• text: الكتابة الي تبغا تحولها لـ كلام

__

Code:

--Server Side 
  
function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
--Client Side 
  
function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

Example:

_______

Server Side:

function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
addEventHandler("onPlayerChat",root, 
function (messag) 
convertWordsToSound(messag) 
end) 

Client Side:

function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

طبعا فائدة الفنكشن واضحة جدا ، من اسمه

يحول اي كلام تكتبه لـ صوت بدل ماتحط اصوات وتحميلات والخ ، كله بـ كود بسيط واحد

__

المثال اعلاه ، لو اي حد تكلم بالسيرفر بيجي الكلام حقه صوت

_

طبعا الفنكشن لايتقبل غير الكلمات الانجليزية ،، ولو تبغا تخليه يتقبل العربية

بتغير سطر 3 بالكود جهة سيرفر

str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 

تحولها الى

str2 = "http://translate.google.com/translate_tts?tl=ar&q="..str.."" 

_

طبعا الفكرة حقت الأخ " ميمو برنس" ذذ

وان شاء الله يفيدكم الفنكشن

Edit:

تم اضافة صفحة الويكي

https://wiki.multitheftauto.com/wiki/Co ... rdsToSound

Edited August 26, 2014 by Guest

[#Mr.alkmasha]

* convertWordsToSound

*only Server Side

Author: HasoN

Syntax:

convertWordsToSound(string text) 

Required Arguments:

• text: الكتابة الي تبغا تحولها لـ كلام

__

Code:

--Server Side 
  
function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
--Client Side 
  
function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

Example:

_______

Server Side:

function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
addEventHandler("onPlayerChat",root, 
function (messag) 
convertWordsToSound(messag) 
end) 

Client Side:

function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

طبعا فائدة الفنكشن واضحة جدا ، من اسمه

يحول اي كلام تكتبه لـ صوت بدل ماتحط اصوات وتحميلات والخ ، كله بـ كود بسيط واحد

__

المثال اعلاه ، لو اي حد تكلم بالسيرفر بيجي الكلام حقه صوت

_

طبعا الفنكشن لايتقبل غير الكلمات الانجليزية ،، ولو تبغا تخليه يتقبل العربية

بتغير سطر 3 بالكود جهة سيرفر

str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 

تحولها الى

str2 = "http://translate.google.com/translate_tts?tl=ar&q="..str.."" 

_

طبعا الفكرة حقت الأخ " ميمو برنس" ذذ

وان شاء الله يفيدكم الفنكشن

كفو حسون, تقبل مروري

[=xx=Ali=xx=]

* convertWordsToSound

*only Server Side

Author: HasoN

Syntax:

convertWordsToSound(string text) 

Required Arguments:

• text: الكتابة الي تبغا تحولها لـ كلام

__

Code:

--Server Side 
  
function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
--Client Side 
  
function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

Example:

_______

Server Side:

function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
addEventHandler("onPlayerChat",root, 
function (messag) 
convertWordsToSound(messag) 
end) 

Client Side:

function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

طبعا فائدة الفنكشن واضحة جدا ، من اسمه

يحول اي كلام تكتبه لـ صوت بدل ماتحط اصوات وتحميلات والخ ، كله بـ كود بسيط واحد

__

المثال اعلاه ، لو اي حد تكلم بالسيرفر بيجي الكلام حقه صوت

_

طبعا الفنكشن لايتقبل غير الكلمات الانجليزية ،، ولو تبغا تخليه يتقبل العربية

بتغير سطر 3 بالكود جهة سيرفر

str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 

تحولها الى

str2 = "http://translate.google.com/translate_tts?tl=ar&q="..str.."" 

_

طبعا الفكرة حقت الأخ " ميمو برنس" ذذ

وان شاء الله يفيدكم الفنكشن

اهنيكك على الكود حطه بالويكي كود يفيد المبرمجين ككفو ولله

[R[e]mx]

* convertWordsToSound

*only Server Side

Author: HasoN

Syntax:

convertWordsToSound(string text) 

Required Arguments:

• text: الكتابة الي تبغا تحولها لـ كلام

__

Code:

--Server Side 
  
function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
--Client Side 
  
function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

Example:

_______

Server Side:

function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
addEventHandler("onPlayerChat",root, 
function (messag) 
convertWordsToSound(messag) 
end) 

Client Side:

function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

طبعا فائدة الفنكشن واضحة جدا ، من اسمه

يحول اي كلام تكتبه لـ صوت بدل ماتحط اصوات وتحميلات والخ ، كله بـ كود بسيط واحد

__

المثال اعلاه ، لو اي حد تكلم بالسيرفر بيجي الكلام حقه صوت

_

طبعا الفنكشن لايتقبل غير الكلمات الانجليزية ،، ولو تبغا تخليه يتقبل العربية

بتغير سطر 3 بالكود جهة سيرفر

str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 

تحولها الى

str2 = "http://translate.google.com/translate_tts?tl=ar&q="..str.."" 

_

طبعا الفكرة حقت الأخ " ميمو برنس" ذذ

وان شاء الله يفيدكم الفنكشن

Edit:

تم اضافة صفحة الويكي

https://wiki.multitheftauto.com/wiki/Us ... rdsToSound

حسسون حبيبي والله كود رائع من ششخص اروع اسستمر ي قلبي على ابداعك ..

[#DRAGON!FIRE]

* convertWordsToSound

*only Server Side

Author: HasoN

Syntax:

convertWordsToSound(string text) 

Required Arguments:

• text: الكتابة الي تبغا تحولها لـ كلام

__

Code:

--Server Side 
  
function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
--Client Side 
  
function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

Example:

_______

Server Side:

function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
addEventHandler("onPlayerChat",root, 
function (messag) 
convertWordsToSound(messag) 
end) 

Client Side:

function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

طبعا فائدة الفنكشن واضحة جدا ، من اسمه

يحول اي كلام تكتبه لـ صوت بدل ماتحط اصوات وتحميلات والخ ، كله بـ كود بسيط واحد

__

المثال اعلاه ، لو اي حد تكلم بالسيرفر بيجي الكلام حقه صوت

_

طبعا الفنكشن لايتقبل غير الكلمات الانجليزية ،، ولو تبغا تخليه يتقبل العربية

بتغير سطر 3 بالكود جهة سيرفر

str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 

تحولها الى

str2 = "http://translate.google.com/translate_tts?tl=ar&q="..str.."" 

_

طبعا الفكرة حقت الأخ " ميمو برنس" ذذ

وان شاء الله يفيدكم الفنكشن

Edit:

تم اضافة صفحة الويكي

https://wiki.multitheftauto.com/wiki/Us ... rdsToSound

مشكور ع المجهود

عندكـ كم خطا .. :

triggerClientEvent(source,"VoiceClient",source,str2) 

مهي معرفة source الـ .

ليه ؟ .. ترا ما يحتاج التريقر للاعب نفسه والفنكشن كلنت يعني للأعب نفسه فقط localPlayer ولاحظت انكـ حاط

destroyElement لتحقق من وجود الصوت ومن ثم تسوي isElement والمفروض تستخدم

""المفروض تتحقق من المسج انها مهي onPlayerChat وبحدث

بالتوفيق .

[</Mr.Tn6eL>]

* convertWordsToSound

*only Server Side

Author: HasoN

Syntax:

convertWordsToSound(string text) 

Required Arguments:

• text: الكتابة الي تبغا تحولها لـ كلام

__

Code:

--Server Side 
  
function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
--Client Side 
  
function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

Example:

_______

Server Side:

function convertWordsToSound(str) 
local str2 = "" 
str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 
triggerClientEvent(source,"VoiceClient",source,str2) 
end 
  
  
  
addEventHandler("onPlayerChat",root, 
function (messag) 
convertWordsToSound(messag) 
end) 

Client Side:

function sayVoice(str) 
currentVoice = playSound(str) 
end 
addEvent("VoiceClient",true) 
addEventHandler("VoiceClient",localPlayer,sayVoice) 

طبعا فائدة الفنكشن واضحة جدا ، من اسمه

يحول اي كلام تكتبه لـ صوت بدل ماتحط اصوات وتحميلات والخ ، كله بـ كود بسيط واحد

__

المثال اعلاه ، لو اي حد تكلم بالسيرفر بيجي الكلام حقه صوت

_

طبعا الفنكشن لايتقبل غير الكلمات الانجليزية ،، ولو تبغا تخليه يتقبل العربية

بتغير سطر 3 بالكود جهة سيرفر

str2 = "http://translate.google.com/translate_tts?tl=en&q="..str.."" 

تحولها الى

str2 = "http://translate.google.com/translate_tts?tl=ar&q="..str.."" 

_

طبعا الفكرة حقت الأخ " ميمو برنس" ذذ

وان شاء الله يفيدكم الفنكشن

Edit:

تم اضافة صفحة الويكي

https://wiki.multitheftauto.com/wiki/Us ... rdsToSound

source : غير معرف

+

يمديك تحطه كلنت ليه كل هذا

بالتوفيق

[HassoN]

تم تعديل الكود + تغير اسمه

+ تضبيطه

الرابط

https://wiki.multitheftauto.com/wiki/ConvertTextToSpeech

[WASSIm.]

تم تعديل الكود + تغير اسمه

+ تضبيطه

الرابط

https://wiki.multitheftauto.com/wiki/ConvertTextToSpeech

أفضل playSoundByString

[./BlackBird#]

https://wiki.multitheftauto.com/wiki/Resource:TextSpeech

https://community.multitheftauto.com/index.php?p= ... ls&id=3035

[HassoN]

https://wiki.multitheftauto.com/wiki/Resource:TextSpeech

https://community.multitheftauto.com/index.php?p= ... ls&id=3035

الكود الي بالسكربت الي حاطه مو نفس الكود حقي ،،

[#DRAGON!FIRE]

https://wiki.multitheftauto.com/wiki/Resource:TextSpeech

https://community.multitheftauto.com/index.php?p= ... ls&id=3035

الكود الي بالسكربت الي حاطه مو نفس الكود حقي ،،

بس نفس الفكرة وتقريبا الاكواد متشابهة ^

[HassoN]

https://wiki.multitheftauto.com/wiki/Resource:TextSpeech

https://community.multitheftauto.com/index.php?p= ... ls&id=3035

الكود الي بالسكربت الي حاطه مو نفس الكود حقي ،،

بس نفس الفكرة وتقريبا الاكواد متشابهة ^

اول شي لما سويت الكود ، ما كنت ادري انه واحد مسوي السكربت قبلي ،،

وثاني شي قولي وين التشابه بالأكواد

[#DRAGON!FIRE]

اول شي لما سويت الكود ، ما كنت ادري انه واحد مسوي السكربت قبلي ،،

وثاني شي قولي وين التشابه بالأكواد

وكيف جات الفكرة براسكـ ^

ع العموم ما نبي نغير مسار الموضوع .

[HassoN]

اول شي لما سويت الكود ، ما كنت ادري انه واحد مسوي السكربت قبلي ،،

وثاني شي قولي وين التشابه بالأكواد

وكيف جات الفكرة براسكـ ^

ع العموم ما نبي نغير مسار الموضوع .

انا موضح فوق ان الفكرة مو حقتي ،،

الفكرة حقت خويي " ميمو برنس " ، قالي عليها وعجبتني وسويتها //

طبعا الفكرة حقت الأخ " ميمو برنس" ذذ

وان شاء الله يـفيدكم الفنكشن

[HassoN]

* renameAclGroup

*only Server Side

Author: HasoN

Syntax:

bool renameAclGroup(string old , string new ) 

Required Arguments:

• old : اسم قروب الاسل القديم

• new : اسم قروب الاسل الجديد ، الي بيجي بدل الاسم القديم

Code:

--Server Side 
  
function renameAclGroup( old, new ) 
    if ( type( old ) ~= "string" ) then 
        outputDebugString( "Bad argument 1 @ renameAclGroup [ string expected, got " .. type( old ) .. " ] ", 2 ) 
        return false 
    end 
  
    if ( type( new ) ~= "string" ) then 
        outputDebugString( "Bad argument 2 @ renameAclGroup [ string expected, got " .. type( new ) .. " ] ", 2 ) 
        return false 
    end 
  
    local oldACLGroup = aclGetGroup( old ) 
  
    if ( not oldACLGroup ) then 
        outputDebugString( "Bad argument 1 @ renameAclGroup [ no acl group found with this name ] ", 2 ) 
        return false 
    end 
  
    if ( aclGetGroup( new ) ) then 
        outputDebugString( "Bad argument 2 @ renameAclGroup [ there is already a group with this name ] ", 2 ) 
        return false 
    end 
  
    local oldACL = aclGroupListACL( oldACLGroup ) 
    local oldObjects = aclGroupListObjects( oldACLGroup ) 
    local newACLGroup = aclCreateGroup( new ) 
  
    for _,nameOfACL in pairs( oldACL ) do 
        aclGroupAddACL( newACLGroup, nameOfACL ) 
    end 
  
    for _,nameOfObject in pairs( oldObjects ) do 
        aclGroupAddObject( newACLGroup, nameOfObject ) 
    end 
  
    aclDestroyGroup( oldACLGroup ) 
    aclSave( ) 
    aclReload( ) 
  
    return true 
end 

Example:

_______

Server Side:

addEventHandler( "onResourceStart", resourceRoot, 
    function( ) 
        renameAclGroup( "Moderator", "HassoN" ) 
    end 
) 

المثال اعلاه ، عند تشغيل السكربت بيقوم بتغير اسم قروب مودريتر الى اسم حسون ،

__

الحين بعض الناس تقول وش فايدته؟ ، اقدر احذف قروب الاسل وارجع اسويه بأسم جديد وخلصنا !

ذا الكود له ميزة معينة ، وهي مثلا لو سيرفرك يدخلوه 100 كل يوم

وبقروب اسل محدد فيه 50 واحد ، ومثلا عجبك تغير اسم القروب !

كذا بتتوهق تحذف القروب وتسويه من جديد وتضيف الـ 50 حساب من جديد للقروب !!

الميز الي بالكود حقي :

#1: حفظ الأوبجكتات داخل اسم القروب القديم لـ القروب الجديد

#2: حفظ الأسل الي كان بالقروب القديم ،، للقروب الجديد

اتمنى الكود نال على اعجابكم وشكرا

Edit:

wikiPage:

https://wiki.multitheftauto.com/wiki/RenameAclGroup

Edited August 30, 2014 by Guest

[AboShanab]

getCountPlayerInTeam

Client and Server Side !

Syntax

int getCountPlayerInTeam ( team ) 

function getCountPlayerInTeam ( team ) 
    assert ( isElement ( team ) and getElementType ( team ) == "team", "Bad argument @ getCountPlayerInTeam [ team expected, got " .. type ( team ) .. " ]" ) 
    local countPlayer = 0 
    for _,v in ipairs ( getElementsByType ( "player" ) ) do 
        if ( getPlayerTeam ( v ) == team ) then 
            countPlayer = countPlayer + 1 
        end 
    end 
    return countPlayer 
end 

Wiki :

https://wiki.multitheftauto.com/wiki/Ge ... ayerInTeam

[AboShanab]

@HassoN : وظيفة جيدة لكن يبي لها شوي من ناحية التنسيق والاهتمام

+ حط aclReload

[HassoN]

@HassoN : وظيفة جيدة لكن يبي لها شوي من ناحية التنسيق والاهتمام

+ حط aclReload

تم التنسيق + التضبيط ..

[xFace[B]ook]

getCountPlayerInTeam

Client and Server Side !

Syntax

int getCountPlayerInTeam ( team ) 

function getCountPlayerInTeam ( team ) 
    assert ( isElement ( team ) and getElementType ( team ) == "team", "Bad argument @ getCountPlayerInTeam [ team expected, got " .. type ( team ) .. " ]" ) 
    local countPlayer = 0 
    for _,v in ipairs ( getElementsByType ( "player" ) ) do 
        if ( getPlayerTeam ( v ) == team ) then 
            countPlayer = countPlayer + 1 
        end 
    end 
    return countPlayer 
end 

Wiki :

https://wiki.multitheftauto.com/wiki/Ge ... ayerInTeam

https://wiki.multitheftauto.com/wiki/CountPlayersInTeam

[AboShanab]

للان م رتبتها ي حسوون ..

[HassoN]

للان م رتبتها ي حسوون ..

وش تقصد بـ ترتيبها ،، بالضبط .. ؟

[AboShanab]

إختصار الاكواد

[xX|KeMo|Xx]

function guiSetVisiblex(wind,kemo) 
if not isElement(wind) then return end 
if kemo == true then 
if guiGetVisible(wind) ~= false then return end 
local alpha = 0 
guiSetAlpha(wind,alpha) 
guiSetVisible(wind, true) 
setTimer(function() alpha = alpha + 0.1 guiSetAlpha(wind, alpha) end,50,10,true) 
elseif kemo == false then 
if guiGetVisible(wind) ~= true then return end 
local alpha = 1 
guiSetAlpha(wind,alpha) 
setTimer(function() alpha = alpha - 0.1 guiSetAlpha(wind, alpha) if alpha == 0 then guiSetVisible(wind, false) end end,50,10) 
end 
end 

الاستخدام للـ

gui

فقط

الفـآيده انه تشتغل القـآي وهي شفــآفهـ لـيوم ما تصير عاديهـ والعكس

alpha <~

guiSetVisiblex(wind,true) --كذا تشغيل ومكان الويند تحط اسم الـقـآي الي تبيهـ يصير عليهـ الوضع 
guiSetVisiblex(wind,false) --كذا ايقاف ومكان الويند تحط اسم الـقـآي الي تبيهـ يصير عليهـ الوضع 

Edited September 16, 2014 by Guest

[AboShanab]

@Kemo :

function guiSetVisiblex ( wind, kemo ) 
    if not ( kemo ) or ( type ( kemo ) ~= "boolean" ) or not ( wind ) or not ( isElement ( wind ) ) then 
        return false 
    end 
    if ( kemo == true ) then 
        if ( guiGetVisible ( wind ) ~= false ) then 
            return false 
        end 
        guiSetAlpha ( wind, 0 ) 
        if not ( guiGetVisible ( wind ) ) then 
            guiSetVisible ( wind, true ) 
        end 
        setTimer ( function (   ) 
            local alpha = guiGetAlpha ( wind ) 
            alpha = alpha + 0.1 
            guiSetAlpha ( wind, alpha ) 
        end, 50, 10 ) 
    else 
        if ( guiGetVisible ( wind ) ~= true ) then 
            return false 
        end 
        guiSetAlpha ( wind, 1 ) 
        setTimer ( function (   ) 
            local alpha = guiGetAlpha ( wind ) 
            alpha = alpha - 0.1 
            guiSetAlpha ( wind, alpha ) 
            if ( alpha <= 0 ) then 
                guiSetVisible ( wind, false ) 
            end 
        end, 50, 10 ) 
    end 
end