1
Requests / Write to webpage
« on: March 15, 2009, 06:26:37 AM »Quote from: Reason
hmmm...
gimme a day or so i'll see what i can do.
You'll need to have a mysql database i can use though
Don't have one
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
hmmm...
gimme a day or so i'll see what i can do.
You'll need to have a mysql database i can use though
'servers
'1.0
'7thAce
Const servers_AutoDisplayTimer = 30 '// Time in minutes to check all servers. Displays them with addchats.
Const servers_CheckBNLSTimer = 5 '// Time in minutes to check your server. Only displays an error if your server is down and you use BNLS.
Const servers_AutoChange = True '// True or False - Changes your BNLS if the current one is down and you do not use Hashes.
Sub servers_event_load()
Addchat vbMagenta, "Server checker loaded. Type ""/server update"" to check the server statuses."
Atime = 60 * servers_AutoDisplayTimer
TimerInterval "servers", "Autodisplay", Atime
TimerEnabled "servers", "Autodisplay", True
Btime = 60 * servers_CheckBNLSTimer
TimerInterval "servers", "CheckBNLS", Btime
TimerEnabled "servers", "CheckBNLS", True
End Sub
Sub servers_event_pressedenter(text)
If left(lcase(text), 8) = "/server " Then
Vetothismessage()
If lcase(text) = "/server update" Then
Content = scInet.OpenURL("http://python.bot.nu/py/status.php")
Args = Split(Content, "<img src='img/text_")
Serverlist = Split(Content, "<a href='status.php?server=")
For i = 0 to Ubound(Serverlist)
Serverlist(i) = Left(Serverlist(i), Instr(Serverlist(i), ":") - 1)
Next
For i = 0 to Ubound(Args)
If left(Args(i), 1) = "d" Then Addchat vbred, "Server " & Serverlist(i) & " is currently offline."
If left(Args(i), 1) = "c" Then Addchat vbgreen, "Server " & Serverlist(i) & " is currently online."
Next
End If
End If
End Sub
Sub servers_Autodisplay_timer()
Text = "/server update"
Call servers_event_pressedenter(text)
End Sub
Sub servers_CheckBNLS_timer()
BNLS = GetConfigEntry("Main", "SetBNLSServer", "Config.ini")
Content = scInet.OpenURL("http://python.bot.nu/py/status.php")
Serverlist = Split(Content, "<a href='status.php?server=")
For i = 0 to Ubound(Serverlist)
Serverlist(i) = Left(Serverlist(i), Instr(Serverlist(i), ":") - 1)
Next
For i = 0 to Ubound(Serverlist)
If BNLS = Serverlist(i) Then
Args = Split(Content, "<img src='img/text_")
If Left(Args(i), 1) = "d" Then
Addchat vbred, "Warning: Your current BNLS server is offline or is not on the trusted servers list. Please change it or use the auto-change feature."
If servers_autochange Then
If GetConfigEntry("Main", "UseBNLS", "Config.ini") = "Y" Then
Addchat vbyellow, "Your BNLS Server is offline - Using auto-change to use a new server."
If BNLS <> "pyro.no-ip.biz" Then
WriteConfigEntry "Main", "SetBNLSServer", "pyro.no-ip.biz", "Config.ini"
Else
WriteConfigEntry "Main", "SetBNLSServer", "alendar.no-ip.org", "Config.ini"
End If
Call ReloadSettings(1)
If SSC.IsOnline() = False Then
Call Command(BotVars.Username, "/cq", True)
Call SSC.Connect()
End If
End If
End If
End If
End If
Next
End Sub
If left(lcase(message), 10) = botvars.trigger & "runeword " Then
Args = Split(message)
Char = Args(1)
Character = lcase(Args(1))
Addchat vbgreen, Character
x = 1
Select Case Character
Case sorceress
Runes = "Pul+Ral+Sol"
Struck = "5% for Level 15 Fire Ball"
Striking = "5% for Level 15 Blaze"
Bonuses = "+1 to warmth|+30% Enhanced Defense|Fire Resist +30%|Damage Taken -7"
Case necromancer
Runes = "Sol+Um+Um"
Struck = "15% for Level 10 Bone Armor"
Striking = "15% for Level 10 Bone Spear"
Bonuses = "+100-150 mana|All resistances +30|Damage taken -7| -None-"
Case paladin
Runes = "Ral+Gul+Eld"
Struck = " -None-"
Striking = "100% for Level 5 Holy Bolt"
Bonuses = "15% slower stamina drain|+5% to max poison resist|Fire Resist +30%| -None-"
Case barbarian
Runes = "Hel+Amn+Nef"
Struck = "3% for Level 1 Howl"
Striking = "10% for Level 1 Taunt"
Bonuses = "+30% Defense vs. Missile|Replenish life +10|Attacker takes 14 damage|Requirements -15%"
Case amazon
Runes = "Shael+Thul+Amn"
Struck = "4% for Level 5 Slow Missiles"
Striking = "2% for Level 15 Valkyrie"
Bonuses = "+20% faster hit recovery|+2 to Critical Strike|Cold Resist +30%|Attacker Takes 14 damage"
Case assassin
Runes = "Shael+Thul+Lem"
Struck = "5% for Level 15 Fade"
Striking = "15% for Level 15 Venom"
Bonuses = "+45% attack speed|+20% Faster Hit Recovery|Cold Resist +30%|+50% gold from monsters"
Case druid
Runes = "Ort+Mal+Ith"
Struck = "5% for Level 15 Cyclone Armor"
Striking = "5% for Level 15 Twister"
Bonuses = "+100-150 mana|Lightning Resist +30%|Magid Damage -7|15% Damage taken goes to Mana"
Case Else
AddQ "/w " & Username & " Invalid Character."
x = 0
End Select
If x = 1 Then
Bonus = Split(Bonuses, "|")
AddQ "/w " & Username & " Runeword for " & Char
AddQ "/w " & Username & " Runes: " & runes
AddQ "/w " & Username & " When Struck: " & Struck
AddQ "/w " & Username & " When Striking: " & Striking
AddQ "/w " & Username & " Bonus 1: " & Bonus(0)
AddQ "/w " & Username & " Bonus 2: " & Bonus(1)
AddQ "/w " & Username & " Bonus 3: " & Bonus(2)
AddQ "/w " & Username & " Bonus 4: " & Bonus(3)
End If
End If