Здравствуйте, гость ( Вход | Регистрация )
Дата поста: | В теме: | За сообщение: | Спасибо сказали: | ||
---|---|---|---|---|---|
5.1.2010, 20:38 |
нужен скрипт для запрета входа с ограничением скорости аналог RusBot на YnHub |
Вот еще, брал где то здесь, сразу не нашел, привожу исходник. Speed limit.lua Код SpeedLimit=500 function MyINFOArrival(tUser) if Core then Core.GetUserAllData(tUser) end tUser=GetNormalValue(tUser) if tUser.iLlimit and tUser.iLlimit<SpeedLimit and tUser.iLlimit>0 then if Core then Core.SendToUser(tUser,"*** Ограничение скорости на отдачу, меньше "..SpeedLimit.. " Kbyte, использовать нельзя!") Core.Disconnect(tUser) else tUser:SendData("*** Ограничение скорости на отдачу, меньше "..SpeedLimit.. " Kbyte, использовать нельзя!") tUser:Disconnect() end end end function GetNormalValue(tUser) if not tUser.sTag then local _,_,sDescription,sTag,sClient,sClientVersion,sMode,iNormalHubs,iRegHubs,iOpHubs,iSlots,iLlimit=tUser .sDescription:find("(.*)(<(.+)%sV:(.-),M:(.-),H:(%d+)/(%d+)/(%d+),S:(%d+)>)$") if not sDescription then _,_,sDescription,sTag,sClient,sClientVersion,sMode,iNormalHubs,iRegHubs,iOpHubs,iSlots,iLlimit= tUser.sDescription:find("(.*)(<(.+)%sV:(.-),M:(.-),H:(%d+)/(%d+)/(%d+),S:(%d+),L:(%d+)>)$") end if not sDescription then _,_,sDescription,sTag,sClient,sClientVersion,sMode,iNormalHubs,iRegHubs,iOpHubs,iSlots,iLlimit= tUser.sDescription:find("(.*)(<(.+)%sV:(.-),M:(.-),H:(%d+)/(%d+)/(%d+),S:(%d+),B:(%d+)>)$") end tUser.sDescription=sDescription tUser.sTag=sTag tUser.sClient=sClient tUser.sClientVersion=sClientVersion tUser.sMode=sMode tUser.iNormalHubs=iNormalHubs tUser.iRegHubs=iRegHubs tUser.iOpHubs=iOpHubs tUser.iHubs=iNormalHubs+iRegHubs+iOpHubs tUser.iSlots=iSlots tUser.iLlimit=iLlimit end return tUser end |
НеуНейм | ||
|
Сейчас: 23.11.2024, 4:41 |