Author Topic: checks share  (Read 1688 times)

0 Members and 1 Guest are viewing this topic.

Offline F_O_X

  • Junior Member
  • **
  • Posts: 24
  • Karma: +9/-0
checks share
« on: 12 March, 2008, 07:31:28 »
I have a script that modifies the user profile depending on the size of share.

Code: [Select]
sShare = 700      --// ?????? ???? ? Gb
sBot = "[VIP_????]"      --// ??? ????
sOpChatName = SetMan.GetString(24)    --// ??????   '  SetMan.GetString(24) '   ?    "YourOpsChatName"   ?? ?????? ???????? ????



function MyINFOArrival(user,data)
Core.GetUserAllData(user)
if (user.iProfile == 3) and (user.iShareSize/1073741824) >= sShare then
local sNick = user.sNick
local sPass = RegMan.GetReg(user.sNick).sPassword
RegMan.DelReg(sNick)
RegMan.AddReg(sNick,sPass,2)
Core.SendPmToNick(sNick,sBot,"?????? ????? ???? ?????? ?????? VIP, ??? ??????? ??? ????????, ?????????? ??????????? ?? ??? ??? ??? VIP.")
-- Core.SendPmToOps(sBot," ????: "..sNick.." ??? ??????? ?? VIP, ?.?. ? ???? ????? "..sShare.."gb ????.")
Core.Disconnect(sNick)
elseif (user.iProfile == 2) and (user.iShareSize/1073741824) < sShare then
local sNick = user.sNick
local sPass = RegMan.GetReg(user.sNick).sPassword
RegMan.DelReg(sNick)
RegMan.AddReg(sNick,sPass,3)
Core.SendPmToNick(sNick,sBot,"???? ???? ???????????, ?? ???? ???????? ?? Reg ?????. ??????????? ?? ???.")
-- Core.SendPmToOps(sBot," ????: "..sNick.." ??? ??????? ?? ReG, ?.?. ? ???? ????? "..sShare.."gb ????.")
Core.Disconnect(sNick)
end
end


Some DC clients, such GreyLink can emulate share. Is it possible to insert in the script checks share what it is not counterfeit?

PtokaX forum

checks share
« on: 12 March, 2008, 07:31:28 »